//------------------------------------------------------------------
// function for event: GSTNet_EventFunction
// input: vTyp : event-id
//        sMsg: data
//        vSender: sender client id
//        vReceiver: receiver id       
//------------------------------------------------------------------
function evFunction(vTyp, sMsg, vSender, vReceiver)
{
  diag("\nType:"); str_for_num(sGSTNetTemp, vTyp); diag(sGSTNetTemp);
  diag("\nSender:"); str_for_num(sGSTNetTemp, vSender); diag(sGSTNetTemp);
  diag("\nReceiver:"); str_for_num(sGSTNetTemp, vReceiver); diag(sGSTNetTemp);
  GSTNet_ServerSend(vReceiver, vTyp, sMsg);
  if(GSTNet_Connection() == 2 || GSTNet_Connection() == 3 ) {
    Parse_Function(sMsg);             // parse and execute ...
  }
}