Jump to content

Eivohr

Members
 View Profile  See their activity

  • Posts

    71

  • Joined

  • Last visited

 Content Type 

Posts posted by Eivohr

    Emp Breaker Test Help

    in Scripting Support

    Posted · Edited by AnnieRuru
    use [codebox] if the script > 10 lines

    Hi, First I'm sorry for the contributor of this script (Vincent of eathena board).

    Due to the owner doesn't response when I was post in eathena board. Maybe he is not active anymore.

    This script is eathena script and working properly to my server emulator (eathena SVN). I would ask to add to this script

    atleast Top 5 fastest EmpTest Breaker ladder. Because my player request like that. I hope you can

    //===== English ==============================================
//===== eAthena Script =======================================
//= Emperium Breaker Test (No Skills Allowed)
//===== By: ==================================================
//= Vincent (for AidiRO)
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= TXT & SQL
//============================================================
//If you want to disable player using skill in this map, Go to >> http://bit.ly/skilldbnocast and edit your "db/skilldbnocast.txt" into that skilldbnocast
pvp_n_4-5 mapflag restricted 7
prontera,127,212,0 script Emperium Breaker Test 1288,{

   set @time, $empbrk_record;
   set @m, @time / 60000;
   set @time, @time - (@m * 60000);
   set @s, @time /1000;
   set @time, @time - (@s * 1000);

   mes "[Emperium Breaker Test]";
   mes "Official Record by ^5050A0"+$empbrk_record$+"^000000";
   mes " ^000080"+@m+"^000000m ^000080"+@s+"^000000s ^000080"+@time+"^000000ms";

   set @time, empbrk_record;
   set @m, @time / 60000;
   set @time, @time - (@m * 60000);
   set @s, @time /1000;
   set @time, @time - (@s * 1000);
   mes "Your Own Record:";
   mes " ^000080"+@m+"^000000m ^000080"+@s+"^000000s ^000080"+@time+"^000000ms";

   mes "Would you like to try a new record?";
   next;
   if (getgmlevel()==99) { menu "Standard Menu",-,"Reset",L_reset,"Reset Rooms",L_emptyrooms,"Exit",L_exit;}
   menu "Yes",-,"No",L_exit,"Reset",L_resc;
   cleararray .arena$[0],"",4;
   mes "[Emperium Breaker Test]";
   if (getareausers("pvp_n_4-5",94,128,105,139)) mes "Emp n? ^0000DF1 ^FF0000 Busy^000000";
   else{ mes "Emp n? ^0000DF1 ^00A000 Free^000000";  set .arena$[0],"^0000DFEmperium^000000";}
   if (getareausers("pvp_n_4-5",60,94,71,105)) mes "Emp n? ^B05D002 ^FF0000 Busy^000000";
   else{ mes "Emp n? ^B05D002 ^00A000 Free^000000"; set .arena$[1],"^B05D00Emperium^000000";}
   if (getareausers("pvp_n_4-5",94,60,105,71)) mes "Emp n? ^B00FB03 ^FF0000 Busy^000000";
   else{ mes "Emp n? ^90AF003 ^00A000 Free^000000"; set .arena$[2],"^90AF00Emperium^000000";}
   if (getareausers("pvp_n_4-5",128,94,139,105)) mes "Emp n? ^50AF004 ^FF0000 Busy^000000";
   else{ mes "Emp n? ^500F004 ^00A000 Free^000000"; set .arena$[3],"^500F00Emperium^000000";}
   next;
getmapxy(@mpempbrk$,@empbrkx,@empbrky,0,strcharinfo(0));
   switch (select(.arena$[0],.arena$[1],.arena$[2],.arena$[3],"Quit")){

   case 1:
   if (getareausers("pvp_n_4-5",60,94,71,105) == 0){
   if($@someonegotin1 > 0){ mes "Room is now BUSY"; close;}
   set $@someonegotin1, 1;
   warp "pvp_n_4-5",99,128;
   killmonster "pvp_n_4-5","EmpBrk#1::OnThisMobDeath";
   initnpctimer "EmpBrk#1";}
   break;

   case 2:
   if (getareausers("pvp_n_4-5",60,94,71,105) == 0){   
   if($@someonegotin2 > 0){ mes "Room is now BUSY"; close;}
   set $@someonegotin2, 1;    
   warp "pvp_n_4-5",68,99;
   killmonster "pvp_n_4-5","EmpBrk#2::OnThisMobDeath";
   initnpctimer "EmpBrk#2";}
   break;
   case 3:
   if (getareausers("pvp_n_4-5",94,60,105,71) == 0){  
   if($@someonegotin3 > 0){ mes "Room is now BUSY"; close;}
   set $@someonegotin3, 1;     
   warp "pvp_n_4-5",100,68;
   killmonster "pvp_n_4-5","EmpBrk#3::OnThisMobDeath";
   initnpctimer "EmpBrk#3";}
   break;
   case 4:
   if (getareausers("pvp_n_4-5",128,94,139,105) == 0){ 
   if($@someonegotin4 > 0){ mes "Room is now BUSY"; close;}
   set $@someonegotin4, 1;      
   warp "pvp_n_4-5",130,99;
   killmonster "pvp_n_4-5","EmpBrk#4::OnThisMobDeath";
   initnpctimer "EmpBrk#4";}
   break;

   default:
   close;

   }
sc_end SC_ALL;
close;
L_reset:
   mes "[Emperium Breaker Test]";
   mes "Are you sure to reset official record ?";
   menu "Yes",-,"No",L_exit;
   set $empbrk_record, 0;
   set $empbrk_record$, "";
close;
L_resc:
   mes "[Emperium Breaker Test]";
   mes "Are you suere to rest your record?";
   menu "Yes",-,"No",L_exit;
   set empbrk_record, 0;
L_emptyrooms:
set $@someonegotin1, 0;
set $@someonegotin2, 0;
set $@someonegotin3, 0;
set $@someonegotin4, 0;
close;
L_exit:
close;   

}
- script EmpBrk#1 -1,{
OnTimer3000:
   if (.end == 1) {    warpchar "prontera",150,172,.charid;
   stopnpctimer;
   set .end, 0;
   }
