Harris6310 Posted July 19, 2011 Author Share Posted July 19, 2011 The game is simple, quote your first ever post.@Harris:> I need help, i made a sprite with a sprite maker but when i saved the image it was like this> [](http://www.picoodle.com/view.php?img=/3/8/9/f_PDSpriteAdum_b0d58f1.png&srv=img34)> How do i make it so i can use it on ee 2.7?> :huh:> > BTW: DO NOT NICK MY SPRITE OR I WILL GO COPYRIGHT ON YOUR ARSE> Copyright ShadowFury-Online 2008 Link to comment Share on other sites More sharing options...
Jeff Posted July 19, 2011 Share Posted July 19, 2011 @asdfawef:> will having people on your server slow your internet down? if so, how many people will it take to make some lagg? :renzo: <– its a bear! XD Link to comment Share on other sites More sharing options...
renzo Posted July 20, 2011 Share Posted July 20, 2011 @renzo:> *renzo breaks down the door with machine guns in each arm and blasts every civilian in the area, unloading all his ammo. afterwards he realized he shot everything BUT the fighters* "oh cra - oooh boobies!" *he is now drooling all over the floor*Admit it, you all wish you could be as cool as me. Link to comment Share on other sites More sharing options...
Robin Posted July 20, 2011 Share Posted July 20, 2011 I did have a couple of 1-sentence posts before, but this was my first real post. Had to make this account after forgetting what I originally registered as back when I was lurking Elysium.@Robin:> If he already had them, he wouldn't get this error unless some foolish programmer had re-registered the files elsewhere which had later been deleted by Deranous.> > VB6.0 uses a COM+ registration method, which means as long as the .dll dependencies are registered in Windows, they can be accessed no matter where they are on the computer.> > Even if he does have the files elsewhere, they will be useless until they are re-registered, and it's a lot easier to simply re-install them back into SYSTEM32 where they belong, which is what the Library/Runtime files installer does.> > Only problems with .dll dependencies which don't rely on the COM+ registration method can be fixed by copying the required files into the applications path file. Link to comment Share on other sites More sharing options...
Weegee Posted July 20, 2011 Share Posted July 20, 2011 @Rawrz:> Can someone give me an ice spell animation plz and tyyup that was it Link to comment Share on other sites More sharing options...
shwamshwam1 Posted July 21, 2011 Share Posted July 21, 2011 @SnowStorm:> you know the tribe war is once a week, don't you think it should be like twice a month, of maybe even three.> > And,> > is there a minimum level that you have to be to get into the tribe war?Yea, talkin about Origin xD Link to comment Share on other sites More sharing options...
Lenton Posted July 21, 2011 Share Posted July 21, 2011 > Hi, i would love to become a mapper/mod. i have had like half a years experience and still haven't made a propper project yet, instead, ill join yours!> > Sorry i don't have any examples of my work i don't keep them just play around with them, and i come up with pretty cool stuff. Ill try and make one and post it on here soon. :alkashi:1 year experience? Pfft, good lie past self. Link to comment Share on other sites More sharing options...
gregnator Posted December 9, 2011 Share Posted December 9, 2011 >! @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) <= ADMIN_MONITER Then> 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 <= 30 > 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 <= 0 Then> 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 <= 24> 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 <=24> 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 <= chance Then> i = 1> Do While i <= 24> 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 <= 0 Then> Call SetPlayerInvItemNum(index, item1slot, 0)> Call SetPlayerInvItemValue(index, item1slot, 0)> Else> Call SetPlayerInvItemValue(index, item1slot, value1)> End If> If value2 <= 0 Then> 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) <= 1 Then> 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 <= m 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> 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) <= fishlevel Then > '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) <= orelevel Then > '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 <=24> '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 <= chance Then> 'i = 1> 'Do While i <= 24> '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 <= 0 Then> 'Call SetPlayerInvItemNum(index, item1slot, 0)> 'Call SetPlayerInvItemValue(index, item1slot, 0)> 'Else> 'Call SetPlayerInvItemValue(index, item1slot, value1)> 'End If> 'If value2 <= 0 Then> '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> ``` Link to comment Share on other sites More sharing options...
guzmanm Posted December 9, 2011 Share Posted December 9, 2011 @NamelessSoul:> Well…Umm... Actually I am doing a new game, and ALL the tutorials I have found didnt helped me at all, well, some did, but others are for later versions of eclipse, and thats no good. My question is, how can I make a class to not to appear at creating character, but, at a time, it can be used, Eg. I crate a character called warrior, obviously i choose warrior as class, then, when I am at lvl 10, I go to somekind of house and step in somekind of floor, it automatically makes me a paladin or something. Note* I cant choose paladin as a starting class whaen creating my vcharacter. Ok, now, can someone help me? please!^Was actually an engine bug, which was fixed later on. Oooooh, the memooorieees 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