Alright, it's got some useless poop in it though. Come to think of it, the level up command never worked either. :/ ' Executed whenever a slash command is sent to the server. Sub Commands(Index) Dim TextSay Dim PlayerID Dim MapNum ' Get the command and arguments from the cache. TextSay = Trim(GetVar("Scripts\Command.ini", "TEMP", "Text" & Index)) ' Split the command into an array. All arguments are seperated by spaces. TextSay = Split(TextSay) Select Case TextSay(0) Case "/testscripts" Call TestMain(Index) Exit Sub Case "/help" Call PlayerMsg(Index, "Social Commands:", WHITE) Call PlayerMsg(Index, "'msghere = Broadcast Message", WHITE) Call PlayerMsg(Index, "-msghere = Emote Message", WHITE) Call PlayerMsg(Index, "!namehere msghere = Player Message", WHITE) Call PlayerMsg(Index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", WHITE) Exit Sub Case "/calladmins" If GetPlayerAccess(Index) = 0 Then Call AdminMsg(GetPlayerName(Index) & " needs your help!", BRIGHTGREEN) Else Call PlayerMsg(Index, "You are an admin! You cannot call for help!", BRIGHTGREEN) End If Exit Sub Case "/RollRick" color = Rand(0, 15) Call PlayerMsg(Index, "We're no strangers to love", color) color = Rand(0, 15) Call PlayerMsg(Index, "You know the rules and so do I", color) color = Rand(0, 15) Call PlayerMsg(Index, "A full commitment's what I'm thinking of", color) color = Rand(0, 15) Call PlayerMsg(Index, "You wouldn't get this from any other guy", color) color = Rand(0, 15) Call PlayerMsg(Index, " ", $color) Call PlayerMsg(Index, "I just wanna tell you how I'm feeling", color) color = Rand(0, 15) Call PlayerMsg(Index, "Gotta make you understand", color) color = Rand(0, 15) Call PlayerMsg(Index, " ", color) Call PlayerMsg(Index, "Never gonna give you up, never gonna let you down", color) color = Rand(0, 15) Call PlayerMsg(Index, "Never gonna run around and desert you", color) color = Rand(0, 15) Call PlayerMsg(Index, "Never gonna make you cry, never gonna say goodbye", color) color = Rand(0, 15) Call PlayerMsg(Index, "Never gonna tell a lie and hurt you", color) color = Rand(0, 15) Call PlayerMsg(Index, " ", color) Call PlayerMsg(Index, "We've known each other for so long", WHITE) color = Rand(0, 15) Call PlayerMsg(Index, "Your heart's been aching but you're too shy to say it", color) color = Rand(0, 15) Call PlayerMsg(Index, "Inside we both know what's been going on", color) color = Rand(0, 15) Call PlayerMsg(Index, "We know the game and we're gonna play it", color) color = Rand(0, 15) Call PlayerMsg(Index, " ", color) Call PlayerMsg(Index, "And if you ask me how I'm feeling", color) color = Rand(0, 15) Call PlayerMsg(Index, "Don't tell me you're too blind to see", color) color = Rand(0, 15) Call PlayerMsg(Index, "", color) Call PlayerMsg(Index, "Never gonna give you up, never gonna let you down", color) color = Rand(0, 15) Call PlayerMsg(Index, "Never gonna run around and desert you", color) color = Rand(0, 15) Call PlayerMsg(Index, "Never gonna make you cry, never gonna say goodbye", color) color = Rand(0, 15) Call PlayerMsg(Index, "Never gonna tell a lie and hurt you", color) Exit Sub Case "/admin" If GetPlayerAccess(Index) > 0 Then Call PlayerMsg(Index, "Social Commands:", WHITE) Call PlayerMsg(Index, """msghere = Global Admin Message", WHITE) Call PlayerMsg(Index, "=msghere = Private Admin Message", WHITE) Call PlayerMsg(Index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", WHITE) End If Exit Sub Case "/warpmeto" If GetPlayerAccess(Index) > 0 Then PlayerID = FindPlayer(TextSay(1)) If PlayerID > 0 Then Call PlayerWarp(Index, GetPlayerMap(PlayerID), GetPlayerX(PlayerID), GetPlayerY(PlayerID)) Call PlayerMsg(Index, "You have been warped to " & GetPlayerName(PlayerID) & ".", BROWN) Else Call PlayerMsg(Index, "Player is not online.", WHITE) End If End If Exit Sub Case "/warptome" If GetPlayerAccess(Index) > 0 Then PlayerID = FindPlayer(TextSay(1)) If PlayerID > 0 Then Call PlayerWarp(PlayerID, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index)) Call PlayerMsg(PlayerID, "You have been warped to " & GetPlayerName(Index) & ".", BROWN) Else Call PlayerMsg(Index, "Player is not online.", WHITE) End If End If Exit Sub Case "/levelup" If GetPlayerAccess(Index) > 0 Then PlayerID = FindPlayer(TextSay(2)) level = TextSay(1) Call SetPlayerLevel(PlayerID, GetPlayerLevel(PlayerID) + level ) Call SendPlayerData(PlayerID) End If case "/setupshop" inThere = GetVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "InStep") if inThere = 0 Then exit sub end if if inThere = 1 Then shophave = GetVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "running") if shophave = "" Then Call PutVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "running", 0) call playermsg(Index, "Try again.", 12) end if if shophave = 1 Then Call PlayerMsg(Index, "You already have a shop running!!", 12) exit sub end if 'call playermsg(Index, GetPlayerMap(index), 12) Call PutVar("accounts\Shops\" & "setup.ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "Taken", 1) Call PutVar("accounts\Shops\" & "setup.ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "name", GetPlayerName(index)) Call PutVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "running", 1) Call PlayerMsg(Index, "Shop is setup.", 12) end if exit sub case "/closeshop" tileGet = GetVar("accounts\Shops\" & "setup" & ".ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "Taken") 'taken or not tileGet2 = GetVar("accounts\Shops\" & "setup" & ".ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "name") 'name of the step in getTile2 = GetVar("accounts\Shops\" & "setup" & ".ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "name") 'name of the step in 'call playermsg(index, tileGet, 12) if tileGet = "" Then Call PlayerMsg(Index, "This shop is not even opened!!", 12) exit sub end if if tileGet = "0" Then Call PlayerMsg(Index, "This shop is not even opened!!", 12) exit sub end if If tileGet = 1 Then If GetPlayerName(index) = tileGet2 Then Call PlayerMsg(index, "You have closed your shop.", 12) Call PutVar("accounts\Shops\" & "setup.ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "Taken", 0) Call PutVar("accounts\Shops\" & "setup.ini", "setup", GetPlayerX(index) & GetPlayerY(index) & GetPlayerMap(index) & "name", "none") Call PutVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "running", 0) Call PutVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "ismade", 0) Call PutVar("accounts\Shops\" & GetPlayerName(index) & ".ini", "shop", "desc", "NONE") Do While c 0 Then MapNum = TextSay(1) If MapNum > 0 And MapNum 0 Then Call PlayerMapDropItem(Index, GetPlayerWeaponSlot(Index), 0) End If If GetPlayerArmorSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerArmorSlot(Index), 0) End If If GetPlayerHelmetSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerHelmetSlot(Index), 0) End If If GetPlayerShieldSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerShieldSlot(Index), 0) End If If GetPlayerLegsSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerLegsSlot(Index), 0) End If If GetPlayerRingSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerRingSlot(Index), 0) End If If GetPlayerNecklaceSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerNecklaceSlot(Index), 0) End If End Sub