Modified iRo Daily Quest

[leertaste]

As the title says:

I modified one of the official iRo Daily Quests: [swab the Deck]

(Scripted by Rikimaru)

 

Here is the script:

//  //     ==    /==/      /==/   /=/    /==/    /==/  /==/  /==/     / /===/  /   /==/         /==/=====/==/
// //       ==  /==/      /==/    /=/   /==/    /==/  /==/  /==/     /========/   /==/         /==///////==/
// ================ rAthena Script ==================================================
// ============== Information =======================================================
// = iRO Daily Quest : Swab the Deck
// = Made by :
// = Rikimaru [Edited by Leertaste]
//===== Current Version: =============================================== 
//= 1.5
//===== Compatible With: =============================================== 
//= any rAthena/eAthena SVN
//===== Description: =================================================== 
//= The iRO Daily Quest : Swab the Deck
//= Usefull for having fun in a Server with a Mini Quest
//= Has a counter of 24 Hours until the Players can do the Quest again.
//===== Additional Comments: =========================================== 
//= 1.3 Finished Scripting all NPC's [Rikimaru]
//= 1.4 Fixed a saved Variable Typo [Rikimaru]
//= 1.5 Modified complete script [Leertaste]
//====================================================================== 
//============== DO NOT REMOVE MY CREDITS AND CLAIM MY WORK AS YOURS ===
alberta,104,60,5	script	[Quest] Rats	748,{
//============================= Settings ==========================
set .@npcname$,"[Quest] Rats";
set .BeadID,6222;
//======================= End =====================================

	mes .@npcname$;
	mes "Hello " + strcharinfo(0) + "";
	mes "What do you want today?";
	next;
	goto h_menu;

h_menu:
	menu "Give me some ^008000Rat Balls^000000", RATBALLS_GO, "Exchange my ^FF0000Mystic Rat Balls^000000", RATBALLS_EXC, "Buy (with ^000088Shiny Beads^000000)", SHINY_USE, "Leave", L_partir;

RATBALLS_GO:
if(gettimetick(2) - #ratballs < (60 * 60 * 24)) {
	mes .@npcname$;
	mes "I'm sorry but you have to wait";
	mes "24 Hours until you can get some";
	mes "^008000Rat Balls^000000 again!";
	next;
	goto h_menu;
}
	mes .@npcname$;
	mes "With these ^008000Rat Balls^000000 you'll have";
	mes "to go to the Alberta Ship.";
	mes "^ffffff_^000000";
	mes "You'll find some rats there...";
	next;
	mes .@npcname$;
	mes "All you have to do is to";
	mes "get the ^008000Rat Balls^000000 to kill those";
	mes "damn Rats... I hate them!";
	next;
	mes .@npcname$;
	mes "Here take this";
	mes "and come back when you've finished..";
	getitem 20247,5;
	set #ratballs,gettimetick(2);
	close;

RATBALLS_EXC:
	if(countitem(20248) == 0){
	mes .@npcname$;
	mes "Sorry but you don't have any";
	mes "^FF0000Mystic Rat Balls^000000 to exchange...";
	mes "Just ask me if you have some...";
	next;
	goto h_menu;
}

	mes .@npcname$;
        mes "So, how many ^FF0000Mystic Rat Balls^000000";
        mes "(You have: ^008000"+(countitem(20248)) +"^000000)";
	mes "do you want to exchange to";
	mes "^000088Shiny Beads^000000?";
	mes "^ffffff_^000000";
	mes "(If you input 0 , you're going to cancel the deal)";
	next;
	input @beadamount;

if(countitem(20248) < @beadamount) goto l_noitem;
if (@beadamount == 0) {
close;
}
	mes .@npcname$;
	mes "Do you really want to exchange:";
	mes ""+ @beadamount +" ^FF0000Mystic Rat Balls^000000";
	mes "for";
	mes ""+ @beadamount +" ^000088Shiny Beads^000000?";
	next;
switch(select("Yes:Change Amount:Back to Menu:Leave")) {

case 1:
	mes .@npcname$;
	mes "Okay converting... ... ...";
	next;
	if(countitem( 20248 ) < @beadamount) goto l_noitem;
	delitem 20248,@beadamount;
	getitem .BeadID,@beadamount;
	set BaseExp,+50000; // Change EXP here
	set JobExp,+40000; // Change EXP here
	goto h_menu;

case 2:
	goto RATBALLS_EXC;

case 3:
	goto h_menu;

case 4:
	goto L_partir;

l_noitem:
	mes .@npcname$;
	mes "I'm sorry, but you don't have";
	mes "the entered amount of";
	mes "^FF0000Mystic Rat Balls^000000 (^FF0000"+ @beadamount +"^000000)!";
	mes "You only have ^008000"+(countitem(20248)) + "^000000!";
	next;
	goto RATBALLS_EXC;
	}

SHINY_USE:
setarray @ItemID[0],5692,5170,5691,5578;   // Items that can be bought
setarray @Cost[0],50,50,50,30;             // Item costs
setarray @itemcount[0],1,1,1,1;            // Amount of getting items when buy
mes .@npcname$;
mes "Hello ["+strcharinfo(0)+"]";
mes "Here you'r going to pay with:";
mes "^000088Shiny Beads^000000!";
mes "Do you want to buy some items?";
next;
	if (select("Yes, sure","No, nevermind!") == 2) 
		goto h_menu;

Buying:
	mes .@npcname$;
	mes "Item = Cost";
	for( set .@i, 0; .@i < getarraysize(@ItemID); set .@i, .@i + 1 ) {
		mes "^0000ff"+@itemcount[.@i]+"x "+getitemname(@ItemID[.@i])+"^000000 = ^00aa00"+@Cost[.@i]+"^000000";
		if( .@i < 1 )
			set .@menu$, getitemname(@ItemID[.@i]);
		else
			set .@menu$, .@menu$+":"+getitemname(@ItemID[.@i]);
	}

	next;
	select(.@menu$);
	set @choice, @menu - 1;

	mes @npcname$;
	if(countitem(.BeadID) <@Cost[@choice]) {
		mes .@npcname$;
		mes "You can't buy this!";
		mes "You'll need more:";
		mes "^000088Shiny Beads^000000 (You have: ^008000"+(countitem(6222)) +"^000000)";
		mes "for:";
		mes "'"+getitemname(@ItemID[@choice])+"' (Costs: ^FF0000"+@Cost[@choice]+"^000000)";
		next;
		goto BUY_MORE;
	}
	mes .@npcname$;
	mes "Are you realy sure to trade";
	mes "'^ff0000"+getitemname(@ItemID[@choice])+"^000000' (Costs: ^008000"+@Cost[@choice]+"^000000)";
	mes "for";
	mes "^00aa00"+@Cost[@choice]+"^000000 ^000088Shiny Beads^000000? (You have: ^008000"+(countitem(6222)) +"^000000)";
	next;
	if(select("No! Cancel!:Yes, trade me!") == 1 ) {
		next;
		goto BUY_MORE;
	}

	set .@new, .BeadID - @Cost[@choice];
	if( .@new < 0 )
		set .@new, 0;
	delitem .BeadID,@Cost[@choice];
	getitem @ItemID[@choice], @itemcount[@choice];
	mes .@npcname$;
	mes "The Trade was succesfull. Have fun with the Item!";
	next;
	goto BUY_MORE;
	close;

BUY_MORE:
	mes .@npcname$;
	mes "Do you want to buy something other?";
	next;
switch(select("Yes:Leave:Back to Menu")) {

case 1:
	goto Buying;

case 2:
	goto L_partir;

case 3:
	goto h_menu;
}

L_partir:
	mes .@npcname$;
	mes "Have a nice day.";
	close;
}

