w8 · tx · A7z···pvm

tx · A7z21ZSA5cAFp6jqPhjphY4EW9PnDEBraifuj8uSqpvm

3N3Aq1GcHD8bZMGyVgyvaTHrBM7EySFtJ1H:  -0.00500000 Waves

2022.06.19 01:31 [2102414] smart account 3N3Aq1GcHD8bZMGyVgyvaTHrBM7EySFtJ1H > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "A7z21ZSA5cAFp6jqPhjphY4EW9PnDEBraifuj8uSqpvm",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1655591524345,
    "version": 2,
    "chainId": 84,
    "sender": "3N3Aq1GcHD8bZMGyVgyvaTHrBM7EySFtJ1H",
    "senderPublicKey": "69Rez9g3wdeHPiCsmjaaaK1GBhFjL79pxMPX9Fpk8S5e",
    "proofs": [
        "naGz1wFdoRVeGLhR4P9rmGTpr4RSob7hRAU3iTEkhMojA2yTsDiyxQtwJdsDpZu7aMbfuGoEXewKd5tLRS2iD6V"
    ],
    "script": "base64:AAIFAAAAAAAAAAcIAhIDCgEIAAAAEQAAAAADU0VQAgAAAAJfXwAAAAAFTVVMVDgAAAAAAAX14QAAAAAACkFOT1RFSURTVFICAAAABVdBVkVTAAAAAAdBTk9URUlECQACWQAAAAEFAAAACkFOT1RFSURTVFIAAAAACUFOT1RFQUREUgkBAAAAB0FkZHJlc3MAAAABCQABmwAAAAECAAAAIzNOOEV2cEdta2FudG9xWUFkaUc0VzdicllFSnF6a1FWUkJBAAAAAAtQUk9UT1BBUlRYOAAAAAAABamVwAAAAAAJQkVOUEFSVFg4AAAAAAAATEtAAQAAAAxnZXRTdHJPckVsc2UAAAACAAAAA2tleQAAAApkZWZhdWx0VmFsCQEAAAALdmFsdWVPckVsc2UAAAACCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQUAAAAKZGVmYXVsdFZhbAEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACAgAAAA9NYW5kYXRvcnkgdGhpcy4FAAAAA2tleQIAAAAPIGlzIG5vdCBkZWZpbmVkAQAAABBnZXRBZGRyZXNzT3JGYWlsAAAAAQAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgIAAAAVRmFpbCB0byBjb252ZXJ0IHRoaXMuBQAAAANrZXkCAAAAEyB2YWx1ZSBpbnRvIEFkZHJlc3MBAAAAFXZhbGlkYXRlQWRkcmVzc09yRmFpbAAAAAEAAAAKYWRkcmVzc1N0cgQAAAAHYWRkcmVzcwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEFAAAACmFkZHJlc3NTdHIJAAEsAAAAAgIAAAAdZmFpbCB0byBjb252ZXJ0IGludG8gYWRkcmVzcyAFAAAACmFkZHJlc3NTdHIDCQAAZgAAAAIAAAAAAAAAAAAICQAD7wAAAAEFAAAAB2FkZHJlc3MAAAAJYXZhaWxhYmxlCQEAAAAFdGhyb3cAAAAABQAAAAphZGRyZXNzU3RyAQAAABRrZXlOb2RlUmV3YXJkc1RvdGFscwAAAAEAAAAHYWRkcmVzcwkAASwAAAACAgAAAA4lcyVzX190b3RhbHNfXwUAAAAHYWRkcmVzcwEAAAAQa2V5UmV3YXJkSGlzdG9yeQAAAAIAAAALbm9kZUFkZHJlc3MAAAAEdHhJZAkABLkAAAACCQAETAAAAAICAAAABiVzJXMlcwkABEwAAAACAgAAAAdoaXN0b3J5CQAETAAAAAIJAAQlAAAAAQUAAAALbm9kZUFkZHJlc3MJAARMAAAAAgkAAlgAAAABBQAAAAR0eElkBQAAAANuaWwFAAAAA1NFUAEAAAARZGF0YVJld2FyZEhpc3RvcnkAAAADAAAAEGFub3RlQW1vdW50VG90YWwAAAAOYmVuZWZpY2lhcnlBbXQAAAALcHJvdG9jb2xBbXQJAAS5AAAAAgkABEwAAAACAgAAAA4lZCVkJWQlZCVkJWQlZAkABEwAAAACCQABpAAAAAEIBQAAAAlsYXN0QmxvY2sAAAAGaGVpZ2h0CQAETAAAAAIJAAGkAAAAAQgFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAJAARMAAAAAgkAAaQAAAABBQAAABBhbm90ZUFtb3VudFRvdGFsCQAETAAAAAIJAAGkAAAAAQUAAAAOYmVuZWZpY2lhcnlBbXQJAARMAAAAAgkAAaQAAAABBQAAAAtwcm90b2NvbEFtdAUAAAADbmlsBQAAAANTRVABAAAAElJld2FyZEhpc3RvcnlFbnRyeQAAAAUAAAALbm9kZUFkZHJlc3MAAAAEdHhJZAAAAAhtaW5lZEFtdAAAAA5iZW5lZmljaWFyeUFtdAAAAAtwcm90b2NvbEFtdAkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEGtleVJld2FyZEhpc3RvcnkAAAACBQAAAAtub2RlQWRkcmVzcwUAAAAEdHhJZAkBAAAAEWRhdGFSZXdhcmRIaXN0b3J5AAAAAwUAAAAIbWluZWRBbXQFAAAADmJlbmVmaWNpYXJ5QW10BQAAAAtwcm90b2NvbEFtdAEAAAAQZGF0YVJld2FyZFRvdGFscwAAAAMAAAAIbWluZWRBbXQAAAAOYmVuZWZpY2lhcnlBbXQAAAALcHJvdG9jb2xBbXQJAAS5AAAAAgkABEwAAAACAgAAAAolZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAAIbWluZWRBbXQJAARMAAAAAgkAAaQAAAABBQAAAA5iZW5lZmljaWFyeUFtdAkABEwAAAACCQABpAAAAAEFAAAAC3Byb3RvY29sQW10BQAAAANuaWwFAAAAA1NFUAEAAAARUmV3YXJkVG90YWxzRW50cnkAAAAEAAAABW1pbmVyAAAACG1pbmVkQW10AAAADmJlbmVmaWNpYXJ5QW10AAAAC3Byb3RvY29sQW10BAAAABRub2RlUmV3YXJkc1RvdGFsc0tFWQkBAAAAFGtleU5vZGVSZXdhcmRzVG90YWxzAAAAAQkABCUAAAABBQAAAAVtaW5lcgQAAAAQbm9kZVJld2FyZHNBcnJheQkABLUAAAACCQEAAAAMZ2V0U3RyT3JFbHNlAAAAAgUAAAAUbm9kZVJld2FyZHNUb3RhbHNLRVkJAQAAABBkYXRhUmV3YXJkVG90YWxzAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAADU0VQBAAAAAtuZXdNaW5lZEFtdAkAAGQAAAACCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAQbm9kZVJld2FyZHNBcnJheQAAAAAAAAAAAQUAAAAIbWluZWRBbXQEAAAAEW5ld0JlbmVmaWNpYXJ5QW10CQAAZAAAAAIJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAABBub2RlUmV3YXJkc0FycmF5AAAAAAAAAAACBQAAAA5iZW5lZmljaWFyeUFtdAQAAAAObmV3UHJvdG9jb2xBbXQJAABkAAAAAgkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAEG5vZGVSZXdhcmRzQXJyYXkAAAAAAAAAAAMFAAAAC3Byb3RvY29sQW10CQEAAAALU3RyaW5nRW50cnkAAAACBQAAABRub2RlUmV3YXJkc1RvdGFsc0tFWQkBAAAAEGRhdGFSZXdhcmRUb3RhbHMAAAADBQAAAAtuZXdNaW5lZEFtdAUAAAARbmV3QmVuZWZpY2lhcnlBbXQFAAAADm5ld1Byb3RvY29sQW10AAAAAQAAAAFpAQAAABVkaXN0cmlidXRlTWluZXJSZXdhcmQAAAABAAAAFGJlbmlmaWNhcnlBZGRyZXNzU3RyAwkBAAAAAiE9AAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAAIAAAABAgAAACBleGFjdCAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcggFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyCQAAAgAAAAECAAAAImRhcHAgdG8gZGFwcCBjYWxscyBhcmUgbm90IGFsbG93ZWQEAAAAA3BtdAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAAIbWluZWRBbXQIBQAAAANwbXQAAAAGYW1vdW50BAAAAApwbXRBc3NldElkCQEAAAALdmFsdWVPckVsc2UAAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB0FOT1RFSUQEAAAABmZlZUFtdAgFAAAAAWkAAAADZmVlBAAAAApmZWVBc3NldElkCQEAAAALdmFsdWVPckVsc2UAAAACCAUAAAABaQAAAApmZWVBc3NldElkBQAAAAdBTk9URUlEAwkBAAAAAiE9AAAAAgUAAAAKcG10QXNzZXRJZAUAAAAHQU5PVEVJRAkAAAIAAAABAgAAACFvbmx5IFdhdmVzIGNhbiBiZSB1c2VkIGluIHBheW1lbnQDCQEAAAACIT0AAAACBQAAAApmZWVBc3NldElkBQAAAAdBTk9URUlECQAAAgAAAAECAAAAHm9ubHkgV2F2ZXMgY2FuIGJlIHVzZWQgaW4gZmVlcwMJAQAAAAIhPQAAAAIFAAAABmZlZUFtdAkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAAUFAAAABU1VTFQ4AAAAAAAAAAPoCQAAAgAAAAECAAAAIGZlZSBhbW91bnQgY291bGRuJ3QgZXhjZWVkIDAuMDA1BAAAAAxtaW5lckFkZHJlc3MIBQAAAAFpAAAABmNhbGxlcgQAAAARYmVuaWZpY2FyeUFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAAFGJlbmlmaWNhcnlBZGRyZXNzU3RyBAAAAAxwcm90b2NvbFBhcnQFAAAAC1BST1RPUEFSVFg4BAAAAA5iZW5pZmljYXJ5UGFydAUAAAAJQkVOUEFSVFg4BAAAABBhdmFpbGFibGVCYWxhbmNlCQAAZQAAAAIICQAD7wAAAAEFAAAADG1pbmVyQWRkcmVzcwAAAAlhdmFpbGFibGUFAAAABmZlZUFtdAMJAQAAAAIhPQAAAAIFAAAAEGF2YWlsYWJsZUJhbGFuY2UAAAAAAAAAAAAJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAABGFsbCAJAAGkAAAAAQUAAAAQYXZhaWxhYmxlQmFsYW5jZQIAAABBIFdhdmVsZXRzIGZyb20gdGhlIE5vZGUgYmFsYW5jZSBtdXN0IGJlIGF0dGFjaGVkIGludG8gdGhlIHBheW1lbnQEAAAADWJlbmlmaWNhcnlBbXQJAABrAAAAAwUAAAAIbWluZWRBbXQFAAAADmJlbmlmaWNhcnlQYXJ0BQAAAAVNVUxUOAQAAAALcHJvdG9jb2xBbXQJAABlAAAAAgUAAAAIbWluZWRBbXQFAAAADWJlbmlmaWNhcnlBbXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAARYmVuaWZpY2FyeUFkZHJlc3MFAAAADWJlbmlmaWNhcnlBbXQFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAJQU5PVEVBRERSBQAAAAtwcm90b2NvbEFtdAUAAAAEdW5pdAkABEwAAAACCQEAAAASUmV3YXJkSGlzdG9yeUVudHJ5AAAABQUAAAAMbWluZXJBZGRyZXNzCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAAAhtaW5lZEFtdAUAAAANYmVuaWZpY2FyeUFtdAUAAAALcHJvdG9jb2xBbXQJAARMAAAAAgkBAAAAEVJld2FyZFRvdGFsc0VudHJ5AAAABAUAAAAMbWluZXJBZGRyZXNzBQAAAAhtaW5lZEFtdAUAAAANYmVuaWZpY2FyeUFtdAUAAAALcHJvdG9jb2xBbXQFAAAAA25pbAAAAADB6I+h",
    "height": 2102414,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8LxQPwikXYEpssNg8rvzSgaPgFdsjXnjsy5kC9iPc492
