direktplay chat problem

Übersicht

BlitzBasic

Allgemein

	polle Betreff: direktplay chat problem	Do, Jul 21, 2005 19:42 Antworten mit Zitat
erstmal hallo hier(bin neu) hab heut mal wieder BB rausgekramt und mich n bisl mit direktplay beschäftigt und dabei hab ich versucht ein kleines direktplay chat proggi zu machn.. aber wie zu erwarten war hats nicht gefunzt.. hier mal mein source: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] [code ;spielerdaten sammeln und auswerten was der spieler machen will spielername$=Input(\"wie heißt du? \") channel$=Input(\"wie soll der zu benutzende channel heißen? \") Print \"\" Print \"ja=1;nein=0\" hostja$=Input(\"willst du der host des spieles sein? \") Print\"\" If hostja=1 Then Gosub hostgame Else End EndIf ;netzwerkspiel hosten .hostgame endlos=1 Cls spiel = HostNetGame(channel$) spieler=CreateNetPlayer(spielername$) If spieler=0 Then nachricht=200 Print\"wilkommen im billig >bettel.net< ^^\" While endlos1=1 If KeyDown=1 Then End nachricht = NetMsgType() If nachricht=200 Then Print\"Error programm mus beendet werden!!\" And End If nachricht=100 Then Print\"new player\" If nachricht=101 Then Print\"player left\" If nachricht>0 And nachricht<100 Then nachrichtt$ = NetMsgData$() anderer=NetMsgFrom() anderer_name$=NetPlayerName$(anderer) SendNetMsg nachricht, nachrichtt$,spieler,anderer,1 ;alles sichtbare hierher: Print anderer_name$+\": \"+nachrichtt$ Wend End so ich weiß das das ganze voll gaga is aber will des irgendwie hinbekommen und n paar denkanstöße wären echt hilfreich mfg da polla

polle

Betreff: direktplay chat problem

Do, Jul 21, 2005 19:42
Antworten mit Zitat

erstmal hallo hier(bin neu) hab heut mal wieder BB rausgekramt und mich n bisl mit direktplay beschäftigt und dabei hab ich versucht ein kleines direktplay chat proggi zu machn.. aber wie zu erwarten war hats nicht gefunzt.. hier mal mein source:

BlitzBasic: [AUSKLAPPEN]

[code ;spielerdaten sammeln und auswerten was der spieler machen will
spielername$=Input(\"wie heißt du? \")
channel$=Input(\"wie soll der zu benutzende channel heißen? \")
Print \"\"
Print \"ja=1;nein=0\"
hostja$=Input(\"willst du der host des spieles sein? \")
Print\"\"

If hostja=1 Then
Gosub hostgame
Else
End
EndIf 


;netzwerkspiel hosten
.hostgame
endlos=1
Cls
spiel = HostNetGame(channel$)
spieler=CreateNetPlayer(spielername$)
If spieler=0 Then nachricht=200
Print\"wilkommen im billig >bettel.net< ^^\"
While endlos1=1
If KeyDown=1 Then End
nachricht = NetMsgType()
If nachricht=200 Then Print\"Error programm mus beendet werden!!\" And End
If nachricht=100 Then Print\"new player\"
If nachricht=101 Then Print\"player left\"
If nachricht>0 And nachricht<100 Then nachrichtt$ = NetMsgData$()
anderer=NetMsgFrom()
anderer_name$=NetPlayerName$(anderer)
SendNetMsg nachricht, nachrichtt$,spieler,anderer,1
;alles sichtbare hierher:
Print anderer_name$+\":  \"+nachrichtt$
Wend
End

so ich weiß das das ganze voll gaga is aber will des irgendwie hinbekommen und n paar denkanstöße wären echt hilfreich

mfg da polla

	Smokie	So, Jul 24, 2005 20:57 Antworten mit Zitat
Hi, Also dein Code verwirrt mich aber ich glaube was gefunden zu haben 8) Du hast eine Varaiable endlos die Variable hat den Wert 1 und an der Stelle: Code: [AUSKLAPPEN] [EINKLAPPEN] While endlos1=1 steht wie gesagt endlos1 = 1 KA obs geht wenn du die 1 weg machst. MFG Smokie
M-Soft Studios Mit selbst gemachtem Forum!!! Unbequem lebt's sich schwer. Musik macht erst Spaß, wenn man sie mit 2,8 facher Geschwindigkeit hört Zuletzt bearbeitet von Smokie am Fr Jan 01, 1888 51:58 PM, insgesamt 1000-mal bearbeitet

Smokie

So, Jul 24, 2005 20:57
Antworten mit Zitat

Hi,

Also dein Code verwirrt mich aber ich glaube was gefunden zu haben 8)

Du hast eine Varaiable endlos die Variable hat den Wert 1 und an der Stelle:
Code: [AUSKLAPPEN]

While endlos1=1

steht wie gesagt endlos1 = 1 KA obs geht wenn du die 1 weg machst.
MFG
Smokie

M-Soft Studios Mit selbst gemachtem Forum!!!
Unbequem lebt's sich schwer.
Musik macht erst Spaß, wenn man sie mit 2,8 facher Geschwindigkeit hört
Zuletzt bearbeitet von Smokie am Fr Jan 01, 1888 51:58 PM, insgesamt 1000-mal bearbeitet

	Sebastian Betreff: Re: direktplay chat problem	Mo, Jul 25, 2005 13:20 Antworten mit Zitat
polle hat Folgendes geschrieben: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If nachricht=200 Then Print\"Error programm mus beendet werden!!\" And End And End ???? Wenn schon : BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If nachricht=200 Then Print\"Error programm mus beendet werden!!\" End EndIf
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !

Sebastian

Betreff: Re: direktplay chat problem

Mo, Jul 25, 2005 13:20
Antworten mit Zitat

polle hat Folgendes geschrieben:

BlitzBasic: [AUSKLAPPEN]


If nachricht=200 Then Print\"Error programm mus beendet werden!!\" And End

And End ????

Wenn schon :

BlitzBasic: [AUSKLAPPEN]


If nachricht=200 Then 
Print\"Error programm mus beendet werden!!\"
End
EndIf

Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf !