Code: Select all
SCREEN 640,480
AddText "Piirrä suomen lippu."
AddText "Hiiren vasemmasta napista saat valkoista ja oikeasta napista sinistä."
AddText "Klikkaamalla rullaa voit aloittaa alusta."
AddText "Kun kuvasi on valmis, paina spacea"
AddText ""
AddText "Paina enter..."
DrawScreen
WaitKey
ClearText
kuva=MakeImage(640,480)
gamma=MakeImage(640,480)
ShowMouse OFF
Repeat
Color 100,100,100
Circle MouseX(),MouseY(),15,15
If MouseDown(1) Then
DrawToImage kuva
Color 255,255,255
Circle MouseX(),MouseY(),15
DrawToScreen
EndIf
If MouseDown(2) Then
DrawToImage kuva
Color 0,0,255
Circle MouseX(),MouseY(),15
DrawToScreen
EndIf
If MouseHit(3) Then
DrawToImage kuva
Color 0,0,0
Box 0,0,640,480
DrawToScreen
EndIf
If KeyHit(cbkeyspace) Then Goto loppu
DrawImage kuva,0,0
Color 100,100,100
Circle MouseX(),MouseY(),15,15
DrawScreen
Forever
loppu:
FrameLimit 40
lippu(MouseX()-80,MouseY()-65)
Color 0,0,255
AddText "Tällainen sen oöisi pitänyt olla!"
lippu(paikka,200)
paikka=-200
Repeat
paikka+10
lippu(paikka,200)
If paikka>260 Then DrawScreen:Wait 4000:Goto poppo
DrawScreen
Forever
poppo:
ClearText
AddText "!!! S U O M I O N P A R A S !!!"
Repeat
lippu(MouseX(),MouseY())
DrawScreen
Forever
Function lippu(x,y)
Color 255,255,255
Box x,y,190,130
Color 0,0,255
Box x,y+45,190,40
Box x+50,y,40,130
EndFunction