Naokimaza

/pay

Mar 20th, 2014
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.92 KB | None | 0 0
  1. CMD:pay(playerid, params[])
  2. {
  3. new giveplayerid, cash[32], dollar, sen, str[128], duit[32], string[32];
  4. if(sscanf(params, "us[32]", giveplayerid, cash)) return SendClientMessage(playerid, COLOR_WHITE, "USAGE: /pay [PlayerID] [Jumlah]");
  5. if(strfind(cash, ".", true) != -1)
  6. {
  7. sscanf(cash, "p<.>dd", dollar, sen);
  8. format(duit, 32, "%d%02d", dollar, sen);
  9. GivePlayerCash(playerid, -strval(duit));
  10. GivePlayerCash(giveplayerid, strval(duit));
  11. format(str, 128, "Anda telah memberikan uang sebesar $%s kepada %s.", cash, GetPlayerNameEx(giveplayerid));
  12. SendClientMessage(playerid, COLOR_WHITE, str);
  13. }
  14. else
  15. {
  16. GivePlayerCash(playerid, -strval(duit));
  17. GivePlayerCash(giveplayerid, strval(duit));
  18. format(str, 128, "Anda telah memberikan uang sebesar $%s kepada %s.", cash, GetPlayerNameEx(giveplayerid));
  19. SendClientMessage(playerid, COLOR_WHITE, str);
  20. return 1;
  21. }
  22. return 1;
  23. }
Advertisement
Add Comment
Please, Sign In to add comment