Things you'll need to edit:

 

Server Side

item_db2.txt:

20247,Rat_Ball,Rat Ball,2,0,,0,,,,,0xFFFFFFFF,7,2,,,,,,{ pet 3036; },{},{} // 3036 can be edited
20248,Mystic_Rat_Ball,Mystic Rat Ball,3,0,,0,,,,,,,,,,,,,{},{},{}

IDs can be edited (must be edited in script too)

 

item_trade.txt

20247,75,100
20248,75,100

IDs must be edit as all blue IDs

 

mob_db2.txt

3036,Rat,Rat,Rat,11,284,0,57,28,1,34,45,0,0,1,20,11,10,24,5,10,12,0,2,27,0x91,150,1744,1044,684,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 // Must be same as in item_db2.txt

 

mob_avail.txt

3036,1175,0 // Same as in item and mob db

 

pet_db2.txt

3036,Rat,Rat,20247,20248,0,0,0,0,0,0,0,0,1000,0,0,0,0,0,0,{},{} // 3036 same as in item_db2 mob_db2 und mob_avail

IDs can be edited (must be edited in script and item_db2 too)

 

Custom Mob Spawn:
 

alb_ship,0,0,0,0    monster    Rat    3036,3,1800000,600000,0

 

Client Side

idnum2itemdesctable.txt

20247#
^008000[ Rat Ball ]^000000
A ball which is useful to kill wild rats.
^ffffff_^000000
Weight :^777777 0^000000
#

20248#
^008000[ Mystic Rat Ball ]^000000
Upgraded Rat Ball. Unknown aurora is around the ball.
^ffffff_^000000
Weight :^777777 0^000000
#

 

idnum2itemdisplaynametable.txt

20247#Rat Ball#
20248#Mystic Rat Ball#

 

idnum2itemresnametable.txt

20247#À©µå¿Àºê¹öµà¾î#
20248#·¹µåºí·¯µå#

 

 

Link to the original Script:

 

http://rathena.org/board/topic/61446-rikimarus-iro-official-daily-quests/

Edited March 6, 2013 by leertaste