StPendl
Oct 18, 2009
[[code format="vbnet"]]
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'pumpkin.bas by Gordon - 18/10/2009
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin
WindowWidth=600
WindowHeight=600
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
open "Pumpkin Time !" for graphics as #1
#1 "trapclose [quit]"
#1 "down"
#1 "backcolor black; place 0 0 ;boxfilled 100 200"
#1 "backcolor white; color white; place 0 0 ;boxfilled 100 100"
#1 "backcolor black; place 50 50 ;circlefilled 50"
#1 "backcolor 220 130 8 ;place 50 150 ;circlefilled 50"
#1 "color black ;ellipsefilled 100 100; ellipsefilled 70 100 ;ellipsefilled 30 100"
#1 "getbmp pumpkin 0 0 100 200"
#1 "addsprite pumpkin pumpkin"
#1 "backcolor black; place 0 0 ;boxfilled 30 60"
#1 "backcolor white; color white; place 0 0 ;boxfilled 30 30"
#1 "backcolor black; place 15 0; piefilled 80 60 70 40"
#1 "backcolor green; place 15 30; piefilled 80 60 70 40"
#1 "getbmp pumpkineye 0 0 30 60"
#1 "backcolor darkgreen; place 15 30; piefilled 80 60 70 40"
#1 "getbmp pumpkineye8 0 0 30 60"
#1 "fill blue"
#1 "getbmp bg 0 0 600 600"
#1 "background bg"
' animation
#1 "spritexy pumpkin 200 200"
for t = 1 to 100
#1 "spritescale pumpkin ";t
#1 "drawsprites"
next t
for t = 1 to 3
#1 "addsprite pumpkineye";t;" pumpkineye"
next t
for t = 4 to 7
#1 "addsprite pumpkineye";t;" pumpkineye"
next t
#1 "addsprite pumpkineye8 pumpkineye8"
#1 "spritescale pumpkineye1 80;spritexy pumpkineye1 215 220"
#1 "spritescale pumpkineye2 80;spritexy pumpkineye2 260 220"
#1 "spritescale pumpkineye3 80;spritexy pumpkineye3 238 230"
for t = 4 to 7
#1 "spritescale pumpkineye";t;" 80"
#1 "spritexy pumpkineye";t;" ";220+(t-4)*13;" 260"
next
#1 "spriteorient pumpkineye8 flip"
#1 "spritescale pumpkineye8 80 ;spritexy pumpkineye8 235 175"
playwave "Ee_rev.wav", async
'playwave "chimes.wav", async
'playwave "Windows XP Startup.wav", async
#1 "drawsprites"
wait
[quit]
close #1
end
[[code]]
Gordon