end;   

OnTimer5000:
   set .x1,94;
   set .y1,128;
   set .x2,105;
   set .y2,139;
   set .xe,100;
   set .ye,134;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Let's ready to break the Emperium",0;
set $@someonegotin1, 0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;
OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;
OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;
OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;
OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;
OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#1::OnThisMobDeath";
end;
OnTimer1200000:
warpchar "prontera",150,172,.charid;
stopnpctimer;
set .end, 1;
end;
OnThisMobDeath:
   stopnpctimer "EmpBrk#1";
   set .time, getnpctimer(0,"EmpBrk#1");
   set .time, .time - 12000;
   if (.time < empbrk_record || empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",0;
       set empbrk_record, .time;

   }
   if (.time < $empbrk_record || $empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Official Record!!!",0;
announce strcharinfo(0)+" is now the NO. 1 Emperium Breaker!!",0;
       set $empbrk_record, .time;
       set $empbrk_record$,strcharinfo(0);
   }
   set .m, .time / 60000;
   set .time, .time - (.m * 60000);
   set .s, .time /1000;
   set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.time+"ms",0;
   set .end,1;
   set .charid,getcharid(0);
   initnpctimer;
end;
}
pvp_n_4-5,99,125,0 script EmpBrk#1_touch -1,2,1,{
   OnTouch:
   killmonster "pvp_n_4-5","EmpBrk#1::OnThisMobDeath";
   mes "[Emperium Breaker Test]";
   mes "You cannot exit from small sqare.";
   close2;
set $@someonegotin1, 0;
       warp @mpempbrk$,@empbrkx,@empbrky;
   close;

}
- script EmpBrk#2 -1,{

OnTimer3000:
   if (.end == 1) {    warpchar "prontera",150,172,.charid;
   stopnpctimer;
   set .end, 0;
   }
end;

OnTimer5000:
   set .x1,60;
   set .y1,94;
   set .x2,71;
   set .y2,105;
   set .xe,65;
   set .ye,99;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Let's ready to break the Emperium",0;
set $@someonegotin2, 0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;
OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;
OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;
OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;
OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;
OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#2::OnThisMobDeath";
end;
OnTimer1200000:
warpchar "prontera",150,172,.charid;
stopnpctimer;
set .end, 1;
end;
OnThisMobDeath:
   stopnpctimer "EmpBrk#2";
   set .time, getnpctimer(0,"EmpBrk#2");
   set .time, .time - 12000;
   if (.time < empbrk_record || empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",0;
       set empbrk_record, .time;

   }
   if (.time < $empbrk_record || $empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Official Record!!!",0;
announce strcharinfo(0)+" is now the NO. 1 Emperium Breaker!!",0;
       set $empbrk_record, .time;
       set $empbrk_record$,strcharinfo(0);
   }
   set .m, .time / 60000;
   set .time, .time - (.m * 60000);
   set .s, .time /1000;
   set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.time+"ms",0;
   set .end,1;
   set .charid,getcharid(0);
   initnpctimer;
end;
}
pvp_n_4-5,74,99,0 script EmpBrk#2_touch -1,1,2,{
   OnTouch:
   killmonster "pvp_n_4-5","EmpBrk#2::OnThisMobDeath";
   mes "[Emperium Breaker Test]";
   mes "You cannot exit from small sqare.";
   close2;
set $@someonegotin2, 0;
       warp @mpempbrk$,@empbrkx,@empbrky;
   close;

}
- script EmpBrk#3 -1,{
OnTimer3000:
   if (.end == 1) {    warpchar "prontera",150,172,.charid;
   stopnpctimer;
   set .end, 0;
   }
end;   

OnTimer5000:
   set .x1,94;
   set .y1,60;
   set .x2,105;
   set .y2,71;
   set .xe,99;
   set .ye,65;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Let's ready to break the Emperium",0;
set $@someonegotin3, 0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;
OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;
OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;
OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;
OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;
OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#3::OnThisMobDeath";
end;
OnTimer1200000:
warpchar "prontera",150,172,.charid;
stopnpctimer;
set .end, 1;
end;
OnThisMobDeath:
   stopnpctimer "EmpBrk#3";
   set .time, getnpctimer(0,"EmpBrk#3");
   set .time, .time - 12000;
   if (.time < empbrk_record || empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",0;
       set empbrk_record, .time;

   }
   if (.time < $empbrk_record || $empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Official Record!!!",0;
announce strcharinfo(0)+" is now the NO. 1 Emperium Breaker!!",0;
       set $empbrk_record, .time;
       set $empbrk_record$,strcharinfo(0);
   }
   set .m, .time / 60000;
   set .time, .time - (.m * 60000);
   set .s, .time /1000;
   set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.time+"ms",0;
   set .end,1;
   set .charid,getcharid(0);
   initnpctimer;
end;
}
pvp_n_4-5,100,74,0 script EmpBrk#3_touch -1,2,1,{
   OnTouch:
   killmonster "pvp_n_4-5","EmpBrk#3::OnThisMobDeath";
   mes "[Emperium Breaker Test]";
   mes "You cannot exit from small sqare.";
   close2;
