SHARE
TWEET

Untitled

a guest Jan 25th, 2015 379 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. BNZ $payout_time :loop
  2. SET @min_amount #0000002e90edd000
  3. FUN @payout_time get_Creation_Timestamp
  4. SET @timestamp $payout_time
  5. init:
  6. SET @payout_balance #0000000000000000
  7. SET @tx_info #0000000000002760
  8. FUN @payout_time add_Minutes_to_Timestamp $payout_time $tx_info
  9. loop:
  10. FUN A_to_Tx_after_Timestamp $timestamp
  11. FUN @tx_info check_A_Is_Zero
  12. BNZ $tx_info :process_tx
  13. FIN
  14. process_tx:
  15. FUN @tx_time get_Timestamp_for_Tx_in_A
  16. BLT $tx_time $payout_time :get_info_amount
  17. JMP :payout
  18. get_info_amount:
  19. FUN @tx_amount get_Amount_for_Tx_in_A
  20. FUN B_to_Address_of_Tx_in_A
  21. FUN @tx_info get_B1
  22. FUN B_to_Address_of_Creator
  23. FUN @creator get_B1
  24. BEQ $creator $tx_info :bootstrap
  25. FUN @tx_info get_Type_for_Tx_in_A
  26. BNZ $tx_info :skip
  27. BEQ $tx_amount $min_amount :get_ticket
  28. JMP :refund
  29. get_ticket:
  30. FUN @tx_info get_Ticket_Id_for_Tx_in_A
  31. FIZ $tx_info
  32. FUN B_to_Address_of_Tx_in_A
  33. FUN set_A1 $tx_info
  34. FUN send_A_to_Address_in_B
  35. ADD @payout_balance $min_amount
  36. BLE $tx_info $best_ticket :skip
  37. SET @best_ticket $tx_info
  38. FUN @best_account get_B1
  39. skip:
  40. SET @timestamp $tx_time
  41. JMP :loop
  42. bootstrap:
  43. ADD @payout_balance $tx_amount
  44. JMP :skip
  45. payout:
  46. BZR $payout_balance :empty
  47. BZR $best_ticket :empty
  48. FUN set_B1 $best_account
  49. FUN @block_timestamp get_Block_Timestamp
  50. BEQ $block_timestamp $payout_time :pay_all_at_amount
  51. FUN send_to_Address_in_B $payout_balance
  52. JMP :finish_payout
  53. pay_all_at_amount:
  54. FUN send_All_to_Address_in_B
  55. JMP :finish_payout
  56. empty:
  57. SET @timestamp $tx_time
  58. JMP :init
  59. refund:
  60. FUN B_to_Address_of_Tx_in_A
  61. BLE $tx_amount $min_amount :refund_less
  62. SUB @tx_amount $min_amount
  63. FUN send_to_Address_in_B $tx_amount
  64. JMP :get_ticket
  65. refund_less:
  66. FUN send_to_Address_in_B $tx_amount
  67. JMP :skip
  68. finish_payout:
  69. SET @timestamp $payout_time
  70. SET @best_ticket #0000000000000000
  71. SET @best_account #0000000000000000
  72. JMP :init
RAW Paste Data
Top