any one remeber zork I REMADE IT BY MAKEING ZORK 4 ALTER OF DISPARE its still beta any one want it

Author

Message

zork all the way

18

Years of Service

User Offline

Joined: 21st Nov 2005

Location:

Posted: 22nd Nov 2005 02:18

Link

ok just to show you how hard i am working on this i will show you what i have bine doing over the weekend just remeber this is a beta

Dim action As String
Dim sword As Long
Dim painting As Long
Dim note As Long
Dim key As Long

Sub redroom()

location = "redroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> RED ROOM - You are standing in a red room with a table and a lamp with a door leading south.  A latern is standing at your feet"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
     
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "go north"
    
Case "s", "south"
    Form1.Text1.Text = ""
    Call Halfroom
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"

Case "w", "west"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "go up"
    
'ITEMS
    
Case "pick up lantern"
    Form1.Text1.Text = ""
    Form1.Label3.Visible = True
    
    'check to see you you have item
    If latern = 0 Then
        Form1.Text2.Text = "taken"
        latern = 1
    Else
        Text2.Text = "you already have the lantern"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "fate"
        Form1.Text1.Text = ""
        Call keyroom
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> RED ROOM - You are standing in a red room with a table and a lamp with a door leading south.  A latern is standing at your feet"
        
Case Else: Form1.Text1.Text = ""
           Form1.Text2.Text = "I do not understand"
End Select

End Sub

Sub Halfroom()

location = "halfroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> Half Room - you are now in a half red room half cave. there is a sword by a body here. there is a door to the west"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Call redroom
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go south"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call traproom
        
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up sword"
    Form1.Text1.Text = ""
    Form1.Label4.Visible = True
    
    'check to see you you have item
    If sword = 0 Then
        Form1.Text2.Text = "Sword taken"
        sword = 1
    Else
        Text2.Text = "you already have the sword"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"

Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> Half Room - you are now in a half red room half cave. there is a sword by a body here. there is a door to the west"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub

Sub traproom()

location = "traproom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> Trap Room - there is traps sprung all around the room it looks like some one was here and got in to a room to the south  "

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go North"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Call alterroom
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"
    
Case "w", "West"
    Form1.Text1.Text = ""
    Call Halfroom
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> Trap Room - there is traps sprung all around the room it looks like some one was here and got in to a room to the south  "

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub

Sub alterroom()

location = "alterroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> Alter Room - there is a big alter here. the exit is a hole in the midle of the alter"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Call traproom
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Call bedroom
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> Alter Room - there is a big alter here. the exit is a hole in the midle of the alter"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub

Sub bedroom()

location = "bedroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> bed room - you wake up you are thinking to your self it was all a dream you look around you are in a bed room the exit is to the south"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Call livingroom
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> bed room - you wake up you are thinking to your self it was all a dream you look around you are in a bed room the exit is to the south"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub

Sub livingroom()

location = "livingroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> living room - you walk in to a living room you here the door lock behind you. so you look around. its just like any liveing room tan walls,carpet,a tv and some paintings one looks like it will fall at any moment. the exit is to the east"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "door is locked"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call doorway
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up painting"
    Form1.Text1.Text = ""
    Form1.Label6.Visible = True
    
    'check to see you you have item
    If painting = 0 Then
        Form1.Text2.Text = "painting taken"
        painting = 1
    Else
       Text2.Text = "you already have the painting"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> living room - you walk in to a liveing room its just like any liveing room tan walls,carpet,a tv and some paintings one looks like it will fall at any moment. the exit is to the east"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub doorway()

location = "doorway"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> doorway - you are now at the door leading out side there is small holes in the door bringing a cold breaze in. the exit to the house is east."
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call outside
    
Case "w", "West"
    Form1.Text1.Text = ""
    Call livingroom
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> doorway - you are now at the door leading out side there is small holes in the door bringing a cold breaze in. the exit to the house is east."

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub

Sub outside()

location = "outside"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> outside - you are now standing out side the wind chill is cold you see a note in the grass.there is a clearing in the forest to the east"
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call forest
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up note"
    Form1.Text1.Text = ""
    Form1.Label7.Visible = True
    
    'check to see you you have item
    If note = 0 Then
        Form1.Text2.Text = "note taken,the note reads that dream was real il tell you your fate meat me at......"
        note = 1
    Else
       Text2.Text = "you already read the note"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> outside - you are now standing out side the wind chill is cold you see a note in the grass."

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub forest()

location = "forest"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> forset - you can see some ruins up ahead to the east"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call ruins
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> forest - you can see some ruins up ahead"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub ruins()

location = "ruins"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> ruins - you are in the lost ruins of zork.hun OH NO a maigc bocker is keeping you from leaveing. you see a cloked man in the center of the ruins."

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call mainhall
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "im not going any were with that blocker there"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> ruins - you are in the lost ruins of zork.there is a opening to the east"
        
Case "talk to man"
      Form1.Text1.Text = ""
      Form1.Text2.Text = "hello i left you that note on your grass. if you want to learn your fate head in there."
      
      Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub

Sub mainhall()

location = "mainhall"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> mainhall - you are now inside the ruins to the east there is a door but its locked and needs a stone key to open it.there is a door to the north. "

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Call keyroom
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    If Form1.Label8.Visible = False Then
        Form1.Text1.Text = ""
        Form1.Text2.Text = "you need a key to unlock. You can not enter!"
    Else
    
    Form1.Text1.Text = ""
    Call futureroom
    End If
       
    
Case "w", "West"
    Form1.Text1.Text = ""
    Call ruins
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> mainhall - you are now inside the ruins to the east there is a door but its locked and needs a stone key to open it.there is a door to the north. "

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub keyroom()

location = "keyroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> keyroom - you are in the key room of the ruins. you look around you find a stone key"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Call mainhall
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go east"
    
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up stone key"
    Form1.Text1.Text = ""
            
    'check to see you you have item
    If stonekey = 0 Then
        Form1.Text2.Text = "key taken"
        Form1.Label8.Visible = True
        stonekey = 1
    Else
        Text2.Text = "you already have the key"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> keyroom - you are in the key room of the ruins. you look around you find a stone key"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub futureroom()

location = "futureroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = ">future room  - this must be the room the man was talking about the door closes and locks behind you theres no turning back now"
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go east"
    
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go west"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Call fatetunnel
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = ">future room  - this must be the room the man was talking about. the door closes and locks behind you theres no turning back now.there is a blue light comeing from a hole in the center of the room"

Case Else:
        Form1.Text1.Text = ""
         Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub fatetunnel()

location = "futureroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = ">fate tunnel  - you fall down a tunnle looking around you see only one way out to the east -END OF BETA"
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go east"
    
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go west"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = ">fate tunnel  - you fall down a tunnle looking around you see only one way out to the east -END OF BETA"
Case Else:
        Form1.Text1.Text = ""
         Form1.Text2.Text = "I do not understand"

End Select

End Sub

+ Code Snippet

Dim action As String
Dim sword As Long
Dim painting As Long
Dim note As Long
Dim key As Long


Sub redroom()


location = "redroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> RED ROOM - You are standing in a red room with a table and a lamp with a door leading south.  A latern is standing at your feet"


Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
     
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "go north"
    
Case "s", "south"
    Form1.Text1.Text = ""
    Call Halfroom
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"

Case "w", "west"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "go up"
    
'ITEMS
    
Case "pick up lantern"
    Form1.Text1.Text = ""
    Form1.Label3.Visible = True
    
    'check to see you you have item
    If latern = 0 Then
        Form1.Text2.Text = "taken"
        latern = 1
    Else
        Text2.Text = "you already have the lantern"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "fate"
        Form1.Text1.Text = ""
        Call keyroom
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> RED ROOM - You are standing in a red room with a table and a lamp with a door leading south.  A latern is standing at your feet"
        
Case Else: Form1.Text1.Text = ""
           Form1.Text2.Text = "I do not understand"
End Select



End Sub


Sub Halfroom()


location = "halfroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> Half Room - you are now in a half red room half cave. there is a sword by a body here. there is a door to the west"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Call redroom
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go south"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call traproom
        
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up sword"
    Form1.Text1.Text = ""
    Form1.Label4.Visible = True
    
    'check to see you you have item
    If sword = 0 Then
        Form1.Text2.Text = "Sword taken"
        sword = 1
    Else
        Text2.Text = "you already have the sword"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        

                
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> Half Room - you are now in a half red room half cave. there is a sword by a body here. there is a door to the west"


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select



End Sub

Sub traproom()


location = "traproom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> Trap Room - there is traps sprung all around the room it looks like some one was here and got in to a room to the south  "

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go North"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Call alterroom
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"
    
Case "w", "West"
    Form1.Text1.Text = ""
    Call Halfroom
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> Trap Room - there is traps sprung all around the room it looks like some one was here and got in to a room to the south  "


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select





End Sub

Sub alterroom()

location = "alterroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> Alter Room - there is a big alter here. the exit is a hole in the midle of the alter"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Call traproom
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Call bedroom
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> Alter Room - there is a big alter here. the exit is a hole in the midle of the alter"


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select


End Sub

Sub bedroom()



location = "bedroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> bed room - you wake up you are thinking to your self it was all a dream you look around you are in a bed room the exit is to the south"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Call livingroom
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go East"
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> bed room - you wake up you are thinking to your self it was all a dream you look around you are in a bed room the exit is to the south"


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub



Sub livingroom()

location = "livingroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> living room - you walk in to a living room you here the door lock behind you. so you look around. its just like any liveing room tan walls,carpet,a tv and some paintings one looks like it will fall at any moment. the exit is to the east"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "door is locked"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call doorway
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up painting"
    Form1.Text1.Text = ""
    Form1.Label6.Visible = True
    
    'check to see you you have item
    If painting = 0 Then
        Form1.Text2.Text = "painting taken"
        painting = 1
    Else
       Text2.Text = "you already have the painting"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> living room - you walk in to a liveing room its just like any liveing room tan walls,carpet,a tv and some paintings one looks like it will fall at any moment. the exit is to the east"


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub doorway()

location = "doorway"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> doorway - you are now at the door leading out side there is small holes in the door bringing a cold breaze in. the exit to the house is east."
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call outside
    
Case "w", "West"
    Form1.Text1.Text = ""
    Call livingroom
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> doorway - you are now at the door leading out side there is small holes in the door bringing a cold breaze in. the exit to the house is east."


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select


End Sub

Sub outside()

location = "outside"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> outside - you are now standing out side the wind chill is cold you see a note in the grass.there is a clearing in the forest to the east"
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call forest
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up note"
    Form1.Text1.Text = ""
    Form1.Label7.Visible = True
    
    'check to see you you have item
    If note = 0 Then
        Form1.Text2.Text = "note taken,the note reads that dream was real il tell you your fate meat me at......"
        note = 1
    Else
       Text2.Text = "you already read the note"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> outside - you are now standing out side the wind chill is cold you see a note in the grass."


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select

End Sub
Sub forest()

location = "forest"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> forset - you can see some ruins up ahead to the east"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call ruins
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> forest - you can see some ruins up ahead"

Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select


End Sub
Sub ruins()

location = "ruins"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> ruins - you are in the lost ruins of zork.hun OH NO a maigc bocker is keeping you from leaveing. you see a cloked man in the center of the ruins."

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Call mainhall
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "im not going any were with that blocker there"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> ruins - you are in the lost ruins of zork.there is a opening to the east"
        
Case "talk to man"
      Form1.Text1.Text = ""
      Form1.Text2.Text = "hello i left you that note on your grass. if you want to learn your fate head in there."
      
      Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select


