Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|602\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #012 (31 Aug 2005) The Bladed Challenge It's time to code a sword! We've already had a Shoot-em-up challenge, so this week you're to make a game whereby the main character is holding a sword. Code an onslaught of enemies, and let the player slash away.

Smash Colosseum by Nullmind for Workshop #012 Walking and Attacking is one of the original parts of SmashTV Mouse to aim, Cursors to walk Click to download this entry

Ninja Blade by Jayenkai for Workshop #012 Fight the Ninjas Cursors and Spacebar Graphics 800,600,32,2 SetBuffer BackBuffer() Dim skin(50,16,16) Dim array(200,200) Global skinline=0 Global skinat=1 Gosub getplat Type item Field x Field y Field is Field skin Field a Field b Field c Field health Field sa,sb,sc,sd End Type Global CPUTick wall=CreateImage(16,16) SetBuffer ImageBuffer(wall) dx=0 dy=0 Color 0,128,0:Line dx+1,dy+1,dx+1,dy+15:Line dx+1,dy+1,dx+15,dy+1:Line dx+1,dy+15,dx+15,dy+15:Line dx+15,dy+1,dx+15,dy+15 Dim Stat(30) stat(1)=50 stat(2)=Rand(1,4)5 stat(3)=Rand(1,4)5 stat(4)=Rand(1,4)5 stat(5)=Rand(1,4)5 stat(11)=25 stat(12)=stat(2) stat(13)=stat(2) stat(14)=stat(2) stat(15)=stat(2) stat(22)=1 stat(23)=2 stat(24)=3 stat(25)=4 Dim Sname$(10) Dim stats(10,10) sname$(1)="Block Chop" stats(1,1)=8 ;stat 1 = Speed stats(1,2)=10 ;stat 2 = Power sname$(2)="Man Slice" stats(2,1)=2 ;stat 1 = Speed stats(2,2)=2 ;stat 2 = Power sname$(3)="Backhand Chop" stats(3,1)=4 ;stat 1 = Speed stats(3,2)=4 ;stat 2 = Power sname$(4)="Quick Slash" stats(4,1)=1 ;stat 1 = Speed stats(4,2)=1 ;stat 2 = Power sname$(5)="Fatal Stab" stats(5,1)=4 ;stat 1 = Speed stats(5,2)=8 ;stat 2 = Power sname$(6)="Ninja Blade" stats(6,1)=2 ;stat 1 = Speed stats(6,2)=4 ;stat 2 = Power sname$(7)="Heavy Hack" stats(7,1)=4 ;stat 1 = Speed stats(7,2)=6 ;stat 2 = Power sname$(8)="Sword Guard" stats(8,1)=1 ;stat 1 = Speed stats(8,2)=1 ;stat 2 = Power Dim tile(10) For t=1 To 10 tile(t)=CreateImage(64,64) MaskImage tile(t),255,0,255 SetBuffer ImageBuffer(tile(t)) Color 255,0,255 Rect 0,0,64,64,1 Color 0,0,0 SeedRnd MilliSecs() For n=1 To 4000 ;Plot Rand(0,64),Rand(0,64) Next Color 0,128,0 For x=0 To 64 Step 16 For y=0 To 64 Step 16 Color 0,Rand(90,120),0 Plot x,y Next Next Next SetBuffer BackBuffer() MyX=0 MyY=0 Global MySkin=1 Global MyA=3 Global MyB=2 Global MyC=5 Gosub makelevel radar=0 t=1 l=1 Repeat TDLines() ;Cls l=l+1 If l=6 Then t=t+1:l=1 If t=11 Then t=1 radar=radar+4 If radar>360 Then radar=radar-360 ;For y=1 To 32 ;Color 0,y2,0 ;Line 400,300,400+(Sin(radar+(y/4))600),300-(Cos(radar+(y/4))600) ;Next TileImage tile(t),(MyX16)+8,(MyY16)+4 LockBuffer BackBuffer() Plat((2416)+8,(1816)+4,MySkin,MyA,MyB,MyC) canleft=1 canright=1 canup=1 candown=1 nins=0 ninjanear=0 SeedRnd(50) For this.item=Each item kill=0 dx=(((this\x-MyX)+24)16)+8 dy=(((this\y-MyY)+18)16)+4 If this\is=1 If dx>-16 And dx<816 And dy>-16 And dy<616 Then Plat(dx,dy,this\skin,this\a,this\b,this\c) If this\x=myx-1 And this\y=myy Then canleft=0:ninjanear=1:If moved=1 Then war(this.item):moved=0 If this\y=myy-1 And this\x=myx Then canup=0:ninjanear=1:If moved=1 Then war(this.item):moved=0 If this\x=myx+1 And this\y=myy Then canright=0:ninjanear=1:If moved=1 Then war(this.item):moved=0 If this\y=myy+1 And this\x=myx Then candown=0:ninjanear=1:If moved=1 Then war(this.item):moved=0 nins=nins+1 If this\health<=0 Then kill=1 EndIf If this\is=3 If dx>-16 And dx<816 And dy>-16 And dy<616 If this\a<4 Col(this\a):Line dx+8,dy+5,dx+8,dy+12:Line dx+5,dy+8,dx+12,dy+8 EndIf If this\a>3 Col(this\a):Line dx+8,dy+3,dx+5,dy+14 EndIf EndIf If this\x=myx And this\y=myy kill=1 If this\a<4 Then stat(this\a+1)=stat(this\a+1)+this\b If this\a>3 Then stat(25)=this\a:stat(5)=this\b EndIf EndIf If kill=1 Then Delete this.item Next UnlockBuffer BackBuffer() For this.item=Each item kill=0 dx=(((this\x-MyX)+24)16)+8 dy=(((this\y-MyY)+18)16)+4 If this\is=2 If dx>-16 And dx<816 And dy>-16 And dy<616 Then DrawImage wall,dx,dy If this\x=myx-1 And this\y=myy Then canleft=0:If slashblock=1 Then kill=1 If this\y=myy-1 And this\x=myx Then canup=0:If slashblock=1 Then kill=1 If this\x=myx+1 And this\y=myy Then canright=0:If slashblock=1 Then kill=1 If this\y=myy+1 And this\x=myx Then candown=0:If slashblock=1 Then kill=1 EndIf If kill=1 Then Delete this.item Next Text 1,1,ninjanear moved=0 If KeyDown(203) And mudown=0 And canleft=1 Then MyX=MyX-1:mudown=8:moved=1 If KeyDown(205) And mudown=0 And canright=1 Then myx=myx+1:mudown=8:moved=1 If KeyDown(200) And mudown=0 And canup=1 Then Myy=Myy-1:mudown=8:moved=1 If KeyDown(208) And mudown=0 And candown=1 Then myy=myy+1:mudown=8:moved=1 If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(200)=0 And KeyDown(208)=0 And KeyDown(57)=0 Then mudown=0 If mudown>0 Then mudown=mudown-1 Color 0,0,0 Rect 0,520,800,80,1 Color 0,120,0 Rect 0,520,800,80,0 For x=1 To 4 Line x200,520,x200,600 Line (x200)-40,520,(x200)-40,600 Next Line 0,560,800,560 Color 255,255,255 Text 80,540,"Health",1,1 Text 180,540,stat(1),1,1 Text 280,580,"Ninjas Remaining",1,1 Text 380,580,nins,1,1 x=1 y=1 For n=1 To 4 x=x+1 If x=4 Then x=2:y=y+1 Text (x200)+80,(y40)+500,sname$(stat(21+n)),1,1 Text (x200)+180,(y40)+500,stat(n+1),1,1 Next slashblock=0 If KeyDown(57) And mudown=0 And ninjanear=1 Then mudown=100:moved=1 If KeyDown(57) And mudown=0 And ninjanear=0 mudown=100 canslash=0 For n=1 To 4 If stat(n+21)=1 If stat(n+1)>0 Then canslash=n EndIf Next If canslash>0 Then stat(canslash+1)=stat(canslash+1)-1:slashblock=1 EndIf If KeyDown(1) Then endofgame=1 If stat(1)<=0 Then endofgame=1 Flip Until endofgame<>0 Cls Text 400,300,"Game Over",1,1 Flip Delay 1500 End Function War(this.item) UnlockBuffer BackBuffer() mudown=1 sel=1 fin=0 Repeat Cls Color 0,0,0 Rect 0,520,800,80,1 Color 0,120,0 Rect 0,520,800,80,0 For x=1 To 4 Line x200,520,x200,600 Line (x200)-40,520,(x200)-40,600 Next Line 0,560,800,560 Color 255,255,255 Text 80,540,"Health",1,1 Text 180,540,stat(1),1,1 Text 80,580,"Enemy",1,1 Text 180,580,this\health,1,1 x=1 y=1 For n=1 To 4 x=x+1 If x=4 Then x=2:y=y+1 If sel=n Then Rect (x200)+1,(y40)+481,198,38,0 Text (x200)+80,(y40)+500,sname$(stat(21+n)),1,1 Text (x200)+180,(y40)+500,stat(n+1),1,1 Next If KeyDown(203) And mudown=0 Then mudown=1:sel=sel-1:If sel=0 Then sel=4 If KeyDown(205) And mudown=0 Then mudown=1:sel=sel+1:If sel=5 Then sel=1 If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(57)=0 Then mudown=0 If KeyDown(57) And mudown=0 fin=1 EndIf plat(80,120,MySkin,MyA,MyB,MyC,8) Color 255,255,255 Text 400,300,"Select a Skill",1,1 plat(592,120,this\skin,this\A,this\B,this\C,8,1) Flip Until fin=1 x=0 fin=0 Repeat Cls x=x+32 plat(80+x,120,MySkin,MyA,MyB,MyC,8) plat(592-x,120,this\skin,this\A,this\B,this\C,8,1) If x>192 Then fin=1 Flip Until fin=1 ause=0 If stat(sel+1)>0 Then ause=stat(sel+21) a=Rand(1,4) If a=1 Then buse=this\sa If a=2 Then buse=this\sb If a=3 Then buse=this\sc If a=4 Then buse=this\sd Color 255,255,255 Cls Rect 200,100,400,200,0 Rect 202,102,396,196,0 hit=0 chance=Rand(1,10) If stats(ause,1)<stats(buse,1) And chance<7 Then hit=1 If stats(buse,1)<stats(ause,1) And chance<7 Then hit=2 If chance<7 And hit=0 And ause>0 Then Text 400,200,"The Swords slammed against each other.",1,1 If chance>6 Then hit=Rand(1,2) If hit=1 And ause>0 Color 200,200,255 Text 400,200,"Platdude strikes the Ninja.",1,1 this\health=this\health-stats(ause,2) If this\health<=0 Then Text 400,240,"It is a fatal blow...",1,1 Text 400,280,"Health - "+stats(ause,2)+" = "+this\health,1,1 EndIf If (hit=2 And stats(buse,2)>0) Or ause=0 Color 255,200,200 Text 400,200,"The Ninja slashes at Platdude.",1,1 stat(1)=stat(1)-stats(buse,2) If stat(1)<=0 Then Text 400,240,"The blow is fatal...",1,1 Text 400,280,"Health - "+stats(buse,2)+" = "+stat(1),1,1 EndIf If hit=2 And stats(buse,2)=0 Text 400,200,"Both swords miss their targets.",1,1 EndIf stat(sel+1)=stat(sel+1)-1 If stat(sel+1)<0 Then stat(sel+1)=0 Flip fin=0 mudown=1 t=MilliSecs()+1500 Repeat If MilliSecs()>t Then fin=1 If KeyDown(57) And mudown=0 Then fin=1 If KeyDown(57)=0 Then mudown=0 Until fin=1 LockBuffer BackBuffer() End Function Function Plat(x,y,sk,a,b,c,size=1,rev=0) If size=1 For x1=0 To 15 For y1=0 To 15 If skin(sk,x1+1,y1+1)=1 Then col(a) If skin(sk,x1+1,y1+1)=2 Then col(b) If skin(sk,x1+1,y1+1)=3 Then col(c) If skin(sk,x1+1,y1+1)>0 Then Line x+x1,y+y1,x+x1,y+y1 Next Next EndIf If size>1 For x1=0 To 15 x2=x1 If rev=1 Then x2=15-x1 For y1=0 To 15 If skin(sk,x1+1,y1+1)=1 Then col(a) If skin(sk,x1+1,y1+1)=2 Then col(b) If skin(sk,x1+1,y1+1)=3 Then col(c) If skin(sk,x1+1,y1+1)>0 Then Rect x+(x2size),y+(y1size),size,size,1 Next Next col(c) If rev=0 Then Line x+(13size),y+(7size),x+(15size)+Rand(-1,1),y+(2size) If rev=1 Then Line x+(3size),y+(7size),x+(1size)+Rand(-1,1),y+(2size) EndIf End Function Function col(c) Select c Case 1 Color 255,0,0 Case 2 Color 255,125,0 Case 3 Color 255,255,0 Case 4 Color 0,255,0 Case 5 Color 80,180,255 Case 6 Color 0,0,255 Case 7 Color 125,0,255 Case 8 Color 255,0,125 Case 9 Color 0,0,0 Case 10 Color 125,125,125 Case 11 Color 255,255,255 End Select End Function .getplat ;Plain add(" 1111 ") add(" 1111 ") add(" 1111 ") add(" 1111 ") add(" 11 ") add(" 11 ") add(" 2222222222 ") add(" 2222222222 ") add(" 22 ") add(" 22 ") add(" 33 ") add(" 33 ") add(" 33 33 ") add(" 33 33 ") add(" 33 33 ") add(" 33 33 ") ;Ninja add(" 2222 ") add(" 2211 ") add(" 2222 ") add(" 2222 ") add(" 22 ") add(" 22 ") add(" 2222222222 ") add(" 2222222222 ") add(" 22 ") add(" 33 ") add(" 22 ") add(" 22 ") add(" 22 22 ") add(" 22 22 ") add(" 22 22 ") add(" 22 22 ") Return .makelevel cenx=100 ceny=100 For m=1 To Rand(50,75) wide=Rand(4,15) high=Rand(4,15) For x=cenx-wide/2 To cenx+wide/2 For y=ceny-high/2 To ceny+high/2 If array(x,y)=0 Then array(x,y)=m Next Next cenx=cenx+Rand(-8,8)2 ceny=ceny+Rand(-8,8)2 If cenx>190 Then cenx=190 If cenx<10 Then cenx=10 If ceny>190 Then ceny=190 If ceny<10 Then ceny=10 Next Ls=200 rs=0 ts=200 bs=0 For x=0 To 199 For y=0 To 199 dome=1 If array(x,y)<>0 If ts>y Then ts=y If ls>x Then ls=x If rs<x Then rs=x If bs<y Then bs=y EndIf If array(x,y)=array(x+1,y) And array(x,y)<>array(x,y+1) And Rand(1,10)=1 Then dome=0 If array(x,y)=array(x,y+1) And array(x,y)<>array(x+1,y) And Rand(1,10)=1 Then dome=0 If (array(x,y)<>array(x+1,y) Or array(x,y)<>array(x,y+1) Or array(x,y)<>array(x+1,y+1)) And dome=1 this.item=New item this\x=x-100 this\y=y-100 this\is=2 EndIf Next Next For n=1 To Rand(50,75) This.item=New item .shiftit this\x=Rand(ls-100,rs-100) this\y=Rand(ts-100,bs-100) dome=0 For an.item=Each item If an\x=this\x And an\y=this\y And an.item<>this.item Then dome=1 Next If dome=1 Then Goto shiftit this\is=1 this\skin=2 this\a=3 this\b=Rand(1,8) this\c=this\b this\health=this\b2 this\sa=Rand(1,6) this\sb=Rand(1,6) this\sc=Rand(1,6) this\sd=Rand(6,8) Next For n=1 To Rand(25,50) This.item=New item .shiftit2 this\x=Rand(ls-100,rs-100) this\y=Rand(ts-100,bs-100) dome=0 For an.item=Each item If an\x=this\x And an\y=this\y And an.item<>this.item Then dome=1 Next If dome=1 Then Goto shiftit2 this\is=3 this\a=Rand(1,8) this\b=Rand(1,3)*5 Next Return Function add(txt$) skinline=skinline+1 If skinline=17 Then skinline=1:skinat=skinat+1 For x=1 To 16 skin(skinat,x,skinline)=Mid$(txt$,x,1) Next End Function Function TDLines() Cls ;There used to be some nice swirly background lines drawn here, but I removed them 'cos they were distracting! End Function

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.101

Wednesday Workshop - Socoder