Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|468\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #056 (05 Jul 2006) The Ascii Art Challenge This week, your game must be made up of Ascii Art. You can use single color bitmap fonts, or the normal Text command, either will do. When designing your game, you cannot allow any single entity to be made up of only one ascii character.. That is, for example, a coin cannot be a letter "O", but it can be "($)". Try to design as many little Ascii objects as you can.

O RLY? Owl Challenge by oscar for Workshop #056 Help the owl dodge the oncoming objects. Cursors AppTitle "O RLY? owl challenge" Graphics 400,400,16,2 Cls fnt=LoadFont("blitz",12,False,False,False) SetFont fnt Dim owl$(2) Global OwlX=10 Global OwlY=100 Global OwlDir$="R" Type Food Field X Field Y Field Fshape$[2] End Type SetBuffer BackBuffer() While Not KeyHit(1) Cls ;left If KeyDown(203) Then OwlDir= "L" OwlX= OwlX - 5 EndIf ;right If KeyDown(205) Then OwlX= OwlX + 5 OwlDir="R" EndIf ;up If KeyDown(200) Then OwlY= OwlY - 5 EndIf ;down If KeyDown(208) Then OwlY= OwlY + 5 EndIf DrawOwl() ; draw & move enemy For f.food= Each food For i=0 To 1 Color 200,0,0 Text f\X, f\Y, f\Fshape$[i] f\Y=f\Y+15 Next f\Y=f\Y-34 ; check collision If owlY >= f\y-30 And owlY <= f\Y Then If owlX>=f\x- 20 And owlX<= f\x + 45 Then ;GAME OVEr Goto gameover EndIf EndIf If f\y<0 Then Delete f.food num=num-1 ;SCORE RISES score=score+1 EndIf Next If num <5 Then num=num+1 f.food = New food f\X=Rand(400) f\Y=300 f\Fshape$[0] = "/\/\/\" f\Fshape$[1] = "\/\/\/" EndIf Color 250,250,250 Text 10,10, "Score: "+score Flip Wend End Function DrawOwl() If OwlDir$= "L" Then owl$(0)="{o,o}" owl$(1)="(__(\|" owl$(2)=" "+Chr(34)+" " +Chr(34) ElseIf OwlDir$="R" Then owl$(0)="{o,o}" owl$(1)="\|)__)" owl$(2)=" "+Chr(34)+" " +Chr(34) EndIf Color 152,152,52 For i= 0 To 2 Text OwlX,OwlY, owl$(i) OwlY=OwlY+15 Next OwlY=OwlY-45 End Function .gameover While Not KeyHit(28) Cls Text 170,155, "GAMEOVER!" Text 155,170, "your score: " + score Text 140,185, "press enter to exit" Flip Wend End

SAnIIC the ASCIIhog by Jayenkai for Workshop #056 Guide SAnIIC to the other end of the level. Cursors Click to download this entry

Jubbly Hunt by flying_cucco for Workshop #056 Collect the yellow things, avoid the red things. A and D to move, W to jump. Click to download this entry

The Void by moleman for Workshop #056 Shoot all the red aliens. Cursors to fire, WASD to move. Click to download this entry

The Terrible Ascii Attic by bram32 for Workshop #056 Shoot all the bad guys before time runs out. WASD and Mouse Click to download this entry

