Wednesday Workshop - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|507\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #005 (13 Jul 2005) The Moody Text Adventure Challenge Moody loves his games, but he also likes to read. Unfortunately, the last Text Adventure on the market was about 50,000 years ago... So, make him a new one!

Casa Blanca by Instinct for Workshop #005 It has nothing to do with the white house except for the very first room. It gets kinda wierd, I dunno what I Click to download this entry

Textgame by jayparker for Workshop #005 jayparker had to update his entry, when it was found to be seemingly impossible to incomplete. This is the version y Click to download this entry

Class Clown by blanko1324 for Workshop #005 You are a student in 10th grade and you have to play tricks on Click to download this entry

Jailbreak by Ryan Moody for Workshop #005 Can AppTitle "Jailbreak", "Quit Jailbreak?" Graphics 640,480,16,2 Const MapDimensions = 7 Dim Map$(MapDimensions,MapDimensions) Global xPos Global yPos Type TItem Field Name$ Field Description$ End Type Type TQuestion Field Place$ Field Person$ Field Question$ End Type Function PrintText( theText$, colour$, newLine ) Select colour Case "white" Color 255,255,255 Case "yellow" Color 255,255,0 Case "red" Color 255,0,0 Case "green" Color 0,255,0 Case "pink" Color 255,200,200 Case "cyan" Color 0,255,255 End Select If newLine Print theText Else Write theText EndIf End Function Function PrintInventory() Local carryingSomething = False PrintText( "You are carrying:", "white", True ) For item.TItem = Each TItem PrintText( item\Name, "green", False ) PrintText( " - ", "red", False ) PrintText( item\Description, "cyan", True ) carryingSomething = True Next If Not carryingSomething PrintText( "Nothing", "pink", True ) EndIf End Function Function PrintArea() Select Map(xPos,yPos) Case "A" PrintText("You're locked in your cell. You see the", "white", False) PrintText(" lock ", "cyan", False) PrintText("preventing your escape,", "white", True) PrintText("along with the", "white", False) PrintText(" guard ", "cyan", False) PrintText("holding the", "white", False) PrintText(" key ", "cyan", False) PrintText("to unlock your cell a distance away.", "white", True) PrintText("Opposite you, you see a fellow", "white", False) PrintText(" inmate", "cyan", False) PrintText(".", "white", True) Case "B" PrintText("You're in your now unlocked cell. You see the", "white", False) PrintText(" lock ", "cyan", False) PrintText("on the floor.", "white", True) PrintText("The passage of the cell block lies to the north.", "white", True) Case "C" PrintText("You're in your now unlocked cell.", "white", True) PrintText("The passage of the cell block lies to the north.", "white", True) Case "D" PrintText("You're in the cell block passageway. To the south is the cell you came from.", "white", True) PrintText("To the east is the sleeping guard, and to the west appears to be an escape", "white", True) PrintText("route. Your fellow", "white", False) PrintText(" inmate ", "cyan", False) PrintText("is locked up opposite you. You see the inmate's", "white", True) PrintText("cell's", "white", False) PrintText(" lock", "cyan", False) PrintText(".", "white", True) Case "E" PrintText("You're to the west of your cell. You notice a small", "white", False) PrintText(" tile", "cyan", True) PrintText("on the floor that looks slightly different to the rest.", "white", True) PrintText("To the west is certain escape, but you decide against leaving", "white", True) PrintText("without your inmate. To the east is your cell.", "white", True) Case "F" PrintText("You're to the east of your cell. The guard is sleeping nearby.", "white", True) PrintText("You notice a", "white", False) PrintText(" hatch ", "cyan", False) PrintText("in the wall, but there appears to be no way of opening it.", "white", True) PrintText("To the west is your cell.", "white", True) Case "G" PrintText("You're to the west of your cell.", "white", True) PrintText("To the west is certain escape, but you decide against leaving", "white", True) PrintText("without your inmate. To the east is your cell.", "white", True) Case "H" PrintText("You're to the east of your cell. The guard is sleeping nearby.", "white", True) PrintText("The hatch which once concealed a", "white", False) PrintText(" gold key ", "cyan", False) PrintText("is now open.", "white", True) PrintText("To the west is your cell.", "white", True) Case "I" PrintText("You're to the east of your cell. The guard is sleeping nearby.", "white", True) PrintText("To the west is your cell.", "white", True) End Select End Function Function MoveNorth() If Map(xPos,yPos - 1) <> "#" PrintText("You move North", "white", True) yPos = yPos - 1 PrintArea() Else PrintText("You cannot move North", "pink", True) EndIf End Function Function MoveSouth() If Map(xPos,yPos + 1) <> "#" PrintText("You move South", "white", True) yPos = yPos + 1 PrintArea() Else PrintText("You cannot move South", "pink", True) EndIf End Function Function MoveEast() If Map(xPos + 1,yPos) <> "#" PrintText("You move East", "white", True) xPos = xPos + 1 PrintArea() Else PrintText("You cannot move East", "pink", True) EndIf End Function Function MoveWest() If Map(xPos - 1,yPos) <> "#" PrintText("You move West", "white", True) xPos = xPos - 1 PrintArea() Else PrintText("You cannot move West", "pink", True) EndIf End Function Function Examine( objectToExamine$ ) Select Map(xPos,yPos) Case "A" Select objectToExamine Case "LOCK" PrintText("The lock's too tough to break. You'll need the key to unlock it.", "white", True) Case "GUARD" PrintText("The guard's as ugly as hell. But at least he has freedom.", "white", True) Case "KEY" PrintText("If that doesn't unlock this cell, nothing will.", "white", True) Case "INMATE" PrintText("He faces the same fate as me. I can't let him die here.", "white", True) Default PrintText("I can't examine that.", "pink", True) End Select Case "B" Select objectToExamine Case "LOCK" PrintText("Not the lightest of locks, unsurprisingly.", "white", True) Default PrintText("I can't examine that.", "pink", True) End Select Case "D" Select objectToExamine Case "INMATE" PrintText("He's still locked up.", "white", True) Case "LOCK" PrintText("Looks just like the lock for my cell.", "white", True) Default PrintText("I can't examine that.", "pink", True) End Select Case "E" Select objectToExamine Case "TILE" PrintText("On closer inspection, it looks like some sort of pressure pad.", "white", True) Default PrintText("I can't examine that.", "pink", True) End Select Case "F" Select objectToExamine Case "HATCH" PrintText("It's hiding something, but I can't open it.", "white", True) Default PrintText("I can't examine that.", "pink", True) End Select Case "H" Select objectToExamine Case "GOLD KEY" PrintText("This must open the inmate's cell.", "white", True) Default PrintText("I can't examine that.", "pink", True) End Select Default PrintText("I can't examine that.", "pink", True) End Select End Function Function Take( objectToTake$ ) Select Map(xPos,yPos) Case "A" Select objectToTake Case "KEY" PrintText("It's out of reach.", "white", True) Default PrintText("I can't take that.", "pink", True) End Select Case "B" Select objectToTake Case "LOCK" PrintText("You take the lock.", "white", True) i.TItem = New TItem i\Name = "LOCK" i\Description = "Not the lightest of locks, unsurprisingly." Map(xPos,yPos) = "C" PrintArea() Default PrintText("I can't take that.", "pink", True) End Select Case "E" Select objectToTake Case "TILE" PrintText("You can't move it.", "white", True) Default PrintText("I can't take that.", "pink", True) End Select Case "H" Select objectToTake Case "GOLD KEY" PrintText("You take the gold key.", "white", True) i.TItem = New TItem i\Name = "GOLD KEY" i\Description = "This must open the inmate's cell." Map(xPos,yPos) = "I" PrintArea() Default PrintText("I can't take that.", "pink", True) End Select Default PrintText("I can't take that.", "pink", True) End Select End Function Function Use( objectToUse$ ) Select Map(xPos,yPos) Case "A" Select objectToUse Case "KEY ON LOCK" If HaveItem("KEY") PrintText("You unlock your cell, and the", "white", False) PrintText(" lock ", "cyan", False) PrintText("falls to the ground.", "white", True) Map(xPos,yPos) = "B" Map(xPos,Ypos-1) = "D" Delete Each TQuestion question.TQuestion = New TQuestion question\Place = "D" question\Person = "INMATE" question\Question = "I'M FREE!" PrintArea() Else PrintText("You don't have the key!", "pink", True) EndIf Default PrintText("Use what on what?", "pink", True) End Select Case "D" Select objectToUse Case "KEY ON LOCK" PrintText("It doesn't fit this lock.", "white", True) Case "GOLD KEY ON LOCK" PrintText("You free the inmate from his cell! You both dash westwards", "white", True) PrintText("towards the escape! JAILBREAK!!!", "white", True) Delay 1000 FlushKeys WaitKey End Default PrintText("Use what on what?", "pink", True) End Select Case "E" Select objectToUse Case "LOCK ON TILE" If HaveItem("LOCK") PrintText("You place the lock on the tile, and you see something open to the east.", "white", True) PrintText("It must have been a pressure pad.", "white", True) DeleteItem("LOCK") Map(xPos,yPos) = "G" Map(xPos + 2,yPos) = "H" PrintArea() Else PrintText("Use what on what?", "pink", True) EndIf Default PrintText("Use what on what?", "pink", True) End Select Default PrintText("Use what on what?", "pink", True) End Select End Function Function HaveItem( theItem$ ) For item.TItem = Each TItem If item\Name = theItem Then Return True Next Return False End Function Function DeleteItem( theItem$ ) For item.TItem = Each TItem If item\Name = theItem Then Delete item Next End Function Function TalkTo( person$ ) Select person Case "GUARD" Select Map(xPos,yPos) Case "A" Conversation( Map(xPos,yPos), person ) Default PrintText("Talk to who?", "pink", True) End Select Case "INMATE" Select Map(xPos,yPos) Case "A","D" Conversation( Map(xPos,yPos), person ) Default PrintText("Talk to who?", "pink", True) End Select Default PrintText("Talk to who?", "pink", True) End Select End Function Function Conversation( place$, person$ ) Local questionNo = 1 Local choice Local validChoice = False PrintText("What do you want to say?", "white", True) For question.TQuestion = Each TQuestion If question\Place = place And question\Person = person PrintText(questionNo + ": " + question\Question, "cyan", True) questionNo = questionNo + 1 EndIf Next PrintText(questionNo + ": Exit conversation", "cyan", True) PrintText("Enter a number: ", "yellow", False) choice = Input() questionNo = 1 For question.TQuestion = Each TQuestion If question\Place = place And question\Person = person If questionNo = choice validChoice = True Response(place, person, question\Question) EndIf questionNo = questionNo + 1 EndIf Next If (Not validChoice) And (choice <> questionNo) PrintText("Enter one of the given numbers.", "pink", True) EndIf If choice <> questionNo Conversation( place, person ) Else PrintText("You exit the conversation.", "white", True) EndIf End Function Function Response( place$, person$, question$ ) PrintText(question, "pink", True) Select question Case "How can we get out of here?" PrintText("This wouldn't be a very good text adventure if I told you that, would it?", "green", True) PrintText("Fair enough.", "pink", True) DeleteQuestion( place, person, question ) Case "How you doing?" PrintText("I'm on death row. How do you expect I'm doing?", "green", True) PrintText("I imagine you could be better.", "pink", True) DeleteQuestion( place, person, question ) Case "LET ME OUT!" PrintText("Oi! Keep it shtum in there!", "green", True) DeleteQuestion( place, person, question ) q.TQuestion = New TQuestion q\Place = "A" q\Person = "INMATE" q\Question = "If I distract the guard, could you take his key?" Case "If I distract the guard, could you take his key?" PrintText("Sure thing. Make sure you return the favour though.", "green", True) DeleteQuestion( place, person, question ) q.TQuestion = New TQuestion q\Place = "A" q\Person = "GUARD" q\Question = "Help! Help!" Case "Help! Help!" PrintText("What is it?!", "green", True) PrintText("I think I'm bisexual!", "pink", True) PrintText("That would explain a lot of things. Now shut up and let me sleep!", "green", True) PrintText("During your conversation, the inmate took the key.", "white", True) PrintText("The guard walks back to his seat and takes a nap.", "white", True) DeleteQuestion( place, person, question ) q.TQuestion = New TQuestion q\Place = "A" q\Person = "INMATE" q\Question = "Let's have the key then!" q.TQuestion = New TQuestion q\Place = "A" q\Person = "INMATE" q\Question = "You don't think I'm bisexual, do you?" Case "Let's have the key then!" PrintText("Here you go.", "green", True) PrintText("The inmate hands you the key.", "white", True) PrintText("Cheers mate.", "pink", True) DeleteQuestion( place, person, question ) i.TItem = New TItem i\Name = "KEY" i\Description = "Unlocks your cell." Case "You don't think I'm bisexual, do you?" PrintText("We can discuss this later.", "green", True) DeleteQuestion( place, person, question ) Case "I'M FREE!" PrintText("I've helped you get out, now return the favour.", "green", True) DeleteQuestion( place, person, question ) End Select End Function Function DeleteQuestion( place$, person$, theQuestion$ ) For question.TQuestion = Each TQuestion If question\Place = place And question\Person = person And question\Question = theQuestion Delete question EndIf Next End Function Function PerformCommand( command$ ) Select command Case "QUIT" End Case "HELP", "H" Help() Case "INVENTORY", "I" PrintInventory() Case "AREA", "A" PrintArea() Case "N" MoveNorth() Case "S" MoveSouth() Case "E" MoveEast() Case "W" MoveWest() Default If Left$(command, 8) = "EXAMINE " Examine( Right$( command, Len( command ) - 8 ) ) Else If Left$(command, 5) = "TAKE " Take( Right$( command, Len( command ) - 5 ) ) Else If Left$(command, 4) = "USE " Use( Right$( command, Len( command ) - 4 ) ) Else If Left$(command, 8) = "TALK TO " TalkTo( Right$( command, Len( command ) - 8 ) ) Else PrintText("What?", "pink", True) EndIf EndIf EndIf EndIf End Select End Function Function Help() Cls Locate 0,0 PrintText("I'm in a dark, damp place.","cyan",True) PrintText("Imprisoned for a crime I didn't commit.","cyan",True) PrintText("Death row is calling me.","cyan",True) PrintText("I need to get out of here.","cyan",True) PrintText("","white",True) PrintText("JAILBREAK ","yellow",False) PrintText("by Ryan Moody","white",True) PrintText("","white",True) PrintText("Commands can be entered in upper or lowercase.","pink",True) PrintText("Keywords that you can perform actions on are highlighted.","pink",True) PrintText("","white",True) PrintText("Commands:","green",True) PrintText("","white",True) PrintText("QUIT ","yellow",False) : PrintText("- Quits Jailbreak","green",True) PrintText("HELP, H ","yellow",False) : PrintText("- Displays this page","green",True) PrintText("INVENTORY, I ","yellow",False) : PrintText("- Lists the items you're carrying","green",True) PrintText("AREA, A ","yellow",False) : PrintText("- Describes the area you're in","green",True) PrintText("N, S, E, W ","yellow",False) : PrintText("- Move in the chosen compass direction","green",True) PrintText("EXAMINE <Object> ","yellow",False) : PrintText("- Examine an object e.g. EXAMINE APPLE","green",True) PrintText("TAKE <Object> ","yellow",False) : PrintText("- Take an object e.g. TAKE ROPE","green",True) PrintText("USE <ObjectA> ON <ObjectB> ","yellow",False) : PrintText("- Use one object on another e.g. USE PEN ON PAPER","green",True) PrintText("TALK TO <Person> ","yellow",False) : PrintText("- Start a conversation with someone e.g. TALK TO JOE","green",True) PrintText("","white",True) PrintText("Press any key to continue","pink",True) WaitKey Cls Locate 0,0 End Function Function InitialiseAdventure() Delete Each TItem Delete Each TQuestion question.TQuestion = New TQuestion question\Place = "A" question\Person = "GUARD" question\Question = "LET ME OUT!" question.TQuestion = New TQuestion question\Place = "A" question\Person = "INMATE" question\Question = "How you doing?" question.TQuestion = New TQuestion question\Place = "A" question\Person = "INMATE" question\Question = "How can we get out of here?" Restore mapLayout For y = 0 To MapDimensions - 1 For x = 0 To MapDimensions - 1 Read Map(x,y) If Map(x,y) = "A" xPos = x yPos = y EndIf Next Next Help() PrintArea() End Function InitialiseAdventure() While True PrintText("Enter a command: ", "yellow", False) PerformCommand( Upper$( Input$() ) ) Wend .mapLayout Data "#","#","#","#","#","#","#" Data "#","#","#","#","#","#","#" Data "#","#","E","#","F","#","#" Data "#","#","#","A","#","#","#" Data "#","#","#","#","#","#","#" Data "#","#","#","#","#","#","#" Data "#","#","#","#","#","#","#"

