[MANUAL] Исходники глобального ГК

Тема в разделе "Установка и настройка (Setup and configuration)", создана пользователем root, 26 сен 2014.

  1. root

    root Administrator Команда форума Administrator Moderator Developers Team

    Регистрация:
    23 авг 2014
    Сообщения:
    254
    Симпатии:
    58
    Баллы:
    11
    AI:
    Код:
    class 1 global_teleporter1 : citizen{ 
    parameter: 
        string fnHi = "global_teleporter.htm";
    
    
    handler:
        EventHandler TALKED( talker )
        {
            if(talker.karma <= 0)
            {
                if( talker.karma <= 0 )
                {
                    myself::ShowPage( talker, fnHi );
                }
                if( talker.karma > 1 )
                {
                    myself::Say( +talker.name + " have " +talker.karma+ " karma. I do not teleport him anywhere.");
                }
            }
        }
        EventHandler MENU_SELECTED(ask, reply, talker)
        {
            if (reply == 1)
            {
                if( myself::GetInventoryInfo(talker,0) >= ( myself::GetInventoryInfo(talker,1) * 0.800000 ) || myself::GetInventoryInfo(talker,2) >= ( myself::GetInventoryInfo(talker,3) * 0.800000 ) )
                {
                    myself::ShowSystemMessage(talker,1123);
                    return;
                }
                if( talker.karma <= 0 )
                {
                    if (ask == 1)
                    {
                        myself::InstantTeleport( talker, -17056, 123999, -3144 ); //(1-30) Gludio Territory
                        return;
                    }
                    if (ask == 2)
                    {
                        myself::InstantTeleport( talker, -16510, 209226, -3664 ); //(25-35) Westelands
                        return;
                    }
                    if (ask == 3)
                    {
                        myself::InstantTeleport( talker, 51544, -117393, -4304 ); //(25-35) Crypts of Disgrace
                        return;
                    }
                    if (ask == 4)
                    {
                        myself::InstantTeleport( talker, -46165, 150023, -3208 ); //(30-40) Execution Ground
                        return;
                    }
                    if (ask == 5)
                    {
                        myself::InstantTeleport( talker, 17255, 114177, -3440 ); //(35-52) Cruma Tower
                        return;
                    }
                    if(ask == 6)
                    {
                        myself::InstantTeleport( talker, 73024, 118485, -3704 ); //(35-52) Death Pass
                        return;
                    } 
                    if (ask == 7)
                    {
                        myself::InstantTeleport( talker, 124798, 64741, -3992 ); //(45-55) Enchanted Valley
                        return;
                    }
                    if (ask == 8)
                    {
                        myself::InstantTeleport( talker, 167082, 20287, -3328 ); //(45-58) The Cemetery
                        return;
                    }
                    if (ask == 9)
                    {
                        myself::InstantTeleport( talker, 89536, -105914, -3328 ); //(45-60) Archaic Laboratory
                        return;
                    }
                    if (ask == 10)
                    {
                        myself::InstantTeleport( talker, 163341, 91374, -3320 ); //(50-60) The Front of Anghel Waterfall
                        return;
                    }
                    if (ask == 11)
                    {
                        myself::InstantTeleport( talker, 131131, 114597, -3720 ); //(55-78+) DVC Entrance
                        return;
                    } 
                    if (ask == 12)
                    {
                        myself::InstantTeleport( talker, 167285, 37109, -4008 ); //(55-65) Forsaken Plains
                        return;
                    }
                    if (ask == 13)
                    {
                        myself::InstantTeleport( talker, 185319, 20218, -3264 ); //(58-67) Forbidden Gateway
                        return;
                    }
                    if (ask == 14)
                    {
                        myself::InstantTeleport( talker, 59106, -67593, -3360 ); //(58-74) Rune Town Hunting Grounds
                        return;
                    }
                    if (ask == 15)
                    {
                        myself::InstantTeleport( talker, 114649, 11115, -5128 ); //(58-75) ToI 1
                        return;
                    }
                    if (ask == 16)
                    {
                        myself::InstantTeleport( talker, 118404, 15988, 832 ); //(58-75) ToI 5
                        return;
                    }
                    if (ask == 17)
                    {
                        myself::InstantTeleport( talker, 159455, -12931, 2888 ); //(65-77) Blazing Swamp
                        return;
                    }
                    if (ask == 18)
                    {
                        myself::InstantTeleport( talker, 183090, -78670, -2728 ); //(75+) Imperial Tomb
                        return;
                    }
                    if (ask == 19)
                    {
                        myself::InstantTeleport( talker, 149567, -80783, -5648 ); //(76+) Ketra Orc Warrior
                        return;
                    }
                    if (ask == 20)
                    {
                        myself::InstantTeleport( talker, 107929, -52248, -2424 ); //(76+) Varka Silenos
                        return;
                    }
                    if (ask == 21)
                    {
                        myself::InstantTeleport( talker, 107883, -87773, -2920 ); //(76-80) Monastery of Silence
                        return;
                    }
                    if (ask == 22)
                    {
                        myself::InstantTeleport( talker, 10461, -26863, -3624 ); //(80+) Primeval Isle
                        return;
                    }
                    if (ask == 23)
                    {
                        myself::InstantTeleport( talker, -41184, 206752, -3357 ); //(20~30) Necropolis of Sacrifice
                        return;
                    }
                    if (ask == 24)
                    {
                        myself::InstantTeleport( talker, 39232, 143568, -3651 ); //(30-40) Heretics Catacomb
                        return;
                    }
                    if (ask == 25)
                    {
                        myself::InstantTeleport( talker, 45600, 126944, -3686 ); //(30~40) Pilgrims Necropolis
                        return;
                    }
                    if (ask == 26)
                    {
                        myself::InstantTeleport( talker, 43200, 170688, -3251 ); //(40~50) Catacomb of the Branded
                        return;
                    }
                    if (ask == 27)
                    {
                        myself::InstantTeleport( talker, 107514, 174329, -3704 ); //(40~50) Worshipers Necropolis
                        return;
                    }
                    if (ask == 28)
                    {
                        myself::InstantTeleport( talker, 74672, 78032, -3398 ); //(50~60) Catacomb of the Apostate
                        return;
                    }
                    if (ask == 29)
                    {
                        myself::InstantTeleport( talker, -25472, 77728, -3446 ); //(50~60) Patriots Necropolis
                        return;
                    }
                    if (ask == 30)
                    {
                        myself::InstantTeleport( talker, 136672, 79328, -3702 ); //(60~70) Catacomb of the Witch
                        return;
                    }
                    if (ask == 31)
                    {
                        myself::InstantTeleport( talker, -56064, 78720, -3011 ); //(60~70) Ascetics Necropolis
                        return;
                    }
                    if (ask == 32)
                    {
                        myself::InstantTeleport( talker, 114496, 132416, -3101 ); //(60~70) Martyr's Necropolis
                        return;
                    }
                    if (ask == 33)
                    {
                        myself::InstantTeleport( talker, 168560, -17968, -3174 ); //(70~80) Disciples Necropolis
                        return;
                    }
                    if (ask == 34)
                    {
                        myself::InstantTeleport( talker, 79296, 209584, -3709 ); //(70~80) Saints Necropolis
                        return;
                    }
                    if (ask == 35)
                    {
                        myself::InstantTeleport( talker, -22480, 13872, -3174 ); //(70~80) Catacomb of Dark Omens
                        return;
                    }
                    if (ask == 36)
                    {
                        myself::InstantTeleport( talker, 110912, 84912, -4816 ); //(70~80) Catacomb of the Forbidden Path
                        return;
                    }
                    if (ask == 37)
                    {
                        myself::InstantTeleport( talker, -12787, 122779, -3114 ); //Gludio
                        return;
                    }
                    if (ask == 38)
                    {
                        myself::InstantTeleport( talker, 15671, 142994, -2704 ); //Dion
                        return;
                    }
                    if (ask == 39)
                    {
                        myself::InstantTeleport( talker, 111455, 219400, -3546 ); //Heine
                        return;
                    }
                    if (ask == 40)
                    {
                        myself::InstantTeleport( talker, 83336, 147972, -3404 ); //Giran
                        return;
                    }
                    if (ask == 41)
                    {
                        myself::InstantTeleport( talker, 83011, 53207, -1470 ); //Oren
                        return;
                    }
                    if (ask == 42)
                    {
                        myself::InstantTeleport( talker, 117088, 76931, -2670 ); //Hunter
                        return;
                    }
                    if (ask == 43)
                    {
                        myself::InstantTeleport( talker, 146783, 25808, -2000 ); //Aden
                        return;
                    }
                    if (ask == 44)
                    {
                        myself::InstantTeleport( talker, 147978, -55408, -2728 ); //Goddard
                        return;
                    }
                    if (ask == 45)
                    {
                        myself::InstantTeleport( talker, 43826, -47688, -792 ); //Rune
                        return;
                    }
                    if (ask == 46)
                    {
                        myself::InstantTeleport( talker, 87478, -142297, -1352 ); //Schuttgart
                        return;
                    }
                    if (ask == 47)
                    {
                        myself::InstantTeleport( talker, 146440, 46723, -3400 ); //Coliseum
                        return;
                    }
                    if (ask == 48)
                    {
                        myself::InstantTeleport( talker, 119062, 159348, -3784 ); //Krokian Padisha Sobekk
                        return;
                    }
                    if (ask == 49)
                    {
                        myself::InstantTeleport( talker, 124822, 156721, -3784 ); //Ocean Flame Ashakiel
                        return;
                    }
                    if (ask == 50)
                    {
                        myself::InstantTeleport( talker, 152862, 110568, -5520 ); //Antharas Priest Cloe
                        return;
                    }
                    if (ask == 51)
                    {
                        myself::InstantTeleport( talker, 146394, -18861, -3456 ); //Palatanos of Horrific Power
                        return;
                    }
                    if (ask == 52)
                    {
                        myself::InstantTeleport( talker, 144039, -4704, -4696 ); //Flamestone Giant
                        return;
                    }
                    if (ask == 53)
                    {
                        myself::InstantTeleport( talker, 153862, -13384, -3800 ); //Death Lord Ipos
                        return;
                    }
                    if (ask == 54)
                    {
                        myself::InstantTeleport( talker, 148709, -72947, -4928 ); //Ketra's Hero Hekaton
                        return;
                    }
                    if (ask == 55)
                    {
                        myself::InstantTeleport( talker, 115676, -38023, -2448 ); //Varka's Hero Shadith
                        return;
                    }
                    if (ask == 56)
                    {
                        myself::InstantTeleport( talker, 108435, 159411, -3752 ); //Water Dragon Seer Sheshark
                        return;
                    }
                    if (ask == 57)
                    {
                        myself::InstantTeleport( talker, 189028, 14721, -2624 ); //Bloody Empress Decarbia
                        return;
                    }
                }
            }
        }
    }
    HTML:
    Код:
    <html><head><body><br><a action="bypass -h menu_select?ask=-100&reply=10">Телепорт в охотничью зону (мобы 10-15 lvl)</a><br>
    <a action="bypass -h menu_select?ask=-100&reply=19">Телепорт в охотничью зону (мобы 19-23 lvl)</a><br>
    <a action="bypass -h menu_select?ask=-100&reply=30">Телепорт в охотничью зону (мобы 30-35 lvl)</a><br>
    <a action="bypass -h menu_select?ask=-100&reply=40">Телепорт в охотничью зону (мобы 40-46 lvl)</a><br>
    <a action="bypass -h menu_select?ask=-100&reply=53">Телепорт в охотничью зону (мобы 53-55 lvl)</a><br>
    <a action="bypass -h menu_select?ask=-100&reply=64">Телепорт в охотничью зону (мобы 64-68 lvl)</a><br>
    <a action="bypass -h menu_select?ask=-100&reply=72">Телепорт в охотничью зону (мобы 72-80 lvl)</a><br>
    <br><br>
    ...
    </body></html>