Snake

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

sami

Betreff: Snake

 BeitragSo, März 21, 2004 16:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Hier ist nochmal was von mir: ein kleiner Snake-Klon


BlitzBasic: [AUSKLAPPEN] 
Type frag
Field x
Field y
Field life
Field maxlife
End Type

Type food
Field x
Field y
End Type


Graphics 200,150,32,2
SetBuffer BackBuffer()

Global x=40
Global y=40
Global dir=0
Global food=0
Global life=2
t=CreateTimer(24)
newfood()
font=LoadFont("fixedsys",20,False,False,False)
SetFont font
Text 0,40,"SNAKE"
Delay 750
FreeFont font
While Not KeyHit(1)

Cls
Text 0,0,food
If Not dir=0
createfrag()
EndIf 
ClsColor 255,255,255

updatefood()
update()
If KeyHit(200)
If Not dir=4
dir=1
EndIf
EndIf
If KeyHit(203)
If Not dir=3
dir=2
EndIf
EndIf
If KeyHit(205)
If Not dir=2
dir=3
EndIf 
EndIf
If KeyHit(208)
If Not dir=1
dir=4
EndIf
EndIf

If dir=1 Then y=y-4
If dir=2 Then x=x-4
If dir=3 Then x=x+4
If dir=4 Then y=y+4
Color 0,0,0
Rect x,y,4,4
If x<0 Then x=200
If x>200 Then x=0
If y<0 Then y=150
If y>150 Then y=0
WaitTimer(t)
Flip
HidePointer 
Wend
End



Function createfrag()
frag.frag=New frag
If dir=1
frag\y=y+4
frag\x=x
EndIf
If dir=2
frag\y=y
frag\x=x+4
EndIf
If dir=3
frag\y=y
frag\x=x-4
EndIf
If dir=4
frag\y=y-4
frag\x=x
EndIf
frag\life=0


End Function


Function update()
For frag.frag=Each frag
Color 0,0,0
Rect frag\x,frag\y,4,4
If RectsOverlap(x,y,4,4,frag\x,frag\y,4,4)
life=0
food=0
EndIf
frag\life=frag\life+1
If frag\life>food*2 Then Delete frag
If life=0

Delay 500
End
EndIf
Next
End Function

Function newfood()
f.food=New food
f\x=Rand(50)*4
f\y=Rand(37.5)*4

End Function

Function updatefood()
For f.food=Each food


Color 0,0,0
Rect f\x,f\y,4,4

If RectsOverlap(x,y,4,4,f\x,f\y,4,4)=True
Delete f
food=food+1
newfood()
EndIf
Next
End Function

Travis

 BeitragSo, März 21, 2004 16:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Hmm, naja. Das könnte man noch etwas aufwerten, indem man die Farben z.B. im Nokis-Style wählt! Und einige Hindernisse wären wohl auch nicht verkehrt. Ansonsten sehr effizient Wink

EDIT:
Man hat ja sonst nix zu tun:

BlitzBasic: [AUSKLAPPEN] 

Graphics 350,350,16,2
AppTitle "Snake 2"

Type Food
 Field x, y
End Type

Type Snake
 Field x, y
End Type

Type Block
 Field x, y
End Type

SeedRnd MilliSecs()

Font1 = LoadFont("Verdana", 24, 0,0,0) 


lang = 5
speed = 0
x = 30
y = 160
m = 6

zx = Rnd(10,330)
zy = Rnd(10,310)
zx = zx-(zx Mod 10)
zy = zy-(zy Mod 10)


; --- Level erstellen ---
For xx = 60 To 280 Step 10
b.block = New block
b\x = xx
b\y = 100

b.block = New block
b\x = xx
b\y = 220
Next
; --- Level erstellen ---



; --- Foodimage erstellen ---
FoodGfx = CreateImage(9,9)
SetBuffer ImageBuffer(FoodGfx)

ClsColor 255,0,255
Cls

Color 0,0,0
Rect 3,0,3,3
Rect 0,3,3,3
Rect 6,3,3,3
Rect 3,6,3,3

MaskImage FoodGfx, 255,0,255
SetBuffer BackBuffer()
; --- Foodimage erstellen ---



; --- Beginn der Hauptschleife ---
Repeat
ClsColor 156,207,156
Cls


If KeyHit(200) And m <> 2 Then m=8 
If KeyHit(208) And m <> 8 Then m=2 
If KeyHit(203) And m <> 6 Then m=4 
If KeyHit(205) And m <> 4 Then m=6 

