Luner

Ok, heres the game: you start at an island called Stinia Island, now this is only the first island you will be visiting, there is going to be like 200 islands, each haveing a secret of why it is like this. to understand everything about the islands, you will have to compleat quests, as you compleat quests the NCPs will tell you all they know about this island. now, the center of this "Luner world" (Game Name : Luner) is, wouldent u know it, Luner Island. , this is the main island, where you will creat your "Second life." u can buy a house, make friends, and fight monster, gain exp, till your ready to go to harder island. o, and its just like any other game, exp, monsters stuff like that. in the main island, there is an explorer you will meet. he will ask you about each island, when u know all about one island, you can come to him, and he will ask u wich island u know about,u pick the island you know all about, and he askes you questiongs about it, questions that u would only know if u knew everything about the island, u only get 3 chances to answer all the questiongs right. so get the right the first time. if u know everything about an island you get alot of exp, and u keep going with the game, and u can go back to the islands, and u still have more quests, but those are just for exp and gold. and u fight monsters, and u get to a high lev. and u just hand out, meet up with friends in the game, and train with them.

pm me and ill give u every thing u need to know, and idk how to make screen shots, i would if i knew how.. =P

Any1? lol

OK, THIS IS BIG, IM WORKING ON SOMTHING HUGE. Its called Luner. its only about 4% done, becouse its ganna be HUGE, the idea as pretty much like any other game, but ALOT that others dont. PM me and ill give all the info. Im seaching for a team. i need a scripted, a mapper, a item maker/Paper Doller, and a gui maker and stuff like that. i can do mapping, but i would like to be the idea guy. now, for pay, it will pay for itself as it comes out. my uncle ownes a compony that advertises on TV and he will bringe in MASSIVE people onto our game. U will be payed depending on how much work u do, i will probubly be payed the least unless i will be stuck with Mapper. PM me soon, this is a HUGE opertunity.

for real, the team thing people.. XDXDXD

…i swear to god, thats what he told me in the pms when i said ty, cuz he helped me out. he said it, and i wrote it there cuz it sounded smart. XD, but for real about that team... XD

pm me for details, and yes, it does, PM me for everything about it.

OK, THIS IS BIG, IM WORKING ON SOMTHING HUGE. Its called Luner. its only about 4% done, becouse its ganna be HUGE, the idea as pretty much like any other game, but ALOT that others dont. PM me and ill give all the info. Im seaching for a team. i need a scripted, a mapper, a item maker/Paper Doller, and a gui maker and stuff like that. i can do mapping, but i would like to be the idea guy. now, for pay, it will pay for itself as it comes out. my uncle ownes a compony that advertises on TV and he will bringe in MASSIVE people onto our game. U will be payed depending on how much work u do, i will probubly be payed the least unless i will be stuck with Mapper. PM me soon, this is a HUGE opertunity.

PM me, i like your stuff

omg, tytytytytyty``` 'Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Select Case Script Dim Exp Dim x Dim y Dim z Dim a Exp = GetPlayerExp(index) x = 100 y = 20 z = 30 a = 5 Case 0 Call PlayerMsg(index, "I'm the shop tutor, can u buy me a water bottle from the store?", 12) If CanTake(Index, 10, 1) = False Then Call PlayerMsg(index, "Hurry", 12) Else Call TakeItem(index, 10, 1) Call GiveItem(index, 1, 100) Call PlayerMsg(index, "Thanks heres your Reward!", 12) End If Exit Sub Case 1 If GetPlayerLevel(index) = 10 Then Call PlayerWarp(Index, 51, 15, 30) Call GlobalMsg(GetPlayerName(Index) & " Has been Telaported to Luner Island", YELLOW) Else If GetPlayerLevel(Index)

o, and i have this script that lets u telaport… its``` Case 1 If GetPlayerLevel(Index) >= 10 Then Call PlayerWarp(Index, 51, 15, 30) Call GlobalMsg(GetPlayerName(Index) & " has been warped to the Boss on B.3 in the Ice stage", YELLOW) Call TakeItem(index, 26, 1) Else If GetPlayerLevel(Index) = 10 Then Call PlayerWarp(Index, 51, 15, 30) Call GlobalMsg(GetPlayerName(Index) & " Has been Telaported to Luner Island", YELLOW) Else If GetPlayerLevel(Index)

