Jump to content

Rage Guy

Members
  • Posts

    354
  • Joined

  • Last visited

Everything posted by Rage Guy

  1. i sware its not working with me . but i made a idea xD i made the prize man that say talk to me -1 and i removing his annoincment and i used some of ur ideas and it worked xD Done //= Poring Catcher - Auto Event Script //===== By: ================================================================================ //= Washi - www.EarthBound-RO.com //===== Compatible With: ==================================================================== //= Any eAthena Version //===== Description: ======================================================================== //= Single NPC that starts automatically starts every hour. //===== Additional Comments: ================================================================ //= This script is a combenation of the Dice Event by [Mahina] //= and the origonal Poring Catcher Event by [Wild Karrd] //================================================================================ //=========== //= OnMinute - Change this to the minute you would like this script to load. [ LINE 22 ] //= getitem - Change this to the Item ID of your prize. [ LINE 118 ] //================================================================================ //=========== - script poring#announcer -1,{ OnInit: disablenpc "Poring Catcher Warper"; hideonnpc "Poring Catcher#evnt2"; end; OnMinute30: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. OnGMStart: announce "Poring Catcher : انه الوقت للعب البحث عن البورينج",0; killmonster "poring_w01","All"; sleep2 10000; announce "Poring Catcher : توجه الي برونتيرا اذا كنت تريد التسجيل",0; sleep2 10000; announce "Poring Catcher : بعد دقيقة 1 سوف يتوقف التسجيل",0; sleep2 10000; announce "Poring Catcher : ادخل البوابة الان اذا كنت تريد الدخول",0; enablenpc "Poring Catcher Warper"; initnpctimer; end; OnTimer30000: announce "Poring Catcher : تبقي 30 ثانية علي نهاية التسجيل",0; sleep2 5000; announce "Poring Catcher : توجه الي بورنتيرا سريعا للدخول",0; end; OnTimer50000: announce "Poring Catcher : تبقي 10 ثواني",0; end; OnTimer55000: announce "Poring Catcher : 5.",0; end; OnTimer56000: announce "Poring Catcher : 4.",0; end; OnTimer57000: announce "Poring Catcher : 3.",0; end; OnTimer58000: announce "Poring Catcher : 2.",0; end; OnTimer59000: announce "Poring Catcher : 1.",0; end; OnTimer60000: announce "Poring Catcher : انتهي الوقت",0; end; OnTimer61000: disablenpc "Poring Catcher Warper"; donpcevent "Poring Catcher#evnt2::OnEnable"; stopnpctimer; end; } prontera,147,165,0 warp Poring Catcher Warper 0,0,poring_w01,106,129 //-------------------------------------------------- pvp_n_4-5,101,96,6 script Poring Catcher 909,{ if (getgmlevel()<50) { player_here: mes "^FF0000[Poring Catcher Schedule]^000000"; mes "^0000FF[ 00:30AM ]^000000"; mes "^0000FF[ 04:30AM ]^000000"; mes "^0000FF[ 08:30AM ]^000000"; mes "^0000FF[ 12:30PM ]^000000"; mes "^0000FF[ 04:30PM ]^000000"; mes "^0000FF[ 08:30PM ]^000000"; next; mes "^FF0000[Poring Catcher]^000000"; mes "Current Prize:"; mes "----------------------"; mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; close; } gm_only: if (getgmlevel() < 80) goto player_here; mes "^FF0000Poring Catcher Warper^000000"; mes "Yes, master?"; mes "What can I do for you today, master?"; next; switch(select("Start Event:Stop Event:Check Prize:Set Prize:Nothing")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!"; mes "Do you want to start the event?"; next; switch(select("Yes:Leave")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Here we go!"; close2; announce "GM "+strcharinfo(0)+" has started the Poring Catcher Event!",0; sleep 2000; donpcevent "poring#announcer::OnGMStart"; end; case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Ok, nothing changed!"; close; } case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!"; mes "Do you want to stop the event?"; mes " "; mes "^FF0000Note that you can only stop the event if it is already starting."; mes "If the event is still on the giving of directions, it couldn't be stopped!^000000"; next; switch(select("Yes:No")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Close this window to stop the event!"; close2; goto stopbygm; case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Ok, nothing changed!"; close; } case 3: next; mes "^FF0000Poring Catcher^000000"; mes "Current Prize :"; mes "-------------------"; mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; next; goto gm_only; case 4: next; mes "^FF0000Poring Catcher^000000"; mes "What will be the new reward?"; input .@itemid; if (getitemname(.@itemid) == "null" || getitemname(.@itemid) == "") {next; mes "^FF0000Poring Catcher^000000"; mes "The item is not found in the database.."; next; goto gm_only; } set $rewarditem, .@itemid; next; mes "^FF0000Poring Catcher^000000"; mes "How many ^008000"+getitemname($rewarditem)+"s^000000 should we give?"; input .@itemamount; if(.@itemamount <= 0) {next; mes "^FF0000Poring Catcher^000000"; mes "Please input a # greater than 0"; next; goto gm_only; } set $rewardamount,.@itemamount; next; mes "^FF0000Poring Catcher^000000"; mes "So, the winner will get ^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; next; goto gm_only; case 5: next; mes "^FF0000Poring Catcher^000000"; mes "Nothing Changed!"; close; } stopbygm: stopnpctimer; killmonster "poring_w01","All"; announce "Poring Catcher Event was stopped by GM "+strcharinfo(0)+"!",0; sleep 2000; mapwarp "poring_w01","prontera",149,160; end; } //-------------------------------------------------- poring_w01,100,127,4 script Poring Catcher#evnt2 -1,{ //-------------------------------------------------- mes "[المهرج]"; if(PORING == 1) goto L_PORING; mes "تعال و قل لي اسمك"; next; input .@name$; if(.@name$ != strcharinfo(0)) { mes "[المهرج]"; mes "هل انت متئكد ان هذا اسم شخصيتك ؟"; close; } mes "[المهرج]"; mes "اذهب الي منزلك"; close2; announce "Poring Catcher : الكل يضحك , "+.@name$+". - هذا اللاعب حاول غش النظام",0; warp "prontera",155,177; end; L_PORING: mes "تعال و قل لي اسمك"; next; input .@name$; if(.@name$ != strcharinfo(0)) { mes "[المهرج]"; mes "هل انت متئكد ان هذا اسمك ؟"; close; } mes "[Poring Catcher]"; mes "مبروك لقد فذت"; close2; if (getitemname($rewarditem) == "null"){ set $rewarditem, 674; set $rewardamount, 4; } announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0; getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE warp "prontera",155,177; hideonnpc "Poring Catcher#evnt2"; end; OnEnable: mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 100 بورينج مختلف",0; initnpctimer; sleep2 10000; mapannounce "poring_w01","Poring Catcher : واحد فقط فيهم هو الحقيقي",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : الحقيقي اسمه [ Poring ] و الباقي جميهم مزورين",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : اذا قتلت البورينج الخاطء سوف يتم طردك من اللعبة",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : أول من يقتل البورينج الحقيقي هو الفائذ",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : هذا فقط هيا بنا نبدء .",0; goto L_Start; end; OnTimer570000: mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0; end; OnTimer600000: stopnpctimer; mapannounce "poring_w01","Poring Catcher : انتهي الوقت لم يجد احد البورينج الحقيقي",0; atcommand "@doommap"; killmonster "poring_w01","All"; sleep 3000; mapwarp "poring_w01","prontera",155,177; end; L_Start: mapannounce "poring_w01","Poring Catcher : 5",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 4",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 3",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 2",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 1",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : سوف نبدء الان",0; areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Pouring",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Proing",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poiring",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poing",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porning",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"PoriNg",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porong",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled"; end; } - script poringwin -1,{ OnMobKilled: dispbottom "Poring : مبروك لقد نلت مني ^^"; announce strcharinfo(0)+" فاذ في مسابقة البحث عن البورينج",bc_all; getitem 674, 4; set PORING,1; atcommand "@doommap"; killmonster "poring_w01","All"; mapwarp "poring_w01","prontera",156,180; hideoffnpc "Poring Catcher#evnt2"; end; } - script poringlose -1,{ OnMobKilled: dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي"; warp "prontera",156,180; end; } // -- Mapflags poring_w01 mapflag nowarp poring_w01 mapflag nowarpto poring_w01 mapflag noteleport poring_w01 mapflag nosave poring_w01 mapflag nomemo poring_w01 mapflag nobranch poring_w01 mapflag noloot poring_w01 mapflag noskill poring_w01 mapflag nopenalty Thanks Alottttttttttttttttttttttttttttttttttt. Anakid sorry for wasting ur time with me ^^
  2. not working == but written the error on line 17 wait i coppyied something wrong i will try again not working ==
  3. am going to try it now but thise lang is arabic xD if any thing u couldn't read copy it to me then i will translate not working to ==
  4. i didnt try the event yet but when i just used @reloadscript the manual poring catcher starter has disapeared == he was on pvp_n_4-5 now the time came and the event didn't work it stoped working 100% == any help pls?
  5. are u sure? //= Poring Catcher - Auto Event Script //===== By: ================================================================================ //= Washi - www.EarthBound-RO.com //===== Compatible With: ==================================================================== //= Any eAthena Version //===== Description: ======================================================================== //= Single NPC that starts automatically starts every hour. //===== Additional Comments: ================================================================ //= This script is a combenation of the Dice Event by [Mahina] //= and the origonal Poring Catcher Event by [Wild Karrd] //================================================================================ //=========== //= OnMinute - Change this to the minute you would like this script to load. [ LINE 22 ] //= getitem - Change this to the Item ID of your prize. [ LINE 118 ] //================================================================================ //=========== - script poring#announcer -1,{ OnInit: disablenpc "Poring Catcher Warper"; hideonnpc "Poring Catcher#evnt2"; end; OnMinute30: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. OnGMStart: announce "Poring Catcher : انه الوقت للعب البحث عن البورينج",0; killmonster "poring_w01","All"; sleep2 10000; announce "Poring Catcher : توجه الي برونتيرا اذا كنت تريد التسجيل",0; sleep2 10000; announce "Poring Catcher : بعد دقيقة 1 سوف يتوقف التسجيل",0; sleep2 10000; announce "Poring Catcher : ادخل البوابة الان اذا كنت تريد الدخول",0; enablenpc "Poring Catcher Warper"; initnpctimer; end; OnTimer30000: announce "Poring Catcher : تبقي 30 ثانية علي نهاية التسجيل",0; sleep2 5000; announce "Poring Catcher : توجه الي بورنتيرا سريعا للدخول",0; end; OnTimer50000: announce "Poring Catcher : تبقي 10 ثواني",0; end; OnTimer55000: announce "Poring Catcher : 5.",0; end; OnTimer56000: announce "Poring Catcher : 4.",0; end; OnTimer57000: announce "Poring Catcher : 3.",0; end; OnTimer58000: announce "Poring Catcher : 2.",0; end; OnTimer59000: announce "Poring Catcher : 1.",0; end; OnTimer60000: announce "Poring Catcher : انتهي الوقت",0; end; OnTimer61000: disablenpc "Poring Catcher Warper"; donpcevent "Poring Catcher#evnt2::OnEnable"; stopnpctimer; end; } prontera,147,165,0 warp Poring Catcher Warper 0,0,poring_w01,106,129 //-------------------------------------------------- pvp_n_4-5,101,96,6 script Poring Catcher 909,{ if (getgmlevel()<50) { player_here: mes "^FF0000[Poring Catcher Schedule]^000000"; mes "^0000FF[ 00:30AM ]^000000"; mes "^0000FF[ 04:30AM ]^000000"; mes "^0000FF[ 08:30AM ]^000000"; mes "^0000FF[ 12:30PM ]^000000"; mes "^0000FF[ 04:30PM ]^000000"; mes "^0000FF[ 08:30PM ]^000000"; next; mes "^FF0000[Poring Catcher]^000000"; mes "Current Prize:"; mes "----------------------"; mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; close; } gm_only: if (getgmlevel() < 80) goto player_here; mes "^FF0000Poring Catcher Warper^000000"; mes "Yes, master?"; mes "What can I do for you today, master?"; next; switch(select("Start Event:Stop Event:Check Prize:Set Prize:Nothing")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!"; mes "Do you want to start the event?"; next; switch(select("Yes:Leave")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Here we go!"; close2; announce "GM "+strcharinfo(0)+" has started the Poring Catcher Event!",0; sleep 2000; donpcevent "poring#announcer::OnGMStart"; end; case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Ok, nothing changed!"; close; } case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!"; mes "Do you want to stop the event?"; mes " "; mes "^FF0000Note that you can only stop the event if it is already starting."; mes "If the event is still on the giving of directions, it couldn't be stopped!^000000"; next; switch(select("Yes:No")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Close this window to stop the event!"; close2; goto stopbygm; case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Ok, nothing changed!"; close; } case 3: next; mes "^FF0000Poring Catcher^000000"; mes "Current Prize :"; mes "-------------------"; mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; next; goto gm_only; case 4: next; mes "^FF0000Poring Catcher^000000"; mes "What will be the new reward?"; input .@itemid; if (getitemname(.@itemid) == "null" || getitemname(.@itemid) == "") {next; mes "^FF0000Poring Catcher^000000"; mes "The item is not found in the database.."; next; goto gm_only; } set $rewarditem, .@itemid; next; mes "^FF0000Poring Catcher^000000"; mes "How many ^008000"+getitemname($rewarditem)+"s^000000 should we give?"; input .@itemamount; if(.@itemamount <= 0) {next; mes "^FF0000Poring Catcher^000000"; mes "Please input a # greater than 0"; next; goto gm_only; } set $rewardamount,.@itemamount; next; mes "^FF0000Poring Catcher^000000"; mes "So, the winner will get ^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; next; goto gm_only; case 5: next; mes "^FF0000Poring Catcher^000000"; mes "Nothing Changed!"; close; } stopbygm: stopnpctimer; killmonster "poring_w01","All"; announce "Poring Catcher Event was stopped by GM "+strcharinfo(0)+"!",0; sleep 2000; mapwarp "poring_w01","prontera",149,160; end; } L_PORING: mes "تعال و قل لي اسمك"; next; input .@name$; if(.@name$ != strcharinfo(0)) { mes "[المهرج]"; mes "هل انت متئكد ان هذا اسمك ؟"; close; } mes "[Poring Catcher]"; mes "مبروك لقد فذت"; close2; if (getitemname($rewarditem) == "null"){ set $rewarditem, 674; set $rewardamount, 4; } announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0; getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE warp "prontera",155,177; hideonnpc "Poring Catcher#evnt2"; end; OnEnable: mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 100 بورينج مختلف",0; initnpctimer; sleep2 10000; mapannounce "poring_w01","Poring Catcher : واحد فقط فيهم هو الحقيقي",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : الحقيقي اسمه [ Poring ] و الباقي جميهم مزورين",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : اذا قتلت البورينج الخاطء سوف يتم طردك من اللعبة",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : أول من يقتل البورينج الحقيقي هو الفائذ",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : هذا فقط هيا بنا نبدء .",0; goto L_Start; end; OnTimer570000: mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0; end; OnTimer600000: stopnpctimer; mapannounce "poring_w01","Poring Catcher : انتهي الوقت لم يجد احد البورينج الحقيقي",0; atcommand "@doommap"; killmonster "poring_w01","All"; sleep 3000; mapwarp "poring_w01","prontera",155,177; end; L_Start: mapannounce "poring_w01","Poring Catcher : 5",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 4",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 3",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 2",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 1",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : سوف نبدء الان",0; areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Pouring",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Proing",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poiring",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poing",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porning",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"PoriNg",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porong",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled"; end; } - script poringwin -1,{ OnMobKilled: dispbottom "Poring : مبروك لقد نلت مني ^^"; announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all; getitem $rewarditem, $rewardamount; set PORING,1; atcommand "@doommap"; killmonster "poring_w01","All"; mapwarp "poring_w01","prontera",0,0; end; } - script poringlose -1,{ OnMobKilled: dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي"; percentheal -100,-100; end; } // -- Mapflags poring_w01 mapflag nowarp poring_w01 mapflag nowarpto poring_w01 mapflag noteleport poring_w01 mapflag nosave poring_w01 mapflag nomemo poring_w01 mapflag nobranch poring_w01 mapflag noloot poring_w01 mapflag noskill poring_w01 mapflag nopenalty Like that ? now the event is not working ==
  6. so i remove mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0; and the npc that give this prize?
  7. now the prize auto go to the winner ? cuz mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0; means come and tell me ur name for the prize to remove it . tell me ^^
  8. now he never tell the winner's name and i dont see the prize o.o
  9. could u make when the player find the real poring every one on the game go back automatic to prontera city? if no one was dead so every one can take a prize ==
  10. am talking about the End t his one is when some one kill wrong poring == i think there is something on atcommand "@doommap"; mayby
  11. Do I Have A Mind ? Thanks xD

  12. Do I Have A Mind ? Thanks xD

  13. First of all thats my bugged script //= Poring Catcher - Auto Event Script //===== By: ================================================================================ //= Washi - www.EarthBound-RO.com //===== Compatible With: ==================================================================== //= Any eAthena Version //===== Description: ======================================================================== //= Single NPC that starts automatically starts every hour. //===== Additional Comments: ================================================================ //= This script is a combenation of the Dice Event by [Mahina] //= and the origonal Poring Catcher Event by [Wild Karrd] //================================================================================ //=========== //= OnMinute - Change this to the minute you would like this script to load. [ LINE 22 ] //= getitem - Change this to the Item ID of your prize. [ LINE 118 ] //================================================================================ //=========== - script poring#announcer -1,{ OnInit: disablenpc "Poring Catcher Warper"; hideonnpc "Poring Catcher#evnt2"; end; OnMinute30: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR. OnGMStart: announce "Poring Catcher : انه الوقت للعب البحث عن البورينج",0; killmonster "poring_w01","All"; sleep2 10000; announce "Poring Catcher : توجه الي برونتيرا اذا كنت تريد التسجيل",0; sleep2 10000; announce "Poring Catcher : بعد دقيقة 1 سوف يتوقف التسجيل",0; sleep2 10000; announce "Poring Catcher : ادخل البوابة الان اذا كنت تريد الدخول",0; enablenpc "Poring Catcher Warper"; initnpctimer; end; OnTimer30000: announce "Poring Catcher : تبقي 30 ثانية علي نهاية التسجيل",0; sleep2 5000; announce "Poring Catcher : توجه الي بورنتيرا سريعا للدخول",0; end; OnTimer50000: announce "Poring Catcher : تبقي 10 ثواني",0; end; OnTimer55000: announce "Poring Catcher : 5.",0; end; OnTimer56000: announce "Poring Catcher : 4.",0; end; OnTimer57000: announce "Poring Catcher : 3.",0; end; OnTimer58000: announce "Poring Catcher : 2.",0; end; OnTimer59000: announce "Poring Catcher : 1.",0; end; OnTimer60000: announce "Poring Catcher : انتهي الوقت",0; end; OnTimer61000: disablenpc "Poring Catcher Warper"; donpcevent "Poring Catcher#evnt2::OnEnable"; stopnpctimer; end; } prontera,147,165,0 warp Poring Catcher Warper 0,0,poring_w01,106,129 //-------------------------------------------------- pvp_n_4-5,101,96,6 script Poring Catcher 909,{ if (getgmlevel()<50) { player_here: mes "^FF0000[Poring Catcher Schedule]^000000"; mes "^0000FF[ 00:30AM ]^000000"; mes "^0000FF[ 04:30AM ]^000000"; mes "^0000FF[ 08:30AM ]^000000"; mes "^0000FF[ 12:30PM ]^000000"; mes "^0000FF[ 04:30PM ]^000000"; mes "^0000FF[ 08:30PM ]^000000"; next; mes "^FF0000[Poring Catcher]^000000"; mes "Current Prize:"; mes "----------------------"; mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; close; } gm_only: if (getgmlevel() < 80) goto player_here; mes "^FF0000Poring Catcher Warper^000000"; mes "Yes, master?"; mes "What can I do for you today, master?"; next; switch(select("Start Event:Stop Event:Check Prize:Set Prize:Nothing")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!"; mes "Do you want to start the event?"; next; switch(select("Yes:Leave")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Here we go!"; close2; announce "GM "+strcharinfo(0)+" has started the Poring Catcher Event!",0; sleep 2000; donpcevent "poring#announcer::OnGMStart"; end; case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Ok, nothing changed!"; close; } case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!"; mes "Do you want to stop the event?"; mes " "; mes "^FF0000Note that you can only stop the event if it is already starting."; mes "If the event is still on the giving of directions, it couldn't be stopped!^000000"; next; switch(select("Yes:No")) { case 1: next; mes "^FF0000Poring Catcher^000000"; mes "Close this window to stop the event!"; close2; goto stopbygm; case 2: next; mes "^FF0000Poring Catcher^000000"; mes "Ok, nothing changed!"; close; } case 3: next; mes "^FF0000Poring Catcher^000000"; mes "Current Prize :"; mes "-------------------"; mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; next; goto gm_only; case 4: next; mes "^FF0000Poring Catcher^000000"; mes "What will be the new reward?"; input .@itemid; if (getitemname(.@itemid) == "null" || getitemname(.@itemid) == "") {next; mes "^FF0000Poring Catcher^000000"; mes "The item is not found in the database.."; next; goto gm_only; } set $rewarditem, .@itemid; next; mes "^FF0000Poring Catcher^000000"; mes "How many ^008000"+getitemname($rewarditem)+"s^000000 should we give?"; input .@itemamount; if(.@itemamount <= 0) {next; mes "^FF0000Poring Catcher^000000"; mes "Please input a # greater than 0"; next; goto gm_only; } set $rewardamount,.@itemamount; next; mes "^FF0000Poring Catcher^000000"; mes "So, the winner will get ^008000"+$rewardamount+" "+getitemname($rewarditem)+"s"; next; goto gm_only; case 5: next; mes "^FF0000Poring Catcher^000000"; mes "Nothing Changed!"; close; } stopbygm: stopnpctimer; killmonster "poring_w01","All"; announce "Poring Catcher Event was stopped by GM "+strcharinfo(0)+"!",0; sleep 2000; mapwarp "poring_w01","prontera",149,160; end; } //-------------------------------------------------- poring_w01,100,127,4 script Poring Catcher#evnt2 715,{ //-------------------------------------------------- mes "[المهرج]"; if(PORING == 1) goto L_PORING; mes "تعال و قل لي اسمك"; next; input .@name$; if(.@name$ != strcharinfo(0)) { mes "[المهرج]"; mes "هل انت متئكد ان هذا اسم شخصيتك ؟"; close; } mes "[المهرج]"; mes "اذهب الي منزلك"; close2; announce "Poring Catcher : الكل يضحك , "+.@name$+". - هذا اللاعب حاول غش النظام",0; warp "prontera",155,177; end; L_PORING: mes "تعال و قل لي اسمك"; next; input .@name$; if(.@name$ != strcharinfo(0)) { mes "[المهرج]"; mes "هل انت متئكد ان هذا اسمك ؟"; close; } mes "[Poring Catcher]"; mes "مبروك لقد فذت"; close2; if (getitemname($rewarditem) == "null"){ set $rewarditem, 674; set $rewardamount, 4; } announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0; getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE warp "prontera",155,177; hideonnpc "Poring Catcher#evnt2"; end; OnEnable: mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 100 بورينج مختلف",0; initnpctimer; sleep2 10000; mapannounce "poring_w01","Poring Catcher : واحد فقط فيهم هو الحقيقي",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : الحقيقي اسمه [ Poring ] و الباقي جميهم مزورين",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : اذا قتلت البورينج الخاطء سوف يتم طردك من اللعبة",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : أول من يقتل البورينج الحقيقي هو الفائذ",0; sleep2 10000; mapannounce "poring_w01","Poring Catcher : هذا فقط هيا بنا نبدء .",0; goto L_Start; end; OnTimer570000: mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0; end; OnTimer600000: stopnpctimer; mapannounce "poring_w01","Poring Catcher : انتهي الوقت لم يجد احد البورينج الحقيقي",0; atcommand "@doommap"; killmonster "poring_w01","All"; sleep 3000; mapwarp "poring_w01","prontera",155,177; end; L_Start: mapannounce "poring_w01","Poring Catcher : 5",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 4",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 3",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 2",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : 1",0; sleep2 1000; mapannounce "poring_w01","Poring Catcher : سوف نبدء الان",0; areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Pouring",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Proing",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poiring",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poing",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porning",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"PoriNg",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porong",1002,20,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled"; end; } - script poringwin -1,{ OnMobKilled: dispbottom "Poring : مبروك لقد نلت مني ^^"; set PORING,1; atcommand "@doommap"; killmonster "poring_w01","All"; mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0; hideoffnpc "Poring Catcher#evnt2"; end; } - script poringlose -1,{ OnMobKilled: dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي"; warp "prontera",155,177; end; } // -- Mapflags poring_w01 mapflag nowarp poring_w01 mapflag nowarpto poring_w01 mapflag noteleport poring_w01 mapflag nosave poring_w01 mapflag nomemo poring_w01 mapflag nobranch poring_w01 mapflag noloot poring_w01 mapflag noskill poring_w01 mapflag nopenalty after the winner kills the right poring . ppl never die they could talk to the gift npc and take a winner prize to i want them when some one kill the right poring every one else die
  14. i need a auto annoincment . simple one just every 30 min
  15. If u can send it to me it will be better cuz u have alot of refiners
  16. O.o can u send me it edited cuz am new on that things i will bug it
  17. nothing happend o.O i want him refine any thing!!
  18. Thanks alot how to make it wihout waiting 3 seconds ?
  19. where ? == if i can add it to me cuz i rlly dont know where to add it cuz maybe i can bug the script
  20. my tcg refiner is working good but he just refine the normal items . i want him able to refine every thing , accesorys , any thing // -- Script by Emistry, // -- 100% Success Per Refine NPC. // -- Cost 10 Poring Coins [ Default ] moc_para01,25,23,4 script Safe Refine 100% 826,{ set @npcname$,"[^FF0000 الحداد المحترف^000000 ]"; set @items,7227; // Item ID set @amount,15; // Amount E_Refiner: mes @npcname$; mes "اي أدا تريد أن تطورهة ؟ "; mes " "; mes "تكلف : ^FF0000"+@amount+" "+getitemname(@items)+"^000000"; mes "من أجل ^FF0000100% نجاح^000000 التطويرة الواحدة"; dispbottom "أقصي تطوير ألي + 10"; next; switch(select((getequiprefinerycnt(EQI_HEAD_TOP) == 10 || getequipisenableref(EQI_HEAD_TOP) == 0)?"":"قبعة [ ^0000FF"+getequipname(EQI_HEAD_TOP)+"^000000 ]", // Case 1: (getequiprefinerycnt(EQI_ARMOR) == 10 || getequipisenableref(EQI_ARMOR) == 0)?"":"درع صدر [ ^0000FF"+getequipname(EQI_ARMOR)+"^000000 ]", // Case 2: (getequiprefinerycnt(EQI_HAND_L) == 10 || getequipisenableref(EQI_HAND_L) == 0)?"":"اليد اليسري [ ^0000FF"+getequipname(EQI_HAND_L)+"^000000 ]", // Case 3: (getequiprefinerycnt(EQI_HAND_R) == 10 || getequipisenableref(EQI_HAND_R) == 0)?"":"اليد اليمني [ ^0000FF"+getequipname(EQI_HAND_R)+"^000000 ]", // Case 4: (getequiprefinerycnt(EQI_GARMENT) == 10 || getequipisenableref(EQI_GARMENT) == 0)?"":"الوشاح [ ^0000FF"+getequipname(EQI_GARMENT)+"^000000 ]", // Case 5: (getequiprefinerycnt(EQI_SHOES) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"خذاء [ ^0000FF"+getequipname(EQI_SHOES)+"^000000 ]", // Case 6: "^RR0000ألغاء^000000")) { Case 1: mes @npcname$; if ( countitem(@items) < @amount){ mes @npcname$; mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي"; close; } mes "تين تين تين .."; successrefitem EQI_HEAD_TOP; delitem @items,@amount; next; goto E_Refiner; Case 2: mes @npcname$; if ( countitem(@items) < @amount){ mes @npcname$; mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي"; close; } mes "تين تين تين .."; successrefitem EQI_ARMOR; delitem @items,@amount; next; goto E_Refiner; Case 3: mes @npcname$; if ( countitem(@items) < @amount){ mes @npcname$; mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي"; close; } mes "تين تين تين.."; successrefitem EQI_HAND_L; delitem @items,@amount; next; goto E_Refiner; Case 4: mes @npcname$; if ( countitem(@items) < @amount){ mes @npcname$; mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي"; close; } mes "تين تين تين .."; successrefitem EQI_HAND_R; delitem @items,@amount; next; goto E_Refiner; Case 5: mes @npcname$; if ( countitem(@items) < @amount){ mes @npcname$; mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services.."; close; } mes "تين تين تين ..."; successrefitem EQI_GARMENT; delitem @items,@amount; next; goto E_Refiner; Case 6: mes @npcname$; if ( countitem(@items) < @amount){ mes @npcname$; mes "علي الاقل يجب ان يكون معك ^FF0000"+@amount+" "+getitemname(@items)+"^000000 لتستعمل خدماتي"; close; } mes "تين تين تين ..."; successrefitem EQI_SHOES; delitem @items,@amount; next; goto E_Refiner; Case 7: mes @npcname$; mes "تعال مجددا عندما تغير رئيك"; close; } } ^^
  21. i need a player service npc that the player could save and storage ,reset, and more things than kafra when saving he save on his standing point
  22. prontera,200,180,4 script Prize Sender Test 123,{ if(!getgmlevel())end; set .@itemtoonlineplayers$,strcharinfo(0); mes "Input an item ID."; input .@item; if (getitemname(.@item) == "null") { mes "Invalid item "+.@item+"."; close; } mes "Input an amount."; input .@amount; if (.@amount == 0 || .@amount > 30000) { mes "Invalid amount "+.@amount+"."; close; } mes " "; mes "Giving "+.@amount+"x "+getitemname(.@item)+" to all players."; close2; set .@size, query_sql("SELECT `account_id` FROM `char` WHERE `online` = 1",.@aid); for(set .@i,0; .@i<.@size; set .@i,.@i+1) { getitem .@item,.@amount,.@aid[.@i]; } end; not working with me both didn't work no no its working thannks guys
×
×
  • Create New...