Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|550\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #062 (16 Aug 2006) The Line Challenge This week, we're looking for Line-based games. Be they "Light Cycles/Tron" clones, Classic Vector style games, or even your own homemade 3D Wireframe engine (No cheating.. If you're doing wireframe you do it in 2D, not by using the "Wireframe" command.) Whatever sort of game you like, so long as it's full of lines!

Line Squares by Jayenkai for Workshop #062 Move the mouse into the squares to score. Mouse Graphics 800,600,32,2 SetBuffer BackBuffer() HidePointer() SeedRnd MilliSecs() HighCombo=0 HighScore=0 SaveScores=0 ;Set to 1 if you'd like to save your highscores. SaveDir$="system/062/" ;But make sure this directory exists.. SaveFile$="highscore.dat" If savescores=1 If FileType(savedir+savefile)=1 quicky=ReadFile(savedir+savefile) highcombo=ReadInt(quicky) highscore=ReadInt(quicky) CloseFile quicky EndIf EndIf ML=20 Score=0 Font=LoadFont("Arial",26) SetFont font Type ox Field x Field y Field col Field Time End Type Type bos Field x Field y Field col Field digit Field time End Type MyCol=0 MyCombo=0 Dim LC#(ML,2) .MainMenu Repeat Cls Color 255,255,255 Text 400,50,"Line Squares",1,1 Color 255,0,0 Text 400,200,"Move the mouse into the squares to score.",1,1 Text 400,250,"Get the same colors to score combos.",1,1 Color 0,255,0 Text 400,400,"High Score : "+HighScore,1,1 Text 400,450,"Best Combo : "+HighCombo,1,1 If MouseDown(1) Then Gosub StartRound Flip Until KeyDown(1) End .StartRound For n=1 To ML LC#(n,1)=400:LC#(n,2)=300 Next For b.ox=Each ox:Delete b.ox:Next For com.bos=Each bos:Delete com.bos:Next CenterX=400 CenterY=300 EndTime=MilliSecs()+60000 Repeat Cls ;CopyRect 10,0,790,600,0,0 For n=1 To ML-1 LC(n,1)=LC(n+1,1) LC(n,2)=LC(n+1,2) LC(n,1)=LC(n,1)-((LC(n,1)-CenterX)/(n+1)) LC(n,2)=LC(n,2)-((LC(n,2)-CenterY)/(n+1)) Next CenterX=LC(1,1) CenterY=LC(1,2) LC(ML,1)=MouseX() LC(ML,2)=MouseY() For n=0 To ML-1 If MyCol=0 Then Color n12,n12,n12 If MyCol=1 Then Color n12,180,180 If MyCol=2 Then Color 180,n12,180 If MyCol=3 Then Color 180,180,n12 If n=0 Then Line CenterX,CenterY,lC(n+1,1),LC(n+1,2) If n>0 Then Line LC(n,1),lc(n,2),lC(n+1,1),LC(n+1,2) Next Text 400,10,Score,1,1 Timeleft=EndTime-MilliSecs() Text 400,580,Millisecstotime(Timeleft),1,1 If Timeleft<0 Then endofgame=1 If Rand(1,25)=1 Repeat X=Rand(0,800):Y=Rand(0,600) fin=0 If Abs(X-MouseX())>100 And Abs(Y-MouseY())>100 Then fin=1 Until fin=1 B.ox=New ox B\x=x:b\y=y b\col=Rand(1,3) b\time=Rand(150,200) If b\col=mycol Then b\time=Rand(SCom,SCom+50) EndIf For b.ox=Each ox If b\Col=1 Then Color 255,100,100 If b\Col=2 Then Color 100,255,100 If b\Col=3 Then Color 100,180,255 Rect b\x-(b\time/8),b\y-(b\time/8),b\time/4,b\time/4,0 b\time=b\time-1 kill=0 If b\time=0 Then kill=1 If mousein((b\x-(b\time/4))-2,(b\y-(b\time/4))-2,(b\time/2)+4,(b\time/2)+4) If b\col=MyCol Then mycombo=mycombo+1:score=score+b\time+(Combo*10):If SCom>20 Then SCom=SCom-10 If b\col<>MyCol Then mycombo=1:mycol=b\col:score=score+b\time:SCom=100 kill=1 com.bos=New bos com\x=b\x com\y=b\y com\col=b\col com\digit=mycombo com\time=30 EndIf If kill=1 Then Delete b.ox Next For com.bos=Each bos If com\Col=1 Then Color 255,100,100 If com\Col=2 Then Color 100,255,100 If com\Col=3 Then Color 100,100,255 com\time=com\time-1 kill=0 If com\time=0 Then kill=1 Text com\x,com\y,com\digit,1,1 If kill=1 Then Delete com.bos Next If MyCombo>HighCombo Then HighCombo=MyCombo If Score>HighScore Then HighScore=Score Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 If savescores=1 quicky=WriteFile(savedir+savefile) WriteInt(quicky,Highcombo) WriteInt(quicky,Highscore) CloseFile quicky EndIf Return Function mousein(x1,y1,wide,high) If MouseX()=>x1 And MouseX()<=x1+wide And MouseY()=>y1 And MouseY()<=y1+high Then Return True End Function Function millisecstotime$(mills,hron=0,minon=0,secon=1,milson=1) out$="" millsecs=(mills Mod 1000)/10 mills=(mills/1000) secs=mills Mod 60 mills=(mills/60) mins=mills Mod 60 mills=(mills/60) If hron=1 Then out$=out$+xdigitstring$(mills,2)+":" If minon=1 Then out$=out$+xdigitstring$(mins,2)+":" If secon=1 Then out$=out$+xdigitstring$(secs,2)+":" If milson=1 Then out$=out$+xdigitstring$(millsecs,2) Return out$ End Function Function xdigitstring$(integer,digits) curstring$=Str$(integer) If Len(curstring$)>digits Then curstring$=Right(curstring$,digits) If Len(curstring$)<digits noed=digits-Len(curstring$) curstring$=String$("0",noed)+Str$(curstring$) EndIf Return curstring$ End Function

