Vaikka en virallisesti ilmoittautunut, niin osallistun silti.
Tässä tulee "Tekometsä" niminen peli. Oli vähän rajattu aihe, niin en jaksanut oikeen panostaa järkevään ajatteluun ja purkkakoodailuksihan se meni, niinkuin Pikapelikisoissa aina. Kuitenkin ihan pelattava peli =)
Code: Select all
//Tekometsä
//By Tuxu
FrameLimit 40
AddText "Tämä on Tekometsä niminen mestästyspeli."
AddText "Pelin ideana on siis ampua eläimiä spacea "
addtext "painamalla. Varo kuitenkin ettet ammu ohi"
AddText "tai osu marjanpoimioihin, sillä silloin"
AddText "pisteesi vähenevät. Metsästys aika on 30s."
AddText ""
AddText "Tähän vielä lista pisteistä,"
AddText "jotka saa eläimen ampumalla:"
AddText "Jänis 10, Karhu 20, Hirvi 30"
AddText ""
AddText "Aloita peli painamalla jotakin näppäintä."
DrawScreen
WaitKey
ClearText
P=5000
Pisteet=0
aika=30
eläin=0
Repeat
Text 0,0,"Pisteet: "+pisteet
Text 0,20,"Aikaa jäjellä: "+aika
If Timer()>lasku+1000 Then
aika-1
lasku=Timer()
EndIf
If aika=0 Then
MakeError "Metsästysaika päättyi. Pisteesi:"+pisteet
EndIf
If Timer()>r+P Then
eläin=Rand(1,4)
r=Timer()
P=Rand(1000,5000)
EndIf
If eläin=0 Then
Text 100,140,"Metsä on hiljainen..."
ElseIf eläin=1 Then
näkyy=Timer()
Repeat
Text 100,140,"Jänis juoksee! Ammu!"
If KeyHit(57) Then
Text 100,160,"Siihen kuoli."
pisteet+10
DrawScreen
Wait 2000
EndIf
DrawScreen
Until Timer()>näkyy+Rand(300,1000)
eläin=0
ElseIf eläin=2 Then
näkyy=Timer()
Repeat
Text 100,140,"Karhu paskoo puun takana! Tulta!"
If KeyHit(57) Then
Text 100,160,"Kaatupa komeasti!"
pisteet+20
DrawScreen
Wait 2000
EndIf
DrawScreen
Until Timer()>näkyy+Rand(300,1000)
eläin=0
ElseIf eläin=3 Then
näkyy=Timer()
Repeat
Text 100,140,"Hirvi! Antaa paukkua!"
If KeyHit(57) Then
Text 100,160,"Headshot!"
pisteet+30
DrawScreen
Wait 2000
EndIf
DrawScreen
Until Timer()>näkyy+Rand(300,1000)
eläin=0
Else
näkyy=Timer()
Repeat
Text 100,140,"Jokin liikahti!"
If KeyHit(57) Then
Text 100,160,"Perkules, se oliko marjanpoimija."
Text 100,180,"Noh, tuskin kukaan huomaa, "
Text 100,200,"jos hautaan sen kanervikkoon..."
pisteet-20
DrawScreen
Wait 4000
DrawScreen
EndIf
DrawScreen
Until Timer()>näkyy+Rand(500,1000)
eläin=0
EndIf
If KeyHit(57) Then
Text 100,160,"Ohi meni, että viuhahti..."
pisteet-10
DrawScreen
Wait 2000
EndIf
DrawScreen
Forever