Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Control + V Game


Skudgemuffin
 Share

Recommended Posts

  • Replies 255
  • Created
  • Last Reply

Top Posters In This Topic

  • 2 weeks later...
  • 1 month later...
Are you a lonely Hobbit who is tired of dwarves, elves and men? You're in luck!The Kinship "Raiders of the Shire" are now looking for more hobbits to join its ranks. All Levels are welcome as well as All Ages. We are planing Weekly events that all levels can be a part of. Some of the Kin Does RP but its not required. Only thing Required is you are a hobbit. Please send Tell.
Link to comment
Share on other sites

Sub CheckDoor(ByVal index As Long, ByVal x As Long, ByVal y As Long)
    Dim Door_num As Long
    Dim i As Long
    Dim n As Long
    Dim key As Long
    Dim tmpIndex As Long

    If Map(GetPlayerMap(index)).Tile(x, y).Type = TILE_TYPE_DOOR Then
        Door_num = Map(GetPlayerMap(index)).Tile(x, y).Data1

        If Door_num > 0 Then
            If Doors(Door_num).DoorType = 0 Then
                If Player(index).PlayerDoors(Door_num).state = 0 Then
                    If Doors(Door_num).UnlockType = 0 Then
                        For i = 1 To MAX_INV
                            key = GetPlayerInvItemNum(index, i)
                            If Doors(Door_num).key = key Then
                                TakeInvItem index, key, 1
                                    Player(index).PlayerDoors(Door_num).state = 1
                                    PlayerMsg index, "You used a key to unlock the door.", BrightBlue
                                    SavePlayer index
                                    SendPlayerDoors index
                                    SendPlayerData index
                                Exit Sub
                            End If
                        Next
                        PlayerMsg index, "You do not have the right key to unlock the door.", BrightBlue
                    ElseIf Doors(Door_num).UnlockType = 1 Then
                        If Doors(Door_num).state = 0 Then
                            PlayerMsg index, "You have not fliped the right switch to unlock this door.", BrightBlue
                        End If
                    ElseIf Doors(Door_num).UnlockType = 2 Then
                        PlayerMsg index, "This door has no lock.", BrightBlue
                    End If

                Else
                    PlayerMsg index, "This door is already unlocked.", BrightBlue
                End If
            ElseIf Doors(Door_num).DoorType = 1 Then
                If Player(index).PlayerDoors(Door_num).state = 0 Then
                    Player(index).PlayerDoors(Door_num).state = 1
                    Player(index).PlayerDoors(Doors(Door_num).Switch).state = 1
                    PlayerMsg index, "You filp the switch on and unlocked a door.", BrightBlue
                    SavePlayer index
                    SendPlayerDoors index
                    SendPlayerData index
                Else
                    Player(index).PlayerDoors(Door_num).state = 0
                    Player(index).PlayerDoors(Doors(Door_num).Switch).state = 0
                    PlayerMsg index, "You filp the switch off and locked a door.", BrightBlue
                    SavePlayer index
                    SendPlayerDoors index
                    SendPlayerData index
                End If
            End If
        End If
    End If
End Sub

… Was doing some work to retro fit the Doors to not work with parties
Link to comment
Share on other sites

  • 8 months later...
A term used in American English to distract others from the speaker's dissatisfaction with his own homosexuality.

_Spoken: "John is such a faggot."

Meaning: "I would love to drink John's cum, but I hate being gay and certainly don't want anyone else to know that I am."_
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share


×
×
  • Create New...