Jump to content

minx123

Members
  • Content Count

    283
  • Joined

  • Last visited

Everything posted by minx123

  1. ooo.. thank you.. now i know can read at there.. hahha.. thank you
  2. //===== 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.).//===================================================================================================================invek,107,212,3 script Event Invasion 105,{function Go;set .GM,50;//GM Level to access the GM Menu. Default: 50function Go { warp 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// /////////////////////////OnClock0840:OnClock1440:OnClock2040:OnClock0240: // Change this to your likingOnStart: set .mobs_left, .MobX; sleep2 1000; set $@ran, rand(1,2); if ($@ran == 2) set .map$,"izlude"; if ($@ran == 1) set .map$,"geffen"; 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!", bc_all; getitem .ItemID,1; donpcevent "Event Invasion::OnStop"; } end;} how to set permanent MVP, ITEM,MONSTER,QUANTITY MONSTER. every time i reloadscript it will reset to all null. i need set to MVP = 1502 ITEM = 7227 MONSTER = 2534 QUANTITY MONSTER = 5
  3. my town is invek. cant use custom map?
  4. what u means? i need its spawn at invek map only.
  5. //=========== Town Invasion ==========//=========== Version: 1.0 ===========- script towninvasion -1,{OnClock0800:OnClock1400:OnClock2000:OnClock0200:set .town,rand(11);setarray $@mapinvasion$[0],"invek";announce "A Boss is destroying our Invek city! Help us!",bc_all,0x00FFFF;sleep2 2000;announce "Hurry before it dominate the whole "+$@mapinvasion$[.town]+"!",bc_all,0x00FFFF;sleep2 5000;announce "This monster is quite elusive! So please beat it up!",bc_all,0x00FFFF;monster $@mapinvasion$[.town],0,0,"Bring it on!",1502,1,"towninvasion::OnInvadeKill";end;OnInvadeKill:announce "Good job, for keeping our city safe!!",bc_all,0x00FFFF;getitem 7227,10;end;OnInit:setarray $@mapinvasion$[0],"invek";end;} [debug] cant detect invek map. how to fix it?
  6. thx for reply.. i just want to know still active or not..
  7. hello to all. i just to know the robroswer is still active or not? it is compatible with hashield proctection? it is have any bad effect to my server?
  8. where can i get latest client? btw. i using hashield patched. when i change client, it will revert back to original client. i cant change the client. plus my hosting i don't know where he go. almost 1 week not reply my pm for guide me to change it.
  9. // https://www.eathena.ws/board/index.php?&act=attach&type=post&id=5866//===== eAthena Script =======================================//= Super Convex Mirror//===== By: ==================================================//= Brian//===== Current Version: =====================================//= 1.0//===== Compatible With: =====================================//= eAthena SVN//===== Description: =========================================//= Detects if every MVP is alive or dead.//===== Additional Comments: =================================//= http://www.eathena.ws/board/index.php?showtopic=242050//============================================================invek,141,144,0 script Super Convex Mirror::convex 46,{ if (!.display_type) donpcevent strnpcinfo(3)+"::OnInit"; // initialize variables for( set .@i,0; .@i < getarraysize(.mvp_name$); set .@i, .@i+1 ) { switch (.@i) { case 9: set .@alive, mobcount("lhz_dun03","summon_boss_lt::OnMyMvPDead"); break; case 26: set .@alive, ($ktullanux_summon<4 || mobcount("ice_dun03","ice_boss#on::OnMyMobDead")); break; case 28: set .@alive, mobcount("niflheim","NifInvasion::OnLoDDead"); break; case 42: set .@alive, ($@thana_summon<6 || mobcount("thana_boss","#Death::OnThanaDead")); break; default: set .@alive, mobcount(.mvp_map$[.@i],"convex::OnMyMvPDead"); break; } if (.display_type == 2) set .@menu$, .@menu$+ (.@alive ? "^008000" : "^FF0000") + .mvp_name$[.@i] +"^000000 ("+ .mvp_map$[.@i] +"):"; else if (.display_type == 1) mes (.@alive ? "^008000" : "^FF0000") + .mvp_name$[.@i] +"^000000 ("+ .mvp_map$[.@i] +")"; } if (.display_type == 2) set .@num, select(.@menu$) -1; if (.warp_to_mvp >= 1) warp .mvp_map$[.@num],0,0; if (.warp_to_mvp == 2) { sleep2 1000; sc_start SC_BOSSMAPINFO,600000,0; } close;OnInit: set .display_type, 1; // 1=mes, 2=menu set .warp_to_mvp, 0; // 0=disabled, 1=enabled, 2=enabled+SC_BOSSMAPINFO setarray .mvp_map$[0], "moc_pryd06","ra_fild02","ra_fild03","ra_fild04","ve_fild01", "ve_fild02","lou_dun03","prt_maze03","abbey03","lhz_dun03", "gl_chyard","abyss_03","gef_dun02","gef_dun01","treasure02", "pay_fild11","gon_dun03","abbey02","xmas_fild01","ra_san05", "prt_sewb4","mosk_dun03","man_fild03","thor_v03","ama_dun03", "kh_dun02","ice_dun03","ayo_dun02","niflheim","anthell02", "mjolnir_04","pay_dun04","gef_fild02","gef_fild14","gef_fild10", "moc_pryd04","in_sphinx5","moc_fild17","ein_dun02","xmas_dun02", "beach_dun","spl_fild03","thana_boss","tur_dun04","odin_tem03", "jupe_core","lhz_dun02"; setarray .mvp_name$[0], "AmonRa","Atroce","Atroce","Atroce","Atroce", "Atroce","Bacsojin","Baphomet","Beelzebub","Bio3", "DarkLord","Detale","Doppelganger","Dracula","Drake", "Eddga","EvilSnakeLord","FallenBishop","Garm","GloomUnderNight", "GoldenThiefBug","Gopinich","HardrockMammoth","Ifrit","IncantationSamurai", "KielD01","Ktullanux","LadyTanee","LordofDeath","Maya", "Mistress","MoonlightFlower","OrcHero","OrcHero","OrcLord", "Osiris","Pharaoh","Phreeoni","RSX0806","StormyKnight", "TaoGunka","TendrilLion","Thanatos","TurtleGeneral","ValkyrieRandgris", "Vesper","Ygnizem"; if (.warp_to_mvp) set .display_type,2; // in order for the user to pick an option, the list must be displayed as a menuOnMyMvPDead: end;} i need help to fix this script. 1-when monster alive/dead this npc not detect the mvp 2-colour mention on name mvp when dead/alive still same not change. Green (revive) Red (Dead) 3-when select to warp to the map, char will get curse and cant move.
  10. Hercules 64-bit for linux SVN revision "17814M / '17814' (script) Client date 20100730
  11. same. nothing happen. its bcoz client version? when i press twice, that item not go to equipment wear. its still in inventory.
  12. Don't you mean setcashmount; instead of setmounting()? There is no setmounting command on hercules. cant use. both nothing happen. when i click the item still in inventory. its no go to equip wearing. its becoz i using Pre -RE?
  13. hello.. i have problem to enable boarding halter 12622. when i press the item nothing happen. Pre-Re my trunk. how to fix it?
  14. Thank you.. I will try it later.. its work.. thank you..
  15. Thank you so much.. Will try it later..
  16. no longer available. how to get new client? @@Dastgir http://supportmii.com/ro1/Clients/ Not sure if this is what you're looking for. Thx i will try it later..
  17. can you upload to new link? i cant register in eathena forum. its block from registration.
  18. bump. help me solve this problem. what should i do?
  19. no longer available. how to get new client? @@Dastgir
  20. hello.. i need some help.. how to open all slot for custome system.
  21. no bug found in script. just is cant show multi item in different quest.
  22. i need help to make skill will not stack with coma.
  23. this script from Euphy'sQuestShopv1.6b the problem is its cant show same item different item need. it will show number 1 quest only.. how to fix it? //===== rAthena Script =======================================//= Euphy's Quest Shop//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.6b//===== Compatible With: =====================================//= rAthena SVN r16862+//===== Description: =========================================//= A dynamic quest shop based on Lunar's, with easier config.//= Includes support for multiple shops & cashpoints.//= Item Preview script by ToastOfDoom.//===== Additional Comments: =================================//= 1.0 Initial script.//= 1.2 Added category support.//= 1.3 More options and fixes.//= 1.4 Added debug settings.//= 1.5 Replaced categories with shop IDs.//= 1.6 Added support for purchasing stackables.//= 1.6a Added support for previewing costumes and robes.//= 1.6b Added 'disable_items' command.//============================================================// Shop NPCs -- supplying no argument displays entire menu.// callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};//============================================================sky_quest,42,48,5 script Quest Exchanger 465,{cutin "3rd_wl_queen04",2;callfunc "qshop"; }// Script Core//============================================================- script quest_shop -1,{function Add; function Chk; function Slot; function A_An;OnInit: freeloop(1);// -----------------------------------------------------------// Basic shop settings.// ----------------------------------------------------------- set .Announce,1; // Announce quest completion? (1: yes / 0: no) set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never) set .ShowID,0; // Show item IDs? (1: yes / 0: no) set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no) set .MaxStack,100; // Max number of quest items purchased at one time.// -----------------------------------------------------------// Points variable -- optional quest requirement.// setarray .Points$[0],"<variable name>","<display name>";// ----------------------------------------------------------- setarray .Points$[0],"#CASHPOINTS","Cash Points";// -----------------------------------------------------------// Shop IDs -- to add shops, copy dummy data at bottom of file.// setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};// ----------------------------------------------------------- setarray .Shops$[1],"ETC";// -----------------------------------------------------------// Quest items -- do NOT use a reward item more than once!// Add(<shop ID>,<reward ID>,<reward amount>,// <Zeny cost>,<point cost>,// <required item ID>,<required item amount>{,...});// -----------------------------------------------------------Add(1,30329,1,0,0,13416,1);Add(1,30329,1,0,0,13417,1);Add(1,30329,1,0,0,13418,1);Add(1,30329,1,0,0,13419,1);Add(1,30329,1,0,0,13420,1):// ----------------------------------------------------------- freeloop(0); set .menu$,""; for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) { set .menu$, .menu$+.Shops$[.@i]+":"; npcshopdelitem "qshop"+.@i,909; } end;OnMenu: set .@size, getarraysize(@i); if (!.@size) set .@i, select(.menu$); else if (.@size == 1) set .@i, @i[0]; else { for(set .@j,0; .@j<.@size; set .@j,.@j+1) set .@menu$, .@menu$+.Shops$[@i[.@j]]+":"; set .@i, @i[select(.@menu$)-1]; } deletearray @i[0],getarraysize(@i); if (.Shops$[.@i] == "") { message strcharinfo(0),"An error has occurred."; end; } dispbottom "Select one item at a time."; callshop "qshop"+.@i,1; npcshopattach "qshop"+.@i; end;OnBuyItem: // .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... } setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]); copyarray .@q[3],getd(".q_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+.@q[0])); set .@q[2],.@q[1]*.@q[3]; if (!.@q[2] || .@q[2] > 30000) { message strcharinfo(0),"You can't purchase that many "+getitemname(.@q[0])+"."; end; } mes "[Quest Shop]"; mes "Reward: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000"; mes "Requirements:"; disable_items; if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000"; if (.@q[5]) mes " > "+Chk(getd(.Points$[0]),.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+(.@q[5]*.@q[1])+")^000000"; if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2) mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1]*.@q[1])+((.ShowID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+(.@q[.@i+1]*.@q[1])+")^000000"; next; setarray @qe[1], getiteminfo(.@q[0],5), getiteminfo(.@q[0],11); if (@qe[2] > 0 && ((@qe[1] & 1) || (@qe[1] & 256) || (@qe[1] & 512) || (@qe[1] & 1024) || (@qe[1] & 2048) || (@qe[1] & 4096) || (@qe[1] & 4) || (@qe[1] & 8192))) set .@preview,1; addtimer 1000, strnpcinfo(0)+"::OnEnd"; while(1) { switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[7])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) { case 1: if (@qe[0]) { mes "[Quest Shop]"; mes "You're missing one or more quest requirements."; close; } if (!checkweight(.@q[0],.@q[2])) { mes "[Quest Shop]"; mes "^FF0000You need "+(((.@q[2]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000"; close; } if (.@q[4]) set Zeny, Zeny-(.@q[4]*.@q[1]); if (.@q[5]) setd .Points$[0], getd(.Points$[0])-(.@q[5]*.@q[1]); if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2) delitem .@q[.@i],.@q[.@i+1]*.@q[1]; getitem .@q[0],.@q[2]; if (.Announce) announce strcharinfo(0)+" has created "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):A_An(getitemname(.@q[0])))+"!",0; specialeffect2 EF_FLOWERLEAF; close; case 2: setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), getlook(LOOK_ROBE), 1; if ((@qe[1] & 1) || (@qe[1] & 4096)) changelook LOOK_HEAD_BOTTOM, @qe[2]; else if ((@qe[1] & 256) || (@qe[1] & 1024)) changelook LOOK_HEAD_TOP, @qe[2]; else if ((@qe[1] & 512) || (@qe[1] & 2048)) changelook LOOK_HEAD_MID, @qe[2]; else if ((@qe[1] & 4) || (@qe[1] & 8192)) changelook LOOK_ROBE, @qe[2]; break; case 3: close; } }OnEnd: if (@qe[7]) { changelook LOOK_HEAD_BOTTOM, @qe[3]; changelook LOOK_HEAD_TOP, @qe[4]; changelook LOOK_HEAD_MID, @qe[5]; changelook LOOK_ROBE, @qe[6]; } deletearray @qe[0],8; end;function Add { if (getitemname(getarg(1)) == "null") { debugmes "Quest reward #"+getarg(1)+" invalid (skipped)."; return; } setarray .@j[0],getarg(2),getarg(3),getarg(4); for(set .@i,5; .@i<getargcount(); set .@i,.@i+2) { if (getitemname(getarg(.@i)) == "null") { debugmes "Quest requirement #"+getarg(.@i)+" invalid (skipped)."; return; } else setarray .@j[.@i-2],getarg(.@i),getarg(.@i+1); } copyarray getd(".q_"+getarg(1)+"[0]"),.@j[0],getarraysize(.@j); npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0); return;}function Chk { if (getarg(0) < getarg(1)) { set @qe[0],1; return "^FF0000"; } else return "^00FF00";}function Slot { set .@s$,getitemname(getarg(0)); switch(.ShowSlot) { case 1: if (!getitemslots(getarg(0))) return .@s$; case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]"; default: return .@s$; }}function A_An { setarray .@A$[0],"a","e","i","o","u"; set .@B$, "_"+getarg(0); for(set .@i,0; .@i<5; set .@i,.@i+1) if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0); return "a "+getarg(0);}}function script qshop { deletearray @i[0],getarraysize(@i); for(set .@i,0; .@i<getargcount(); set .@i,.@i+1) set @i[.@i],getarg(.@i); doevent "quest_shop::OnMenu"; end;}// Dummy shop data -- copy as needed.//============================================================- shop qshop1 -1,909:-1- shop qshop2 -1,909:-1- shop qshop3 -1,909:-1- shop qshop4 -1,909:-1- shop qshop5 -1,909:-1
×
×
  • Create New...

Important Information

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