Advertisement
KyadCK

Untitled

Apr 12th, 2014
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.47 KB | None | 0 0
  1. Add:
  2. Script:
  3. - '@IF i <cmdargcount> < 3'
  4. - ' @PLAYER &e-- &b/note add <player name> <note> &e-- '
  5. - '@ELSE'
  6. - ' @SETINT $LCase.SCount 1'
  7. - ' @SETSTR $LCase.STemp <cmdarg:2>'
  8. - ' @GETSTRLEN $LCase.SLength <cmdarg:2>'
  9. - ' @LOOP $LCase.SLength'
  10. - ' @SETINT $LCase.ITemp $Alphabet.<getchar:$LCase.STemp:$LCase.SCount>'
  11. - ' @IF i $LCase.ITemp > 35'
  12. - ' @AND i $LCase.ITemp < 62'
  13. - ' @SUBINT $LCase.ITemp 26'
  14. - ' @ENDIF'
  15. - ' @IF i $LCase.SCount = 1'
  16. - ' @SETSTR $LCase.<playername> $Alphabet.<var:$LCase.ITemp>'
  17. - ' @ELSE'
  18. - ' @ADDSTR $LCase.<playername> $Alphabet.<var:$LCase.ITemp>'
  19. - ' @ENDIF'
  20. - ' @ADDINT $LCase.SCount 1'
  21. - ' @ENDLOOP'
  22. - ' @CMDCON stringbuilder 1 <cmdline> &e-&4<playername> '
  23. - ' @PAUSE 0.5'
  24. - ' @ADDLIST @Notes.<var:$LCase.<playername>> <var:$string.current>'
  25. - ' @PLAYER &e-- &bNote added. Check it out under /note list <player name>. &e-- '
  26. - '@ENDIF'
  27. list:
  28. Script:
  29. - '@IF i <cmdargcount> < 2'
  30. - ' @PLAYER &e-- &b/note list <player name> &e-- '
  31. - '@ELSE'
  32. - ' @SETINT $LCase.SCount 1'
  33. - ' @SETSTR $LCase.STemp <cmdarg:2>'
  34. - ' @GETSTRLEN $LCase.SLength <cmdarg:2>'
  35. - ' @LOOP $LCase.SLength'
  36. - ' @SETINT $LCase.ITemp $Alphabet.<getchar:$LCase.STemp:$LCase.SCount>'
  37. - ' @IF i $LCase.ITemp > 35'
  38. - ' @AND i $LCase.ITemp < 62'
  39. - ' @SUBINT $LCase.ITemp 26'
  40. - ' @ENDIF'
  41. - ' @IF i $LCase.SCount = 1'
  42. - ' @SETSTR $LCase.<playername> $Alphabet.<var:$LCase.ITemp>'
  43. - ' @ELSE'
  44. - ' @ADDSTR $LCase.<playername> $Alphabet.<var:$LCase.ITemp>'
  45. - ' @ENDIF'
  46. - ' @ADDINT $LCase.SCount 1'
  47. - ' @ENDLOOP'
  48. - ' @PLAYER &e--&b $LCase.<playername> &e-- '
  49. - ' @SETINT $Notes.Counter 0'
  50. - ' @IF i @Notes.<var:$LCase.<playername>> >= 1'
  51. - ' @LOOP @Notes.<var:$LCase.<playername>>'
  52. - ' @SETSTR $Notes.Temp <var:$LCase.<playername>>'
  53. - ' @ADDSTR $Notes.Temp [<var:$Notes.Counter>]'
  54. - ' @PLAYER @Notes.<var:$Notes.Temp>'
  55. - ' @ADDINT $Notes.Counter 1'
  56. - ' @ENDLOOP'
  57. - ' @ELSE'
  58. - ' @PLAYER &e-- &b<cmdarg2> has no notes. &e-- '
  59. - ' @ENDIF'
  60. - '@ENDIF'
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement