Jump to content

AinsLord

Members
  • Posts

    794
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by AinsLord

  1. here is the code (c) to owner of this code //=============Valkyrie Quest============== //===================== BTS ===================================================== prontera.gat,154,198,6 script Jemz The Great 580,{ if(bry_bry >= 1) goto L_taposme; if(hen_hen >= 1) goto L_taposna; if(hen_hen < 1) mes "[ Jemz ]"; mes "I will foretell you about Breaking the Seal Quest"; mes "I am the guardian of the seal, break it and recieve my treasure."; next; mes "[ Jemz ]"; mes "These are what I need"; mes "100 Pieces of Ancient Lips"; mes "25 Pieces of Peridot"; mes "25 Pieces of Biotite"; next; mes "20 Pieces of Young Twig"; mes "20 Pieces of Mother's Nightmare"; mes "15 Pieces of Matchstick"; mes "200 Pieces of Hand of God"; mes "100 Pieces of Cursed Seal"; next; mes "So, are you up to my quest dear child?"; menu "Yes!.",-, "No, I'm sorry.",L_later; mes "[ Jemz ]"; mes "Are the items ready? Let me check."; next; if(countitem(1054) < 100 || countitem(7289) < 25 || countitem(7297) < 25 || countitem(7018) < 20 ||countitem(7020) < 20 ||countitem(7035) < 15 || countitem(1009) < 200 || countitem(7442) < 100) goto L_later2; delitem 1054,100; delitem 7289,25; delitem 7297,25; delitem 7018,20; delitem 7020,20; delitem 7035,15; delitem 1009,200; delitem 7442,100; mes "[ Jemz ]"; mes "Another brave one succeded."; set ron_ron,1; next; switch (select("Your Welcome")) { case 1: // Castle Drops set .@gamble1,rand(1,500); if ((.@gamble1 > 200) && (.@gamble1 < 205)) { set .@gamble2,rand(1,10); if ((.@gamble2 > 0) && (.@gamble2 < 3)) set .@item,7086; // esg else if ((.@gamble2 > 2) && (.@gamble2 < 5)) set .@item,7090; // ripple else if ((.@gamble2 > 4) && (.@gamble2 < 7)) set .@item,7091; // billow else if ((.@gamble2 > 6) && (.@gamble2 < 9)) set .@item,7077; // silver else if ((.@gamble2 > 8) && (.@gamble2 < 11)) set .@item,7078; // wov } else if ((.@gamble1 > 0) && (.@gamble1 < 201)) set .@item,7086; // esg else if ((.@gamble1 > 204) && (.@gamble1 < 301)) set .@item,7090; // ripple else if ((.@gamble1 > 300) && (.@gamble1 < 401)) set .@item,7091; // billow else if ((.@gamble1 > 401) && (.@gamble1 < 481)) set .@item,7077; // silver else if ((.@gamble1 > 480) && (.@gamble1 < 501)) set .@item,7078; // wov break; } getitem .@item,1; mes "[ Jemz ]"; mes "Ah, you have out done your self!"; mes "Thank you for your aid."; mes "Now start your journey to find my Nephews who hold the Valkyries"; announce "Wow! The Seal has been annihilated by "+strcharinfo(0)+" He has just broken the seal and will start the quest of Valkyrie!","0x33FF66"; close2; end; L_taposna: mes "[ Jemz ]"; mes "Go out and search the Fields of Payon the Fields of Geffen and the Towns of Lighthalzen and Comodo for the Valkyrie Equipments"; close; L_taposme: mes "[ Jemz ]"; mes "You've already surpassed this quest and there is no point in doing it again."; close; L_later: mes "[ Jemz ]"; mes "Well too bad"; mes "Child, I don't like to call you a coward, but you are."; close; L_later2: mes "[ Jemz ]"; mes "*piff*"; mes "You lack some items."; mes "I do not accept cowardice, come back to me when you're brave enough."; close; } pay_fild10.gat,182,157,5 script Kimuel 900,{ if(bry_bry >= 1) goto L_udone; if(kim_kim >= 1) goto L_tapospopo; if(ron_ron >= 1) goto continueq; if(ron_ron < 1) { mes "[ Kimuel ]"; mes "Are you the delivery boy of Pizza Hut?"; mes "If not go away I don't need you!"; close; } continueq: mes "[ Kimuel ]"; mes "Oh Grasya Santisimo!!"; mes "You have spoken to Uncle Ronnel!?"; next; mes "[ Kimuel ]"; mes "By the way I am Kimuel of Payon the Crafter of the Valkyrie Armor"; mes "Would you like to possess it?"; menu "Yes, I deserve it!",-,"No, I'm not good enough.",L_ayaw; next; mes "[ Kimuel ]"; mes "This Great Armor is very complicated, it needs very rare materials to craft it. If you really want to possess it gather these items for me"; next; mes "100 Three-Headed Dragon's head"; mes "7 Emblem of Sun God"; mes "1 Chain Mail[1]"; mes "100 Treasure Box"; next; mes "[ Kimuel ]"; mes "I will be waiting for you chosen one!"; if(countitem(7443) < 100 || countitem(7086) < 7 || countitem(7444) < 100 || countitem(2315) < 1) goto koolang; if(countitem(7443) >= 100 || countitem(7086) >= 7 || countitem(7444) >= 100 || countitem(2315) >= 1) goto kontinueq; close; L_ayaw: mes "[ Kimuel ]"; mes "Wacha Wachi Wacho... Go! Shoooo"; mes "Just speak to me if you want it already"; close; koolang: next; mes "[ Kimuel ]"; mes "As I said, one missing material and all the others go to waste"; close; kontinueq: next; mes "[ Kimuel ]"; mes "Very well done my friend you have finished the quest and acquired the Valkyrie Armor."; delitem 7443,100; delitem 7086,7; delitem 7444,100; delitem 2315,1; next; getitem 2357,1; set kim_kim,1; next; mes "[ Kimuel ]"; mes "Good Job! Enjoy your precious item."; mes "Now, go ahead and seek my Brothers and Cousins to finish the quest"; mes "And when you gain the Valkyrie Set speak to Bryan"; mes "If you have no clue about their location, my brothers and cousins are scattered around Rune-Midgard and Bryan is in Valkyrie"; announce "Wow!"+strcharinfo(0)+" has just acquired the mystical Valkyrie Armor.",8; close; L_tapospopo: mes "[ Kimuel ]"; mes "As I said, complete the Valkyrie Quest"; mes "And then speak to Bryan"; close; L_udone: mes "[ Kimuel ]"; mes "This quest, once done there is no more repeating"; close; } gef_fild07.gat,185,249,5 script Jhep 899,{ if(bry_bry >=1) goto L_bulmadone; if(jhe_jhe >=1) goto L_bulmatapos; if(ron_ron >=1) goto B_ulma; if(ron_ron < 1) { mes "[ Jhep ]"; mes "I am sight seeing, don't disturb me"; mes "Go far far away from me!!"; close; } B_ulma: mes "[ Jhep ]"; mes "Oh, you know my Uncle?"; mes "Well, nice to meet you. I'm Jhep"; mes "I craft the Valkyrie Shield"; mes "Would you like me to craft the said shield for you?"; menu "Okay",-,"Nope",M_ofo; next; mes "[ Jhep ]"; mes "The Valkyrie Shield is a very difficult item to craft and the materials are rare. Well if you're sure you want to make it.."; mes "Then these are the items I need."; next; mes "50 Fire Dragon Scale"; mes "7 Ripple"; mes "1 Buckler[1]"; mes "100 Treasure Box"; next; if(bulma >= 1 || countitem(7451) < 50 || countitem(7090) < 7 || countitem(2104) < 1 || countitem(7444) < 100) goto K_ulangot; if(bulma >= 1 || countitem(7451) >= 50 || countitem(7090) >= 7 || countitem(2104) >= 1 || countitem(7444) >= 100) goto K_umpleto; close; M_ofo: mes "[ Jhep ]"; mes "Okay, talk to me later."; close; K_ulangot: mes "[ Jhep ]"; mes "You don't have the items!"; close; K_umpleto: mes "[ Jhep ]"; mes "Wow, thanks!"; delitem 7451,50; delitem 7090,7; delitem 2104,1; delitem 7444,100; getitem 2115,1; next; mes "[ Jhep ]"; mes "Nicely done isn't? Enjoy the shield"; mes "So now, continue to search for my friends."; mes "And when you gain the Valkyrie Set speak to Bryan"; mes "If you have no clue about their location, my brothers and cousins are scattered around Rune-Midgard and Bryan is in Valkyrie"; announce "Wow! "+strcharinfo(0)+" has just acquired the mystical Valkyrie Shield.",8; set jhep_jhe,1; close; L_bulmatapos: mes "[ Jhep ]"; mes "Complete the Valkyrie Quest and speak to Bryan"; close; L_bulmadone: mes "[ Jhep ]"; mes "Dude, you can only do this quest once!"; close; } lighthalzen.gat,189,297,5 script Frame 904,{ if(bry_bry >=1) goto L_chichix; if(fra_fra >=1) goto L_chichi; if(ron_ron >= 1) goto tsitsi; if(ron_ron < 1) { mes "[ Frame ]"; mes "I miss Donna"; mes "I wish I could see her again"; close; } tsitsi: mes "[ Frame ]"; mes "You have spoken to my great Uncle Ronnel?"; mes "I am Frame, the crafter of Valkyrie Shoes"; mes "Would you like me to craft you the shoes?"; next; menu "Sure",-,"Maybe Later",L_basho; next; mes "[ Frame ]"; mes "The shoe is quite brittle."; mes "So it needs some items to harness it."; mes "I require you to give me these items"; next; mes "20 Skeletal Armor Piece"; mes "7 Billow"; mes "1 Boots[1]"; mes "100 Treasure Box"; next; if(countitem(7450) < 20 || countitem(7091) < 7 || countitem(7444) < 100 || countitem(2406) < 1) goto M_wala; if(countitem(7450) >= 20 || countitem(7091) >= 7 || countitem(7444) >= 100 || countitem(2406) >= 1) goto M_eron; mes "[ Frame ]"; mes "Hurry up! I have something to do."; close; L_basho: mes "[ Frame ]"; mes "Talk to me when you want it already."; close; M_wala: mes "[ Frame ]"; mes "You lack some few items."; close; M_eron: mes "[ Frame ]"; mes "Oh thank you!"; delitem 7450,20; delitem 7091,7; delitem 2406,1; delitem 7444,100; getitem 2421,1; set fra_fra,1; next; mes "[ Frame ]"; mes "Good one boy! Enjoy the shoes"; mes "And continue the holy Valkyrie Quest"; mes "And when you gain the Valkyrie Set speak to Bryan"; mes "If you have no clue about their location, my brothers and cousins are scattered around Rune-Midgard and Bryan is in Valkyrie"; announce "Wow! "+strcharinfo(0)+" has just acquired the mystical Valkyrie Shoes.",8; close; L_chichi: mes "[ Frame ]"; mes "Search my cousins and after that, find Bryan!"; close; L_chichix: mes "[ Frame ]"; mes "Nice to meet you again brave warrior. How is life treating you with your new godly equips?"; close; } comodo.gat,172,229,5 script JmKhov 731,{ if(bry_bry >=1) goto L_puten; if(jmk_jmk >=1) goto L_buten; if(ron_ron >=1) goto M_buten; if(ron_ron < 1) { mes "[ JmKhov ]"; mes "Hi?."; mes "Now fly, you noob!"; close; } M_buten: mes "[ JmKhov ]"; mes "So you know my uncle Ronnel? Wow that's great!"; mes "I can make the Valkyrie Manteau for you!"; mes "You surely want it noob?"; menu "Yeye",-,"Nevermind, thanks.",karpenter; next; mes "[ JmKhov ]"; mes "Oh, holy! Give me these items right away!"; next; mes "50 Matchstick"; mes "7 Silver Ornament"; mes "1 Manteau[1]"; mes "100 Treasure Box"; next; mes "[ JmKhov ]"; mes "Don't miss your chance, I will be waiting for you."; if (countitem(7035) < 50 || countitem(7077) < 7 || countitem(2506) < 1 || countitem(7444) < 100) goto Kewlung; if (countitem(7035) >= 50 || countitem(7077) >= 7 || countitem(2506) >= 1 || countitem(7444) >= 100) goto Kempleto; close; karpenter: next; mes "[ JmKhov ]"; mes "Huhu *sob*! You've wasted my time! Get lost noob!"; close; Kewlung: next; mes "[ JmKhov ]"; mes "Incomplete items, noob!"; close; Kempleto: next; mes "[ JmKhov ]"; mes "I see, you're a trustworthy one."; delitem 7444,100; delitem 2506,1; delitem 7077,7; delitem 7035,50; getitem 2524,1; set jmk_jmk,1; next; mes "[ JmKhov ]"; mes "Rawr! Take this robe and continue the Valkyrie Quest,"; mes "And when you gain the Valkyrie Set speak to Bryan."; mes "If you have no clue about their location, my brothers and cousins are scattered around Rune-Midgard and Bryan is in Valkyrie"; announce "Wow! "+strcharinfo(0)+" has just acquired the mystical Valkyrie Manteau.",8; close; L_buten: mes "[ JmKhov ]"; mes "Finish my Uncle's quest and speak to Bryan at the Valkyrie"; close; L_puten: mes "[ JmKhov ]"; mes "Wow, you're one of the Mega-Warrior! How is life treating you my friend?"; close; } valkyrie.gat,49,49,5 script Bryan 733,{ mes "[ Bryan ]"; mes "Hello there child, I am Bryan."; next; if(bry_bry >= 1) goto L_kalbo; if(countitem(2524) < 1 || countitem(2421) < 1 || countitem(2357) < 1 || countitem(2115) < 1) goto Bryan; mes "[ Bryan ]"; mes "Good you have the Valkyrie Set if you must know I am the crafter of the Sleipnir."; next; if(jmk_jmk >= 1) goto Bryanquest; if(jmk_jmk < 1) goto Bryan; Bryanquest: mes "[ Bryan ]"; mes "I see, You really have spoken to my brothers."; mes "Very well then!"; next; mes "[ Bryan ]"; mes "By the way I am Bryan of the Valkyries and you already know what I make."; mes "Do you desire to have the Sleipnir?"; menu "Yes",-,"No",L_nono; next; mes "[ Bryan ]"; mes "The Great Sleipnir named after Odin's trustee"; mes "Steed, is the most powerful shoe in the land"; mes "Gather these items so I may craft it"; next; mes "300 Handcuffs"; mes "9 Emblem of Sun God"; mes "10 Matchstick"; mes "100 Gold"; next; mes "[ Bryan ]"; mes "I will be waiting for you great one."; if(countitem(7345) < 300 || countitem(7086) < 9 || countitem(7035) < 10 || countitem(969) < 100) goto kikiki; if(countitem(7345) >= 300 || countitem(7086) >= 9 || countitem(7035) >= 10 || countitem(969) >= 100) goto killhim; close; L_nono: mes "[ Bryan ]"; mes "Go away! If you don't want it. You're wasting my time already."; mes "Just speak to me if you're ready."; close; kikiki: next; mes "[ Bryan ]"; mes "You lack of items, complete it!"; close; killhim: next; mes "[ Bryan ]"; mes "Very well done child."; mes "You are very good!"; delitem 7345,300; delitem 7086,9; delitem 969,100; delitem 7035,10; getitem2 2410,1,1,@ref,0,254,0,getcharid(0)&0xffff,(getcharid(0)>>16)&0xffff; set bry_bry,1; next; mes "[ Bryan ]"; mes "As for my excellency, take care of that Sleipnir"; mes "You are now a Mega-Warrior of Temptation Ragnarok Online"; mes "Go wild and free, you noble man"; announce "Raise the Roof! "+strcharinfo(0)+" has just become the Mega-Warrior and gained Sleipnir.",8; close; L_kalbo: mes "[ Bryan ]"; mes "You have already gained Sleipnir"; mes "How dare you speak to me again!? Now, I order you to go back to Prontera!"; next; percentheal -100,0; warp "prontera.gat",0,0; close; Bryan: mes "[ Bryan ]"; mes "Oh my bad, I see you are just another newbie."; mes "Go fly away"; close; } the NPC on the pay_fild doesnt show up and the rest of the nxt NPC no errors found on the script but i dunno how this script works thnx in advance
  2. heres the NPC script // _______ __ ____ ____ __ __ ____ __ __ __ __ __ __ __ ____ _ ____ // /__ __/ / / / __ \ / __ \ / / / / /__ \ / / /_/ __/ /_ / // / / /__/ / /__ \ / /__ / __ \ _____ // / / / /_ / /_/ / / / / / / / / / ____/ / / / __ /_ __// // / / _ _ / ____/ / / // / / /_/ / / __ \ // / / / __ \ / ____/ / / / / / / / / / __ / / / / / / / \_ / / // /// / __ / / __/ / ____/ / / /_/ // / / / / / / / /__ / /_/ /_ / /_/ / / /_/ / / / / / / / __/ / / // /// / /_/ / / _ \ / /__ / / ///_/ /_/ /_/ \____/ \_______/ \____/ \____/ /_/ /_/ /_/ \__/ /_//_/// \____/ /_/ \_\ \____/ /_/ //============================================================================= // // Gold Room Advance Script - Mining Gold for wealth - Please Leave Credit \\ //============================================================================= //POWERED by: rudolp //[The Quality Maker] //Time Finished :6:28 PM 6/7/2009 //Please Report any bug and suggestions. //===== Compatible With: ================================================================= //= Any eAthena Version //=============Gold Room Settings=================== //This should always be enable for a better Gold Room System. //================================================== ordeal_1-2.gat mapflag noskill ordeal_1-2.gat mapflag nomemo ordeal_1-2.gat mapflag nobranch ordeal_1-2.gat mapflag noloot ordeal_1-2.gat mapflag noexp ordeal_1-2.gat mapflag nodrop ordeal_1-2.gat mapflag novending ordeal_1-2.gat mapflag nowarp ordeal_1-2.gat mapflag nowarpto ordeal_1-2.gat mapflag noreturn ordeal_1-2.gat mapflag nosave //================================================= ordeal_1-2,0,0,0 script Gold Room -1,{ OnInit: //No. of Mine Guardian. //For golden peko it is default to 100 and 4 seconds~2 seconds spawn rate. set .guardian,50; //Type of guardian. 0 = normal 1 = extreme set .@guardiantype,1; if(.@guardiantype == 0){ monster "ordeal_1-2",0,0,"Guardian",1039,.guardian,""; }else{ monster "ordeal_1-2",0,0,"Guardian",1039,.guardian,""; } end; OnNPCKillEvent: //===== Configurations: ======================================================================== //Max gold can a player get after killing 1 golden peko (default 5 note:this will increase if luk bonus is enable). set .@maxgaingold,5; //Apply gold penalty. 0 = no 1 = yes set .@penalty1,1; //The Maximum no. of gold Penalty. set .@maxpenalty1,3; //Apply speed & HP penalty. 0 = no 1 = yes set .@penalty2,1; //Gold limitation penalty must be enable set .@maxgold,1000; //The maximum no. of hp penalty by %. set .@maxpenalty2,98; //Enable luk bonus. 0=no 1=yes set .@lukbonus,0; //If luk Bonus is enable,luk divider default 49 w/ 99 max parameter. Note: the quotient of your max parameter and .@lukdiv must not grater than 5 to avoid over mining. set .@lukdiv,49; //Show Server Name. 0=no 1=yes set .@showservername,1; //Name of your Server set .@servername$,"[New World RO]"; //========================================================================================= if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish; if (@mapname$ == "ordeal_1-2"){ set @bonus,0; set @deduction,0; set @gain,rand (.@maxgaingold); //Luk bonus if (.@lukbonus != 0){ set @bonus,readparam(bLuk)/.@lukdiv; } //Gold Penalty if (.@penalty1 != 0){ set @deduction,rand(.@maxpenalty1); if(@deduction == 0) set @deduction,1; } set @gain, @gain + @bonus - @deduction; set gold, gold + @gain ; //Displaying Gained Gold if(.@showservername != 0){ if(gold%5 == 0){ //Show Server Name every 10 gold gain. dispbottom "===============Brought to you by==============="; dispbottom "==============" + .@servername$ +"=============="; } } if(@gain){ dispbottom "-|You got: " +@gain+ " gold| - |Total: " +gold+ " gold|- "; }else{ dispbottom "-|You got: NOTHING! |- "; } if (.@penalty2 != 0){ if (gold >= .@maxgold/2 && gold <=.@maxgold/2+20){ sc_start SC_DECREASEAGI,240000,10; }else if(gold >.@maxgold){ sc_start SC_CURSE,240000,10; percentheal (.@maxpenalty2*-1),(.@maxpenalty2*-1); heal -50,0; //For him to die } } if(paid == 0){ mapannounce "ordeal_1-2"," x( "+strcharinfo(0)+" is a cheater!",bc_map; dispbottom "Go out you bastard!"; set gold,0; warp "prontera", 173, 160; } end; } OnPCDieEvent: if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish; if (@mapname$ == "ordeal_1-2"){ dispbottom "Holy Shit you died!"; dispbottom "All of your gold will gone!"; set alive, 0; set paid, 0; end; } L_Finish: close; } //=============================================== //warper //=============================================== ordeal_1-2,154,156,5 script Gold Miner 813,{ mes "[Gold Miner]"; if(gold >=50){ goto wa; } mes "Want to go now?"; mes "Your gold is just "+gold+" you can still get more."; close; wa: mes "Want to go now?"; if(select("Yes", "No") == 1) { set alive,1; warp "prontera", 173, 160; } close; } prontera,164,173,4 script Gold Room Warperer#pront 813,{ set @name$,"que_temsky"; callfunc "goldmain"; end; } aldebaran,133,116,4 script Gold Room Warperer#alde 813,{ set @name$,"aldebaran"; callfunc "goldmain"; end; } alberta,23,247,4 script Gold Room Warperer#alb 813,{ set @name$,"alberta"; callfunc "goldmain"; end; } payon,151,182,4 script Gold Room Warperer#pay 813,{ set @name$,"payon"; callfunc "goldmain"; end; } geffen,115,74,4 script Gold Room Warperer#gef 813,{ set @name$,"geffen"; callfunc "goldmain"; end; } function script goldmain { if (getgmlevel() >= 90){ mes "[Gold Room Warperer]"; if(sex != 0){ mes "Hello Sir what can I do for you?"; }else{ mes "Hello Maam what can I do for you?"; } next; menu "Enter Mining Site",start,"Please close the mine Site. Now!",-,"Please Open the mine Site. Now!",G_open,"Nothing",C_s; next; mes "[Gold Room Warperer]"; mapannounce "ordeal_1-2","Excuse me Miners.",bc_map; mes "Ok."; next; mapannounce "ordeal_1-2",strcharinfo(0) +" wants to close the Gold Room for a while",bc_map; mes "Just a second I will just ask them to"; mes "go out in the mining site"; next; mapannounce "ordeal_1-2","Please settle your things and move quitely",bc_map; mes "[Gold Room Warperer]"; mes "............."; mes "........"; next; mes "[Gold Room Warperer]"; mes "Ok your done"; set .opengoldroom,1; areawarp "ordeal_1-2",21,286,286,22,"prontera", 173, 160; close; } if(.opengoldroom == 0){ goto start; }else{ mes "[Gold Room Warperer]"; mes "Sorry!"; mes "The Mining Site is closed."; close; } G_open: mes "[Gold Room Warperer]"; mes "Ok."; mes "Mining Site is Already Available."; announce " Gold Room is open for public!",bc_map; set .opengoldroom,0; close; start: if ( alive == 0){ set gold,0; } mes "[Gold Room Warperer]"; mes "What do you want?"; next; menu "To the Gold Room",-,"Exchange Gold",exchange,"Nothing",C_s; mes "[Gold Room Warperer]"; mes "Hmm.."; mes "It cost 100,000z"; mes "Would you like to go now to the gold room?"; if(select("Yes", "No") == 1) { if(@name$ == "prontera") savepoint "prontera", 173, 160; if(@name$ == "aldebaran") savepoint "aldebaran",166, 163; if(@name$ == "alberta") savepoint "alberta",16, 246; if(@name$ == "payon") savepoint "payon",160, 179; if(@name$ == "geffen") savepoint "geffen",124, 85; if (Zeny < 100000) goto nomoney; set Zeny, Zeny - 100000; set alive, 1; set paid, 1; warp "ordeal_1-2", 156, 155; } close; nomoney: mes "[Gold Room Warperer]"; mes "Sorry insufficient balance"; close; exchange: mes "[Gold Room Warperer]"; mes "Hmm...let me see"; mes "You have " +gold+ "."; if (gold == 0) goto nogold; mes "Ok get this."; next; if (checkweight(969,gold) == 0) goto L_OverWeight; getitem 969, gold; set gold, 0; emotion e_gg; close; L_OverWeight: mes "[Gold Room Warperer]"; mes "Sorry your overweight"; close; nogold: close; C_s: close; } //============================================================ //=========================================================== //======================================== //warps you may edit this one for your convenience //======================================== ordeal_1-2,73,265,0 warp ord500 1,1,prontera,173,160 ordeal_1-2,129,194,0 warp ord501 1,1,prontera,173,160 ordeal_1-2,130,194,0 warp ord502 1,1,prontera,173,160 ordeal_1-2,178,193,0 warp ord503 1,1,prontera,173,160 ordeal_1-2,290,130,0 warp ord504 1,1,prontera,173,160 ordeal_1-2,241,281,0 warp ord505 1,1,prontera,173,160 ordeal_1-2,66,25,0 warp ord506 1,1,prontera,173,160 ordeal_1-2,202,129,0 warp ord509 1,1,prontera,173,160 ordeal_1-2,105,154,0 warp ord510 1,1,prontera,173,160 //============Spawns================= ordeal_1-2,0,0,0,0 monster Golden Pecopeco 1369,200,40000,20000,0 heres the image of the error thnx in advance
  3. yey it works thnx
  4. as shown on the image dunno why??? this is the NPC Script i used //===== eAthena Script ======================================================= //= Donation Refine ( TXT & SQL ) //===== By: eJay================================================================== //= Credit goes to whoever made this xD //===== Current Version: ===================================================== //= Verion 1.1 //===== Compatible With: ===================================================== //= Any eAthena Version/Rathena Version //===== Description: ========================================================= //= Donation Refine Script //============================================================================ prontera,159,183,4 script +10 Refiner 821,{ mes "[+10 Refiner]"; mes "Good day "+strcharinfo(0); mes "If you want to refine your items to +10, please give me 10 ^3355FFProof of Donation^000000 so I can refine it without failing."; next; mes "[+10 Refiner]"; mes "Now, what do you want to refine?"; next; function Refine; set @itemid, 7179; //Proof of Donation set @itemquantity, 10; // item quantity set @maxrefine, 10; // Max Refine menu "Refine equipment",REFIN,"Nothing at all",QUIT; REFIN: next; mes "[+10 Refiner]"; mes "To refine a item you need:"; mes "^FF0000 "+@itemquantity+" "+getitemname(@itemid)+"^000000"; set @headtop$, getequipname(1); set @armor$, getequipname(2); set @handl$, getequipname(3); set @handr$, getequipname(4); set @garment$, getequipname(5); set @shoes$, getequipname(6); set @accl$, getequipname(7); set @accr$, getequipname(8); set @headmid$, getequipname(9); set @headlow$, getequipname(10); menu "[Head - Top] "+@headtop$,HEADTOP, "[Head - Mid] "+@headmid$,HEADMID, "[Head - Low] "+@headlow$,HEADLOW, "[Armor] "+@armor$,ARMOR, "[Garment] "+@garment$,GARMENT, "[Left Hand] "+@handl$,HANDL, "[Right Hand] "+@handr$,HANDR, "[Left Acc] "+@accl$,ACCL, "[Right Acc] "+@accr$,ACCR, "[shoes] "+@shoes$,SHOES, "Cancel",QUIT; HEADTOP: set @slot, 1; callfunc Refine; HEADMID: set @slot, 9; callfunc Refine; HEADLOW: set @slot, 10; callfunc Refine; ARMOR: set @slot, 2; callfunc Refine; GARMENT: set @slot, 5; callfunc Refine; HANDL: set @slot, 3; callfunc Refine; HANDR: set @slot, 4; callfunc Refine; ACCL: set @slot, 7; callfunc Refine; ACCR: set @slot, 8; callfunc Refine; SHOES: set @slot, 6; callfunc Refine; QUIT: next; mes "[+10 Refiner]"; mes "Okay, see you."; close; LATER: next; mes "[+10 Refiner]"; mes "Thanks, have a nice day."; close; CANCEL: next; mes "[+10 Refiner]"; mes "Okay, come back another time."; close; MAXX: next; mes "[+10 Refiner]"; mes "Sorry, but I can't refine this anymore."; close; NOWAY: next; mes "[+10 Refiner]"; mes "Oh my, I can't refine this item!!!"; close; NOREQ: next; mes "[+10 Refiner]"; mes "Sorry, but you don't have the items I need"; close; // ---------------Refine Equipment function Refine { if (getequiprefinerycnt(@slot) >= @maxrefine) goto MAXX; menu "Do it!",-,"Cancel",CANCEL; if (countitem(@itemid) < @itemquantity) goto NOREQ; delitem @itemid, @itemquantity; set @repeat, (@maxrefine - getequiprefinerycnt(@slot)); while (@repeat > 0) { successrefitem(@slot); set @repeat, @repeat - 1; } goto LATER; } }
  5. prontera,147,196,5 script PVP Room 403,{ warp "guild_vs3",0,0; end; } guild_vs3 mapflag nowarpto guild_vs3 mapflag nowarp guild_vs3 mapflag noreturn can anyone modify this that shows in PUB how many player is inside the PVP room and announce if someone entered the PVP room thnx in advance
  6. this is the error after encrypting the GRF file with the GRF encryption dunno what to do can anyone help me with this i didnt use the secure grf on this just the GRF editor encryption feature
  7. thnx for suggesting but i want script anyone
  8. - script antibot -1,{ function GetString; OnNPCKillEvent: if( rand(100) > 30 ) end; // 30% trigger OnPCLoginEvent: switch( rand(2) ){ Case 0: sc_start sc_berserk, 1000000000, 1; set .@String$,GetString( 15,rand(5,10) ); mes "Input the ^FF0000RED COLOUR^000000 part"; mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000"; input .@Input$; if( .@Input$ != .@String$ ){ mes "Wrong.."; atcommand "@kick "+strcharinfo(0); } sc_end sc_berserk; break; Case 1: sc_start sc_berserk, 1000000000, 1; set .@A,rand(1000); set .@B,rand(1000); mes "If A = "+.@A+" B = "+.@B; switch( rand(4) ){ Case 0: set .@Answer,.@A + .@B; mes "How many is A + B ?"; break; Case 1: set .@Answer,.@A - .@B; mes "How many is A - B ?"; break; Case 2: set .@Answer,.@A * .@B; mes "How many is A * B ?"; break; Case 3: set .@Answer,.@A / .@B; mes "How many is A / B ?"; break; } input .@Input; if( .@Input != .@Answer ){ mes "Wrong"; atcommand "@kick "+strcharinfo(0); } sc_end sc_berserk; break; } close; function GetString { if( getarg(0) & 1 ) setarray .@List$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9"; if( getarg(0) & 2 ) setarray .@List$[ getarraysize( .@List$ ) ],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"; if( getarg(0) & 4 ) setarray .@List$[ getarraysize( .@List$ ) ],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"; if( getarg(0) & 8 ) setarray .@List$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+"; set .@Str$,""; while( getstrlen( .@Str$ ) < getarg(1) ) set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ]; return .@Str$; } } this is the NPC script every time a monster killed it will pop up can anyone modify this like it will activate an hour to check if the player is a bot or not Thnx in advance
  9. yea texture/effect and paste the files/ replace with the same file name
  10. i already changed the files on my grf still no changes on the aura effect please help
  11. nothing follows after i typed that command well thnx for all your help guys ill try to figure this thing up ill bump here sometime if i got some more questions
  12. or if you are gm use @mount2 command to have it
  13. what do u mean by mount in all jobs?? are you talking about then lion mount for knight class etc?
  14. help me please to modify this for this one equipment for normal monster will be at 10% and for boss/MVP will be 5% // The rate at which equipment is dropped. item_rate_equip: 1000 item_rate_equip_boss: 2500 item_rate_equip_mvp: 100 item_drop_equip_min: 1 item_drop_equip_max: 5000 and for this one cards for normal monsters will be 20% and for boss/MVP will be 5% // The rate at which cards are dropped item_rate_card: 100000 item_rate_card_boss: 10000 item_rate_card_mvp: 50000 item_drop_card_min: 100 item_drop_card_max: 10000 ive tried my best to modify this but i cant every mobs shows different % of droprates please help me PS: i dunno if the Title is informative i kept on receiving warning for uninformative title for it T_T
  15. same sir
  16. thnx mate i tried to remove getrefine(d)>8 it worked thnx
  17. ,4,20,,300,,3,,0,0xFFFFFFFF,7,2,256,,1,1,618,{ bonus2 bSubEle,Ele_Fire,7; bonus bDex,2; bonus bMdef,3;} if(getrefine()>6) { bonus bCastrate,-3;} if(getrefine()>7) { bonus5 bAutoSpell,"WZ_SIGHTRASHER",1,10,BF_MAGIC,0;} if(getrefined()>8) { bonus bCastrate,-2;} if(getrefine()>9) { bonus bMatkRate,4;} },{},{} the if(getrefine()>9) { bonus bMatkRate,4;} doesnt apply what i mean is the matk doesnt increase after i made the gear +10
  18. all maps are full all of it even there is a 0/50 capacity it will say room is full as far as i know this arrays are // Max Players Per Map setarray .MaxPlayers,0,50,10,36,50; based on this map arrays and 0 will be no limit setarray .MapName$,"guild_vs1","guild_vs2","guild_vs3","guild_vs4","guild_vs5"; ive tried already to set it at 100 all of those number still same proble no errors on the console or script
  19. yea thats what i did 1st this one said it was invalid spec : 'www-data:' chown -R www-data: /var/www/html 2nd this one nothing follows after i typed that chmod -R 755 /var/www/html
  20. this is shown after i typed those commands ive tried it with sudo still same
  21. sorry for double posting accidentally clicked the submit button
  22. this is what is shown after configuring server.php and the application did is do something wrong??
  23. lemme try this sorry akkarin im having net issue i dunno i posted 2 bumps im suppose to edit my latest post EDIT: is this correct??? i made a sub folder in var/www/http or i just paste the whole fluxCP file inside HTTP folder???
  24. and yea i already have apache installed in my VPS EDIT: it will show like this if you have apache installed ryt??
×
×
  • Create New...