Koodi:
Code: Select all
AddText "Taso 1"
AddText "Paina spacea"
If KeyHit(cbkeyspace) Then Goto taso1
DrawScreen
ClearText
WaitKey
taso1:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\vihu2.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=15
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/15"
If counter<1 Then Goto alku2
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku2:
AddText "Taso 2"
AddText "Paina spacea"
AddText "Level Up! Olet nyt tasoa 2."
AddText "Opit uuden iskun! Tuplalyönti!"
If KeyHit(cbkeyspace) Then Goto taso2
DrawScreen
ClearText
WaitKey
taso2:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\vihu1.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=25
super=5
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/25"
If counter<1 Then Goto alku3
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku3:
AddText "Taso 3"
AddText "Paina spacea"
If KeyHit(cbkeyspace) Then Goto taso3
DrawScreen
ClearText
WaitKey
taso3:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\runtaur.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=45
super=5
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/45"
If counter<1 Then Goto alku4
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku4:
AddText "Taso 4"
AddText "Level Up!"
addtext "Uusi isku! Teleportti!"
AddText "Paina spacea"
If KeyHit(cbkeyspace) Then Goto taso4
DrawScreen
ClearText
WaitKey
taso4:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\runtaur.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=60
super=5
hyper=3
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/60"
If counter<1 Then Goto alku5
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyD) Then hyper-1
Text 0,80,"(D) Teleportti: "+hyper
Text 160,80,"/3"
If hyper<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyD) Then PositionObject ukko1,0,0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku5:
AddText "Taso 5"
AddText "Paina spacea"
If KeyHit(cbkeyspace) Then Goto taso5
DrawScreen
ClearText
WaitKey
taso5:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\runtaur.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=75
super=5
hyper=3
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/75"
If counter<1 Then Goto alku6
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyD) Then hyper-1
Text 0,80,"(D) Teleportti: "+hyper
Text 160,80,"/3"
If hyper<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyD) Then PositionObject ukko1,0,0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku6:
AddText "Taso 6"
AddText "Paina spacea"
AddText "Level Up!"
AddText "Uusi isku! Illuusio!"
If KeyHit(cbkeyspace) Then Goto taso6
DrawScreen
ClearText
WaitKey
taso6:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\runtaur.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=90
super=5
hyper=3
il=1
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/90"
If counter<1 Then Goto alku7
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyD) Then hyper-1
Text 0,80,"(D) Teleportti: "+hyper
Text 160,80,"/3"
If hyper<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyD) Then PositionObject ukko1,0,0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyF) Then il-1
Text 0,80,"(F) Illuusio: "+il
Text 160,80,"/1"
If il<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyF) Then PositionObject ukko2,0,0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then PositionObject ukko1,0,0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku7:
AddText "Taso 7"
AddText "Paina spacea"
If KeyHit(cbkeyspace) Then Goto taso7
DrawScreen
ClearText
WaitKey
taso7:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\runtaur.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=115
super=5
hyper=3
il=1
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/115"
If counter<1 Then Goto alku8
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then hyper-1
Text 0,80,"(D) Teleportti: "+hyper
Text 160,80,"/3"
If hyper<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then PositionObject ukko1,0,0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyF) Then il-1
Text 0,80,"(F) Illuusio: "+il
Text 160,80,"/1"
If il<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyF) Then PositionObject ukko2,0,0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then PositionObject ukko1,0,0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
alku8:
AddText "Taso 8"
AddText "Paina spacea"
AddText "!!!Viimeinen vastus!!!"
If KeyHit(cbkeyspace) Then Goto taso8
DrawScreen
ClearText
WaitKey
taso8:
FrameLimit 40
'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko
ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\runtaur.bmp",72)
'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180
'Aseta ukot alkupaikkoihin
PositionObject ukko1,-150,100
PositionObject ukko2,150,-100
counter=150
super=5
hyper=3
il=1
Repeat
'Ukon 1 ohjaus
If LeftKey() Then TurnObject ukko1,5
If RightKey() Then TurnObject ukko1,-5
If UpKey() Then MoveObject ukko1,2
If DownKey() Then MoveObject ukko1,-2
'Älä päästä ukkoa 1 seinien ulkopuolelle
If ObjectX(ukko1)<-200 Then PositionObject ukko1,-200,ObjectY(ukko1)
If ObjectX(ukko1)>200 Then PositionObject ukko1,200,ObjectY(ukko1)
If ObjectY(ukko1)<-150 Then PositionObject ukko1,ObjectX(ukko1),-150
If ObjectY(ukko1)>150 Then PositionObject ukko1,ObjectX(ukko1),150
If ObjectX(ukko2)<-200 Then PositionObject ukko2,-200,ObjectY(ukko2)
If ObjectX(ukko2)>200 Then PositionObject ukko2,200,ObjectY(ukko2)
If ObjectY(ukko2)<-150 Then PositionObject ukko2,ObjectX(ukko2),-150
If ObjectY(ukko2)>150 Then PositionObject ukko2,ObjectX(ukko2),150
CloneCameraPosition ukko1
DrawGame
If ObjectsOverlap (ukko1,ukko2,2)And KeyHit(cbkeyA) Then counter-1
Text 0,60,"(A) Iske miekalla."
Text 0,40,"Vihun elkut: "+counter
Text 120,40,"/150"
If counter<1 Then Goto loppu
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then super-1
Text 0,80,"(S) Parempi isku: "+super
Text 160,80,"/5"
If super<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then hyper-1
Text 0,80,"(D) Teleportti: "+hyper
Text 160,80,"/3"
If hyper<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then PositionObject ukko1,0,0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyF) Then il-1
Text 0,80,"(F) Illuusio: "+il
Text 160,80,"/1"
If il<1 Then counter+0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyF) Then PositionObject ukko2,0,0
If ObjectsOverlap (ukko1,ukko2,2) And KeyHit (cbkeyS) Then PositionObject ukko1,0,0
MoveObject ukko2,3
If Timer() > vihuaika + 3000 Then
vihuaika = Timer()
kaantoframet = 9
EndIf
If kaantoframet Then
TurnObject ukko2,10
kaantoframet -1
EndIf
DrawScreen
Forever
loppu:
AddText "Läpäisit peli!"
AddText "Paina spacea"
AddText "Onnitteluni"
If KeyHit(cbkeyspace) Then End
DrawScreen
ClearText
WaitKey