Probleme mit iscore!!!!

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite Zurück 1, 2

	Jolinah	So, Feb 29, 2004 20:30 Antworten mit Zitat
Also bei mir hats mit der Einstellung geklappt. Und das an bruzards script was nicht richtig ist glaub ich auch nicht... Aber kannst ja mal manuell versuchen. Edit: Also mit diesem Code klappt es 100 pro. Ich hab das jetzt gemacht ohne die Datei zu ändern. Das heisst so wie du es eingestellt hattest: Code: [AUSKLAPPEN] [EINKLAPPEN] s = OpenTCPStream("sven.shells24.de",80) WriteLine s, "GET http://sven.shells24.de/iscore.php?user=Test&score=250" WriteLine s, "" CloseTCPStream(s) End Vielleicht liegts an dem http:// im ersten Parameter. Dafür muss dann im 2. Parameter ein http rein. Versuch mal: Code: [AUSKLAPPEN] [EINKLAPPEN] succ=ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php","?user="+name$+"&score="+Punkte,80)

Jolinah

So, Feb 29, 2004 20:30
Antworten mit Zitat

Also bei mir hats mit der Einstellung geklappt.
Und das an bruzards script was nicht richtig ist glaub ich auch nicht... Aber kannst ja mal manuell versuchen.

Edit:

Also mit diesem Code klappt es 100 pro. Ich hab das jetzt gemacht ohne die Datei zu ändern. Das heisst so wie du es eingestellt hattest:

Code: [AUSKLAPPEN]

s = OpenTCPStream("sven.shells24.de",80)
WriteLine s, "GET http://sven.shells24.de/iscore.php?user=Test&score=250"
WriteLine s, ""
CloseTCPStream(s)

End

Vielleicht liegts an dem http:// im ersten Parameter.
Dafür muss dann im 2. Parameter ein http rein.

Versuch mal:

Code: [AUSKLAPPEN]

succ=ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php","?user="+name$+"&score="+Punkte,80)

	sven123	So, Feb 29, 2004 20:53 Antworten mit Zitat
Ja mit deinem Test Programm Funktionierts!Aber mit meinem code und iscore net.Ich Poste hier jetzt noch mal den Code wo ich iscore eingbunden habe warscheinlich habe ich da den Fehler gemacht.Denn von iscore Lade ich auch mal hoch um es nachzuvollziehen zu können.Bitte kuckt ihn euch noch einmal an Bitte Mein Code in dem iscore eingebunden wird! Code: [AUSKLAPPEN] [EINKLAPPEN] If lifes=-1 Then Cls SetFont font1 If soundstop1=1 Then PlaySound (Losersound) EndIf Color 100,0,0 Text 300,250,"Game Over!!!",1,1 soundstop1=0 If punkteübertragen=1 And Punkte>20 Then Locate 0,0 SetFont font name$ = Trim(Input("Dein Name:")) succ=ShareScore("http://sven.shells24.de","iscore.php","?user="+name$+"&score="+Punkte,80) punkteübertragen=0 EndIf datei=OpenFile("Hightscore.dat") WriteLine datei,Punkte CloseFile datei If KeyDown(57) Then Goto marke FreeFont font FreeFont font1 FreeImage balck FreeSound Losersound FreeSound Gewinnsound FreeImage Pbloecke FreeImage Pbloecke1 FreeImage Pbloecke2 FreeImage Pbloecke3 FreeImage Siegbild FreeImage Siegbild2 FreeImage Umrandung FreeImage spieler FreeImage spieler1 FreeImage spieler2 FreeImage box FreeImage ball FreeImage lava FreeImage lifecoins FreeImage Backgroundimage FreeImage Titel FreeImage hinternisse1 FreeSound Plop FreeImage MehrLebenBlock FreeImage ExtraText FreeImage ExtraText1 FreeImage ExtraText2 FreeImage ExtraText3 EndIf EndIf Und hier noch einmal der iscore code Code: [AUSKLAPPEN] [EINKLAPPEN] Type OnlineScore Field name$ Field score End Type Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte. 'in shâ'a llâh=so Gott will Fertiges Projekt:Invasion der Heuschrecken

sven123

So, Feb 29, 2004 20:53
Antworten mit Zitat

