Unknown #14779 | Athena

/*//------------------------------------------------------------//
//----------------Edited by Lenya---------------------------------//
//------------------Ascension of Ragnarok---------------------------//
//--------------------Disguise Event NPC -----------------------------//
//-------------------------------------------------------------------//*/
 
prontera,151,176,4  script  Disguise CP     794,{
 
if (getgmlevel()<98)
{
    mes "^3399FF[Disguise CP]^000000";  
    mes "Sorry, du hast keine Berechtigung.";
    close;
}
 
mes "^3399FF[Disguise CP]^000000";  
mes "Hallo Boss,";
mes "Was möchtest du heute machen?";
switch(select("Event starten:Event stoppen:Anzahl der Runden kalkulieren[^E50000"+$guessrounds+"^000000]:Preis kalkulieren^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nichts"))
{
    case 1: 
    {
        next;
        mes "^3399FF[Disguise CP]^000000";
        mes "Bestätigen sie durch die Eingabe von START."; 
        input .@confirm$;          
        if (.@confirm$ == "START") 
        {
            donpcevent "guessAnnouncer::OnGMStart"; 
            close;
        }
        mes "Bestätigung fehlgeschlagen";
        close;
        break;
    }
    case 2:
    {
        next;
        mes "^3399FF[Disguise CP]^000000";
        mes "Bestätigen sie durch die Eingabe von STOP."; 
        input .@confirm$;          
        if (.@confirm$ == "STOP") 
        {
            donpcevent "guessAnnouncer::OnGMStop";
            close;
        }
        mes "Bestätigung fehlgeschlagen";
        close;
        break;
        
    }
    
    case 3:
    {
        next; mes "^3399FF[Disguise CP]^000000";
        mes "Bitte gib eine neue Nummer ein."; 
        input $guessrounds; 
        if ($guessrounds > 30) set $guessrounds, 30;
        else if ($guessrounds < 1) set $guessrounds, 1;
        close;
    }
    
    case 4:
    {
        next; mes "^3399FF[Disguise CP]^000000";
        mes "Bitte gib eine Preis ID ein."; 
        input .@guessprizeid; 
        if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;}
        set $guessprize, .@guessprizeid;
        next; mes "^3399FF[Disguise CP]^000000";
        mes "Bitte gib die Anzahl der Preise an."; 
        input .@guessprizeamount;
        if (!.@guessprizeamount) set .@guessprizeamount,1 ;
        set $guessprizecount,.@guessprizeamount; 
        next; mes "^3399FF[Disguise CP]^000000";
        mes "Der Preis wurde zu ^E50000 "+ getitemname($guessprize)+ "^000000 und die Menge ^E50000 " +$guessprizecount+"^000000";
        close;
    }
    
                    
    case 5:
    {
        next; mes "^3399FF[Disguise CP]^000000";
        mes "Schönen Tag noch."; 
        close;
    }
 
}
 
 
}
 
 
 
 
 
 
 
 
geffen,119,73,4 script  Disguise NPC        794,{
 
 
announce "Weil Zealot einer Kleiner helper is", 0;
if (!$guessbegin)
{
    mes "^3399FF[Disguise NPC]^000000";
    mes "Das Disguise Event wird gleich beginnen.";
    close;
}
end;
 
OnStart:
    set $guessbegin, 1;
    set .DisguiseWon, 0;
    if (!$DisguiseRound)
    {
        npctalk "Okay, lasst uns anfangen!";
        sleep 4000;
        npctalk "Doch bevor es losgeht erkläre ich euch die Regeln.";
        sleep 4000;
        npctalk "Ich verwandle mich per Zufall in ein Monster.";
        sleep 4000;
        npctalk "Ihr müsst den Namen des Monsters erraten.";
        sleep 4000;
        npctalk "Dazu tippt ihr den Namen in den öffentlichen Chat ein.";
        sleep 4000;
        npctalk "Groß-und Kleinschreibung wird nicht beachtet.";
        sleep 4000;
        npctalk "Nun macht euch bereit";
        sleep 4000;
    }
    else if ($DisguiseRound < $guessrounds-1)
    {
        npctalk "Bereit machen für die nächste Runde.";
        setnpctimer 0;
        sleep 8000;
    }
    else
    {   
        npctalk "Letzte Runde!";
        sleep 4000;
        npctalk "Macht euch bereit!";
        sleep 4000;
    }
 
    do
    {
        set .@guessrepeat, 0;
        set $monster, 1000 + rand(1,950);
        for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1)
        {
            if ($monster == $Forbidden[.@k]) 
            {
                set .@guessrepeat, 1;
                break;
            }
        }
    }
    while (.@guessrepeat);
    setnpctimer 0;
    initnpctimer;
    setnpcdisplay "Disguise NPC",$monster;
    set $MonsterName$, strmobinfo(1,$monster);
    defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround";
    activatepset 1;
    npctalk "Wie lautet mein Name?";
    sleep 3000;
    npcwalkto 102,103;
    sleep 2000;
    npcwalkto 102,99;
    end;
    
    OnTimer5000:
        if (!.DisguiseWon)
        {
            sleep 3000;
            npcwalkto 102,103;
            sleep 2000;
            npcwalkto 102,99;
 
            if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
        }
        end;
 
 
    OnTimer15000:
        if (!.DisguiseWon) 
        {
            sleep 3000;
            npcwalkto 102,103;
            sleep 2000;
            npcwalkto 102,99;
        }
        end;
 
    OnTimer25000:
        if (!.DisguiseWon) 
        {
            npctalk "Noch 10 Sekunden.";
            sleep 3000;
            npcwalkto 102,103;
            sleep 2000;
            npcwalkto 102,99;
        }
        end;
 
    OnTimer35000:
        if (!.DisguiseWon)
        { 
            npctalk "Runde vorbei.";
            if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
            set $DisguiseRound, $DisguiseRound + 1;
            deletepset 1;
            sleep 5000;
            npctalk $MonsterName$ + " wäre die richtige Antwort.";
            sleep 6000;
            if ($DisguiseRound >= $guessrounds)
            {
                set $DisguiseRound, 0;
                sleep 5000;
                npctalk "Das Disguise Event ist vorbei.";
                sleep 6500;
                npctalk "Bis zum nächsten mal ~";
                sleep 2000;
                emotion 12;
                sleep 1000;
                set $guessactive, 0;
                mapwarp "poring_c01.gat","prt_vilg.gat",99,73;
                setnpcdisplay "Disguise NPC",794;
                disablenpc "Disguise NPC";
                end;
            }
            goto OnStart;
        }
        end;
 
    winround:
        setnpctimer 0;
        deletepset 1;
        set .DisguiseWon, 1;
        set $DisguiseRound, $DisguiseRound + 1;
        npctalk strcharinfo(0) + " hat meinen Namen erraten!";
        getitem $guessprize, $guessprizecount;
        sleep2 3000;
        npctalk $MonsterName$ + " ist die richtige Antwort.";
        if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
        if ($DisguiseRound >= $guessrounds)
            {
                set $DisguiseRound, 0;
                set $guessactive, 0;
                sleep 5000;
                npctalk "Das Disguise Event ist vorbei.";
                sleep 6500;
                npctalk "Bis zum nächsten mal ~";
                sleep 2000;
                emotion 12;
                sleep 1000;
                mapwarp "poring_c01.gat","prt_vilg.gat",99,73;
                setnpcdisplay "Disguise NPC",794;
                disablenpc "Disguise NPC";
                end;
            }
        sleep 5000;
        goto OnStart;
        end;
 
    
 
}
 
