gregnator

I love to ride on your unicorn with Draken

Ok guys this is how it works.. i say 3 things, the next poster will add 3 things to my 3 things and so on.. Example: Captain obvious: I eat chicken poster2: I eat chicken because i love Poster3: I eat chicken because i love the smell of .. you get the point haha! we will see how long it will last :P maybe we get a huge story or not xD ok here we go! I love to

Why do you ask? Do you want to join his army?

>! @Captain: >! > 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) Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 7) > Else > Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 15) > End If > > ' Send them welcome > Call PlayerMsg(index, "Welcome to " & GameName & "!", 15) > > ' Send motd > If Trim(MOTD) "" Then > Call PlayerMsg(index, "MOTD: " & MOTD, 11) > End If > End Sub > > If GetPlayerLevel(index) = 1 Then > If GetPlayerExp(index) = 0 Then > NUM = 1 > 'change the 30 to number of flags you want per player > Do While NUM Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&NUM, 0) > NUM = NUM+1 > Loop > Call SetPlayerExp(index, 1) > End If > > Exit Sub > > Call playermsg(index, msg, 15) > > End Sub > > Sub SetFlag(index, flagnum, height) > Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, 0) > Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, GetVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum)+height) > 'Call PutVar("FLAGS.ini", GetPlayerName(index), "Flag"&flagnum, height) > End Sub > > Sub GiveItem(index, item, value) > SLOT = 1 > Do While SLOT < 24 > If GetPlayerInvItemNum(index, SLOT) = 0 Then > Call SetPlayerInvItemNum(index, SLOT, item) > Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT)+value) > Call SendInventoryUpdate(index, SLOT) > SLOT = 24 > End If > SLOT = SLOT+1 > Loop > End Sub > > Sub TakeItem(index, item) > SLOT = 1 > Do While SLOT < 24 > If GetPlayerInvItemNum(index, SLOT) = item Then > Call SetPlayerInvItemNum(index, SLOT, 0) > Call SetPlayerInvItemValue(index, SLOT, 0) > Call SendInventoryUpdate(index, SLOT) > SLOT = 24 > End If > SLOT = SLOT+1 > Loop > End Sub > > Sub TakeCurrency(index, item, value) > SLOT = 1 > Do While SLOT < 24 > If GetPlayerInvItemNum(index, SLOT) = item Then > AMOUNT = GetPlayerInvItemValue(index, SLOT) > TAKE = Int(AMOUNT-value) > If TAKE Call SetPlayerInvItemNum(index, SLOT, 0) > Call SetPlayerInvItemValue(index, SLOT, 0) > Call SendInventoryUpdate(index, SLOT) > End If > If TAKE > 0 Then > Call SetPlayerInvItemNum(index, SLOT, 0) > Call SetPlayerInvItemValue(index, SLOT, 0) > Call SetPlayerInvItemNum(index, SLOT, item) > Call SetPlayerInvItemValue(index, SLOT, TAKE) > Call SendInventoryUpdate(index, SLOT) > End If > SLOT = 24 > End If > SLOT = SLOT+1 > Loop > End Sub > > Function FindItemSlot(index, item) > slot = 1 > Do While slot If GetPlayerInvItemNum(index, Slot) = item Then > FindItemSlot = slot > slot = 24 > Else > FindItemSlot = 0 > End If > slot = slot + 1 > Loop > End Function > > '****************************SERVER DATE STUFF***************************** > Dim Day > Dim Month > Dim Year > 'Call adminmsg(Hours & ":" & Minutes & ":" & Seconds, 15) > If Hours = 24 Then 'Seasons/Date Tracking > If Trim(GetVar("ServerDate.ini", "TIME", "HasBeenDay")) = "" Then > Call PutVar("ServerDate.ini", "TIME", "HasBeenDay", 1) > Call OnDayUp() > ElseIf Int(GetVar("ServerDate.ini", "TIME", "HasBeenDay")) = 0 Then > Call PutVar("ServerDate.ini", "TIME", "HasBeenDay", 1) > Call OnDayUp() > End If > ElseIf Hours = 1 Then 'Seasons/Date Tracking > If Int(GetVar("ServerDate.ini", "TIME", "HasBeenDay")) = 1 Then > Call PutVar("ServerDate.ini", "TIME", "HasBeenDay", 0) > End If > End If > ' If Hours = SunSetHour() Then 'SunRise/SunSet > ' If Minutes = SunSetMinute() Then > ' Call MakeNight() > ' End If > ' ElseIf Hours = SunRiseHour() Then 'SunRise/SunSet > ' If Minutes = SunRiseMinute() Then > ' Call MakeDay() > ' End If > ' End If > Day= GetDay() 'The Current Day > Month= GetMonth() 'The Current Month > Year= GetYear() 'The Current Year > '*****************************END SERVER DATE STUFF**************************** > > Sub LeftGame(index) > Dim GameName > Dim n > > 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 x = GetPlayerInvItemNum(index, i) > If x = 0 Then > If emptyslot = 0 Then > emptyslot = i > End If > End If > If x = item1 Then > If item1slot = 0 Then > item1slot = i > End If > End If > If x = item2 Then > If item2slot = 0 Then > item2slot = i > End If > End If > i=i+1 > Loop > > ' this section checks to make sure the player has the required items and space. > If emptyslot 0 Then > If item1slot 0 Then > If item2slot 0 Then > If GetPlayerInvItemValue(index, item1slot) >= value1 And GetPlayerInvItemValue(index, item2slot) >= value2 Then > DICE1=(Int((100 - 1 + 1) * Rnd + 1)) > If DICE1 i = 1 > Do While i If GetPlayerInvItemNum(index, i) = reward Then > STACKREWARD = 0 > If GetPlayerInvItemValue(index, 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 Call SetPlayerInvItemNum(index, item1slot, 0) > Call SetPlayerInvItemValue(index, item1slot, 0) > Else > Call SetPlayerInvItemValue(index, item1slot, value1) > End If > If value2 Call SetPlayerInvItemNum(index, item2slot, 0) > Call SetPlayerInvItemValue(index, item2slot, 0) > Else > Call SetPlayerInvItemValue(index, item2slot, value2) > End If > If stackable = "True" Then > If STACKREWARD = 0 Then > Call SetPlayerInvItemNum(index, emptyslot, reward) > Call SetPlayerInvItemValue(index, emptyslot, 1) > Call SetPlayerInvItemDur(index, emptyslot, durability) > Call SendInventoryUpdate(index, item1slot) > Call SendInventoryUpdate(index, item2slot) > Call SendInventoryUpdate(index, emptyslot) > Else > Call SetPlayerInvItemValue(index, rewardslot, GetPlayerInvItemValue(index, rewardslot)+1) > Call SendInventoryUpdate(index, item1slot) > Call SendInventoryUpdate(index, item2slot) > Call SendInventoryUpdate(index, rewardslot) > End If > Else > Call SetPlayerInvItemNum(index, emptyslot, reward) > Call SetPlayerInvItemValue(index, emptyslot, 1) > Call SetPlayerInvItemDur(index, emptyslot, durability) > Call SendInventoryUpdate(index, item1slot) > Call SendInventoryUpdate(index, item2slot) > Call SendInventoryUpdate(index, emptyslot) > End If > Else > Call PlayerMsg(index, "You failed to create a new item.", 12) > End If > Else > Call PlayerMsg(index, "You do not have the valid resources to fuse.", 12) > End If > Else > Call PlayerMsg(index, "You do not have the valid resources to fuse.", 12) > End If > Else > Call PlayerMsg(index, "You do not have the valid resources to fuse.", 12) > End If > Else > Call PlayerMsg(index, "Your inventory is full!", 12) > End If > > GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) > > ' Check for boot map > If GetBootMap(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) Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 7) > Else > Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 15) > End If > End Sub > > Sub PlayerLevelUp(index) > Dim I > Dim D > Dim C > > Call SetPlayerName(Index, GetVar("accounts" & GetPlayerLogin(Index) & ".ini", "CHAR" & GetPlayerCharNum(Index), "RealName") & " [" & GetPlayerLevel(Index) & "]") > > C = 0 > Do While GetPlayerExp(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 If GetPlayerAccess(index) < 2 Then > Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) > Exit Sub > End If > Call SpellAnim(2, GetPlayerMap(index), GetPlayerX(index)+1, GetPlayerY(index)-1) > Call PlayerWarp(index, n, GetPlayerX(index), GetPlayerY(index)) > Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index)+1, GetPlayerY(index)-1) > Call PlayerMsg(index, "You have been warped to map #" & n, 9) > Call AddLog(GetPlayerName(index) & " warped to map #" & n & ".", ADMIN_LOG) > Else > Call PlayerMsg(index, "Invalid map number.", 4) > End If > End If > Exit Sub > End If > > If LCase(Trim(TextSay)) = "/help" Then > Call PlayerMsg(index, "Social Commands:", 15) > Call PlayerMsg(index, "'msghere = Broadcast Message", 15) > Call PlayerMsg(index, "-msghere = Emote Message", 15) > Call PlayerMsg(index, "!namehere msghere = Player Message", 15) > Call PlayerMsg(index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", 15) > Exit Sub > End If > > If LCase(Trim(TextSay)) = "/calladmins" Then > If GetPlayerAccess(index) = 1 Then > Call GlobalMsg(GetPlayerName(index) & " needs an admin!", 10) > Else > Call PlayerMsg(index, "You are an admin!", 10) > End If > Exit Sub > End If > > If LCase(Trim(TextSay)) = "/admin" Then > If GetPlayerAccess(index) > 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) 'Call PlayerMsg(index, "Testing", 2) > c = Int(Rnd * Int(Int(fishlevel + 1) - GetPlayerLevel(Index))) > If GetPlayerInvItemNum(index, weapon) = weapitem Then > If c < 2 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) & " 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) 'Call PlayerMsg(index, "Testing", 2) > c = Int(Rnd * Int(Int(orelevel + 1) - GetPlayerLevel(Index))) > If GetPlayerInvItemNum(index, weapon) = weapitem Then > If c < 2 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) & " 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 'x = GetPlayerInvItemNum(index, i) > 'If x = 0 Then > 'If emptyslot = 0 Then > 'emptyslot = i > 'End If > 'End If > 'If x = item1 Then > 'If item1slot = 0 Then > 'item1slot = i > 'End If > 'End If > 'If x = item2 Then > 'If item2slot = 0 Then > 'item2slot = i > 'End If > 'End If > 'i=i+1 > 'Loop > ' > 'If emptyslot 0 Then > 'If item1slot 0 Then > 'If item2slot 0 Then > 'If GetPlayerInvItemValue(index, item1slot) >= value1 And GetPlayerInvItemValue(index, item2slot) >= value2 Then > 'DICE1=(Int((100 - 1 + 1) * Rnd + 1)) > 'If DICE1 'i = 1 > 'Do While i 'If GetPlayerInvItemNum(index, i) = reward Then > 'STACKREWARD = 0 > 'If GetPlayerInvItemValue(index, 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 'Call SetPlayerInvItemNum(index, item1slot, 0) > 'Call SetPlayerInvItemValue(index, item1slot, 0) > 'Else > 'Call SetPlayerInvItemValue(index, item1slot, value1) > 'End If > 'If value2 'Call SetPlayerInvItemNum(index, item2slot, 0) > 'Call SetPlayerInvItemValue(index, item2slot, 0) > 'Else > 'Call SetPlayerInvItemValue(index, item2slot, value2) > 'End If > 'If stackable = "True" Then > 'If STACKREWARD = 0 Then > 'Call SetPlayerInvItemNum(index, emptyslot, reward) > 'Call SetPlayerInvItemValue(index, emptyslot, 1) > 'Call SetPlayerInvItemDur(index, emptyslot, durability) > 'Call SendInventoryUpdate(index, item1slot) > 'Call SendInventoryUpdate(index, item2slot) > 'Call SendInventoryUpdate(index, emptyslot) > 'Else > 'Call SetPlayerInvItemValue(index, rewardslot, GetPlayerInvItemValue(index, rewardslot)+1) > 'Call SendInventoryUpdate(index, item1slot) > 'Call SendInventoryUpdate(index, item2slot) > 'Call SendInventoryUpdate(index, rewardslot) > 'End If > 'Else > 'Call SetPlayerInvItemNum(index, emptyslot, reward) > 'Call SetPlayerInvItemValue(index, emptyslot, 1) > 'Call SetPlayerInvItemDur(index, emptyslot, durability) > 'Call SendInventoryUpdate(index, item1slot) > 'Call SendInventoryUpdate(index, item2slot) > 'Call SendInventoryUpdate(index, emptyslot) > 'End If > 'Else > 'Call PlayerMsg(index, "You failed to create a new item.", 12) > 'End If > 'Else > 'Call PlayerMsg(index, "You do not have the valid resources to fuse.", 12) > 'End If > 'Else > 'Call PlayerMsg(index, "You do not have the valid resources to fuse.", 12) > 'End If > 'Else > 'Call PlayerMsg(index, "You do not have the valid resources to fuse.", 12) > 'End If > 'Else > 'Call PlayerMsg(index, "Your inventory is full!", 12) > 'End If > 'End Sub > > Sub BlockPlayer(index) > playerdir = GetPlayerDir(index) > Select Case playerdir > Case 0 > Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)+1) > Case 1 > Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)-1) > Case 2 > Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index)+1, GetPlayerY(index)) > Case 3 > Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index)-1, GetPlayerY(index)) > End Select > End Sub > Call BlockPlayer(index) > If getplayerlevel(indes) < 10 Then > Call blockPlayer(index) > End if > > '***************************** > '* Server Dates/Seasons v1.0 * > '* By Munro & * > '* The_Best_Flash * > '***************************** > > 'Edit these functions so that they will run your desired scripts > > '************************TIMER SETION******************************* > > 'The only section that needs changed in here is the 'WeekDayTimers' section. > Sub TimerIncrease(kind) 'Case 1 = Day Timers | Case 2= WeekDay Timers | Case 3= Week Timers | Case 4= Month Timers | Case 5= Year Timers > Dim i > Dim cur > > Select Case Int(kind) > > Case 1 'Day Timers > IncreasePlayerTimers() > For i=1 To Int(GetVar("PlayerTimers\Timers.ini", "DAY", "Tot")) > cur= Int(GetVar("PlayerTimers\Timers.ini", "DAYCOUNT", Int(i) & "C")) > cur= cur + 1 > If Int(cur) = Int(GetVar("PlayerTimers\Timers.ini", "DAYCOUNT", Int(i) & "R")) Then > Call OnTimerRun(1, Trim(GetVar("PlayerTimers\Timers.ini", "DAY", Int(i)))) > Call PutVar("PlayerTimers\Timers.ini", "DAYCOUNT", Int(i) & "C", 0) > Else > Call PutVar("PlayerTimers\Timers.ini", "DAYCOUNT", Int(i) & "C", Int(Cur)) > End If > Next > Exit Sub > > Case 2 'WeekDayTimers **This will need to go from 1 to the total number of week days** > Select Case Int(GetWeekDay()) > Case 1 > 'What happens every Monday (or whatever you called the first week day) > &nbs > ```

