Maceblade
01-01-2014, 04:32 PM
Text portion works just not the hand ins
#Borus.pl
my $cash;
sub EVENT_SAY {
my $show = quest::saylink ("show",1);
my $Terris = quest::saylink ("Terris",1);
my $Saryn = quest::saylink ("Saryn",1);
my $Tallon = quest::saylink ("Tallon",1);
my $Vallon = quest::saylink ("Vallon",1);
my $Bertox = quest::saylink ("Bertox",1);
my $Cazic = quest::saylink ("Cazic",1);
my $Inny = quest::saylink ("Inny",1);
my $Rallos = quest::saylink ("Rallos",1);
if ($text=~/Hail/i) {
plugin::Whisper ("Greetin's $name! I am the Time keeper. I know this is not what you were expecting but oh well. I can $show you a list of Gods you can fight, if your donation be generous enough."); }
if ($text=~/show/i) {
plugin::Whisper ("For a small fortune, you can fight $Terris , $Saryn , $Tallon or $Vallon , in that order. You must defeat one to move onto another."); }
if ($text=~/Terris/i) {
plugin::Whisper ("Absolutely! For the cost of 5,000 Platinum."); }
if ($text=~/Saryn/i) {
plugin::Whisper ("Absolutely! For the cost of 6,000 Platinum."); }
if ($text=~/Tallon/i) {
plugin::Whisper ("Absolutely! For the cost of 7,000 Platinum."); }
if ($text=~/Vallon/i){
plugin::Whisper ("Absolutely! For the cost of 8,000 Platinum."); }
}
sub EVENT_ITEM {
$cash = 0;
$cash = $platinum * 1000 + $gold * 100 + $silver * 10 + $copper;
if ($cash >= 50000000) {
quest::spawn2(223075,0,0,-310,307,365,95); #Terris Thule
}
if ($cash >= 60000000 && $qglobals{"terris"} == 1) {
quest::spawn2(223076,0,0,-320,-316,358,32.5); #Saryrn
}
if ($cash >= 70000000 && $qglobals{"saryn"} == 1) {
quest::spawn2(223077,0,0,405,-84,358,192); #Tallon Zek
}
if ($cash >= 80000000 && $qglobals{"tallon"} == 1) {
quest::spawn2(223078,0,0,405,75,358,192); #Vallon Zek
}
if ($cash >= 90000000 && $qglobals{"vallon"} == 1) {
quest::spawn2(223142,0,0,-299,-297,23.3,31); #Real Bertoxxulous
}
if ($cash >= 100000000 && $qglobals{"bert"} == 1) {
quest::spawn2(223166,0,0,-257,255,6,101.5); #Real Cazic
}
if ($cash >= 110000000 && $qglobals{"cazic"} == 1) {
quest::spawn2(223167,0,0,303.3,306,13.3,161.5); #Real Innoruuk
}
if ($cash >= 120000000 && $qglobals{"inny"} == 1) {
quest::spawn2(223168,0,0,264,-279,18.75,217.5); #Real Rallos
}
}
#Borus.pl
my $cash;
sub EVENT_SAY {
my $show = quest::saylink ("show",1);
my $Terris = quest::saylink ("Terris",1);
my $Saryn = quest::saylink ("Saryn",1);
my $Tallon = quest::saylink ("Tallon",1);
my $Vallon = quest::saylink ("Vallon",1);
my $Bertox = quest::saylink ("Bertox",1);
my $Cazic = quest::saylink ("Cazic",1);
my $Inny = quest::saylink ("Inny",1);
my $Rallos = quest::saylink ("Rallos",1);
if ($text=~/Hail/i) {
plugin::Whisper ("Greetin's $name! I am the Time keeper. I know this is not what you were expecting but oh well. I can $show you a list of Gods you can fight, if your donation be generous enough."); }
if ($text=~/show/i) {
plugin::Whisper ("For a small fortune, you can fight $Terris , $Saryn , $Tallon or $Vallon , in that order. You must defeat one to move onto another."); }
if ($text=~/Terris/i) {
plugin::Whisper ("Absolutely! For the cost of 5,000 Platinum."); }
if ($text=~/Saryn/i) {
plugin::Whisper ("Absolutely! For the cost of 6,000 Platinum."); }
if ($text=~/Tallon/i) {
plugin::Whisper ("Absolutely! For the cost of 7,000 Platinum."); }
if ($text=~/Vallon/i){
plugin::Whisper ("Absolutely! For the cost of 8,000 Platinum."); }
}
sub EVENT_ITEM {
$cash = 0;
$cash = $platinum * 1000 + $gold * 100 + $silver * 10 + $copper;
if ($cash >= 50000000) {
quest::spawn2(223075,0,0,-310,307,365,95); #Terris Thule
}
if ($cash >= 60000000 && $qglobals{"terris"} == 1) {
quest::spawn2(223076,0,0,-320,-316,358,32.5); #Saryrn
}
if ($cash >= 70000000 && $qglobals{"saryn"} == 1) {
quest::spawn2(223077,0,0,405,-84,358,192); #Tallon Zek
}
if ($cash >= 80000000 && $qglobals{"tallon"} == 1) {
quest::spawn2(223078,0,0,405,75,358,192); #Vallon Zek
}
if ($cash >= 90000000 && $qglobals{"vallon"} == 1) {
quest::spawn2(223142,0,0,-299,-297,23.3,31); #Real Bertoxxulous
}
if ($cash >= 100000000 && $qglobals{"bert"} == 1) {
quest::spawn2(223166,0,0,-257,255,6,101.5); #Real Cazic
}
if ($cash >= 110000000 && $qglobals{"cazic"} == 1) {
quest::spawn2(223167,0,0,303.3,306,13.3,161.5); #Real Innoruuk
}
if ($cash >= 120000000 && $qglobals{"inny"} == 1) {
quest::spawn2(223168,0,0,264,-279,18.75,217.5); #Real Rallos
}
}