Ascii Man by tnt23 for Workshop #056 Your job is to destroy evil little cyclopse zombies. I know they look cute, but trust me, they're evil. Cursors and Space ;;;;;;;;;;;;;;;;;;;; ;ASCII MAN ;;;;;;;;;;;;;;;;;;;; Const SCREENWIDTH = 640 Const SCREENHEIGHT = 480 Initialize(SCREENWIDTH,SCREENHEIGHT) ;;;FONTS;;; Global n = LoadFont("courier new",14) SetFont n ;;;CONSTANTS;;; ;;scancodes ;arrows Const up_k = 200 Const down_k = 208 Const left_k = 203 Const right_k = 205 ;functions Const F1_k = 59 ;other Const sp_k = 57 Const return_k = 28 Const enter_k = 156 ;;strings Const title$ = "N3S: ASCII Man" Const p_health$ = "[+]" Const p_gun$ = "[M]" Const p_points$ = "(50)" ;;integers Const hlprows = 20 ;;;GLOBALS;;; ;;string dimensions Global hw = StringWidth (" \|\| MAN ==+==") Global hh = StringHeight(" \|\| MAN ==+==")10.5 Global mw = StringWidth ("\--- /") Global mh = StringHeight("\--- /")3 ;;strings Global message$ ;;integers Global hx = 5,hy Global numaliens,numbullets Global tx = 320-(StringWidth (title)/2) Global ty = 240-(StringHeight(title)/2) Global face = 1 Global it, mt, dead ;menu/ingame Global menu = True Global help = False Global info ;stats Global score,lvl Global ammo = 00 Global health = 10 ;;;FRAME TIMER;;; Global timer = CreateTimer(60) ;;;TYPES;;; Type bullet Field x,y Field dx,s$ End Type Type monster Field x,y Field dx,dy,t,bt Field i End Type Type blood Field x#,y# Field dx#,dy# Field s$,t End Type Type letter Field x,y Field dx,dy Field ch$ End Type Type power Field x,y Field p$ Field t,c End Type InitializeBG() DisplayTitle() ;;;MAIN LOOP;;; While KeyHit(1)=False And (dead And info=0)=False Cls If menu Then UpdateTitleBG() If help Then DrawHelp(320,100) If KeyHit(enter_k) Or KeyHit(return_k) FlushKeys() help = 0 EndIf Else Text tx,ty,title Text 320,ty+25,">>>PRESS ENTER TO PLAY<<<",1 Text 320,ty+40,"Press F1 for help",1 Text 320,ty+55,"Press ESC to quit",1 If KeyHit(F1_k) Then help = 1 EndIf If KeyHit(enter_k) Or KeyHit(return_k) Then menu = 0 Else If info Then UpdateBG() Color 255,255,255 Text 320,240,message$,1,1 If MilliSecs()>it+3000 Then info = 0 UpdateBlood() DrawHUD() Else UpdateBG() DrawMan(hx,hy) UpdateInput() UpdateBullets() UpdateMonsters() UpdateBlood() UpdatePowers() DrawHUD() If numaliens <= 0 Then LevelUp() EndIf EndIf WaitTimer(timer) Flip 0 Wend: End ;;;FUNCTIONS;;; Function Initialize(w,h) Graphics w,h AppTitle(title) SetBuffer BackBuffer() HidePointer() SeedRnd(MilliSecs()) End Function Function DrawMan(x,y) If face Then Restore man Else Restore man2 For i = 0 To 13 Read r$ Select i Case 0 Color 189,123,0 Case 2 Color 255,180,100 Case 4 Color 255,180,100 Case 5 Color 255,180,100 Case 10 Color 0,128,255 Case 11 Color 0,128,255 Case 12 Color 0,128,255 Default Color 255,255,255 End Select Text hx,hy+(i10),r$ Next Color 255,255,255 End Function ;UPDATE BULLETS ;ALSO CHECKS COLLISIONS WITH PLAYER CHARACTER Function UpdateBullets() numbullets = 0 For b.bullet = Each bullet b\x = b\x + b\dx If b\s = "=" Then Color 0,255,255 Else Color 0,255,0 Text b\x,b\y,b\s Color 255,255,255 ;;player collisions If RectsOverlap(b\x,b\y,StringWidth(b\s),StringHeight(b\s), hx,hy,hw-20,hh) health = health - 1 BloodSplat(b\x,b\y,10) Delete b If health <= 0 dead = True info = True message = "Game Over; Your score is " + score it = MilliSecs() Bloodsplat(hx+(hw/2),hy+(hh/2),200) EndIf Return EndIf numbullets = numbullets + 1 If b\x > 640 Or b\x<0 Then Delete b Next End Function Function UpdateInput() If ammo > 0 Then If KeyDown(sp_k) And MilliSecs()>mt+100 Then b.bullet = New bullet mt = MilliSecs() ammo = ammo - 1 If face Then b\x = hx + hw b\y = hy + StringHeight("\|\|\|")6 b\dx = 25 b\s = "o>" Color 255,255,0 Text b\x+3,b\y-3,"" Else b\x = hx b\y = hy + StringHeight("\|\|\|")6 b\dx = -25 b\s = "<o" Color 255,255,0 Text b\x-8,b\y-3,"" EndIf EndIf Else If KeyHit(sp_k) Then b.bullet = New bullet If face Then b\x = hx + hw b\y = hy + StringHeight("\|\|\|")6 b\dx = 25 b\s = "o>" Color 255,255,0 Text b\x+3,b\y-3,"" Else b\x = hx b\y = hy + StringHeight("\|\|\|")6 b\dx = -25 b\s = "<o" Color 255,255,0 Text b\x-8,b\y-3,"" EndIf EndIf EndIf If KeyDown(up_k) Then If hy>-(hh/2) Then hy = hy - 6 ElseIf KeyDown(down_k) If hy <480-(hh/2) Then hy = hy + 6 EndIf If KeyDown(left_k) Then face = 0 If hx>0 Then hx = hx - 6 ElseIf KeyDown(right_k) Then face = 1 If hx<640-hw Then hx = hx + 6 EndIf End Function Function LevelUp() Delete Each bullet Delete Each monster hx = 0 : hy = 0 lvl = lvl + 1 If health<10 Then health = health + 1 Repeat add = Rand(-1,2) Local num = lvl + add Until num<>0 For i = 0 To num-1 m.monster = New monster m\x = Rand(hx+hw+20,640-mw-25) m\y = Rand(20,480-(mh2)-(hh/2)) m\i = Rand(3000,5000) Repeat m\dx = Rand(-5,5) m\dy = Rand(-5,5) Until m\dx<>0 And m\dy<>0 m\bt = MilliSecs() Next info = True it = MilliSecs() message = "Now entering Level " + lvl End Function Function DrawAlien(x,y) Restore alien Color 0,255,0 For i = 0 To 3 Read r$ Text x,y+(i10),r$ Next Color 255,255,255 End Function Function UpdateMonsters() ;;updates monsters&AI n draws 'em numaliens = 0 For m.monster = Each monster m\x = m\x + m\dx m\y = m\y + m\dy If m\x >= 640-(mw2) Or m\x<=10 Or (m\t< MilliSecs()+3000 And Rand(50)=25) m\dx = -m\dx m\t=MilliSecs() EndIf If m\y >= 480-(mh2)-(hh/2) Or m\y<=10 Or (m\t< MilliSecs()+3000 And Rand(50)=25) m\dy = -m\dy m\t=MilliSecs() EndIf If m\dx = 0 Then m\dx = Rand(-5,5) If m\dy = 0 Then m\dy = Rand(-5,5) DrawAlien(m\x,m\y) numaliens = numaliens + 1 qwerty = Rand(0,5) If MilliSecs()>m\bt+m\i-(level2) And Rand(0,10)=qwerty And numbullets<3 Then b.bullet = New bullet b\x = m\x b\y = m\y + StringHeight("\|") b\dx = -5 b\s = "=" m\bt = MilliSecs() EndIf For b.bullet = Each bullet If RectsOverlap(b\x,b\y,StringWidth(b\s),StringHeight(b\s),m\x,m\y,mw,mh) If b\s = "o>" Or b\s = "<o" If Rand(1,10) = 5 Then p.power = New power p\x = m\x: p\y = m\y p\t = MilliSecs() p\c = 255 temp = Rand(1,3) Select temp Case 1 p\p = p_health Case 2 p\p = p_gun Case 3 p\p = p_points End Select EndIf BloodSplat(m\x,m\y,10) Delete b Delete m score = score + 10 numaliens = numaliens-1 Exit EndIf EndIf Next Next End Function Function BloodSplat(x,y,parts=10) For i = 0 To parts bl.blood = New blood bl\x = x : bl\y = y bl\dx = Sin(Rnd#(0,359))Rnd#(-2,5) bl\dy = Cos(Rnd#(0,359))Rnd#(-5,5) bl\t = MilliSecs() q=Rand(0,1) If q Then bl\s = "." Else bl\s="," Next End Function Function UpdateBlood() For bl.blood = Each blood bl\x = bl\x + bl\dx bl\y = bl\y + bl\dy bl\dy = bl\dy + 0.1 Color 255,0,0 Text bl\x,bl\y,bl\s Color 255,255,255 If MilliSecs() > bl\t + Rand(3000,5000) Then Delete bl Next End Function Function InitializeBG() For i = 0 To 19 l.letter = New letter l\x = Rand(0,630) l\y = Rand(0,470) l\dx = Rand(-4,-10) l\dy = Rand(4,10) l\ch = Chr$(Rand(33,122)) Next End Function Function UpdateTitleBG() For l.letter = Each letter l\y = l\y + l\dy If l\y > 480 Then l\x = Rand(0,630) l\y = -10 EndIf Color 0,150,0 Text l\x,l\y,l\ch Color 255,255,255 Next End Function Function UpdateBG() For l.letter = Each letter l\x = l\x + l\dx If l\x < 0 Then l\x = 660 l\y = Rand(0,470) EndIf Color 0,150,0 Text l\x,l\y,l\ch Color 255,255,255 Next End Function Function DisplayTitle() Local temp$ = "" Local cs$ = "" For i = 1 To Len(title) cs = Mid(title,i,1) x = tx+StringWidth(temp) For y = 0 To ty Step 20 Cls updatetitleBG() Text tx,ty,temp Text x,y,cs If KeyHit(1) Then End Flip Next temp = temp + cs$ Next m = MilliSecs() c = 255 Repeat Cls updatetitleBG() c = c - 5 Color c,c,c Text tx,ty,title If KeyHit(1) Then End Flip Until c<=100 End Function Function DrawHelp(x,y) Restore help For i = 0 To hlprows-1 Read r$ Text x,y+ay,r$,1 ay = ay + StringHeight(r$) Next End Function Function DrawHUD() Local x = 500 Text x,0,"Score: " + score If health>0 Then Text x,10,"Health: " + String$("\|",health) Else Text x,10,"Health: DEAD" EndIf If ammo Then Text x,20,"Ammo: " + ammo Else Text x,20,"Ammo: Infinite" End Function Function UpdatePowers() For p.power = Each power If MilliSecs()>p\t+3000 Then p\c = p\c - 1 Color p\c,p\c,0 Text p\x,p\y,p\p Color 255,255,255 If RectsOverlap(p\x,p\y,StringWidth(p\p),StringHeight(p\p),hx,hy,hw,hh) Select p\p Case p_health health = 10 Case p_points score = score + 50 Case p_gun ammo = ammo + 100 End Select Delete p Return EndIf If p\c < 5 Then Delete p Next End Function ;;;DATA;;; .man Data "/======\ " Data "\| .. " Data "\| > " Data "\| \_\| " Data "\_______/ " Data " \| \| " Data " /- - \ " Data " \|\|ASCII \| " Data " \|\| MAN ==+==" Data " uu \| \|\| " Data " \| ^ \| " Data " / / \ \ " Data " \| \| \| \| " Data "<<__ __>> " .man2 Data " /======\ " Data " .. \|" Data " < \|" Data " \|_/ \|" Data " \_______/ " Data " \| \| " Data " /- - \ " Data " \|ASCII \|\| " Data "==+== MAN \|\| " Data " \|\| \| uu " Data " \| ^ \| " Data " / / \ \ " Data " \| \| \| \| " Data " <<__ __>>" .alien Data "/\_/\ " Data "\|(.) \|" Data "\| ^ \|" Data "\--- /" .help Data "Welcome to ASCII Man!" Data "" Data "You play as the text based superhero, ASCII Man. " Data "Your job is to destroy evil little cyclopse zombies. I know" Data "they look cute, but trust me, they're evil. " Data "" Data "Levelling Up" Data "Level up by destroying all the monsters in the current " Data "level. When you level up, you are awarded one life point." Data "" Data "Controls" Data "Move with the arrow keys and shoot with space." Data "" Data "Pickups" Data "[+] - Health - Restores you to full health " Data "[M] - Machine Gun - Gives you 100 machine gun bullets" Data "(50) - Adds 50 points to your score. " Data "" Data "" Data "<<<PRESS ENTER TO RETURN TO MAIN MENU>>>"

ASCII-Moah by Evil Roy Ferguson for Workshop #056 Can you defeat the ASCII-Maoh before time runs out? Cursors, A to jump, S to fire. Click to download this entry

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

Wednesday Workshop - Socoder