Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|532\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #121 (10 Oct 2007) The Delayed Challenge Create a game with delayed input, whereby the gameplay occurs After the player pushes the button.

Shoot The Ship by Phoenix for Workshop #121 Shoot the Ship, but beware the delays Spacebar.. Then wait! Graphics(640, 480, 32, 2) SetBuffer(BackBuffer()) SeedRnd(MilliSecs()) shipPos# = 640 bulletPos = 470 fired = False del# = 2500 waittmr = -1 bulSpd# = 2 score = 0 high = 0 level = 1 timer = CreateTimer(60) While(Not KeyHit(1)) WaitTimer(timer) shipPos = shipPos - 1 If(KeyHit(57)) Then waittmr = del+MilliSecs() If(waittmr > 0) If(waittmr =< MilliSecs()) fired=True EndIf EndIf If(fired) Then bulletPos = bulletPos - bulSpd If(RectsOverlap(118, bulletPos, 4, 4, shipPos, 20, 80, 10)) score = score + Rand(level1000, level10000) level = level + 1 bulSpd = Rand(1, 5) del = Rand(25, 50)*100 fired = False shipPos = 640 bulletPos = 470 waittmr = -1 If(score>high) Then high=score Else If(bulletPos < 0 Or shipPos < -80) shipPos# = 640 bulletPos = 470 fired = False del# = 2500 waittmr = -1 bulSpd# = 2 score = 0 level = 1 If(score>high) Then high=score EndIf Rect(118, bulletPos, 4, 4) Color(255,128,0) Rect(shipPos, 20, 80, 10) Color(255, 200, 100) Rect(shipPos, 20, 80, 10, 0) Color(0,128,255) Rect(110, 470, 20, 10) Line(120, 470, 120, 460) Color(255,255,255) Text(0,0,"Delay: "+del/1000+" seconds") Text(0,12,"Bullet speed: "+bulSpd) Text(0,24,"Score: "+score) Text(0,36,"Highest score: " +high) Flip Cls Wend End

Wednesday Workshop #121

The Delayed Challenge

Shoot The Ship