ok.. well, i wanna focus on something else… umm, ok, i read your spell scripting thing (by the way, AWSOME!) but, can i make it so that it just shoots strait, becouse the just hit who ever it kinda wierd, so im ganna play with it, but i m a noob so ill probubly mess it up.. XD, o and can i get an animation? cuz that takes away from the game. tytyty!!! =]

o, and the tela two thing dowsent work, tell me if i did it right, here my entire sub spell``` ' 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 Case 2 Call TelaTwo(Index, 50) Exit Sub End Select End Sub ``` somthing wronge with it?

hey umm, i did everything, but it still dosent work, i think im suppost to dowload that file, i dont have the skills file in my script file. so if u have the direct link to his link, thanks. :icon_alabanza: :icon_crap:

well, thx for answering my question on barons page. =P ill try it right now.

ok, i can did the script that baron, did it work for you?, cuz i have a question on it. where does ``` Case 0 Call Baron_Uber_skills(index) ' Case 1 Call Baron_Stam_regain(index) ``` go? becouse im confused (ill ask baron about that 2.. but if u can just tell me that would be great XD)

alright, some questions. i havent tryed it yet, but when i do ill probubly have more questions lol. i just have 1 for now. ok, for the telatwo thing, for the telaport. where does the script go, do i just put that under scripted spells? cuz i dont thing that would work, a sub… in a sub? or im compleatly wronge. XD :embarrassed:

ok, here it izz, lol, and yeah, i added some more stuff there i want.. im hoping i never have to post another post again, im hoping i can just keep this 1 up. XD lol

ok, but thx for all your help, im suprised i got this far. =D but umm, u know how to do any of the other stuff i posted in the first page?

ok, so no matter what, you will be able to keep doing the quest? and its for both of them, for case 0 and case 1, and umm, 10 is the number you suppost to bring to the girl, and 1 is the currency (gold) and idk how 22 is in there, it has nothing to do with the quest, i was probubly just trying diff things when i did the 22, so forget about that. =P i just want it so that u bring her 1 item # 10 and she gives you 100 # 1 and i want it so that u can only do it 1ns.