Line Squiggles by Jayenkai for Workshop #062 Move the mouse through the cavern. Mouse Graphics 800,600,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() HidePointer() Top#=Rand(0,300) High#=Rand(100,300) Topgo#=0 Highgo#=0 Font=LoadFont("Arial",26) SetFont font MB#=2 Dim LC#(100,2) Wall=CreateImage(900,600) Squiggle=CreateImage(810,600) Health=800 Highscore=0 SaveScores=0 ;Set to 1 if you'd like to save your highscores. SaveDir$="system/062/" ;But make sure this directory exists.. SaveFile$="highscoreB.dat" If savescores=1 If FileType(savedir+savefile)=1 quicky=ReadFile(savedir+savefile) highscore=ReadInt(quicky) CloseFile quicky EndIf EndIf .MainMenu Repeat Cls Color 255,255,255 Text 400,50,"Line Squiggles",1,1 Color 255,0,0 Text 400,300,"Move the mouse through the cavern.",1,1 Color 0,255,0 Text 400,500,"Best Time : "+Millisecstotime(HighScore),1,1 If MouseDown(1) Then Gosub StartRound Flip Until KeyDown(1) Return .Startround SetBuffer ImageBuffer(Wall) Cls SetBuffer ImageBuffer(Squiggle) Cls SetBuffer BackBuffer() Checkpoint#=5 MB#=2 Start=MilliSecs() endofgame=0 Health=800 Repeat SetBuffer ImageBuffer(Wall) CopyRect MB,0,800,600,0,0 Color 0,0,0 Rect 800-MB,0,MB,600,1 For n=1 To MB High=High+Highgo Top=Top+Topgo If Rand(1,30)=4 Then TopGo=Rnd(-0.4,0.4) If Rand(1,30)=8 Then HighGo=Rnd(-0.4,0.4) If High>300 Then High=300:Highgo=-0.4 If High<100 Then High=100:Highgo=0.4 If Top+High>590 Then Top=590-High:Topgo=-0.4 If Top<10 Then Top=10:Topgo=0.4 Color 25,25,25 Line (799-MB)+n,0,(799-MB)+n,Top Line (799-MB)+n,Top+High,(799-MB)+n,600 Next SetBuffer ImageBuffer(Squiggle) CopyRect MB,0,800-MB,600,0,0 Color Rand(75,255),Rand(75,255),Rand(75,255) Rect 800-MB,0,MB,600,1 For n=1 To MB-1 DP#=(200/MB) Color nDP,nDP,n*DP Line LC(n,1)-MB+n,LC(N,2),LC#(n+1,1),LC#(n+1,2) LC#(n,1)=lc#(n+1,1) LC#(n,2)=lc#(n+1,2) Next For n=MB To 100 LC(n,1)=MouseX() LC(n,2)=MouseY() Next SetBuffer BackBuffer() LockBuffer ImageBuffer(Wall) ImOn=(ReadPixelFast(MouseX(),MouseY(),ImageBuffer(Wall)) And %011111111) UnlockBuffer ImageBuffer(Wall) If ImOn>10 Then Health=Health-((MB/2)+1) Cls DrawImage Squiggle,0,0 DrawImage Wall,0,0 Color 255,255,255 Rect 0,0,Health,10 GameTime=MilliSecs()-Start Text 400,590,Millisecstotime(GameTime),1,1 If (Gametime/1000)>Checkpoint Then MB=MB+1:Checkpoint=Checkpoint+5 If Gametime>Highscore Then Highscore=Gametime Flip If Health<=0 Then Endofgame=1 If KeyDown(1) Then Endofgame=99 Until Endofgame<>0 If savescores=1 quicky=WriteFile(savedir+savefile) WriteInt(quicky,Highscore) CloseFile quicky EndIf Return Function millisecstotime$(mills,hron=0,minon=1,secon=1,milson=1) out$="" millsecs=(mills Mod 1000)/10 mills=(mills/1000) secs=mills Mod 60 mills=(mills/60) mins=mills Mod 60 mills=(mills/60) If hron=1 Then out$=out$+xdigitstring$(mills,2)+":" If minon=1 Then out$=out$+xdigitstring$(mins,2)+":" If secon=1 Then out$=out$+xdigitstring$(secs,2)+":" If milson=1 Then out$=out$+xdigitstring$(millsecs,2) Return out$ End Function Function xdigitstring$(integer,digits) curstring$=Str$(integer) If Len(curstring$)>digits Then curstring$=Right(curstring$,digits) If Len(curstring$)<digits noed=digits-Len(curstring$) curstring$=String$("0",noed)+Str$(curstring$) EndIf Return curstring$ End Function

