Jump to content

ZelosAvalon

Members
  • Content Count

    218
  • Joined

  • Last visited

  • Days Won

    8

Everything posted by ZelosAvalon

  1. I would like to put an effect on an item when the player equip the item, appears an effect of a skill, how can i do it? Anyone know where I can find the list with the ID of the effects of skills? best regards. [ADM] Zelos*~
  2. I have a problem when I add my custom items "iteminfo.lub" my game starts to errors and does not work anymore! can anyone help me ? i need to add my custom in itemInfo.lub or in itemInfo.lua? who can i convert itemInfo.lua to itemInfo.lub? and can anyone give me the most updated itemInfo.lua/lub? best regards [ADM] Zelos*~
  3. the NPC is working, however I like to do, the player can do this quest only once per account, you will choose the weapon you want, but you can only do one per account, after this when talking to the NPC again it displays a message saying that he already did this quest! aldebaran,210,196,6 script Icarus Doppelganger 739,{ mes "[Icarus Doppelganger]"; mes "Hello ^3355FF"+strcharinfo(0)+"^000000"; mes "Are you an owner of a pair of Icarus Wings?"; next; if((countitem(8012) >= 1) == 2){ mes "[Icarus Doppelganger]"; mes "Which weapon would you like to make?"; mes "Each of them has the potential to give you powers that you can only dream of."; next; switch(select("Icarus Bow:Icarus Sword:Icarus Staff")) { case 1: mes "[Icarus Doppelganger]"; mes "Here is what you need, take note of it."; next; mes "[Icarus Doppelganger]"; mes "1x "+getitemname(8001); mes "1x "+getitemname(8002); mes "1x " + getitemname(1711) + "[""3""]"; mes "20000000 Zenys"; next; mes "[Icarus Doppelganger]"; mes "So, do you want me to make it now?"; next; if( select("Sure,I got all the items!:No, I don't have all the items yet...") == 2 ) { mes "[Icarus Doppelganger]"; mes "Come back another time."; close; } if(countitem(8001) >= 1 && countitem(8002) >= 1 && countitem(1711) >= 1 && Zeny >= 10000000) { delitem 8001,1; delitem 8002,1; delitem 1711,1; set Zeny,Zeny-10000000; mes "[Icarus Doppelganger]"; getitem 8040,1; mes "Imbue this Bow with Icaru's power!"; next; mes "[Icarus Doppelganger]"; mes "Enjoy your prize."; close; } break; case 2: mes "[Icarus Doppelganger]"; mes "Here is what you need, take note of it."; next; mes "[Icarus Doppelganger]"; mes "1x "+getitemname(8001); mes "1x "+getitemname(8002); mes "1x "+getitemname(1125); mes "20000000 Zenys"; next; mes "[Icarus Doppelganger]"; mes "So, do you want me to make it now?"; next; if( select("Sure,I got all the items!:No, I don't have all the items yet...") == 2 ) { mes "[Icarus Doppelganger]"; mes "Come back another time."; close; } if(countitem(8001) >= 1 && countitem(8002) >= 1 && countitem(1125) >= 1 && Zeny >= 10000000) { delitem 8001,1; delitem 8002,1; delitem 1125,1; set Zeny,Zeny-10000000; mes "[Icarus Doppelganger]"; getitem 8041,1; mes "Imbue this Sword with Icaru's power!"; next; mes "[Icarus Doppelganger]"; mes "Enjoy your prize."; close; } break; case 3: mes "[Icarus Doppelganger]"; mes "Here is what you need, take note of it."; next; mes "[Icarus Doppelganger]"; mes "1x "+getitemname(8001); mes "1x "+getitemname(8002); mes "1x "+getitemname(1608); mes "20000000 Zenys"; next; mes "[Icarus Doppelganger]"; mes "So, do you want me to make it now?"; next; if( select("Sure,I got all the items!:No, I don't have all the items yet...") == 2 ) { mes "[Icarus Doppelganger]"; mes "Come back another time."; close; } if(countitem(8001) >= 1 && countitem(8002) >= 1 && countitem(1608) >= 1 && Zeny >= 10000000) { delitem 8001,1; delitem 8002,1; delitem 1608,1; set Zeny,Zeny-10000000; mes "[Icarus Doppelganger]"; getitem 8042,1; mes "Imbue this Staff with Icaru's power!"; next; mes "[Icarus Doppelganger]"; mes "Enjoy your prize."; close; } break; } mes "[Icarus Doppelganger]"; mes "Mm, I'm sorry. It seems that some items are missing"; mes "Please, feel free to come again when you have everything."; close; } mes "[Icarus Doppelganger]"; mes "Mm, I'm sorry. you don't have a pair of Icarus wings in yout inventory"; close;}
  4. Not difficult, I will try to get hands on eden this week. I'm glad to hear that! thank you very much , this will be of great help!
  5. I think we are already well behind in eden quests, why not give some priority to the lvl 99+ eden quests, this is the new method of leveling, so I think that is one of the main things that should is updated in the emulator ! in rAthena already have until level 140, but it does not work in Hercules emulator, because some lines of codes have changed! Isn't a difficult job for our scripters, I even tried to fix it however the end result was not successful, i need these quests to my server, and I know many need to also, think it would be a major breakthrough for the Hercules Emulator update it! best regards, [ADM] Zelos*~
  6. I have a script error that initially it was created for rAthena emulator, however now in Hercules he no longer works! can anyone help me ? ERROR: [Error]: script error in file 'npc/custom/rebirthro/invasion_event.txt' line 22 column 27 parse_line: need ';' 19: set .GM,50;//GM Level to access the GM Menu. Default: 50 20: 21: function Go {* 22: set getarg(0),getarg(1,0),getarg(2,0); ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ 23: end; COMPLETE SCRIPT: //===== hercules Script =============================================================================================//= Invasion//===== Created By: =================================================================================================//= ZelosAvalon//===== Current Version: ============================================================================================//= v1.3//===== Compatible With: ============================================================================================//= TXT & SQL//===== Credits: ====================================================================================================//= Mysterious//==== Information: =================================================================================================// Keep in mind that the prize amount that is given out is 5 <of the item ID you input> in the NPC.// With knowledge, you can change it to whatever you want the prize to be (I.e. cashpoints, etc.).//===================================================================================================================prt_in,282,139,3 script Event Invasion 105,{function Go;set .GM,50;//GM Level to access the GM Menu. Default: 50function Go { set getarg(0),getarg(1,0),getarg(2,0); end; } // GM menu //It allows GMs Level 50 or more to Start and Stop invasions. if (getgmlevel()>.GM) { if (.mobs_left) { mes "[Event Invasion]"; mes "An invasion is in progress.."; mes "Location: " + .map$; mes "^FF0000" +.mobs_left+ "^000000" + getmonsterinfo(.MobID,0) + " left "; mes " "; mes "Stop invasion?"; if(select("No:Yes")==1) close; donpcevent "Event Invasion::OnTimer1805000"; mes "Invasion stopped"; announce "The Invasion has been stopped by "+strcharinfo(0),bc_all; close; } mes "[Event Invasion]"; mes "Please customize the Invasion event before starting it."; mes "Note - The MVP drops a event item."; Main: next; mes "[Event Invasion]"; switch(select("Map:MVP [" + getmonsterinfo(.MvpID,0) + "]:Item [" + getitemname(.ItemID) + "]:Monster [" + getmonsterinfo(.MobID,0) + "]:Number of Monster:Start Event")) { case 1: mes "Map for Invasion?"; mes "Please input the Map Name:"; menu "Prontera",T1, "Alberta",T2, "Aldebaran",T3, "Amatsu",T4, "Ayothaya",T5, "Brasilis",T6, "Comodo",T7, "Dewata",T8, "Eclage",T9, "Einbech",T10, "Einbroch",T11, "El Dicastes",T12, "Geffen",T13, "Gonryun",T14, "Hugel",T15, "Izlude",T16, "Jawaii",T17, "Lighthalzen",T18, "Louyang",T19, "Lutie",T20, "Malangdo",T21, "Malaya",T22, "Manuk",T23, "Midgarts Expedition Camp",T24, "Mora",T25, "Morroc",T26, "Moscovia",T27, "Nameless Island",T28, "Niflheim",T29, "Payon",T30, "Rachel",T31, "Splendide",T32, "Thor Camp",T33, "Umbala",T34, "Veins",T35, "Yuno",T36; T1: Go("prontera"); T2: Go("alberta"); T3: Go("aldebaran"); T4: Go("amatsu"); T5: Go("ayothaya"); T6: Go("brasilis"); T7: Go("comodo"); T8: Go("dewata"); T9: Go("ecl_in01"); T10: Go("einbech"); T11: Go("einbroch"); T12: Go("dicastes01"); T13: Go("geffen"); T14: Go("gonryun"); T15: Go("hugel"); T16: Go("izlude"); T17: Go("jawaii"); T18: Go("lighthalzen"); T19: Go("louyang"); T20: Go("xmas"); T21: Go("malangdo"); T22: Go("malaya"); T23: Go("manuk"); T24: Go("mid_camp"); T25: Go("mora"); T26: Go("morocc"); T27: Go("moscovia"); T28: Go("nameless_n"); T29: Go("niflheim"); T30: Go("payon"); T31: Go("rachel"); T32: Go("splendide"); T33: Go("thor_camp"); T34: Go("umbala"); T35: Go("veins"); T36: Go("yuno"); goto Main; case 2: mes "What MVP would you like to summom?"; mes "Please input the MVP ID:"; input .MvpID; goto Main; case 3: mes "Which item would you like the MVP to drop?"; mes "Please input the amount of monster you want to summon:"; input .ItemID; goto Main; case 4: mes "What monster would you like to summom ?"; mes "Please input the Monster ID:"; input .MobID; goto Main; case 5: mes "Who many monster would you like to summom ?"; mes "Please input the item ID:"; input .MobX; goto Main; case 6: mes "Starting the event now..."; close2; goto OnStart; } // If a player clicks the NPC, it displays: mes "[Event Invasion]"; mes .mobs_left+" have invaded "+.map$[.rand_map]+"!"; close; ///////////////////////// //The actual NPC Script// /////////////////////////OnMinute50: // Change this to your likingOnStart: set .mobs_left, .MobX; sleep2 1000; set $@ran, rand(1,6); if ($@ran == 6) set .map$,"splendide"; if ($@ran == 5) set .map$,"izlude"; if ($@ran == 4) set .map$,"payon"; if ($@ran == 3) set .map$,"geffen"; if ($@ran == 2) set .map$,"morocc"; if ($@ran == 1) set .map$,"prontera"; sleep2 1000; announce "[ Rune-Midgard Guard ]: We have trouble here in the town " + .map$ + "!", bc_all; sleep2 5000; announce "[ Rune-Midgard Guard ]: Everyone, we need your help to get rid of these "+getmonsterinfo(.MobID,0)+"!", bc_all; set .mobs_left, .MobX; monster .map$,0,0,getmonsterinfo(.MobID,0) +" [Event] ",.MobID,.MobX,strnpcinfo(3) + "::OnMyMobDead"; end; OnTimer1805000: // 30 minutes later, kills all the mobs. killmonster .map$,"Event Invasion::OnMyMobDead"; set .mobs_left,0;OnStop: // When the event is stopped by a GM, or all monsters dead. killmonster .map$,strnpcinfo(3) + "::OnMyMobDead"; killmonster .map$,strnpcinfo(3) + "::OnSpecialMobDead"; announce "It seems that "+strcharinfo(0)+" has ended the Invasion!",bc_all; end;OnMyMobDead: //When a Monster is killed set .mobs_left, .mobs_left-1; if (.mobs_left==0) { announce "[ Rune-Midgard Guard ]: "+getmonsterinfo(.MvpID,0)+" has spawned in " + .map$ + "!", bc_all; monster .map$,0,0,getmonsterinfo(.MvpID,0),.MvpID,1,"Event Invasion::OnSpecialMobDead"; } else { set #Event_point, #Event_point + 1; announce "["+.mobs_left+"/"+.MobX+"] Monster left.",bc_map; } end;OnSpecialMobDead: set #Event_point, #Event_point + 10; announce strcharinfo(0)+" has fought off the "+ getmonsterinfo(.MobID,0) +" Invasion and has been awarded a worthy prize!" + #Event_point + " Event Points", bc_all; getitem .ItemID,1; donpcevent "Event Invasion::OnStop"; } end;}
  7. how to make the quest to be added in the quest menu? I'm editing the rAthena Eden quests for the Hercules emulator, however I am with several errors of scripts, some changes were made to the NPC to work, but when i caught the quest, it does not appear in the quests menu, where we have a counter showing us whether or not we are finishing the quest! so I finished adding and test everything, I will post the quest Eden NPCs ready, for everyone to use! Not found anywhere and not seen anyone here Hercules working on it, I know that already esxistem until level 175, but so far we only have until level 99, which makes me sad, knowing that we are able to have them, however we have no initiative! I know I'm not a big scripter like many here, however I have a good programming knowledge and time to spare, and if you guys help me, i can help provide several things that will help many here! see the npc script and image below, this is what I'm wanting to appear when I pick up the quest, cuz when i get the eden quest lvl 100-111 none of this happens! i'll w8 for some help! best regards [ADM] Zelos*~ eden_100_111.txt
  8. whats the difference between questprogress and !questprogress ?
  9. soo i need to change: * 975: if (isbegin_quest(getarg(0))) for: * 975: if (questprogress(getarg(0))) its it ?
  10. Still we use questprogressQuestprogress for both checkquest and isbegin_quest But be sure to change return values of checkquest as it differs with quest progress. when i use questprogress work, but this another error in "isbegin_quest" idk how to fix it!
  11. we don't use checkquest anymore, we use questprogress https://github.com/HerculesWS/Hercules/search?utf8=%E2%9C%93&q=questprogress thanks for help! questcheck are fixed now, but now i got this error, u know what's this, and how can i fix it ? [Error]: script error in file 'npc/re/quests/eden/eden_100_111.txt' line 975 column 19 parse_simpleexpr: unmatched ')' 972: mes "The journey to the lowest floor of Glastheim is a long trip but it can be fun if you go with a party."; 973: } 974: } * 975: if (isbegin_quest(getarg(0))) ~~~~~~~~~~~~~~~~~~~^ 976: erasequest getarg(0); 977: setquest getarg(1); 978: return 1;
  12. idk why this error happend, i try to edit but still have an error!
  13. i add this eden quest but i got this error: [Error]: script error in file 'npc/re/quests/eden/eden_100_111.txt' line 164 column 21 parse_simpleexpr: unmatched ')' 161: switch( select( "Carat Hunting", "Arclouse Hunting", "Anolian Hunting", "Sting Hunting", "Majoruros Hunting" ) ) { 162: mes "[Gelkah]"; 163: case 1: * 164: if (checkquest(13004,PLAYTIME) == 0) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ how can i fix it ? what's the problem in this script?
  14. i got an error when add this npcs
  15. Anyone know where I can find the NPC quest of Eden lvl 99+?
  16. how can I do, to the NPC Warper not teleport a player, if he has not completed the quest, or have permission to enter in a map, like lhz04, MidCamp, Eclage etc ...
  17. thanks anyway, this new inventory is the only thing I do not like, come already trying to change it a long time, but to no avail!
  18. is there any way to modify the inventory to the old model? like the image below, its possible?
  19. how can I edit it to riding Griffin? instead of the message to the Peco Peco, will say Griffin. if( sd->class_&MAPID_SWORDMAN && sd->class_&JOBL_2 ) { if (!pc_isridingpeco(sd)) { // if actually no peco if (!pc->checkskill(sd, KN_RIDING)) { sprintf(atcmd_output, msg_txt(213), skill->get_desc(KN_RIDING)); // You need %s to mount! clif->message(fd, atcmd_output); return false; } pc->setridingpeco(sd, true); clif->message(fd, msg_txt(102)); // You have mounted a Peco Peco. } else {//Dismount pc->setridingpeco(sd, false); clif->message(fd, msg_txt(214)); // You have released your Peco Peco. } return true; }
  20. how can i fix the translate error in SS below ?
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.