tx · H8RocrVDCQRKyjhDBNo8GggiuZuerFD6oZg3Wp7hJhQd

3NA5PGmuj3MGzAxYt7QrS8rffeyHQ2TgXcT:  -0.01400000 Waves

2019.12.24 14:58 [823057] smart account 3NA5PGmuj3MGzAxYt7QrS8rffeyHQ2TgXcT > SELF 0.00000000 Waves

{ "type": 13, "id": "H8RocrVDCQRKyjhDBNo8GggiuZuerFD6oZg3Wp7hJhQd", "fee": 1400000, "feeAssetId": null, "timestamp": 1577188691150, "version": 1, "sender": "3NA5PGmuj3MGzAxYt7QrS8rffeyHQ2TgXcT", "senderPublicKey": "Cm5aPWtA6PufaZS5keg1ZMnDSzEiwkUHCZsTFkdr8YwP", "proofs": [ "2PKeHQL9YeGb9Esj1bDpNB2cc9DtKSZKMhX1Ed6WuHZRjFQ8EvsucPvTyW7kKwPn7NWeeMu4hrPprZDEwVWNpvZA" ], "script": "base64:AAIDAAAAAAAAABIIARIHCgUIAQEBARIAEgMKAQgAAAAZAAAAAAd3YXZlbGV0AAAAAAAF9eEAAAAAAA93YXZlc0RlcG9zaXRBbXQJAABoAAAAAgAAAAAAAAAKKAUAAAAHd2F2ZWxldAAAAAANYnRjRGVwb3NpdEFtdAkAAGkAAAACCQAAaAAAAAIAAAAAAAAACigFAAAAB3dhdmVsZXQAAAAAAAAAJxAAAAAADWV0aERlcG9zaXRBbXQJAABoAAAAAgAAAAAAAAAADQUAAAAHd2F2ZWxldAAAAAANbHRjRGVwb3NpdEFtdAkAAGgAAAACAAAAAAAAAAAnBQAAAAd3YXZlbGV0AAAAAA53ZXN0RGVwb3NpdEFtdAkAAGgAAAACAAAAAAAAAGWQBQAAAAd3YXZlbGV0AAAAAA13Y3REZXBvc2l0QW10CQAAaAAAAAIAAAAAAAAAZZAFAAAAB3dhdmVsZXQAAAAAEkRyYWdvbkZydWl0QWRkcmVzcwIAAAAjM01xcDQ1MzYxd0N1dGFLRXFNMmtDYkZabXJrb2RRR3ZwVUUAAAAADWRpdlByb2dyYW1QdWIJAAJZAAAAAQIAAAAsSE1KTVVYQmF0QXJkMlNEdmp2M1lidGRyWTJCQXN4REVmV2hxdjhrWUg0S2oAAAAACGFkbWluUHViCQACWQAAAAECAAAALENtNWFQV3RBNlB1ZmFaUzVrZWcxWk1uRFN6RWl3a1VIQ1pzVEZrZHI4WXdQAAAAAAx3YXZlc0Fzc2V0SWQFAAAABHVuaXQAAAAACmJ0Y0Fzc2V0SWQBAAAAAQAAAAAACmV0aEFzc2V0SWQBAAAAAQAAAAAACmx0Y0Fzc2V0SWQBAAAAAQAAAAAAC3dlc3RBc3NldElkAQAAAAEAAAAAAAp3Y3RBc3NldElkAQAAAAEAAQAAAA1jYWxsZXJJc0FkbWluAAAAAQAAAA9jYWxsZXJQdWJsaWNLZXkDCQAAAAAAAAIFAAAAD2NhbGxlclB1YmxpY0tleQUAAAAIYWRtaW5QdWIFAAAAD2NhbGxlclB1YmxpY0tleQkAAAIAAAABAgAAABpZb3UgY2Fubm90IGNyZWF0ZSBkZXBvc2l0cwEAAAAUY2FsbGVySXNEZXBvc2l0T3duZXIAAAACAAAACWFzc2V0TmFtZQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAADGRlcG9zaXRPd25lcgkABB0AAAACBQAAAAR0aGlzCQABLAAAAAIFAAAACWFzc2V0TmFtZQIAAAANX0RlcG9zaXRPd25lcgMJAAAAAAAAAgUAAAAPY2FsbGVyUHVibGljS2V5BQAAAAxkZXBvc2l0T3duZXIFAAAAD2NhbGxlclB1YmxpY0tleQkAAAIAAAABAgAAACtPbmx5IGRlcG9zaXQgb3duZXIgY2FuIHdpdGhkcmF3YWwgZGl2aWRlbmRzAQAAABNkZXBvc2l0Q3JlYXRlZENoZWNrAAAAAQAAAAlhc3NldE5hbWUEAAAAA2tleQkAASwAAAACBQAAAAlhc3NldE5hbWUCAAAADV9EZXBvc2l0T3duZXIEAAAAA3ZhbAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkEAAAAByRtYXRjaDAFAAAAA3ZhbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBgcBAAAAC2Ftb3VudENoZWNrAAAAAgAAAAlhc3NldE5hbWUAAAAJcG10QW1vdW50BAAAAANrZXkJAAEsAAAAAgUAAAAJYXNzZXROYW1lAgAAAA5fRGVwb3NpdEFtb3VudAQAAAADdmFsCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQQAAAANZGVwb3NpdEFtb3VudAQAAAAHJG1hdGNoMAUAAAADdmFsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEJAAACAAAAAQIAAAAcQ291bGRuJ3QgZmluZCBkZXBvc2l0IGFtb3VudAMJAAAAAAAAAgUAAAAJcG10QW1vdW50BQAAAA1kZXBvc2l0QW1vdW50BQAAAAlwbXRBbW91bnQJAAACAAAAAQIAAAATQW1vdW50IGlzIGluY29ycmVjdAEAAAARYXNzZXRCYXNlNThUb05hbWUAAAABAAAAB2Fzc2V0SWQDCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABBQAAAAdhc3NldElkAgAAAAVXQVZFUwMJAAAAAAAAAgUAAAAHYXNzZXRJZAUAAAAKYnRjQXNzZXRJZAIAAAADQlRDAwkAAAAAAAACBQAAAAdhc3NldElkBQAAAApldGhBc3NldElkAgAAAANFVEgDCQAAAAAAAAIFAAAAB2Fzc2V0SWQFAAAACmx0Y0Fzc2V0SWQCAAAAA0xUQwMJAAAAAAAAAgUAAAAHYXNzZXRJZAUAAAALd2VzdEFzc2V0SWQCAAAAA1ZTVAMJAAAAAAAAAgUAAAAHYXNzZXRJZAUAAAAKd2N0QXNzZXRJZAIAAAADV0NUCQAAAgAAAAECAAAAFEFzc2V0SWQgaXMgaW5jb3JyZWN0AQAAABFhc3NldE5hbWVUb0Jhc2U1OAAAAAEAAAAJYXNzZXROYW1lAwkAAAAAAAACBQAAAAlhc3NldE5hbWUCAAAABVdBVkVTBQAAAAx3YXZlc0Fzc2V0SWQDCQAAAAAAAAIFAAAACWFzc2V0TmFtZQIAAAADQlRDBQAAAApidGNBc3NldElkAwkAAAAAAAACBQAAAAlhc3NldE5hbWUCAAAAA0VUSAUAAAAKZXRoQXNzZXRJZAMJAAAAAAAAAgUAAAAJYXNzZXROYW1lAgAAAANMVEMFAAAACmx0Y0Fzc2V0SWQDCQAAAAAAAAIFAAAACWFzc2V0TmFtZQIAAAADVlNUBQAAAAt3ZXN0QXNzZXRJZAMJAAAAAAAAAgUAAAAJYXNzZXROYW1lAgAAAANXQ1QFAAAACndjdEFzc2V0SWQJAAACAAAAAQIAAAAXQXNzZXQgbmFtZSBpcyBpbmNvcnJlY3QBAAAAE2dldERpdmlkZW5kc1BlcmNlbnQAAAABAAAACWFzc2V0TmFtZQQAAAADa2V5CQABLAAAAAIFAAAACWFzc2V0TmFtZQIAAAAQX0RpdmlkZW5kUGVyY2VudAQAAAADdmFsCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQQAAAAHJG1hdGNoMAUAAAADdmFsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEJAAACAAAAAQIAAAAeQ291bGRuJ3QgRmluZCBkaXZpZGVuZCBwZXJjZW50AQAAABtnZXREaXZpZGVuZHNXaXRoZHJhd25BbW91bnQAAAABAAAACWFzc2V0TmFtZQQAAAADdmFsCQAEGgAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAAJYXNzZXROYW1lAgAAABNfRGl2aWRlbmRzV2l0aGRyYXduBAAAAAckbWF0Y2gwBQAAAAN2YWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAEAAAASZ2V0RGl2aWRlbmRCYWxhbmNlAAAAAwAAAAdhc3NldElkAAAAEmRpdmlkZW5kc1dpdGhkcmF3bgAAABBkaXZpZGVuZHNQZXJjZW50BAAAABVkaXZpZGVuZHNUb3RhbEJhbGFuY2UJAABkAAAAAgkAA+sAAAACBQAAAAR0aGlzBQAAAAdhc3NldElkBQAAABJkaXZpZGVuZHNXaXRoZHJhd24EAAAACXVzZXJTdGFrZQkAAGkAAAACCQAAaAAAAAIFAAAAFWRpdmlkZW5kc1RvdGFsQmFsYW5jZQUAAAAQZGl2aWRlbmRzUGVyY2VudAAAAAAAAAAAZAkAAGUAAAACBQAAAAl1c2VyU3Rha2UFAAAAEmRpdmlkZW5kc1dpdGhkcmF3bgAAAAMAAAABaQEAAAANY3JlYXRlRGVwb3NpdAAAAAUAAAAJYXNzZXROYW1lAAAABmFtb3VudAAAABBkZWl2aWRlbmRQZXJjZW50AAAAC2hlaWdodFN0YXJ0AAAACGR1cmF0aW9uBAAAAAljYWxsZXJQdWIJAQAAAA1jYWxsZXJJc0FkbWluAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BAAAABVkZXBvc2l0QWxyZWFkeUNyZWF0ZWQJAQAAABNkZXBvc2l0Q3JlYXRlZENoZWNrAAAAAQUAAAAJYXNzZXROYW1lAwUAAAAVZGVwb3NpdEFscmVhZHlDcmVhdGVkCQAAAgAAAAECAAAAGkRlcG9zaXQgaXMgYWxyZWFkeSBjcmVhdGVkCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAACWFzc2V0TmFtZQIAAAANX0RlcG9zaXRTdGF0ZQIAAAAHQ3JlYXRlZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAlhc3NldE5hbWUCAAAADl9EZXBvc2l0QW1vdW50BQAAAAZhbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAJYXNzZXROYW1lAgAAABBfRGl2aWRlbmRQZXJjZW50BQAAABBkZWl2aWRlbmRQZXJjZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAACWFzc2V0TmFtZQIAAAANX0RlcG9zaXRTdGFydAUAAAALaGVpZ2h0U3RhcnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAJYXNzZXROYW1lAgAAABBfRGVwb3NpdER1cmF0aW9uBQAAAAhkdXJhdGlvbgUAAAADbmlsAAAAAWkBAAAAB2RlcG9zaXQAAAAABAAAAAljYWxsZXJQdWIJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAQAAAAJYXNzZXROYW1lCQEAAAARYXNzZXRCYXNlNThUb05hbWUAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQEAAAABmFtb3VudAkBAAAAC2Ftb3VudENoZWNrAAAAAgUAAAAJYXNzZXROYW1lCAUAAAADcG10AAAABmFtb3VudAQAAAAMZGVwb3NpdFN0YXRlCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAAJYXNzZXROYW1lAgAAAA1fRGVwb3NpdFN0YXRlAwkAAAAAAAACBQAAAAxkZXBvc2l0U3RhdGUCAAAAB0NyZWF0ZWQJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAACWFzc2V0TmFtZQIAAAANX0RlcG9zaXRPd25lcgUAAAAJY2FsbGVyUHViCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAACWFzc2V0TmFtZQIAAAANX0RlcG9zaXRTdGF0ZQIAAAAGQWN0aXZlBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAABJEcmFnb25GcnVpdEFkZHJlc3MFAAAABmFtb3VudAgFAAAAA3BtdAAAAAdhc3NldElkBQAAAANuaWwJAAACAAAAAQIAAAAWRGVwb3NpdCBpcyB1bmF2YWlsYWJsZQAAAAFpAQAAABF3aXRoZHJhd0RpdmlkZW5kcwAAAAEAAAAJYXNzZXROYW1lBAAAAAdhc3NldElkCQEAAAARYXNzZXROYW1lVG9CYXNlNTgAAAABBQAAAAlhc3NldE5hbWUEAAAADGRlcG9zaXRPd25lcgkBAAAAFGNhbGxlcklzRGVwb3NpdE93bmVyAAAAAgUAAAAJYXNzZXROYW1lCQACWAAAAAEIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQQAAAAQZGl2aWRlbmRzUGVyY2VudAkBAAAAE2dldERpdmlkZW5kc1BlcmNlbnQAAAABBQAAAAlhc3NldE5hbWUEAAAAEmRpdmlkZW5kc1dpdGhkcmF3bgkBAAAAG2dldERpdmlkZW5kc1dpdGhkcmF3bkFtb3VudAAAAAEFAAAACWFzc2V0TmFtZQQAAAASZGl2aWRlbmRzQXZhbGlhYmxlCQEAAAASZ2V0RGl2aWRlbmRCYWxhbmNlAAAAAwUAAAAHYXNzZXRJZAUAAAASZGl2aWRlbmRzV2l0aGRyYXduBQAAABBkaXZpZGVuZHNQZXJjZW50CQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAxkZXBvc2l0T3duZXICAAAAE19EaXZpZGVuZHNXaXRoZHJhd24JAABkAAAAAgUAAAASZGl2aWRlbmRzV2l0aGRyYXduBQAAABJkaXZpZGVuZHNBdmFsaWFibGUFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABCQACWQAAAAEFAAAADGRlcG9zaXRPd25lcgUAAAASZGl2aWRlbmRzQXZhbGlhYmxlBQAAAAdhc3NldElkBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAAAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAADWRpdlByb2dyYW1QdWIEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAAEc3N0eAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAA3R0eAUAAAAHJG1hdGNoMAQAAAAJYXNzZXROYW1lCQEAAAARYXNzZXRCYXNlNThUb05hbWUAAAABCAUAAAADdHR4AAAAB2Fzc2V0SWQEAAAAEGRpdmlkZW5kc1BlcmNlbnQJAQAAABNnZXREaXZpZGVuZHNQZXJjZW50AAAAAQUAAAAJYXNzZXROYW1lBAAAABJkaXZpZGVuZHNXaXRoZHJhd24JAQAAABtnZXREaXZpZGVuZHNXaXRoZHJhd25BbW91bnQAAAABBQAAAAlhc3NldE5hbWUEAAAACWRpdmlkZW5kcwkBAAAAEmdldERpdmlkZW5kQmFsYW5jZQAAAAMIBQAAAAN0dHgAAAAHYXNzZXRJZAUAAAASZGl2aWRlbmRzV2l0aGRyYXduBQAAABBkaXZpZGVuZHNQZXJjZW50BAAAAA5hY2NvdW50QmFsYW5jZQkAA+sAAAACBQAAAAR0aGlzCAUAAAADdHR4AAAAB2Fzc2V0SWQJAABnAAAAAgkAAGUAAAACBQAAAA5hY2NvdW50QmFsYW5jZQgFAAAAA3R0eAAAAAZhbW91bnQFAAAACWRpdmlkZW5kcwcHgbaX3Q==", "chainId": 84, "height": 823057, "spentComplexity": 0 } View: original | compacted Prev: E12mo9rW8xnfdET4muhWX8P6fcCMiv4JcgpBoqW8tAiP Next: none Full:
OldNewDifferences
11 {-# STDLIB_VERSION 3 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let aa = 1
4+let wavelet = 100000000
5+
6+let wavesDepositAmt = (2600 * wavelet)
7+
8+let btcDepositAmt = ((2600 * wavelet) / 10000)
9+
10+let ethDepositAmt = (13 * wavelet)
11+
12+let ltcDepositAmt = (39 * wavelet)
13+
14+let westDepositAmt = (26000 * wavelet)
15+
16+let wctDepositAmt = (26000 * wavelet)
17+
18+let DragonFruitAddress = "3Mqp45361wCutaKEqM2kCbFZmrkodQGvpUE"
19+
20+let divProgramPub = fromBase58String("HMJMUXBatArd2SDvjv3YbtdrY2BAsxDEfWhqv8kYH4Kj")
21+
22+let adminPub = fromBase58String("Cm5aPWtA6PufaZS5keg1ZMnDSzEiwkUHCZsTFkdr8YwP")
23+
24+let wavesAssetId = unit
25+
26+let btcAssetId = base58'1'
27+
28+let ethAssetId = base58'1'
29+
30+let ltcAssetId = base58'1'
31+
32+let westAssetId = base58'1'
33+
34+let wctAssetId = base58'1'
35+
36+func callerIsAdmin (callerPublicKey) = if ((callerPublicKey == adminPub))
37+ then callerPublicKey
38+ else throw("You cannot create deposits")
39+
40+
41+func callerIsDepositOwner (assetName,callerPublicKey) = {
42+ let depositOwner = getString(this, (assetName + "_DepositOwner"))
43+ if ((callerPublicKey == depositOwner))
44+ then callerPublicKey
45+ else throw("Only deposit owner can withdrawal dividends")
46+ }
47+
48+
49+func depositCreatedCheck (assetName) = {
50+ let key = (assetName + "_DepositOwner")
51+ let val = getString(this, key)
52+ match val {
53+ case a: String =>
54+ true
55+ case _ =>
56+ false
57+ }
58+ }
59+
60+
61+func amountCheck (assetName,pmtAmount) = {
62+ let key = (assetName + "_DepositAmount")
63+ let val = getInteger(this, key)
64+ let depositAmount = match val {
65+ case a: Int =>
66+ a
67+ case _ =>
68+ throw("Couldn't find deposit amount")
69+ }
70+ if ((pmtAmount == depositAmount))
71+ then pmtAmount
72+ else throw("Amount is incorrect")
73+ }
74+
75+
76+func assetBase58ToName (assetId) = if (!(isDefined(assetId)))
77+ then "WAVES"
78+ else if ((assetId == btcAssetId))
79+ then "BTC"
80+ else if ((assetId == ethAssetId))
81+ then "ETH"
82+ else if ((assetId == ltcAssetId))
83+ then "LTC"
84+ else if ((assetId == westAssetId))
85+ then "VST"
86+ else if ((assetId == wctAssetId))
87+ then "WCT"
88+ else throw("AssetId is incorrect")
89+
90+
91+func assetNameToBase58 (assetName) = if ((assetName == "WAVES"))
92+ then wavesAssetId
93+ else if ((assetName == "BTC"))
94+ then btcAssetId
95+ else if ((assetName == "ETH"))
96+ then ethAssetId
97+ else if ((assetName == "LTC"))
98+ then ltcAssetId
99+ else if ((assetName == "VST"))
100+ then westAssetId
101+ else if ((assetName == "WCT"))
102+ then wctAssetId
103+ else throw("Asset name is incorrect")
104+
105+
106+func getDividendsPercent (assetName) = {
107+ let key = (assetName + "_DividendPercent")
108+ let val = getInteger(this, key)
109+ match val {
110+ case a: Int =>
111+ a
112+ case _ =>
113+ throw("Couldn't Find dividend percent")
114+ }
115+ }
116+
117+
118+func getDividendsWithdrawnAmount (assetName) = {
119+ let val = getInteger(this, (assetName + "_DividendsWithdrawn"))
120+ match val {
121+ case a: Int =>
122+ a
123+ case _ =>
124+ 0
125+ }
126+ }
127+
128+
129+func getDividendBalance (assetId,dividendsWithdrawn,dividendsPercent) = {
130+ let dividendsTotalBalance = (assetBalance(this, assetId) + dividendsWithdrawn)
131+ let userStake = ((dividendsTotalBalance * dividendsPercent) / 100)
132+ (userStake - dividendsWithdrawn)
133+ }
134+
5135
6136 @Callable(i)
7-func a (num) = {
8- let a = if ((num == 1))
9- then [ScriptTransfer(addressFromPublicKey(base58'47yVx7y7Q9CP9VbAYgns76YMDmxeeGz2REzmVZsBC83g'), 100000, unit)]
10- else nil
11- ScriptResult(WriteSet(nil), TransferSet(ScriptTransfer(addressFromPublicKey(base58'Cm5aPWtA6PufaZS5keg1ZMnDSzEiwkUHCZsTFkdr8YwP'), 100000, unit) :: a))
137+func createDeposit (assetName,amount,deividendPercent,heightStart,duration) = {
138+ let callerPub = callerIsAdmin(i.callerPublicKey)
139+ let depositAlreadyCreated = depositCreatedCheck(assetName)
140+ if (depositAlreadyCreated)
141+ then throw("Deposit is already created")
142+ else WriteSet([DataEntry((assetName + "_DepositState"), "Created"), DataEntry((assetName + "_DepositAmount"), amount), DataEntry((assetName + "_DividendPercent"), deividendPercent), DataEntry((assetName + "_DepositStart"), heightStart), DataEntry((assetName + "_DepositDuration"), duration)])
12143 }
13144
145+
146+
147+@Callable(i)
148+func deposit () = {
149+ let callerPub = toBase58String(i.callerPublicKey)
150+ let pmt = extract(i.payment)
151+ let assetName = assetBase58ToName(pmt.assetId)
152+ let amount = amountCheck(assetName, pmt.amount)
153+ let depositState = getString(this, (assetName + "_DepositState"))
154+ if ((depositState == "Created"))
155+ then ScriptResult(WriteSet([DataEntry((assetName + "_DepositOwner"), callerPub), DataEntry((assetName + "_DepositState"), "Active")]), TransferSet([ScriptTransfer(addressFromStringValue(DragonFruitAddress), amount, pmt.assetId)]))
156+ else throw("Deposit is unavailable")
157+ }
158+
159+
160+
161+@Callable(i)
162+func withdrawDividends (assetName) = {
163+ let assetId = assetNameToBase58(assetName)
164+ let depositOwner = callerIsDepositOwner(assetName, toBase58String(i.callerPublicKey))
165+ let dividendsPercent = getDividendsPercent(assetName)
166+ let dividendsWithdrawn = getDividendsWithdrawnAmount(assetName)
167+ let dividendsAvaliable = getDividendBalance(assetId, dividendsWithdrawn, dividendsPercent)
168+ ScriptResult(WriteSet([DataEntry((depositOwner + "_DividendsWithdrawn"), (dividendsWithdrawn + dividendsAvaliable))]), TransferSet([ScriptTransfer(addressFromPublicKey(fromBase58String(depositOwner)), dividendsAvaliable, assetId)]))
169+ }
170+
171+
172+@Verifier(tx)
173+func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], divProgramPub))
174+ then match tx {
175+ case sstx: SetScriptTransaction =>
176+ true
177+ case ttx: TransferTransaction =>
178+ let assetName = assetBase58ToName(ttx.assetId)
179+ let dividendsPercent = getDividendsPercent(assetName)
180+ let dividendsWithdrawn = getDividendsWithdrawnAmount(assetName)
181+ let dividends = getDividendBalance(ttx.assetId, dividendsWithdrawn, dividendsPercent)
182+ let accountBalance = assetBalance(this, ttx.assetId)
183+ ((accountBalance - ttx.amount) >= dividends)
184+ case _ =>
185+ false
186+ }
187+ else false
14188

github/deemru/w8io/3ef1775 
47.12 ms