Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|617\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #008 (03 Aug 2005) The Lucky Challenge Are you lucky enough to win this week's challenge? You'd have to be with all of last week's Voting nonsense! No matter... Moody keeps telling us that he wants Games of Chance, so that's what this week's is. Fruit Machines, Card Games, Flip of a Coin, no matter what, so long as the winning is more Random Luck than anything else..

Demolition! by blanko1324 for Workshop #008 Created in a Sleep Inn in Williamsburg, Virginia ;The game of chance. ;Wed. Workshop #8 ;Title: Demolition! ;Started: WED Aug. 3rd, 2005. 3:06 AM ;(in a Sleep Inn in Williamsburg, Virginia) Graphics 800,600,0,2 AppTitle "Demolition!" SetBuffer BackBuffer() SeedRnd MilliSecs() Type button Field x,y Field hit ;If the button is hit Field real ;determines if it is the right button End Type Type player Field num Field name$ End Type ;Total buttons: 8 Global num_of_players Global n Global height = 70 Global heighttwo = 200 Global Win = 0 While (num_of_players > 8 Or num_of_players < 2) Cls Text 150,100,"Welcome to Demolition!" Text 50,150,"Players: Two to eight players. THIS IS A MULTIPLAYER GAME AND CANNOT BE PLAYED ALONE!" Text 50,190,"To play: There are a total of eight buttons. One of the buttons, when hit, will" Text 50,210,"demolish the building. Players take turns selecting a button. The object is to be the" Text 50,230,"player to choose the correct button and blow up the building." Locate 50,260 num_of_players = Input$("How many players? ") n = 1 Flip Wend Cls For i = 1 To num_of_players Text 50,100,"Player: " + n p.player = New player p\num = n Locate 50,150 p\name = Input$("What is player " + p\num + "'s name? ") n = n + 1 Cls Next Global one.button = New button one\x = 30 one\y = 450 one\hit = 0 Global two.button = New button two\x = 130 two\y = 450 two\hit = 0 Global three.button = New button three\x = 230 three\y = 450 three\hit = 0 Global four.button = New button four\x = 330 four\y = 450 four\hit = 0 Global five.button = New button five\x = 430 five\y = 450 five\hit = 0 Global six.button = New button six\x = 530 six\y = 450 six\hit = 0 Global seven.button = New button seven\x = 630 seven\y = 450 seven\hit = 0 Global eight.button = New button eight\x = 730 eight\y = 450 eight\hit = 0 real = Rand(1,8) Select real Case 1 one\real = True Case 2 two\real = True Case 3 three\real = True Case 4 four\real = True Case 5 five\real = True Case 6 six\real = True Case 7 seven\real = True Case 8 eight\real = True End Select n = 1 FlushKeys() While Not KeyHit(1) Cls For p.player = Each player If p\num = n Color 255,255,255 Text 300,300,"It is " + p\name + "'s (player " + p\num + ") turn." EndIf Next If Win = 1 height = height + 1 heighttwo = heighttwo - 1 For p.player = Each player If p\num = n Text 300,350,"!! " + p\name + " WINS !! (hit esc)" EndIf If KeyHit(1) End EndIf Next EndIf ShowBuilding() ShowButtons() If Win = 0 ChooseButton() EndIf Flip Wend Function ShowBuilding() Color 150,150,150 Rect 350,height,100,heighttwo ;building Color 0,0,0 Rect 360,80,20,40 Rect 360,130,20,40 ;windows Rect 420,80,20,40 Rect 420,130,20,40 Rect 390,80,20,40 Rect 390,130,20,40 Rect 380,230,40,40 ;door End Function Function ShowButtons() Color 255,0,0 If one\hit = 0 Rect one\x,one\y,40,40 EndIf If two\hit = 0 Rect two\x,two\y,40,40 EndIf If three\hit = 0 Rect three\x,three\y,40,40 EndIf If four\hit = 0 Rect four\x,four\y,40,40 EndIf If five\hit = 0 Rect five\x,five\y,40,40 EndIf If six\hit = 0 Rect six\x,six\y,40,40 EndIf If seven\hit = 0 Rect seven\x,seven\y,40,40 EndIf If eight\hit = 0 Rect eight\x,eight\y,40,40 EndIf Color 0,0,0 Text one\x+2,one\y+2,"1" Text two\x+2,two\y+2,"2" Text three\x+2,three\y+2,"3" Text four\x+2,four\y+2,"4" Text five\x+2,five\y+2,"5" Text six\x+2,six\y+2,"6" Text seven\x+2,seven\y+2,"7" Text eight\x+2,eight\y+2,"8" End Function Function ChooseButton() Locate 300,320:Color 255,255,255 temp = Input$("Choose a button to press: ") Select (temp) Case 1 If one\real = True Win = 1 Else n = n + 1 one\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 2 If two\real = True Win = 1 Else n = n + 1 two\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 3 If three\real = True Win = 1 Else n = n + 1 three\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 4 If four\real = True Win = 1 Else n = n + 1 four\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 5 If five\real = True Win = 1 Else n = n + 1 five\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 6 If six\real = True Win = 1 Else n = n + 1 six\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 7 If seven\real = True Win = 1 Else n = n + 1 seven\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Case 8 If eight\real = True Win = 1 Else n = n + 1 eight\hit = 1 EndIf If n > num_of_players n = 1 EndIf ;--- Default End Select End Function

