/*
    http://rathena.org/board/topic/95249-givepoints-script/
*/
 
-   script  give_afk_point  -1,{
OnInit:
    bindatcmd "giveafkpoints",strnpcinfo(0)+"::OnAtcommand";
    end;
 
OnAtcommand:
    .@target_aid = getcharid( 3,.@atcmd_parameters$[0] );
    .@point = atoi( .@atcmd_parameters$[1] );
    
    if( .@atcmd_numparameters != 2 ){
        dispbottom "Usage : "+.@atcmd_command$+" <target name> <amount>";
    }
    else if( .@point < #AFKPOINTS ){
        dispbottom "You only have "+#AFKPOINTS+" Points.";
    }
    else if( !.@target_aid ){
        dispbottom "Target not found/Offline.";
    }
    else{
        .@sender_name$ = strcharinfo(0);
        #AFKPOINTS -= .@point;
        dispbottom "Sent "+.@point+" Point to "+.@atcmd_parameters$[0];
        attachrid( .@target_aid );
        #AFKPOINTS += .@point;
        dispbottom "Received "+.@point+" Points send by "+.@sender_name$;
    }
    end;
}