Anti-AFK Script

[ToiletMaster]

Hi there everyone!

I would like to request whether if anyone has any anti-afk script for homunculus AFK farming?

If possible I'd like to set for specific maps where people who AFK will be questioned (specifically for alchemist/creator & genetic class only) and if they fail to answer within 1 minute, they'll be auto jailed / kicked.

Hopefully someone can help thanks!

Duration before asking would be afking for 10 minutes straight with no movements.

 

[Angelmelody]

-    script    test    -1,{end;Oninit:function checkmap;setarray .nam$[0],"prontera","geffen","morocc";set .size,getarraysize(.nam$);for(.@i=0;.@i <.size;.@i++)    setmapflag .nam$[.@i],mf_loadevent;end;OnPCLoadMapEvent:    .@m$=strcharinfo(3);        if(checkmap(.@m$)){	        attachnpctimer ""+strcharinfo(0);	        initnpctimer;    }    end;OnTimer10000:    if(checkidle()>=600 && checkmap(strcharinfo(3)) && !checkhomcall() ){        set .@n,rand(1,1000);        initnpctimer "test2",getcharid(3);        addtimer 3000, strnpcinfo(3)+"::Ontimeout";        mes ""+.@n;        mes "please enter the number";        next;        input .@a;        if(.@a==.@n){            set @ca,1;            initnpctimer;            close;            }else{            atcommand "@kick "+strcharinfo(0);        }            end;        }    if(checkmap(.@m$) && !checkhomcall() )        initnpctimer;    else        detachnpctimer;end;Ontimeout:    if(checkmap(.@m$) && !checkhomcall() )        initnpctimer;    else        detachnpctimer;end;function    checkmap    {    set .@pm$,getarg(0);    for(.@j=0;.@j <.size;.@j++)        if(.@pm$==.nam$[.@j])            return 1;    return 0;}}-    script    test2    -1,{end;Oninit:function checkmap;setarray .nam$[0],"prontera","geffen","morocc";set .size,getarraysize(.nam$);end;OnTimer60000:    if(checkidle()>=600 && checkmap(strcharinfo(3)) && !checkhomcall() && !@ca )        atcommand "@kick "+strcharinfo(0);end;function    checkmap    {    set .@pm$,getarg(0);    for(.@j=0;.@j <.size;.@j++)        if(.@pm$==.nam$[.@j])            return 1;    return 0;}}