Ja mit deinem Test Programm Funktionierts!Aber mit meinem code und iscore net.Ich Poste hier jetzt noch mal den Code wo ich iscore eingbunden habe warscheinlich habe ich da den Fehler gemacht.Denn von iscore Lade ich auch mal hoch um es nachzuvollziehen zu können.Bitte kuckt ihn euch noch einmal an Bitte
Mein Code in dem iscore eingebunden wird!
Code: [AUSKLAPPEN]

If lifes=-1 Then
Cls
SetFont font1
If soundstop1=1 Then
PlaySound (Losersound)
EndIf
Color 100,0,0
Text 300,250,"Game Over!!!",1,1
soundstop1=0
If punkteübertragen=1 And Punkte>20 Then
Locate 0,0
SetFont font
name$ = Trim(Input("Dein Name:"))
succ=ShareScore("http://sven.shells24.de","iscore.php","?user="+name$+"&score="+Punkte,80)
punkteübertragen=0
EndIf
datei=OpenFile("Hightscore.dat")
WriteLine datei,Punkte
CloseFile datei
If KeyDown(57) Then
Goto marke
FreeFont font
FreeFont font1
FreeImage balck
FreeSound Losersound
FreeSound Gewinnsound
FreeImage Pbloecke
FreeImage Pbloecke1
FreeImage Pbloecke2
FreeImage Pbloecke3
FreeImage Siegbild
FreeImage Siegbild2
FreeImage Umrandung
FreeImage spieler
FreeImage spieler1
FreeImage spieler2
FreeImage box
FreeImage ball
FreeImage lava
FreeImage lifecoins
FreeImage Backgroundimage
FreeImage Titel
FreeImage hinternisse1
FreeSound Plop
FreeImage MehrLebenBlock
FreeImage ExtraText
FreeImage ExtraText1
FreeImage ExtraText2
FreeImage ExtraText3
EndIf
EndIf

Und hier noch einmal der iscore code
Code: [AUSKLAPPEN]

Type OnlineScore
Field name$
Field score
End Type

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
   req$=script$+par$
   ; Request an das Serverscript schicken
   WriteLine is_online,"GET /"+req$+" HTTP/1.1"
   WriteLine is_online,"Host: "+url$
   WriteLine is_online,"User-Agent: score"
   WriteLine is_online,"Accept: */*"
   WriteLine is_online,""
   ; Daten empfangen
   Repeat
      ; Jetzt wird der Header überlesen
      trash$=Trim(ReadLine(is_online))
   Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
   ; Score lesen
   Repeat
      in1$=Trim(ReadLine(is_online))
      in2$=Trim(ReadLine(is_online))
      If Left(in1$,5)<>"[END]"
         score.OnlineScore=New OnlineScore
         score\name$=in1$
         score\score=Int(in2$)
   EndIf
   Until Left(in1$,5)="[END]" Or Eof(is_online)
   CloseTCPStream is_online
   Return 1
Else
   Return 0
EndIf
End Function

Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

	Jolinah	So, Feb 29, 2004 20:59 Antworten mit Zitat
Nimm mal im iscore code bei GET am ende das HTTP/1.1 weg.. Ist seltsam.. aber wo ich bei meinem Code das HTTP/1.1 hinzugefügt habe gings nicht mehr. Ohne das geht es.. ka ^^ Und wenns immer noch nicht geht nimm die anderen Zeilen einfach auch weg, ausser die letzte leere zeile "". Wenns dann immer noch nicht geht pass halt die Funktion einfach an, so ähnlich wie mein Code oben nur halt mit den Funktions variablen. Edit zum zweiten: (sorry für das viele edit ) Code: [AUSKLAPPEN] [EINKLAPPEN] Type OnlineScore Field name$ Field score End Type Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET "+req$ WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php", "?user=Joli&score=200",80) Delete Each OnlineScore End

Jolinah

So, Feb 29, 2004 20:59
Antworten mit Zitat

Nimm mal im iscore code bei GET am ende das HTTP/1.1 weg..
Ist seltsam.. aber wo ich bei meinem Code das HTTP/1.1 hinzugefügt habe gings nicht mehr. Ohne das geht es.. ka ^^

