Advertisement
ljdp

roll.perky

Oct 18th, 2020 (edited)
956
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #roll.perky
  2. popi C;
  3. popt 1;
  4. popi D;
  5. clear;
  6. call "stat.agent";
  7. popt 1;
  8. popt 1;
  9. clear;
  10. pusht 1;
  11. pusht "rolled a";
  12.  
  13. loop:
  14.     less C 1;
  15.     jumpif T done;  
  16.     rand D;
  17.     add A 1;
  18.     pushi A;
  19.     add A B;
  20.     set B A;
  21.     sub C 1;
  22.     set C A;
  23.     jump loop;
  24. done:
  25.     pusht "SUM:";
  26.     pushi B;
  27.     halt;
Advertisement
RAW Paste Data Copied
Advertisement