set $@someonegotin3, 0;
       warp @mpempbrk$,@empbrkx,@empbrky;
   close;

}

- script EmpBrk#4 -1,{
OnTimer3000:
   if (.end == 1) {    warpchar "prontera",150,172,.charid;
   stopnpctimer;
   set .end, 0;
   }
end;   

OnTimer5000:
   set .x1,128;
   set .y1,94;
   set .x2,139;
   set .y2,105;
   set .xe,134;
   set .ye,99;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Let's ready to break the Emperium",0;
set $@someonegotin4, 0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;
OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;
OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;
OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;
OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;
OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#4::OnThisMobDeath";
end;
OnTimer1200000:
warpchar "prontera",150,172,.charid;
stopnpctimer;
set .end, 1;
end;
OnThisMobDeath:
   stopnpctimer "EmpBrk#4";
   set .time, getnpctimer(0,"EmpBrk#4");
   set .time, .time - 12000;
   if (.time < empbrk_record || empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",0;
       set empbrk_record, .time;

   }
   if (.time < $empbrk_record || $empbrk_record == 0)
   {
       areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Official Record!!!",0;
announce strcharinfo(0)+" is now the NO. 1 Emperium Breaker!!",0;
       set $empbrk_record, .time;
       set $empbrk_record$,strcharinfo(0);
   }
   set .m, .time / 60000;
   set .time, .time - (.m * 60000);
   set .s, .time /1000;
   set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.time+"ms",0;
   set .end,1;
   set .charid,getcharid(0);
   initnpctimer;
end;
}
pvp_n_4-5,125,100,0 script EmpBrk#4_touch -1,1,2,{
   OnTouch:
   killmonster "pvp_n_4-5","EmpBrk#4::OnThisMobDeath";
   mes "[Emperium Breaker Test]";
   mes "You cannot exit from small sqare.";
   close2;
set $@someonegotin4, 0;
       warp @mpempbrk$,@empbrkx,@empbrky;
   close;

}

    help me. Thanks in advance.

    up to +12 Refiner

    in Script Requests

    Posted

    there is no standard refiner +10 just only need is enriched elunium & enriched oridecon for upgrading weapon and equip? non-breaking refine, just when it failed, it is unrefine. Thanks

    Using refiner in rAthena svn

    
prontera,154,174,5	script	Bestry#prt2	826,{
callfunc "refinenew2","Bestry",0,0;
end;
}
morocc_in,64,41,5	script	Bestry#moc2	826,{
callfunc "refinenew2","Bestry",0,0;
end;
}
payon_in01,18,132,3	script	Bestry#pay2	826,{
callfunc "refinenew2","Bestry",0,0;
end;
}

