Information about object: ObjWaitOnline
Create Event:
execute code:
Type=0
Mode[0]="Campagne"
Mode[1]="Survie"
Mode[2]="Versus"
dllinit(0,1,0)
global.Host=1
listen = tcplisten(14804, 2, true)
if(listen <= 0)
show_message("Failed to listen on port 14804")
global.ListJoueur= ds_list_create()
global.NoJ=0
Step Event:
COMMENT: Nouveau joueur trouvé
execute code:
client = tcpaccept(listen, true)
if(client <= 0) exit
ds_list_add(global.ListJoueur,client)
global.NoJ+=1
if global.Host
{
clearbuffer()
writebyte(0)
writeshort(global.NoJ)
for(i=0i<global.NoJ;i+=1)
writestring(global.J[i])
sendmessage(client)
}
COMMENT: Réception de messages
execute code:
while 1
{
if global.Host
{
receivemessage(ds_list_find_value(global.ListJoueur,global.NoJ))
if readbyte!=0 exit
global.J[global.NoJ]=readstring
}
else
{
receivemessage(server)
if readbyte!=0 exit
global.NoJ=readshort()
global.J[global.NoJ]=global.J[0]
for(i=0;i<global.NoJ;i+=1)
global.J[i]=readstring()
}
}
if mouse_check_button(mb_left)
{
ip = get_string("Enter the ip to connect to", "127.0.0.1")
server = tcpconnect(ip, 14804, true)
if(server <= 0)
{show_message("Unable to connect to server")
exit}
global.Host=0
clearbuffer()
writebyte(0)
writestring(global.J[i])
sendmessage(server)
}