sub EVENT_ITEM_CLICK {

    if (($itemcount{100137} == 1) && $ulevel <= 104 && (!defined quest::get_data($client->CharacterID()."_IOG25DONE"))) {
    #if($itemid == 100137 && $ulevel <= 104 && !quest::get_data($client->CharacterID()."_IOG25DONE")) {#CHANGEME
        $client->Message(327, "You have skipped to level 104 and have received an IOG 2.5, spells and discs to level 99, Tier 4.5 Armor and 50,000 Guks!");
        quest::level(104);
        quest::summonitem(34991, 0);
        quest::set_data($client->CharacterID()."_IOG25DONE", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45ArmsFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45HelmFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45GlovesFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45LegsFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45WristFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45BootsFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45BPFinished", 1);#CHANGEME
        quest::faction($_, 3000) for (1200, 1201, 1202);
        quest::scribespells(99, 1);
        quest::traindiscs(99, 1);
        quest::summonitem($_) for (9523..9529, 9527, 700, 10242, 965, 34467, 23620, 567, 652, 143, 3538, 783);
        quest::summonitem(9560, 0);
    }
    if (($itemcount{100137} == 1) && $ulevel > 103 && (!defined quest::get_data($client->CharacterID()."_IOG25DONE"))) {
    #if($itemid == 100137 && $ulevel > 103 && !quest::get_data($client->CharacterID()."_IOG25DONE")){#CHANGEME
        $client->Message(327, "I dont think you want to go down to level 104, but here is an IOG 2.5, Tier 4 Armor and 50,000 Guks!");
        quest::set_data($client->CharacterID()."_IOG25DONE", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45ArmsFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45HelmFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45GlovesFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45LegsFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45WristFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45BootsFinished", 1);#CHANGEME
        quest::set_data($client->CharacterID()."_Phantom45BPFinished", 1);#CHANGEME
        quest::faction($_, 3000) for (1200, 1201, 1202);
        quest::summonitem(34991, 0);
        quest::summonitem($_) for (9523..9529, 9527, 700, 10242, 965, 34467, 23620, 567, 652, 143, 3538, 783);
        quest::summonitem(9560, 0);
        }
    if (($itemcount{100137} == 1) && (defined quest::get_data($client->CharacterID()."_IOG25DONE"))) {
    #if($itemid == 100137 && quest::get_data($client->CharacterID()."_IOG25DONE")){#CHANGEME
        $client->Message(327, "You have already used this item once or you already have the IOG 2.5, give it to someone that needs it!!");
        quest::summonitem(100137, 0);
        }

}