//-----------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------
 
-   script  guessAnnouncer  -1,{
 
 
OnGMStart:
    if ($guessactive) end;
    set $guessactive, 1;
    announce "Das Disguise Event wird gleich beginnen!",0;
    set $guessbegin, 0;
    sleep 5000;
    if (!$guessactive) end;
    announce "Um teilzunehmen musst du in den Warp Portal in Prontera Village eintreten",0;
    enablenpc "Disguise NPC";
    sleep 5000;
    announce "Rundenanzahl: "+$guessrounds,0;
    sleep 4000;
    announce "Preis: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
    sleep 5000;
    if (!$guessactive) {disablenpc "Disguise NPC"; end;}
    announce "Das Portal schließt sich in einer Minute.",0;  
    sleep 60000;
    if (!$guessactive) {disablenpc "Disguise NPC"; end;}
    announce "Das Portal wurde geschlossen.",0;
    set $DisguiseRound, 0;
    sleep 5000;
    if (!$guessactive) {disablenpc "Disguise NPC"; end;}
    if(getmapusers("poring_c01") == 0) 
    {
        disablenpc "Disguise NPC";
        set $guessactive, 0;
        end;
    }
 
    donpcevent "Disguise NPC::OnStart";
    end;
 
OnGMStop:
        if ($guessactive)
        {
            set $guessactive, 0;
            announce "Das Disguise Event wurde angehalten.",0;
            set $DisguiseRound, 0;
            mapwarp "poring_c01.gat","prt_vilg.gat",99,73;
            setnpcdisplay "Disguise NPC",794;
            disablenpc "Disguise NPC";
        }
        end;
 
 
OnClock0100:
OnClock0300:
OnClock0500:
OnClock0700:
OnClock0900:
OnClock1100:
OnClock1300:
OnClock1500:
OnClock1700:
OnClock1833:
OnClock2000:
OnClock2205:
    if ($guessactive) end;
    set $guessactive, 1;
    announce "Das Disguise Event wird gleich beginnen!",0;
    set $guessbegin, 0;
    sleep 5000;
    if (!$guessactive) end;
    announce "Um teilzunehmen musst du in den Warp Portal in Prontera Village eintreten",0;
    enablenpc "Disguise NPC";
    sleep 5000;
    announce "Preis: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
    sleep 5000;
    if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
    announce "Das Portal schließt sich in einer Minute.",0;
    sleep 60000;
    if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
    announce "Das Portal wurde geschlossen.",0;
    sleep 5000;
    if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
    announce "Das nächste Event findet in 2 Stunden statt.",0;
    set $DisguiseRound, 0;
    if(getmapusers("poring_c01") == 0) 
    {
        disablenpc "Disguise NPC";
        set $guessactive, 0;
        end;
    }
 
    donpcevent "Disguise NPC::OnStart";
    end;
 
OnInit:
    disablenpc "Disguise NPC";
 
    set $guessactive, 0;
    setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900,1948,1892,1949,1950,1983,1984,2010,1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1496,1501,1900,1996,2002,2003,2004,2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2084,2093,2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,2125,1900,1901,1902,1903,1237,1239,1145,1175,1209,1841,1842,1843,1844,3014,3001,3002,2114,2115,2117,2118,2119,2120,6049,6050,6051,6052,2200,2205,2207;
 
}
 
//------------------Map Flags--------------------------------------------------------
poring_c01  mapflag nowarpto
poring_c01  mapflag noskill
poring_c01  mapflag nosave
poring_c01  mapflag nomemo
poring_c01  mapflag noteleport
poring_c01  mapflag nowarp
//-----------------------------------------------------------------------------------