Code: Select all
SCREEN 800,600
Type VASTUSTAJANKORTIT
Field määrä
Field väri
Field tyyppi
Field obj
EndType
Type PELAAJANKORTIT
Field määrä
Field väri
Field tyyppi
Field obj
EndType
FrameLimit 50
Color 255,0,0
Kortit=LoadAnimObject("Kortit.bmp",60,90,0,42)
Text 10,10,"Ladataan...33%"
Box 10,26,33,16
DrawScreen OFF
Wait 10000
Cls
pakka=LoadObject("pakka.bmp")
Text 10,10,"Ladataan...66%"
Box 10,26,66,16
DrawScreen OFF
Wait 2000
Cls
Pelipöytä=LoadImage("Pelipöytä.bmp")
Text 10,10,"Ladataan 100%"
Box 10,26,100,16
DrawScreen OFF
Wait 2000
Cls
ShowObject kortit,OFF
Text 10,10,"Valmisterraan...25%"
Box 10,26,25,16
DrawScreen OFF
Wait 5000
Cls
ShowObject pakka,OFF
Text 10,10,"Valmistellaan...50%"
Box 10,26,50,16
DrawScreen OFF
Wait 500
Cls
PositionObject pakka,-200,-30
Text 10,10,"Valmistellaan...75%"
Box 10,26,75,16
DrawScreen OFF
Wait 2500
Cls
DrawImage Pelipöytä,0,0
Text 10,10,"Valmistellaan...100%"
Box 10,26,100,16
DrawScreen OFF
Wait 5000
Text 10,10,"Valmista tuli! Paina mitä tahansa nappia jatkaaksesi!"
DrawScreen
WaitKey
Repeat
If EscapeKey() Then End
Until EscapeKey()
Repeat
DrawImage Pelipöytä,0,0
Color 255,255,0
Box 60,40,16,60
Box 60,100,60,16
Box 120,40,16,76
Box 140,30,16,50
Box 140,35,30,16
Box 170,50,16,50
Circle 200,50,32,ON
Text 60,180,"Paina P-kirjainta päästäksesi pelaamaan."
Text 60,195,"Paina O-kirjainta lukeaksesi pelin säännöt."
Text 60,210,"Paina Q-kirjainta poistuaksesi."
DrawScreen
If KeyHit(25) Then Gosub peli
If KeyHit(24) Then Gosub ohjeet
If KeyHit(16) Then End
Until EscapeKey()
ohjeet:
Cls
AddText "ALOITUS"
AddText ""
AddText "Ensin jokainen pelaaja nostaa kortin, se jolla on suurin kortti aloittaa."
AddText "Jokaiselle pelaajalle jaetaan seitsemän korttia. Keskelle otetaan pakasta aloituskortti,"
AddText "joka EI saa olla erikoiskortti."
AddText ""
AddText "PELIN TAVOITE"
AddText ""
AddText "Pelin tavoitteena on saada kaikki omat kortit loppumaan. Aloituskortin päälle aletaan"
AddText "kasata kortteja, joissa on joko sama numero tai sama väri. Samoja numeroita saa laittaa"
AddText "useita, mutta yhdellä vuorolla saa laittaa vain yhden värin. Jos mitään kortti ei käy,"
AddText "sinun täytyy ottaa pakasta yksi kortti. Jos sinulla on vain yksi kortti, paina nopeasti enteriä."
AddText ""
AddText "ERIKOISKORTIT"
AddText ""
AddText "Pelissä on erikoiskortteja, joilla voi laittaa mutkia vastustajan matkaan."
ShowObject kortit,ON
PositionObject Kortit,20,266
neljäpluskortti=MakeObject()
PaintObject neljäpluskortti,Kortit
PlayObject kortit,7,7
AddText "Tällä kortilla se, jolla on seuraava vuoro, joutuu nostamaan neljä korttia,"
AddText "ja sinä saat valita värin, joka muiden on laitettava pinoon."
DrawScreen
Repeat
If KeyHit(cbkeyspace) Then Return
Until KeyHit(cbkeyspace)
peli:
End