Block Blaster by kooku4kokopuffs for Workshop #062 No jitters, different colors, (slightly) better collisions and three powerups! Cursors and Space Graphics 800,600,32,2 AppTitle "BlockBlaster" SeedRnd MilliSecs() HidePointer() AutoMidHandle True Flip False Type bubble Field x Field y Field xm Field ym Field radius Field stucktimer# End Type Type laser Field x Field y Field yend Field xend Field timer# End Type Type p Field x Field y Field shottime# End Type p.p=New p p\x=50 p\y=575 p\shottime#=0 score=0 hitornot=False barial=LoadFont("Arial",24,True, False, False) bbarial=LoadFont("Arial",30,True,False,False) SetFont barial .hit SetBuffer FrontBuffer() If hitornot=True SetFont bbarial Cls Color 255,0,0 Text 300,50,"You were hit!" WaitKey Delay (2000) End If SetBuffer BackBuffer() speed=3 .start score=0 For bubble.bubble=Each bubble Delete bubble Next hitornot=False arial=LoadFont("Arial",18,True, False, False) sarial=LoadFont("Arial",14,True,False,False) SetFont arial Repeat SetFont arial Cls Color 255,0,0 Text 380,60,"Block Blaster" Color 255,255,0 Text 340,90,"Press SPACE key to begin" Color 0,0,255 SetFont sarial Text 50,110,"Press SPACE to fire a laser at the middle of a floating block. Be sure not to be hit by one of them! Get a high-score to unlock bonuses." Text 399,150,"score : "+score Flip Until KeyDown(57) timerbonus=5 For a=1 To 3 bubble.bubble=New bubble bubble\x=Rnd(20,780) bubble\y=Rnd(30,570) bubble\xm=Rnd(-1,1) bubble\ym=Rnd(-1,1) bubble\radius=50 bubble\stucktimer#=0 Next While Not KeyDown(01) Cls Color 255,255,255 Rect p\x,p\y,20,20,0 For bubble.bubble=Each bubble If funky=False Color 255,0,0 Rect bubble\x,bubble\y,bubble\radius,bubble\radius,0 End If If funky=True funkycolored=Rnd(3) If funkycolored=1 Then Color 155,255,153 If funkycolored=2 Then Color 255,0,255 If funkycolored=3 Then Color 255,255,102 Rect bubble\x,bubble\y,bubble\radius,bubble\radius,1 End If Rect bubble\x,bubble\y,bubble\radius,bubble\radius,0 bubble\x=bubble\x+bubble\xm bubble\y=bubble\y+bubble\ym If bubble\x<=10 Or bubble\x>=700 Or bubble\xm=0 Repeat bubble\xm=Rnd(-1,1) bubble\ym=Rnd(-1,1) bubble\stucktimer#=bubble\stucktimer#+.1 Until Not bubble\x<=10 And bubble\x>=700 End If If bubble\y<=10 Or bubble\y>=550 Repeat bubble\ym=Rnd(-1,1) bubble\xm=Rnd(-1,1) bubble\stucktimer#=bubble\stucktimer#+.1 Until Not bubble\y<=10 And bubble\y>=550 End If If p\x>bubble\x And p\x<(bubble\x+bubble\radius) And p\y>bubble\y And p\y<(bubble\y+bubble\radius) hitornot=True Goto hit End If If Not bubble\x<=10 Or bubble\x>=700 Or bubble\xm=10 Or bubble\y<=0 Or bubble\y>=550 bubble\stucktimer#=bubble\stucktimer#-.1 End If If bubble\stucktimer#=10 bubble\x=Rnd(20,780) bubble\y=Rnd(30,570) End If For laser.laser=Each laser If laser\x>bubble\x And laser\x<bubble\x+bubble\radius Then score=score+100 : bubble\radius=bubble\radius-5 Next Next For laser.laser=Each laser If chaingun=False laser\timer#=laser\timer#-.1 End If If chaingun=True laser\timer#=laser\timer#-.03 End If If Not laser\timer#=0 Color 0,255,0 Line laser\x,laser\y,laser\xend,laser\yend End If If laser\timer<=0 Then Delete laser Next p\shottime#=p\shottime#-.1 If p\shottime#<0 Then p\shottime#=0 If KeyDown(205) Then p\x=p\x+speed If KeyDown(203) Then p\x=p\x-speed If KeyDown(57) And p\shottime#<=0 Color 0,255,0 laser.laser=New laser laser\x=p\x laser\y=p\y+1 laser\yend=p\y-600 laser\xend=p\x laser\timer#=timerbonus If freload=False p\shottime#=10 End If If freload=True p\shottime#=5 End If End If Color 255,0,0 createabubble=Rnd(1,115) If createabubble=3 bubble.bubble=New bubble bubble\x=Rnd(20,780) bubble\y=Rnd(30,570) bubble\xm=Rnd(-1,1) bubble\ym=Rnd(-1,1) bubble\radius=30 End If Color 255,255,0 Text 5,470,info$ Text 5,500, "time until next shot "+p\shottime# Text 5,530, "score "+score If score>10000 Then info$="ChainGun Unlocked! (Laser lasts longer)" : chaingun=True If score=20000 Then info$="FastReaload Unlocked! (Less timer to reload)" : freload=True If score>40000 Then info$="FunkyColors Unlocked! (Funky colors!)" : funky=True Flip Wend

