Advertisement
Guest User

Untitled

a guest
Jul 10th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.39 KB | None | 0 0
  1. /*
  2.   Command to use skill.
  3.   --
  4.   Usage:
  5.     us <skill_id> <arglist>
  6. */
  7.  
  8. include ssv;
  9. include utils;
  10.  
  11. program us(pc, text)
  12.   var args := SplitWords(text);
  13.  
  14.   if(is_skill(args[1]) and know_skill(pc, args[1]))
  15.     var r := use_skill(pc, args[1], text);
  16.     if(not r)
  17.       error_msg(pc, "Cannot use skill.");
  18.     endif
  19.   else
  20.     error_msg(pc, "Invalid skill.");
  21.   endif
  22. endprogram
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement