Youhr Posted August 13, 2009 Author Share Posted August 13, 2009 So I was trying to build a script from scratch to get used to the language, and I had it all set up and everything, but for some reason the script wouldn't work when I typed the trigger.I went back and tried a different script, one of the ones that came in the main.txt. it still didn't work. Is there any way I can fix this?(my main.txt was unedited up until then. I tried it with a 'clean' one too, still no effect) Link to comment Share on other sites More sharing options...
Alster Posted August 13, 2009 Share Posted August 13, 2009 Go into your server. Make sure scripts are ON and reload the scripts. If that doesn't work upload your main.txt and let us have a look. Link to comment Share on other sites More sharing options...
Youhr Posted August 13, 2009 Author Share Posted August 13, 2009 here's the main.txt file, the only thing I added was the "/delvl" script. (or.. at least put that there. aside from that, its unedited)' Eclipse Evolution 2.7 Scripting File' Global VariablesPublic GameNamePublic MAX_MAPSPublic MOTD' Color ConstantsPublic Const BLACK = 0Public Const BLUE = 1Public Const GREEN = 2Public Const CYAN = 3Public Const RED = 4Public Const MAGENTA = 5Public Const BROWN = 6Public Const GREY = 7Public Const DARKGREY = 8Public Const BRIGHTBLUE = 9Public Const BRIGHTGREEN = 10Public Const BRIGHTCYAN = 11Public Const BRIGHTRED = 12Public Const PINK = 13Public Const YELLOW = 14Public Const WHITE = 15' Admin ConstantsPublic Const ADMIN_MONITER = 1Public Const ADMIN_MAPPER = 2Public Const ADMIN_DEVELOPER = 3Public Const ADMIN_CREATOR = 4' Executes when the server initially loads.Sub OnServerLoad()GameName = GetVar("Data.ini", "CONFIG", "GameName")MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS")MOTD = GetVar("MOTD.ini", "MOTD", "Msg")End Sub' Executes when the scripts are reloaded.Sub OnScriptReload()GameName = GetVar("Data.ini", "CONFIG", "GameName")MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS")MOTD = GetVar("MOTD.ini", "MOTD", "Msg")End Sub' Executes the MOTD is changed by the client.Sub ChangeMOTD()MOTD = GetVar("MOTD.ini", "MOTD", "Msg")End Sub' Executes when a new character is created.Sub OnNewChar(Index, CharNum)End Sub' Executes every second, based on the server time.Sub TimedEvent(Hours, Minutes, Seconds)If Minutes = 0 ThenIf Seconds = 0 ThenCall AdminMsg("Don't forget to vote for Eclipse.", YELLOW)End IfEnd IfEnd Sub' Executes when a player presses the CONTROL key.Sub OnAttack(Index, Damage)Dim TargetIf Int(Damage) > 0 ThenIf Int(GetPlayerTarget(Index)) > 0 ThenTarget = GetPlayerTarget(Index)Call DamagePlayer(Index, Target, Damage)ElseTarget = GetPlayerTargetNPC(Index)Call DamageNPC(Index, Target, Damage)End IfEnd IfEnd SubSub OnArrowHit(Index, Damage)Dim TargetIf Int(Damage) > 0 ThenIf Int(GetPlayerTarget(Index)) > 0 ThenTarget = GetPlayerTarget(Index)Call DamagePlayer(Index, Target, Damage)ElseTarget = GetPlayerTargetNPC(Index)Call DamageNPC(Index, Target, Damage)End IfEnd IfEnd SubSub PlayerHit(Index, NPCNum, Damage)If Damage > 0 thenCall NPCAttack(NPCNum, Index, Damage)End IfEnd Sub' Executes when a hotkey is pressed client-side.Sub HotScript(Index, KeyID)Select Case KeyID' Executes when any player presses the PageUp key.Case 1' Executes when any player presses the Delete key.Case 2' Executes when players press the End key.Case 3' Executes when players press the PageDown key.Case 4End SelectEnd Sub' Executes when something on a custom menu is clicked.Sub MenuScripts(Index, Clicked_Index, Menu_Type)Dim MenuTitleDim FieldMessageMenuTitle = getplayermenuclicktitle(Index)FieldMessage = getplayermenuclickmsg(Index)Select Case Menu_TypeCase 1Call PlayerMsg(Index, "Clicked picture number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW)Case 2Call PlayerMsg(Index, "Clicked field number " & Clicked_Index & " on the menu named " & MenuTitle & ". The field text was " & FieldMessage, YELLOW)Case 3Call PlayerMsg(Index, "Clicked label number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW)End SelectEnd Sub' Executes when a player logs into the game.Sub JoinGame(Index)If GetPlayerAccess(Index) = 0 ThenCall GlobalMsg(GetPlayerName(Index) & " has joined " & GameName & "!", GREY)ElseCall GlobalMsg("Administrator " & GetPlayerName(Index) & " has joined " & GameName & "!", YELLOW)End IfCall PlayerMsg(Index, "Welcome to " & GameName & "!", WHITE)If LenB(MOTD) <> 0 ThenCall PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN)End IfCall SendWhosOnline(Index)End Sub' Executes when a player logs out of the game.Sub LeftGame(Index)If GetPlayerAccess(Index) = 0 ThenCall GlobalMsg(GetPlayerName(Index) & " has left " & GameName & "!", GREY)ElseCall GlobalMsg("Administrator " & GetPlayerName(Index) & " has left " & GameName & "!", YELLOW)End IfEnd Sub' Executes when a players experience exceeds the next level requirement.Sub PlayerLevelUp(Index)Dim TotalExpDo While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index)Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1)Call SetPlayerExp(Index, TotalExp)LoopCall BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, 0)End Sub' Executes when a player uses one of the points given on an attribute to level up.Sub UsingStatPoints(Index, PointType)Select Case PointTypeCase 0If GetPlayerSTR(Index) + 1 > 1000 ThenCall BattleMsg(Index, "You have maxed your strength!", BRIGHTRED, 0)Exit SubEnd IfCall SetPlayerSTR(Index, GetPlayerSTR(Index) + 1)Call BattleMsg(Index, "You have gained more strength!", WHITE, 0)Case 1If GetPlayerDEF(Index) + 1 > 1000 ThenCall BattleMsg(Index, "You have maxed your defence!", BRIGHTRED, 0)Exit SubEnd IfCall SetPlayerDEF(Index, GetPlayerDEF(Index) + 1)Call BattleMsg(Index, "You have gained more defense!", WHITE, 0)Case 2If GetPlayerMAGI(Index) + 1 > 1000 ThenCall BattleMsg(Index, "You have maxed your magic!", BRIGHTRED, 0)Exit SubEnd IfCall SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1)Call BattleMsg(Index, "You have gained more magic!", WHITE, 0)Case 3If GetPlayerSPEED(Index) + 1 > 1000 ThenCall BattleMsg(Index, "You have maxed your speed!", BRIGHTRED, 0)Exit SubEnd IfCall SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1)Call BattleMsg(Index, "You have gained more speed!", WHITE, 0)End Select' Remove one point after the sub in question is doneCall SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) - 1)End Sub' Executes when a player steps onto a scripted tile.Sub ScriptedTile(Index, Script)Select Case ScriptCase 0Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE)Exit SubCase ElseCall PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)Exit SubEnd SelectEnd Sub' Executes when a player clicks on an OnClick tile.Sub OnClick(Index, Script)Select Case ScriptCase 0Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE)Exit SubCase ElseCall PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)Exit SubEnd SelectEnd Sub' Out-dated: Executes when a player chooses yes or no on a player prompt.Sub PlayerPrompt(Index, Prompt, Value)If Prompt = 6 ThenSelect Case ValueCase 0Call GlobalMsg("Hi This is a Yes answer!", CYAN)Case 1Call GlobalMsg("This is case 1?", CYAN)End SelectElseSelect Case ValueCase 0Call GlobalMsg("Hi This is a No answer!", RED)Case 1Call GlobalMsg("This is no case 1?", RED)End SelectEnd IfEnd Sub' Out-dated: Executes query box responses.Sub QueryBox(Index, Prompt)Value = GetVar("responses.ini", "Responses", CStr(Index))End Sub' Executes every time a player drops an item.Sub OnItemDrop(Index, Map, ItemNum, ItemVal, ItemDur, ItemIndex, InvSlot)End Sub' Executes each time a player changes map.Sub OnMapLoad(Index, OldMap, NewMap)End Sub' Executes whenever an NPC is killed.' Note: Death occurs as normal externally to this script.Sub OnNPCDeath(Index, Map, NPCNum, NPCIndex)Call BattleMsg(Index, "You killed a " & getnpcname(NPCNum) & ".", BRIGHTRED, 0)End Sub' Executes when a player is killed by another.' Note: Death occurs as normal externally to this script.Sub OnPVPDeath(Attacker, Victim)Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED)End Sub' Executes when a player dies in an arena by another player.Sub OnArenaDeath(Attacker, Victim)Dim MapDim XDim YDim Data1Dim Data2Dim Data3Map = GetPlayerMap(Victim)X = GetPlayerX(Victim)Y = GetPlayerY(Victim)Call GlobalMsg(GetPlayerName(Victim) & " has been defeated in the arena by " & GetPlayerName(Attacker), BRIGHTRED)Call SetPlayerHP(Victim, GetPlayerMaXHP(Victim))Call SetPlayerMP(Victim, GetPlayerMaXMP(Victim))Call sendHp(Victim)Call sendMP(Victim)Data1 = GetTileData1(Map, X, Y)Data2 = GetTileData2(Map, X, Y)Data3 = GetTileData3(Map, X, Y)Call PlayerWarp(Victim, Data1, Data2, Data3)End Sub' Executes whenever a player casts a scripted spell.Sub ScriptedSpell(Index, Script)Select Case ScriptCase 0Call PlayerMsg(Index, "This scripted spell has no apparent use.", WHITE)Exit SubCase ElseCall PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE)Exit SubEnd SelectEnd Sub' Executes whenever a scripted NPC does an action.Sub ScriptedNPC(Index, Script)Select Case ScriptCase 0Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE)Exit SubCase ElseCall PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE)Exit SubEnd SelectEnd Sub' Executed whenever a slash command is sent to the server.Sub Commands(Index)Dim TextSayDim PlayerIDDim 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 SubCase "/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 SubCase "/calladmins"If GetPlayerAccess(Index) = 0 ThenCall AdminMsg(GetPlayerName(Index) & " needs your help!", BRIGHTGREEN)ElseCall PlayerMsg(Index, "You are an admin! You cannot call for help!", BRIGHTGREEN)End IfExit SubCase "/admin"If GetPlayerAccess(Index) > 0 ThenCall 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 IfExit SubCase "/warpmeto"If GetPlayerAccess(Index) > 0 ThenPlayerID = FindPlayer(TextSay(1))If PlayerID > 0 ThenCall PlayerWarp(Index, GetPlayerMap(PlayerID), GetPlayerX(PlayerID), GetPlayerY(PlayerID))Call PlayerMsg(Index, "You have been warped to " & GetPlayerName(PlayerID) & ".", BROWN)ElseCall PlayerMsg(Index, "Player is not online.", WHITE)End IfEnd IfExit SubCase "/warptome"If GetPlayerAccess(Index) > 0 ThenPlayerID = FindPlayer(TextSay(1))If PlayerID > 0 ThenCall PlayerWarp(PlayerID, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))Call PlayerMsg(PlayerID, "You have been warped to " & GetPlayerName(Index) & ".", BROWN)ElseCall PlayerMsg(Index, "Player is not online.", WHITE)End IfEnd IfExit SubCase "/warpto"If GetPlayerAccess(Index) > 0 ThenMapNum = TextSay(1)If MapNum > 0 And MapNum <= MAX_MAPS ThenCall PlayerWarp(Index, MapNum, GetPlayerX(Index), GetPlayerY(Index))Call PlayerMsg(Index, "You have been warped to map #" & MapNum & ".", BRIGHTBLUE)ElseCall PlayerMsg(Index, "Invalid map number.", BRIGHTRED)End IfEnd IfExit SubCase "/delvl"If GetPlayerAccess(Index) > 3 ThenPlayerID = FindPlayer(TextSay(1))If PlayerID > 0 ThenIf GetPlayerLevel(Index) > 1Call SetPlayerLevel(Index, GetPlayerLevel(Index) - 1ThenCall SetPlayerExp(Index, GetPlayerExp(Index) - GetPlayerExp(Index))End IfEnd IfEnd IfExit SubEnd SelectCall PlayerMsg(Index, "That is not a valid command.", BRIGHTRED)End Sub' Executes on death, dropping all of the players items.Sub DropItems(Index)' Remove this to enable.Exit SubIf GetPlayerWeaponSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerWeaponSlot(Index), 0)End IfIf GetPlayerArmorSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerArmorSlot(Index), 0)End IfIf GetPlayerHelmetSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerHelmetSlot(Index), 0)End IfIf GetPlayerShieldSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerShieldSlot(Index), 0)End IfIf GetPlayerLegsSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerLegsSlot(Index), 0)End IfIf GetPlayerRingSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerRingSlot(Index), 0)End IfIf GetPlayerNecklaceSlot(Index) > 0 Then Call PlayerMapDropItem(Index, GetPlayerNecklaceSlot(Index), 0)End IfEnd Sub' Executes whenever somebody dies outside of an arena.Sub OnDeath(Index)Dim MapNumDim ClassIDDim XDim YIf GetMapBootMap(Index) > 0 ThenCall PlayerWarp(Index, GetMapBootMap(Index), GetMapBootX(Index), GetMapBootY(Index))ElseClassID = GetPlayerClass(Index)MapNum = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "Map")X = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "x")Y = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "y")Call PlayerWarp(Index, MapNum, X, Y)End IfEnd Sub' Executes whenever a scripted item is used or double clicked.Sub ScriptedItem(Index, Script)Select Case ScriptCase 0Call PlayerMsg(Index, "This scripted item has no apparent use.", WHITE)Exit SubCase ElseCall PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE)Exit SubEnd SelectEnd Sub' Map AttributesSub SetBlank(Map, X, Y)Call SetAttribute(Map, X, Y, 0, 0, 0, 0, "", "", "")End SubSub SetBlock(Map, X, Y)Call SetAttribute(Map, X, Y, 1, 0, 0, 0, "", "", "")End SubSub SetWarp(Map, X, Y, WarpMap, WarpX, WarpY)Call SetAttribute(Map, X, Y, 2, WarpMap, WarpX, WarpY, "", "", "")End SubSub SetItem(Map, X, Y, ItemID, ItemValue)Call SetAttribute(Map, X, Y, 3, ItemID, ItemValue, 0, "", "", "")End SubSub SetNPCAvoid(Map, X, Y)Call SetAttribute(Map, X, Y, 4, 0, 0, 0, "", "", "")End SubSub SetKeY(Map, X, Y, KeyID, KeyTake)Call SetAttribute(Map, X, Y, 5, KeyID, KeyTake, 0, "", "", "")End SubSub SetKeYOpen(Map, X, Y, KeyX, KeyY, Message)Call SetAttribute(Map, X, Y, 6, KeyX, KeyY, 0, Message, "", "")End SubSub SetHeal(Map, X, Y)Call SetAttribute(Map, X, Y, 7, 0, 0, 0, "", "", "")End SubSub SetKill(Map, X, Y)Call SetAttribute(Map, X, Y, 8, 0, 0, 0, "", "", "")End SubSub SetShop(Map, X, Y, ShopID)Call SetAttribute(Map, X, Y, 9, ShopID, 0, 0, "", "", "")End SubSub SetClassBlock(Map, X, Y, Allow1, Allow2, Allow3)Call SetAttribute(Map, X, Y, 10, Allow, Allow2, Allow3, "", "", "")End SubSub SetArena(Map, X, Y, MapID, NewX, NewY)Call SetAttribute(Map, X, Y, 11, MapID, NewX, NewY, "", "", "")End SubSub SetSound(Map, X, Y, FileName)Call SetAttribute(Map, X, Y, 12, 0, 0, 0, FileName, "", "")End SubSub SetSpriteChange(Map, X, Y, SpriteID, ItemID, Cost)Call SetAttribute(Map, X, Y, 13, SpriteID, ItemID, Cost, "", "", "")End SubSub SetSign(Map, X, Y, Line1, Line2, Line3)Call SetAttribute(Map, X, Y, 14, 0, 0, 0, Line1, Line2, Line3)End SubSub SetDoor(Map, X, Y)Call SetAttribute(Map, X, Y, 15, 0, 0, 0, "", "", "")End SubSub SetNotice(Map, X, Y, Title, Text, FileName)Call SetAttribute(Map, X, Y, 16, 0, 0, 0, Title, Text, FileName)End SubSub SetScripted(Map, X, Y, Script)Call SetAttribute(Map, X, Y, 18, Script, 0, 0, "", "", "")End SubSub SetBank(Map, X, Y)Call SetAttribute(Map, X, Y, 23, 0, 0, 0, "", "", "")End Sub' Tests scripts up to the location of Sub TestMain(Index).' Leave this sub at the bottom to test the entire script file.Sub TestMain(Index)Call PlayerMsg(Index, "Scripts are working properly.", BRIGHTGREEN)End Sub Link to comment Share on other sites More sharing options...
emblem Posted August 13, 2009 Share Posted August 13, 2009 Next time please use Code tags.``` Case "/delvl" If GetPlayerAccess(Index) > 3 Then PlayerID = FindPlayer(TextSay(1)) If PlayerID > 0 Then If GetPlayerLevel(Index) > 1 Then Call SetPlayerLevel(Index, GetPlayerLevel(Index) - 1) Call SetPlayerExp(Index, 0) End If End If End If Exit Sub```I fixed two syntax errors.Also, GetPlayerExp(Index) - GetPlayerExp(Index) will aways be 0. Link to comment Share on other sites More sharing options...
Youhr Posted August 13, 2009 Author Share Posted August 13, 2009 I can't use any slash scripts at all, even the precoded ones. that's the issue here that I'm having trouble with, and I'm not exactly sure how to fix it Link to comment Share on other sites More sharing options...
Valon328 Posted August 14, 2009 Share Posted August 14, 2009 me too, I was just about to make a topic about this and then I found that you had one here too, can someone please help us @_@ this is what I have in my slash commands> 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 "/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 "/warpto"> If GetPlayerAccess(Index) > 0 Then> MapNum = TextSay(1)> > If MapNum > 0 And MapNum <= MAX_MAPS Then> Call PlayerWarp(Index, MapNum, GetPlayerX(Index), GetPlayerY(Index))> Call PlayerMsg(Index, "You have been warped to map #" & MapNum & ".", BRIGHTBLUE)> Else> Call PlayerMsg(Index, "Invalid map number.", BRIGHTRED)> End If> End If> Exit Sub> case "/explode"> Call GlobalMsg(index,"omg wtf?! " & GetPlayerName(index) & "has randomly exo ploded?! z0rz?!, 0)> Call OnDeath(index)> Exit Sub> > Case "/roll"> Select Case Rand(0, 2)> Case 0> Call Flash(Index, "rickroll.swf")> Call PlaySound(Index, "rickroll.wav")> Call GlobalMsg(GetPlayerName(Index) & " got rickrolled!", BRIGHTRED)> > Case 1> Call Flash(Index, "duckroll.swf")> Call PlaySound(Index, "duckroll.wav")> Call GlobalMsg(GetPlayerName(Index) & " got duckrolled!", BRIGHTRED)> > Case Else> Call Flash(Index, "mcroll.swf")> Call PlaySound(Index, "mcroll.wav")> Call GlobalMsg(GetPlayerName(Index) & " got McRolled!", BRIGHTRED)> End Select> > Exit Sub> Case "/afk"> If GetPlayerAccess(Index) > 0 Then> Call GlobalMsg("Administrator - " & GetPlayerName(Index) & " has gone AFK", YELLOW)> Else> Call AdminMsg(GetPlayerName(Index) & " has gone afk", GREY)> End If> Call MapMsg(GetPlayerMap(Index), GetPlayerName(Index) & " has gone AFK", BRIGHTBLUE)> Call PlayerMsg(Index, "You are AFK, type /antiafk to become active", BRIGHTBLUE)> Call SetPlayerName(Index, GetPlayerName(Index) & " (AFK)")> Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))> Exit Sub> > Case "/antiafk"> Dim Resetish> Resetish = Split(GetPlayerName(Index))> Call SetPlayerName(Index, Resetish(0))> If GetPlayerAccess(Index) > 0 Then> Call GlobalMsg("Administrator - " & GetPlayerName(Index) & " is now active", YELLOW)> Else> Call AdminMsg(GetPlayerName(Index) & " is now active", GREY)> End If> Call MapMsg(GetPlayerMap(Index), GetPlayerName(Index) & " is now active", BRIGHTBLUE)> Call PlayerMsg(Index, "You are now active", BRIGHTBLUE)> Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))> Exit Sub> Case "/lvlup"> If GetPlayerAccess(Index) > 4 Then> Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)> call sendplayerdata(index)> Call playermsg(index, "you leveled up!", 10) > End If> > Case "/lvldown"> If GetPlayerAccess(Index) > 4 Then> Call SetPlayerLevel(Index, GetPlayerLevel(Index) - 1)> call sendplayerdata(index)> Call playermsg(index, "you leveled Down, you are stupid…", 12) > End If> > End Select> > Call PlayerMsg(Index, "This is not a command", BRIGHTRED)> End Sub Link to comment Share on other sites More sharing options...
emplay Posted August 14, 2009 Share Posted August 14, 2009 cant you download and new version of eclipse and goto the /commands copy the code then paste it over your /commands in your game and they would work right Link to comment Share on other sites More sharing options...
Godlord Posted August 22, 2009 Share Posted August 22, 2009 This topic has been escalated to 'Scripting Questions'.Regards, Godlord. Link to comment Share on other sites More sharing options...
ÃÂÃÂÃŽÅÃâ ÃÆ Posted August 23, 2009 Share Posted August 23, 2009 that happened to me to and i dont know how to make it work plz help Link to comment Share on other sites More sharing options...
Ertzel Posted August 23, 2009 Share Posted August 23, 2009 @Crimson:> Go into your server. Make sure scripts are ON and reload the scripts. If that doesn't work upload your main.txt and let us have a look.I did all that and none of my slash commands work now, they were before and I can't figure out what I screwed up..Here is my main.txt…```' Eclipse Evolution 2.7 Scripting File' Global VariablesPublic GameNamePublic MAX_MAPSPublic MOTD' Color ConstantsPublic Const BLACK = 0Public Const BLUE = 1Public Const GREEN = 2Public Const CYAN = 3Public Const RED = 4Public Const MAGENTA = 5Public Const BROWN = 6Public Const GREY = 7Public Const DARKGREY = 8Public Const BRIGHTBLUE = 9Public Const BRIGHTGREEN = 10Public Const BRIGHTCYAN = 11Public Const BRIGHTRED = 12Public Const PINK = 13Public Const YELLOW = 14Public Const WHITE = 15' Admin ConstantsPublic Const ADMIN_MONITER = 1Public Const ADMIN_MAPPER = 2Public Const ADMIN_DEVELOPER = 3Public Const ADMIN_CREATOR = 4' Executes when the server initially loads.Sub OnServerLoad() GameName = GetVar("Data.ini", "CONFIG", "GameName") MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS") MOTD = GetVar("MOTD.ini", "MOTD", "Msg")End Sub' Executes when the scripts are reloaded.Sub OnScriptReload() GameName = GetVar("Data.ini", "CONFIG", "GameName") MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS") MOTD = GetVar("MOTD.ini", "MOTD", "Msg")End Sub' Executes the MOTD is changed by the client.Sub ChangeMOTD() MOTD = GetVar("MOTD.ini", "MOTD", "Msg")End Sub' Executes when a new character is created.Sub OnNewChar(Index, CharNum)End Sub' Executes every second, based on the server time.Sub TimedEvent(Hours, Minutes, Seconds) If Minutes = 0 Then If Seconds = 0 Then Call AdminMsg("Thank you for testing!.", YELLOW) End If End IfEnd Sub' Executes when a player presses the CONTROL key.Sub OnAttack(Index, Damage) Dim Target If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End IfEnd SubSub OnArrowHit(Index, Damage) Dim Target If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End IfEnd SubSub PlayerHit(Index, NPCNum, Damage) If Damage > 0 then Call NPCAttack(NPCNum, Index, Damage) End IfEnd Sub' Executes when a hotkey is pressed client-side.Sub HotScript(Index, KeyID) Select Case KeyID ' Executes when any player presses the PageUp key. Case 1 ' Executes when any player presses the Delete key. Case 2 ' Executes when players press the End key. Case 3 ' Executes when players press the PageDown key. Case 4 ' Executes when players rightclicks a player. Case 5 Call Profile(Index) End SelectEnd Sub' Executes when something on a custom menu is clicked.Sub MenuScripts(Index, Clicked_Index, Menu_Type) Dim MenuTitle Dim FieldMessage MenuTitle = getplayermenuclicktitle(Index) FieldMessage = getplayermenuclickmsg(Index) Select Case Menu_Type Case 1 Call PlayerMsg(Index, "Clicked picture number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) Case 2 Call PlayerMsg(Index, "Clicked field number " & Clicked_Index & " on the menu named " & MenuTitle & ". The field text was " & FieldMessage, YELLOW) Case 3 Call PlayerMsg(Index, "Clicked label number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) End SelectEnd Sub' Executes when a player logs into the game.Sub JoinGame(Index) If GetPlayerAccess(Index) = 0 Then Call GlobalMsg(GetPlayerName(Index) & " has joined " & GameName & "!", RED) Else Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has joined " & GameName & "!", WHITE) End If Call PlayerMsg(Index, "Welcome to " & GameName & "!", GREEN) If LenB(MOTD) <> 0 Then Call PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN) End If Call SendWhosOnline(Index)End Sub' Executes when a player logs out of the game.Sub LeftGame(Index) If GetPlayerAccess(Index) = 0 Then Call GlobalMsg(GetPlayerName(Index) & " has left " & GameName & "!", RED) Else Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has left " & GameName & "!", WHITE) End IfEnd Sub' Executes when a players experience exceeds the next level requirement.Sub PlayerLevelUp(Index) Dim TotalExp Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index) Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1) Call SetPlayerExp(Index, TotalExp) Loop Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", , 0)End Sub' Executes when a player uses one of the points given on an attribute to level up.Sub UsingStatPoints(Index, PointType) Select Case PointType Case 0 If GetPlayerSTR(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your strength!", BLACK, 0) Exit Sub End If Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 1) Call BattleMsg(Index, "You have gained more strength!", WHITE, 0) Case 1 If GetPlayerDEF(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your defence!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 1) Call BattleMsg(Index, "You have gained more defense!", WHITE, 0) Case 2 If GetPlayerMAGI(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your magic!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1) Call BattleMsg(Index, "You have gained more magic!", WHITE, 0) Case 3 If GetPlayerSPEED(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your speed!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1) Call BattleMsg(Index, "You have gained more speed!", WHITE, 0) End Select ' Remove one point after the sub in question is done Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) - 1)End Sub' Executes when a player steps onto a scripted tile.Sub ScriptedTile(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End SelectEnd Sub' Executes when a player clicks on an OnClick tile.Sub OnClick(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End SelectEnd Sub' Out-dated: Executes when a player chooses yes or no on a player prompt.Sub PlayerPrompt(Index, Prompt, Value) If Prompt = 6 Then Select Case Value Case 0 Call GlobalMsg("Hi This is a Yes answer!", CYAN) Case 1 Call GlobalMsg("This is case 1?", CYAN) End Select Else Select Case Value Case 0 Call GlobalMsg("Hi This is a No answer!", RED) Case 1 Call GlobalMsg("This is no case 1?", RED) End Select End IfEnd Sub' Out-dated: Executes query box responses.Sub QueryBox(Index, Prompt) Value = GetVar("responses.ini", "Responses", CStr(Index))End Sub' Executes every time a player drops an item.Sub OnItemDrop(Index, Map, ItemNum, ItemVal, ItemDur, ItemIndex, InvSlot)End Sub' Executes each time a player changes map.Sub OnMapLoad(Index, OldMap, NewMap)End Sub' Executes whenever an NPC is killed.' Note: Death occurs as normal externally to this script.Sub OnNPCDeath(Index, Map, NPCNum, NPCIndex) Call BattleMsg(Index, "You killed a " & getnpcname(NPCNum) & ".", BRIGHTRED, 0)End Sub' Executes when a player is killed by another.' Note: Death occurs as normal externally to this script.Sub OnPVPDeath(Attacker, Victim) Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED)End Sub' Executes when a player dies in an arena by another player.Sub OnArenaDeath(Attacker, Victim) Dim Map Dim X Dim Y Dim Data1 Dim Data2 Dim Data3 Map = GetPlayerMap(Attacker) X = GetPlayerX(Attacker) Y = GetPlayerY(Attacker) Call SetPlayerHP(Victim, GetPlayerMaXHP(Attacker)) Call SetPlayerMP(Victim, GetPlayerMaXMP(Attacker)) Call sendHp(Attacker) Call sendMP(Attacker) Data1 = GetTileData1(Map, X, Y) Data2 = GetTileData2(Map, X, Y) Data3 = GetTileData3(Map, X, Y) Call PlayerWarp(Victim, 12, 27, 27) Call PlayerWarp(Attacker, 12, 4, 5)End Sub' Executes whenever a player casts a scripted spell.Sub ScriptedSpell(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted spell has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End SelectEnd Sub' Executes whenever a scripted NPC does an action.Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End SelectEnd Sub' 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 "/admin" If GetPlayerAccess(Index) > 0 Then Call PlayerMsg(Index, "Social Commands:", WHITE) Call PlayerMsg(Index, "'msghere = Server Message", WHITE) Call PlayerMsg(Index, "-msghere = Private Admin Message", WHITE) Call PlayerMsg(Index, "Available Commands: /admin, /jail, /kick, /ban, /lvlup, /lvldown, /loc, /setsprite, /warpmeto, /warptome, /warpto, /mapeditor, /mapreport, /edititem, /respawn, /editnpc, /motd, /editshop, /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 summoned to " & GetPlayerName(Index) & ".", BROWN) Else Call PlayerMsg(Index, "Player is not online.", WHITE) End If End If Exit Sub Case "/warpto" If GetPlayerAccess(Index) > 0 Then MapNum = TextSay(1) If MapNum > 0 And MapNum <= MAX_MAPS Then Call PlayerWarp(Index, MapNum, GetPlayerX(Index), GetPlayerY(Index)) Call PlayerMsg(Index, "You have been warped to map #" & MapNum & ".", BRIGHTBLUE) Else Call PlayerMsg(Index, "Invalid map number.", BRIGHTRED) End If End If Exit Sub Case "/jail" If GetPlayerAccess(Index) > 0 Then If LBound(TextSay) > 0 Then Dim Target Target = FindPlayer(TextSay(1)) If Target > 0 Then Call PlayerWarp(Target, 16, 16, 14) Call PlayerMsg(Target, "You have been jailed!", BRIGHTGREEN) Call PlayerMsg(Index, GetPlayerName(Target) & " has been jailed!", BRIGHTGREEN) Else Call PlayerMsg(Index, "The player " & TextSay(1) & " is either offline or doesn't exist.", BRIGHTRED) End If Else Call PlayerMsg(Index, "The command is /jail player", BRIGHTRED) End If End If Exit Sub Case "/lvlup" If GetPlayerAccess(Index) > 4 Then Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) call sendplayerdata(index) Call playermsg(index, "you leveled up!", 10) End If Case "/lvldown" If GetPlayerAccess(Index) > 4 Then Call SetPlayerLevel(Index, GetPlayerLevel(Index) - 1) call sendplayerdata(index) Call playermsg(index, "you leveled Down, you are stupid...", 12) End If Case "/gm" If GetPlayerAccess(Index) > 0 Then Call PlayerMsg(Index, "Social Commands:", RED) Call PlayerMsg(Index, """msghere = Global Admin Message", RED) Call PlayerMsg(Index, "=msghere = Private Admin Message", RED) Call PlayerMsg(Index, "Available Commands: /admin, /jail, /kick, /warpmeto, /warptome, /warpto", RED) End If Exit Sub End Select Call PlayerMsg(Index, "That is not a valid command.", BRIGHTRED)End Sub' Executes whenever somebody dies outside of an arena.Sub OnDeath(Index) Dim MapNum Dim ClassID Dim X Dim Y If GetMapBootMap(Index) > 0 Then Call PlayerWarp(Index, GetMapBootMap(Index), GetMapBootX(Index), GetMapBootY(Index)) Else ClassID = GetPlayerClass(Index) MapNum = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "Map") X = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "x") Y = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "y") Call PlayerWarp(Index, MapNum, X, Y) End IfEnd Sub' Executes whenever a scripted item is used or double clicked.Sub ScriptedItem(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted item has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End SelectEnd SubSub Profile(Index) On Error Resume Next Call CustomMenuShow(index, "Player Profile", "\GUI\CUSTOM\box0.gif", 1) Call CustomMenuLabel(index, 1, "Player : " & GetTargetName(index), 150, 50, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 2, "Level : " & GetTargetLevel(index), 20, 100, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 3, "Job : " & GetTargetJob(index), 20, 120, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 4, "Guild : " & GetTargetGuild(index), 20, 140, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 5, "STR : " & GetTargetStr(index), 20, 160, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 6, "DEF : " & GetTargetDef(index), 20, 180, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 7, "MAGI : " & GetTargetMagi(index), 20, 200, 10, 0, 0, 400, 20) Call CustomMenuLabel(index, 8, "SPEED : " & GetTargetSpeed(index), 20, 220, 10, 0, 0, 400, 20)End Sub' Map AttributesSub SetBlank(Map, X, Y) Call SetAttribute(Map, X, Y, 0, 0, 0, 0, "", "", "")End SubSub SetBlock(Map, X, Y) Call SetAttribute(Map, X, Y, 1, 0, 0, 0, "", "", "")End SubSub SetWarp(Map, X, Y, WarpMap, WarpX, WarpY) Call SetAttribute(Map, X, Y, 2, WarpMap, WarpX, WarpY, "", "", "")End SubSub SetItem(Map, X, Y, ItemID, ItemValue) Call SetAttribute(Map, X, Y, 3, ItemID, ItemValue, 0, "", "", "")End SubSub SetNPCAvoid(Map, X, Y) Call SetAttribute(Map, X, Y, 4, 0, 0, 0, "", "", "")End SubSub SetKeY(Map, X, Y, KeyID, KeyTake) Call SetAttribute(Map, X, Y, 5, KeyID, KeyTake, 0, "", "", "")End SubSub SetKeYOpen(Map, X, Y, KeyX, KeyY, Message) Call SetAttribute(Map, X, Y, 6, KeyX, KeyY, 0, Message, "", "")End SubSub SetHeal(Map, X, Y) Call SetAttribute(Map, X, Y, 7, 0, 0, 0, "", "", "")End SubSub SetKill(Map, X, Y) Call SetAttribute(Map, X, Y, 8, 0, 0, 0, "", "", "")End SubSub SetShop(Map, X, Y, ShopID) Call SetAttribute(Map, X, Y, 9, ShopID, 0, 0, "", "", "")End SubSub SetClassBlock(Map, X, Y, Allow1, Allow2, Allow3) Call SetAttribute(Map, X, Y, 10, Allow, Allow2, Allow3, "", "", "")End SubSub SetArena(Map, X, Y, MapID, NewX, NewY) Call SetAttribute(Map, X, Y, 11, MapID, NewX, NewY, "", "", "")End SubSub SetSound(Map, X, Y, FileName) Call SetAttribute(Map, X, Y, 12, 0, 0, 0, FileName, "", "")End SubSub SetSpriteChange(Map, X, Y, SpriteID, ItemID, Cost) Call SetAttribute(Map, X, Y, 13, SpriteID, ItemID, Cost, "", "", "")End SubSub SetSign(Map, X, Y, Line1, Line2, Line3) Call SetAttribute(Map, X, Y, 14, 0, 0, 0, Line1, Line2, Line3)End SubSub SetDoor(Map, X, Y) Call SetAttribute(Map, X, Y, 15, 0, 0, 0, "", "", "")End SubSub SetNotice(Map, X, Y, Title, Text, FileName) Call SetAttribute(Map, X, Y, 16, 0, 0, 0, Title, Text, FileName)End SubSub SetScripted(Map, X, Y, Script) Call SetAttribute(Map, X, Y, 18, Script, 0, 0, "", "", "")End SubSub SetBank(Map, X, Y) Call SetAttribute(Map, X, Y, 23, 0, 0, 0, "", "", "")End Sub' Tests scripts up to the location of Sub TestMain(Index).' Leave this sub at the bottom to test the entire script file.Sub TestMain(Index) Call PlayerMsg(Index, "Scripts are working properly.", BRIGHTGREEN)End Sub``` Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now