| 1 | | - | {-# STDLIB_VERSION 5 #-} |
|---|
| 2 | | - | {-# SCRIPT_TYPE ACCOUNT #-} |
|---|
| 3 | | - | {-# CONTENT_TYPE DAPP #-} |
|---|
| 4 | | - | let a = "__" |
|---|
| 5 | | - | |
|---|
| 6 | | - | let b = 1000000 |
|---|
| 7 | | - | |
|---|
| 8 | | - | let c = 100000000 |
|---|
| 9 | | - | |
|---|
| 10 | | - | let d = "WAVES" |
|---|
| 11 | | - | |
|---|
| 12 | | - | let e = fromBase58String(d) |
|---|
| 13 | | - | |
|---|
| 14 | | - | @Callable(f) |
|---|
| 15 | | - | func distributeMinerReward (g) = if ((size(f.payments) != 1)) |
|---|
| 16 | | - | then throw("exact 1 payment must be attached") |
|---|
| 17 | | - | else if ((f.caller != f.originCaller)) |
|---|
| 18 | | - | then throw("dapp to dapp calls are not allowed") |
|---|
| 19 | | - | else { |
|---|
| 20 | | - | let h = f.payments[0] |
|---|
| 21 | | - | let i = h.amount |
|---|
| 22 | | - | let j = valueOrElse(h.assetId, e) |
|---|
| 23 | | - | let k = f.fee |
|---|
| 24 | | - | let l = valueOrElse(f.feeAssetId, e) |
|---|
| 25 | | - | if ((j != e)) |
|---|
| 26 | | - | then throw("only Waves can be used in payment") |
|---|
| 27 | | - | else if ((l != e)) |
|---|
| 28 | | - | then throw("only Waves can be used in fees") |
|---|
| 29 | | - | else if ((k != ((5 * c) / 1000))) |
|---|
| 30 | | - | then throw("fee amount couldn't exceed 0.005") |
|---|
| 31 | | - | else { |
|---|
| 32 | | - | let m = addressFromStringValue("3NCxuRYiiHr5krAPusvUCjvauqQXSDKkRjT") |
|---|
| 33 | | - | let n = f.caller |
|---|
| 34 | | - | let o = addressFromStringValue(g) |
|---|
| 35 | | - | let p = 950000 |
|---|
| 36 | | - | let q = 50000 |
|---|
| 37 | | - | let r = (wavesBalance(n).available - k) |
|---|
| 38 | | - | let s = fraction(i, q, b) |
|---|
| 39 | | - | let t = (i - s) |
|---|
| 40 | | - | [ScriptTransfer(o, s, unit), ScriptTransfer(m, t, unit)] |
|---|
| 41 | | - | } |
|---|
| 42 | | - | } |
|---|
| 43 | | - | |
|---|
| 44 | | - | |
|---|
| 1 | + | # no script |
|---|
