Das alte Codearchive

Pb NetzwerChatt von ???

Hier ein kleiner Netzwerkchatt für BPlus. Ist schon ellen lange her wo ich den geschreiben habe also nicht über den Code wundern.

[code:1:daa020a549]
Global name$
Global ip$
Global msg1$, msg2$

Print "Host or join a new room?"
Print "Join=1"
Print "Host=2"

ver=Input()

Select ver
Case 1
ip=Input("Ip: ")
ver=JoinNetGame( "Game1", ip )

Select ver
Case 1
status="Connectet! With the name: "+name
Print "Connectet!"
Case 0
Print "Faild!"
End
End Select

Case 2
ver=HostNetGame( "Game1" )

Select ver
Case 2
status="Connectet! With the name: "+name
Print "Connectet!"
Case 0
Print "Faild!"
End
End Select

End Select

window1=CreateWindow("N.c.s. from Mattis Hänel vs.1.0", 190, 10, 527, 320)

menu1=WindowMenu(window1)
file=CreateMenu("File", 0, menu1)

CreateMenu "About", 1, file
CreateMenu "Exit", 2, file

button1=CreateButton("Send Msg", 5, 220, 100, 20, window1, 1)

box1=CreateTextArea(1, 0 , 370, 156, window1)
box2=CreateTextArea(1, 160 , 370, 50, window1)
box3=CreateTextArea(375, 0, 140, 210, window1)

field1=CreateTextField(115, 220, 120, 20, window1)
CreateLabel( "<-Your Nickname!", 240, 223, 120, 22, window1)

SetGadgetText field1, "<unknow>"

Global about$="This is a litle network chat from Mattis Hänel. Vs. 1.0"

UpdateWindowMenu(window1)

While Not id=$803
id=WaitEvent()

If id=$1001 Then
If EventData()=1 Then Notify about
If EventData()=2 Then id=$803
EndIf

name=TextFieldText$(field1)

If id=$401 Then
If EventSource()=button1 Then
If newpl=0 Then
player=CreateNetPlayer(name)
newpl=1
EndIf
newmessage=1
EndIf
EndIf

If newmessage=1
msg2=TextAreaText$(box2)
SetGadgetText box2, ""
SendNetMsg 1, "("+name+") "+msg2, player, 0, 1
AddTextAreaText box1,"("+name+") "+msg2+Chr$(13)+Chr$(10)
newmessage=0
EndIf

If RecvNetMsg()=1 Then
If NetMsgType()=100 Then
AddTextAreaText box1,NetPlayerName$(NetMsgFrom())+" has joined the room!"+Chr$(13)+Chr$(10)
AddTextAreaText box3,NetPlayerName$(NetMsgFrom())+Chr$(13)+Chr$(10)
EndIf
If NetMsgType()<100 Then
msg1=NetMsgData$()
AddTextAreaText box1, msg1+Chr$(13)+Chr$(10)
EndIf
If NetMsgType()=101 Then
AddTextAreaText box1,NetPlayerName$(NetMsgFrom())+" has left the room!"+Chr$(13)+Chr$(10)
EndIf
EndIf
Wend
End
[/code:1:daa020a549]

===

von ???

nett, aber ich nehm lieber net :wink:
(Start - Ausführen - "net conf" :) )

===

von ???

hmm, naja, allein print in b+ ist umständlich :)

ps: kann man irgendwie diese angaben aus der dos box (von start->ausführen->net conf) auslesen? ich bräuchte dringend eine func die mir den pc namen sacht.

===

von ???

du kannst dir die ausgabe der dosbox in eine datei schreiben lassen
befehl parameter >textdatei.txt

===

von ???

aber das geht nur wenn ich das in ne dos box eingeb oder? hmm... ;) das geht bestimmt auch anders den pc oder benutzernamen auszulesen. ich dachte immer das steht irgendwo in ner datei, kann mich aber auch irren 8)

===

von ???

steht auch in umgebungsvariablen
gib mal in dos set ein, da werden alle umgebungsvariablen aufgelistet
und das geht nicht nur in dos, du kannst das auch über exec aufrufen

Suche:
(unterstützt mySQL Wildcards ala %)