If m = 8 Then y = y - 10
If m = 2 Then y = y + 10
If m = 4 Then x = x - 10
If m = 6 Then x = x + 10

If x > 330 Then x = 10 
If x < 10 Then X = 330
If y > 310 Then y = 10 
If y < 10 Then y = 310


; Kollisionsabfragen
; Schlange
For s.snake = Each snake
 If x = s\x And y = s\y Then 
  Locate 100,120: Print "G A M E  O V E R" 
  FlushKeys: WaitKey: End
 EndIf
Next

; Level
For b.block = Each block 
 If x = b\x And y = b\y Then 
  Locate 100,120: Print "G A M E  O V E R" 
  FlushKeys: WaitKey: End
 EndIf
Next

; Ziel
If x = zx And y = zy Then
 lang = lang + 10
 Punkte = Punkte + 9
 zx = Rnd(10,330)
 zy = Rnd(10,310)
 zx = zx-(zx Mod 10)
 zy = zy-(zy Mod 10)
EndIf

; Schlangenteil erstellen
s.snake = New snake
s\x = x 
s\y = y
n = n + 1

; Letzten Teile löschen
If n > lang Then
 s.snake = First snake
 Delete s
 n = n - 1
EndIf


; --- Darstellung ---
SetFont font1
Text 10, 325, "Punkte: " + Punkte

; Rahmen
Rect 10,10, 330,310,0

; Schlange
For s.snake = Each snake
 Rect s\x, s\y, 9, 9
Next

; Ziel
DrawImage FoodGfx, zx, zy

; Hindernisse
For b.block = Each block
 Rect b\x, b\y, 11, 11
Next
; --- Darstellung ---


Delay 100 - Speed

Flip
Until KeyHit(1)
End
; --- Ende der Hauptschleife ---
www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.
 

Ensign Joe

 BeitragMi, März 24, 2004 20:27
Antworten mit Zitat
Benutzer-Profile anzeigen
Damit es etwas einfacher zu koordinieren ist:

(eine Verbesserung der Version von Travis)

BlitzBasic: [AUSKLAPPEN] 
Graphics 350,350,16,2 
AppTitle "Snake 2" 

Type Food 
Field x, y 
End Type 

Type Snake 
Field x, y 
End Type 

Type Block 
Field x, y 
End Type 

SeedRnd MilliSecs() 

Font1 = LoadFont("Verdana", 24, 0,0,0) 


lang = 5 
speed = 0 
x = 30 
y = 160 
m = 6 

zx = Rnd(10,330) 
zy = Rnd(10,310) 
zx = zx-(zx Mod 10) 
zy = zy-(zy Mod 10) 


; --- Level erstellen --- 
For xx = 60 To 280 Step 10 
b.block = New block 
b\x = xx 
b\y = 100 

b.block = New block 
b\x = xx 
b\y = 220 
Next 
; --- Level erstellen --- 



; --- Foodimage erstellen --- 
FoodGfx = CreateImage(9,9) 
SetBuffer ImageBuffer(FoodGfx) 

ClsColor 255,0,255 
Cls 

Color 0,0,0 
Rect 3,0,3,3 
Rect 0,3,3,3 
Rect 6,3,3,3 
Rect 3,6,3,3 

MaskImage FoodGfx, 255,0,255 
SetBuffer BackBuffer() 
; --- Foodimage erstellen --- 


;n = 5

; --- Beginn der Hauptschleife --- 
Repeat 
ClsColor 156,207,156 
Cls 


If KeyHit(200) And m <> 2 Then m=8 
If KeyHit(208) And m <> 8 Then m=2 
If KeyHit(203) And m <> 6 Then m=4 
If KeyHit(205) And m <> 4 Then m=6 

If m = 8 Then y = y - 10 
If m = 2 Then y = y + 10 
If m = 4 Then x = x - 10 
If m = 6 Then x = x + 10 

If x > 330 Then x = 10 
If x < 10 Then X = 330 
If y > 310 Then y = 10 
If y < 10 Then y = 310 


; Kollisionsabfragen 
; Schlange 
For s.snake = Each snake 
If x = s\x And y = s\y Then 
Locate 100,120: Print "G A M E   O V E R ! ! !" 
FlushKeys: WaitKey: End 
EndIf 
Next 

; Level 
For b.block = Each block 
If x = b\x And y = b\y Then 
Locate 100,120: Print "G A M E   O V E R ! ! !" 
FlushKeys: WaitKey: End 
EndIf 
Next 

