mes "I come from Federal World to Show you some items.";
mes "This is a Donate Headgear.";
mes "It Required Proof of Donation.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "(10pods)EvilDruidHat",-,"(10pods)HelmOfPower",L_BRW,"(10pods)FallenBishop",L_GRE,"(5pods)BlackPiamette",L_RAN,"(5pods)DanzoBandage",L_RDD,"(5pods)JudgementHelm",L_WHY,"(5pods)RedDowryHat",L_SIL;
mes "[Lenneth]";
mes "^3355FFEvil Druid Hat^000000 Effects";
mes "Atk +10%";
mes "Autocasting lvl 2 Provoke on user when receive physical damage";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFEvilDruidHat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20075,1;
mes "[Lenneth]";
mes "Here is your ^3355FFEvilDruidHat^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Evil Druid Hat) on Donation Manager.",9;
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFHelm Of Power^000000 Effects";
mes "Auto casting lvl 2 Power Up";
mes "Sniper Job Only";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFHelm Of Power^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20076,1;
mes "[briton]";
mes "Here is your ^3355FFHelm Of Power^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Helm Of Power) on Donation Manager.",9;
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFFallen Bishop Hat^000000 Effects";
mes "Reduced damage from DemiHuman by 15%";
mes "Autocasting Wide Stone Curse";
mes "All Stats +3";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFFallen Bishop Hat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20074,1;
mes "[briton]";
mes "Here is ^3355FFFallen Bishop Hat^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Fallen Bishop Hat) on Donation Manager.",9;
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFBlack Piamette^000000 Effects";
mes "Reduced Skill Delay by 5%";
mes "Merchant Class - Int +10";
mes "Mage Class - Matk +10%";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFBlack Piamette^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20055,1;
mes "[briton]";
mes "Here is your ^3355FFOrangeBlack Piamette^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Black Piamette) on Donation Manager.",9;
close;
L_RDD:
mes "[Lenneth]";
mes "^3355FFDanzo Bandage^000000 Effects";
mes "Increase Physical Attack by 10%";
mes "Str +10";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFDanzo Bandage^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20046,1;
mes "[briton]";
mes "Here is your ^3355FFDanzo Bandage^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Danzo Bandage) on Donation Manager.",9;
close;
L_WHY:
mes "[Lenneth]";
mes "^3355FFJudgement Helm^000000 Effects";
mes "Reduced Damage taken from demihuman by 5%";
mes "Increase Damage on Demihuman by 5%";
mes "If Equip With Heaven And Hell Wing";
mes "Additional 10% MaxHp";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFJudgement Helm^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20067,1;
mes "[briton]";
mes "Here is your ^3355FFJudgement Helm^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Judgement Helm) on Donation Manager.",9;
close;
L_SIL:
mes "[Lenneth]";
mes "^3355FFRed Dowry Hat^000000 Effects";
mes "Stalker Job";
mes "Increase Damage of Double strife skill by 10%";
mes "Sniper Job";
mes "Increase Damage of SharpShooting Skill by 10%";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFRed Dowry Hat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20044,1;
mes "[briton]";
mes "Here is your ^3355FFRed Dowry Hat^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Red Dowry Hat) on Donation Manager.",9;
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
mes "I can transmute for you many of the Valhallen items.";
mes "Although they require many rare elements to make.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "Bluefairywing",-,"Brownfairywing",L_BRW,"Greenfairywing",L_GRE,"Orangefairywing",L_RAN,"Redfairywing",L_RDD,"Whitefairywing",L_WHY,"Silverfairywing",L_SIL;
Question
Jb Roxas
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Broadcaster NPC:
// version: 1.0
// Custom Server NPC:
// scripted: BrainWind
//
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
prontera,147,175,5 script Broadcaster 894,{
//what's the npc name to show in messages?
set @npcname$, "Broadcaster";
//NPC Headers Name:
set @header$,"[^0000ff" + @npcname$ + "^000000]";
//NPC COST PER Broadcast:
set @broadcastfee, 1000000;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
mes @header$;
mes "Hi, I'm the Broadcaster";
mes "I can Broadcast a message for you";
next;
mes @header$;
mes "It costs ^ff0000"+ @broadcastfee +"^000000 zeny ";
next;
mes @header$;
mes "Would you like to Broadcast?";
switch (select("-yes","-No")){
case 1:
if(@Broadcast> gettimetick(2)) {
next;
mes @header$;
mes "Sorry you have to wait for 3min.";
close;
}
next;
mes @header$;
if(Zeny<1000000) goto $nozenybc;
set Zeny,zeny - @broadcastfee;
mes "Please input your message.";
next;
input @broadcast$;
announce "Message from "+strcharinfo(0)+": "+@broadcast$+"",0,0xB1FB17;
close2;
set @Broadcast, gettimetick(2)+180;
dispbottom "Broadcaster: Please wait for 3min until next broadcast to avoid flooding.";
end;
case 2:
mes "Suit yourself";
close;
}
$nozenybc:
mes "I have to check that you have";
mes "enough money";
next;
mes @header$;
mes "Im sorry but you dont have ^ff0000"+@broadcastfee+"^000000 zeny";
mes "Go get it if you want to Broadcast";
close;
}
hugel.gat,90,151,5 duplicate(Broadcaster) Broadcaster#1 114
morocc.gat,144,101,5 duplicate(Broadcaster) Broadcaster#2 114
geffen.gat,113,65,5 duplicate(Broadcaster) Broadcaster#3 114
payon.gat,169,238,5 duplicate(Broadcaster) Broadcaster#4 114
alberta.gat,195,156,5 duplicate(Broadcaster) Broadcaster#5 114
izlude.gat,127,120,5 duplicate(Broadcaster) Broadcaster#6 114
aldebaran.gat,133,120,5 duplicate(Broadcaster) Broadcaster#7 114
xmas.gat,142,136,5 duplicate(Broadcaster) Broadcaster#8 114
comodo.gat,196,162,5 duplicate(Broadcaster) Broadcaster#9 114
amatsu.gat,207,98,5 duplicate(Broadcaster) Broadcaster#10 114
gonryun.gat,154,126,5 duplicate(Broadcaster) Broadcaster#11 114
umbala.gat,97,157,5 duplicate(Broadcaster) Broadcaster#12 114
louyang.gat,212,51,5 duplicate(Broadcaster) Broadcaster#13 114
ayothaya.gat,155,121,5 duplicate(Broadcaster) Broadcaster#14 114
einbroch.gat,56,203,5 duplicate(Broadcaster) Broadcaster#15 114
lighthalzen.gat,153,85,5 duplicate(Broadcaster) Broadcaster#16 114
einbech.gat,67,107,5 duplicate(Broadcaster) Broadcaster#17 114
rachel.gat,132,117,5 duplicate(Broadcaster) Broadcaster#18 114
yuno.gat,149,126,5 duplicate(Broadcaster) Broadcaster#19 114
splendide,210,199,5 script Sample 757,{
set .OriValkID,2357;
set .RareValkID,2305;
set .Rate,10;
mes "Do you want to refine your "+getitemname( .OriValkID )+" into "+getitemname( .RareValkID )+" ?";
next;
if( select("Yes:No") == 2 ) close;
if( !countitem( .OriValkID ) ){
mes "You didnt have "+getitemname( .OriValkID )+" now.";
}else{
delitem .OriValkID,1;
if( rand(100) < .Rate ){
getitem .RareValkID,1;
mes "Done, congratz.";
}else
mes "But Failed.";
}
close;
}
//===== Athena Script =====================================
//= Cluck! Cluck! Boom!
//===== By Keale of VoidRO ================================
//= http://voidro.com
//===== Description =======================================
//= Click the chicken and try retrieve the item at a low
//= chance. If you fail he will nuke, freeze, stone,
//= stun, or make you fall asleep.
//= The prize is configurable and triggered by the NPC.
//===== Credits ===========================================
//= LuTze for his 'Chicken of Punishment' script.
//= BrianL for suggesting the 'switch' command.
//===== Version ===========================================
//= v1.1
//=========================================================
//= v1.0 - First release.
//= v1.1 - Using 'switch rand' instead.
//=========================================================
izlude,128,101,4 script Cluckers 800,{
if ($@startcluck == 1) goto L_playcluck;
cluckcluck:
if (getgmlevel() >= 80) goto cluckadmin;
mes "[Cluckers]";
mes "Cluck cluck! Cluuuuuck?";
mes "Cluck....";
close;
cluckadmin:
mes "[Cluckers]";
mes "Cluck cluck! Cluuuuuck? ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna play today?~^000000";
mes "Cluck cluck... CLUCK! ^FF0000~Just tell me what to do!~^000000";
switch(select("Start Event:Check Prize:Set Prize:Not today Cluckers")) {
case 1:
next;
mes "[Cluckers]";
mes "CLUCK! ^FF0000~Sure thing!~^000000";
emotion 33;
close2;
goto L_cluckannounce;
case 2:
next;
mes "[Cluckers]";
mes "Cluck, cluck cluck... Cluck! ^FF0000~The current prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +".^000000";
next;
goto cluckadmin;
case 3:
next;
mes "[Cluckers]";
mes "Cluck cluck? Cluck??? ^FF0000~What should the prize for winning be? Please input the ID.~^000000";
input $cluck_item_id;
next;
mes "[Cluckers]";
mes "Cluck? cluuuck? ^FF0000~How many if this item should I give away?~^000000";
input $cluck_item_amount;
next;
mes "[Cluckers]";
mes "Cluck cluck..? Cluck. ^FF0000~So, the prize is^000000 ^008000"+ $cluck_item_amount +" "+ getitemname($cluck_item_id) +"^000000? ^FF0000Great.~^000000";
emotion 33;
next;
goto cluckadmin;
case 4:
next;
mes "[Cluckers]";
mes "Cluck cluck cluck...";
close;
}
OnHour00:
OnHour01:
OnHour02:
OnHour03:
OnHour04:
OnHour05:
OnHour06:
OnHour07:
OnHour08:
OnHour09:
OnHour10:
OnHour11:
OnHour12:
OnStart:
L_cluckannounce:
announce "[Cluck! Cluck! Boom!] is about to start in Izlude!",bc_blue;
initnpctimer;
end;
OnTimer10000:
announce "Please hurry behind the fountain if you want to play with the crazy chicken!",bc_blue;
end;
OnTimer20000:
announce "Cluckers has eaten one of my items! I'm too scared to retrieve it!",bc_blue;
end;
OnTimer30000:
announce "Click the insane chicken and try squeeze out the item, if you're lucky you'll win! Are you ready?",bc_blue;
end;
OnTimer40000:
announce "GO! Click the chicken to get the prize!",bc_blue;
set $@startcluck,1;
end;
L_playcluck:
specialeffect2 2;
switch( rand(15) ) {
case 0:
npctalk "CLUUUUUUCK!!!";
emotion 23;
atcommand "@nuke "+strcharinfo(0);
break;
case 1:
npctalk "Cluuuuuck!~";
break;
case 2:
atcommand "@nuke "+strcharinfo(0);
break;
case 3:
sc_start SC_Freeze,10000,0;
break;
case 4:
npctalk "CLUUUUUUUUUCK!!!";
emotion 23;
atcommand "@nuke "+strcharinfo(0);
break;
case 5:
sc_start SC_Sleep,10000,0;
break;
case 6:
emotion 29;
sc_start SC_Stone,10000,0;
break;
case 7:
npctalk "CLUUUUUUCK!!!";
emotion 23;
atcommand "@nuke "+strcharinfo(0);
break;
case 8:
npctalk "Cluck! CLUUUCK!!";
emotion 23;
atcommand "@nuke "+strcharinfo(0);
break;
case 9:
sc_start SC_Stun,10000,0;
break;
case 10:
emotion 29;
sc_start SC_Sleep,10000,0;
break;
case 11:
npctalk "Cluck! Cluck!";
break;
case 12:
sc_start SC_Stun,10000,0;
break;
case 13:
atcommand "@nuke "+strcharinfo(0);
break;
default:
if( rand(50) < 3 ) {
npctalk "WOOF!...........";
specialeffect2 72;
announce "[Cluck! Cluck! Boom!] " + strcharinfo(0) + " Squeezed out the prize! Well done!",0;
getitem $cluck_item_id,$cluck_item_amount;
set $@startcluck,0;
} else {
npctalk "Cluck! CLUUUCK!!";
atcommand "@nuke "+strcharinfo(0);
}
break;
}
}
// NPC Name must have a Number behind it. ex Name#1 , Name#2,...
prontera,164,164,5 script Daily Quest#1 437,{
function ChainedQuest;
mes "I am a Chained Quest NPC, you can only redo the previous Quest after you have finished all of my Quests.";
mes "Each part will increase the PRIZE.";
next;
// Quest Setup :
// ChainedQuest( Reward,Amount , Required Zeny, {Item1,Amount1,Item2,Amount2,...} );
switch( getd( Quest+strnpcinfo(2) ) ){
Case 0: ChainedQuest( 7227,1, 10000, 750,10 );
Case 1: ChainedQuest( 7227,2, 15000, 751,10, 4144,20 );
Case 2: ChainedQuest( 7227,3, 20000, 968,10, 7108,50, 7448,30 );
// Case 3: ChainedQuest( 7227,4, 25000, 1511,10, 5123,15, 1030,10 ,1029,15 );
// Case 4: ChainedQuest( 7227,10, 30000, 4318,1, 4419,1, 4276,1 ,639,10 ,968,50 );
// Case 5: ChainedQuest(....);
// Case 6: ChainedQuest(....);
default:
mes "Congratulation ,You have finished all the Quest i gave you, you may Re-Do if you want.";
set getd( Quest+strnpcinfo(2) ),0;
close;
}
OnPCLoadMapEvent:
showevent 1,0;
end;
function ChainedQuest {
for( set .@i,3; getarg( .@i,0 ) != 0 ; set .@i,.@i + 2 ){
if( countitem( getarg( .@i ) ) < ( getarg( .@i + 1 )) ){
mes "[ ^FF0000Part "+( getd( Quest+strnpcinfo(2) ) + 1 )+"^000000 ]";
mes "^00FF00_______________________________^000000";
mes "^FF0000Reward^000000 : "+getarg(1)+" x ^0000FF"+getitemname( getarg(0) )+"^000000";
mes "^00FF00_______________________________^000000";
mes "then bring me those items :";
mes "^00FF00_______________________________^000000";
mes ( Zeny < getarg(2) ? "^FF0000":"^0000FF" )+getarg(2)+" Zeny^000000";
for( set .@a,3; getarg( .@a,0 ) != 0 ; set .@a,.@a + 2 ){
mes (( countitem(getarg( .@a )) < ( getarg(.@a + 1 )) )? "^FF0000[ "+countitem(getarg(.@a))+" / "+(getarg(.@a+1)):"^0000FF[ "+getd( Quest+strnpcinfo(2) ) )+" ] "+getitemname(getarg(.@a))+"^000000 ";
}
close;
}
}
if( Zeny < getarg( 2 ) ){
mes "You required "+getarg( 2 )+" Zeny.";
close;
}
mes "[ ^FF0000Part "+( getd( Quest+strnpcinfo(2) ) + 1 )+"^000000 ]";
mes "Look's like you have collected all";
mes "^FF0000_______________________________^000000";
mes ( Zeny < getarg(2) ? "^FF0000":"^0000FF" )+getarg(2)+" Zeny^000000";
for( set .@i,3; getarg( .@i,0 ) != 0 ; set .@i,.@i + 2 ){
mes "^FF0000"+getarg( .@i+1 )+" x ^0000FF "+getitemname( getarg( .@i ) )+"^000000";
}
next;
if( select("^0000FFContinue^000000:Cancel") == 2 ){
mes "Okay..as you wish ~ come back again when you do continue it.";
close;
}
for( set .@i,3; getarg( .@i,0 ) != 0 ; set .@i,.@i + 2 ){
delitem getarg( .@i ),getarg( .@i + 1 );
}
set Zeny,Zeny - getarg( 2 );
set getd( Quest+strnpcinfo(2) ),getd( Quest+strnpcinfo(2) ) + 1;
mes "You will be rewarded with ";
mes "^0000FF_______________________________^000000";
mes "^FF0000"+getarg(1)+"^000000 x ^0000FF"+getitemname( getarg(0) )+"^000000";
mes "^0000FF_______________________________^000000";
getitem getarg(0),getarg(1);
close;
}
}
prontera mapflag loadevent
// Made by MoonlightRO
// Source: http://www.eathena.w...howtopic=251759
// Don't take my creation as your own >.>
prontera,144,178,5 script Coin Trader 860,{
cutin "kafra_08",2;
mes "[ ^336699Coin Master^000000 ]";
mes "What do you want to do today?";
menu "Coins -> Zeny",L_Coins,"Zeny -> Coins",L_Zeny,"Gold -> Mithril",L_Gold,"Mithril - > Credit",L_Credit,"Nevermind",L_No;
L_Coins:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "Very well. Here is the list on how much each coin is worth:";
mes "^996633Bronze Coin^000000: 1,000,000m Zeny";
mes "^666666Silver Coin^000000: 10,000,000m Zeny";
mes "^FFFF66Gold Coin^000000: 25,000,000m Zeny";
mes "^99CCCCMithril Coin^000000: 200,000,000m Zeny";
mes "Tell me, what coin would you like to exchange?";
next;
menu "^996633Bronze Coin^000000",M_Bronze,"^666666Silver Coin^000000",M_Silver,"^FFFF66Gold Coin^000000",M_Gold,"^99CCCCMithril Coin^000000",M_Mithril;
M_Bronze:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like to give up?";
set @mamount,0;
input @mamount;
if (@mamount < 0) goto L_No;
if (countitem(673) < @mamount) goto L_No;
set Zeny,(zeny + (1000000* @mamount));
delitem 673,@mamount;
goto L_Thanks;
M_Silver:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like to give up?";
set @mamount,0;
input @mamount;
if (@mamount < 0) goto L_No;
if (countitem(675) < @mamount) goto L_No;
set Zeny,(zeny + (10000000* @mamount));
delitem 675,@mamount;
goto L_Thanks;
M_Gold:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like to give up?";
set @mamount,0;
input @mamount;
if (@mamount < 0) goto L_No;
if (countitem(671) < @mamount) goto L_No;
set Zeny,(zeny + (25000000* @mamount));
delitem 671,@mamount;
goto L_Thanks;
M_Mithril:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like to give up?";
set @mamount,0;
input @mamount;
if (@mamount < 0) goto L_No;
if (countitem(674) < @mamount) goto L_No;
set Zeny,(zeny + (200000000* @mamount));
delitem 674,@mamount;
goto L_Thanks;
L_Zeny:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "Very well. Here is the list on how much each coin is worth:";
mes "^996633Bronze Coin^000000: 1,000,000m Zeny";
mes "^666666Silver Coin^000000: 10,000,000m Zeny";
mes "^FFFF66Gold Coin^000000: 25,000,000m Zeny";
mes "^99CCCCMithril Coin^000000: 200,000,000m Zeny";
mes "Tell me, what coin would you like to get?";
next;
menu "^996633Bronze Coin^000000",M_Bronze1,"^666666Silver Coin^000000",M_Silver1,"^FFFF66Gold Coin^000000",M_Gold1,"^99CCCCMithril Coin^000000",M_Mithril1;
M_Bronze1:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like?";
set @mamount,0;
input @mamount;
if (zeny < 0) goto L_No;
if (zeny < (1000000* @mamount)) goto L_No;
set Zeny,(zeny - (1000000* @mamount));
getitem 673,@mamount;
goto L_Thanks;
M_Silver1:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like?";
set @mamount,0;
input @mamount;
if (zeny < 0) goto L_No;
if (zeny < (10000000* @mamount)) goto L_No;
set Zeny,(zeny - (10000000* @mamount));
getitem 675,@mamount;
goto L_Thanks;
M_Gold1:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like?";
set @mamount,0;
input @mamount;
if (zeny < 0) goto L_No;
if (zeny < (25000000* @mamount)) goto L_No;
set Zeny,(zeny - (25000000* @mamount));
getitem 671,@mamount;
goto L_Thanks;
M_Mithril1:
next;
mes "[ ^336699Coin Master^000000 ]";
mes "How many coins would you like?";
set @mamount,0;
input @mamount;
if (zeny < 0) goto L_No;
if (zeny < (200000000* @mamount)) goto L_No;
set Zeny,(zeny - (200000000* @mamount));
getitem 674,@mamount;
goto L_Thanks;
L_Gold:
mes "[ ^336699Gold Master^000000 ]";
mes "2000 Gold for 1 mithril Coin?";
next;
mes "[Gold Trader]";
mes "Are you willing to make a trade?";
next;
menu "Yes",-,"No",L_No;
if(countitem(969) < 2000) goto L_NOTENOUGH;
delitem 969,2000;
getitem 674,1;
goto L_Thanks;
L_Credit:
mes "[ ^336699Mithrill Master^000000 ]";
mes "5 Mithril Coin for 1 Credit?";
next;
mes "[Mithrill]";
mes "Are you willing to make a trade?";
next;
menu "Yes",-,"No",L_No;
if(countitem(674) < 5) goto L_NOTENOUGH;
delitem 674,5;
getitem 20078,1;
goto L_Thanks;
L_NOTENOUGH:
mes "[Coin Trader]";
mes "You are lacking a few items, please return when you have them.";
close;
L_Thanks:
mes "[ ^336699Coin Master^000000 ]";
mes "Pleasure doing business with you.";
close2;
cutin "", 255;
close;
L_No:
mes "[ ^336699Coin Master^000000 ]";
mes "Okay~ Bye!";
close2;
cutin "", 255;
close;
}
//==============================================================================//
//=[script Release : Credit Exchanger]
//=[Easy Modification]
//============================================================================//
//=[script : DaemonSpade]
//==============================================================================//
//=[idea Came From : DaemonSpade]
//=[special Thanks to : Emistry]
//==============================================================================//
//= Description
//==============================================================================//
//=1. This Script Has Capacity Exchange
//= Zeny Capacity is 2,000,000,000z
//=A.Non Zeny Eater
//=B.Zeny/Credit Limiter Make it Exact
//=Example A: You Have 2b Zeny & You Exchange a Coin/Credit
//= The NPC Will Ask You Agian How Many Credits or Zeny You Will Exchanged
//=Example B: It Reads Your Zeny so The NPC Know The Max of Credit You Can Exchange Dont Put Wrong Ammount of Credit/Coin
//= The NPC Will Ask You Agian How Many Credits or Zeny You Will Exchanged
//==============================================================================//
//= Rules for using this script
//=1. Do not claim it as yours.
//=2. Do not change the credits.
//=3. Do not sell the script to earn money.
//==============================================================================//
prontera,140,182,5 script Credit Exchanger 416,{
//====================================[Customization Area]==========================//
set .npcname$,"^0000EE[Credit Exchanger]^000000"; //NPC Name
set .coinname$,"^0000EECredit^000000"; //Name of Item as Coin Used
set .CoinID,20078; // Credit ID Set to Credit
set .zeny,1000000000; // Credit Price Set by 1,000,000,000 or 1b
set .capzeny,1000000000; //Zeny Capacity Set by 1,000,000,000 or 1b
//==============================================================================//
// Check Line 89 To Edit The Chat/Pub Name Like This:
// waitingroom "Credit Exchanger",0;
//==============================================================================//
PlayerMode:
mes .npcname$;
mes "Hello there "+strcharinfo(0);
mes "Rule's Of Exchange";
mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]";
mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]";
switch(select("(Credits) to (Zeny):(Zeny) to (Credits)")) {
Case 1:
next;
mes .npcname$;
mes "How many Credits to exchange?";
mes "Put The Credit Amount";
mes "Put ^0000EE[0]^000000 to Cancel";
mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]";
mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]";
next;
do{
input @Credit,0,countitem(.CoinID);
if( @Credit < 1 ) close;
}while( ( ( @Credit * .zeny ) + Zeny ) > .capzeny );
next;
mes .npcname$;
mes "Thanks";
delitem .CoinID,@Credit;
set Zeny, Zeny + ( @Credit * .zeny );
dispbottom "Zeny Exchange Finished";
close;
Case 2:
next;
mes .npcname$;
mes "How much Credit you like to Gain?";
mes "Put The Credit Amount";
mes "Put ^0000EE[0]^000000 to Cancel";
mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]";
mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]";
next;
input @Credit,0,( Zeny / .zeny );
if( @Credit < 1 ) close;
next;
mes .npcname$;
mes "Thanks.";
set Zeny, Zeny - ( @Credit * .zeny);
getitem .CoinID,@Credit;
dispbottom "Credit Exchange Finished";
close;
OnInit:
waitingroom "Credit Exchanger",0;
end;
}
close;
}
//===== eAthena Script =======================================
//= Valhallen items Quests NPC
//===== By: ==================================================
//= Avaji
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
//= Custom quest, ingredients based on official RO FAQ
//============================================================
ayothaya,160,159,5 script Cedie 452,{
mes "[Lenneth]";
mes "I come from Valhalla to aid you.";
mes "I can transmute for you many of the Valhallen items.";
mes "Although they require many rare elements to make.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "Fireywing",-,"GreatEvilWing",L_BRW,"GargoyleWing",L_GRE,"Dragon Wing",L_RAN,"Lessergargoylewing",L_RDD,"VampireWing",L_WHY;
mes "[Lenneth]";
mes "^3355FFFirey Wing^000000 Effect";
mes "Reduced damage taken from holy property by 10%";
mes "Str +5, Atk +5";
mes "I need the following essences:";
mes "50 ^3355FFEye of Hellion^000000";
mes "50 ^3355FFRune of Darkness^000000";
mes "50 ^3355FFRed Bijou^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[Lenneth]";
mes "Do you desire ^3355FFFirey Wing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7337) < 50 || countitem(7511) < 50 || countitem(7447) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7337,50;
delitem 7511,50;
delitem 7447,50;
delitem 7729,50;
getitem 20005,1;
mes "[Lenneth]";
mes "Here is your ^3355FFFirey Wing^000000, may it serve you well.";
announce "Wowowow "+strcharinfo(0)+" has just created the mystical Firey Wing.",8;
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFGreat Evil Wing^000000 Effect";
mes "Reduced damage taken from Demihuman by 8%";
mes "Max Hp +5%";
mes "I also need the following essences:";
mes "50 ^3355FFEye of Hellion^000000";
mes "500 ^3355FFOil Paper^000000";
mes "10 ^3355FFOld Hilt^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFGreat Evil Wing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7337) < 50 || countitem(7151) < 500 || countitem(7022) < 10 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7337,50;
delitem 7151,500;
delitem 7022,10;
delitem 7729,50;
getitem 20007,1;
mes "[briton]";
mes "Here is your ^3355FFGreat Evil Wing^000000, may they help you.";
announce "Wowowow "+strcharinfo(0)+" has just created the mystical Great Evil Wing.",8;
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFGargoyleWing^000000 Effect";
mes "Dex +5";
mes "Hit +10";
mes "I also need the following essences:";
mes "50 ^3355FFEye of Hellion^000000";
mes "100 ^3355FFOgre Tooth^000000";
mes "10 ^3355FFPyroxene^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFGargoyle Wing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7337) < 50 || countitem(7002) < 100 || countitem(7296) < 10 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7337,50;
delitem 7002,100;
delitem 7296,10;
delitem 7729,50;
getitem 20006,1;
mes "[briton]";
mes "Here is ^3355FFGargoyle Wing^000000, may it serve you well.";
announce "Wowowow "+strcharinfo(0)+" has just created the mystical Gargoyle Wing.",8;
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFDragon Wing^000000 Effect";
mes "Increase damage on Demihuman by 5%";
mes "All stats +1";
mes "I also need the following essences:";
mes "50 ^3355FFEye of Hellion^000000";
mes "200 ^3355FFRed Muffler^000000";
mes "100 ^3355FFPiece of Black Cloth^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFDragon Wing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7337) < 50 || countitem(7216) < 200 || countitem(7205) < 100 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7337,50;
delitem 7216,200;
delitem 7205,100;
delitem 7729,50;
getitem 20003,1;
mes "[briton]";
mes "Here is your ^3355FFDragon Wing^000000, may they help you.";
announce "Wowowow "+strcharinfo(0)+" has just created the mystical Dragon Wing.",8;
close;
L_RDD:
mes "[Lenneth]";
mes "^3355FFLessergargoylewing^000000 Effect";
mes "All stats +5";
mes "Autocasting stone when attacking by 5%";
mes "I also need the following essences:";
mes "50 ^3355FFEye of Hellion^000000";
mes "100 ^3355FFBlack Cat Doll^000000";
mes "100 ^3355FFToxic Gas ^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFLessergargoylewing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7337) < 50 || countitem(7206) < 100 || countitem(7322) < 100 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7337,50;
delitem 7206,100;
delitem 7322,100;
delitem 7729,50;
getitem 20009,1;
mes "[briton]";
mes "Here is your ^3355FFLessergargoylewing^000000, may they help you.";
announce "Wowowow "+strcharinfo(0)+" has just created the mystical Lessergargoylewing.",8;
close;
L_WHY:
mes "[Lenneth]";
mes "^3355FFVampireWing^000000 Effect";
mes "Increase Damage on Demihuman by 10%";
mes "Str +5";
mes "Wind Property";
mes "I also need the following essences:";
mes "50 ^3355FFEye of Hellion^000000";
mes "1 ^3355FFDragon Wing^000000";
mes "10 ^3355FFYoung Twig^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFVampireWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7337) < 50 || countitem(20003) < 1 || countitem(7018) < 10 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7337,50;
delitem 20003,1;
delitem 7018,10;
delitem 7729,50;
getitem 20011,1;
mes "[briton]";
mes "Here is your ^3355FFVampireWing^000000, may they help you.";
announce "Wowowow "+strcharinfo(0)+" has just created the mystical VampireWing.",8;
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
close;
L_OUT:
mes "[Lenneth]";
mes "Please return when you change your mind.";
close;
OnInit:
waitingroom "Wings",0;
end;
}
//===== eAthena Script =======================================
//= Valhallen items Quests NPC
//===== By: ==================================================
//= Avaji
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
//= Custom quest, ingredients based on official RO FAQ
//============================================================
ayothaya,153,173,5 script Donate Aura 853,{
mes "[Lenneth]";
mes "I come from Federal World to Show you some items.";
mes "This is a Donate Headgear.";
mes "It Required Proof of Donation.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "(10pods)Hollow Mask",-,"(5pods)Lhz Aura",L_BRW,"(5pods)Robot Ears",L_GRE,"(5pods)Flame Aura",L_RAN;
mes "[Lenneth]";
mes "^3355FFHollow Mask^000000 Effects";
mes "All Stats +3";
mes "Auto casting level 2 ^3355FFHell of Judgement^000000";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFHollow Mask^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20072,1;
mes "[Lenneth]";
mes "Here is your ^3355FFHollow Mask^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Hollow Mask) on Donation Manager.",9;
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFLhz Aura^000000 Effects";
mes "Reduced Damage Taken from Demihuman by 10%";
mes "All Stats +2";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFLhz Aura^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20040,1;
mes "[briton]";
mes "Here is your ^3355FFLhz Aura^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Lhz Aura) on Donation Manager.",9;
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFRobot Ears^000000 Effects";
mes "Increase Damage on DemiHuman by 10%";
mes "Allstats +2";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFRobot Ears^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20047,1;
mes "[briton]";
mes "Here is ^3355FFRobot Ears^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Robot Ears) on Donation Manager.",9;
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFFlame Aura^000000 Effects";
mes "Matk +10%";
mes "Reduced Skill Delay by 10%";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFFlame Aura^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20068,1;
mes "[briton]";
mes "Here is your ^3355FFFlame Aura^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Flame Aura) on Donation Manager.",9;
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
close;
L_OUT:
mes "[Lenneth]";
mes "Please return when you change your mind.";
close;
OnInit:
waitingroom "20% OFF until March29",0;
end;
}
//===== eAthena Script =======================================
//= Valhallen items Quests NPC
//===== By: ==================================================
//= Avaji
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
//= Custom quest, ingredients based on official RO FAQ
//============================================================
ayothaya,160,150,5 script Theris 901,{
mes "[Lenneth]";
mes "I come from Valhalla to aid you.";
mes "I can transmute for you many of the Valhallen items.";
mes "Although they require many rare elements to make.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "Valkyrie Helm",-,"Hokage",L_BRW,"Travelers Hat",L_GRE,"Kakashi Mask",L_RAN,"Black Dowry",L_RDD;
mes "[Lenneth]";
mes "^3355FFValkyrie Helm^000000 Effect";
mes "8% reduction against demihuman";
mes "Str and Dex +2";
mes "I need the following essences:";
mes "1 ^3355FFSnow Crystal^000000";
mes "20 ^3355FFMithrill Coin^000000";
mes "5 ^3355FFUnion Tribe^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[Lenneth]";
mes "Do you desire ^3355FFValkyrie Helm^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7088) < 1 || countitem(674) < 20 || countitem(658) < 5 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7088,1;
delitem 674,20;
delitem 658,5;
delitem 7729,50;
getitem 20025,1;
mes "[Lenneth]";
mes "Here is your ^3355FFValkyrie Helm^000000, may it serve you well.";
announce "WoW "+strcharinfo(0)+" has just created the mystical Valkyrie Helm.",8;
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFHokage^000000 Effect";
mes "Reduced damage taken from fire property but";
mes "receive more damage on water property";
mes "Str +20";
mes "I also need the following essences:";
mes "1 ^3355FFDrifting Air^000000";
mes "20 ^3355FFMithrill Coin^000000";
mes "5 ^3355FFUnion Tribe^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFHokage^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7092) < 1 || countitem(674) < 20 || countitem(658) < 5 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7092,1;
delitem 674,20;
delitem 658,5;
delitem 7729,50;
getitem 20053,1;
mes "[briton]";
mes "Here is your ^3355FFHokage^000000, may they help you.";
announce "WoW "+strcharinfo(0)+" has just created the mystical Hokage.",8;
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFTravelers Hat^000000 Effect";
mes "10% more damage on critical attack";
mes "Luk +10";
mes "I also need the following essences:";
mes "1 ^3355FFOmen of Tempest^000000";
mes "20 ^3355FFMithrill Coin^000000";
mes "5 ^3355FFUnion Tribe^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFTravelers Hat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7089) < 1 || countitem(674) < 20 || countitem(658) < 5 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7089,1;
delitem 674,20;
delitem 658,5;
delitem 7729,50;
getitem 20042,1;
mes "[briton]";
mes "Here is ^3355FFTravelers Hat^000000, may it serve you well.";
announce "WoW "+strcharinfo(0)+" has just created the mystical Travelers Hat.",8;
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFKakashi Mask^000000 Effect";
mes "Agi +10";
mes "Flee +10";
mes "I also need the following essences:";
mes "1 ^3355FFBillow^000000";
mes "20 ^3355FFMithrill Coin^000000";
mes "5 ^3355FFUnion of Tribe^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFKakashi Mask^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7091) < 1 || countitem(674) < 20 || countitem(658) < 5 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7091,1;
delitem 674,20;
delitem 658,5;
delitem 7729,50;
getitem 20045,1;
mes "[briton]";
mes "Here is your ^3355FFKakashi Mask^000000, may they help you.";
announce "WoW "+strcharinfo(0)+" has just created the mystical Kakashi Mask.",8;
close;
L_RDD:
mes "[Lenneth]";
mes "^3355FFBlack Dowry^000000 Effect";
mes "Dex +10";
mes "Hit +10";
mes "I also need the following essences:";
mes "1 ^3355FFEmblem of Sun God^000000";
mes "20 ^3355FFMithrill Coin^000000";
mes "5 ^3355FFUnion Tribe^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFBlack Dowry^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7086) < 1 || countitem(674) < 20 || countitem(658) < 5 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7086,1;
delitem 674,20;
delitem 658,5;
delitem 7729,50;
getitem 20043,1;
mes "[briton]";
mes "Here is your ^3355FFBlack Dowry^000000, may they help you.";
announce "WoW "+strcharinfo(0)+" has just created the mystical Black Dowry Hat.",8;
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
close;
L_OUT:
mes "[Lenneth]";
mes "Please return when you change your mind.";
close;
OnInit:
waitingroom "Mystical Headgear",0;
end;
}
//===== eAthena Script =======================================
//= Valhallen items Quests NPC
//===== By: ==================================================
//= Avaji
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
//= Custom quest, ingredients based on official RO FAQ
//============================================================
ayothaya,145,173,5 script Donate Headgear 853,{
mes "[Lenneth]";
mes "I come from Federal World to Show you some items.";
mes "This is a Donate Headgear.";
mes "It Required Proof of Donation.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "(10pods)EvilDruidHat",-,"(10pods)HelmOfPower",L_BRW,"(10pods)FallenBishop",L_GRE,"(5pods)BlackPiamette",L_RAN,"(5pods)DanzoBandage",L_RDD,"(5pods)JudgementHelm",L_WHY,"(5pods)RedDowryHat",L_SIL;
mes "[Lenneth]";
mes "^3355FFEvil Druid Hat^000000 Effects";
mes "Atk +10%";
mes "Autocasting lvl 2 Provoke on user when receive physical damage";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFEvilDruidHat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20075,1;
mes "[Lenneth]";
mes "Here is your ^3355FFEvilDruidHat^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Evil Druid Hat) on Donation Manager.",9;
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFHelm Of Power^000000 Effects";
mes "Auto casting lvl 2 Power Up";
mes "Sniper Job Only";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFHelm Of Power^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20076,1;
mes "[briton]";
mes "Here is your ^3355FFHelm Of Power^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Helm Of Power) on Donation Manager.",9;
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFFallen Bishop Hat^000000 Effects";
mes "Reduced damage from DemiHuman by 15%";
mes "Autocasting Wide Stone Curse";
mes "All Stats +3";
mes "Requirements";
mes "10pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFFallen Bishop Hat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 10) goto L_NOTENOUGH;
delitem 7179,10;
getitem 20074,1;
mes "[briton]";
mes "Here is ^3355FFFallen Bishop Hat^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Fallen Bishop Hat) on Donation Manager.",9;
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFBlack Piamette^000000 Effects";
mes "Reduced Skill Delay by 5%";
mes "Merchant Class - Int +10";
mes "Mage Class - Matk +10%";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFBlack Piamette^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20055,1;
mes "[briton]";
mes "Here is your ^3355FFOrangeBlack Piamette^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Black Piamette) on Donation Manager.",9;
close;
L_RDD:
mes "[Lenneth]";
mes "^3355FFDanzo Bandage^000000 Effects";
mes "Increase Physical Attack by 10%";
mes "Str +10";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFDanzo Bandage^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20046,1;
mes "[briton]";
mes "Here is your ^3355FFDanzo Bandage^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Danzo Bandage) on Donation Manager.",9;
close;
L_WHY:
mes "[Lenneth]";
mes "^3355FFJudgement Helm^000000 Effects";
mes "Reduced Damage taken from demihuman by 5%";
mes "Increase Damage on Demihuman by 5%";
mes "If Equip With Heaven And Hell Wing";
mes "Additional 10% MaxHp";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFJudgement Helm^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20067,1;
mes "[briton]";
mes "Here is your ^3355FFJudgement Helm^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Judgement Helm) on Donation Manager.",9;
close;
L_SIL:
mes "[Lenneth]";
mes "^3355FFRed Dowry Hat^000000 Effects";
mes "Stalker Job";
mes "Increase Damage of Double strife skill by 10%";
mes "Sniper Job";
mes "Increase Damage of SharpShooting Skill by 10%";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFRed Dowry Hat^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 20044,1;
mes "[briton]";
mes "Here is your ^3355FFRed Dowry Hat^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Red Dowry Hat) on Donation Manager.",9;
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
close;
L_OUT:
mes "[Lenneth]";
mes "Please return when you change your mind.";
close;
OnInit:
waitingroom "20% OFF until March29",0;
end;
}
//===== eAthena Script =======================================
//= Valhallen items Quests NPC
//===== By: ==================================================
//= Avaji
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
//= Custom quest, ingredients based on official RO FAQ
//============================================================
ayothaya,160,155,5 script Lenneth 453,{
mes "[Lenneth]";
mes "I come from Valhalla to aid you.";
mes "I can transmute for you many of the Valhallen items.";
mes "Although they require many rare elements to make.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "Bluefairywing",-,"Brownfairywing",L_BRW,"Greenfairywing",L_GRE,"Orangefairywing",L_RAN,"Redfairywing",L_RDD,"Whitefairywing",L_WHY,"Silverfairywing",L_SIL;
mes "[Lenneth]";
mes "^3355FFBlue Fairy Wing^000000 Effect";
mes "Agi +10";
mes "20% Movementspeed";
mes "I need the following essences:";
mes "300 ^3355FFMoth Wings^000000";
mes "100 ^3355FFFabric^000000";
mes "50 ^3355FFAquamarine^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[Lenneth]";
mes "Do you desire ^3355FFBluefairywing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(1058) < 300 || countitem(1059) < 100 || countitem(720) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 1058,300;
delitem 1059,100;
delitem 720,50;
delitem 7729,50;
getitem 20029,1;
mes "[Lenneth]";
mes "Here is your ^3355FFBluefairywing^000000, may it serve you well.";
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFBrownfairywing^000000 Effect";
mes "Luk +10";
mes "20% Movementspeed";
mes "I also need the following essences:";
mes "300 ^3355FFMushroom Spore^000000";
mes "100 ^3355FFFabric^000000";
mes "50 ^3355FFRotten Bandage^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFBrownfairyWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(921) < 300 || countitem(1059) < 100 || countitem(930) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 921,300;
delitem 1059,100;
delitem 930,50;
delitem 7729,50;
getitem 20030,1;
mes "[briton]";
mes "Here is your ^3355FFBrownFairyWing^000000, may they help you.";
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFGreenfairyWing^000000 Effect";
mes "Int +10";
mes "20% Movementspeed";
mes "I also need the following essences:";
mes "300 ^3355FFFeather^000000";
mes "100 ^3355FFFabric^000000";
mes "50 ^3355FFGolden Ornament^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFGreenfairyWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(949) < 300 || countitem(1059) < 100 || countitem(7435) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 949,300;
delitem 1059,100;
delitem 7435,50;
delitem 7729,50;
getitem 20033,1;
mes "[briton]";
mes "Here is ^3355FFGreenfairyWing^000000, may it serve you well.";
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFOrangefairywing^000000 Effect";
mes "Str +10";
mes "Increase Damage on holy property by 5%";
mes "I also need the following essences:";
mes "300 ^3355FFJellopy^000000";
mes "100 ^3355FFGreen Live^000000";
mes "50 ^3355FFClover^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFOrangefairyWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(909) < 300 || countitem(993) < 100 || countitem(705) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 909,300;
delitem 993,100;
delitem 705,50;
delitem 7729,50;
getitem 20034,1;
mes "[briton]";
mes "Here is your ^3355FFOrangeFairyWing^000000, may they help you.";
close;
L_RDD:
mes "[Lenneth]";
mes "^3355FFRedfairywing^000000 Effect";
mes "Vit +10";
mes "20% Movementspeed";
mes "I also need the following essences:";
mes "300 ^3355FFSardonyx^000000";
mes "100 ^3355FFHard Feeler^000000";
mes "50 ^3355FFHarpy Feather^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFRedfairyWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(725) < 300 || countitem(7163) < 100 || countitem(7115) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 725,300;
delitem 7163,100;
delitem 7115,50;
delitem 7729,50;
getitem 20037,1;
mes "[briton]";
mes "Here is your ^3355FFRedFairyWing^000000, may they help you.";
close;
L_WHY:
mes "[Lenneth]";
mes "^3355FFWhitefairywing^000000 Effect";
mes "Dex +10";
mes "20% Movementspeed";
mes "I also need the following essences:";
mes "300 ^3355FFOpal^000000";
mes "100 ^3355FFClam Shell^000000";
mes "50 ^3355FFClaw of Rat^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFWhitefairyWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(727) < 300 || countitem(965) < 100 || countitem(7007) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 727,300;
delitem 965,100;
delitem 7007,50;
delitem 7729,50;
getitem 20039,1;
mes "[briton]";
mes "Here is your ^3355FFWhiteFairyWing^000000, may they help you.";
close;
L_SIL:
mes "[Lenneth]";
mes "^3355FFSilverfairywing^000000 Effect";
mes "Str +10";
mes "20% Movementspeed";
mes "I also need the following essences:";
mes "300 ^3355FFClattering Skull^000000";
mes "100 ^3355FFPointed Scale^000000";
mes "50 ^3355FFCobweb^000000";
mes "50 ^3355FFRok Star Badge^000000";
next;
mes "[briton]";
mes "Do you desire ^3355FFSilverfairyWing^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7752) < 300 || countitem(906) < 100 || countitem(1025) < 50 || countitem(7729) < 50) goto L_NOTENOUGH;
delitem 7752,300;
delitem 906,100;
delitem 1025,50;
delitem 7729,50;
getitem 20038,1;
mes "[briton]";
mes "Here is your ^3355FFSilverFairyWing^000000, may they help you.";
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
close;
L_OUT:
mes "[Lenneth]";
mes "Please return when you change your mind.";
close;
OnInit:
waitingroom "Fairy Wing",0;
end;
}
//===== eAthena Script =======================================
//= Valhallen items Quests NPC
//===== By: ==================================================
//= Avaji
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
//= Custom quest, ingredients based on official RO FAQ
//============================================================
ayothaya,157,173,5 script Lhz Cards 853,{
mes "[Lenneth]";
mes "I come from Federal World to Show you some items.";
mes "This is a Donate Lhz Cards.";
mes "It Required Proof of Donation.";
next;
mes "[Lenneth]";
mes "What would you like?";
next;
menu "(5pods)Assasin Cross",-,"(5pods)Lord Knight",L_BRW,"(5pods)Whitesmith",L_GRE,"(5pods)High Wizard",L_RAN,"(5pods)High Priest",L_RDD;
mes "[Lenneth]";
mes "^3355FFAssasin Cross Card^000000 Effects";
mes "Autocasting Level 1 Enchant Deadly Poison";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFAssasin Cross Card^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 4359,1;
mes "[Lenneth]";
mes "Here is your ^3355FFAssasin Cross Card^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Assasin Cross Card) on Donation Manager.",9;
close;
L_BRW:
mes "[Lenneth]";
mes "^3355FFLord Knight Card^000000 Effects";
mes "Enable to Use Level 1 ^3355FFBerserk^000000";
mes "-25% HP";
mes "10% more damage on ^3355FFSpearBoomerang Skill^000000";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFLord Knight Card^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 4357,1;
mes "[briton]";
mes "Here is your ^3355FFLord Knight Card^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (Lord Knight Card) on Donation Manager.",9;
close;
L_GRE:
mes "[Lenneth]";
mes "^3355FFWhitesmith Card^000000 Effects";
mes "Add 10% chance of Breaking Enemys Weapon, 7% on Breaking the Armor When Attacking";
mes "Enable to use level 1 ^3355FFMaximum Overthrust^000000 On user";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFWhitesmith Card^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 4361,1;
mes "[briton]";
mes "Here is ^3355FFWhitesmith Card^000000, may it serve you well.";
announce "Wow "+strcharinfo(0)+" has Purchased (Whitesmith Card) on Donation Manager.",9;
close;
L_RAN:
mes "[Lenneth]";
mes "^3355FFHigh Wizard Card^000000 Effects";
mes "Detect Hidden Enemies";
mes "-atk and -matk by 10% ";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFHigh Wizard Card^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 4365,1;
mes "[briton]";
mes "Here is your ^3355FFOrangeHigh Wizard Card^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (High Wizard Card) on Donation Manager.",9;
close;
L_RDD:
mes "[Lenneth]";
mes "^3355FFHigh Priest Card^000000 Effects";
mes "Every time you receive a Magical or a Physical Damage, small chance to auto-spell Level 1 ^3355FFAssumptio^000000 on yourself";
mes "Requirements";
mes "5pcs ^3355FFProof of Donation^000000";
next;
mes "[Lenneth]";
mes "Are you going to donate ^3355FFHigh Priest Card^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7179) < 5) goto L_NOTENOUGH;
delitem 7179,5;
getitem 4363,1;
mes "[briton]";
mes "Here is your ^3355FFHigh Priest Card^000000, may they help you.";
announce "Wow "+strcharinfo(0)+" has Purchased (High Priest Card) on Donation Manager.",9;
close;
L_NOTENOUGH:
mes "[Lenneth]";
mes "You are lacking a few items, please return when you have them.";
close;
L_OUT:
mes "[Lenneth]";
mes "Please return when you change your mind.";
close;
OnInit:
waitingroom "20% OFF until March29",0;
end;
}
splendide.gat,208,193,5 script Event Random 757,{
setarray .@items[0],20,5738,20,5443,25,2294,33,5509,50,5150,100,5426;
setarray .@items_announce[0],5738,5150;
set .@item_required,20078;
mes "Do you want to use your "+getitemname( .@item_required )+" to try and get something awesome?"; next;
if( select("- Yes:- No")-1 ) close;
if( !countitem( .@item_required ) ){
mes "You don't have any "+getitemname( .@item_required )+".";
mes "Please come back soon, if you have already them";
} else {
delitem .@item_required,1;
for(set .@a,0; .@a < getarraysize(.@items); set .@a,.@a+2){
if(rand(.@items[.@a])==1){
getitem (.@items[.@a+1]),1;
mes "Congratulations!";
for(set .@b,0; .@b < getarraysize(.@items); set .@b,.@b+1){
if(.@items[.@a+1]==.@items_announce[.@b]) { announce "[Event Random]: Player " + strcharinfo(0) +", has obtain "+ ((.@items[.@a]>=50)?"Low":"High") +" "+getitemname( .@items[.@a+1] )+" with ["+ (100/.@items[.@a]) +"%] Chance.",bc_all,0xBA55D3; }
}
specialeffect 154;
close;
}
}
specialeffect 155;
mes "lt's failed, sorry.";
}
close;
}
// REPAIRMAN
prontera,149,187,4 script Repairman 826,{
if (getbrokenid(1) != 0) {
while (getbrokenid(1) != 0)
repair 1;
mes "[Repairman]";
mes "Okay! All done. Now, try to be a little more careful. Items have lives too you know.";
close;
} else {
mes "[Repairman]";
mes "Hohoho...";
mes "You don't have";
mes "any business with me";
mes "if you don't have any";
mes "items to repair.";
close;
}
}
[codebox]
Link to comment
Share on other sites
4 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.