IP/Account Tracker

prontera.gat,165,173,5  script  Ip-Checker  987,{
if(select("EnterIP:Close.")==1){
input @ip$;
} else close;
More:
query_sql "SELECT `account_id`  FROM `login` WHERE `last_ip` = '"+escape_sql(@ip$)+"' AND `account_id` <> '"+escape_sql(@accountid$[0])+"'",@accountid$;
Start:
if(@menu==1){
query_sql "SELECT `account_id`,`name`,`class`,`base_level`,`job_level`,`last_map`,`last_x`,`last_y`,`online`  FROM `char` WHERE `account_id` = '"+escape_sql(@accountid$[0])+"'",@accountid$,@name$,@class$,@baselvl$,@joblvl$,@map$,@x$,@y$,@online;
} else
query_sql "SELECT `account_id`,`name`,`class`,`base_level`,`job_level`,`last_map`,`last_x`,`last_y`,`online`  FROM `char` WHERE `account_id` = '"+escape_sql(@accountid$[0])+"' AND `name` <> '"+escape_sql(@name$[0])+"'",@accountid$,@name$,@class$,@baselvl$,@joblvl$,@map$,@x$,@y$,@online;
if(@online){dispbottom "This player is online!";} else {dispbottom "This player seems to be offline you will not be-able to warp to him.";}
if(select("Refresh?:Name ("+@name$[0]+")  -  Class ("+JobName(@class$[0])+"):Blvl ("+@baselvl$[0]+")  -  Jlvl ("+@joblvl$[0]+"):Lastmap ("+@map$[0]+" ["+@x$[0]+","+@y$[0]+"]):Switch Accounts.:Switch Character.:Close.")==1||@menu==2){ goto Start;
} else if(@menu==4&&@online){
    Main:
    if(select("Goto them?:Back.:Close.")==1){
        atcommand "@goto "+@name$[0]+"";
    } else if(@menu==2){
        goto Start;
    } else if(@menu==3){
        close;
    }
} else if(@menu==5){
    goto More;
} else if(@menu==7){
    close;
} else
    goto Start;
}