; Ziel 
If x = zx And y = zy Then 
lang = lang + 10 
Punkte = Punkte + 9 
zx = Rnd(10,330) 
zy = Rnd(10,310) 
zx = zx-(zx Mod 10) 
zy = zy-(zy Mod 10) 
EndIf 

; Schlangenteil erstellen 
s.snake = New snake 
s\x = x 
s\y = y 
n = n + 1 

; Letzten Teile löschen 
If n > lang Then 
s.snake = First snake 
Delete s 
n = n - 1 
EndIf 


; --- Darstellung --- 
Color 255,255,255
For xfor = -2 To 350 Step + 9
For yfor = -2 To 400 Step + 9
	Rect xfor,yfor,9 + 1,9+ 1,0
Next
Next
Color 0,0,0

SetFont font1 
Text 10, 325, "Punkte: " + Punkte 

; Rahmen 
Rect 10,10, 330,310,0 

; Schlange 
For s.snake = Each snake 
Rect s\x, s\y, 9, 9 
Next 

; Ziel 
DrawImage FoodGfx, zx, zy 

; Hindernisse 
For b.block = Each block 
Rect b\x, b\y, 11, 11 
Next 
; --- Darstellung --- 


Delay 100 - Speed 

Flip 
Until KeyHit(1) 
End 
; --- Ende der Hauptschleife ---

Travis

 BeitragMi, März 24, 2004 23:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Mit Gitter? Ich habe das Spiel jetzt übrigens fertiggestellt, komplett mit Menü und 4 verschiedenen Levels. Ist auf meiner Homepage! Wenn man im Spiel F1 drückt, wird auch ein Gitter angezeigt.

www.dangames.de.vu
www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.
 

lettorTrepuS

 BeitragSo, März 28, 2004 14:14
Antworten mit Zitat
Benutzer-Profile anzeigen
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

Hacky

 BeitragSo, Apr 04, 2004 12:38
Antworten mit Zitat
Benutzer-Profile anzeigen
Nochmal zum Original: War ganz gut, aber verschiedene Schwierigkeitsgrade währen nicht schlecht:

BlitzBasic: [AUSKLAPPEN] 

Type frag 
Field x 
Field y 
Field life 
Field maxlife 
End Type 

Type food 
Field x 
Field y 
End Type 


Graphics 200,150,32,2 
SetBuffer BackBuffer() 

Global x=40 
Global y=40 
Global dir=0 
Global food=0 
Global life=2 
Global a = Input("Geschwindigkeit(1-10):")
t=CreateTimer(a*10) 
newfood() 
font=LoadFont("fixedsys",20,False,False,False) 
SetFont font 
Text 0,40,"SNAKE" 
Delay 750 
FreeFont font 
While Not KeyHit(1) 

Cls 
Text 0,0,food 
If Not dir=0 
createfrag() 
EndIf 
ClsColor 255,255,255 

updatefood() 
update() 
If KeyHit(200) 
If Not dir=4 
dir=1 
EndIf 
EndIf 
If KeyHit(203) 
If Not dir=3 
dir=2 
EndIf 
EndIf 
If KeyHit(205) 
If Not dir=2 
dir=3 
EndIf 
EndIf 
If KeyHit(208) 
If Not dir=1 
dir=4 
EndIf 
EndIf 

If dir=1 Then y=y-4 
If dir=2 Then x=x-4 
If dir=3 Then x=x+4 
If dir=4 Then y=y+4 
Color 0,0,0 
Rect x,y,4,4 
If x<0 Then x=200 
If x>200 Then x=0 
If y<0 Then y=150 
If y>150 Then y=0 
WaitTimer(t) 
Flip 
HidePointer 
Wend 
End 



Function createfrag() 
frag.frag=New frag 
If dir=1 
frag\y=y+4 
frag\x=x 
EndIf 
If dir=2 
frag\y=y 
frag\x=x+4 
EndIf 
If dir=3 
frag\y=y 
frag\x=x-4 
EndIf 
If dir=4 
frag\y=y-4 
frag\x=x 
EndIf 
frag\life=0 


End Function 


Function update() 
For frag.frag=Each frag 
Color 0,0,0 
Rect frag\x,frag\y,4,4 
If RectsOverlap(x,y,4,4,frag\x,frag\y,4,4) 
life=0 
food=0 
EndIf 
frag\life=frag\life+1 
If frag\life>food*2 Then Delete frag 
If life=0 

Delay 500 
End 
EndIf 
Next 
End Function 

Function newfood() 
f.food=New food 
f\x=Rand(50)*4 
f\y=Rand(37.5)*4 