Mike hawk

ok i got my tilesets from my ee2.7 but the tile sets are blue and stuff and while pressing mask it places not only the thing i want but also the blue background, i have repainted it with the exact purple background the other tileset has and still when masking it takes the background too! any ideas how to fix this? or does someone have alot or some tilesets for origin?

NEVERMIND! Close this topic i'm done :P My solution? Download another new origin client folder, edit it in VB and compile it into a exe thanks for the support

Already done that i cant find it ANYWHERE

So i just need help with how to change the popup you know, when the server is offline the popup says visit touchofdeathforums, i want it to say www.irkh-clan.com so i can give support

Altough i had a hard time following your text i finally understand, but i think it would be easier if someone would make like a guild mod and make a guild for the admins and stuff… or are you talking about making yourself GM?

@Kreator: > I'm sure you can search for that text in the source using VB6 to find it ok but can you answer my other question? because i really hope someone knows. you would be my hero.. you would be the hero of captain obvious

@NamelessSoul: > OR, you can change it in the Source Code. If you really don't want anyone to see your ip, just change it in the source code. Couldn't be easier. it isnt that easy i have been lookin but havent found it yet

ok you guys managed to answer my question but my other question is really important for me when people wana play the game and the server is down it says visit touchofdeathforums.. i want to change it to my own website.. i dont need big tutorials just say where it is and i'll find it. its really important for me

