//----------------------------------------------------------------------------------------
// function: entity action
// purpose:  change position on creator client
//           change angle and scale on server
//------------------------------------------------------------------
action ent_action1() {
  wait(3);
  GSTNet_RegisterEntity(my);
  my.enable_click = on;
  my.transparent = on;  
  my.alpha = 100;
  my.skill50 = my.alpha;
//  on_click = mouseremove;
//  while(GSTNet_Handle(my)==0){wait(1);} 
  my.skill2 = GSTNet_Handle(my);
  GSTNet_TrackEntity(my, GSTNet_TrackPos);  // client+server
  while(1){
    my.alpha = my.skill50;
    wait(1);
  }
}
...
//----------------------------------------------------------------------------------------
// function: mousemove
// purpose:  moves a global entity
//------------------------------------------------------------------
function mousemove()
{
  while(key_shift)
  {
    mouse_mode = 2;
    mouse_pointer = 2;
    mouse_pos.x = pointer.x; // move the mouse pointer
    mouse_pos.y = pointer.y;
    if(mouse_ent!=null)    {
        mouse_ent.light = on;
        if (GSTNet_Connection() == 3){
          mouse_ent.red = 255;
          mouse_ent.green = 0;
          mouse_ent.blue = 0;
        }
        if (GSTNet_Connection() == 2){
          mouse_ent.red = 0;
          mouse_ent.green = 255;
          mouse_ent.blue = 0;
        }
      
        diag("\nLIGHT");
        GSTNet_SendEntity(mouse_ent,GSTNet_TrackFlags+GSTNet_TrackColor);   // set entity to debug
        mouse_ent.skill50 = mouse_ent.alpha - 1; 
        GSTNet_SendSkills(mouse_ent,50,50);   // set entity to debug
    }
    wait(1);
  }
}
on_click=mousemove;

GSTNet_SendArray(sName, vFrom, vTo)


               

Description: server+client: sends a part of a global var array immediately


Parameter:
STRING* varname name of the global var array
var vFrom first index
var vTo last index

max. 250 entries at one time 0.249 or 10100..10349

Example:

var Array[500];
function evServer(vType, sData)
{
  diag("\nReceive server event:");
  if (vType == GSTNet_EvTypeConnect ) {
    diag("\nNew client connected. ClientId:");
    diag(sData);
    GSTNet_SendVar("StartClients");
    GSTNet_SendArray("Array",0,250); // send array immediately after client connect
  }
}

function main() {
  ifdef srv;
    GSTNet_StartServer(2300,1);
    GSTNet_Events(GSTNet_EventServer, "evServer");
    //start a function, which demonstrates global vars
    Array[0]=200;  // only server sets the array values
    Array[1]=200;
    Array[2]=400;
    Array[249]=300;
  endif; 
 
  // start client if srv is set in commandline
  GSTNet_StartClient(server_name,2300,1); //server event connect is fired
  GSTNet_Events(GSTNet_EventClient, "evClient");
  while(GSTNetId==0) {wait(1);} // client rceives from server the array values
  GSTNet_Synchronize();
  wait(-0.5);
  test();
  GSTNet_TrackVar("Counter");
  draw_red_rect(Array[0],Array[1],Array[2],Array[249]); //array values are updated from server array on connected client
}

Quote:

---

in die main muss GSTNet_Events(GSTNet_EventFunction,"Parse_Function");
sonst geht die send_function funktion nicht.

---

starter GSTNet_ChatActivate()
{
	var temp_str;
	wait(-1);
  GSTNet_Events(GSTNet_EventFunction, "evFunction"); //register event function

function evFunction(vTyp, sMsg)
{

  GSTNet_ServerSend(0, vTyp, sMsg); // broadcast this
  Parse_Function(sMsg);             // parse and execute ...
    
}

Quote:

---

wenn if (str_stri(sGSTNetTemp1, "GSTNet") == 0) { return; } in Parse_Function steht, funktioniert es nicht.

---

Quote:

---

Parse_Function hat normalerweise nur (str) muss aber (vtype,str) sein. sonst denkt er, er würde eine var verwenden.

---

Quote:

---

GSTNet_ClientSend scheint immer nur aufm server ausgeführt zu werden. vReceiver auf 0,1 oder 2 ergibt kein unterschied. nur der server löst die funktion aus.

---

Quote:

---

function Server_Login_Event(vTyp, sMsg)
{
str_cpy(debugtext1.string[4], "test");
if(GSTNet_Connection()==3)
{
beep;
GSTNet_ServerSend(3, vTyp, sMsg); //sende an client 2
}
}

---

Quote:

---

GSTNet_Events(11,"Server_Login_Event");
if(key_a==1)
{
GSTNet_ClientSend(1, 11, "leer"); //sende an den server
break;
}

---