//============================================================
// +11 and above Refiner Function
//============================================================
//= To allow auto safe refining/multiple refining set the
//= second argument to '1' in the function call.
//= If you enable this function, be sure to edit the value of
//= .@safe to the max safe refine in refine_db.txt as well.
//=
//= The official script uses a command which seems to generate a
//= random result upon refining: success, downgrade, or failure.
//= To enable that feature, set the third argument to '1' in the
//= function call.  Otherwise, the chance in refine_db.txt is used.
//============================================================
function	script	refinenew2	{
mes "["+ getarg(0) +"]";
mes "I am the best Blacksmith ever!";
next;
mes "["+ getarg(0) +"]";
mes "What do you want to have refined?";
next;

setarray .@position$[1],"Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
set .@menu$,"";
for(set .@i,1; .@i<=10; set .@i,.@i+1) {
	if(getequipisequiped(.@i))
		set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
	set .@menu$, .@menu$ + ":";
}
set .@part,select(.@menu$);
if(!getequipisequiped(.@part)) {
	mes "[" + getarg(0) + "]";
	mes "You're not wearing";
	mes "anything there that";
	mes "I can refine.";
	emotion e_an;
	close;
}
//Check if the item is refinable...
if(!getequipisenableref(.@part)) {
	mes "[" + getarg(0) + "]";
	mes "I don't think I can";
	mes "refine this item at all...";
	close;
}
//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
if(!getequipisidentify(.@part)) {
	mes "[" + getarg(0) + "]";
	mes "You can't refine this";
	mes "if you haven't appraised";
	mes "it first. Make sure your";
	mes "stuff is identified before";
	mes "I can refine it.";
	close;
}
if(getequiprefinerycnt(.@part) > 9) {
	mes "["+ getarg(0) +"]";
	mes "I can't refine this";
	mes "any more. This is as";
	mes "refined as it gets!";
	close;
}
set .@refineitemid, getequipid(.@part); // save id of the item
set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
if ((getequipweaponlv(.@part) >= 1) && (getequipweaponlv(.@part) <= 4)) {
	set .@material,6224;
	set .@price,100000;
	set .@safe,10;
	mes "["+ getarg(0) +"]";
	mes "Hmm a weapon, is that ok?";
	mes "If you want to refine this weapon,";
	mes "I will need 1 ^003366Bradium^000000 and 100,000 zeny.";
	mes "Are you sure you want to continue?";
} else {
	set .@material,6223;
	set .@price,100000;
	set .@safe,10;
	mes "["+ getarg(0) +"]";
	mes "Hmm an armor, is that ok?";
	mes "If you want to refine this armor,";
	mes "I will need 1 ^003366Carnium^000000 and 100,000 zeny.";
	mes "Are you sure you want to continue?";
}
next;
if(select("Yes:No") == 2){
	mes "["+ getarg(0) +"]";
	mes "Well, no challenge is one way...";
	mes "No risk... that could be wise.";
	close;
}
if(getarg(1) != 1) {
	if ((getequipweaponlv(.@part) >= 1) && (getequipweaponlv(.@part) <= 4)) {
		mes "["+ getarg(0) +"]";
		mes "This weapon already has been refined serveral times.";
		next;
		mes "["+ getarg(0) +"]";
		mes "You could have the upgrade level of the weapon decreased.";
	} else {
		mes "["+ getarg(0) +"]";
		mes "You could have the upgrade level of the armor decreased.";
	}
	next;
	mes "["+ getarg(0) +"]";
	mes "Do you want me to refine it?";
	mes "I think I gave you enough warnings.";
	next;
	if(select("Yes.:No.") == 2) {
		mes "["+ getarg(0) +"]";
		mes "Well, no challenge is one way..";
		mes "No risk.. that could be wise.";
		close;
	}
	if(countitem(.@material) < 1 || Zeny < .@price) {
		mes "["+ getarg(0) +"]";
		mes "Hm, it seems you don't have enough materials or money.";
		mes "Please check it out.";
		close;
	}
	set Zeny,Zeny - .@price;
	delitem .@material,1;
	if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
		mes "[" + getarg(0) + "]";
		mes "Look here... you don't have any items on...";
		close;
	}
	if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
		mes "[" + getarg(0) + "]";
		emotion e_an;
		mes "Wait a second...";
		mes "Do you think I'm stupid?!";
		mes "You switched the item while I wasn't looking! Get out of here!";
		close;
	}
	if(getarg(2) == 1){
		set .@rand,rand(1,3);
		if (.@rand == 1) {
			mes "Clang! Clang! Clang! Clang!";
			successrefitem .@part;
			next;
			emotion e_no1;
			mes "["+ getarg(0) +"]";
			mes "Good! Succes!!!";
			mes "I am the best Blacksmith.";
			close;
		}
		else {
			mes "["+ getarg(0) +"]";
			mes "Clang! Clang! Clang! Clang!";
			downrefitem .@part;
			next;
			emotion (!rand(5))?e_cash:e_omg;
			mes "["+ getarg(0) +"]";
			mes "Ahhh!!!";
			next;
			mes "["+ getarg(0) +"]";
			mes "Oh my!";
			mes "The upgrade level has dropped...";
			mes "There could've been made an mistake even though I am the best ever.";
			mes "It was out of my hands.";
			next;
			mes "["+ getarg(0) +"]";
			mes "I will do a better job next time! Don't worry!";
			close;
		}
	}
	set .@rand,rand(100);
	if (getequippercentrefinery(.@part) > .@rand) {
		mes "Clang! Clang! Clang! Clang!";
		successrefitem .@part;
		next;
		emotion e_no1;
		mes "["+ getarg(0) +"]";
		mes "Good! Succes!!!";
		mes "I am the best Blacksmith.";
		close;
	}
	else {
		mes "["+ getarg(0) +"]";
		mes "Clang! Clang! Clang! Clang!";
		downrefitem .@part;
		next;
		emotion (!rand(5))?e_cash:e_omg;
		mes "["+ getarg(0) +"]";
		mes "Ahhh!!!";
		next;
		mes "["+ getarg(0) +"]";
		mes "Oh my!";
		mes "The upgrade level has dropped...";
		mes "There could've been made an mistake even though I am the best ever.";
		mes "It was out of my hands.";
		next;
		mes "["+ getarg(0) +"]";
		mes "I will do a better job next time! Don't worry!";
		close;
	}
}
// New +11 and above Refining Functions ========================
if(getequiprefinerycnt(.@part) < .@safe) {
	mes "[" + getarg(0) + "]";
	mes "I can refine this to the safe limit or a desired number of times. It's your choice.";
	next;
	set .@menu2,select("To the safe limit, please.","I'll decide how many times.","I've changed my mind...");
} else
	set .@menu2,2;