End Sub

Sub mainhall()

location = "mainhall"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> mainhall - you are now inside the ruins to the east there is a door but its locked and needs a stone key to open it.there is a door to the north. "

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Call keyroom
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    If Form1.Label8.Visible = False Then
        Form1.Text1.Text = ""
        Form1.Text2.Text = "you need a key to unlock. You can not enter!"
    Else
    
    Form1.Text1.Text = ""
    Call futureroom
    End If
       
    
Case "w", "West"
    Form1.Text1.Text = ""
    Call ruins
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> mainhall - you are now inside the ruins to the east there is a door but its locked and needs a stone key to open it.there is a door to the north. "


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select


End Sub
Sub keyroom()

location = "keyroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = "> keyroom - you are in the key room of the ruins. you look around you find a stone key"

Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Call mainhall
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go east"
    
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go West"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
Case "pick up stone key"
    Form1.Text1.Text = ""
            
    'check to see you you have item
    If stonekey = 0 Then
        Form1.Text2.Text = "key taken"
        Form1.Label8.Visible = True
        stonekey = 1
    Else
        Text2.Text = "you already have the key"
    End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "> keyroom - you are in the key room of the ruins. you look around you find a stone key"


Case Else:
            Form1.Text1.Text = ""
            Form1.Text2.Text = "I do not understand"

End Select


End Sub
Sub futureroom()

location = "futureroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = ">future room  - this must be the room the man was talking about the door closes and locks behind you theres no turning back now"
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go east"
    
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go west"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Call fatetunnel
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = ">future room  - this must be the room the man was talking about. the door closes and locks behind you theres no turning back now.there is a blue light comeing from a hole in the center of the room"

Case Else:
        Form1.Text1.Text = ""
         Form1.Text2.Text = "I do not understand"

End Select


End Sub
Sub fatetunnel()

location = "futureroom"
action = Form1.Text1.Text
Form1.Label5.Caption = location
Form1.Text2.Text = ">fate tunnel  - you fall down a tunnle looking around you see only one way out to the east -END OF BETA"
Select Case action
Case ""
    'do nothing this is so the title can be diplayed on entering a room
    
'MOVEMENT
    
Case "n", "north"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go north"
        
Case "s", "south"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go South"
        
Case "e", "East"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go east"
    
    
Case "w", "West"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go west"
    
Case "d", "down"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go down"
    
Case "u", "up"
    Form1.Text1.Text = ""
    Form1.Text2.Text = "cant go up"
    
'ITEMS
    
'Case "pick up sword"
    'Form1.Text1.Text = ""
    'Form1.Label4.Visible = True
    
    'check to see you you have item
    'If latern = 0 Then
        'Form1.Text2.Text = "Sword taken"
        'sword = 1
    'Else
        'Text2.Text = "you already have the sword"
    'End If

'EASTER EGGS

Case "zork"
        Form1.Text1.Text = ""
        Form1.Text2.Text = "yes you are playing zork"
        
Case "look"
        Form1.Text1.Text = ""
        Form1.Text2.Text = ">fate tunnel  - you fall down a tunnle looking around you see only one way out to the east -END OF BETA"
Case Else:
        Form1.Text1.Text = ""
         Form1.Text2.Text = "I do not understand"

End Select


End Sub

and now this one

Dim latern As Long
Dim sword As Long
Dim location As String
Dim action As String
Dim painting As Long
Dim note As Long
Dim key As Long

Private Sub Command1_Click()

action = Form1.Text1.Text

location = Form1.Label5.Caption

Select Case location
    Case "redroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call redroom
    
    Case "halfroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call Halfroom
        
    Case "traproom"
        If Form1.Text1.Text = "" Then action = "none"
        Call traproom
        
    Case "alterroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call alterroom

Case "bedroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call bedroom

