Luner

o..u no what…i found the problum...my bad. ok...alright.ty man, i found it..in my script...it said...nvm, just thx for helping, i got it. :P

i no, thx, but i did that and it still wont go.

ok, i been gone for a while…a year or so...and i want to get back into the gamming world., but i cannot remember for the life of me have the ___ to make the maps bigger. i know u go into data and change da map settings. but i forgot how to make it work. the server wont open up and i just..i need to be reminded so.. any1? please? XD (thx to every1 who answers)

Ok umm sure but I don't really know how to do screen shots I uploaded them but that now?

i acualy tryed that, and it dident work. :(

@Awan: > Luner I got same problem as you, I dunno why but some router can't be port forwarded…I use belkin, and I've already port forward it but still can't make other people to join!!~ I think you should just use hamachi ^_^ can u tell me how!!! XD i followed a tutorial on that but i couldent get it to go.

ill try to answer both. :P ok… @ÅÐмiядζ: > Could you tell us step-by-step what you have been doing? ok, i went to portforward.com and i picked my router, then i picked "Eclipse" then it showed me steps on how to get eclipce on. so i followed and thats it. so…idk what to do now.. XD (and i followed a bunch of tutorials, but thats the MOST resencent thing i did) :) what did u do to get yours online? @Crimson: > What router are you using? D-Link Model: DLR655 :azn:

ive tryed, coutless times to follow tutorials, but for some reason it never works, but some1 else hosts? how would i do that? but i would love it if some1 could walk me through it, cuz im realy passed off at this, and it would be great if i can fix this.

Yo, ok, ive been LOOKING, AND LOOKING, AND EMAILING, AND IMING, AND SEARCHING, AND TRYING, but i CAN NOT DO IT. and im pissed. can some1 help me out? ive been to portfowerd.com, w/e people have tryed to help me, ive seen tuterials, but i just cant. PLEASE help me get my server online. PLEASE :cry: :cry: :cry: :cry: :cry: :cry:

Can u make it so that Ncps have a speech bubble above them, like there talking, like players in the game, but like, every like 10 sec it comes up. and they say like, Come In! or Welcome! or, Can u help me? XD o, and if its posible to have it say, Welcome for one bubble, then another bubble, that comes up 5 sec after that bubble saying, come in!. :) ty to every1 who takes time to answer :P

no!… yes. :embarrassed: lol, yups.

i got another guy, but thanks bone. ;)

r u sayin u out?

*blinks*

yaaaaaaaaaay!!!!!! :D ill pm u. :P :P :P XD

@Bone: > It sounds pretty cliche and over done.. > I mean, its an idea but its nothing really special …shut up. XD jk, i know, im workin on it all, i pretty much changed everything. ots ganna b awsome. watch. ;)

if it was it woulf be moved… :azn: or im wrong and retarted.... :P vote!

better. =P lol

Still need a Scripter and a PaperDoller

ill do it! =] ill work on it, then ill modify everything. then ill start a new 1…

