|
|
nomainwin loadbmp "smiley1", "sprites\smiley1.bmp" loadbmp "crab1", "sprites\crab1.bmp" loadbmp "bg1", "sprites\bg1.bmp" loadbmp "bg2", "sprites\bg2.bmp" open "sprite window 1" for graphics_nsb as #g1 UpperLeftX = 100 open "sprite window 2" for graphics_nsb as #g2 #g1 "trapclose [quit]" #g1 "addsprite smiley1 smiley1" #g1 "spritetravelxy smiley1 200 250 1 [landed]" #g2 "trapclose [quit]" #g2 "addsprite crab1 crab1" #g2 "spritetravelxy crab1 200 250 1 [landed]" timer 40, [animate] wait [animate] #g1 "background bg1" #g1 "spritevisible smiley1 on" #g2 "spritevisible crab1 off" #g1 "drawsprites" #g2 "background bg2" #g1 "spritevisible smiley1 off" #g2 "spritevisible crab1 on" #g2 "drawsprites" wait [quit] close #g1 close #g2 end [landed] wait