Case "livingroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call livingroom
        
    Case "doorway"
        If Form1.Text1.Text = "" Then action = "none"
        Call doorway
        
     Case "outside"
        If Form1.Text1.Text = "" Then action = "none"
        Call outside
        
     Case "forest"
        If Form1.Text1.Text = "" Then action = "none"
        Call forest
         
     Case "ruins"
        If Form1.Text1.Text = "" Then action = "none"
        Call ruins
        
    Case "mainhall"
        If Form1.Text1.Text = "" Then action = "none"
        Call mainhall
     
    Case "keyroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call keyroom
        
        
    Case "futureroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call futureroom
        
        
        
        
    Case "futureroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call futureroom
        
        
        
End Select

End Sub

Private Sub Form_Load()
Label1.Caption = "Zork 4 altar of dispare"

Call redroom

End Sub

+ Code Snippet

Dim latern As Long
Dim sword As Long
Dim location As String
Dim action As String
Dim painting As Long
Dim note As Long
Dim key As Long


Private Sub Command1_Click()

action = Form1.Text1.Text

location = Form1.Label5.Caption


Select Case location
    Case "redroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call redroom
    
    Case "halfroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call Halfroom
        
    Case "traproom"
        If Form1.Text1.Text = "" Then action = "none"
        Call traproom
        
    Case "alterroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call alterroom


    Case "bedroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call bedroom


    Case "livingroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call livingroom
        
    Case "doorway"
        If Form1.Text1.Text = "" Then action = "none"
        Call doorway
        
     Case "outside"
        If Form1.Text1.Text = "" Then action = "none"
        Call outside
        
     Case "forest"
        If Form1.Text1.Text = "" Then action = "none"
        Call forest
         
     Case "ruins"
        If Form1.Text1.Text = "" Then action = "none"
        Call ruins
        
    Case "mainhall"
        If Form1.Text1.Text = "" Then action = "none"
        Call mainhall
     
    Case "keyroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call keyroom
        
        
    Case "futureroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call futureroom
        
        
        
        
    Case "futureroom"
        If Form1.Text1.Text = "" Then action = "none"
        Call futureroom
        
        
        
End Select




End Sub



Private Sub Form_Load()
Label1.Caption = "Zork 4 altar of dispare"

Call redroom






End Sub

tell me if you like the code i will releas the beta soon and a sreeney when i can

i make zork games

Back to top

Profile PM

Megaton Cat

21

Years of Service

User Offline

Joined: 24th Aug 2003

Location: Toronto, Canada

Posted: 22nd Nov 2005 04:06 Edited at: 22nd Nov 2005 04:21

Link

Sorry, no attention for you little boy. Lame attempt.

The cat era has begun.

Back to top

Profile PM Email Website

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 22nd Nov 2005 04:08

Link

Well, I COULD just say pwned and move and. so i will.

pwned

*moves on*

Down with GTA! Let's have Mario Ground Pound 'em!

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 22nd Nov 2005 05:14

Link

Quote: "ok just to show you how hard i am working on this i will show you what i have bine doing over the weekend just remeber this is a beta tell me if you like the code i will releas the beta soon and a sreeney when i can"

Uh... that's written in QuickBasic... not Darkbasic. You'd have to do some major changes to get that to work in Darkbasic. You can speed up your program by adding "DEFINT A-Z" at the top of every sub.

+ Code Snippet

DEFINT A-Z
SUB alterroom

It won't even run in QuickBasic because you have a bunch of bugs. Like if you want variables to be used inside subs you need to share them... "DIM SHARED variablename". The main thing is you need some code in the main area to call the subs... in this "program" you only have the dims and that's it. It will do nothing without at least calling one of the subs in the main part of the program.

I love Zork (as you can see by my name)... but this is nowhere near what you need to be doing to make a good text adventure game of the Infocom quality. You really need to go to Darkbasic. I used QuickBasic for years before I hit the memory limits... you'll eventually make a program too big for Quickbasic. Download the trial version of Darkbasic... and join us in the 21st century.