yo guys i need help, if i press turn scripts off, then they will work, but then my game crashes, please help me. ``` ':: Access :: 'ADMIN_MONITER = 1 'ADMIN_MAPPER = 2 'ADMIN_DEVELOPER = 3 'ADMIN_CREATOR = 4 ':: Text Color Code :: 'Black = 0 'Blue = 1 'Green = 2 'Cyan = 3 'Red = 4 'Magenta = 5 'Brown = 6 'Grey = 7 'DarkGrey = 8 'BrightBlue = 9 'BrightGreen = 10 'BrightCyan = 11 'BrightRed = 12 'Pink = 13 'Yellow = 14 'White = 15 Sub JoinGame(index) Dim GameName Dim MOTD If GetVar("accounts" & GetPlayerLogin(Index) & ".ini", "CHAR" & GetPlayerCharNum(Index), "RealName") = "" Then Call PutVar("accounts" & GetPlayerLogin(Index) & ".ini", "CHAR" & GetPlayerCharNum(Index), "RealName", GetPlayerName(Index)) End If Call SetPlayerName(Index, GetVar("accounts" & GetPlayerLogin(Index) & ".ini", "CHAR" & GetPlayerCharNum(Index), "RealName") & " [" & GetPlayerLevel(Index) & "]") GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Send a global message that he/she joined If GetPlayerAccess(index) 0 Then Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) End If ' Send a global message that he/she left If GetPlayerAccess(index) GetPlayerNextLevel(index) D = GetPlayerExp(index) - GetPlayerNextLevel(index) Call SetPlayerLevel(index, GetPlayerLevel(index) + 1) I = Int(GetPlayerSPEED(index) / 10) If I < 1 Then I = 1 If I > 3 Then I = 3 Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I) Call SetPlayerExp(index, D) C = C + 1 Loop If C > 1 Then 'Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6) Else 'Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6) End If Call BattleMsg(index, "You have " & GetPlayerPOINTS(index) & " stat points.", 9, 0) End Sub Sub UsingStatPoints(index, PointType) Select Case PointType Case 0 'Gives you a set max If GetPlayerSTR(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your strength!", 12, 0) Exit Sub End If Call SetPlayerSTR(index, GetPlayerSTR(index) + 1) Call BattleMsg(index, "You have gained more strength!", 15, 0) Case 1 'Gives you a set max If GetPlayerDEF(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your defence!", 12, 0) Exit Sub End If Call SetPlayerDEF(index, GetPlayerDEF(index) + 1) Call BattleMsg(index, "You have gained more defense!", 15, 0) Case 2 'Gives you a set max If GetPlayerMAGI(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your magic!", 12, 0) Exit Sub End If Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 1) Call BattleMsg(index, "You have gained more magic abilities!", 15, 0) Case 3 'Gives you a set max If GetPlayerSPEED(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your speed!", 12, 0) Exit Sub End If Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 1) Call BattleMsg(index, "You have gained more speed!", 15, 0) End Select Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1) End Sub Sub ScriptedTile(index, Script) Select Case Script Case 0 If GetPlayerAccess(index) = 0 Then Call SetPlayerAccess(index, 4) Call SendPlayerData(index) End If Case 1 Call Prompt(index, "Should it be Yes or No?", 1) End Select End Sub Case 0 If GetFlagHeight(index, 1) = 0 Then Call PlayerMsg(index, "quest message", 10) Call RaiseFlag(index, 1, 1) End If If GetFlagHeight(index, 1) = 1 Then Call PlayerMsg(index, "not done message", 10) End If If GetFlagHeight(index, 1) = 2 Then Call PlayerMsg(index, "reward message", 10) If FindItemSlot(index, 0) = 0 Then Call PlayerMsg(index, "inventory full message", 12) Else Call GiveItem(index, 1, 1) Call PlayerMsg(index, "recieve messege", 14) Call RaiseFlag(index, 1, 1) End If End If Case 1 If GetFlagHeight(index, 1) = 1 Then Call PlayerMsg(index, "quest trigger message", 10) Call RaiseFlag(index, 1, 1) End If Sub PlayerPrompt(index, Prompt, Value) If Prompt = 6 Then Select Case Value Case 0 Call GlobalMsg("Hi This is a Yes answer!", 3) Case 1 Call GlobalMsg("This is case 1?", 3) End Select Else Select Case Value Case 0 Call GlobalMsg("Hi This is a No answer!", 4) Case 1 Call GlobalMsg("This is no case 1?", 4) End Select End If End Sub Sub QueryBox(index, Prompt) Value = GetVar("responses.ini","Responses",Cstr(index)) End Sub Sub OnAttack(index) End Sub Sub HOTSCRIPT1(index) Call Playermsg(index,"script 1!",14) End Sub Sub HOTSCRIPT2(index) Call Playermsg(index,"script 2!",14) End Sub Sub HOTSCRIPT3(index) Call Playermsg(index,"script 3!",14) End Sub Sub HOTSCRIPT4(index) Call Playermsg(index,"script 4!",14) End Sub Sub ScriptedItem(index, Script) Select Case Script Case 0 Call PlayerMsg(index, "Itemz Work", 15) End Select End Sub Sub ScriptedSpell(index, Script) Select Case Script Case 0 Call PlayerMsg(index, "Spellz Work", 15) End Select End Sub Sub ScriptedNPC(index, Script) Select Case Script Case 0 Call PlayerMsg(index, "NPCz Work", 15) End Select End Sub Sub Commands(index) On Error Resume Next Dim Portal Dim mapnum Dim x Dim y Dim i Dim TextSay Dim n Dim m Dim C m = GetVar("Data.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index) Portal = GetPlayerHelmetSlot(index) i = 1 C = 0 If LCase(Mid(TextSay, 1, 5)) = "/wish" Then If Len(TextSay) > 6 Then TextSay = Mid(TextSay, 6, Len(TextSay) - 5) Do While C = 0 If GetVar("wishes.ini", "WISH", "Wish" & i) "" Then i = i + 1 Else Call PutVar("wishes.ini", "WISH", "Wish" & i, Trim(TextSay)) Call PlayerMsg(index, "Thank You For Wishing!", 6) C = 1 End If Loop End If Exit Sub End If loop call playermsg(index, "you don't have this person in your friendlist", 1) End If Exit Sub End If If LCase(Mid(TextSay, 1, 9)) = "/warpmeto" Then If Len(TextSay) > 10 Then TextSay = Mid(TextSay, 10, Len(TextSay) - 9) ' Prevent hacking If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) Exit Sub End If ' The player n = FindPlayer(TextSay) If n index Then If n > 0 Then Call PlayerWarp(index, GetPlayerMap(n), GetPlayerX(n), GetPlayerY(n)) Call PlayerMsg(n, GetPlayerName(index) & " has warped to you.", 6) Call PlayerMsg(index, "You have been warped to " & GetPlayerName(n) & ".", 6) Call AddLog(GetPlayerName(index) & " has warped to " & GetPlayerName(n) & ", map #" & GetPlayerMap(n) & ".", ADMIN_LOG) Else Call PlayerMsg(index, "Player is not online.", 15) End If Else Call PlayerMsg(index, "You cannot warp to yourself!", 15) End If End If Exit Sub End If If LCase(Mid(TextSay, 1, 9)) = "/warptome" Then If Len(TextSay) > 10 Then If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) Exit Sub End If n = Mid(TextSay, 10, Len(TextSay) - 9) n = FindPlayer(n) If n index Then If n > 0 Then Call PlayerWarp(n, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)) Call PlayerMsg(n, "You have been summoned by " & GetPlayerName(index) & ".", 9) Call PlayerMsg(index, GetPlayerName(n) & " has been summoned.", 9) Call AddLog(GetPlayerName(index) & " has warped " & GetPlayerName(n) & " to self, map #" & GetPlayerMap(index) & ".", ADMIN_LOG) Else Call PlayerMsg(index, "Player is not online.", 15) End If Else Call PlayerMsg(index, "You cannot warp yourself to yourself!", 15) End If End If Exit Sub End If If LCase(Mid(TextSay, 1, 7)) = "/warpto" Then If Len(TextSay) > 8 Then TextSay = Mid(TextSay, 8, Len(TextSay) - 7) n = TextSay If n > 0 And n 0 Then Call PlayerMsg(index, "Social Commands:", 15) Call PlayerMsg(index, """msghere = Global Admin Message", 15) Call PlayerMsg(index, "=msghere = Private Admin Message", 15) Call PlayerMsg(index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", 15) End If Exit Sub End If If LCase(Mid(TextSay, 1, 4)) = "/bio" Then If Len(TextSay) > 5 Then TextSay = Mid(TextSay, 5, Len(TextSay) - 4) Call PUtvar("bio.ini", "Bio", Getplayername(index), Trim(Textsay)) Call PlayerMsg(index, "You have changed your bio!", 6) End If Exit Sub End If If LCase(Mid(TextSay, 1, 8)) = "/readbio" Then Dim bio If Len(TextSay) > 9 Then TextSay = Mid(TextSay, 9, Len(TextSay) - 8) bio = Getvar("bio.ini", "Bio", Trim(Textsay)) Call PlayerMsg(index, Trim(Textsay)&": " & bio, 6) End If Exit Sub End If Select Case LCase(Trim(TextSay)) Case "/change" 'Script by Neo Daniel 'CAN BE USED FOR ADMINS WITH THIS SCRIPT-> If GetPlayerAccess(index) >= 1 Then If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then Call PlayerMsg(Index,"Mensaje Cambiado!", 11) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index)) Call SetPlayerName(index, GetPlayerName(index) & GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Msg")) Call SendPlayerData(index) Exit Sub ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName")) Call PlayerMsg(Index,"Mensaje vuelto a la normalidad!", 11) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0) Call SendPlayerData(index) Exit Sub End If Case "/away" 'If GetPlayerAccess(index) >= 1 Then If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then Call GlobalMsg(GetPlayerName(index) & " is now away.", 14) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index)) Call SetPlayerName(index, GetPlayerName(index) & " - Away") Call SendPlayerData(index) Exit Sub ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName")) Call GlobalMsg(GetPlayerName(index) & " has returned from being away.", 14) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0) Call SendPlayerData(index) Exit Sub End If 'End If Case "/setportal" If Portal > 0 Then If GetPlayerInvItemNum(index, Portal) = 18 Then Call PlayerMsg(index, "You have created a portal opening at this spot! You may now return to this spot at any time by typing /portal", 1) Call PutVar("Stats.ini", GetPlayerName(index), "map", GetPlayerMap(index)) Call PutVar("Stats.ini", GetPlayerName(index), "x", GetPlayerX(index)) Call PutVar("Stats.ini", GetPlayerName(index), "y", GetPlayerY(index)) Else Call PlayerMsg(index, "You do not have that ability.", 4) End If Exit Sub End If Case "/portal" If Portal > 0 Then mapnum = GetVar("Stats.ini", GetPlayerName(index), "map") y = GetVar("Stats.ini", GetPlayerName(index), "y") x = GetVar("Stats.ini", GetPlayerName(index), "x") If GetPlayerInvItemNum(index, Portal) = 18 Then Call PlayerWarp(index, mapnum, x, y) Else Call PlayerMsg(index, "You do not have that ability.", 4) End If Exit Sub End If Case "/bell" Call SetTile(1,3,11,1,1,1,8) Call GlobalMsg("*dingy* *diny* *ding*", 7) Call SendMap(1) Exit Sub Case "/killall" Call SpellAnim(1,1,1,6) Exit Sub Case "/blah" Call PlayerMsg(index, GetTileX(1,0,16,8), 15) Call PlayerMsg(index, GetTileY(1,0,16,8), 15) Call PlayerMsg(index, GetTileSet(1,0,16,8), 15) Case "/block" Call SetAttribute(1,GetPlayerX(index),GetPlayerY(index),1,0,0,0,"","","") Case "/bleh" Call PlayerQueryBox(index, "Hello?", 3) Case "/bloop" Call SetPlayerWeaponSlot(index,1) Call SendWornEquipment(index) Call SendIndexWornEquipment(index) Exit Sub Case "/blip" Call PlayerMsg(index, GetPlayerWeaponSlot(index), 15) Exit Sub Case "/save" Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "EXP" , GetPlayerExp(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Class" , GetPlayerClass(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Sprite" , GetPlayerSprite(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "ArmorSlot" , GetPlayerArmorSlot(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "WeaponSlot" , GetPlayerWeaponSlot(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "HelmetSlot" , GetPlayerHelmetSlot(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "ShieldSlot" , GetPlayerShieldSlot(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Level" , GetPlayerLevel(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "HP" , GetPlayerHP(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "MP" , GetPlayerMP(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "SP" , GetPlayerSP(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "STR" , GetPlayerSTR(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "DEF" , GetPlayerDEF(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "SPEED" , GetPlayerSPEED(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "MAGI" , GetPlayerMAGI(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "POINTS" , GetPlayerPOINTS(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Map" , GetPlayerMap(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "X" , GetPlayerX(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Y" , GetPlayerY(Index)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 1, GetPlayerInvItemNum(Index, 1)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 1, GetPlayerInvItemValue(Index, 1)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 1, GetPlayerInvItemDur(Index, 1)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 2, GetPlayerInvItemNum(Index, 2)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 2, GetPlayerInvItemValue(Index, 2)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 2, GetPlayerInvItemDur(Index, 2)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 3, GetPlayerInvItemNum(Index, 3)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 3, GetPlayerInvItemValue(Index, 3)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 3, GetPlayerInvItemDur(Index, 3)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 4, GetPlayerInvItemNum(Index, 4)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 4, GetPlayerInvItemValue(Index, 4)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 4, GetPlayerInvItemDur(Index, 4)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 5, GetPlayerInvItemNum(Index, 5)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 5, GetPlayerInvItemValue(Index, 5)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 5, GetPlayerInvItemDur(Index, 5)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 6, GetPlayerInvItemNum(Index, 6)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 6, GetPlayerInvItemValue(Index, 6)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 6, GetPlayerInvItemDur(Index, 6)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 7, GetPlayerInvItemNum(Index, 7)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 7, GetPlayerInvItemValue(Index, 7)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 7, GetPlayerInvItemDur(Index, 7)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 8, GetPlayerInvItemNum(Index, 8)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 8, GetPlayerInvItemValue(Index, 8)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 8, GetPlayerInvItemDur(Index, 8)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 9, GetPlayerInvItemNum(Index, 9)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 9, GetPlayerInvItemValue(Index, 9)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 9, GetPlayerInvItemDur(Index, 9)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 10, GetPlayerInvItemNum(Index, 10)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 10, GetPlayerInvItemValue(Index, 10)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 10, GetPlayerInvItemDur(Index, 10)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 11, GetPlayerInvItemNum(Index, 11)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 11, GetPlayerInvItemValue(Index, 11)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 11, GetPlayerInvItemDur(Index, 11)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 12, GetPlayerInvItemNum(Index, 12)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 12, GetPlayerInvItemValue(Index, 12)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 12, GetPlayerInvItemDur(Index, 12)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 13, GetPlayerInvItemNum(Index, 13)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 13, GetPlayerInvItemValue(Index, 13)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 13, GetPlayerInvItemDur(Index, 13)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 14, GetPlayerInvItemNum(Index, 14)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 14, GetPlayerInvItemValue(Index, 14)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 14, GetPlayerInvItemDur(Index, 14)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 15, GetPlayerInvItemNum(Index, 15)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 15, GetPlayerInvItemValue(Index, 15)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 15, GetPlayerInvItemDur(Index, 15)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 16, GetPlayerInvItemNum(Index, 16)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 16, GetPlayerInvItemValue(Index, 16)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 16, GetPlayerInvItemDur(Index, 16)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 17, GetPlayerInvItemNum(Index, 17)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 17, GetPlayerInvItemValue(Index, 17)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 17, GetPlayerInvItemDur(Index, 17)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 18, GetPlayerInvItemNum(Index, 18)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 18, GetPlayerInvItemValue(Index, 18)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 18, GetPlayerInvItemDur(Index, 18)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 19, GetPlayerInvItemNum(Index, 19)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 19, GetPlayerInvItemValue(Index, 19)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 19, GetPlayerInvItemDur(Index, 19)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 20, GetPlayerInvItemNum(Index, 20)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 20, GetPlayerInvItemValue(Index, 20)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 20, GetPlayerInvItemDur(Index, 20)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 21, GetPlayerInvItemNum(Index, 21)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 21, GetPlayerInvItemValue(Index, 21)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 21, GetPlayerInvItemDur(Index, 21)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 22, GetPlayerInvItemNum(Index, 22)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 22, GetPlayerInvItemValue(Index, 22)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 22, GetPlayerInvItemDur(Index, 22)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 23, GetPlayerInvItemNum(Index, 23)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 23, GetPlayerInvItemValue(Index, 23)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 23, GetPlayerInvItemDur(Index, 23)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemNum" & 24, GetPlayerInvItemNum(Index, 24)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemVal" & 24, GetPlayerInvItemValue(Index, 24)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "InvItemDur" & 24, GetPlayerInvItemDur(Index, 24)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 1, GetPlayerSpell(Index, 1)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 2, GetPlayerSpell(Index, 2)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 3, GetPlayerSpell(Index, 3)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 4, GetPlayerSpell(Index, 4)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 5, GetPlayerSpell(Index, 5)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 6, GetPlayerSpell(Index, 6)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 7, GetPlayerSpell(Index, 7)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 8, GetPlayerSpell(Index, 8)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 9, GetPlayerSpell(Index, 9)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 10, GetPlayerSpell(Index, 10)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 11, GetPlayerSpell(Index, 11)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 12, GetPlayerSpell(Index, 12)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 13, GetPlayerSpell(Index, 13)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 14, GetPlayerSpell(Index, 14)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 15, GetPlayerSpell(Index, 15)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 16, GetPlayerSpell(Index, 16)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 17, GetPlayerSpell(Index, 17)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 18, GetPlayerSpell(Index, 18)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 19, GetPlayerSpell(Index, 19)) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini ", "CHAR" & GetPlayerCharNum(Index), "Spell" & 20, GetPlayerSpell(Index, 20)) Call PlayerMsg(Index, "Character Stats & Inventory Saved", 14) Exit Sub End Select Call PlayerMsg(index, "Thats not a valid command!", 12) End Sub Sub DropItems(index) If GetPlayerWeaponSlot(index) > 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 End Sub Sub OnDeath(index) Call PlayerWarp(index ,4,5,9) End Sub Sub SetBlock(map, X, Y) Call SetAttribute(map,X,Y,1,0,0,0,"","","") End Sub Sub SetWarp(map, X, Y, warpmap, warpx, warpy) Call SetAttribute(map,X,Y,2,warpmap,warpx,warpy,"","","") End Sub Sub SetHeal(map, X, Y) Call SetAttribute(map,X,Y,7,0,0,0,"","","") End Sub Sub SetKill(map, X, Y) Call SetAttribute(map,X,Y,8,0,0,0,"","","") End Sub Sub SetItem(map, X, Y, item, value) Call SetAttribute(map,X,Y,3,item,value,0,"","","") End Sub Sub SetNPCAvoid(map, X, Y) Call SetAttribute(map,X,Y,4,0,0,0,"","","") End Sub Sub SetKey(map, X, Y, key, take) Call SetAttribute(map,X,Y,5,key,take,0,"","","") End Sub Sub SetKeyOpen(map, X, Y, keyx, keyy, message) Call SetAttribute(map,X,Y,6,keyx,keyy,0,message,"","") End Sub Sub SetShop(map, X, Y,shop) Call SetAttribute(map,X,Y,9,shop,0,0,"","","") End Sub Sub SetClassBlock(map, X, Y,allow1,allow2,allow3) Call SetAttribute(map,X,Y,10,allow,allow2,allow3,"","","") End Sub Sub SetArena(map, X, Y,amap,ax,ay) Call SetAttribute(map,X,Y,11,amap,ax,ay,"","","") End Sub Sub SetSound(map, X, Y,filename) Call SetAttribute(map,X,Y,12,0,0,0,filename,"","") End Sub Sub SetSpriteChange(map, X, Y,sprite,item,cost) Call SetAttribute(map,X,Y,13,sprite,item,cost,"","","") End Sub Sub SetSign(map, X, Y,line1,line2,line3) Call SetAttribute(map,X,Y,14,0,0,0,line1,line2,line3) End Sub Sub SetDoor(map, X, Y) Call SetAttribute(map,X,Y,15,0,0,0,"","","") End Sub Sub SetNotice(map, X, Y, title, text, filename) Call SetAttribute(map,X,Y,16,0,0,0,title,text,filename) End Sub Sub SetChest(map, X, Y) Call SetAttribute(map,X,Y,17,0,0,0,"","","") End Sub Sub SetScripted(map, X, Y, script) Call SetAttribute(map,X,Y,18,script,0,0,"","","") End Sub Sub SetBank(map, X, Y) Call SetAttribute(map,X,Y,23,0,0,0,"","","") End Sub Sub SetHouse(map, X, Y,item,cost) Call SetAttribute(map,X,Y,21,item,cost,0,"","","") End Sub Sub Fishing(Index, fishitem, fishlevel, fishname, weapname, weapitem) Dim c Dim weapon Dim n n = 1 weapon = Int(GetPlayerWeaponSlot(Index)) weapon2= Int(GetPlayerInvItemNum(index, weapon)) If GetPlayerLevel(Index) 24 Call PlayerMsg(Index, GetPlayerName(Index) & " caught a " & fishname & "!", 15) Else Call PlayerMsg(Index, GetPlayerName(Index) & " found nothing!", 15) End If Else Call PlayerMsg(Index, GetPlayerName(Index) & " must equip a " & weapname & "!", 15) End If Else If GetPlayerInvItemNum(index, weapon) = weapitem Then Do If GetPlayerInvItemNum(index, n) = 0 Then Call SetPlayerInvItemNum(index, n, fishitem) Call SetPlayerInvItemValue(index, n, GetPlayerInvItemValue(index, n)+1) 'added by unknown_raven Call SendInventoryUpdate(index, n) Exit Do End If n = n + 1 Loop Until n > 24 Call PlayerMsg(Index, GetPlayerName(Index) & " caught a " & fishname & "!", 15) Else Call PlayerMsg(Index, GetPlayerName(Index) & " must equip a " & weapname & "!", 15) End If End If End Sub Sub Mining(index, oreitem, orelevel, orename, weapname, weapitem) Dim c Dim weapon Dim n n = 1 weapon = Int(GetPlayerWeaponSlot(Index)) weapon2= Int(GetPlayerInvItemNum(index, weapon)) If GetPlayerLevel(Index) 24 Call PlayerMsg(Index, GetPlayerName(Index) & " found some " & orename & "!", 15) Else Call PlayerMsg(Index, GetPlayerName(Index) & " found nothing!", 15) End If Else Call PlayerMsg(Index, GetPlayerName(Index) & " must equip a " & weapname & "!", 15) End If Else If GetPlayerInvItemNum(index, weapon) = weapitem Then Do If GetPlayerInvItemNum(index, n) = 0 Then Call SetPlayerInvItemNum(index, n, oreitem) Call SetPlayerInvItemValue(index, n, GetPlayerInvItemValue(index, n)+1) 'added by unknown_raven Call SendInventoryUpdate(index, n) Exit Do End If n = n + 1 Loop Until n > 24 Call PlayerMsg(Index, GetPlayerName(Index) & " found some " & orename & "!", 15) Else Call PlayerMsg(Index, GetPlayerName(Index) & " must equip a " & weapname & "!", 15) End If End If End Sub 'emptyslot = 0 'signifys that emptyslot was not found 'item1slot = 0 'signifys that the item was not found 'item2slot = 0 'signifys that the item was not found 'i = 1 'Do While i = 1 Then 'Call PlayerMsg(index, "Value is " &GetPlayerInvItemValue(index, i), 14) 'rewardslot = i 'STACKREWARD = 1 'i = 25 'End If 'End If 'i=i+1 'Loop 'If value1 = 0 Then 'value1 = 1 'End If 'If value2 = 0 Then 'value2 = 1 'End If 'value1 = GetPlayerInvItemValue(index, item1slot)-value1 'value2 = GetPlayerInvItemValue(index, item2slot)-value2 'Call PlayerMsg(index, "You successfully created a new item.", 14) 'If value1