Strike a Light by Matt Vinyl for Workshop #008 The game starts off with a reasonable amount of skill, but soon goes a bit nuts, how lucky will you be! Click to download this entry

Moody Boi's Play Your Cards Right by Ryan Moody for Workshop #008 If you play it using your telly, instead of your monitor, it's just like you're there on the game! Click to download this entry

Gamble! by Jayenkai for Workshop #008 Gamble away.. 7 games to play! Click to download this entry

Dice Club by Jayparker for Workshop #008 Actually made in 1,5 hours... ; ; DICE CLUB v0.1 (Blitz3D) ; for Wednesday Workshop #008 ; by Jay Parker ; Copyright (c) Puzzlehouse Finland 2005. ; Graphics 640,480,0,2 Const White = 1 Const Red = 2 Const Yellow = 3 Const Green = 4 fnt=LoadFont("tahoma",26,True) fnt2=LoadFont("tahoma",20) fin=ReadFile("best.dat") If fin bestscore=ReadShort(fin) bestname$=ReadString(fin) CloseFile fin Else bestscore=10 bestname="Jay Parker" EndIf .Title Cls : Locate 0,0 SetFont fnt pen yellow Print "Dice Club v0.1" pen white SetFont fnt2 Print "Copyright (c) Puzzlehouse Finland 2005." Print : Print pen white : Write "Best result " : pen yellow : Write BestScore : pen white : Write " by " : pen yellow : Write BestName Print : Print FlushKeys() : pen green nimi$=Input("Enter your name: ") If nimi="" End nimi=Left$(nimi,15) round=1 score=0 total_score=0 .StartGame score=0 SeedRnd (MilliSecs()) Cls : Locate 0,0 SetFont fnt : pen white Write "Round - " : pen yellow: Write round Print : Print SetFont fnt2 pen white a=Rand(6) : b=Rand(6) pen white : Write "Your deathroll is: " show_result a,b AppTitle "Deathroll: "+a+"+"+b+"="+(a+b)+" Total score: "+total_score roll=0 .Loop roll=roll+1 If roll=11 Goto rundi_ohi Print : Print z=Rand(6) x=Rand(6) pen yellow : score=score+(z+x) Write "Roll #"+roll+" : " : pen white : Write "Round score: "+score : Print show_result z,x If (a+b)=(z+x) ;Deathroll! Print : Print score=0 SetFont fnt pen red Print "DEATHROLL!" : Goto rundi_ohi Else pen green : Write " More (Y/N)? " ch$=Input("") If ch="q" Or ch="Q" End If ch="" Or ch="y" Or ch="Y" Goto loop Else .rundi_ohi total_score=total_score+score Print : Print pen red : Print "Round end!" Print : pen white Print "This round : "+score Print "Total score : "+total_score FlushKeys() WaitKey round=round+1 If round=11 Goto GameEnd Goto startgame EndIf EndIf .GameEnd Cls : Locate 0,0 SetFont fnt pen yellow Print "Game Over!" Print : Print pen white : Write "Your total score is " : pen green : Write total_score If total_score>bestscore BestScore=Total_Score BestName$=nimi$ fout=WriteFile("best.dat") If fout WriteShort fout,bestscore WriteString fout,bestname EndIf EndIf FlushKeys() WaitKey() Goto title Function Show_Result( w%,e% ) pen green : Write w : pen white : Write " + " : pen green : Write e : pen white : Write " = " pen yellow : Write (w+e) End Function Function Pen(nro%) Select Nro Case White Color 255,255,255 Case Yellow Color 255,255,0 Case Red Color 255,0,0 Case Green Color 0,255,0 End Select End Function

