// BOT POLICE 2.1
// By: Lucas M.
// 1. Edit names and location as needed.
// 2. Edit second marks as needed.
// 3. Edit @adjgmlvl command as needed(for servers with GM LvL 1 players).
// 4. @jailfor works differently for different servers. Adjust appropriately.
// 5. When testing on your lvl 99 GM, note that @adjgmlvl has been set to 0. Relog to refresh your commands.
 
prontera,124,210,6  script  Police  884,{
    if (getgmlevel() >= 60) goto L_AdminPolice;
    mes "[Police]";
    mes "Good day.";
    close;
 
L_AdminPolice:
    mes "[Police]";
    mes "Please input the name of a";
    mes "player you would like to";
    mes "superimpose a check on.";
    next;
    input @NAME$;
    if(isloggedin(getcharid(3,@NAME$))==0) goto L_Notlogged;
    mes "[Police]";
    mes "The player is online. An";
    mes "interrogation is underway.";
    close2;
    attachrid(getcharid(3,@NAME$));
 
// Targetted Player Pop-Up Message
    attachnpctimer strcharinfo(0);
    initnpctimer;
    atcommand "@adjgmlvl -1 "+strcharinfo(0)+""; // Leave this alone.
    mes "[Staff]";
    mes "Manditory bot check in progress.";
    set @botcode,rand (1111,9999);
    mes "You have ^B4040460 seconds^000000 seconds to";
    mes "input the following code:";
    mes "[          ^5FB404"+@botcode+"^000000          ]";
    input @exitnum;
    if (@exitnum == @botcode) goto L_Correct;
    if (@exitnum != @botcode) goto L_Wrong;
    close;
 
OnTimer10000: //10 second mark.
    dispbottom "50 seconds to comply or risk being jailed.";
    end;
 
OnTimer20000: //20 second mark.
    dispbottom "40 seconds to comply or risk being jailed.";
    end;
 
OnTimer30000: //30 second mark.
    dispbottom "30 seconds to comply or risk being jailed.";
    end;
 
OnTimer40000: //40 second mark.
    dispbottom "20 seconds to comply or risk being jailed.";
    end;
 
OnTimer50000: //50 second mark.
    dispbottom "10 seconds to comply or risk being jailed.";
    end;
 
OnTimer55000: //55 second mark.
    dispbottom "5 seconds to comply.";
    end;
 
 
OnTimer56000: //56 second mark.
    dispbottom "4 seconds to comply.";
    end;
 
OnTimer57000: //57 second mark.
    dispbottom "3 seconds to comply.";
    end;
 
OnTimer58000: //58 second mark.
    dispbottom "2 seconds to comply.";
    end;
 
OnTimer59000: //59 second mark.
    dispbottom "1 second to comply.";
    end;
 
OnTimer60000: //60 second mark.
    stopnpctimer;
    atcommand "@adjgmlvl 0 "+strcharinfo(0)+""; // Sets to GM LvL 0.
 
//-------------------------------------------------------------------//
// 3 hours jail time for not responding in 60 seconds.
// (mh = month, dy = day, hr = hour, mn = minute)
 
    atcommand "@jailfor 0mh0dy3hr0mn "+strcharinfo(0)+"";
    end;
//-------------------------------------------------------------------//
 
L_Notlogged:
    mes "[Police]";
    mes "That person is not logged in.";
    close;
 
L_Wrong:
    next;
    mes "[Staff]";
    mes "This is your second attempt.";
    set @botcode,rand (1111,9999);
    mes "You have ^B40404less than a minute^000000";
    mes "to input the following code:";
    mes "[          ^DF7401"+@botcode+"^000000          ]";
    input @exitnum;
    if (@exitnum == @botcode) goto L_Correct;
    if (@exitnum != @botcode) goto L_WrongLastTry;
    close;
 
L_WrongLastTry:
    next;
    mes "[Staff]";
    mes "This is your last chance.";
    set @botcode,rand (1111,9999);
    mes "You have ^B40404less than a minute^000000";
    mes "to input the following code:";
    mes "[          ^DF0101"+@botcode+"^000000          ]";
    input @exitnum;
    if (@exitnum == @botcode) goto L_Correct;
    close2;
    mes "[Staff]";
    mes "You have failed the test.";
    stopnpctimer;
    sleep2 1000;
    atcommand "@adjgmlvl 0 "+strcharinfo(0)+""; // Sets to GM LvL 0.
    sleep2 1000;
 
//-------------------------------------------------------------------//
// 3 hours jail time for inputting the incorrect code three times.
// (mh = month, dy = day, hr = hour, mn = minute)
 
    atcommand "@jailfor 0mh0dy3hr0mn "+strcharinfo(0)+"";
    end;
//-------------------------------------------------------------------//
 
 
L_Correct:
    next;
    stopnpctimer;
    atcommand "@adjgmlvl 0 "+strcharinfo(0)+""; // Sets to GM LvL 0.
    percentheal 100,100;
    sc_start SC_BLESSING,300000,10;
    sc_start SC_INCREASEAGI,300000,10;
    specialeffect2 EF_BLESSING;
    specialeffect2 EF_INCAGILITY;
    mes "[Police]";
    mes "You passed. Thank you for your time.";
    close;
}
 
 
// Jail Cell 1.
 
sec_pri,57,83,4 script  Jail Time#1::Jail Time  738,{
    mes "[Jail Time]";
    mes "You have been caught botting.";
    mes "Please wait for your sentence";
    mes "to play out or contact a GM.";
    atcommand "@jailtime "+strcharinfo(0)+"";
    close;
}
 
 
//Jail Cell 2.
 
sec_pri,32,83,4 duplicate(Jail Time)    Jail Time#2 738