switch(.@menu2){
case 1:
	set .@refinecnt,.@safe - getequiprefinerycnt(.@part);
	break;
case 2:
	next;
	mes "[" + getarg(0) + "]";
	mes "How many times would you like me to refine your item?";
	next;
	input .@refinecnt;
	set .@refinecheck,.@refinecnt + getequiprefinerycnt(.@part);
	if (.@refinecnt < 1 || .@refinecheck > 10) {
		mes "[" + getarg(0) + "]";
		mes "I can't refine this item that many times.";
		close;
	}
	if(.@refinecheck > .@safe) {
		set .@refinecheck,.@refinecheck - .@safe;
		mes "[" + getarg(0) + "]";
		mes "This will try to refine the equipment " + .@refinecheck + " times past the safe limit. Ok?";
		next;
		if(select("Yes...","No...") == 2){
			mes "[" + getarg(0) + "]";
			mes "You said so... So be it.";
			close;
		}
	}
	break;
case 3:
	next;
	mes "[" + getarg(0) + "]";
	mes "You said so... So be it.";
	close;
}
set .@fullprice,.@price * .@refinecnt;
mes "[" + getarg(0) + "]";
mes "That will cost you " + .@refinecnt + " " + getitemname(.@material) + " and " + .@fullprice + " Zeny. Is that ok?";
next;
if(select("Yes","No...") == 2){
	mes "[" + getarg(0) + "]";
	mes "You said so... So be it.";
	close;
}
if(countitem(.@material) < .@refinecnt || Zeny < .@fullprice) {
	mes "[" + getarg(0) + "]";
	mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
	close;
}
set Zeny,Zeny - .@fullprice;
delitem .@material,.@refinecnt;
while(.@refinecnt){
	if (getequipisequiped(.@part) == 0) {
		mes "[" + getarg(0) + "]";
		mes "Look here... you don't have any items on...";
		close;
	}
	if (getequipid(.@part) != .@refineitemid || (.@menu2 == 1 && getequippercentrefinery(.@part) < 100)) {
		mes "[" + getarg(0) + "]";
		mes "Clang... No, but did you imagine I could be so stupid?!";
		mes "You changed it...";
		mes "Get out before I stun you with my Hammer!!";
		close;
	}
	if(getarg(2) == 1){
		set .@rand,rand(1,3);
		if (.@rand == 1) {
			mes "["+ getarg(0) +"]";
			mes "Clang! Clang! Clang! Clang!";
			successrefitem .@part;
			next;
			emotion e_no1;
			mes "["+ getarg(0) +"]";
			mes "Good! Succes!!!";
			mes "I am the best Blacksmith.";
			close;
		}
		else {
			mes "["+ getarg(0) +"]";
			mes "Clang! Clang! Clang! Clang!";
			downrefitem .@part;
			next;
			emotion (!rand(5))?e_cash:e_omg;
			mes "["+ getarg(0) +"]";
			mes "Ahhh!!!";
			next;
			mes "["+ getarg(0) +"]";
			mes "Oh my!";
			mes "The upgrade level has dropped...";
			mes "There could've been made an mistake even though I am the best ever.";
			mes "It was out of my hands.";
			next;
			mes "["+ getarg(0) +"]";
			mes "I will do a better job next time! Don't worry!";
			close;
		}
	}
	set .@rand,rand(100);
	if (getequippercentrefinery(.@part) > .@rand) {
		mes "Clang! Clang! Clang! Clang!";
		successrefitem .@part;
		next;
		emotion e_no1;
		mes "["+ getarg(0) +"]";
		mes "Good! Succes!!!";
		mes "I am the best Blacksmith.";
		close;
	}
	else {
		mes "["+ getarg(0) +"]";
		mes "Clang! Clang! Clang! Clang!";
		downrefitem .@part;
		next;
		emotion (!rand(5))?e_cash:e_omg;
		mes "["+ getarg(0) +"]";
		mes "Ahhh!!!";
		next;
		mes "["+ getarg(0) +"]";
		mes "Oh my!";
		mes "The upgrade level has dropped...";
		mes "There could've been made an mistake even though I am the best ever.";
		mes "It was out of my hands.";
		next;
		mes "["+ getarg(0) +"]";
		mes "I will do a better job next time! Don't worry!";
		close;
	}
}
mes "[" + getarg(0) + "]";
mes "All finished... Come again soon.";
close;
}