Main 2 = ``` Function CanTake(Index, Number, Amount) Dim Slot Slot = 1 Index = Int(Index) Number = Int(Number) Amount = Int(Amount) Do While Slot < 25 If GetPlayerInvItemNum(Index, Slot) = Number Then If GetPlayerInvItemValue(Index, Slot) >= Amount Then CanTake = True Exit Function End If End If Slot = Slot + 1 Loop CanTake = False End Function Sub GiveItem(Index, ItemNum, Value) inventory_slot = 1 Do While inventory_slot < 25 If GetPlayerInvItemNum(Index, inventory_slot) = 0 Then Call SetPlayerInvItemNum(Index, inventory_slot, ItemNum) Call SetPlayerInvItemValue(Index, inventory_slot, Value) Call SendInventoryUpdate(Index, inventory_slot) inventory_slot = 25 End If inventory_slot = inventory_slot + 1 Loop End Sub Sub TakeItem(Index, ItemNum, Value) inventory_slot = 1 Do While inventory_slot < 25 If GetPlayerInvItemNum(Index, inventory_slot) = ItemNum Then Call SetPlayerInvItemNum(Index, inventory_slot, 0) Call SetPlayerInvItemValue(Index, inventory_slot, 0) Call SendInventoryUpdate(Index, inventory_slot) inventory_slot = 25 End If Inventory_slot = inventory_slot + 1 Loop End Sub 'Epic Spells Sub dmgspell(index, mp, val, ani, sound) If GetPlayerMP(index) >= mp Then Dim target Dim x Dim y Dim map map = GetPlayerMap(index) If GetPlayerTarget(index) < 0 Then target = GetPlayerTargetNpc(index) y = GetNpcY(map, target) x = GetNpcX(map, target) Call DamageNPC(index, target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) Else target = GetPlayerTarget(index) y = GetPlayerY(target) x = GetPlayerX(target) Call DamagePlayer(index, target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) End If mp = GetPlayerMP(index) - mp Call SetPlayerMP(index, mp) Else Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1) End If End Sub Sub curespell(index, mp, val, ani, sound) If GetPlayerMP(index) >= mp Then Dim target Dim x Dim y Dim map Dim hp map = GetPlayerMap(index) If GetPlayerTarget(index) > 0 Then target = GetPlayerTarget(index) y = GetPlayerY(target) x = GetPlayerX(target) hp = GetPlayerHP(target) val = val + hp Call SetPlayerHP(target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) Else target = GetPlayerTargetNpc(index) y = GetNpcY(map, target) x = GetNpcX(map, target) hp = GetMapNpcHP(map, target) val = val - hp Call SetMapNpcHP(map, target, val) Call SendNPC(map, target) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) End If mp = GetPlayerMP(index) - mp Call SetPlayerMP(index, mp) Else Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1) End If End Sub Sub warmthspell(index, mp, val, ani, sound) If GetPlayerMP(index) >= mp Then Dim target Dim x Dim y Dim map Dim mp1 map = GetPlayerMap(index) If GetPlayerTarget(index) > 0 Then target = GetPlayerTarget(index) y = GetPlayerY(target) x = GetPlayerX(target) mp1 = GetPlayerMP(index) val = val + mp1 - mp Call SetPlayerMP(target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) Else Call PlayerMsg(index, "You cannot cast this on an NPC", 1) End If Else Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1) End If End Sub Sub burstspell(index, mp, val, ani, sound) If GetPlayerMP(index) >= mp Then Dim target Dim x Dim y Dim map Dim sp map = GetPlayerMap(index) If GetPlayerTarget(index) > 0 Then target = GetPlayerTarget(index) y = GetPlayerY(target) x = GetPlayerX(target) sp = GetPlayerSP(target) mp = GetPlayerMP(index) - mp val = val + sp Call SetPlayerSP(target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) Call SetPlayerMP(index, mp) Else Call PlayerMsg(index, "You cannot cast this on an NPC", 1) End If Else Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1) End If End Sub Sub physchespell(index, mp, val, ani, sound) If GetPlayerMP(index) >= mp Then Dim target Dim x Dim y Dim map Dim mp1 map = GetPlayerMap(index) If GetPlayerTarget(index) > 0 Then target = GetPlayerTarget(index) y = GetPlayerY(target) x = GetPlayerX(target) mp = GetPlayerMP(index) - mp Call SetPlayerMP(index, mp) mp1 = GetPlayerMP(target) val = mp1 - val Call SetPlayerMP(target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) Else Call PlayerMsg(index, "You cannot cast this on an NPC", 1) End If Else Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1) End If End Sub Sub slowspell(index, mp, val, ani, sound) If GetPlayerMP(index) >= mp Then Dim target Dim x Dim y Dim map Dim sp map = GetPlayerMap(index) If GetPlayerTarget(index) > 0 Then target = GetPlayerTarget(index) y = GetPlayerY(target) x = GetPlayerX(target) sp = GetPlayerSP(target) mp = GetPlayerMP(index) - mp val = sp - val Call SetPlayerSP(target, val) Call SpellAnim(ani, map, x, y) Call PlaySound(index, sound) Call SetPlayerMP(index, mp) Else Call PlayerMsg(index, "You cannot cast this on an NPC", 1) End If Else Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1) End If End Sub Sub RandomFlash(index) Dim flashs flashs = 5 flashs = Rand(1, flashs) Call Flash(index, "\Arcade\" & flashs & ".swf") End Sub ```

4 some reason i cant put them in when editing the post at the top, so here are some screenshots : (if i did it right)          i hope i did it right.. if i dident ill put another 1, (1st time i realy put up a Screen Shot)

NVM! I DID IT! ty. ill put 1 in right now. =P

dosent work, nothing happeneds when i press f12.. =P

