Safe Knacker Game (Beta)

//=============================================================//
// Safe Knacker Game                                           //
//==== Copyright ==============================================//
// Innos '2010 for www.ex-RO.de                                //
//==== Version ================================================//
// V.1.0 - No Final !!! ** BETA SCRIPT **                      //
//==== Infos ==================================================//
//=============================================================//

exro,114,81,6   script  Safe Knacker    100,{

    set @npc$,"[ exRO Safe ]";
    set .safepay1, 10000; // Spielkosten
    set .safepay2, 20000; // Spielkosten
    set .safepay3, 30000; // Spielkosten
    set .safepay4, 40000; // Spielkosten
    set .safepay5, 50000; // Spielkosten

if ( getgmlevel() >= 99 ) {
goto Safeadmin;
}


OnClock1000:
    enablenpc "Safe Knacker";
    set .safe1, rand(1,9);
    set .safe2, rand(1,9);
    set .safe3, rand(1,9);
    set .safe4, rand(1,9);
    set .safe5, rand(1,9);
OnClock2000:
    enablenpc "Safe Knacker";
    set .safe1, rand(1,9);
    set .safe2, rand(1,9);
    set .safe3, rand(1,9);
    set .safe4, rand(1,9);
    set .safe5, rand(1,9);


    if (#LAST_SAFE_TIME+60 > gettimetick(2)) {
    mes "Du kannst es erst in " + ((#LAST_SAFE_TIME+60 - gettimetick(2))/60 +1) + " Minuten erneut versuchen.";
    close;
    }

    mes @npc$;
    mes "Safe Inhalt: ^0000FF"+ $safepay +" z ^000000";
    mes "Möchtest du spielen?";
    next;
    menu "Ja lass uns spielen",Safegame,"Wie geht das?",Safefaq,"Nein, danke.",-;
    close;

Safegame:
    mes @npc$;
    mes "Safe Inhalt: ^0000FF"+ $safepay +" z ^000000";
    mes "Bitte gib nun die richtige Zahl ein die unseren Safe zu knacken!";
    next;
    mes @npc$;
    mes "^EE0000 [ 1.Kombination: ] ^000000";
    mes "Die Zahl muss eine 1 - 9 sein.";
    set Zeny, Zeny - .safepay1;
    set $safepay,$safepay +.safepay1;
    input @safenum1;
    next;
    if (@safenum1 < 1 && @safenum1 > 9){
    mes @npc$;
    mes "Bitte gib eine Zahl von 1 bis 9 ein";
    close;
    }
    if (@safenum1 == .safe1){
    if (@saga == 0){npctalk "[ exRO Safe ] : "+strcharinfo(0)+" hat die 1. Kombination geknackt !";}
    set @saga,1;
    goto Safegame2;
    }
    goto Safefail;

Safegame2:
    mes "Jackpot: "+ $safepay +"z ";
    mes "Bitte gib nun die richtige Zahl ein die unseren Safe zu knacken!";
    next;
    mes @npc$;
    mes "^EE0000 [ 2.Kombination: ] ^000000";
    mes "Die Zahl muss eine 1 - 9 sein.";
    set Zeny, Zeny - .safepay2;
    set $safepay,$safepay +.safepay2;
    input @safenum2;
    next;
    if (@safenum2 < 1 && @safenum2 > 9){
    mes "Bitte gib eine Zahl von 1 bis 9 ein";
    close;
    }
    if (@safenum2 == .safe2){
    if (@saga <= 1){npctalk "[ exRO Safe ] : "+strcharinfo(0)+" hat die 2. Kombination geknackt !";}
    set @saga,2;
    goto Safegame3;
    }
    goto Safefail;

Safegame3:
    mes "Jackpot: "+ $safepay +"z ";
    mes "Bitte gib nun die richtige Zahl ein die unseren Safe zu knacken!";
    mes @npc$;
    mes "^EE0000 [ 3.Kombination: ] ^000000";
    mes "Die Zahl muss eine 1 - 9 sein.";
    set Zeny, Zeny - .safepay3;
    set $safepay,$safepay +.safepay3;
    input @safenum3;
    next;
    if (@safenum3 < 1 && @safenum3 > 9){
    mes "Bitte gib eine Zahl von 1 bis 9 ein";
    close;
    }
    if (@safenum3 == .safe3){
    if (@saga <= 2){npctalk "[ exRO Safe ] : "+strcharinfo(0)+" hat die 3. Kombination geknackt !";}
    set @saga,3;
    goto Safegame4;
    }
    goto Safefail;

Safegame4:
    mes "Jackpot: "+ $safepay +"z ";
    mes "Bitte gib nun die richtige Zahl ein die unseren Safe zu knacken!";
    mes @npc$;
    mes "^EE0000 [ 4.Kombination: ] ^000000";
    mes "Die Zahl muss eine 1 - 9 sein.";
    set Zeny, Zeny - .safepay4;
    set $safepay,$safepay +.safepay4;
    input @safenum4;
    next;
    if (@safenum4 < 1 && @safenum4 > 9){
    mes "Bitte gib eine Zahl von 1 bis 9 ein";
    close;
    }
    if (@safenum4 == .safe4){
    if (@saga <= 3){npctalk "[ exRO Safe ] : "+strcharinfo(0)+" hat die 4. Kombination geknackt !";}
    set @saga,4;
    goto Safegame5;
    }
    goto Safefail;

Safegame5:
    mes "Jackpot: "+ $safepay +"z ";
    mes "Bitte gib nun die richtige Zahl ein die unseren Safe zu knacken!";
    mes "Die erste Zahl muss eine 1 - 9 sein.";
    set Zeny, Zeny - .safepay5;
    set $safepay,$safepay +.safepay5;
    input @safenum5;
    next;
    if (@safenum5 < 1 && @safenum5 > 9){
    mes "Bitte gib eine Zahl von 1 bis 9 ein";
    close;
    }
    if (@safenum5 == .safe5){
    goto Safewin;
    }
    mes "Das war nicht richtig :(";
    goto Safefail;

Safefail:
    mes "Das war nicht richtig :(";
    set #LAST_SAFE_TIME, gettimetick(2);
    close;

Safewin:
mes "Die richtigen Zahlen waren:";
mes ""+ .safe1 +"-"+ .safe2 +"-"+ .safe3 +"-"+ .safe4 +"-"+ .safe5 +"";
mes "Jackpot: "+ $safepay +"z ";
set .sgcost,$safepay/10*2;
set .sgwin,$safepay - .sgcost;
mes "Dein Gewinn: "+ .sgwin +"z";
next;
mes "Das Spiel ist Beta Test Version, danke fürs testen.";
    mapannounce "exro","[ exRO Safe ] : "+strcharinfo(0)+" hat den Safe geknackt ! und "+.sgwin+" Zeny und 1 Event Ticket erhalten",0x76EE00;
    set Zeny, Zeny + .sgwin;
    getitem 26001,1;
    set $safepay,0;
    disablenpc "Safe Knacker";
    close;

Safefaq:
    mes @npc$;
    mes "Das Spiel ist relativ einfach. Die Zahlenkombination besteht aus 5 Zahlen von 1-9.";
    mes "Diese müsst ihr nacheinander knacken. Jeder Versuch kostet euch Zeny's";
    mes "Pro Runde steigt der Preis den ihr benötigt um die Zahl zu versuchen.";
    next;
    mes @npc$;
    mes "1: Runde = "+.safepay1+" Zeny";
    mes "2: Runde = "+.safepay2+" Zeny";
    mes "3: Runde = "+.safepay3+" Zeny";
    mes "4: Runde = "+.safepay4+" Zeny";
    mes "5: Runde = "+.safepay5+" Zeny";
    next;
    mes @npc$;
    mes "Sobald ihr eine Zahl falsch getippt habt, müsste ihr 1 Minute warten bis ihr weiter versuchen könnt.";
    mes "In dieser Zeit hat natürlich ein anderer die Chance schneller zu sein wie ihr.";
    next;
    mes @npc$;
    mes "Der Jackpot ergibt sich aus der Gesamtsumme aller Spieler die es versuchen.";
    mes "Abzüglich 10% Server Gebühren. Zudem erhält der Gewinner ein Event Ticket";
    close;

Safeadmin:
    mes "Hallo Admin";
    switch ( select ( "Spiel testen","Neue Zahlen","Erklärung anzeigen.","Zahlen anzeigen" ) ) {
    case 1:
        goto Safegame;
    case 2:
        set $sgpot,0;
        set .safe1, rand(1,9);
        set .safe2, rand(1,9);
        set .safe3, rand(1,9);
        set .safe4, rand(1,9);
        set .safe5, rand(1,9);
        next;
        mes "Zahlen: "+ .safe1 +" - "+ .safe2 +" ";
        mes "Zahlen: "+ .safe3 +" - "+ .safe4 +" ";
        mes "Gewinnzahl: "+ .safe5 +" ";
        close;
    case 3:
        goto Safefaq;
    case 4:
        mes "Zahlen: "+ .safe1 +" - "+ .safe2 +" ";
        mes "Zahlen: "+ .safe3 +" - "+ .safe4 +" ";
        mes "Gewinnzahl: "+ .safe5 +" ";
        close;
}

}