Stock Market by firemaker103 for Workshop #008 Welcome to the Stock Market. ;Stock Market Graphics 800,600,16,2 SeedRnd(MilliSecs()) Global buysell$ Global usermoney = 50 Global highlow = 0 Global day = True Global bug = 1 Const stock1$ = "PlanVista" Global stock1money# = Rand(-50,50) Global stockcount1 = 0 Const stock2$ = "TechKnows" Global stock2money# = Rand(-50,50) Global stockcount2 = 0 Const stock3$ = "JordanTeam" Global stock3money# = Rand(-50,50) Global stockcount3 = 0 Const stock4$ = "Exsoft Games" Global stock4money# = Rand(-50,50) Global stockcount4 = 0 Global paused = 1 Global mousehitleft=0 Global mousehitright=0 Global playing = 0 ;############################################33 Print "Welcome to the Stock Market. Click below fo either simulation or one-a-day mode. FlushMouse() While playing=0 runmouse() Color 50,50,50 Rect 302,202,200,26,0 Text 306,204,"Play" Rect 302,302,200,26,0 Text 306,304,"Instructions" Rect 302,402,200,26,0 Text 306,404,"Exit" Color 255,255,255 Rect 300,200,200,26,0 Text 304,202,"Play" Rect 300,300,200,26,0 Text 304,302,"Instructions" Rect 302,402,200,26,0 Text 304,402,"Exit" Color 255,255,255 Rect 300,200,200,26,0 Text 304,202,"Play" Rect 300,300,200,26,0 Text 304,302,"Instructions" Rect 302,402,200,26,0 Text 304,402,"Exit" If mousehitleft=1 If rectoverlap(300,200,200,26,MouseX(),MouseY(),1,1)=1 playing=1 levelmenu() EndIf If rectoverlap(300,300,200,26,MouseX(),MouseY(),1,1)=1 And mousehitleft=1 Instructions() EndIf If rectoverlap(300,400,200,26,MouseX(),MouseY(),1,1)=1 And mousehitleft=1 End EndIf EndIf Wend ;############################################# ;Functions Function RectOverlap(x,y,w,h,xx,yy,ww,hh) If x+w>xx And y+h>yy And xx+ww>x And yy+hh>y Then Return 1 Return 0 End Function Function runmouse() mousehitleft=0 If MouseDown(1)=1 And mousehitleft1=0 mousehitleft1=1 mousehitleft=1 EndIf If MouseDown(1)=0 Then mousehitleft1=0 mousehitright=0 If MouseDown(2)=1 And mousehitright1=0 mousehitright1=1 mousehitright=1 EndIf If MouseDown(2)=0 Then mousehitright1=0 End Function Function levelmenu() FlushMouse() Cls While paused = 1 runmouse() ;#Boxes Color 255,255,255 Rect 0,572,200,26,0 Text 2,574,"One a Day" Color 255,255,255 Rect 220,572,200,26,0 Text 222,574,"Sim" Color 255,255,255 Rect 440,572,200,26,0 Text 442,574,"Back" ;#######END BOX Text 300,200,"Click on a mode to play it." ;#################TESTING CLick If mousehitleft=1 And rectoverlap(0,574,200,26,MouseX(),MouseY(),1,1)=1 Cls FlushMouse() Print "Feature not done yet!" paused=0 EndIf If mousehitleft=1 And rectoverlap(220,574,200,26,MouseX(),MouseY(),1,1)=1 Cls FlushMouse() FlushMouse() While Not KeyDown(1) Sim() Wend paused=0 EndIf If mousehitleft=1 And rectoverlap(440,574,200,26,MouseX(),MouseY(),1,1)=1 paused=0 Cls playing = 0 EndIf ;####END TEST CLICK Wend End Function Function Instructions() paused=1 While paused=1 Cls If KeyHit(1) Then paused=0 runmouse() Print "Not done yet!" ;DrawImage instructionscreen,0,0 Color 50,50,50 Rect 2,574,200,26,0 Text 4,576,"Back" Color 255,255,255 Rect 0,572,200,26,0 Text 2,574,"Back" If mousehitleft=1 And rectoverlap(0,574,200,26,MouseX(),MouseY(),1,1)=1 Cls paused=0 EndIf Wend FlushKeys End Function Function Sim() .day FlushMouse() FlushMouse() FlushMouse() FlushMouse() If day = True Text 300,300,"Below are the stocks price. What do you want to do?" Text 0,0,stock1 : Text 0,20,stock1money# Text 100,0,stock2 : Text 100,20,stock2money# Text 200,0,stock3 : Text 200,20,stock3money# SeedRnd(MilliSecs()) increase = Rand(-5,5) Text 300,0,stock4 : Text 300,20,stock4money# Text 0,560, "Your money: " + usermoney ;######################USER INTERFACE############################################# Rect 0,572,200,26,0 Text 2,574,"Buy" Rect 0,572,200,26,0 Text 2,574,"Buy":FlushMouse() FlushMouse():If MouseDown(1) And rectoverlap(0,574,200,26,MouseX(),MouseY(),1,1)=1 Cls Buy() Goto day EndIf Rect 210,572,200,26,0 Text 212,574,"Sell" Rect 210,572,200,26,0 Text 212,574,"Sell":FlushMouse() FlushMouse():If MouseDown(1) And rectoverlap(210,574,200,26,MouseX(),MouseY(),1,1)=1 Cls Sell() Goto day EndIf Rect 420,572,200,26,0 Text 422,574,"Go to next day" Rect 420,572,200,26,0 Text 422,574,"Go to next day":FlushMouse() FlushMouse():If MouseDown(1) And rectoverlap(420,574,200,26,MouseX(),MouseY(),1,1)=1 Cls stock1money# = Rand(-50,50) stock2money# = Rand(-50,50) stock3money# = Rand(-50,50) stock4money# = Rand(-50,50) Goto day EndIf ;########################END USER INTERFACE############################################## EndIf End Function Function Buy() If bug = 1 Text 0,0,stock1 : Text 0,20,stock1money# Text 100,0,stock2 : Text 100,20,stock2money# Text 200,0,stock3 : Text 200,20,stock3money# Text 300,0,stock4 : Text 300,20,stock4money# Text 0,560, "Your money: " + usermoney buysell$ = Input$("Which stock do you want to buy? (In order. EG: PlanVista = 1, Techknows = 2): ") Select buysell$ Case 1 stockcount1 = stockcount1 + 1 usermoney = usermoney - stock1money# Case 2 stockcount2 = stockcount2 + 1 usermoney = usermoney - stock2money# Case 3 stockcount3 = stockcount3 + 1 usermoney = usermoney - stock3money# Case 4 stockcount4 = stockcount4 + 1 usermoney = usermoney - stock4money# End Select EndIf bug = 0 End Function Function Sell() If bug = 1 Text 0,0,stock1 : Text 0,20,stock1money# Text 100,0,stock2 : Text 100,20,stock2money# Text 200,0,stock3 : Text 200,20,stock3money# Text 300,0,stock4 : Text 300,20,stock4money# Text 0,560, "Your money: " + usermoney buysell$ = Input$("Which stock do you want to sell? (In order. EG: PlanVista = 1, Techknows = 2): ") Select buysell$ Case 1 If stockcount1 > 0 stockcount1 = stockcount1 - 1 usermoney = usermoney + stock1money# EndIf Case 2 If stockcount2 > 0 stockcount2 = stockcount2 - 1 usermoney = usermoney + stock2money# EndIf Case 3 If stockcount3 > 0 stockcount3 = stockcount3 - 1 usermoney = usermoney + stock3money# EndIf Case 4 If stockcount4 > 0 stockcount4 = stockcount4 - 1 usermoney = usermoney + stock4money# EndIf End Select EndIf bug = 0 End Function Function GetText$(x,y,prompt$,max) Local key,l,inp$ SetBuffer BackBuffer() Text x,y,prompt+" "+inp$ Flip Repeat key=WaitKey() If key>31 Then If Len(inp)<max Then inp=inp+Chr(key) ElseIf key=8 Then If Len(inp)>0 Then inp=Left(inp,Len(inp)-1) EndIf Text x,y,prompt+" "+inp Flip Cls Until key=13 Return inp End Function

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

Wednesday Workshop - Socoder