I FINALY GOT A QUEST TO WORK!!!!!!!!! but some bugs… ok, with the case 0, it works, but it first of all, as soon as i talked to her, it took all my water bottles away, and it adumaticly gave me the gold. and i can do the quest over and over, witch is not good, and now, i dont have any water bottles, but everytimge i atack her, it gives me 100 gold, and the gold dosent stack itself. here it is, just in case i did somthing wronge, ``` 'Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Dim Exp Dim x Dim y Dim z Dim a Exp = GetPlayerExp(index) x = 10 y = 20 z = 30 a = 5 Select Case Script Case 0 Call PlayerMsg(index, "I'm the shop tutor, can u buy me a water bottle from the store?", 12) If CanTake(Index, 1, 22) = False Then Call PlayerMsg(index, "You didn't get the item! Go buy it from the merchant!", 12) Else Call TakeItem(index, 10, 1) Call GiveItem(index, 1, 100) Call PlayerMsg(index, "Thanks heres your Reward!", 12) End If Exit Sub Case 1 If GetPlayerLevel(index)

ok… idk y its not working now. =[ here it is now... ``` ' 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("Go to Luner.webs.com", RED) 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 ' This sub runs when something on a custom menu is clicked. Sub MenuScripts(index, Clicked_Index, Menu_Type) If Clicked_Index = 18 Then If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = 0 Then Call PlayerMsg(Index, "Talk to Sedsew in Tavelin to begin this quest.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = 1 Then Call PlayerMsg(Index, "Sedsew needs an apple. I know some monsters drop them.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = 2 Then Call PlayerMsg(Index, "Sedsew was very gratefull for that apple.", GREEN) End If End If If Clicked_Index = 19 Then If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = 0 Then Call PlayerMsg(Index, "Talk to Mary in Seldien to begin this quest.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = 1 Then Call PlayerMsg(Index, "Mary needs Slyme Vials for her sick kitten. Most slymes drop slyme vials.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = 2 Then Call PlayerMsg(Index, "Mary's kitten is all better now.", GREEN) End If End If If Clicked_Index = 20 Then If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = 0 Then Call PlayerMsg(Index, "Talk to Kulen in Tavelin to begin this quest.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = 1 Then Call PlayerMsg(Index, "Kulen needs an egg. I thing I can steal one from local chickens.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = 2 Then Call PlayerMsg(Index, "Kulen was happy with the egg I brought him.", GREEN) End If End If End Sub ' Executes when a player logs into the game. Sub JoinGame(Index) If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = "" Then Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1", 0) End If If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = "" Then Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2", 0) End If If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = "" Then Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3", 0) End If 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 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 ' Executes when a player steps onto a scripted tile. Sub ScriptedTile(Index, Script) Select Case Script Case 0 Call CustomMenuShow(index,"bmp","\GUI\CUSTOM\bmp.bmp",1) Call CustomMenuLabel(index, 1, "Welcome to my Shop! Come in!", 20, 50, 15, 0, 0, 400, 50) Case 1 If GetPlayerLevel(Index) >= LVL Then Call PlayerWarp(Index, Map, X, Y) Call GlobalMsg(GetPlayerName(Index) & " has been warped to the Boss on B.3 in the Ice stage", YELLOW) Else If GetPlayerLevel(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 'SKILL SCRIPT START! 'XX This script has been created by Ilnair, aka Dinand Mentink XX 'XX Please do not give it out saying you made it, or distribute XX 'XX it anywhere outside the Eclipse forums! Also, please always XX 'XX distribute these credits along with the script! XX 'XX www.nishansu.tk ©Dinand Mentink (aka Ilnair)XX Sub SkillScript(index, skill, subskill) On Error Resume Next level = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "level")) + 0 experience = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "experience")) + 0 stamina = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina")) + 0 If level = 0 Then Call PlayerMsg(index, "You try " & skill & " for the first time! Your vars have been set!", 10) Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "level", "1") Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "experience", "0") If Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "stamina")) + 0 = 0 Then Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "stamina", "1") Exit Sub End If Exit Sub End If levelreq=Int(GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "levelreq")) + 0 verb=GetVar("Scripts\Skills\" & skill & ".ini", "General", "verb") completed=GetVar("Scripts\Skills\" & skill & ".ini", "General", "completed") subskillname=GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "name") If level < levelreq Then Call BattleMsg(index, "You need to be level " & levelreq & " for " & subskillname & "!", 12, 0) Exit Sub End If stamuse = Int(GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "stamuse")) + 0 If stamina < stamuse Then Call BattleMsg(index, "You need to have " & stamuse & " stamina for " & subskillname & "!", 12, 0) Exit Sub End If itemreq = Int(GetVar("Scripts\Skills\" & skill & ".ini", "general", "itemreq")) + 0 weaponslot=Int(GetPlayerWeaponSlot(index)) item = Int(GetPlayerInvItemNum(index, weaponslot)) If item itemreq and itemreq 0 Then Call BattleMsg(index, "You need to have a(n) " & Trim(GetItemName(itemreq)) & " to " & verb & "!", 12, 0) Exit Sub End If take=1 takemax=Int(GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "maxtake")) + 0 Do While take 1500 Then Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina", "1500") Else Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina", stamina + add & "") End If stamina = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina")) + 0 Call PlayerMsg(index, "You drink your " & Trim(GetItemName(item)) & " and your stamina reaches " & stamina & "!", 15) Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " drinks a glass of " & Trim(GetItemName(item)) & "!", 15) slot = GetPlayerInvItemSlot(index, item) Call SetPlayerInvItemNum(index, slot, 0) Call SetPlayerInvItemValue(index, slot, 0) Call SendInventoryUPdate(index, slot) End Sub 'SKILL SCRIPT END! sub quest11(index) Call PlayerMsg(Index, "Please bring me an Apple, I'm very hungry!", GREEN) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1", 1) End Sub sub quest12(index) slot = 1 amount = (GetPlayerExp(index) + 25) amount2 = GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "AWARDS", "Squiddle Points") + 3 Do While slot 25 If GetPlayerInvItemNum(index, int(slot)) = 3 Then Call PlayerMsg(Index, "Thank you! I really needed that apple.", GREEN) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1", 2) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "AWARDS", "Squiddle Points", (amount2)) Call SetPlayerExp(index, amount) Call TakeItem(Index, 3, 1) Call GiveItem(index, 1, 3) Call PlayerMsg(Index, "You've completed Sedsew's Apple!", GREEN) Call PlayerMsg(Index, "You receive 3 Squi Coins!", GREEN) Call PlayerMsg(Index, "You receive 3 Squiddle Points!", GREEN) Call PlayerMsg(Index, "You receive 25 Experience", GREEN) Call SendStats(Index) Exit Sub End If Call PlayerMsg(Index, "Please hurry with that apple!", GREEN) slot = slot + 1 Loop End Sub sub quest13(index) Call PlayerMsg(Index, "That apple was good, thank you.", GREEN) End Sub 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 ``` idk whats up. i did reload scripts.. and i attacked mary (NCP, lol) and nothing happenedddd… =[ plz helpz

