Jare README:ssä sanotaan:
ChaosBasic-kääntäjä on hyvin alkuvaiheessa. Tämän vuoksi kääntäjä saattaa antaa virheilmoituksia
täysin virheettömästäkin koodista. Lisäksi virheilmoitukset saattavat olla hyvin epämääräisiä
tai vääriä.
Game.End tai pelkästään End tai ihan miten vaan ois ihan kätevä nyt kun tein hienon robopako pelin niin kun tulee game over niin kuinka saan pelin sammutettua?
tässä koodi
Code: Select all
//The ROBO-ESCAPE
Var x As Integer = 100
Var y As Integer = 100
Var elkut As Integer = 1000
Var noppa As Integer = 0
Var vx[10] As Integer
Var vy[10] As Integer
Var vk[10]
Var reload As Integer = 20
Var peliohi As Integer = 0
For i=0 To 9
vx[i]=Random(0,630)
vy[i]=Random(0,470)
vk[i]=0
Next
While Not Key.Hit(1)
//statistics
Screen.Text 0, 0, "FPS: " + Screen.FPS() + " hello world!"
Screen.Text 0,10, "energia= " + elkut + "A"
Screen.Text 0,25, "Press F1 for some info!"
//pelaajan inputti
If reload>20 Then
If Key.Down(200) Then
y=y-1
EndIf
If Key.Down(208) Then
y=y+1
EndIf
If Key.Down(203) Then
x=x-1
EndIf
If Key.Down(205) Then
x=x+1
EndIf
reload=0
EndIf
Screen.Text x, y, "#"
//päivitä vihut
For i=0 To 9
noppa = Random(0,100)//mennäänkö ollenkaan?
//minne mennä?
If vk[i]==0 Then
If noppa==50 Then
If vx[i]<x Then
vx[i]=vx[i]+1
EndIf
If vx[i]>x Then
vx[i]=vx[i]-1
EndIf
If vy[i]<y Then
vy[i]=vy[i]+1
EndIf
If vy[i]>y Then
vy[i]=vy[i]-1
EndIf
EndIf
EndIf
//ovatko vihut toistensa päällä?
For v=0 To 9
If v<>i Then
If vx[i]==vx[v] Then
If vy[i]==vy[v] Then
If vk[v]=0 Then
vk[i]=1
vk[v]=1
EndIf
EndIf
EndIf
EndIf
Next
//osutaanko pelaajaan?
If vx[i]==x Then
If vy[i]==y Then
elkut=elkut-1
EndIf
EndIf
//piirretään vihut
If vk[i]==0 Then
Screen.Text vx[i], vy[i], ":)"
EndIf
If vk[i]==1 Then
Screen.Text vx[i],vy[i], "*("
EndIf
Next
reload=reload+1
If elkut<0 Then
While Not Key.Hit(1)
Screen.Text 200,200,"Game Over!"
peliohi=1
elkut=1000000
Screen.Draw
EndWhile
EndIf
If Key.Hit(59) Then
While Not Key.Hit(28)
Screen.Text 200, 200, "These little bastards (:)) are trying to absorb your energy"
Screen.Text 200, 220, "Use arrows to steer you'r ROBOT"
Screen.Text 200, 210, "While avoiding them try get them colliding each other to make them die!"
Screen.Text 200, 240, "-Go Back By Pressing Enter-"
Screen.Draw
EndWhile
EndIf
If peliohi==1 Then
Screen.Text Random(0,630),Random(0,470),"peliohi!!!"
Screen.Wait(10)
EndIf
Screen.Draw
EndWhile