Line Number | Syntax Highlight | Download Raw

Sub TBS_System(Index)
    Dim X1
    Dim Y1
    Dim X2
    Dim Y2
    Dim X3
    Dim Y4
    Dim X5
    Dim Y5
    

    X1 = GetVar("TBS_System.ini", GetPlayerName(Index), "X1")
    Y1 = GetVar("TBS_System.ini", GetPlayerName(Index), "Y1")
    X2 = GetVar("TBS_System.ini", GetPlayerName(Index), "X2")
    Y2 = GetVar("TBS_System.ini", GetPlayerName(Index), "Y2")
    X3 = GetVar("TBS_System.ini", GetPlayerName(Index), "X3")
    Y3 = GetVar("TBS_System.ini", GetPlayerName(Index), "Y3")
    X4 = GetVar("TBS_System.ini", GetPlayerName(Index), "X4")
    Y4 = GetVar("TBS_System.ini", GetPlayerName(Index), "Y4")
    X5 = GetVar("TBS_System.ini", GetPlayerName(Index), "X5")
    Y5 = GetVar("TBS_System.ini", GetPlayerName(Index), "Y5")

    If GetPlayerSprite(Index) = 0 Then
        If GetPlayerX(Index) = X2 AND GetPlayerY(Index) = Y2 OR GetPlayerX(Index) = X3 AND GetPlayerY(Index) = Y3 _
        OR GetPlayerX(Index) = X4 AND GetPlayerY(Index) = Y4 OR GetPlayerX(Index) = X5 AND GetPlayerY(Index) = Y5 Then
            Call PlayerMSG(Index, "You asshole! You cannot have 2 units on the same spot!!!", WHITE)
        Else
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "X1", GetPlayerX(Index))
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "Y1", GetPlayerY(Index))
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 4, 1, 7, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 4, 0, 7, 7)
            Call PlayerWarp(Index, GetPlayerMap(Index), X2, Y2)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 0, 0, 1, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 0, 0, 1, 7)
            Call SetPlayerSprite(Index, 1)
            Call SetPlayerDir(Index, 1)
            Exit Sub
        End If
    End If
    
    If GetPlayerSprite(Index) = 1 Then
        If GetPlayerX(Index) = X1 AND GetPlayerY(Index) = Y1 OR GetPlayerX(Index) = X3 AND GetPlayerY(Index) = Y3 _
        OR GetPlayerX(Index) = X4 AND GetPlayerY(Index) = Y4 OR GetPlayerX(Index) = X5 AND GetPlayerY(Index) = Y5 Then
            Call PlayerMSG(Index, "You asshole! You cannot have 2 units on the same spot!!!", WHITE)
        Else
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "X2", GetPlayerX(Index))
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "Y2", GetPlayerY(Index))
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 4, 3, 7, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 4, 2, 7, 7)
            Call PlayerWarp(Index, GetPlayerMap(Index), X3, Y3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 0, 0, 1, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 0, 0, 1, 7)
            Call SetPlayerSprite(Index, 2)
            Call SetPlayerDir(Index, 1)
            Exit Sub
        End If
    End If

    If GetPlayerSprite(Index) = 2 Then
        If GetPlayerX(Index) = X2 AND GetPlayerY(Index) = Y2 OR GetPlayerX(Index) = X1 AND GetPlayerY(Index) = Y1 _
        OR GetPlayerX(Index) = X4 AND GetPlayerY(Index) = Y4 OR GetPlayerX(Index) = X5 AND GetPlayerY(Index) = Y5 Then
            Call PlayerMSG(Index, "You asshole! You cannot have 2 units on the same spot!!!", WHITE)
        Else
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "X3", GetPlayerX(Index))
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "Y3", GetPlayerY(Index))
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 4, 5, 7, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 4, 4, 7, 7)
            Call PlayerWarp(Index, GetPlayerMap(Index), X4, Y4)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 0, 0, 1, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 0, 0, 1, 7)
            Call SetPlayerSprite(Index, 3)
            Call SetPlayerDir(Index, 1)
            Exit Sub
        End If
    End If

    If GetPlayerSprite(Index) = 3 Then
        If GetPlayerX(Index) = X2 AND GetPlayerY(Index) = Y2 OR GetPlayerX(Index) = X1 AND GetPlayerY(Index) = Y1 _
        OR GetPlayerX(Index) = X3 AND GetPlayerY(Index) = Y3 OR GetPlayerX(Index) = X5 AND GetPlayerY(Index) = Y5 Then
            Call PlayerMSG(Index, "You asshole! You cannot have 2 units on the same spot!!!", WHITE)
        Else
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "X4", GetPlayerX(Index))
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "Y4", GetPlayerY(Index))
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 4, 7, 7, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 4, 6, 7, 7)
            Call PlayerWarp(Index, GetPlayerMap(Index), X5, Y5)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 0, 0, 1, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 0, 0, 1, 7)
            Call SetPlayerSprite(Index, 4)
            Call SetPlayerDir(Index, 1)
            Exit Sub
        End If
    End If

    If GetPlayerSprite(Index) = 4 Then
        If GetPlayerX(Index) = X2 AND GetPlayerY(Index) = Y2 OR GetPlayerX(Index) = X1 AND GetPlayerY(Index) = Y1 _
        OR GetPlayerX(Index) = X3 AND GetPlayerY(Index) = Y3 OR GetPlayerX(Index) = X4 AND GetPlayerY(Index) = Y4 Then
            Call PlayerMSG(Index, "You asshole! You cannot have 2 units on the same spot!!!", WHITE)
        Else
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "X5", GetPlayerX(Index))
            Call PutVar("TBS_System.ini", GetPlayerName(Index), "Y5", GetPlayerY(Index))
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 4, 9, 7, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 4, 8, 7, 7)
            Call PlayerWarp(Index, GetPlayerMap(Index), X1, Y1)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), 0, 0, 1, 3)
            Call SetTile(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1, 0, 0, 1, 7)
            Call SetPlayerSprite(Index, 0)
            Call SetPlayerDir(Index, 1)
            Exit Sub
        End If
    End If
End Sub

Encryption / Decryption Key