Und wenns immer noch nicht geht nimm die anderen Zeilen einfach auch weg, ausser die letzte leere zeile "". Wenns dann immer noch nicht geht pass halt die Funktion einfach an, so ähnlich wie mein Code oben nur halt mit den Funktions variablen.

Edit zum zweiten: (sorry für das viele edit Razz

)

Code: [AUSKLAPPEN]

Type OnlineScore
Field name$
Field score
End Type

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,"GET "+req$
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
score.OnlineScore=New OnlineScore
score\name$=in1$
score\score=Int(in2$)
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php", "?user=Joli&score=200",80)

Delete Each OnlineScore

End

	sven123	So, Feb 29, 2004 22:21 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Type OnlineScore Field name$ Field score End Type Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php", "?user=Joli&score=200",80) Delete Each OnlineScore End Meinst du so
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte. 'in shâ'a llâh=so Gott will Fertiges Projekt:Invasion der Heuschrecken

sven123

So, Feb 29, 2004 22:21
Antworten mit Zitat

Code: [AUSKLAPPEN]

Type OnlineScore
Field name$
Field score
End Type

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
score.OnlineScore=New OnlineScore
score\name$=in1$
score\score=Int(in2$)
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php", "?user=Joli&score=200",80)

Delete Each OnlineScore

End

Meinst du so

Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

	sven123	So, Feb 29, 2004 22:25 Antworten mit Zitat
Ich passe jetzt mal deinen Code an Code: [AUSKLAPPEN] [EINKLAPPEN] s = OpenTCPStream("sven.shells24.de",80) WriteLine s, "GET http://sven.shells24.de/iscore.php?user"= name&Punkte WriteLine s, "" CloseTCPStream(s) End stimmt des oder wie sonst. Punkte ist der Punktestand gespeichert in name der Name ok.
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte. 'in shâ'a llâh=so Gott will Fertiges Projekt:Invasion der Heuschrecken

sven123

So, Feb 29, 2004 22:25
Antworten mit Zitat

Ich passe jetzt mal deinen Code an
Code: [AUSKLAPPEN]

s = OpenTCPStream("sven.shells24.de",80)
WriteLine s, "GET http://sven.shells24.de/iscore.php?user"= name&Punkte
WriteLine s, ""
CloseTCPStream(s)

End

stimmt des oder wie sonst.
Punkte ist der Punktestand gespeichert in name der Name ok. Laughing

Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

	Jolinah	So, Feb 29, 2004 22:38 Antworten mit Zitat
Nimm den oberen Code Mein Code gibt dir den Punktestand nicht zurück. Bruzards Code (auch der abgeänderte) speichert die Rangliste per OnlineScore Type. Schön sortiert in der Richtigen reihenfolge. Dann kannst du nur noch: Code: [AUSKLAPPEN] [EINKLAPPEN] For o.OnlineScore = each OnlineScore Print o\name$ + " " + o\score ;Oder statt Print eben was eigenes Next machen um die aktuelle Rangliste auszugeben. Edit: PS: Strings verbinden mit + Code: [AUSKLAPPEN] [EINKLAPPEN] Writebyte s, "GET http://sven.shells24.de/iscore.php?user=" + name$ + "&score=" + punkte$

Jolinah

So, Feb 29, 2004 22:38
Antworten mit Zitat

Nimm den oberen Code Smile

Mein Code gibt dir den Punktestand nicht zurück. Bruzards Code (auch der abgeänderte) speichert die Rangliste per OnlineScore Type. Schön sortiert in der Richtigen reihenfolge.

Dann kannst du nur noch:

Code: [AUSKLAPPEN]

For o.OnlineScore = each OnlineScore
Print o\name$ + " " + o\score ;Oder statt Print eben was eigenes
Next

machen um die aktuelle Rangliste auszugeben.

Edit:
PS: Strings verbinden mit + Wink

Code: [AUSKLAPPEN]

Writebyte s, "GET http://sven.shells24.de/iscore.php?user=" + name$ + "&score=" + punkte$

	sven123	So, Feb 29, 2004 23:08 Antworten mit Zitat