End Function 

Function updatefood() 
For f.food=Each food 


Color 0,0,0 
Rect f\x,f\y,4,4 

If RectsOverlap(x,y,4,4,f\x,f\y,4,4)=True 
Delete f 
food=food+1 
newfood() 
EndIf 
Next 
End Function
www.tidosoft.de.vu <-- Besuch uns!!

TheProgrammer

 BeitragMi, Apr 28, 2004 20:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Mein Snake:

BlitzBasic: [AUSKLAPPEN] 
Graphics 320,240,16,2
SetBuffer BackBuffer()
AppTitle "Snake - Clon (der 1.676.356 ste)"
SeedRnd = MilliSecs()

Dim map(31,23),count(31,23)

Global oben = 1,unten = 2,links = 3,rechts = 4
tiles = 5

geschwindigkeit# = 0.13 ; Geschwindigkeit in sek (es dauert eine Sekunde,
                       ; bis sich sie Schlange bewegt)
Restore daten
For Y = 0 To 23
 For X = 0 To 31
  Read map(X,Y)
  If map(X,Y) = 1 Then xpos = x : ypos = y : map(X,Y) = 0
 Next
Next

.nochmal1
tileX = Rnd(0,31)
tileY = Rnd(0,31)
For Y = 0 To 23
 For X = 0 To 31
  If tileX = X And tileY = Y Then 
   If map(X,Y) <> 0 Then Goto nochmal1
  EndIf 
 Next
Next

richtung = oben

Color 255,0,0
For I = -3 To 0
 Cls
 Text 160,120,-I,1,1
 Flip
 Delay 1000
Next

Repeat

 If KeyDown(200) Then richtung = oben
 If KeyDown(208) Then richtung = unten
 If KeyDown(203) Then richtung = links
 If KeyDown(205) Then richtung = rechts

 ; Timer
 If MilliSecs()-Timer => geschwindigkeit#*1000 Then
  sek = sek + 1
  timer = MilliSecs()
 EndIf 
 ; ***

 If sek2 <> sek Then
  sek2 = sek
  Cls

  Color 0,0,255
  Rect tileX*10,tileY*10,10,10,1

  Select richtung
  Case oben
   ypos = ypos - 1
  Case unten
   ypos = ypos + 1
  Case links
   xpos = xpos - 1
  Case rechts
   xpos = xpos + 1
  End Select

  If map(xpos,ypos) = 1 Then gameover
  If map(xpos,ypos) = 2 Then gameover
  If tiles = 50 Then gameover
  If KeyHit(1) Then gameover

  If xpos = tileX And ypos = tileY Then 
   tiles = tiles + 1

   plus = (100-schritt)
   If plus > 0 Then punkte = punkte + plus
   schritt = 0

  .nochmal2
  tileX = Rnd(0,31)
  tileY = Rnd(0,23)
  For Y = 0 To 23
   For X = 0 To 31
    If tileX = X And tileY = Y Then 
     If map(X,Y) <> 0 Then Goto nochmal2
    EndIf 
   Next
  Next

  EndIf 

  For Y = 0 To 23
   For X = 0 To 31
    If x = xpos And y = ypos Then map(X,Y) = 1
    If map(X,Y) = 1 Then
     Color 255,255,255
     Rect x*10,y*10,10,10,1
     count(X,Y) = count(X,Y) + 1
     If count(X,Y) = tiles Then 
      map(X,Y) = 0 
      count(X,Y) = 0
     EndIf 
    EndIf 
    If map(X,Y) = 2 Then
     Color 100,100,100
     Rect x*10,y*10,10,10,1
    EndIf 
   Next
  Next

  Color 255,0,0
  Text 0,0,"Punkte: "+punkte
  schritt = schritt + 1

 EndIf 

 Flip
Forever 

Function gameover()

	timer = MilliSecs()
	Color 255,0,0
	Cls
	Text 160,120,"Game Over",1,1
	Flip
	Repeat
	 If MilliSecs()-timer => 3000 Then Exit
	Forever
	End

End Function

; Daten

.daten
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
aktuelles Projekt: The last day of human being

regaa

 BeitragMi, Apr 28, 2004 20:36
Antworten mit Zitat
Benutzer-Profile anzeigen
löl, so langsam wird das hier zum Snake Contest Laughing
UltraMixer Professional 3 - Download
QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

Kryan

 BeitragDi, Mai 04, 2004 17:48
Antworten mit Zitat
Benutzer-Profile anzeigen
meins darf auch nicht fehlen:::

