Benjamin,
I just re-installed my PC and found out NOTHING of my new codes work anymore with multiSync...
Here is my server:
Global Am$
Global Wm$
Global Sh$
Global Plr$
Global Lms$
Global Lps$
Global Stm$
Global Ntm$
Global Sdt$
Global From#
Input ">>>Amount Of Players : ",Am$
Input ">>>Welcome Message : ",Wm$
Input ">>>Server Host : ",Sh$
Net Host Val(Am$)
Stm$=Get Time$()
Sdt$=Get Date$()
Do
CLS
Plr$=Str$(Net Get Player Amount())
Print ">>>HOSTING<<<"
PRINT ""
PRINT "Server Ip : "+GetMyIp()
Print "Current Amount Of Players : "+Plr$+"\"+Am$
Print "Welcome Message : "+Wm$
Print "Host : "+Sh$
Print "Start Time Hosting : "+Stm$+" Date : "+Sdt$
Print "Current Time : "+Get Time$()+" Date : "+Get Date$()
Print ""
Print "------------------------"
Print ">>>MESSAGES<<<"
Print ""
Print "Last Sended Message : "+Lms$
Print "Last Sended Position : "+Lps$
GetSend()
loop
Function GetSend()
Msg#=Net get message()
If Msg#=1
From#=Net message from()
Byt#=Net Get Byte()
If Byt#=1
Message$=Net Get String()
Net Put Byte 2
Net Put String Message$
Net Send all
Lms$=Message$
endif
If Byt#=2
PlrNum#=Net Get Float()
X#=Net Get Float()
Y#=Net Get Float()
Z#=Net Get Float()
Lps$="Plr "+Str$(PlrNum#)+","+Str$(X#)+","+sTR$(Y#)+","+Str$(Z#)
Net Put Byte 3
Net Put Float PlrNum#
Net Put Float X#
Net Put Float Y#
Net Put Float Z#
Net Send all
endif
If Byt#=9
Net Put Byte 23
Net Put String Wm$
Lms$=Wm$
Net Send From#
endif
endif
endfunction
And my client,wich wont lay the connection for some reason.
Net Connect "127.0.0.1"
Con#=Net Connected()
If Con#=0
errorbox "Server Connection refused,server might be down."
end
endif
W#=0
Do
Inc W#,1
Print "Waiting for connection activation...Attempt : "+Str$(W#)
If W#=>1500
messagebox "connection try time-out."
end
endif
Net Put Byte 9
Net Send 1
Msg#=Net Get Message()
If MSG#=1
Byt#=Net Get Byte()
If Byt#=23
Wmess$=Net Get String()
Messagebox Wmess$
OK#=1
endif
endif
If OK#=1 then Gosub Nex
loop
Nex:
Make Object Cube 1,50
Make Matrix 1,3000,3000,30,30
Do
AF_TopDown(Object Position X(1),Object Position Y(1),Object Position Z(1),1500)
AF_Keys1(1,2,0.8)
loop
It doesnt seem to work anymore,and my compiled .exe's dont work on any computer.is it my code or is my Plugin bugged?
-Prince Of Darkness