Takuta by tectec for Workshop #005 To move in tectec's game, remember to use "Move" before y Click to download this entry

Forgotten by Turkwoyz for Workshop #005 'look' at everything.. try to 'take' anything you can.. 'search' thing Click to download this entry

The 8th Day by Jayenkai for Workshop #005 Have fun, whilst you can... (A bit short, so also includes Jay's Click to download this entry

Third Moon by WizeNick for Workshop #005 It's lonely in Deep Space, but you're about to get s Click to download this entry

Fuzzy Text by Gosse for Workshop #005 Gosse cheated, but it's still a great game. A 3D game, rendered using ascii characters. Const scrWidth = 640 Const scrHeight = 480 Graphics3D scrWidth, scrHeight, 0, 2 AmbientLight 155, 155, 155 AppTitle "Fuzzy Text" AntiAlias True SeedRnd MilliSecs() Const Width = 80 Const RealHeight = 24 Const Height = RealHeight3/2 Const FW = scrWidth / Width Const FH = FW 2 Const CAMOFF = HeightFH+FH camDefault = CreateCamera() CameraViewport camDefault, 0, 0, Width, Height CameraClsColor camDefault, 110, 220, 250 MoveEntity camDefault, 0, 4, 0 lgtDefault = CreateLight(2, camDefault) LightRange lgtDefault, 5 MoveEntity lgtDefault, 0, 3, 0 mdlBall = CreateSphere() MoveEntity mdlBall, 4, 2, 3 mdlCube = CreateCube() MoveEntity mdlCube, 4, 3.5, 4 ScaleEntity mdlCube, 3.4, 0.3, 0.3 mdlCylinder = CreateCylinder() ScaleEntity mdlCylinder, 1, 5, 1 EntityColor mdlCylinder, 255, 200, 50 EntityColor mdlCube, 6, 11, 19 EntityColor mdlBall, 255, 0, 100 mdlGround = CreatePlane(16) EntityColor mdlGround, 50, 150, 50 pvtAxe = CreatePivot(camDefault) mdlAxeHand = CreateCylinder(8, True, pvtAxe) EntityColor mdlAxeHand, 190, 90, 20 ScaleEntity mdlAxeHand, 0.1, 1, 0.1 mdlAxeHead = CreateCone(8, True, pvtAxe) EntityColor mdlAxeHead, 180, 180, 180 MoveEntity mdlAxeHead, -0.01, 0.6, 0 ScaleEntity mdlAxeHead, 0.1, 0.4, 0.5 TurnEntity mdlAxeHead, -90, 0, 0 PositionEntity pvtAxe, 1, -0.5, 1.5 RotateEntity pvtAxe, 30, 50, 0 Global FrameStart Global DeltaTime# = 0.1 Global GameTime# = 0 Global FPS = 1200 Global FPSCount = FPS Global timFPS fntDefault = LoadFont("FixedSys", 24) SetFont fntDefault Dim Screen(Width-1, Height-1) Dim Colors(Width-1, Height-1, 2) While Not KeyDown(1) ; Frame Update FrameStart = MilliSecs() If timFPS < FrameStart Then FPS = FPSCount FPSCount = 0 timFPS = FrameStart + 1000 DeltaTime = 1.0 / Float(FPS) GameTime = GameTime + DeltaTime End If ; Movement mx# = KeyDown(203) - KeyDown(205) mx = mx DeltaTime * 50 mz# = KeyDown(200) - KeyDown(208) mz = mz * DeltaTime * 3 MoveEntity camDefault, 0, 0, mz TurnEntity camDefault, 0, mx, 0 If KeyDown(57) And (Not attacking) Then attacking = True state = 1 move# = 0 End If If attacking Then Select state Case 1 move = move + DeltaTime TurnEntity pvtAxe, -DeltaTime * 90, 0, 0 If move > 0.5 Then state = 2 move = 0 End If Case 2 move = move + DeltaTime TurnEntity pvtAxe, DeltaTime * 200, 0, 0 MoveEntity pvtAxe, 0, 0, DeltaTime * 3 If move > 0.6 Then state = 3 move = 0 End If Case 3 move = move + DeltaTime TurnEntity pvtAxe, -DeltaTime * 400, 0, 0 MoveEntity pvtAxe, 0, 0, -DeltaTime * 6 If move > 0.2 Then PositionEntity pvtAxe, 1, -0.5, 1.5 RotateEntity pvtAxe, 30, 50, 0 attacking = False End If End Select End If ; 3D Drawing SetBuffer BackBuffer() Cls RenderWorld LockBuffer For x = 0 To Width-1 For y = 0 To RealHeight-1 p = ReadPixelFast(x, y3/2) r=(p Shr 16) And $ff g=(p Shr 8) And $ff b=p And $ff Screen(x, y) = GetChar((r+g+b)/3) Colors(x, y, 0) = r Colors(x, y, 1) = g Colors(x, y, 2) = b Next Next UnlockBuffer ; 2D Drawing Cls For x = 0 To Width-1 For y = 0 To RealHeight-1 Color Colors(x, y, 0), Colors(x, y, 1), Colors(x, y, 2) Text 1+xFW, (y+1)*FH, Chr(Screen(x, y)) Next Next Text 1, 0, "FPS: " + FPS Flip False FPSCount = FPSCount + 1 Wend Function GetChar(clr) clr = clr / 4 Select clr Case 0 Return 32 Case 1 Return 39 Case 2 Return 45 Case 3 Return 46 Case 4 Return 173 Case 5 Return 183 Case 6 Return 180 Case 7 Return 184 Case 8 Return 175 Case 9 Return 95 Case 10 Return 44 Case 11 Return 185 Case 12 Return 58 Case 13 Return 178 Case 14 Return 43 Case 15 Return 43 Case 16 Return 176 Case 17 Return 176 Case 18 Return 59 Case 19 Return 59 Case 20 Return 62 Case 21 Return 62 Case 22 Return 42 Case 23 Return 161 Case 24 Return 76 Case 25 Return 74 Case 26 Return 70 Case 27 Return 83 Case 28 Return 53 Case 29 Return 50 Case 30 Return 69 Case 31 Return 67 Case 32 Return 51 Case 33 Return 54 Case 34 Return 102 Case 35 Return 36 Case 36 Return 38 Case 37 Return 38 Case 38 Return 75 Case 39 Return 88 Case 40 Return 56 Case 41 Return 87 Case 42 Return 37 Case 43 Return 77 Case 44 Return 35 Case 45 Return 188 Case 46 Return 190 Case 47 Return 72 Case 48 Return 64 Case 49 Return 64 Case 50 Return 195 Case 51 Return 213 Case 52 Return 212 Case 53 Return 212 Case 54 Return 209 Case 55 Return 209 Case 56 Return 209 Case 57 Return 127 Case 58 Return 150 Case 59 Return 150 Case 60 Return 150 Case 61 Return 143 Case 62 Return 143 Case 63 Return 133 Default Stop Return 0 End Select End Function

Wednesday Workshop #005

The Moody Text Adventure Challenge

Casa Blanca

Textgame

Class Clown

Jailbreak

Takuta

Forgotten

The 8th Day

Third Moon

Fuzzy Text