Wednesday Workshop - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|81\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #112 (08 Aug 2007) The ASC.II Challenge 56 weeks ago, challenge 56 was an ascii challenge. So this one is, too!

Intergalactic Ascii Warriors by Jayenkai for Workshop #112 Zap the bad guys. Cursors and Z/X Graphics 800,600,32,2 SetBuffer BackBuffer() Dim plev$(10) plev$(1)="/O\" ;Slow, single shot fire plev$(2)="\|/O\\|" ;+ Doubleshot plev$(3)="-\|/O\\|-" ;+ Sideshot plev$(4)="\\|-O-\|/" ;/ Diagonal Fire plev$(5)="-\\|-O-\|/-" ;+ Sideshot plev$(6)="/\\|-O-\|/\" ;/ Backfire plev$(7)="/\\|-^-\|/\" ;+ Faster Single Shot plev$(8)="/\-\|^\|-/\" ;+ Thinner Double Shot plev$(9)="/\-/^\-/\" ;+ Missiles plev$(10)="/\-m^m-/\" ;+ Speed of a Hawk SeedRnd MilliSecs() SetFont LoadFont("Courier",14,1) MyLev=1 Global plrx#,plry#,plrxa#,plrya# Type kup Field x Field y Field t End Type Type die Field T Field Health# Field R,G,B Field x#,y# Field X1#,Y1# Field X2#,Y2# Field X3#,Y3# Field X4#,Y4# Field Frame# Field speed# End Type Type let Field x#,y#,txt$,gx#,gy#,u,pow End Type Score=0 Lives=3 NextUp=0 Dim bType$(10) bType$(1)="\_V_/" bType$(2)="-v-" bType$(3)="!o!" bType$(4)="\@/" bType$(5)="\-(O)-/" bType$(6)="}x{" bType$(7)="v-o-v" bType$(8)="<+o+>" bType$(9)="~o~" bType$(10)="\|<o>\|" Dim trig(10) shoot=0 plrx=400 plry=580 Tdead=120 Repeat Cls T=NextUp16:If T>250 Then T=250 Color 255,T,0 Text 0,590,String$("-",NextUp6)+">",0,1 ;For a while, I had a Rect here! Talk about buggering it up! Nearly got myself disqualified for that! Color 255,255,255 Text 740,590,"LevelUp--->",1,1 Text 0,584,"Score : "+score,0,1 Text 0,594,"Lives : "+Lives,0,1 If NextUp=>15 NextUp=NextUp-15 If MyLev<10 Then MyLev=MyLev+1 If MyLev=10 Then Score=Score+500 EndIf Color 250,180,180 If TDead>0 TDead=TDead-1 If (TDead Mod 20) < 10 Then Color 180,250,180 EndIf Text plrx,plry,plev(MyLev),1,1 MySpd=MyLev+1 If MyLev=10 Then MySpd=14 If KeyDown(203) Then plrxa=plrxa-1 If KeyDown(205) Then plrxa=plrxa+1 If KeyDown(200) Then plrya=plrya-1 If KeyDown(208) Then plrya=plrya+1 If plrxa>MySpd Then plrxa=myspd If plrxa>0 Then plrxa=plrxa-0.25 If plrxa<0 Then plrxa=plrxa+0.25 If plrxa<-MySpd Then plrxa=-MySpd If Abs(plrxa)<0.3 Then plrxa=0 plrx=plrx+plrxa If plrx<32 Then plrx=32 If plrx>800-32 Then plrx=800-32 If plrya>MySpd Then plrya=myspd If plrya>0 Then plrya=plrya-0.25 If plrya<0 Then plrya=plrya+0.25 If plrya<-MySpd Then plrya=-MySpd If Abs(plrya)<0.3 Then plrya=0 plry=plry+plrya If plry<240 Then plry=240 If plry>600-16 Then plry=600-16 For n=1 To 10 trig(n)=trig(n)+1 If trig(n)=n4 Then trig(n)=0 Next If KeyDown(44) Or KeyDown(45) If MyLev<7 And trig(5)=0 Then bul.let=New let:bul\x=plrx:bul\y=plry:bul\u=1:bul\txt$="^":bul\gx=0:bul\gy=-4:bul\pow=1 If MyLev>1 And MyLev<8 If trig(12-MyLev)=0 bul.let=New let:bul\x=plrx-18:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=1 bul.let=New let:bul\x=plrx+18:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=1 EndIf EndIf If (MyLev=3 Or MyLev=5) And trig(7)=0 bul.let=New let:bul\x=plrx-18:bul\y=plry:bul\u=1:bul\txt$="<":bul\gx=-4:bul\gy=0:bul\pow=2 bul.let=New let:bul\x=plrx+18:bul\y=plry:bul\u=1:bul\txt$=">":bul\gx=4:bul\gy=0:bul\pow=2 EndIf If MyLev>3 And MyLev<9 And trig(10)=0 bul.let=New let:bul\x=plrx-26:bul\y=plry:bul\u=1:bul\txt$="\":bul\gx=-4:bul\gy=-4:bul\pow=4 bul.let=New let:bul\x=plrx+26:bul\y=plry:bul\u=1:bul\txt$="/":bul\gx=4:bul\gy=-4:bul\pow=4 EndIf If MyLev>5 And MyLev<9 And trig(10)=20 bul.let=New let:bul\x=plrx-34:bul\y=plry:bul\u=1:bul\txt$="/":bul\gx=-4:bul\gy=4:bul\pow=4 bul.let=New let:bul\x=plrx+34:bul\y=plry:bul\u=1:bul\txt$="\":bul\gx=4:bul\gy=4:bul\pow=4 EndIf If MyLev>6 And trig(1)=0 Then bul.let=New let:bul\x=plrx:bul\y=plry:bul\u=1:bul\txt$="^":bul\gx=0:bul\gy=-6:bul\pow=8 If MyLev=8 If trig(2)=0 bul.let=New let:bul\x=plrx-8:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=4 bul.let=New let:bul\x=plrx+8:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=4 EndIf EndIf If MyLev=9 Or MyLev=10 If trig(3)=0 Then bul.let=New let:bul\x=plrx-32:bul\y=plry:bul\u=1:bul\txt$="/\":bul\gx=aimx:bul\gy=aimy:bul\pow=8 If trig(3)=6 Then bul.let=New let:bul\x=plrx+32:bul\y=plry:bul\u=1:bul\txt$="/\":bul\gx=aimx:bul\gy=aimy:bul\pow=8 EndIf If MyLev=9 If trig(2)=0 bul.let=New let:bul\x=plrx-8:bul\y=plry:bul\u=1:bul\txt$="/":bul\gx=4:bul\gy=-4:bul\pow=4 bul.let=New let:bul\x=plrx+8:bul\y=plry:bul\u=1:bul\txt$="\":bul\gx=-4:bul\gy=-4:bul\pow=4 EndIf EndIf If MyLev=10 And trig(1)=2 Then bul.let=New let:bul\x=plrx:bul\y=plry:bul\u=1:bul\txt$="^":bul\gx=0:bul\gy=-6:bul\pow=8 EndIf shoot=shoot+1 If shoot=120 shoot=0 .outside1 x1=Rand(-100,900) y1=Rand(-100,700) If x1>0 And x1<800 And y1>0 And y1<600 Then Goto outside1 .outside2 x4=Rand(-100,900) y4=Rand(-100,700) If x4>0 And x4<800 And y4>0 And y4<600 Then Goto outside2 x2=Rand(100,700) y2=Rand(100,500) x3=Rand(100,700) y3=Rand(100,500) speed#=Rnd(0.2,0.5) r=0 g=Rand(3,5)50 b=Rand(3,5)50 t=Rand(1,10) For n=1 To 8 Bad.Die=New die ;Ooooooooo! bad\t=t bad\frame=0-(n15) bad\r=r bad\g=g bad\b=b bad\health=1 bad\speed=speed bad\x1=x1:bad\x2=x2:bad\x3=x3:bad\x4=x4 bad\y1=y1:bad\y2=y2:bad\y3=y3:bad\y4=y4 Next EndIf dist=800 tarx=0 tary=0 aimx=0 aimy=-16 For bad.die=Each die kill=0 Color bad\r,bad\g,bad\b bad\x=Bezier4(bad\frame,bad\x1,bad\x2,bad\x3,bad\x4) bad\y=Bezier4(bad\frame,bad\y1,bad\y2,bad\y3,bad\y4) Text bad\x,bad\y,btype$(bad\t),1,1 d2=Sqr( ((plrx-bad\x)(plrx-bad\x))+((plry-bad\y)(plry-bad\y))) If d2<dist And plry>bad\y And bad\y>0 And bad\x>0 And bad\x<800 dist=d2 tarx=bad\x:tary=bad\y ang=ATan2(bad\y-plry,bad\x-plrx) aimx=Cos(ang)16:aimy=Sin(ang)16 EndIf bad\frame=bad\frame+bad\speed If bad\frame>100 Then kill=1 If Rand(1,250)=1 Then bul.let=New let:bul\x=bad\x:bul\y=bad\y:bul\u=0:bul\txt$="v":bul\gx=0:bul\gy=4:bul\pow=1 If bad\health<=0 kill=1:score=score+25 pic.kup=New kup pic\x=bad\x:pic\y=bad\y:pic\t=240 EndIf If kill=1 Then Delete bad.die Next For pic.kup=Each kup kill=0 Color 80,255,80 tt$="P" pic\t=pic\t-1 pic\y=pic\y+1 If pic\t<120 Then tt$="p" If pic\t<60 Then tt$="." Text pic\x,pic\y,tt$,1,1 If Abs(pic\x-plrx)<16 And Abs(pic\y-plry)<8 Then kill=1:NextUp=NextUp+1 If pic\t<=0 Then kill=1 If kill=1 Then Delete pic.kup Next For bul.let=Each let kill=0 Color 255,255,255 bul\x=bul\x+bul\gx bul\y=bul\y+bul\gy Text bul\x,bul\y,bul\txt$,1,1 If bul\x<-32 Or bul\x>832 Or bul\y<-32 Or bul\y>632 Then kill=1 If bul\u=1 For bad.die=Each die k2=0 If Abs(bul\x-bad\x)<16 And Abs(bul\y-bad\y)<8 Then kill=1:k2=1 If k2=1 Then bad\health=bad\health-bul\pow:score=score+5 Next EndIf If bul\u=0 And TDead=0 If Abs(bul\x-plrx)<16 And Abs(bul\y-plry)<8 Then kill=1:lives=lives-1:MyLev=1:NextUp=0:Shield=120:plrx=400:plry=580:TDead=120 EndIf If kill=1 Then Delete bul.let Next If Lives=-1 Then endofgame=1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Color 0,0,0 Text 401,281,"Game Over",1,1 Text 401,321,"Score : "+score,1,1 Color 255,255,255 Text 400,280,"Game Over",1,1 Text 400,320,"Score : "+score,1,1 Flip Delay 1500 Function Bezier3(Perc#,p1#,p2#,p3#) If perc<0 Then Return p1 If perc>100 Then Return p3 D1#=(((p2-p1)perc)/100)+p1 D2#=(((p3-p2)perc)/100)+p2 D3#=(((d2-d1)perc)/100)+d1 Return D3 End Function Function Bezier4(Perc#,p1#,p2#,p3#,p4#) If perc<0 Then Return p1 If perc>100 Then Return p4 D1#=(((p2-p1)perc)/100)+p1 D2#=(((p3-p2)perc)/100)+p2 D3#=(((p4-p3)perc)/100)+p3 D4#=Bezier3(perc,D1,D2,D3) Return D4 End Function

Wednesday Workshop #112

The ASC.II Challenge

Intergalactic Ascii Warriors