// Ori/Elu to Carnium/Bradium Refiners
//============================================================
-	script	Austry#ref2	-1,{
mes "[Austry]";
mes "If you bring me 3";
mes "Oridecon or Elunium";
mes "I can exchange them for";
mes "Bradium or Carnium.";
mes "Just give me 50,000z.";
next;
switch(select("Oridecon to Bradium.:Elunium to Carnium.:Purified Bradium to Carnium.:No thanks.")) {
case 1:
	setarray .@i[0],984,3,6224;  //Oridecon -> Bradium
	break;
case 2:
	setarray .@i[0],985,3,6223;  //Elunium -> Carnium
	break;
case 3:
	setarray .@i[0],6090,1,6223; //Purified_Bradium -> Carnium
	break;
case 4:
	mes "[Austry]";
	mes "Hmm...";
	close;
}
if (countitem(.@i[0]) >= .@i[1] && Zeny >= 50000) {
	delitem .@i[0],.@i[1];
	set Zeny, Zeny - 50000;
	getitem .@i[2],1;
	mes "[Austry]";
	if (.@i[0] == 6090) {
		mes "Refining with Purified Bradium";
		mes "is a little expensive. I can";
		mes "trade it for some Carnium.";
	} else
		mes "Ok! Here is your "+getitemname(.@i[2])+".";
	mes "Take it and use it well.";
	close;
}
mes "[Austry]";
mes "You better not be trying";
mes "to cheat me because you";
mes "don't have enough zeny";
mes "or "+getitemname(.@i[0])+".";
close;
}
prt_in,85,71,5	duplicate(Austry#ref2)	Austry#prt2	826
payon_in01,14,125,5	duplicate(Austry#ref2)	Austry#pay2	826
morocc_in,60,38,5	duplicate(Austry#ref2)	Austry#moc2	826

    this only for rathena, eathena SVN doesn't have script? Thanks

    up to +12 Refiner

    in Script Requests

    Posted

    Refine max to +12, 200K Zeny and enriched elu per refine...

    If player have Silver Coins or Platinum Coins (conditions like your request), NPC ask if he wants to use it. If he use it, 100% success else random fail.

    prontera,159,175,5	script	hjkqsdfl	456,{

mes "[blacksmith]";
mes "I'm the Blacksmith.";
mes "I can refine all kinds of weapons, armor and equipment, so let me";
mes "know what you want me to refine.";
next;

for( .@i = 1; .@i <= getarraysize( .position$ ); .@i++ ) {
	if( getequipisequiped( .@i ) )
		.@menu$ = .@menu$ + .position$[.@i] +"-"+ "["+ getequipname(.@i) +"]";
	.@menu$ = .@menu$ +":";
}
.@part = select( .@menu$ );

if( !getequipisequiped( .@part ) ) {
	mes "[blacksmith]";
	mes "You're not wearing";
	mes "anything there that";
	mes "I can refine.";
	emotion 6;
	close;
}
//Check if the item is refinable...
// --------------------------------
if( !getequipisenableref( .@part ) ) {
	mes "[blacksmith]";
	mes "I don't think I can";
	mes "refine this item at all...";
	close;
}
//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
// ----------------------------------------------------------------------------------------
if( !getequipisidentify( .@part ) ) {
	mes "[blacksmith]";
	mes "You can't refine this";
	mes "if you haven't appraised";
	mes "it first. Make sure your";
	mes "stuff is identified before";
	mes "I can refine it.";
	close;
}
// Check to see if the items is already +12
// ----------------------------------------
if( getequiprefinerycnt( .@part ) > 11 ) {
	mes "[blacksmith]";
	mes "I can't refine this";
	mes "any more. This is as";
	mes "refined as it gets!";
	close;
}

.@item_id = getequipid( .@part );
.@ref = getequipweaponlv( .@part );
.@refine_save = getequiprefinerycnt( .@part );

next;
switch( select( ( .@refine_save < .safe[ .@ref ] ? "Safe limit, please." : "" ),
				"I want to refine X times",
				"I've changed my mind..." ) ) {
	case 1:
		.@r_cnt = .safe[ .@ref ] - .@refine_save;
		break;
	case 2:
		mes "[blacksmith]";
		mes "How many refine do you want to do ?";
		if( input( .@r_cnt, 1, ( .maxrefine - .@refine_save ) ) != 0 ) {
			mes "I can't do that !";
			close;
		}
		next;
		break;
	case 3:
		mes "[blacksmith]";
		mes "You said so... So be it.";
		close;
}

mes "[blacksmith]";
mes "To refine this I need";
mes "^FF0000"+ ( .@r_cnt * .cost_zeny ) +" Zeny^000000 and "+ .@r_cnt +" Enriched Elunium";
mes "Do you really wish to continue?";
next;

if( select( "Yes:No" ) -1 ) {
	mes "[blacksmith]";
	mes "Yeah...";
	mes "There's no need to";
	mes "rush. Take your time.";
	close;
}
if( .@r_cnt * .cost_zeny > Zeny || .@r_cnt > countitem( .Enriched_elu ) ) {
	mes "[blacksmith]";
	mes "You don't seem to have";
	mes "enough ^000000 material^000000...";
	mes "Go get some more. I'll be";
	mes "here all day if you need me.";
	close;
}
if( !getequipisequiped( .@part ) ) { // hacker has removed the item (not changed, why?)
	mes "[blacksmith]";
	mes "Look here... you don't have any Items on...";
	close;
}
if( getequiprefinerycnt( .@part ) != .@refine_save || getequipid( .@part ) != .@item_id ) { // hacker has changed the item
	emotion e_an;
	mes "[blacksmith]";
	mes "Wait a second...";
	mes "Do you think I'm stupid?!";
	mes "You switched the item while I wasn't looking! Get out of here!";
	close;
}

for( .@i = 0; .@i < .@r_cnt; .@i++ ) {
	Zeny  -= .cost_zeny;
	delitem .Enriched_elu, 1;
	if( getequiprefinerycnt( .@part ) < .safe[ .@ref ] )
		successrefitem .@part;
	else {
		.@coin = ( getequiprefinerycnt( .@part ) < 10 && countitem( .silver_coin ) ? .silver_coin : ( getequiprefinerycnt( .@part ) > 9 && countitem( .plat_coin ) ? .plat_coin : 0 ) );
		if( .@coin )
			if( select( "Use an "+ getitemname( .@coin ), "Don't use it." ) == 1 ) {
			delitem .@coin, 1;
			.@skip = 1;
		}
		if( getequippercentrefinery( .@part ) <= rand(100) && !.@skip ) {
			failedrefitem .@part;
			next;
			mes "[blacksmith]";
			emotion ( !rand(5) ) ? e_cash: e_omg;
			.@lose = rand(2);
			if( !.@lose ) {
				mes "OH! MY GOD!";
				mes "Damn it! Not again!";
				mes "I'm terribly sorry, but you know practice does make perfect.";
				mes "Um, right? Heh heh...";
			}
			else if( .@lose -1 ) {
				mes "Nooooooo!";
				mes "It broke!";
				mes "I-I'm sorry!";
			}
			else {
				mes "Crap!";
				mes "It couldn't take";
				mes "much more tempering!";
				mes "Sorry about this...";
			}
			close;
		}
		.@skip = 0;
		successrefitem .@part;
	}
}
emotion e_heh;
.@win = rand(2);
mes "[blacksmith]";
if( !.@win ) {
	mes "Perfect!";
	mes "Heh heh!";
	mes "Once again,";
	mes "flawless work";
	mes "from the master~";
}
else if( .@win -1 ) {
	mes "Success...!";
	mes "Yet again, my amazing";
	mes "talent truly dazzles";
	mes "and shines today.";
}
else {
	mes "Heh heh!";
	mes "I'm all done.";
	mes "No doubt, my work is";
	mes "to your satisfaction.";
	mes "Sheer, utter perfection~";
}
close;

OnInit:
setarray .position$[1], "^0000ffHead^000000","^0000ffBody^000000","^FF0000Left hand^000000","^FF0000Right hand^000000","^0000ffRobe^000000","^0000ffShoes^000000","Accessory 1","Accessory 2","^0000ffHead 2^000000","^0000ffHead 3^000000";
// Safe limit per equipment
// ------------------------
setarray .safe, 4, 7, 6, 5, 4, 4;
// Max refine
// ----------
.maxrefine = 12;
// Required
// --------
.cost_zeny = 200000;
.plat_coin = 677;
.silver_coin = 675;
.Enriched_elu = 7619;
end;
}

    there is no standard refiner +10 just only need is enriched elunium & enriched oridecon for upgrading weapon and equip? non-breaking refine, just when it failed, it is unrefine. Thanks

    Last Man Standing Help

    in Scripting Support

    Posted

    what svn you using?

    My server is eathena svn.

      	 warp "prontera",156,181;
	sleep2 1000;
	atcommand "@alive";

    When you are warped, the player is resurrected automatically. @alive can't resurrected a player alive...

      	 sleep2 10000;
	mapannounce "poring_c01","Mr. Manager: 5",0;
	sleep2 5000;
	mapannounce "poring_c01","Mr. Manager: 4",0;
	sleep2 4000;
	mapannounce "poring_c01","Mr. Manager: 3",0;
	sleep2 3000;
	mapannounce "poring_c01","Mr. Manager: 2",0;
	sleep2 2000;
	mapannounce "poring_c01","Mr. Manager: 1",0;

    sleep will pause the script for the given amount of milliseconds.

    sleep2 3000; = pause 3 sec

    OnPCDieEvent:
getmapxy(.@map$,.@x,.@y,0);
if(.@map$=="poring_c01")
{
	set #kill_point, 0;
	announce ""+strcharinfo(0)+" died, and out of the game!.",bc_all;
	warp "prontera",156,181;
	sleep2 1000;
	atcommand "@alive";
	end;
}
OnPCKillEvent:
getmapxy(.@map$,.@x,.@y,0);
if(.@map$=="poring_c01")
{
	set #kill_point,#kill_point+1;
	if ( #kill_point % 4 == 0) {
		getitem 607, 20;
		end;
	}
}

    You miss some end; in case .@map$ != "poring_c01"

    I cleaned it a little.

    //*--kaiGAMING LMS TriggerScript--*//

sec_pri,27,38,4	script	LMS Trigger	106,{

if ( getgmlevel() > 29 ) goto LMS_Admin;
mes "[Minion]";
mes "Hello "+ strcharinfo(0) +", my master is busy.";
mes "*sigh*";
close;

LMS_Admin:
mes "[LMS Trigger]";
mes "Hello "+ strcharinfo(0) +", would you like me to call my Boss ?";
mes "He is the only one who can start it!";
menu "Start Event",-,"No Thanks",L_leave;
	next;
	mes "[LMS Trigger]";
	mes "Ok, I'll call him this instant.";
	close2;
	goto start_lms;


L_leave:
next;
mes "[LMS Trigger]";
mes "Ok " + strcharinfo(0) +", nice seeing you.";
close;

OnInit:
disablenpc "Mr. Banker";
disablenpc "All Job Manager";
end;
OnClock0000:
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
OnClock2400:// Edit this to what ever you want. note : OnClock0000 is 12 midnight and OnClock1200 is 12 Noon
start_lms:
announce "Mr. Manager: The Last Man Standing event will be starting shortly.",0;
sleep 10000;
pvpoff "poring_c01";
announce "Mr. Manager: Those who want to play, please proceed to Prontera and Register.",0;
sleep 10000;
announce "Mr. Manager: After 1 Minute the Registration will close.",0;
sleep 10000;
announce "Mr. Manager: Please go to Prontera and Register now if you want to join.",0;
enablenpc "All Job Manager";
initnpctimer;
end;

OnTimer30000:
announce "Mr. Manager: Last 30 seconds.",0;
sleep2 5000;
announce "Mr. Manager: If you want to join please Register in Prontera.",0;
end;

OnTimer50000:
announce "Mr. Manager: Last 10 seconds.",0;
end;

OnTimer55000:
for( set .@i, 5; .@i > 0; set .@i, .@i - 1 ) {
	announce "Mr. Manager: "+ .@i +".",0;
	sleep 1000;
}
announce "Mr. Manager: Time's up.",0;
sleep 1000;

disablenpc "All Job Manager";
donpcevent "Mr. Banker::OnEnable";
stopnpctimer;
end;

OnPCDieEvent:
if( strcharinfo(3) == "poring_c01" ) {
	set #kill_point, 0;
	announce ""+strcharinfo(0)+" died, and out of the game!.",bc_all;
	warp "prontera",156,181;
}
end;
OnPCKillEvent:
if( strcharinfo(3) == "poring_c01" ) {
	set #kill_point,#kill_point+1;
	if ( #kill_point % 4 == 0)
		getitem 607, 20;
}
end;
}
//---------All Job Registration---------------
prontera,156,178,5	script	All Job Manager	106,{
OnTouch:
if( BaseLevel < 999 ) goto leave;

mes "[Mr. Manager]";
mes "Hello What can I do for you?";
if( BaseLevel >= 999 ) {
	mes "Thank you for registering Mr. "+ strcharinfo(0) +", Have fun !";
	warp "poring_c01",103,98;
}
else
	mes "You have to be level 999.!";
close;

leave:
mes "[Mr. Manager]";
mes "I hope you will register next time";
close;
}

//--------------------------

poring_c01,104,109,4	script	Mr. Banker	56,{

mes "[banker]";
mes "Congrats. You've won.";
next;

mes "[banker]";
announce "Mr. Manager: We have a winner! Well done "+ strcharinfo(0) +".",0;
getitem 673,3;  // Change This item id to what ever you want . item id,amount
dispbottom "You won 3 Bronze Coins.";
mes "You will return now";
warp "prontera",156,181;
disablenpc "Mr. Banker";
close;

OnEnable:
pvpoff "poring_c01";
mapannounce "poring_c01","Mr. Manager: The Last Man Standing Event will start shortly",0;
sleep2 10000;
mapannounce "poring_c01","Mr. Manager: But before we start this is just a few reminders..",0;
sleep2 10000;
mapannounce "poring_c01","Mr. Manager: Using Cloaking , Hiding is strictly not allowed..",0;
sleep2 10000;
mapannounce "poring_c01","Mr. Manager: Only the Last Man Standing will win this event!!",0;
sleep2 10000;
mapannounce "poring_c01","Mr. Manager: What are we waiting for?..Let's Get Ready to Rumble!!...",0;
sleep2 10000;

L_Start:
if( getmapusers("poring_c01") == 1 ) goto L_Champ;
if( getmapusers("poring_c01") > 1 ) {
	mapannounce "poring_c01","Mr. Manager: Get ready at the count of 5 we will start!....",0;
	sleep2 1000;
	for( set .@i, 5; .@i > 0; set .@i, .@i - 1 ) {
		mapannounce "poring_c01","Mr. Manager: "+ .@i +".",0;
		sleep 1000;
	}
	sleep 1000;
	pvpon "poring_c01";
	goto timer;
}

disablenpc "Banker";
pvpoff "poring_c01";
end;

timer:
initnpctimer;
end;

OnTimer1100:
if( getmapusers("poring_c01") == 1 ) {
L_Champ:
	mapannounce "poring_c01","Mr. Banker: Please talk to me to get your prize..",2500000;
	pvpoff "poring_c01";
	enablenpc "Mr. Banker";
	stopnpctimer;
	end;
}
if( getmapusers("poring_c01") > 2 ) goto timer;
if( getmapusers("poring_c01") == 2 ) {
	announce "Mr. Manager: Last 2 Brave warriors are still alive!",0;
	sleep2 10000;
	if( getmapusers("poring_c01") == 1 ) goto L_Champ;
	if( getmapusers("poring_c01") > 1 ) goto timer;
	end;
}
stopnpctimer;
end;
}


// == Mapflags
poring_c01	mapflag	nowarp
poring_c01	mapflag	nowarpto
poring_c01	mapflag	noteleport
poring_c01	mapflag	nosave
poring_c01	mapflag	nomemo
poring_c01	mapflag	nobranch
poring_c01	mapflag	pvp_noparty
poring_c01	mapflag	restricted	1
poring_c01	mapflag	pvp_noguild

    @Capuche its not working properly to me :( have some some for the eathena SVN of last man standing?

    Last Man Standing Help

    in Scripting Support

    Posted · Edited by rhovie16

    just check your trunk/db/item_db.txt and search what ID of bronze coin.

    the item_db is ok, 673 for the bronze coins and i use other rewad but the same as given (gold coins). and when someone killed they are not resurrect. @alive is not work for normal player.

    Last Man Standing Help

    in Scripting Support

    Posted

    edit this line

    OnClock0300:
OnClock0700:
OnClock1300:
OnClock1500:
OnClock2300:

    and change it to

    OnClock0000:
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
OnClock2400:

    @kaiGAMING can you revised your script fully. the reward is Bronze coins (3 pcs.). and when someone kill, @alive command not work. so there another option to raise them automatically?

    Last Man Standing Help

    in Scripting Support

    Posted · Edited by rhovie16

    ok here edit this

    http://pastebin.com/AY8V4Fzm

    change the map of your choice and mapflag the you want make sure the (your map name) mapflag loadevent is still included

    go to line 139 to change the event prize

    go to line 28 to change and add the intervals that you want

    use onhour

    onminute

    onclock

    your choice refer to this http://rathena.org/w...ck#Label_Timers

    its working perfectly to me

    also make sure you restart your server before applying this

    Why the banker npc is not appearing when someone wins... how can i get the prize? Thanks in Advance

    Last Man Standing Help

    in Scripting Support

    Posted · Edited by rhovie16

    [- script LMS#disable -1,{

    OnInit:

    disablenpc "Mr. Banker";

    disablenpc "All Job Manager";

    end;

    }

    uppon initialize it should be disable cause of this :3

    try restarting your server

    then check again

    try this not yet tested

    i removed mr banker i made it a script

    once there is 1 player left in the map it will automatically announce,give the winner the reward then warp him to prontera

    http://pastebin.com/AY8V4Fzm]

    I try it and when I register i was stock in the room.

    Here, my revised script. it is Ok. But can you make the "All Job Manger" will appear during announce of the start of event?. And also make this script every 3 hrs auto event and rewarded "5 Bronze Coins" for the winner. I hope it would be solved. Thanks again. ^^

    NPC_lmstrigger2.txt

    Last Man Standing Help

    in Scripting Support

    Posted

    @kaiGAMING,

    your lmstrigger is good and working fine but its needed GM. can you make it autoevent every 2 hours. Event GM is not around, my player can play in that event. Thanks in advance..

    @icabit,

    that's script not working properly because when arrive in the place to battle. The npc (Banker) is already there. and there is no announcement.

    Battleground Help

    in Script Requests

    Posted

    Hello,

    I would like to ask if there is a script for joining battleground just type @joinbg for rathena?

    Because some of my players complaining when I make the pub BG npc, the BG player choose their desire BG team, so in the other team remains the weakest. and also avoiding BG farming. please help!

    post-14115-0-00101100-1358633730_thumb.jpg

×
×
  • Create New...