Next: DWa4KnKpUWXYeqYHMYHAt9ZBDWt28JvraDQLJjjPt279

Diff: 
Old New Differences
9 9  
10 10  let ANOTEID = fromBase58String(ANOTEIDSTR)
11 11  
12 - let ANOTEADDR = "3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"
12 + let ANOTEADDR = Address(toBytes("3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"))
13 13  
14 14  let PROTOPARTX8 = 95000000
15 15  
75 75                      else if ((feeAmt != ((5 * MULT8) / 1000)))
76 76                          then throw("fee amount couldn't exceed 0.005")
77 77                          else {
78 -                             let anoteAddress = getAddressOrFail(ANOTEADDR)
79 78                              let minerAddress = i.caller
80 79                              let benificaryAddress = addressFromStringValue(benificaryAddressStr)
81 80                              let protocolPart = PROTOPARTX8
86 85                                  else {
87 86                                      let benificaryAmt = fraction(minedAmt, benificaryPart, MULT8)
88 87                                      let protocolAmt = (minedAmt - benificaryAmt)
89 - [ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(anoteAddress, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
88 + [ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(ANOTEADDR, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
90 89                                      }
91 90                              }
92 91              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let MULT8 = 100000000
7 7  
8 8  let ANOTEIDSTR = "WAVES"
9 9  
10 10  let ANOTEID = fromBase58String(ANOTEIDSTR)
11 11  
12 - let ANOTEADDR = "3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"
12 + let ANOTEADDR = Address(toBytes("3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"))
13 13  
14 14  let PROTOPARTX8 = 95000000
15 15  
16 16  let BENPARTX8 = 5000000
17 17  
18 18  func getStrOrElse (key,defaultVal) = valueOrElse(getString(this, key), defaultVal)
19 19  
20 20  
21 21  func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (("Mandatory this." + key) + " is not defined"))
22 22  
23 23  
24 24  func getAddressOrFail (key) = valueOrErrorMessage(addressFromString(getStringOrFail(key)), (("Fail to convert this." + key) + " value into Address"))
25 25  
26 26  
27 27  func validateAddressOrFail (addressStr) = {
28 28      let address = valueOrErrorMessage(addressFromString(addressStr), ("fail to convert into address " + addressStr))
29 29      if ((0 > wavesBalance(address).available))
30 30          then throw()
31 31          else addressStr
32 32      }
33 33  
34 34  
35 35  func keyNodeRewardsTotals (address) = ("%s%s__totals__" + address)
36 36  
37 37  
38 38  func keyRewardHistory (nodeAddress,txId) = makeString(["%s%s%s", "history", toString(nodeAddress), toBase58String(txId)], SEP)
39 39  
40 40  
41 41  func dataRewardHistory (anoteAmountTotal,beneficiaryAmt,protocolAmt) = makeString(["%d%d%d%d%d%d%d", toString(lastBlock.height), toString(lastBlock.timestamp), toString(anoteAmountTotal), toString(beneficiaryAmt), toString(protocolAmt)], SEP)
42 42  
43 43  
44 44  func RewardHistoryEntry (nodeAddress,txId,minedAmt,beneficiaryAmt,protocolAmt) = StringEntry(keyRewardHistory(nodeAddress, txId), dataRewardHistory(minedAmt, beneficiaryAmt, protocolAmt))
45 45  
46 46  
47 47  func dataRewardTotals (minedAmt,beneficiaryAmt,protocolAmt) = makeString(["%d%d%d%d%d", toString(minedAmt), toString(beneficiaryAmt), toString(protocolAmt)], SEP)
48 48  
49 49  
50 50  func RewardTotalsEntry (miner,minedAmt,beneficiaryAmt,protocolAmt) = {
51 51      let nodeRewardsTotalsKEY = keyNodeRewardsTotals(toString(miner))
52 52      let nodeRewardsArray = split(getStrOrElse(nodeRewardsTotalsKEY, dataRewardTotals(0, 0, 0)), SEP)
53 53      let newMinedAmt = (parseIntValue(nodeRewardsArray[1]) + minedAmt)
54 54      let newBeneficiaryAmt = (parseIntValue(nodeRewardsArray[2]) + beneficiaryAmt)
55 55      let newProtocolAmt = (parseIntValue(nodeRewardsArray[3]) + protocolAmt)
56 56      StringEntry(nodeRewardsTotalsKEY, dataRewardTotals(newMinedAmt, newBeneficiaryAmt, newProtocolAmt))
57 57      }
58 58  
59 59  
60 60  @Callable(i)
61 61  func distributeMinerReward (benificaryAddressStr) = if ((size(i.payments) != 1))
62 62      then throw("exact 1 payment must be attached")
63 63      else if ((i.caller != i.originCaller))
64 64          then throw("dapp to dapp calls are not allowed")
65 65          else {
66 66              let pmt = i.payments[0]
67 67              let minedAmt = pmt.amount
68 68              let pmtAssetId = valueOrElse(pmt.assetId, ANOTEID)
69 69              let feeAmt = i.fee
70 70              let feeAssetId = valueOrElse(i.feeAssetId, ANOTEID)
71 71              if ((pmtAssetId != ANOTEID))
72 72                  then throw("only Waves can be used in payment")
73 73                  else if ((feeAssetId != ANOTEID))
74 74                      then throw("only Waves can be used in fees")
75 75                      else if ((feeAmt != ((5 * MULT8) / 1000)))
76 76                          then throw("fee amount couldn't exceed 0.005")
77 77                          else {
78 -                             let anoteAddress = getAddressOrFail(ANOTEADDR)
79 78                              let minerAddress = i.caller
80 79                              let benificaryAddress = addressFromStringValue(benificaryAddressStr)
81 80                              let protocolPart = PROTOPARTX8
82 81                              let benificaryPart = BENPARTX8
83 82                              let availableBalance = (wavesBalance(minerAddress).available - feeAmt)
84 83                              if ((availableBalance != 0))
85 84                                  then throw((("all " + toString(availableBalance)) + " Wavelets from the Node balance must be attached into the payment"))
86 85                                  else {
87 86                                      let benificaryAmt = fraction(minedAmt, benificaryPart, MULT8)
88 87                                      let protocolAmt = (minedAmt - benificaryAmt)
89 - [ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(anoteAddress, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
88 + [ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(ANOTEADDR, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
90 89                                      }
91 90                              }
92 91              }
93 92  
94 93

Old	New		Differences
9	9
10	10		let ANOTEID = fromBase58String(ANOTEIDSTR)
11	11
12		-	let ANOTEADDR = "3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"
	12	+	let ANOTEADDR = Address(toBytes("3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"))
13	13
14	14		let PROTOPARTX8 = 95000000
15	15

75	75		else if ((feeAmt != ((5 * MULT8) / 1000)))
76	76		then throw("fee amount couldn't exceed 0.005")
77	77		else {
78		-	let anoteAddress = getAddressOrFail(ANOTEADDR)
79	78		let minerAddress = i.caller
80	79		let benificaryAddress = addressFromStringValue(benificaryAddressStr)
81	80		let protocolPart = PROTOPARTX8

86	85		else {
87	86		let benificaryAmt = fraction(minedAmt, benificaryPart, MULT8)
88	87		let protocolAmt = (minedAmt - benificaryAmt)
89		-	[ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(~~anoteAddress~~, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
	88	+	[ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(ANOTEADDR, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
90	89		}
91	90		}
92	91		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let MULT8 = 100000000
7	7
8	8		let ANOTEIDSTR = "WAVES"
9	9
10	10		let ANOTEID = fromBase58String(ANOTEIDSTR)
11	11
12		-	let ANOTEADDR = "3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"
	12	+	let ANOTEADDR = Address(toBytes("3N8EvpGmkantoqYAdiG4W7brYEJqzkQVRBA"))
13	13
14	14		let PROTOPARTX8 = 95000000
15	15
16	16		let BENPARTX8 = 5000000
17	17
18	18		func getStrOrElse (key,defaultVal) = valueOrElse(getString(this, key), defaultVal)
19	19
20	20
21	21		func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (("Mandatory this." + key) + " is not defined"))
22	22
23	23
24	24		func getAddressOrFail (key) = valueOrErrorMessage(addressFromString(getStringOrFail(key)), (("Fail to convert this." + key) + " value into Address"))
25	25
26	26
27	27		func validateAddressOrFail (addressStr) = {
28	28		let address = valueOrErrorMessage(addressFromString(addressStr), ("fail to convert into address " + addressStr))
29	29		if ((0 > wavesBalance(address).available))
30	30		then throw()
31	31		else addressStr
32	32		}
33	33
34	34
35	35		func keyNodeRewardsTotals (address) = ("%s%s__totals__" + address)
36	36
37	37
38	38		func keyRewardHistory (nodeAddress,txId) = makeString(["%s%s%s", "history", toString(nodeAddress), toBase58String(txId)], SEP)
39	39
40	40
41	41		func dataRewardHistory (anoteAmountTotal,beneficiaryAmt,protocolAmt) = makeString(["%d%d%d%d%d%d%d", toString(lastBlock.height), toString(lastBlock.timestamp), toString(anoteAmountTotal), toString(beneficiaryAmt), toString(protocolAmt)], SEP)
42	42
43	43
44	44		func RewardHistoryEntry (nodeAddress,txId,minedAmt,beneficiaryAmt,protocolAmt) = StringEntry(keyRewardHistory(nodeAddress, txId), dataRewardHistory(minedAmt, beneficiaryAmt, protocolAmt))
45	45
46	46
47	47		func dataRewardTotals (minedAmt,beneficiaryAmt,protocolAmt) = makeString(["%d%d%d%d%d", toString(minedAmt), toString(beneficiaryAmt), toString(protocolAmt)], SEP)
48	48
49	49
50	50		func RewardTotalsEntry (miner,minedAmt,beneficiaryAmt,protocolAmt) = {
51	51		let nodeRewardsTotalsKEY = keyNodeRewardsTotals(toString(miner))
52	52		let nodeRewardsArray = split(getStrOrElse(nodeRewardsTotalsKEY, dataRewardTotals(0, 0, 0)), SEP)
53	53		let newMinedAmt = (parseIntValue(nodeRewardsArray[1]) + minedAmt)
54	54		let newBeneficiaryAmt = (parseIntValue(nodeRewardsArray[2]) + beneficiaryAmt)
55	55		let newProtocolAmt = (parseIntValue(nodeRewardsArray[3]) + protocolAmt)
56	56		StringEntry(nodeRewardsTotalsKEY, dataRewardTotals(newMinedAmt, newBeneficiaryAmt, newProtocolAmt))
57	57		}
58	58
59	59
60	60		@Callable(i)
61	61		func distributeMinerReward (benificaryAddressStr) = if ((size(i.payments) != 1))
62	62		then throw("exact 1 payment must be attached")
63	63		else if ((i.caller != i.originCaller))
64	64		then throw("dapp to dapp calls are not allowed")
65	65		else {
66	66		let pmt = i.payments[0]
67	67		let minedAmt = pmt.amount
68	68		let pmtAssetId = valueOrElse(pmt.assetId, ANOTEID)
69	69		let feeAmt = i.fee
70	70		let feeAssetId = valueOrElse(i.feeAssetId, ANOTEID)
71	71		if ((pmtAssetId != ANOTEID))
72	72		then throw("only Waves can be used in payment")
73	73		else if ((feeAssetId != ANOTEID))
74	74		then throw("only Waves can be used in fees")
75	75		else if ((feeAmt != ((5 * MULT8) / 1000)))
76	76		then throw("fee amount couldn't exceed 0.005")
77	77		else {
78		-	let anoteAddress = getAddressOrFail(ANOTEADDR)
79	78		let minerAddress = i.caller
80	79		let benificaryAddress = addressFromStringValue(benificaryAddressStr)
81	80		let protocolPart = PROTOPARTX8
82	81		let benificaryPart = BENPARTX8
83	82		let availableBalance = (wavesBalance(minerAddress).available - feeAmt)
84	83		if ((availableBalance != 0))
85	84		then throw((("all " + toString(availableBalance)) + " Wavelets from the Node balance must be attached into the payment"))
86	85		else {
87	86		let benificaryAmt = fraction(minedAmt, benificaryPart, MULT8)
88	87		let protocolAmt = (minedAmt - benificaryAmt)
89		-	[ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(~~anoteAddress~~, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
	88	+	[ScriptTransfer(benificaryAddress, benificaryAmt, unit), ScriptTransfer(ANOTEADDR, protocolAmt, unit), RewardHistoryEntry(minerAddress, i.transactionId, minedAmt, benificaryAmt, protocolAmt), RewardTotalsEntry(minerAddress, minedAmt, benificaryAmt, protocolAmt)]
90	89		}
91	90		}
92	91		}
93	92
94	93

github/deemru/w8io/169f3d6 
26.02 ms ◑