| 1 | [ |
| 2 | "autonomous agent", |
| 3 | { |
| 4 | "init": "{ |
| 5 | $ASSET = 'hd936lRtPN11pkgNv8qVnqN2OHMyAp8P/NsLp6KsuqA='; |
| 6 | $BASE_FEE = 0; |
| 7 | $FEE_LIMIT = 3000; |
| 8 | $trigger_cost = unit[trigger.unit].headers_commission + unit[trigger.unit].payload_commission; |
| 9 | $addr = trigger.address; |
| 10 | $A = 'a';$P = 'p';$B='b';$T='total_bytes'; |
| 11 | $balance = balance[base] - trigger.output[[asset=base]]; |
| 12 | $free_mode = ($balance - var[$T]) > $FEE_LIMIT; |
| 13 | $addr_key = $A||$addr; |
| 14 | $byte_key = $B ||$addr; |
| 15 | $base_inp = trigger.output[[asset=base]]-($free_mode?(-$trigger_cost):0)-$BASE_FEE; |
| 16 | $value = trigger.data.value; |
| 17 | if(!trigger.data.approve AND $value AND (typeof($value) != 'number' OR $value <= 0)) bounce('Value param invalid'); |
| 18 | $st = var['st'] otherwise 0; |
| 19 | $sto = storage_size; |
| 20 | }", |
| 21 | "messages": { |
| 22 | "cases": [ |
| 23 | { |
| 24 | "if": "{ |
| 25 | trigger.data.withdraw_bytes |
| 26 | }", |
| 27 | "init": "{ |
| 28 | if(!var[$byte_key]) bounce('No bytes to withdraw'); |
| 29 | $max_w = var[$byte_key] < $balance ? var[$byte_key]:$balance; |
| 30 | if(!$value) bounce('Value param missing, max to withdraw '||$max_w) ; |
| 31 | $w_amount = is_integer($value)?$value:bounce('Value param invalid'); |
| 32 | $w_par = trigger.data.withdraw_bytes; |
| 33 | |
| 34 | if($w_amount <= 0) bounce('Max to withdraw '||$max_w); |
| 35 | if($w_amount > $max_w) bounce('Not enough funds, max to withdraw '||$max_w); |
| 36 | if($w_amount > $balance) bounce('Not enough funds on AA, max to withdraw '||$balance); |
| 37 | }", |
| 38 | "messages": [ |
| 39 | { |
| 40 | "app": "payment", |
| 41 | "payload": { |
| 42 | "asset": "base", |
| 43 | "outputs": [ |
| 44 | { |
| 45 | "address": "{$addr}", |
| 46 | "amount": "{$w_amount+$base_inp-round($w_par)}" |
| 47 | } |
| 48 | ] |
| 49 | } |
| 50 | }, |
| 51 | { |
| 52 | "app": "state", |
| 53 | "state": "{ |
| 54 | $w_fee = unit[response_unit].headers_commission + unit[response_unit].payload_commission; |
| 55 | if(!$w_par OR !is_integer($w_par) OR $w_fee != $w_par) bounce('Your withdraw costs '||$w_fee||' bytes, please use withdraw_bytes param to set exact fee'); |
| 56 | var[$byte_key] -= $w_amount; |
| 57 | var[$T] -= $w_amount; |
| 58 | if(var[$byte_key] == 0) var[$byte_key] = false; |
| 59 | if(var[$T] == 0) var[$T] = false; |
| 60 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 61 | var['st'] = $sto; |
| 62 | var['last'] = trigger.address; |
| 63 | response['message'] = 'Withdrawn '||$w_amount||' bytes from your account'; |
| 64 | }" |
| 65 | } |
| 66 | ] |
| 67 | }, |
| 68 | { |
| 69 | "if": "{ |
| 70 | trigger.data.approve |
| 71 | }", |
| 72 | "init": "{ |
| 73 | $approve = trigger.data.approve; |
| 74 | $perm_key = $P || $addr || $approve; |
| 75 | |
| 76 | if(!var[$addr_key]) bounce('You have no funds'); |
| 77 | if(!is_valid_address($approve) OR $approve == $addr) bounce('approve param invalid, specify address to approve instead of any other value'); |
| 78 | if(!$value) bounce('Value param missing'); |
| 79 | if(typeof($value) != 'number' OR $value < 0) bounce('Value param invalid'); |
| 80 | }", |
| 81 | "messages": [ |
| 82 | { |
| 83 | "app": "state", |
| 84 | "state": "{ |
| 85 | var[$perm_key] = $value; |
| 86 | if(var[$perm_key] == 0) var[$perm_key] = false; |
| 87 | var[$byte_key] += $base_inp; |
| 88 | var[$T] += $base_inp; |
| 89 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 90 | var['st'] = $sto; |
| 91 | var['last'] = trigger.address; |
| 92 | response['message'] = 'Approved '||$approve||' to spend '||$value ||' from your account'; |
| 93 | }" |
| 94 | } |
| 95 | ] |
| 96 | }, |
| 97 | { |
| 98 | "if": "{ |
| 99 | trigger.data.deposit |
| 100 | }", |
| 101 | "init": "{ |
| 102 | if(trigger.output[[asset!=base]].asset != 'none') |
| 103 | $asset = trigger.output[[asset!=base]].asset; |
| 104 | else |
| 105 | bounce('You must deposit '||$ASSET); |
| 106 | if($asset == 'ambiguous') bounce('Only 1 asset per tx'); |
| 107 | if($asset != $ASSET) bounce('You must deposit '||$ASSET); |
| 108 | $asset_inp = trigger.output[[asset!=base]]; |
| 109 | }", |
| 110 | "messages": [ |
| 111 | { |
| 112 | "app": "state", |
| 113 | "state": "{ |
| 114 | var[$addr_key] += $asset_inp; |
| 115 | var[$byte_key] += $base_inp; |
| 116 | var[$T] += $base_inp; |
| 117 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 118 | var['st'] = $sto; |
| 119 | var['last'] = trigger.address; |
| 120 | response['message'] = 'Added '||$asset_inp||' to your account'; |
| 121 | }" |
| 122 | } |
| 123 | ] |
| 124 | }, |
| 125 | { |
| 126 | "if": "{ |
| 127 | trigger.data.withdraw |
| 128 | }", |
| 129 | "init": "{ |
| 130 | if(!var[$addr_key]) bounce('Nothing to withdraw'); |
| 131 | $max_w = var[$addr_key]-(var[$addr_key] % 1); |
| 132 | if(!$value) bounce('Value param missing, max to withdraw '||$max_w) ; |
| 133 | $w_amount = $value - ($value % 1); |
| 134 | |
| 135 | if($w_amount <= 0) bounce('Max to withdraw '||$max_w); |
| 136 | if($w_amount > $max_w) bounce('Not enough funds, max to withdraw '||$max_w); |
| 137 | }", |
| 138 | "messages": [ |
| 139 | { |
| 140 | "app": "payment", |
| 141 | "payload": { |
| 142 | "asset": "{$ASSET}", |
| 143 | "outputs": [ |
| 144 | { |
| 145 | "address": "{$addr}", |
| 146 | "amount": "{$w_amount}" |
| 147 | } |
| 148 | ] |
| 149 | } |
| 150 | }, |
| 151 | { |
| 152 | "app": "state", |
| 153 | "state": "{ |
| 154 | $w_fee = unit[response_unit].headers_commission + unit[response_unit].payload_commission; |
| 155 | var[$addr_key] -= $w_amount; |
| 156 | var[$byte_key] += $base_inp-$w_fee; |
| 157 | var[$T] += $base_inp-$w_fee; |
| 158 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 159 | var['st'] = $sto; |
| 160 | var['last'] = trigger.address; |
| 161 | response['message'] = 'Withdrawn '||$w_amount||' from your account'; |
| 162 | }" |
| 163 | } |
| 164 | ] |
| 165 | }, |
| 166 | { |
| 167 | "if": "{ |
| 168 | trigger.data.transfer |
| 169 | }", |
| 170 | "init": "{ |
| 171 | $to = trigger.data.transfer; |
| 172 | |
| 173 | if(!is_valid_address($to) OR $to == $addr) bounce('transfer param invalid, specify address to instead of any other value'); |
| 174 | if(!var[$addr_key]) bounce('No funds found'); |
| 175 | if(!$value) bounce('Value param missing'); |
| 176 | if($value > var[$addr_key]) bounce('You have max '||var[$addr_key]); |
| 177 | }", |
| 178 | "messages": [ |
| 179 | { |
| 180 | "app": "state", |
| 181 | "state": "{ |
| 182 | var[$A || $to] += $value; |
| 183 | var[$addr_key] -= $value; |
| 184 | if(var[$addr_key] == 0) var[$addr_key] = false; |
| 185 | var[$byte_key] += $base_inp; |
| 186 | var[$T] += $base_inp; |
| 187 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 188 | var['st'] = $sto; |
| 189 | var['last'] = trigger.address; |
| 190 | response['message'] = 'Transferred '||$value||' to '||$to; |
| 191 | }" |
| 192 | } |
| 193 | ] |
| 194 | }, |
| 195 | { |
| 196 | "if": "{ |
| 197 | trigger.data.transfer_from |
| 198 | }", |
| 199 | "init": "{ |
| 200 | $from = trigger.data.transfer_from; |
| 201 | $to = trigger.data.to; |
| 202 | $from_key = $A || $from; |
| 203 | $perm_key = $P || $from || $addr; |
| 204 | |
| 205 | if(!is_valid_address($from)) bounce('transfer_from param invalid, specify from address instead of any other value'); |
| 206 | if(!$to) bounce('To param missing'); |
| 207 | if(!is_valid_address($to)) bounce('To param invalid'); |
| 208 | if(!var[$from_key]) bounce('Account have no funds'); |
| 209 | if(!$value) bounce('Value param missing'); |
| 210 | if(!var[$perm_key]) bounce('Not allowed to spend'); |
| 211 | if(var[$perm_key] < $value) bounce('You can spend max '||var[$perm_key]); |
| 212 | if(var[$from_key] < $value) bounce('Account have '||var[$from_key]); |
| 213 | }", |
| 214 | "messages": [ |
| 215 | { |
| 216 | "app": "state", |
| 217 | "state": "{ |
| 218 | var[$A || $to] += $value; |
| 219 | var[$from_key] -= $value; |
| 220 | if(var[$from_key] == 0) var[$from_key] = false; |
| 221 | var[$perm_key] -= $value; |
| 222 | if(var[$perm_key] == 0) var[$perm_key] = false; |
| 223 | var[$byte_key] += $base_inp; |
| 224 | var[$T] += $base_inp; |
| 225 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 226 | var['st'] = $sto; |
| 227 | var['last'] = trigger.address; |
| 228 | response['message'] = 'Transferred '||$value||' to '||$to; |
| 229 | }" |
| 230 | } |
| 231 | ] |
| 232 | }, |
| 233 | { |
| 234 | "messages": [ |
| 235 | { |
| 236 | "app": "state", |
| 237 | "state": "{ |
| 238 | if(trigger.output[[asset!=base]].asset != 'none') bounce('To deposit an asset, use deposit param'); |
| 239 | if($st != $sto) var[$B||var['last']] -= ($sto - $st); |
| 240 | var['st'] = $sto; |
| 241 | response['usage'] = 'Send param = 1 for continue. Accepted params: deposit,withdraw,transfer,transfer_from,approve,withdraw_bytes'; |
| 242 | response['message'] = 'Received bytes for funding AA operation, thaanks!'; |
| 243 | }" |
| 244 | } |
| 245 | ] |
| 246 | } |
| 247 | ] |
| 248 | } |
| 249 | } |
| 250 | ] |