Attribute VB_Name = "modBot" Public Function getBot(room As String) As String If FSO.FolderExists(App.Path & "\public\" & room & "\bot") Then If FSO.OpenTextFile(App.Path & "\public\" & room & "\bot\enabled.txt", ForReading).ReadAll = "true" Then Dim botName As String Dim botMission As String Dim botFigure As String botName = FSO.OpenTextFile(App.Path & "\public\" & room & "\bot\name.txt", ForReading).ReadAll botMission = FSO.OpenTextFile(App.Path & "\public\" & room & "\bot\mission.txt", ForReading).ReadAll botFigure = FSO.OpenTextFile(App.Path & "\public\" & room & "\bot\figure.txt", ForReading).ReadAll getBot = "i:" & MxHabbo + 1 & Chr(13) & "a:-1" & Chr(13) & "n:" & botName & Chr(13) & "f:" & botFigure & Chr(13) & "l:" & botX(getPublicRoom(room)) & " " & botY(getPublicRoom(room)) & " " & botHe(getPublicRoom(room)) & Chr(13) & "c:" & botMission & Chr(13) & "[bot]" & Chr(13) End If End If End Function Public Function checkMessage(message As String, room As String, a As Integer) As Boolean If FSO.FolderExists(App.Path & "\public\" & room & "\bot") Then If FSO.OpenTextFile(App.Path & "\public\" & room & "\bot\enabled.txt", ForReading).ReadAll = "true" Then If InStr(message, "coke") > 0 Then If InStr(message, "please") > 0 Then sendPublic "@X" & Encode(MxHabbo + 1) & "Every habbo need's their drink! ^_^" & Chr(2) & Chr(1), room isCarrying(a) = 19 Else sendPublic "@X" & Encode(MxHabbo + 1) & "I heard that " & HName(a) & " is god. No, really." & Chr(2) & Chr(1), room End If End If If InStr(message, "tea") > 0 Then If InStr(message, "please") > 0 Then sendPublic "@X" & Encode(MxHabbo + 1) & "K." & Chr(2) & Chr(1), room isCarrying(a) = 1 Else sendPublic "@X" & Encode(MxHabbo + 1) & "OMG STFU N00B! " & HName(a) & " IS A N00B! LOLOLOLZZ" & Chr(2) & Chr(1), room End If End If If InStr(message, "camera") > 0 Then If InStr(message, "bitch") > 0 Then sendPublic "@X" & Encode(MxHabbo + 1) & "WTF? I said drink!" & Chr(2) & Chr(1), room isCarrying(a) = 20 Else sendPublic "@X" & Encode(MxHabbo + 1) & "I lol at you. Ha. Ha. Oh screw this." & Chr(2) & Chr(1), room End If End If End If End If End Function Public Function doBotWalk(a As Integer) Dim i As Integer Dim canGo() As String Dim gotoLine As String Randomize again: canGo = Split(FSO.OpenTextFile(App.Path & "\public\" & unGetPublicRoom(a) & "\bot\cango.txt", ForReading).ReadAll, vbCrLf) gotoLine = canGo(Int((UBound(canGo) + 1) * Rnd)) If UBound(Split(gotoLine)) = 2 Then If botX(a) = 0 Then botX(a) = Split(gotoLine)(0) If botY(a) = 0 Then botY(a) = Split(gotoLine)(1) If botHe(a) = "" Then botHe(a) = Split(gotoLine)(2) botTX(a) = Split(gotoLine)(0) botTY(a) = Split(gotoLine)(1) Form1.botWlk(a).Enabled = True Else GoTo again End If End Function Public Function doBotTalk(a As Integer) Dim i As Integer Dim sayings() As String Dim sayingLine As String Randomize again: sayings = Split(FSO.OpenTextFile(App.Path & "\public\" & unGetPublicRoom(a) & "\bot\sayings.txt", ForReading).ReadAll, vbCrLf) sayingLine = sayings(Int((UBound(sayings) + 1) * Rnd)) If Len(sayingLine) > 2 Then sendPublic "@X" & Encode(MxHabbo + 1) & sayingLine & Chr(2) & Chr(1), unGetPublicRoom(a) Else GoTo again End If End Function Public Function NxtSqPB(HB As Integer, Rdex As Integer, currX As Integer, currY As Integer, toX As Integer, toY As Integer) Dim i As Integer If currX > toX And currY > toY Then For i = 0 To MxHabbo If currX - 1 = CX(i) And currY - 1 = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX - 1, currY - 1) = "0" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "1" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "2" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "3" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "4" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "5" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "6" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "7" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "8" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY - 1) = "9" Then NxtSqPB = currX - 1 & "," & currY - 1 botFA(HB) = "7,7" botHe(HB) = "9.0" Exit Function End If End If If currX < toX And currY < toY Then For i = 0 To MxHabbo If currX + 1 = CX(i) And currY + 1 = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX + 1, currY + 1) = "0" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "1" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "2" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "3" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "4" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "5" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "6" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "7" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "8" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY + 1) = "9" Then NxtSqPB = currX + 1 & "," & currY + 1 botFA(HB) = "3,3" botHe(HB) = "9.0" Exit Function End If End If If currX > toX And currY < toY Then For i = 0 To MxHabbo If currX - 1 = CX(i) And currY + 1 = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX - 1, currY + 1) = "0" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "1" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "2" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "3" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "4" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "5" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "6" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "7" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "8" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY + 1) = "9" Then NxtSqPB = currX - 1 & "," & currY + 1 botFA(HB) = "5,5" botHe(HB) = "9.0" Exit Function End If End If If currX < toX And currY > toY Then For i = 0 To MxHabbo If currX + 1 = CX(i) And currY - 1 = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX + 1, currY - 1) = "0" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "1" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "2" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "3" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "4" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "5" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "6" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "7" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "8" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY - 1) = "9" Then NxtSqPB = currX + 1 & "," & currY - 1 botFA(HB) = "1,1" botHe(HB) = "9.0" Exit Function End If End If bbse: If currX < toX Then For i = 0 To MxHabbo If currX + 1 = CX(i) And currY = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX + 1, currY) = "0" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "1" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "2" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "3" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "4" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "5" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "6" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "7" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "8" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "9" Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "9.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "A" And toX = currX + 1 And currY = toY Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" 'bothe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "B" And toX = currX + 1 And currY = toY Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "L" And toX = currX + 1 And currY = toY Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX + 1, currY) = "M" And toX = currX + 1 And currY = toY Then NxtSqPB = currX + 1 & "," & currY botFA(HB) = "2,2" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function End If End If If currX > toX Then For i = 0 To MxHabbo If currX - 1 = CX(i) And currY = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX - 1, currY) = "0" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "1" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "2" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "3" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "4" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "5" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "6" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "7" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "8" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "9" Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "9.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "A" And toX = currX - 1 And currY = toY Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" 'bothe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "B" And toX = currX - 1 And currY = toY Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "L" And toX = currX - 1 And currY = toY Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX - 1, currY) = "M" And toX = currX - 1 And currY = toY Then NxtSqPB = currX - 1 & "," & currY botFA(HB) = "6,6" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function End If End If If currY > toY Then For i = 0 To MxHabbo If currX = CX(i) And currY - 1 = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX, currY - 1) = "0" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "1" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "2" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "3" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "4" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "5" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "6" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "7" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "8" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "9" Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "9.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "A" And toX = currX And currY - 1 = toY Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" 'bothe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "B" And toX = currX And currY - 1 = toY Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "L" And toX = currX And currY - 1 = toY Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY - 1) = "M" And toX = currX And currY - 1 = toY Then NxtSqPB = currX & "," & currY - 1 botFA(HB) = "0,0" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function End If End If If currY < toY Then For i = 0 To MxHabbo If currX = CX(i) And currY + 1 = CY(i) And Not i = HB And inPublic(i) = unGetPublicRoom(HB) Then NxtSqPB = "NoPath" Exit Function End If Next If CanWalkP(Rdex, currX, currY + 1) = "0" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "0.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "1" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "2" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "2.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "3" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "3.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "4" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "4.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "5" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "5.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "6" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "6.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "7" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "7.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "8" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "8.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "9" Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "9.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "A" And toX = currX And currY + 1 = toY Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" 'bothe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "B" And toX = currX And currY + 1 = toY Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "L" And toX = currX And currY + 1 = toY Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "0.0" botSh(HB) = "1.0" Exit Function ElseIf CanWalkP(Rdex, currX, currY + 1) = "M" And toX = currX And currY + 1 = toY Then NxtSqPB = currX & "," & currY + 1 botFA(HB) = "4,4" botHe(HB) = "1.0" botSh(HB) = "1.0" Exit Function End If End If NxtSqPB = "NoPath" End Function