// Author:
// Crazyfefe
// Caution if you revove items from @Items$ that add void in the array, not sure how to fix that but i don't thing that matter.
// note : the rare item system suck. not sure how to fix it.
001-1,88,116,0 script ishi NPC_PLAYER,{
if (getq(MPQUEST) == 0)
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("[Ishi the Rewards Master]"),
l("\"Hey, it seems like you didn't register as a quest participant yet! You can sign up with Aidan.\"");
close;
}
if (Mobpt < BaseLevel ** 2)
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("[Ishi the Rewards Master]"),
l("\"Welcome! I see you have " + Mobpt + " Monster Points. But isn't enought for get items\"");
close;
}
setarray @Items$, "Bread", "Croconut","Plushroom","RedApple","Beer","Candy","Orange","ChocolateBar","BugLeg","CoinBag","PinkieAntenna","Coal","SnakeSkin","CottonCloth","GrassSeeds","HardSpike","CobaltHerb","GambogeHerb","MauveHerb","IronOre","MaggotSlime","RawLog","ScorpionStinger","SilkCocoon","TreasureKey","FluffyFur","EmptyBottle","RustyKnife","TolchiArrow","Arrow","IronArrow","BlueCottonDye";
.Item1$ = "BrimedHat";
.Item2$ = "IronIngot";
.Item3$ = "BronzeGift"; // should be a event.
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("[Ishi the Rewards Master]"),
l("\"Welcome! I see you have " + Mobpt + " Monster Points. Would you like to exchange some of those for items?\"");
next;
do
{
select
rif(Mobpt >= BaseLevel ** 2,l("1")),
rif(Mobpt >= (BaseLevel ** 2)*2,l("2")),
rif(Mobpt >= (BaseLevel ** 2)*3,l("3")),
rif(Mobpt >= (BaseLevel ** 2)*4,l("4")),
rif(Mobpt >= (BaseLevel ** 2)*5,l("5")),
rif(Mobpt >= (BaseLevel ** 2)*6,l("6")),
rif(Mobpt >= (BaseLevel ** 2)*7,l("7")),
rif(Mobpt >= (BaseLevel ** 2)*8,l("8")),
rif(Mobpt >= (BaseLevel ** 2)*9,l("9")),
rif(Mobpt >= (BaseLevel ** 2)*10,l("10")),
rif(Mobpt >= (BaseLevel ** 2)*11,l("Gimme as many as I deserve!")),
l("Sorry, I have to go now.");
switch (@menu)
{
case 1 :
@var = 1;
goto L_Items;
break;
case 2 :
@var = 2;
goto L_Items;
break;
case 3 :
@var = 3;
goto L_Items;
break;
case 4 :
@var = 4;
goto L_Items;
break;
case 5 :
@var = 5;
goto L_Items;
break;
case 6 :
@var = 6;
goto L_Items;
break;
case 7 :
@var = 7;
goto L_Items;
break;
case 8 :
@var = 8;
goto L_Items;
break;
case 9 :
@var = 9;
goto L_Items;
break;
case 10 :
@var = 10;
goto L_Items;
break;
case 11 :
goto L_Give_all;
break;
default :
goto L_Close;
break;
}
} while (@menu != 12);
closedialog;
goodbye;
close;
L_Close:
@var =0;
@reward ="";
close;
L_LuckyReward1:
mesq l("Wow !");
next;
mesq l("I don't believe.");
next;
mesq l("you get lucky and got a @@", getitemlink(.Item1$));
next;
mesq l("Come back later for more items i' m so suprised");
set Mobpt, Mobpt - BaseLevel ** 2;
getitem .Item1$,1;
close;
L_LuckyReward2:
mesq l("Wow !");
next;
mesq l("I don't believe.");
next;
mesq l("you get lucky and got a @@", getitemlink(.Item2$));
next;
mesq l("Come back later for more items i' m so suprised");
set Mobpt, Mobpt - BaseLevel ** 2;
getitem .Item2$,1;
close;
L_LuckyReward3:
mesq l("Wow !");
next;
mesq l("I don't believe.");
next;
mesq l("you get lucky and got a @@", getitemlink(.Item3$));
next;
mesq l("Come back later for more items i' m so suprised");
set Mobpt, Mobpt - BaseLevel ** 2;
getitem .Item3$,1;
close;
L_Items:
for (.@i = 0; .@i < @var; .@i ++)
{
getinventorylist;
.@weight = checkweight(@Items$,1);
if (.@weight == 0)
goto L_NoPlaceWeight;
if (@inventorylist_count == 100)
goto L_NoPlace;
.@lucky = rand(10000); // 0 - 99999
if (.@lucky >= 0 && .@lucky <= 5000)
goto L_LuckyReward1;
if (.@lucky >= 1 && .@lucky <= 4)
goto L_LuckyReward2;
if (.@lucky >= 5 && .@lucky <= 10)
goto L_LuckyReward3;
set .@reward$, @Items$[rand(getarraysize(@Items$))];
mesq l("You received one @@ !", getitemlink(.@reward$));
set Mobpt, Mobpt - BaseLevel ** 2;
getitem .@reward$,1;
}
close;
L_Continue:
mesq l("You still have @@ Monster Points ! Do you want more items ?", Mobpt);
do
{
select
l("Yes"),
l("No");
switch (@menu)
{
case 1:
goto L_Give_all;
break;
case 2:
goto L_Close;
break;
}
} while (@menu != 2);
L_NoPlace :
mesq l("You seem to run out of place, you should go to the storage.");
close;
L_NoPlaceWeight :
mesq l("You can't carry more items, you should go to the storage.");
close;
L_Give_all:
@var = Mobpt / BaseLevel ** 2;
if (@var > 50) // limite for avoid lag server
@var = 50;
for (.@i = 0; .@i < @var; .@i ++)
{
getinventorylist;
.@weight = checkweight(@Items$,1);
if (.@weight == 0)
goto L_NoPlaceWeight;
if (@inventorylist_count == 100)
goto L_NoPlace;
.@lucky = rand(10000); // 0 - 99999
if (.@lucky == 0)
goto L_LuckyReward1;
if (.@lucky >= 1 && .@lucky <= 4)
goto L_LuckyReward2;
if (.@lucky >= 5 && .@lucky <= 10)
goto L_LuckyReward3;
set .@reward$, @Items$[rand(getarraysize(@Items$))];
mesq l("You received one @@ !", getitemlink(.@reward$));
set Mobpt, Mobpt - BaseLevel ** 2;
getitem .@reward$,1;
}
if (Mobpt / BaseLevel ** 2 > 0)
goto L_Continue;
close;
OnInit:
.sex = G_MALE;
.distance = 3;
end;
}
