sub EVENT_SAY
{
my $testfaction = $client->GetCharacterFactionLevel(5029);
if($testfaction > 2399)
{
if ($text=~/hail/i)
{
quest::say("It Seems you have proven yourself, I am pretty sure I can upgrade
that old IOG 2.0 for you, but your going to need to bring me a few things. A Gigaton Defribulator, Rallos Zek's Mighty Steel and the original IOG 2.0 you got, the Piercing version.");
quest::set_data($client->CharacterID()."_SuperQuestItemReady2", 1);#CHANGEME
}
elsif ($testfaction < 2400)
{
quest::say("I want absolutely nothing to do with filth such as yourself!");
}
}
#692 Rallos Zeks Mighty Steel, Item 25 Piercer IOG 2.0, and Gigaton Defibulator.
sub EVENT_ITEM {
my $testfaction = $client->GetCharacterFactionLevel(5029);
if (($itemcount{25} == 1) && ($itemcount{692} == 1) && ($itemcount{9558} == 1) && ($testfaction >= 2399) && (quest::get_data($client->CharacterID()."_SuperQuestItemReady2"))) {  #CHANGEME
if (!quest::get_data($client->CharacterID()."_IOG25DONE")) {#CHANGEME
quest::say("Well that is just wonderful , very good job!  Here is your IOG 2.5!!");
quest::emote("reaches into his pack and pulls out a Magnificant Blade. You hold it over your head and look at the camera like Zelda..");
quest::summonitem(9560);  # Instrument of Godlyness 2.5
quest::set_data($client->CharacterID()."_IOG25DONE", 1);#CHANGEME
quest::save();
}
if (quest::get_data($client->CharacterID()."_IOG25DONE")) {#CHANGEME
quest::say("U finished this already sir...");
quest::save();
}
}
else {
if ($item1 > 0) {
quest::summonitem($item1,1);
}
if ($item2 > 0) {
quest::summonitem($item2,1);
}
if ($item3 > 0) {
quest::summonitem($item3,1);
}
if ($item4 > 0) {
quest::summonitem($item4,1);
}
}
}