ok, it still dosent work, heres my entire main. ( i dont know how to let you dowload it… so... yeah.... here... XD ( im sorry i had to do it like this) ``` ' 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("Go to Luner.webs.com", RED) 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 ' This sub runs when something on a custom menu is clicked. Sub MenuScripts(index, Clicked_Index, Menu_Type) If Clicked_Index = 18 Then If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = 0 Then Call PlayerMsg(Index, "Talk to Sedsew in Tavelin to begin this quest.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = 1 Then Call PlayerMsg(Index, "Sedsew needs an apple. I know some monsters drop them.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = 2 Then Call PlayerMsg(Index, "Sedsew was very gratefull for that apple.", GREEN) End If End If If Clicked_Index = 19 Then If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = 0 Then Call PlayerMsg(Index, "Talk to Mary in Seldien to begin this quest.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = 1 Then Call PlayerMsg(Index, "Mary needs Slyme Vials for her sick kitten. Most slymes drop slyme vials.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = 2 Then Call PlayerMsg(Index, "Mary's kitten is all better now.", GREEN) End If End If If Clicked_Index = 20 Then If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = 0 Then Call PlayerMsg(Index, "Talk to Kulen in Tavelin to begin this quest.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = 1 Then Call PlayerMsg(Index, "Kulen needs an egg. I thing I can steal one from local chickens.", GREEN) ElseIf GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = 2 Then Call PlayerMsg(Index, "Kulen was happy with the egg I brought him.", GREEN) End If End If End Sub ' Executes when a player logs into the game. Sub JoinGame(Index) If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1") = "" Then Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1", 0) End If If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2") = "" Then Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag2", 0) End If If GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3") = "" Then Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag3", 0) End If 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 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 ' Executes when a player steps onto a scripted tile. Sub ScriptedTile(Index, Script) Select Case Script Case 0 Call CustomMenuShow(index,"bmp","\GUI\CUSTOM\bmp.bmp",1) Call CustomMenuLabel(index, 1, "Welcome to my Shop! Come in!", 20, 50, 15, 0, 0, 400, 50) Case 1 If GetPlayerLevel(Index) >= LVL Then Call PlayerWarp(Index, Map, X, Y) Call GlobalMsg(GetPlayerName(Index) & " has been warped to the Boss on B.3 in the Ice stage", YELLOW) Else If GetPlayerLevel(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 'SKILL SCRIPT START! 'XX This script has been created by Ilnair, aka Dinand Mentink XX 'XX Please do not give it out saying you made it, or distribute XX 'XX it anywhere outside the Eclipse forums! Also, please always XX 'XX distribute these credits along with the script! XX 'XX www.nishansu.tk ©Dinand Mentink (aka Ilnair)XX Sub SkillScript(index, skill, subskill) On Error Resume Next level = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "level")) + 0 experience = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "experience")) + 0 stamina = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina")) + 0 If level = 0 Then Call PlayerMsg(index, "You try " & skill & " for the first time! Your vars have been set!", 10) Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "level", "1") Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", skill & "", "experience", "0") If Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "stamina")) + 0 = 0 Then Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "stamina", "1") Exit Sub End If Exit Sub End If levelreq=Int(GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "levelreq")) + 0 verb=GetVar("Scripts\Skills\" & skill & ".ini", "General", "verb") completed=GetVar("Scripts\Skills\" & skill & ".ini", "General", "completed") subskillname=GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "name") If level < levelreq Then Call BattleMsg(index, "You need to be level " & levelreq & " for " & subskillname & "!", 12, 0) Exit Sub End If stamuse = Int(GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "stamuse")) + 0 If stamina < stamuse Then Call BattleMsg(index, "You need to have " & stamuse & " stamina for " & subskillname & "!", 12, 0) Exit Sub End If itemreq = Int(GetVar("Scripts\Skills\" & skill & ".ini", "general", "itemreq")) + 0 weaponslot=Int(GetPlayerWeaponSlot(index)) item = Int(GetPlayerInvItemNum(index, weaponslot)) If item itemreq and itemreq 0 Then Call BattleMsg(index, "You need to have a(n) " & Trim(GetItemName(itemreq)) & " to " & verb & "!", 12, 0) Exit Sub End If take=1 takemax=Int(GetVar("Scripts\Skills\" & skill & ".ini", subskill & "", "maxtake")) + 0 Do While take 1500 Then Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina", "1500") Else Call PutVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina", stamina + add & "") End If stamina = Int(GetVar("Scripts\Charextras\" & GetPlayerName(index) & ".ini", "General", "Stamina")) + 0 Call PlayerMsg(index, "You drink your " & Trim(GetItemName(item)) & " and your stamina reaches " & stamina & "!", 15) Call MapMsg(GetPlayerMap(index), GetPlayerName(index) & " drinks a glass of " & Trim(GetItemName(item)) & "!", 15) slot = GetPlayerInvItemSlot(index, item) Call SetPlayerInvItemNum(index, slot, 0) Call SetPlayerInvItemValue(index, slot, 0) Call SendInventoryUPdate(index, slot) End Sub 'SKILL SCRIPT END! sub quest11(index) Call PlayerMsg(Index, "Please bring me an Apple, I'm very hungry!", GREEN) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1", 1) End Sub sub quest12(index) slot = 1 amount = (GetPlayerExp(index) + 25) amount2 = GetVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "AWARDS", "Squiddle Points") + 3 Do While slot 25 If GetPlayerInvItemNum(index, int(slot)) = 3 Then Call PlayerMsg(Index, "Thank you! I really needed that apple.", GREEN) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "QUESTS", "Flag1", 2) Call PutVar("Scripts\charextras\" & GetPlayerName(Index) & ".ini", "AWARDS", "Squiddle Points", (amount2)) Call SetPlayerExp(index, amount) Call TakeItem(Index, 3, 1) Call GiveItem(index, 1, 3) Call PlayerMsg(Index, "You've completed Sedsew's Apple!", GREEN) Call PlayerMsg(Index, "You receive 3 Squi Coins!", GREEN) Call PlayerMsg(Index, "You receive 3 Squiddle Points!", GREEN) Call PlayerMsg(Index, "You receive 25 Experience", GREEN) Call SendStats(Index) Exit Sub End If Call PlayerMsg(Index, "Please hurry with that apple!", GREEN) slot = slot + 1 Loop End Sub sub quest13(index) Call PlayerMsg(Index, "That apple was good, thank you.", GREEN) End Sub ```

i did it and it dosent work… this is what i got now : ``` 'Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Dim Exp Dim x Dim y Dim z Dim a Exp = GetPlayerExp(index) x = 10 y = 20 z = 30 a = 5 Call PlayerMsg(index, "I'm the shop tutor, can u buy me a water bottle from the store?", 12) If CanTake(Index, 22, 1) = False Then Call PlayerMsg(index, "You didn't get the item! Go buy it from the merchant!", 12) Else Call TakeItem(index, 10, 1) Call GiveItem(index, 1, 100) Call PlayerMsg(index, "Thanks heres your Reward!", 12) End If Exit Sub Case 1 If GetPlayerLevel(index)

i just noticed i had 2 end if and exit subs, but i tryed it withouth them and it dident work and to Xeross, yeah, its on.