BlitzBasic: [AUSKLAPPEN] 

Type snakepart
 Field x
 Field y
 Field colour
End Type
Type Hindernis
 Field x
 Field y
 Field width
 Field height
End Type
Global foodx
Global foody
Global foodcounting=Input("Food-Stärke erhöhen? (0 für nein und 1 für ja)")
Global foodcount=1
Global xwidth
Global ywidth
Read xwidth
Read ywidth
Global points
Graphics xwidth,ywidth,32,2
SeedRnd MilliSecs()
SetBuffer BackBuffer()
speed=2
ClsColor 0,0,255
Global dir=5
Global hx
Global hy
CreateFood()
LoadHindernis()
Repeat
 Cls
 If KeyHit(208) And dir<>0 Then dir=8;;Unten
 If KeyHit(200) And dir<>8 Then dir=0;;Oben
 If KeyHit(203) And dir<>5 Then dir=3;;LInks
 If KeyHit(205) And dir<>3 Then dir=5;;Rechts
 If dir=8 Then hy=hy+speed
 If dir=0 Then hy=hy-speed
 If dir=3 Then hx=hx-speed
 If dir=5 Then hx=hx+speed
 If hx>xwidth-10 Then hx=hx-xwidth
 If hx<-10 Then hx=hx+xwidth
 If hy>ywidth-10 Then hy=hy-ywidth
 If hy<-10 Then hy=hy+ywidth
 UpdateSnakeParts()
 DrawSnakeParts()
 Color 128,128,256
 Text 1,1,points
 Flip
Until KeyHit(1)
WaitKey

Function CreateHindernis(x,y,width,height)
 obj.Hindernis=New Hindernis
 obj\x=x
 obj\y=y
 obj\width=width
 obj\height=height
End Function
Function LoadHindernis()
 Restore HindernisLabel
 For ys=0 To ywidth/10 - 1
  For xs=0 To xwidth/10 - 1
	 Read akt
	 If akt=1 Then CreateHindernis(xs*10,ys*10,10,10)
	 If akt=3 Then
	  hx=xs*10
	  hy=ys*10
	  CreateSnakePart(hx,hy)
	 End If
	Next
 Next
End Function
Function CreateFood()
 foodx=Rand(xwidth-5)
 foody=Rand(ywidth-5)
End Function
Function CreateSnakePart(x,y)
 obj.snakepart=New snakepart
 obj\x=x
 obj\y=y
 obj\colour=255-Rand(1,10)
 points=points+1
End Function
Function UpdateSnakeParts()
 For obj.snakepart=Each snakepart
	If Handle(obj)=1 Then
	 obj\x=hx
	 obj\y=hy
 	 bx=obj\x
   by=obj\y
   For obj2.snakepart=Each snakepart
	 If Handle(obj)+5<Handle(obj2) Then
   If RectsOverlap(obj2\x,obj2\y,2,2,obj\x,obj\y,2,2) Then
	  Delay 1000
	  End
	 End If
	 End If
  Next
  For obj3.Hindernis=Each Hindernis
	 Color 128,128,128
	 Rect obj3\x,obj3\y,obj3\width,obj3\height
	 If RectsOverlap(obj3\x,obj3\y,obj3\width,obj3\height,obj\x,obj\y,10,10) Then
	  Delay 1000
	  End
	 End If
	Next
	Else
	 ox=obj\x
	 oy=obj\y
	 obj\x=bx
	 obj\y=by
	 bx=ox
	 by=oy
	End If
 Next
End Function
Function DrawSnakeParts()
 Color 0,255,0
 Text foodx,foody,foodcount
 For obj.snakepart=Each snakepart
	Color obj\colour,0,0
	Rect obj\x,obj\y,10,10,1
  If RectsOverlap(foodx,foody,StringWidth(Str$(foodcount)),10,obj\x,obj\y,10,10) Then
  If FoodCounting Then
   For labbermichnichtvoll=1 To foodcount
    CreateFood()
 	  CreateSnakePart(obj\x,obj\y)
	 Next
	Else
   CreateFood()
   CreateSnakePart(obj\x,obj\y)
	End If
  foodcount=foodcount+1
 End If
 Next
End Function

Data 200,150
.HindernisLabel
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!
 

lettorTrepuS

 BeitragFr, Mai 07, 2004 18:26
Antworten mit Zitat
Benutzer-Profile anzeigen
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

sbrog

 BeitragFr, Mai 07, 2004 19:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Wenn du graphics3d in graphics umändern würdest, wär auch gut

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group