how to make @cashpoint command?

[vonbad]

how to make @cp command which you can view your current cashpoints?

[Emistry]

- script Sample -1,{

OnInit:

bindatcmd “cashpoint",strnpcinfo(3)+"::OnAtCommand";

end;

OnAtCommand:

dispbottom "You have "+#CASHPOINTS+" cashpoints.";

end;

}