Line of Sight by caffeinekid for Workshop #062 Hit the target. Spacebar Click to download this entry

Yey Lines!!! by magicman for Workshop #062 Draw lines, then hit Spacebar Mouse, Spacebar and the number one! ; this is a program that dose stuff. to use it, run it, and use the mouse to make lines, hell, draw ; a picture, mabey a stickman, or a mountian, or even recreate the mona lisa. once you have made your ; thing, then hit the space bar, it will be fun. this isnt really a game, but i was just toying with ; a few line things and it came up, this is one of my entries for ww #62 by, can you guess, huh, can ; you? Thats right, magicman, it was made by magicman, now play it. ENJOY!!!!!!!!!!!!! ;I WARN YOU, IT IS MESSY AND IN MOST PARTS IMPOSIBLE TO UNDERSTAND, DONT EVEN TRY TO READ IT NEVER ;THE LESS UNDERSTAND IT. AppTitle "Line Pysics(sort of)" Graphics 800,600,16,2 SetBuffer BackBuffer() AutoMidHandle True Type l Field x#,y#,xs#,ys#,p,yv#,ysv#,xv#,xsv#,r,b,g End Type Global gravity# = 0.1 Global gotline = 0 While Not KeyDown(1) Cls SeedRnd MilliSecs() If gotLine = 0 If MouseHit(1) l.l=New l l\x# = MouseX() l\y# = MouseY() l\yv# = 0 l\ysv# = 0 l\r = Rnd(0,255) l\g = Rnd(0,255) l\b = Rnd(0,255) l\p = 0 gotline = 1 EndIf EndIf If gotline = 1 For l.l=Each l If l\p = 0 If MouseHit(1) l\xs = MouseX() l\ys = MouseY() l\p = 1 gotline = 0 EndIf EndIf Next EndIf If MouseDown(2) gravity# = -0.1 Else gravity# = 0.1 EndIf If KeyDown(57) effects = 1 EndIf For l.l = Each l If effects = 1 l\yv# = l\yv# + gravity# l\ysv# = l\ysv# + gravity# l\x# = l\x# + Rnd(-2,2) l\y# = l\y# + Rnd(-2,2) l\xs# = l\xs# + Rnd(-2,2) l\ys# = l\ys# + Rnd(-2,2) EndIf Next Color 255,255,255 For l.l=Each l Color l\r,l\g,l\b If l\p = 1 Line l\x,l\y,l\xs,l\ys Else Line l\x,l\y,MouseX(),MouseY() EndIf l\x# = l\x# + l\xv# l\xs# = l\xs# + l\xsv# l\y# = l\y# + l\yv# l\ys# = l\ys# + l\ysv# If l\y# > 600 l\yv# = l\yv# - 1 l\yv# = -l\yv# ;l\xv# = -l\xv# l\y# = l\y# - 1 EndIf If l\ys# > 600 l\ysv# = l\ysv# - 1 l\ysv# = -l\ysv# ;l\xsv# = -l\xsv# l\ys# = l\ys# - 1 EndIf Next If KeyHit(2) For l.l = Each l Delete l effects = 0 Next EndIf Color 255,255,255 Text 10,10,"USE THE MOUSE TO MAKE THE LINES. PRESS SPACE FOR EFFECTS. PRESS 1 TO START OVER!!!!!!!" Flip Wend End

