[Jonathan Archer]

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]

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 


[/SPOILER]