@Ryoku: > you dont, go to IP chicken and take that IP and put it into your Config.ini for the client. > > it will connect. > > (was post ninja'd) I want to use No-ip and i cant connect to my server with the no-ip ip.. whilst the no-ip ip is just masking my real ip.. the reason i dont want to let everyone know the real ip is for turkish hackers or normal hackers

ok thats answered but how do i change the text when the server is oflline for example: A friend has a copy of the game, he cant connect and gets the text: "try again later or visit http://www.touchofdeathforums.com" how do i change it so when he cant connect it pops up with My website?

Like people know, im more of a 2.7 ee guy.. anways i got eo2.0 but there a few things bothering me.. in EE you could change the server ip from 1.92.168 bla bla to your real ip so that people put your real ip in their game they can connect.. But ican only change the port of my server how do i change my servers ip? oh btw when people wana play the game and the server is down it says visit touchofdeathforums.. i want to change it to my own website.. i dont need big tutorials just say where it is and i'll find it. its really important for me

Ok guys, ive figured out the new eclipse style and i really like it much much kudos to robin. But i'm a bit confused about how to pack the released game? For example lets say i want to let my friend play the game with me, what files do i send him? ok that was stupid.. let me say it again: do i send the whole client map with the clien src map? or not? Because the files in the src map are easily editable and changes my whole game.. And does someone have any suggestions which programs i could use to protect my graphics and stuff so they dont steal it? And if the src map has to go too, how do i protect them from being edited? Anyways i know i'll get a answer soon because the mods,admins,helpers and people over here are actually pretty quick! I'll be waiting for a reply, thanks

@NamelessSoul: > Wow… If Robin saw this he would eat your ass up. > Seriously, engines are not to make your life easier, but to make ~~your games~~ anything you're making easier to make. Naw he wont do that xD Besides he will probably only do that when hes in a bad mood and hes not in for a joke xD Anyways thanks alot people, and does anyone know where god… thingy is? xD cuz i know he was a good guy around here!

@Esmeyana i ment EE 2.7 and yes i'm a bit of an old-timer with the eclipse stuff :) @benedek11 thats what eclipse is bugging me with.. they update their eclipse so you dont have to use vb, then they do it so you have to use it, then they cancel using EE oh god xD ok duud thanks i'll DL VB6 AGAIN :P Its a big shame i cant use my maps,scripts and shit from my EE2.7 game wouldve made it alot easier! P.s. to all admins WHEN YOU BRING OUT A NEW ECLIPSE MAKE SURE THE OLDER VERSONS MAPS AND STUFF ARE COMPATIBLE WITH THE NEW ONE xD thanks alot guys

Its been a while since i been here, and things changed a bit! Anyways how do i set my max level? i dont want a max level of 4329032040320 but a max level of 60 and how do i change the max of players? I'm used to EO 2.7 but i have the newest eclipse and i got a map with svr or something, anyways can someone help? thanks

If you are new you might use Eclipse origins.. people like me who already got a game.. well we just have to hope that 3.0 will come out! so you better go to origins indeed

i tried but i dont actually know how to it just got all messed up for me :S

hey nice job! but i got EE will there be an update for that 2? cuz i cant put all my stuff in the new EO and i dont want to do everything all over again?

Hi! i need a program of some sort that converts my sprites/paperdolls and maybe music so that nobody can alter or steal this? can anyone help ?

@Terraun: > If you say "plz" because it's shorter than please, then I'll say no because it's shorter than yes. ;D > > But in all seriousness, I don't think there is a such thing your looking for. Programs don't just create art. If you want better Paperdoll then do it yourself, pixel art isn't hard, just takes time. no im not trying that i know how to make stuff but my item sheet is all messed up cuz i made new stuff and move some so its a bit weird how do i make this all neat again