Space Snake by JL235 for Workshop #062 Guide the snake to collect the objects Q/A = Left W/S = Right Click to download this entry

Lifeline by Huruey for Workshop #062 <font color=#FF0000>WARNING : THIS GAME MAY BE USED TO SHUT DOWN YOUR PC, OR DELETE FILES FROM YOUR PC. PLAY WISELY</font> Mouse SeedRnd MilliSecs() AppTitle "Lifeline :: It's not for whimps...","This is your last chance to exit..." Graphics 500,350 Global risk,file$,linewidth# Print "Lifeline :: It's not for whimps..." Print Color 150,150,150 Print "Lifeline is a game of risk." Print "The game involves a line moving across the screen" Print "slowly. This line is your lifeline, if it touches the other" Print "side of the screen, you lose. But HOW DO YOU STOP IT?" Print Print "Stopping it sounds easy: just click on the line to win!" Print "However, it will be fullscreen, with the cursor hidden!" Print Print "I wonder who is brave enough to play?" WaitKey() Cls Locate 0,0 FlushKeys() Color 255,255,255 Print "Lifeline :: It's not for whimps..." Print Color 150,150,150 Print "Lifeline may be played with or without risk." Print Print "The creator of this program cannot be held" Print "responsable for any damage this program may" Print "cause to your computer. This program will" Print "not modify files on your computer without" Print "permission. Option 3 asks for a file you wish" Print "to be deleted should you lose, making it your" Print "own responsability." Print Print Color 200,200,200 Print "Press 1 if you wish to play without risk" Print Print "Press 2 if you wish to risk a forced shutdown" Print "if you lose" Print Print "Press 3 to chose and risk the deletion of a" Print "file on your computer" Print Color 255,255,255 Print "Now is your last chance to exit the program." Print "Pressing Ctrl, Alt, Delete, Backspace, Esc or Tab" Print "during play will cause an instant lose and" Print "you will recieve the forfeit." Repeat If KeyHit(1) Then End If KeyHit(2) Then risk=0 introend=1 If KeyHit(3) Then risk=1 introend=1 If KeyHit(4) Then risk=2 introend=1 Until introend=1 Cls Locate 0,0 FlushKeys() Print "Due to the seriousness of this game, it is required" Print "that you enter the following code to verify you wish" Print "to play." Print scode=Rnd(1000,9999) Print "Code: "+scode Print icode=Input("Re-enter code: ") If icode<>scode Color 200,0,0 Print "Codes did not match" Delay 1000 End EndIf If risk=3 Cls Locate 0,0 Print "You selected option 3..." Print "Please enter the file you wish to risk..." file$=Input("Filename: ") If FileSize(file$)=0 Color 255,0,0 Print Print "Invalid Filename" Delay 1000 End EndIf EndIf Graphics 640,480,16,1 Repeat Locate 0,0 Print "Click on the line before it reaches the other side..." Print "You may recieve small clues..." Line 0,300,linewidth,300 linewidth#=linewidth#+0.2 rno=Rnd(1000) If rno=100 Then Text MouseX(),MouseY(),"The cursor is somewhere around here":Delay 500 If MouseHit(1) If MouseY()=300 And MouseX()<=linewidth For i=1 To 30 Print "YOU WIN!!!" Next Delay 2000 End EndIf EndIf Flip Cls Until KeyHit(1) Or KeyHit(14) Or KeyHit(15) Or KeyHit(29) Or KeyHit(56) Or KeyHit(211) Or linewidth>800 If risk=1 Then ExecFile("C:\Windows\ system32\shutdown.exe -s") If risk=2 Then DeleteFile(file$) End

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

Wednesday Workshop - Socoder