Hercules Elf Bot - Jun 3, 2012 22:38
Originally posted by [b]jTynne[/b]
As title suggests. Below has my custom additions to check. Also, need sanity checks on the peco peco breeder as Rune Knights and Royal Guards (and their baby versions) cannot ride Peco Peco, and thus nothing displays on the sprite, but they are set with the riding status which then must be removed via equipment window.
[code]//===== rAthena Script =======================================
//= Renters
//===== By: ==================================================
//= kobra_k88, mod by Lupus
//===== Current Version: =====================================
//= 1.9
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Knight and Crusader Peco Peco Breeders, Falcon Breeder scripts
//===== Additional Comments: =================================
//= Fully working
//= Added another Falcon Master into the Hunters Guild [Lupus]
//= 1.2: replaced checkoption(x) with checkriding,checkfalcon [Lupus]
//= 1.3: Added support Adv Classes + Baby Class [Lupus]
//= 1.4: Added different prices for normal, advanced and baby classes
//= but you could set them to the same [Lupus]
//= 1.5: Fixed spelling mistakes [Nexon]
//= 1.5a: Small fix (Falcon Taming -> Falcon Mastery) [Komurka]
//= 1.6: Moved the Falcon Master to Hugel [Poki#3]
//= 1.7 Updated to Aegis 10.3 standards. [L0ne_W0lf]
//= 1.8 Added 3rd Job creature NPCs (Dragon/Gryphon) [L0ne_W0lf]
//= 1.9 Enabled Gryphon Renter NPC and added Mado Gear NPC. [Masao]
//============================================================
// PecoPeco Breeder (for Knights)-------------------------------------------
prontera,91,211,5 script Peco Peco Breeder#knt 105,{
if(Upper==0) set .@price,2500; //Normal Peco - default price
if(Upper==1) set .@price,2500; //Armored Peco
if(Upper==2) set .@price,2500; //Baby Peco
mes "[Peco Peco Breeder]";
if(Class == Job_Rune_Knight || Class == Job_Rune_Knight_T || Class == Job_Baby_Rune) { mes "I can only allow Knights and Lord Knights to ride Peco Peco. Don't you have a different mount?"; close; end; }
if (BaseJob == Job_Knight) {
mes "Welcome.";
mes "Honorable Knight,";
mes "would you like to rent";
mes "a Peco Peco? The rental";
mes "fee is "+.@price+" zeny.";
next;
switch(select("Rent Peco Peco:Cancel")) {
case 1:
if (zeny < .@price) {
mes "[Peco Peco Breeder]";
mes "You do not";
mes "have enough zeny.";
mes "Are you...";
mes "bankrupt?";
close;
}
else if(getskilllv("KN_RIDING") == 0) {
mes "[Peco Peco Breeder]";
mes "I'm sorry, but you're";
mes "not eligible for this";
mes "service. Please go learn";
mes "the Peco Peco Ride skill first.";
close;
}
else if(ismounting()) {
mes "[Peco Peco Breeder]";
mes "Please remove your cash mount.";
close;
}
else if(checkriding()) {
mes "[Peco Peco Breeder]";
mes "You're already";
mes "mounted on a";
mes "Peco Peco.";
close;
}
set zeny,zeny-.@price;
setriding;
close;
case 2:
mes "[Peco Peco Breeder]";
mes "I see.";
mes "Well then,";
mes "have a good day.";
close;
}
} else {
mes "I'm sorry, but these";
mes "Peco Pecos are only";
mes "available for Knights";
mes "and Lord Knights.";
close;
}
}
// Grand PecoPeco Breeder (for Crusaders)-------------------------------------------
prontera,93,211,3 script Peco Peco Breeder#cru 105,{
if(Upper==0) set .@price,3500; //Normal Peco - default price
if(Upper==1) set .@price,3500; //Armored Peco
if(Upper==2) set .@price,3500; //Baby Peco
mes "[PecoPeco Breeder]";
if(Class == Job_Royal_Guard || Class == Job_Royal_Guard_T || Class == Job_Baby_Guard) { mes "I can only allow Crusaders and Paladins to ride Peco Peco. Don't you have a different mount?"; close; end; }
if (BaseJob == Job_Crusader) {
if(Upper != 1 ) mes "Welcome, Crusader.";
else mes "Welcome, Paladin.";
mes "We have a special";
mes "Peco Peco prepared";
mes "for you. To rent one";
mes "will cost "+.@price+" zeny.";
next;
switch(select("Rent a PecoPeco:Quit")) {
case 1:
if (zeny < .@price) {
mes "[Peco Peco Breeder]";
mes "You do not";
mes "have enough zeny.";
mes "If you would like";
mes "a Peco Peco please";
mes "bring "+.@price+" zeny...";
close;
}
else if(getskilllv("KN_RIDING") == 0) {
mes "[Peco Peco Breeder]";
mes "You must first learn";
mes "to ride a PecoPeco before";
mes "I can rent one to you.";
close;
}
else if(ismounting()) {
mes "[Peco Peco Breeder]";
mes "Please remove your cash mount.";
close;
}
else if(checkriding()) {
mes "[Peco Peco Breeder]";
mes "You are already";
mes "mounted on a Peco Peco.";
close;
}
set zeny,zeny-.@price;
setriding;
close;
case 2:
mes "[PecoPeco Breeder]";
mes "See you around.";
close;
}
} else {
mes "What can I do for you?";
mes "Please be aware that";
mes "this Peco Peco rental";
mes "service is strictly for";
mes "Crusaders and Paladins.";
close;
}
}
// Falcon Master--------------------------------------------------------------
prontera,95,211,5 script Falcon Breeder#hnt 105,{
if(Upper==0) set .@price,2500; //Normal Falcon - default price
if(Upper==1) set .@price,2500; //Scarf Falcon
if(Upper==2) set .@price,2500; //Baby Falcon
mes "[Falcon Breeder]";
if (BaseJob == Job_Hunter) {
mes "Do you need a Falcon?";
mes "You can rent your own";
mes "trusty bird of prey for a";
mes "fee of just "+.@price+" zeny~";
next;
switch(select("Rent Falcon:Cancel")) {
case 1:
if (zeny < .@price) {
mes "[Falcon Breeder]";
mes "What is this?";
mes "You don't have";
mes "enough zeny?!";
mes "You better start";
mes "hunting money";
mes "instead of monsters~";
close;
}
else if(getskilllv("HT_FALCON") == 0) {
mes "[Falcon Breeder]";
mes "Gosh~";
mes "Go learn how to";
mes "manage a Falcon";
mes "first! I can't rent one";
mes "to you if you can't";
mes "handle it, you know.";
close;
}
else if(checkfalcon()) {
mes "[Falcon Breeder]";
mes "Um...";
mes "You already have";
mes "a Falcon. It's right";
mes "there, can't you see it?";
close;
}
set zeny,zeny-.@price;
setfalcon;
close;
case 2:
mes "[Falcon Breeder]";
mes "W-wait, where're";
mes "you goin'? These";
mes "Falcons are top notch,";
mes "I guarantee it! C'mon, yo~";
close;
}
} else {
mes "Young fool!";
mes "Falcons can only";
mes "be used by Hunters";
mes "and Snipers, capish?";
mes "...Heh heh, jealous?";
close;
}
}
// Dragon Breeder on the Rune Knight job change map, couldn't find NPC on iRO.
job3_rune01,88,62,5 script Dragon Breeder 105,{
mes "[Dragon Breeder]";
if (Class == Job_Rune_Knight || Class == Job_Rune_Knight_T || Class == Job_Baby_Rune) {
mes "Welcome. Would you like to rent a Dragon?";
next;
switch(select("Yes:No")) {
case 1:
//if (!getskilllv("RK_DRAGONTRAINING")) {
if (!getskilllv("KN_RIDING")) {
mes "[Dragon Breeder]";
mes "Please learn how to ride a Dragon first.";
close;
}
if(ismounting()) {
mes "[Riding Creature Master]";
mes "Please remove your cash mount.";
close;
}
if (checkriding()) {
mes "[Dragon Breeder]";
mes "You already have a Dragon.";
close;
}
setdragon;
close;
case 2:
mes "[Dragon Breeder]";
mes "I see. Then have a great day.";
close;
}
}
mes "What are you doing here?";
mes "Only Rune Knights can rent a Dragon.";
close;
}
// Dragon/Gryphon Master
prontera,101,211,5 script Riding Creature Master 105,{
mes "[Riding Creature Master]";
if (Class == Job_Rune_Knight || Class == Job_Rune_Knight_T || Class == Job_Baby_Rune) {
mes "Welcome. Would you like to rent a Dragon?";
next;
switch(select("Yes:No")) {
case 1:
//if (!getskilllv("RK_DRAGONTRAINING")) {
if (!getskilllv("KN_RIDING")) {
mes "[Riding Creature Master]";
mes "Please learn how to ride a Dragon first.";
close;
}
if(ismounting()) {
mes "[Riding Creature Master]";
mes "Please remove your cash mount.";
close;
}
if (checkriding()) {
mes "[Riding Creature Master]";
mes "You already have a Dragon.";
close;
}
setdragon;
close;
case 2:
mes "[Riding Creature Master]";
mes "I see. Then have a great day.";
close;
}
}
if (Class == Job_Royal_Guard || Class == Job_Royal_Guard_T || Class == Job_Baby_Guard) {
mes "Welcome. Would you like to rent a Gryphon?";
next;
switch(select("Yes:No")) {
case 1:
if(!getskilllv("KN_RIDING")) {
mes "[Riding Creature Master]";
mes "Please learn how to ride a Gryphon first.";
close;
}
if(ismounting()) {
mes "[Riding Creature Master]";
mes "Please remove your cash mount.";
close;
}
if (checkriding()) {
mes "[Riding Creature Master]";
mes "You already have a Gryphon.";
close;
}
setriding;
close;
case 2:
mes "[Riding Creature Master]";
mes "I see. Then have a great day.";
close;
}
}
mes "I'm here to provide Rune Knights and Royal Guards with riding creatures.";
close;
}
// Peco removing NPC
prontera,85,211,5 script Peco Peco Remover 105,{
mes "[Soldier]";
mes "If you're unable to dismount from a Peco Peco";
mes "for some unknown reason,";
mes "please feel free to use my services.";
if (checkriding()) {
next;
mes "[Soldier]";
mes "You're riding a Peco Peco.";
mes "Would you like to dismount?";
next;
switch(select("Yes:No")) {
case 1:
setriding 0;
mes "[Soldier]";
mes "Say, how does it feel to";
mes "step on the ground on your own";
mes "feet again?";
close;
case 2:
mes "[Soldier]";
mes "I see. Please feel free to ask me";
mes "if you change your mind.";
close;
}
}
close;
}
// Magic Gear Renter
prontera,83,211,4 script Magic Gear Master 105,{
mes "[Magic Gear Master]";
if (Class == Job_Mechanic || Class == Job_Mechanic_T || Class == Job_Baby_Mechanic) {
mes "Welcome. Would you like to rent a Magic Gear?";
next;
switch(select("Yes:No")) {
case 1:
if (!getskilllv("NC_MADOLICENCE")) {
mes "[Magic Gear Master]";
mes "Please learn how to use a Magic Gear first.";
close;
}
if(ismounting()) {
mes "[Magic Gear Master]";
mes "Please remove your cash mount.";
close;
}
if (checkmadogear()) {
mes "[Magic Gear Master]";
mes "You already have a Magic Gear.";
close;
}
setmadogear;
close;
case 2:
mes "[Magic Gear Master]";
mes "I see. Then have a great day.";
close;
}
}
mes "How may I help you?";
mes "Magic Gears are only available for Mechanics.";
close;
}[/code]