idk y this isent working, and ive checked everything every where, everything in my script works but my NCPs, is there anything in Data or somewhere else that could have coused this? im afraid to touch anything idk about in there, so if any1 know what may be couseing this problum, please tell me, and ty in advance. here is my entire main (just in case something else in there is messed up, and thats what is couseing it.) ``` #include ' Eclipse Evolution 2.7 Scripting File ' Global Variables Public GameName Public MAX_MAPS Public MOTD ' Color Constants Public Const BLACK = 0 Public Const BLUE = 1 Public Const GREEN = 2 Public Const CYAN = 3 Public Const RED = 4 Public Const MAGENTA = 5 Public Const BROWN = 6 Public Const GREY = 7 Public Const DARKGREY = 8 Public Const BRIGHTBLUE = 9 Public Const BRIGHTGREEN = 10 Public Const BRIGHTCYAN = 11 Public Const BRIGHTRED = 12 Public Const PINK = 13 Public Const YELLOW = 14 Public Const WHITE = 15 ' Admin Constants Public Const ADMIN_MONITER = 1 Public Const ADMIN_MAPPER = 2 Public Const ADMIN_DEVELOPER = 3 Public Const ADMIN_CREATOR = 4 ' Executes when the server initially loads. Sub OnServerLoad() GameName = GetVar("Data.ini", "CONFIG", "GameName") MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS") MOTD = GetVar("MOTD.ini", "MOTD", "Msg") End Sub ' Executes when the scripts are reloaded. Sub OnScriptReload() GameName = GetVar("Data.ini", "CONFIG", "GameName") MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS") MOTD = GetVar("MOTD.ini", "MOTD", "Msg") End Sub ' Executes the MOTD is changed by the client. Sub ChangeMOTD() MOTD = GetVar("MOTD.ini", "MOTD", "Msg") End Sub ' Executes when a new character is created. Sub OnNewChar(Index, CharNum) End Sub ' Executes every second, based on the server time. Sub TimedEvent(Hours, Minutes, Seconds) If Minutes = 0 Then If Seconds = 0 Then Call AdminMsg("Don't forget to vote for Eclipse.", YELLOW) End If End If End Sub ' Executes when a player presses the CONTROL key. Sub OnAttack(Index, Damage) Dim Target If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End If End Sub Sub OnArrowHit(Index, Damage) Dim Target If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End If End Sub Sub PlayerHit(Index, NPCNum, Damage) If Damage > 0 then Call NPCAttack(NPCNum, Index, Damage) End If End Sub ' Executes when a hotkey is pressed client-side. Sub HotScript(Index, KeyID) Select Case KeyID ' Executes when any player presses the PageUp key. Case 1 ' Executes when any player presses the Delete key. Case 2 ' Executes when players press the End key. Case 3 ' Executes when players press the PageDown key. Case 4 End Select End Sub ' Executes when something on a custom menu is clicked. Sub MenuScripts(Index, Clicked_Index, Menu_Type) Dim MenuTitle Dim FieldMessage MenuTitle = getplayermenuclicktitle(Index) FieldMessage = getplayermenuclickmsg(Index) Select Case Menu_Type Case 1 Call PlayerMsg(Index, "Clicked picture number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) Case 2 Call PlayerMsg(Index, "Clicked field number " & Clicked_Index & " on the menu named " & MenuTitle & ". The field text was " & FieldMessage, YELLOW) Case 3 Call PlayerMsg(Index, "Clicked label number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) End Select End Sub ' Executes when a player logs into the game. Sub JoinGame(Index) If GetPlayerAccess(Index) = 0 Then Call GlobalMsg(GetPlayerName(Index) & " has joined " & GameName & "!", GREY) Else Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has joined " & GameName & "!", YELLOW) End If Call PlayerMsg(Index, "Welcome to " & GameName & "!", WHITE) If LenB(MOTD) 0 Then Call PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN) End If Call SendWhosOnline(Index) End Sub ' Executes when a player logs out of the game. Sub LeftGame(Index) If GetPlayerAccess(Index) = 0 Then Call GlobalMsg(GetPlayerName(Index) & " has left " & GameName & "!", GREY) Else Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has left " & GameName & "!", YELLOW) End If End Sub ' Executes when a players experience exceeds the next level requirement. Sub PlayerLevelUp(Index) Dim TotalExp Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index) Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 5) Call SetPlayerExp(Index, TotalExp) Loop Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, 0) End Sub ' Executes when a player uses one of the points given on an attribute to level up. Sub UsingStatPoints(Index, PointType) Select Case PointType Case 0 If GetPlayerSTR(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your strength!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 1) Call BattleMsg(Index, "You have gained more strength!", WHITE, 0) Case 1 If GetPlayerDEF(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your defence!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 1) Call BattleMsg(Index, "You have gained more defense!", WHITE, 0) Case 2 If GetPlayerMAGI(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your magic!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1) Call BattleMsg(Index, "You have gained more magic!", WHITE, 0) Case 3 If GetPlayerSPEED(Index) + 1 > 1000 Then Call BattleMsg(Index, "You have maxed your speed!", BRIGHTRED, 0) Exit Sub End If Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1) Call BattleMsg(Index, "You have gained more speed!", WHITE, 0) End Select ' Remove one point after the sub in question is done Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) - 1) End Sub ' Executes when a player steps onto a scripted tile. Sub ScriptedTile(Index, Script) Select Case Script Case 0 Call RandomFlash(index) Exit Sub Case Else Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub ' Executes when a player clicks on an OnClick tile. Sub OnClick(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub ' Out-dated: Executes when a player chooses yes or no on a player prompt. Sub PlayerPrompt(Index, Prompt, Value) If Prompt = 6 Then Select Case Value Case 0 If GetPlayerMAGI(index) >= 45 And GetPlayerLevel(index) >= 10 Then SetPlayerClass(index, 2) Else Call PlayerMsg("You do not have the req stats, yeah must be lev 10, and you must have 45 Magic!", CYAN) End If Case 1 Call GlobalMsg("This is yes case 1?", RED) End Select Else Select Case Value Case 0 Call GlobalMsg("Hi This is a No answer!", RED) Case 1 Call GlobalMsg("This is no case 1?", RED) End Select End If End Sub ' Out-dated: Executes query box responses. Sub QueryBox(Index, Prompt) Value = GetVar("responses.ini", "Responses", CStr(Index)) End Sub ' Executes every time a player drops an item. Sub OnItemDrop(Index, Map, ItemNum, ItemVal, ItemDur, ItemIndex, InvSlot) End Sub ' Executes each time a player changes map. Sub OnMapLoad(Index, OldMap, NewMap) End Sub ' Executes whenever an NPC is killed. ' Note: Death occurs as normal externally to this script. Sub OnNPCDeath(Index, Map, NPCNum, NPCIndex) Call BattleMsg(Index, "You killed a " & getnpcname(NPCNum) & ".", BRIGHTRED, 0) End Sub ' Executes when a player is killed by another. ' Note: Death occurs as normal externally to this script. Sub OnPVPDeath(Attacker, Victim) Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED) End Sub ' Executes when a player dies in an arena by another player. Sub OnArenaDeath(Attacker, Victim) Dim Map Dim X Dim Y Dim Data1 Dim Data2 Dim Data3 Map = GetPlayerMap(Victim) X = GetPlayerX(Victim) Y = GetPlayerY(Victim) Call GlobalMsg(GetPlayerName(Victim) & " has been defeated in the arena by " & GetPlayerName(Attacker), BRIGHTRED) Call SetPlayerHP(Victim, GetPlayerMaXHP(Victim)) Call SetPlayerMP(Victim, GetPlayerMaXMP(Victim)) Call sendHp(Victim) Call sendMP(Victim) Data1 = GetTileData1(Map, X, Y) Data2 = GetTileData2(Map, X, Y) Data3 = GetTileData3(Map, X, Y) Call PlayerWarp(Victim, Data1, Data2, Data3) End Sub ' Executes whenever a player casts a scripted spell. Sub ScriptedSpell(Index, Script) Select Case Script Case 0 Call dmgspell(index, 5, 5, 2, "magic1.wav") Exit Sub Case 1 Call dmgspell(index, 15, 15, 2, "magic1.wav") Exit Sub End Select End Sub 'Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(index, "Hi!", 12) End Select Exit Sub ' Executed whenever a slash command is sent to the server. Sub Commands(Index) Dim TextSay Dim PlayerID Dim MapNum ' Get the command and arguments from the cache. TextSay = Trim(GetVar("Scripts\Command.ini", "TEMP", "Text" & Index)) ' Split the command into an array. All arguments are seperated by spaces. TextSay = Split(TextSay) Select Case TextSay(0) Case "/testscripts" Call TestMain(Index) Exit Sub Case "/help" Call PlayerMsg(Index, "Social Commands:", WHITE) Call PlayerMsg(Index, "'msghere = Broadcast Message", WHITE) Call PlayerMsg(Index, "-msghere = Emote Message", WHITE) Call PlayerMsg(Index, "!namehere msghere = Player Message", WHITE) Call PlayerMsg(Index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", WHITE) Exit Sub Case "/calladmins" If GetPlayerAccess(Index) = 0 Then Call AdminMsg(GetPlayerName(Index) & " needs your help!", BRIGHTGREEN) Else Call PlayerMsg(Index, "You are an admin! You cannot call for help!", BRIGHTGREEN) End If Exit Sub Case "/admin" If GetPlayerAccess(Index) > 0 Then Call PlayerMsg(Index, "Social Commands:", WHITE) Call PlayerMsg(Index, """msghere = Global Admin Message", WHITE) Call PlayerMsg(Index, "=msghere = Private Admin Message", WHITE) Call PlayerMsg(Index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", WHITE) End If Exit Sub Case "/warpmeto" If GetPlayerAccess(Index) > 0 Then PlayerID = FindPlayer(TextSay(1)) If PlayerID > 0 Then Call PlayerWarp(Index, GetPlayerMap(PlayerID), GetPlayerX(PlayerID), GetPlayerY(PlayerID)) Call PlayerMsg(Index, "You have been warped to " & GetPlayerName(PlayerID) & ".", BROWN) Else Call PlayerMsg(Index, "Player is not online.", WHITE) End If End If Exit Sub Case "/warptome" If GetPlayerAccess(Index) > 0 Then PlayerID = FindPlayer(TextSay(1)) If PlayerID > 0 Then Call PlayerWarp(PlayerID, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index)) Call PlayerMsg(PlayerID, "You have been warped to " & GetPlayerName(Index) & ".", BROWN) Else Call PlayerMsg(Index, "Player is not online.", WHITE) End If End If Exit Sub Case "/warpto" If GetPlayerAccess(Index) > 0 Then MapNum = TextSay(1) If MapNum > 0 And MapNum = 10 Then Call PlayerWarp(Index, 58, 15, 30) Call PlayerMsg(Index, "You Have Been Warped To Luner Island.", YELLOW) Call GlobalMsg(GetPlayerName(Index) & " Has Been Warped To Luner Island", YELLOW) Call TakeItem(index, 26, 1) Else Call PlayerMsg(Index, "You Must Be Lvl 10 To Use. The Spell Malfuctioned And Turned To Dust", YELLOW) Call TakeItem(index, 26, 1) End If Exit Sub Case 2 Call CustomMenuShow(index,"Map Of Luner Island","\GUI\CUSTOM\Map Of Luner Island.bmp",1) Exit Sub End Select End Sub ' Map Attributes Sub SetBlank(Map, X, Y) Call SetAttribute(Map, X, Y, 0, 0, 0, 0, "", "", "") 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 SetItem(Map, X, Y, ItemID, ItemValue) Call SetAttribute(Map, X, Y, 3, ItemID, ItemValue, 0, "", "", "") End Sub Sub SetNPCAvoid(Map, X, Y) Call SetAttribute(Map, X, Y, 4, 0, 0, 0, "", "", "") End Sub Sub SetKeY(Map, X, Y, KeyID, KeyTake) Call SetAttribute(Map, X, Y, 5, KeyID, KeyTake, 0, "", "", "") End Sub Sub SetKeYOpen(Map, X, Y, KeyX, KeyY, Message) Call SetAttribute(Map, X, Y, 6, KeyX, KeyY, 0, Message, "", "") 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 SetShop(Map, X, Y, ShopID) Call SetAttribute(Map, X, Y, 9, ShopID, 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, MapID, NewX, NewY) Call SetAttribute(Map, X, Y, 11, MapID, NewX, NewY, "", "", "") 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, SpriteID, ItemID, Cost) Call SetAttribute(Map, X, Y, 13, SpriteID, ItemID, 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 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 ' Tests scripts up to the location of Sub TestMain(Index). ' Leave this sub at the bottom to test the entire script file. Sub TestMain(Index) Call PlayerMsg(Index, "Scripts are working properly.", BRIGHTGREEN) End Sub ``` ty so much in advance.