tx · 2bTk3WrkvgPQzjtp1nFqjm57pmjFzdsyjD6cgmTDPayr

3N8tZ3NoZvKeESitS7cqggMMKmimqZx3tie:  -0.01000000 Waves

2020.09.03 12:51 [1161060] smart account 3N8tZ3NoZvKeESitS7cqggMMKmimqZx3tie > SELF 0.00000000 Waves

{ "type": 13, "id": "2bTk3WrkvgPQzjtp1nFqjm57pmjFzdsyjD6cgmTDPayr", "fee": 1000000, "feeAssetId": null, "timestamp": 1599126712999, "version": 1, "sender": "3N8tZ3NoZvKeESitS7cqggMMKmimqZx3tie", "senderPublicKey": "8Vvp7U6DfzguaBCSWkZLfKD8S8JqVhS7MJAyy2T4J7zV", "proofs": [ "34ATBsfGh62XA9Xmw7LFPzsdq3hTNmFET9XYrKtMFXFH3CiqpA9iiLnBbwQsgc351h932UYkkDb1KezgVbegnKe4" ], "script": "base64:AAIDAAAAAAAAAAkIARIDCgEIEgAAAAAgAAAAAAthZGRyZXNzQm9vawkBAAAAB0FkZHJlc3MAAAABAQAAABoBVFaB1Hk0Ezu+4mjGjtAsjfi5cnbAV28B3gAAAAATd2hpdGVsaXN0QWRkcmVzc0tleQIAAAAQd2hpdGVsaXN0QWRkcmVzcwAAAAAXZEFwcFdoaXRlbGlzdEFkZHJlc3NLZXkCAAAAFGRBcHBXaGl0ZWxpc3RBZGRyZXNzAAAAAA5jb2VmZmljaWVudEtleQIAAAALY29lZmZpY2llbnQAAAAAEGlzc3VlckFkZHJlc3NLZXkCAAAABmlzc3VlcgAAAAAUaXNzdWVyQWRkcmVzc1BhaWRLZXkCAAAAC2lzc3Vlcl9wYWlkAAAAABppc3N1ZXJBZGRyZXNzUGFpZEFtb3VudEtleQIAAAARaXNzdWVyX3BhaWRBbW91bnQAAAAAEnRyYW5zZmVyc05lZWRlZEtleQIAAAAQdHJhbnNmZXJzX25lZWRlZAAAAAAVdHJhbnNmZXJzQ29tcGxldGVkS2V5AgAAABN0cmFuc2ZlcnNfY29tcGxldGVkAAAAABBkaXZpZGVuZHNBc3NldElkAQAAACDMoIQPTfx+jyiV0X+L79PTj3OqyYL2VyGkRjGHfyz8MQAAAAAVZGl2aWRlbmRzQXNzZXRJc1dhdmVzBwAAAAAbc2VjdXJpdHlBc3NldERlY2ltYWxzT2Zmc2V0AAAAAAAF9eEAAAAAAAlzdGFydFRpbWUAAAAAAF9ZJjAAAAAAB2VuZFRpbWUAAAAAAGE6WbAAAAAAA3ZlcgIAAAAFNS4wLjEAAAAACnZhbGlkU3RhdGUAAAAAAAAAA+gAAAAADmdldEN1cnJlbnRUaW1lCQAAaQAAAAIIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wAAAAAAAAAAPoAQAAAApoYXNTdGFydGVkAAAAAAkAAGcAAAACBQAAAA5nZXRDdXJyZW50VGltZQUAAAAJc3RhcnRUaW1lAQAAAAhoYXNFbmRlZAAAAAAJAABmAAAAAgUAAAAOZ2V0Q3VycmVudFRpbWUFAAAAB2VuZFRpbWUBAAAAEmdldEFkZHJlc3NGcm9tQm9vawAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAAC2FkZHJlc3NCb29rBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEFAAAAAWEJAAACAAAAAQIAAAAGbm8ga2V5AQAAAAlnZXRBbW91bnQAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAEAAAAGaXNQYWlkAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQbAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBwEAAAAVZ2V0QXNzZXRJZEZvclRyYW5zZmVyAAAAAgAAAAdpc1dhdmVzAAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAAB2lzV2F2ZXMHBQAAAAdhc3NldElkBQAAAAR1bml0AQAAABpnZXRBc3NldEJhbGFuY2VGb3JUcmFuc2ZlcgAAAAIAAAAHaXNXYXZlcwAAAAdhc3NldElkAwkAAAAAAAACBQAAAAdpc1dhdmVzBwkAA+sAAAACBQAAAAR0aGlzBQAAAAdhc3NldElkCQEAAAAMd2F2ZXNCYWxhbmNlAAAAAQUAAAAEdGhpcwEAAAAfZ2V0SW52ZXN0b3JBZGRyZXNzRm9yV2l0aGRyYXdhbAAAAAIAAAAKYXJnQWRkcmVzcwAAAA1jYWxsZXJBZGRyZXNzAwkAAGYAAAACCQABMQAAAAEFAAAACmFyZ0FkZHJlc3MAAAAAAAAAAAoFAAAACmFyZ0FkZHJlc3MFAAAADWNhbGxlckFkZHJlc3MAAAAAEHdoaXRlbGlzdEFkZHJlc3MJAQAAABJnZXRBZGRyZXNzRnJvbUJvb2sAAAABBQAAABN3aGl0ZWxpc3RBZGRyZXNzS2V5AAAAABRkQXBwV2hpdGVsaXN0QWRkcmVzcwkBAAAAEmdldEFkZHJlc3NGcm9tQm9vawAAAAEFAAAAF2RBcHBXaGl0ZWxpc3RBZGRyZXNzS2V5AAAAABtkaXZpZGVuZHNBc3NldElkRm9yVHJhbnNmZXIJAQAAABVnZXRBc3NldElkRm9yVHJhbnNmZXIAAAACBQAAABVkaXZpZGVuZHNBc3NldElzV2F2ZXMFAAAAEGRpdmlkZW5kc0Fzc2V0SWQAAAAAEWlzc3VlckFkZHJlc3NQYWlkCQEAAAAGaXNQYWlkAAAAAQUAAAAUaXNzdWVyQWRkcmVzc1BhaWRLZXkAAAAAB2JhbGFuY2UJAQAAABpnZXRBc3NldEJhbGFuY2VGb3JUcmFuc2ZlcgAAAAIFAAAAFWRpdmlkZW5kc0Fzc2V0SXNXYXZlcwUAAAAQZGl2aWRlbmRzQXNzZXRJZAAAAAAPdHJhbnNmZXJzTmVlZGVkCQEAAAAJZ2V0QW1vdW50AAAAAQUAAAASdHJhbnNmZXJzTmVlZGVkS2V5AAAAABJ0cmFuc2ZlcnNDb21wbGV0ZWQJAQAAAAlnZXRBbW91bnQAAAABBQAAABV0cmFuc2ZlcnNDb21wbGV0ZWRLZXkAAAACAAAAAWkBAAAACndpdGhkcmF3YWwAAAABAAAAB2FkZHJlc3MEAAAACmRBcHBTdGF0dXMEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAUZEFwcFdoaXRlbGlzdEFkZHJlc3MJAAQlAAAAAQUAAAAEdGhpcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAApjdXJyZW50S2V5CQEAAAAfZ2V0SW52ZXN0b3JBZGRyZXNzRm9yV2l0aGRyYXdhbAAAAAIFAAAAB2FkZHJlc3MJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAABFjdXJyZW50S2V5QWRkcmVzcwkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABBQAAAApjdXJyZW50S2V5BAAAABBhZGRyZXNzVG9rZW5zS2V5CQABLAAAAAIJAAEsAAAAAgIAAAAIYWRkcmVzc18FAAAACmN1cnJlbnRLZXkCAAAAB190b2tlbnMEAAAADmFkZHJlc3NQYWlkS2V5CQABLAAAAAIJAAEsAAAAAgIAAAAIYWRkcmVzc18FAAAACmN1cnJlbnRLZXkCAAAABV9wYWlkBAAAABRhZGRyZXNzUGFpZEFtb3VudEtleQkAASwAAAACCQABLAAAAAICAAAACGFkZHJlc3NfBQAAAApjdXJyZW50S2V5AgAAAAtfcGFpZEFtb3VudAQAAAAVYWRkcmVzc1NlY3VyaXR5VG9rZW5zCQEAAAAJZ2V0QW1vdW50AAAAAQUAAAAQYWRkcmVzc1Rva2Vuc0tleQQAAAALYWRkcmVzc1BhaWQJAQAAAAZpc1BhaWQAAAABBQAAAA5hZGRyZXNzUGFpZEtleQMJAQAAAAIhPQAAAAIFAAAACmRBcHBTdGF0dXMAAAAAAAAAAAEJAAACAAAAAQIAAAAXIzAwMSBkQXBwIGlzIG5vdCBhY3RpdmUDCQEAAAABIQAAAAEJAQAAAApoYXNTdGFydGVkAAAAAAkAAAIAAAABAgAAAB0jMDAyIGRBcHAgaGFzIG5vdCBzdGFydGVkIHlldAMJAQAAAAhoYXNFbmRlZAAAAAAJAAACAAAAAQIAAAAbIzAwMyBkQXBwIGFscmVhZHkgY29tcGxldGVkAwkAAAAAAAACBQAAABVhZGRyZXNzU2VjdXJpdHlUb2tlbnMAAAAAAAAAAAAJAAACAAAAAQIAAAA1IzAwNSBUaGlzIGFjY291bnQgZG9lcyBub3QgaGF2ZSBkaXZpZGVuZHMgdG8gcmVjaWV2ZS4DCQAAAAAAAAIFAAAAC2FkZHJlc3NQYWlkBgkAAAIAAAABAgAAADEjMDA2IFRoaXMgYWNjb3VudCBoYXMgYWxyZWFkeSByZWNlaXZlZCBkaXZpZGVuZHMuBAAAAAtjb2VmZmljaWVudAkBAAAACWdldEFtb3VudAAAAAEFAAAADmNvZWZmaWNpZW50S2V5BAAAAAZhbW91bnQJAABrAAAAAwUAAAAVYWRkcmVzc1NlY3VyaXR5VG9rZW5zBQAAAAtjb2VmZmljaWVudAUAAAAbc2VjdXJpdHlBc3NldERlY2ltYWxzT2Zmc2V0CQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAOYWRkcmVzc1BhaWRLZXkGCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABV0cmFuc2ZlcnNDb21wbGV0ZWRLZXkJAABkAAAAAgUAAAASdHJhbnNmZXJzQ29tcGxldGVkAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABRhZGRyZXNzUGFpZEFtb3VudEtleQUAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAARY3VycmVudEtleUFkZHJlc3MFAAAABmFtb3VudAUAAAAbZGl2aWRlbmRzQXNzZXRJZEZvclRyYW5zZmVyBQAAAANuaWwAAAABaQEAAAAKZ2V0QmFsYW5jZQAAAAAEAAAACmRBcHBTdGF0dXMEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAUZEFwcFdoaXRlbGlzdEFkZHJlc3MJAAQlAAAAAQUAAAAEdGhpcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAA1pc3N1ZXJBZGRyZXNzBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAEGlzc3VlckFkZHJlc3NLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEFAAAAAWEJAAACAAAAAQIAAAAVbm8gaXNzdWVyIGFkZHJlc3Mga2V5AwkBAAAAAiE9AAAAAgUAAAAKZEFwcFN0YXR1cwAAAAAAAAAAAQkAAAIAAAABAgAAABcjMDAxIGRBcHAgaXMgbm90IGFjdGl2ZQMJAQAAAAEhAAAAAQkBAAAACmhhc1N0YXJ0ZWQAAAAACQAAAgAAAAECAAAAHSMwMDIgZEFwcCBoYXMgbm90IHN0YXJ0ZWQgeWV0AwMJAQAAAAIhPQAAAAIFAAAAD3RyYW5zZmVyc05lZWRlZAUAAAASdHJhbnNmZXJzQ29tcGxldGVkBgkAAAAAAAACBQAAAA90cmFuc2ZlcnNOZWVkZWQAAAAAAAAAAAAJAAACAAAAAQIAAAAkIzAxMCBUaGlzIGFjY291bnQgd2FpdHMgZm9yIHRyYW5zZmVyAwkAAAAAAAACBQAAABFpc3N1ZXJBZGRyZXNzUGFpZAYJAAACAAAAAQIAAAAuIzAxMiBUaGlzIGFjY291bnQgaGFzIGFscmVhZHkgcmVjZWl2ZWQgYmFsYW5jZQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAFGlzc3VlckFkZHJlc3NQYWlkS2V5BgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAaaXNzdWVyQWRkcmVzc1BhaWRBbW91bnRLZXkFAAAAB2JhbGFuY2UFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAA1pc3N1ZXJBZGRyZXNzBQAAAAdiYWxhbmNlBQAAABtkaXZpZGVuZHNBc3NldElkRm9yVHJhbnNmZXIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAABHR4SWQJAAJYAAAAAQgFAAAAAnR4AAAAAmlkBAAAAAlwQWRkcmVzczEJAQAAABJnZXRBZGRyZXNzRnJvbUJvb2sAAAABAgAAAAlwQWRkcmVzczEEAAAACXBBZGRyZXNzMgkBAAAAEmdldEFkZHJlc3NGcm9tQm9vawAAAAECAAAACXBBZGRyZXNzMgQAAAAJcEFkZHJlc3MzCQEAAAASZ2V0QWRkcmVzc0Zyb21Cb29rAAAAAQIAAAAJcEFkZHJlc3MzBAAAAAlwQWRkcmVzczQJAQAAABJnZXRBZGRyZXNzRnJvbUJvb2sAAAABAgAAAAlwQWRkcmVzczQEAAAACXBBZGRyZXNzNQkBAAAAEmdldEFkZHJlc3NGcm9tQm9vawAAAAECAAAACXBBZGRyZXNzNQQAAAAJcEFkZHJlc3M2CQEAAAASZ2V0QWRkcmVzc0Zyb21Cb29rAAAAAQIAAAAJcEFkZHJlc3M2BAAAAAlwQWRkcmVzczcJAQAAABJnZXRBZGRyZXNzRnJvbUJvb2sAAAABAgAAAAlwQWRkcmVzczcEAAAACXBBZGRyZXNzOAkBAAAAEmdldEFkZHJlc3NGcm9tQm9vawAAAAECAAAACXBBZGRyZXNzOAQAAAALcEtleTFTaWduZWQDCQEAAAAJaXNEZWZpbmVkAAAAAQkABBoAAAACBQAAAAlwQWRkcmVzczEFAAAABHR4SWQAAAAAAAAAAAEAAAAAAAAAAAAEAAAAC3BLZXkyU2lnbmVkAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAAJcEFkZHJlc3MyBQAAAAR0eElkAAAAAAAAAAABAAAAAAAAAAAABAAAAAtwS2V5M1NpZ25lZAMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAACXBBZGRyZXNzMwUAAAAEdHhJZAAAAAAAAAAAAQAAAAAAAAAAAAQAAAALcEtleTRTaWduZWQDCQEAAAAJaXNEZWZpbmVkAAAAAQkABBoAAAACBQAAAAlwQWRkcmVzczQFAAAABHR4SWQAAAAAAAAAAAEAAAAAAAAAAAAEAAAAC3BLZXk1U2lnbmVkAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAAJcEFkZHJlc3M1BQAAAAR0eElkAAAAAAAAAAABAAAAAAAAAAAABAAAAAtwS2V5NlNpZ25lZAMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAACXBBZGRyZXNzNgUAAAAEdHhJZAAAAAAAAAAAAQAAAAAAAAAAAAQAAAALcEtleTdTaWduZWQDCQEAAAAJaXNEZWZpbmVkAAAAAQkABBoAAAACBQAAAAlwQWRkcmVzczcFAAAABHR4SWQAAAAAAAAAAAEAAAAAAAAAAAAEAAAAC3BLZXk4U2lnbmVkAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAAJcEFkZHJlc3M4BQAAAAR0eElkAAAAAAAAAAABAAAAAAAAAAAACQAAZwAAAAIJAABkAAAAAgkAAGQAAAACCQAAZAAAAAIJAABkAAAAAgkAAGQAAAACCQAAZAAAAAIJAABkAAAAAgUAAAALcEtleTFTaWduZWQFAAAAC3BLZXkyU2lnbmVkBQAAAAtwS2V5M1NpZ25lZAUAAAALcEtleTRTaWduZWQFAAAAC3BLZXk1U2lnbmVkBQAAAAtwS2V5NlNpZ25lZAUAAAALcEtleTdTaWduZWQFAAAAC3BLZXk4U2lnbmVkAAAAAAAAAAADAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleQdaIL+M", "chainId": 84, "height": 1161060, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: none Next: none Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let addressBook = Address(base58'3MwoVRAPfC2NKuuYJKHVAVtUFhq8MyTEfQh')
5+
6+let whitelistAddressKey = "whitelistAddress"
7+
8+let dAppWhitelistAddressKey = "dAppWhitelistAddress"
9+
10+let coefficientKey = "coefficient"
11+
12+let issuerAddressKey = "issuer"
13+
14+let issuerAddressPaidKey = "issuer_paid"
15+
16+let issuerAddressPaidAmountKey = "issuer_paidAmount"
17+
18+let transfersNeededKey = "transfers_needed"
19+
20+let transfersCompletedKey = "transfers_completed"
21+
22+let dividendsAssetId = base58'Emn8cyGDFgnLCKLTXqVWhKJARhtR2muBUuZaSmqNzDfn'
23+
24+let dividendsAssetIsWaves = false
25+
26+let securityAssetDecimalsOffset = 100000000
27+
28+let startTime = 1599678000
29+
30+let endTime = 1631214000
31+
32+let ver = "5.0.1"
33+
34+let validState = 1000
35+
36+let getCurrentTime = (lastBlock.timestamp / 1000)
37+
38+func hasStarted () = (getCurrentTime >= startTime)
39+
40+
41+func hasEnded () = (getCurrentTime > endTime)
42+
43+
44+func getAddressFromBook (key) = match getString(addressBook, key) {
45+ case a: String =>
46+ Address(fromBase58String(a))
47+ case _ =>
48+ throw("no key")
49+}
50+
51+
52+func getAmount (key) = match getInteger(this, key) {
53+ case a: Int =>
54+ a
55+ case _ =>
56+ 0
57+}
58+
59+
60+func isPaid (key) = match getBoolean(this, key) {
61+ case a: Boolean =>
62+ a
63+ case _ =>
64+ false
65+}
66+
67+
68+func getAssetIdForTransfer (isWaves,assetId) = if ((isWaves == false))
69+ then assetId
70+ else unit
71+
72+
73+func getAssetBalanceForTransfer (isWaves,assetId) = if ((isWaves == false))
74+ then assetBalance(this, assetId)
75+ else wavesBalance(this)
76+
77+
78+func getInvestorAddressForWithdrawal (argAddress,callerAddress) = if ((size(argAddress) > 10))
79+ then argAddress
80+ else callerAddress
81+
82+
83+let whitelistAddress = getAddressFromBook(whitelistAddressKey)
84+
85+let dAppWhitelistAddress = getAddressFromBook(dAppWhitelistAddressKey)
86+
87+let dividendsAssetIdForTransfer = getAssetIdForTransfer(dividendsAssetIsWaves, dividendsAssetId)
88+
89+let issuerAddressPaid = isPaid(issuerAddressPaidKey)
90+
91+let balance = getAssetBalanceForTransfer(dividendsAssetIsWaves, dividendsAssetId)
92+
93+let transfersNeeded = getAmount(transfersNeededKey)
94+
95+let transfersCompleted = getAmount(transfersCompletedKey)
96+
97+@Callable(i)
98+func withdrawal (address) = {
99+ let dAppStatus = match getInteger(dAppWhitelistAddress, toString(this)) {
100+ case a: Int =>
101+ a
102+ case _ =>
103+ 0
104+ }
105+ let currentKey = getInvestorAddressForWithdrawal(address, toString(i.caller))
106+ let currentKeyAddress = extract(addressFromString(currentKey))
107+ let addressTokensKey = (("address_" + currentKey) + "_tokens")
108+ let addressPaidKey = (("address_" + currentKey) + "_paid")
109+ let addressPaidAmountKey = (("address_" + currentKey) + "_paidAmount")
110+ let addressSecurityTokens = getAmount(addressTokensKey)
111+ let addressPaid = isPaid(addressPaidKey)
112+ if ((dAppStatus != 1))
113+ then throw("#001 dApp is not active")
114+ else if (!(hasStarted()))
115+ then throw("#002 dApp has not started yet")
116+ else if (hasEnded())
117+ then throw("#003 dApp already completed")
118+ else if ((addressSecurityTokens == 0))
119+ then throw("#005 This account does not have dividends to recieve.")
120+ else if ((addressPaid == true))
121+ then throw("#006 This account has already received dividends.")
122+ else {
123+ let coefficient = getAmount(coefficientKey)
124+ let amount = fraction(addressSecurityTokens, coefficient, securityAssetDecimalsOffset)
125+ ScriptResult(WriteSet([DataEntry(addressPaidKey, true), DataEntry(transfersCompletedKey, (transfersCompleted + 1)), DataEntry(addressPaidAmountKey, amount)]), TransferSet([ScriptTransfer(currentKeyAddress, amount, dividendsAssetIdForTransfer)]))
126+ }
127+ }
128+
129+
130+
131+@Callable(i)
132+func getBalance () = {
133+ let dAppStatus = match getInteger(dAppWhitelistAddress, toString(this)) {
134+ case a: Int =>
135+ a
136+ case _ =>
137+ 0
138+ }
139+ let issuerAddress = match getString(this, issuerAddressKey) {
140+ case a: String =>
141+ Address(fromBase58String(a))
142+ case _ =>
143+ throw("no issuer address key")
144+ }
145+ if ((dAppStatus != 1))
146+ then throw("#001 dApp is not active")
147+ else if (!(hasStarted()))
148+ then throw("#002 dApp has not started yet")
149+ else if (if ((transfersNeeded != transfersCompleted))
150+ then true
151+ else (transfersNeeded == 0))
152+ then throw("#010 This account waits for transfer")
153+ else if ((issuerAddressPaid == true))
154+ then throw("#012 This account has already received balance")
155+ else ScriptResult(WriteSet([DataEntry(issuerAddressPaidKey, true), DataEntry(issuerAddressPaidAmountKey, balance)]), TransferSet([ScriptTransfer(issuerAddress, balance, dividendsAssetIdForTransfer)]))
156+ }
157+
158+
159+@Verifier(tx)
160+func verify () = match tx {
161+ case tx: SetScriptTransaction =>
162+ let txId = toBase58String(tx.id)
163+ let pAddress1 = getAddressFromBook("pAddress1")
164+ let pAddress2 = getAddressFromBook("pAddress2")
165+ let pAddress3 = getAddressFromBook("pAddress3")
166+ let pAddress4 = getAddressFromBook("pAddress4")
167+ let pAddress5 = getAddressFromBook("pAddress5")
168+ let pAddress6 = getAddressFromBook("pAddress6")
169+ let pAddress7 = getAddressFromBook("pAddress7")
170+ let pAddress8 = getAddressFromBook("pAddress8")
171+ let pKey1Signed = if (isDefined(getInteger(pAddress1, txId)))
172+ then 1
173+ else 0
174+ let pKey2Signed = if (isDefined(getInteger(pAddress2, txId)))
175+ then 1
176+ else 0
177+ let pKey3Signed = if (isDefined(getInteger(pAddress3, txId)))
178+ then 1
179+ else 0
180+ let pKey4Signed = if (isDefined(getInteger(pAddress4, txId)))
181+ then 1
182+ else 0
183+ let pKey5Signed = if (isDefined(getInteger(pAddress5, txId)))
184+ then 1
185+ else 0
186+ let pKey6Signed = if (isDefined(getInteger(pAddress6, txId)))
187+ then 1
188+ else 0
189+ let pKey7Signed = if (isDefined(getInteger(pAddress7, txId)))
190+ then 1
191+ else 0
192+ let pKey8Signed = if (isDefined(getInteger(pAddress8, txId)))
193+ then 1
194+ else 0
195+ ((((((((pKey1Signed + pKey2Signed) + pKey3Signed) + pKey4Signed) + pKey5Signed) + pKey6Signed) + pKey7Signed) + pKey8Signed) >= 3)
196+ case tx: DataTransaction =>
197+ sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
198+ case _ =>
199+ false
200+}
201+

github/deemru/w8io/3ef1775 
34.96 ms