Jonathan Archer
14-09-2010, 05:17 PM
Grazie all'aiuto di MultiSync 1.4.1 e 3 di giorni di full stress ecco il codice per hostare/partecipare su un server tramite indirizzo ip. Il tutto é stato realizzato dal sottoscritto 
Si ringrazia l'aiutante tester Killerz
[SPOILER][/SPOILER]
Si ringrazia l'aiutante tester Killerz
[SPOILER]
Codice PHP:
Set Window title "Funzione ancora in fase di scelta"
Rem Controlla Windows Firewall
if net firewall enabled()
print "Windows Firewall e' attivo!"
if net firewall application enabled(appname$())
Print "Tuttavia e' gia' nella lista delle eccezioni ;)"
else
Print "E non e' nella lista delle eccezioni :("
endif
else
print "Windows Firewall e' disattivato!"
endif
Print "Premere un tasto per continuare..."
Wait key
Rem Menu di scelta
HostClient:
cls
Rem Scegli host/client
Print "Menu:"
Print
Print "1) Host"
Print "2) Client"
Print
Print "Inserisci un numero>"
Input a
Rem Hosti
if a=1
Set Window title "Ora sei Host!"
cls
Print "Inserisci il tuo ip> "
Input Ip$
Risultato = Net Host (2,Ip$)
If Risultato=1
Print "Server creato. Premi un tasto..."
wait key
cls
else
Print "Server Fallito. Premi un tasto..."
wait key
end
Endif
Repeat
Rem Notifica se qualcuno partecipa
Risultato = Net Player joined()
If Risultato=1
Print "Qualcuno e' entrato nel server!"
Endif
Rem Se esiste un messaggio messaggio in attesa
Risultato = Net Get Message ()
if Risultato=1
Mittente = Net Message From ()
Messaggio$ = Net Get String ()
Print "L'ospite "+str$(Mittente)+" dice: "+Messaggio$
Endif
Until a=a+1
Endif
Rem Partecipi
if a=2
Set Window title "Ora sei Client!"
cls
Input "Inserisci l'ip dell'host> ",Ip$
Risultato = Net Connect (Ip$)
If Risultato=1
Print "Hai partecipato con successo. Premi un tasto..."
wait key
else
Print "Non sei riuscito a partecipare. Premi un tasto..."
wait key
end
Endif
Repeat
Print "Scrivi un messaggio>"
Input Messaggio$
NET PUT STRING (Messaggio$)
Net Send
Until a=a+1
Endif
rem Sbagli numero
if a=1=0 and a=2=0 then goto HostClient