Also hane ich denn iscore Code richtig abgändert!
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte. 'in shâ'a llâh=so Gott will Fertiges Projekt:Invasion der Heuschrecken

sven123

So, Feb 29, 2004 23:08
Antworten mit Zitat

Also hane ich denn iscore Code richtig abgändert!

Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

	sven123	So, Feb 29, 2004 23:18 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] s = OpenTCPStream("sven.shells24.de",80) WriteLine s, "GET http://sven.shells24.de/iscore.php?user="+name$+"&score="Punkte WriteLine s, "" CloseTCPStream(s) End Wenn ich diesen code eingebe sagt er Function not found.
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte. 'in shâ'a llâh=so Gott will Fertiges Projekt:Invasion der Heuschrecken

sven123

So, Feb 29, 2004 23:18
Antworten mit Zitat

Code: [AUSKLAPPEN]

s = OpenTCPStream("sven.shells24.de",80)
WriteLine s, "GET http://sven.shells24.de/iscore.php?user="+name$+"&score="Punkte
WriteLine s, ""
CloseTCPStream(s)
End

Wenn ich diesen code eingebe sagt er Function not found.

Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

	Jolinah	So, Feb 29, 2004 23:25 Antworten mit Zitat
Um mich ganz klar auszudrücken: Wahrscheinlich iscore.bb oder wie die halt eben heisst: Code: [AUSKLAPPEN] [EINKLAPPEN] ;iscore.bb Type OnlineScore Field name$ Field score End Type Function ShareScore(url$,script$,par$,port) Print "Verbinde mit "+url$ is_online=OpenTCPStream(url$,port) If is_online req$=script$+par$ ; Request an das Serverscript schicken WriteLine is_online,"GET "+req$ WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; Score lesen Repeat in1$=Trim(ReadLine(is_online)) in2$=Trim(ReadLine(is_online)) If Left(in1$,5)<>"[END]" score.OnlineScore=New OnlineScore score\name$=in1$ score\score=Int(in2$) EndIf Until Left(in1$,5)="[END]" Or Eof(is_online) CloseTCPStream is_online Return 1 Else Return 0 EndIf End Function Und nun dein Spiel: Code: [AUSKLAPPEN] [EINKLAPPEN] ;... irgendwo im code an passender stelle halt.... Include "iscore.bb" .... ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php", "?user=" + name$ + "&score=" + punkte, 80)

Jolinah

So, Feb 29, 2004 23:25
Antworten mit Zitat

Um mich ganz klar auszudrücken:

Wahrscheinlich iscore.bb oder wie die halt eben heisst:
Code: [AUSKLAPPEN]

;iscore.bb
Type OnlineScore
Field name$
Field score
End Type

Function ShareScore(url$,script$,par$,port)
Print "Verbinde mit "+url$
is_online=OpenTCPStream(url$,port)
If is_online
req$=script$+par$
; Request an das Serverscript schicken
WriteLine is_online,"GET "+req$
WriteLine is_online,""
; Daten empfangen
Repeat
; Jetzt wird der Header überlesen
trash$=Trim(ReadLine(is_online))
Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
; Score lesen
Repeat
in1$=Trim(ReadLine(is_online))
in2$=Trim(ReadLine(is_online))
If Left(in1$,5)<>"[END]"
score.OnlineScore=New OnlineScore
score\name$=in1$
score\score=Int(in2$)
EndIf
Until Left(in1$,5)="[END]" Or Eof(is_online)
CloseTCPStream is_online
Return 1
Else
Return 0
EndIf
End Function

Und nun dein Spiel:
Code: [AUSKLAPPEN]

;... irgendwo im code an passender stelle halt....

Include "iscore.bb"

....

ShareScore("sven.shells24.de","http://sven.shells24.de/iscore.php", "?user=" + name$ + "&score=" + punkte, 80)

	sven123	Mo, März 01, 2004 17:45 Antworten mit Zitat
Danke für deine geduld es funtzt.
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte. 'in shâ'a llâh=so Gott will Fertiges Projekt:Invasion der Heuschrecken

sven123

Mo, März 01, 2004 17:45
Antworten mit Zitat

Danke für deine geduld es funtzt. Laughing

Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

Gehe zu Seite Zurück 1, 2

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Probleme mit iscore!!!!