tx · HBkjtxwToBwT8ZimyXdAdBBEg3cdpJuivQoge9jh2NG8

3MpVunRPnNPuBCtAb95NPY1Q1aNf43a6Gyh:  -0.01000000 Waves

2019.12.18 14:35 [814283] smart account 3MpVunRPnNPuBCtAb95NPY1Q1aNf43a6Gyh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HBkjtxwToBwT8ZimyXdAdBBEg3cdpJuivQoge9jh2NG8",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1576668709745,
    "version": 1,
    "sender": "3MpVunRPnNPuBCtAb95NPY1Q1aNf43a6Gyh",
    "senderPublicKey": "HMJMUXBatArd2SDvjv3YbtdrY2BAsxDEfWhqv8kYH4Kj",
    "proofs": [
        "3Q8Y6CRzi8MBY6dPh7wtSn1Nj3KF63ZNexfNSziRSPBgc15LkNNeS6R9aToLDYWxCMsLhLWpNaDHYadL7EPRbXqd"
    ],
    "script": "base64:AAIDAAAAAAAAABUIARIAEgMKAQgSAwoBCBIFCgMIAQgAAAAUAAAAAAhXYXZlc1B1YgkAAlkAAAABAgAAACw0N3lWeDd5N1E5Q1A5VmJBWWduczc2WU1EbXhlZUd6MlJFem1WWnNCQzgzZwAAAAASRHJhZ29uRnJ1aXRBZGRyZXNzAgAAACMzTXFwNDUzNjF3Q3V0YUtFcU0ya0NiRlptcmtvZFFHdnBVRQAAAAAIYWRtaW5QdWIJAAJZAAAAAQIAAAAsQ201YVBXdEE2UHVmYVpTNWtlZzFaTW5EU3pFaXdrVUhDWnNURmtkcjhZd1AAAAAACG93bmVyUHViCQACWQAAAAECAAAALEhNSk1VWEJhdEFyZDJTRHZqdjNZYnRkclkyQkFzeERFZldocXY4a1lINEtqAAAAAAxmcmVlemluZ1RpbWUAAAAAAAAAAAEAAAAADHdhdmVzQXNzZXRJZAUAAAAEdW5pdAAAAAAKYnRjQXNzZXRJZAEAAAABAAAAAAAKZXRoQXNzZXRJZAEAAAABAAAAAAAKbHRjQXNzZXRJZAEAAAABAAAAAAALd2VzdEFzc2V0SWQBAAAAAQAAAAAACndjdEFzc2V0SWQBAAAAAQABAAAAFWNhbGxlclB1YklzUHJlZGVmaW5lZAAAAAEAAAAPY2FsbGVyUHVibGljS2V5AwkAAAAAAAACBQAAAA9jYWxsZXJQdWJsaWNLZXkFAAAACFdhdmVzUHViCQACWAAAAAEFAAAAD2NhbGxlclB1YmxpY0tleQkAAAIAAAABAgAAAC1Pbmx5IHByZWRlZmluZWQgcHVibGljIGtleXMgY2FuIG1ha2UgZGVwb3NpdHMBAAAAEWFzc2V0QmFzZTU4VG9OYW1lAAAAAQAAAAdhc3NldElkAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQUAAAAHYXNzZXRJZAIAAAAFV0FWRVMDCQAAAAAAAAIFAAAAB2Fzc2V0SWQFAAAACmJ0Y0Fzc2V0SWQCAAAAA0JUQwMJAAAAAAAAAgUAAAAHYXNzZXRJZAUAAAAKZXRoQXNzZXRJZAIAAAADRVRIAwkAAAAAAAACBQAAAAdhc3NldElkBQAAAApsdGNBc3NldElkAgAAAANMVEMDCQAAAAAAAAIFAAAAB2Fzc2V0SWQFAAAAC3dlc3RBc3NldElkAgAAAANWU1QDCQAAAAAAAAIFAAAAB2Fzc2V0SWQFAAAACndjdEFzc2V0SWQCAAAAA1dDVAkAAAIAAAABAgAAABRBc3NldElkIGlzIGluY29ycmVjdAEAAAARYXNzZXROYW1lVG9CYXNlNTgAAAABAAAACWFzc2V0TmFtZQMJAAAAAAAAAgUAAAAJYXNzZXROYW1lAgAAAAVXQVZFUwUAAAAMd2F2ZXNBc3NldElkAwkAAAAAAAACBQAAAAlhc3NldE5hbWUCAAAAA0JUQwUAAAAKYnRjQXNzZXRJZAMJAAAAAAAAAgUAAAAJYXNzZXROYW1lAgAAAANFVEgFAAAACmV0aEFzc2V0SWQDCQAAAAAAAAIFAAAACWFzc2V0TmFtZQIAAAADTFRDBQAAAApsdGNBc3NldElkAwkAAAAAAAACBQAAAAlhc3NldE5hbWUCAAAAA1ZTVAUAAAALd2VzdEFzc2V0SWQDCQAAAAAAAAIFAAAACWFzc2V0TmFtZQIAAAADV0NUBQAAAAp3Y3RBc3NldElkCQAAAgAAAAECAAAAF0Fzc2V0IG5hbWUgaXMgaW5jb3JyZWN0AQAAABNzZXROZXdEZXBvc2l0QW1vdW50AAAAAwAAAAljYWxsZXJQdWIAAAAKcG10QXNzZXRJZAAAAAZhbW91bnQEAAAAAWEEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAJY2FsbGVyUHViAgAAAAFfBQAAAApwbXRBc3NldElkAgAAAA5fRGVwb3NpdEFtb3VudAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAACQAAZAAAAAIFAAAAAWEFAAAABmFtb3VudAEAAAATZ2V0RGl2aWRlbmRzQmFsYW5jZQAAAAMAAAAHYXNzZXRJZAAAAAljYWxsZXJQdWIAAAAJYXNzZXROYW1lBAAAAAx0b3RhbEJhbGFuY2UJAAPrAAAAAgUAAAAEdGhpcwUAAAAHYXNzZXRJZAQAAAAQZGVwb3NpdGVkQmFsYW5jZQQAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAljYWxsZXJQdWICAAAAAV8FAAAACWFzc2V0TmFtZQIAAAAOX0RlcG9zaXRBbW91bnQEAAAAA3ZhbAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkEAAAAByRtYXRjaDAFAAAAA3ZhbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAACQAAaQAAAAIJAABlAAAAAgUAAAAMdG90YWxCYWxhbmNlBQAAABBkZXBvc2l0ZWRCYWxhbmNlAAAAAAAAAAAFAQAAAA5jYWxsZXJQdWJDaGVjawAAAAIAAAAPY2FsbGVyUHVibGljS2V5AAAACnBtdEFzc2V0SWQEAAAAA2tleQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAPY2FsbGVyUHVibGljS2V5AgAAAAFfBQAAAApwbXRBc3NldElkAgAAAA5fRGVwb3NpdEFtb3VudAQAAAADdmFsCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQQAAAAHJG1hdGNoMAUAAAADdmFsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAD2NhbGxlclB1YmxpY0tleQkAAAIAAAABAgAAACpDb3VsZG4ndCBmaW5kIGRlcG9zaXQgYW1vdW50IGZvciB0aGlzIHVzZXIBAAAAEGdldERlcG9zaXRIZWlnaHQAAAABAAAACWNhbGxlclB1YgQAAAADa2V5CQABLAAAAAIFAAAACWNhbGxlclB1YgIAAAAOX0RlcG9zaXRIZWlnaHQEAAAAA3ZhbAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkEAAAAByRtYXRjaDAFAAAAA3ZhbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhCQAAAgAAAAECAAAAHENvdWxkbid0IGZpbmQgZGVwb3NpdCBoZWlnaHQBAAAAEWdldERlcG9zaXRCYWxhbmNlAAAAAgAAAAljYWxsZXJQdWIAAAAKcG10QXNzZXRJZAQAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAljYWxsZXJQdWICAAAAAV8FAAAACnBtdEFzc2V0SWQCAAAADl9EZXBvc2l0QW1vdW50BAAAAAN2YWwJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5BAAAAAckbWF0Y2gwBQAAAAN2YWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQkAAAIAAAABAgAAAB1Db3VsZG4ndCBmaW5kIGRlcG9zaXQgYmFsYW5jZQEAAAAaZ2V0SW52ZXN0b3JEaXZpZGVuZEJhbGFuY2UAAAAABAAAAANrZXkJAAEsAAAAAgkAAlgAAAABBQAAAAhXYXZlc1B1YgIAAAAQX0RpdmlkZW5kQmFsYW5jZQQAAAADdmFsCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQQAAAAHJG1hdGNoMAUAAAADdmFsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAAAAAEAAAAAWkBAAAAB2RlcG9zaXQAAAAABAAAAAljYWxsZXJQdWIJAQAAABVjYWxsZXJQdWJJc1ByZWRlZmluZWQAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50BAAAAAZhbW91bnQIBQAAAANwbXQAAAAGYW1vdW50BAAAAApwbXRBc3NldElkCQEAAAARYXNzZXRCYXNlNThUb05hbWUAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQEAAAAFmNhbGxlck5ld0RlcG9zaXRBbW91bnQJAQAAABNzZXROZXdEZXBvc2l0QW1vdW50AAAAAwUAAAAJY2FsbGVyUHViBQAAAApwbXRBc3NldElkBQAAAAZhbW91bnQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACWNhbGxlclB1YgIAAAABXwUAAAAKcG10QXNzZXRJZAIAAAAOX0RlcG9zaXRBbW91bnQFAAAAFmNhbGxlck5ld0RlcG9zaXRBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAJY2FsbGVyUHViAgAAAA5fRGVwb3NpdEhlaWdodAUAAAAGaGVpZ2h0BQAAAANuaWwAAAABaQEAAAARd2l0aGRyYXdEaXZpZGVuZHMAAAABAAAACWFzc2V0TmFtZQQAAAAHYXNzZXRJZAkBAAAAEWFzc2V0TmFtZVRvQmFzZTU4AAAAAQUAAAAJYXNzZXROYW1lBAAAAAljYWxsZXJQdWIJAQAAAA5jYWxsZXJQdWJDaGVjawAAAAIJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BQAAAAlhc3NldE5hbWUEAAAACWRpdmlkZW5kcwkBAAAAE2dldERpdmlkZW5kc0JhbGFuY2UAAAADBQAAAAdhc3NldElkBQAAAAljYWxsZXJQdWIFAAAACWFzc2V0TmFtZQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAJY2FsbGVyUHViAgAAABBfRGl2aWRlbmRCYWxhbmNlAAAAAAAAAAAABQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQkAAlkAAAABBQAAAAljYWxsZXJQdWIFAAAACWRpdmlkZW5kcwUAAAAHYXNzZXRJZAUAAAADbmlsAAAAAWkBAAAAD3dpdGhkcmF3RGVwb3NpdAAAAAEAAAAJYXNzZXROYW1lBAAAAApwbXRBc3NldElkCQEAAAARYXNzZXROYW1lVG9CYXNlNTgAAAABBQAAAAlhc3NldE5hbWUEAAAACWNhbGxlclB1YgkBAAAADmNhbGxlclB1YkNoZWNrAAAAAgkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkFAAAACWFzc2V0TmFtZQQAAAALZEFwcEJhbGFuY2UJAAPrAAAAAgUAAAAEdGhpcwUAAAAKcG10QXNzZXRJZAQAAAANZGVwb3NpdEhlaWdodAkBAAAAEGdldERlcG9zaXRIZWlnaHQAAAABBQAAAAljYWxsZXJQdWIEAAAAEGhlaWdodERpZmZlcmVuY2UJAABlAAAAAgUAAAAGaGVpZ2h0BQAAAA1kZXBvc2l0SGVpZ2h0BAAAAA5kZXBvc2l0QmFsYW5jZQkBAAAAEWdldERlcG9zaXRCYWxhbmNlAAAAAgUAAAAJY2FsbGVyUHViBQAAAAlhc3NldE5hbWUEAAAAEGF2YWxpYWJsZUJhbGFuY2UDCQAAZwAAAAIJAABlAAAAAgUAAAALZEFwcEJhbGFuY2UFAAAADmRlcG9zaXRCYWxhbmNlAAAAAAAAAAAABQAAAA5kZXBvc2l0QmFsYW5jZQUAAAALZEFwcEJhbGFuY2UDCQAAZgAAAAIFAAAAEGhlaWdodERpZmZlcmVuY2UFAAAADGZyZWV6aW5nVGltZQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACWNhbGxlclB1YgIAAAABXwUAAAAJYXNzZXROYW1lAgAAAA5fRGVwb3NpdEFtb3VudAkAAGUAAAACBQAAAA5kZXBvc2l0QmFsYW5jZQUAAAAQYXZhbGlhYmxlQmFsYW5jZQUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEJAAJZAAAAAQUAAAAJY2FsbGVyUHViBQAAABBhdmFsaWFibGVCYWxhbmNlBQAAAApwbXRBc3NldElkBQAAAANuaWwJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAG0ZyZWV6aW5nIHRpbWUgaXMgbm90IG92ZXIuIAkAAaQAAAABBQAAABBoZWlnaHREaWZmZXJlbmNlAgAAAAwgYmxvY2tzIGxlZnQAAAABaQEAAAARc2VuZFRvR2FtZUJhbGFuY2UAAAADAAAACXJlY2lwaWVudAAAAAZhbW91bnQAAAAJYXNzZXROYW1lBAAAAAljYWxsZXJQdWIDCQAAAAAAAAIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQUAAAAIYWRtaW5QdWIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQkAAAIAAAABAgAAACZZb3UgY2Fubm90IHNlbmQgZnVuZHMgdG8gZ2FtZSBhY2NvdW50cwQAAAAOcmVjaXBpZW50Q2hlY2sDCQAAAAAAAAIFAAAACXJlY2lwaWVudAUAAAASRHJhZ29uRnJ1aXRBZGRyZXNzBQAAAAlyZWNpcGllbnQJAAACAAAAAQIAAAAuRnVuZHMgY2FuIGJlIHNlbnQgb24gdG8gZGVmaW5lZCBnYW1lIGFkZHJlc3NlcwQAAAAHYXNzZXRJZAkBAAAAEWFzc2V0TmFtZVRvQmFzZTU4AAAAAQUAAAAJYXNzZXROYW1lCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAAOcmVjaXBpZW50Q2hlY2sFAAAABmFtb3VudAUAAAAHYXNzZXRJZAUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAMJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAhvd25lclB1YgQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAARzc3R4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAADdHR4BQAAAAckbWF0Y2gwBAAAAA5hY2NvdW50QmFsYW5jZQkAA+sAAAACBQAAAAR0aGlzCAUAAAADdHR4AAAAB2Fzc2V0SWQEAAAAF2ludmVzdG9yRGl2aWRlbmRCYWxhbmNlCQEAAAAaZ2V0SW52ZXN0b3JEaXZpZGVuZEJhbGFuY2UAAAAACQAAZwAAAAIJAABlAAAAAgUAAAAOYWNjb3VudEJhbGFuY2UIBQAAAAN0dHgAAAAGYW1vdW50BQAAABdpbnZlc3RvckRpdmlkZW5kQmFsYW5jZQcHpcThAQ==",
    "chainId": 84,
    "height": 814283,
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: GNhFL44CgAcuVgymGrDxheB5adkPs1nZBTF845nS8dUx

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let WavesPub = fromBase58String("47yVx7y7Q9CP9VbAYgns76YMDmxeeGz2REzmVZsBC83g")
5+
6+let DragonFruitAddress = "3Mqp45361wCutaKEqM2kCbFZmrkodQGvpUE"
7+
8+let adminPub = fromBase58String("Cm5aPWtA6PufaZS5keg1ZMnDSzEiwkUHCZsTFkdr8YwP")
9+
10+let ownerPub = fromBase58String("HMJMUXBatArd2SDvjv3YbtdrY2BAsxDEfWhqv8kYH4Kj")
11+
12+let freezingTime = 1
13+
14+let wavesAssetId = unit
15+
16+let btcAssetId = base58'1'
17+
18+let ethAssetId = base58'1'
19+
20+let ltcAssetId = base58'1'
21+
22+let westAssetId = base58'1'
23+
24+let wctAssetId = base58'1'
25+
26+func callerPubIsPredefined (callerPublicKey) = if ((callerPublicKey == WavesPub))
27+    then toBase58String(callerPublicKey)
28+    else throw("Only predefined public keys can make deposits")
29+
30+
31+func assetBase58ToName (assetId) = if (!(isDefined(assetId)))
32+    then "WAVES"
33+    else if ((assetId == btcAssetId))
34+        then "BTC"
35+        else if ((assetId == ethAssetId))
36+            then "ETH"
37+            else if ((assetId == ltcAssetId))
38+                then "LTC"
39+                else if ((assetId == westAssetId))
40+                    then "VST"
41+                    else if ((assetId == wctAssetId))
42+                        then "WCT"
43+                        else throw("AssetId is incorrect")
44+
45+
46+func assetNameToBase58 (assetName) = if ((assetName == "WAVES"))
47+    then wavesAssetId
48+    else if ((assetName == "BTC"))
49+        then btcAssetId
50+        else if ((assetName == "ETH"))
51+            then ethAssetId
52+            else if ((assetName == "LTC"))
53+                then ltcAssetId
54+                else if ((assetName == "VST"))
55+                    then westAssetId
56+                    else if ((assetName == "WCT"))
57+                        then wctAssetId
58+                        else throw("Asset name is incorrect")
59+
60+
61+func setNewDepositAmount (callerPub,pmtAssetId,amount) = {
62+    let a =     match getInteger(this, (((callerPub + "_") + pmtAssetId) + "_DepositAmount")) {
63+        case a: Int => 
64+            a
65+        case _ => 
66+            0
67+    }
68+    (a + amount)
69+    }
70+
71+
72+func getDividendsBalance (assetId,callerPub,assetName) = {
73+    let totalBalance = assetBalance(this, assetId)
74+    let depositedBalance = {
75+        let key = (((callerPub + "_") + assetName) + "_DepositAmount")
76+        let val = getInteger(this, key)
77+        match val {
78+            case a: Int => 
79+                a
80+            case _ => 
81+                0
82+        }
83+        }
84+    ((totalBalance - depositedBalance) / 5)
85+    }
86+
87+
88+func callerPubCheck (callerPublicKey,pmtAssetId) = {
89+    let key = (((callerPublicKey + "_") + pmtAssetId) + "_DepositAmount")
90+    let val = getInteger(this, key)
91+    match val {
92+        case a: Int => 
93+            callerPublicKey
94+        case _ => 
95+            throw("Couldn't find deposit amount for this user")
96+    }
97+    }
98+
99+
100+func getDepositHeight (callerPub) = {
101+    let key = (callerPub + "_DepositHeight")
102+    let val = getInteger(this, key)
103+    match val {
104+        case a: Int => 
105+            a
106+        case _ => 
107+            throw("Couldn't find deposit height")
108+    }
109+    }
110+
111+
112+func getDepositBalance (callerPub,pmtAssetId) = {
113+    let key = (((callerPub + "_") + pmtAssetId) + "_DepositAmount")
114+    let val = getInteger(this, key)
115+    match val {
116+        case a: Int => 
117+            a
118+        case _ => 
119+            throw("Couldn't find deposit balance")
120+    }
121+    }
122+
123+
124+func getInvestorDividendBalance () = {
125+    let key = (toBase58String(WavesPub) + "_DividendBalance")
126+    let val = getInteger(this, key)
127+    match val {
128+        case a: Int => 
129+            a
130+        case _ => 
131+            0
132+    }
133+    }
134+
135+
136+@Callable(i)
137+func deposit () = {
138+    let callerPub = callerPubIsPredefined(i.callerPublicKey)
139+    let pmt = extract(i.payment)
140+    let amount = pmt.amount
141+    let pmtAssetId = assetBase58ToName(pmt.assetId)
142+    let callerNewDepositAmount = setNewDepositAmount(callerPub, pmtAssetId, amount)
143+    WriteSet([DataEntry((((callerPub + "_") + pmtAssetId) + "_DepositAmount"), callerNewDepositAmount), DataEntry((callerPub + "_DepositHeight"), height)])
144+    }
145+
146+
147+
148+@Callable(i)
149+func withdrawDividends (assetName) = {
150+    let assetId = assetNameToBase58(assetName)
151+    let callerPub = callerPubCheck(toBase58String(i.callerPublicKey), assetName)
152+    let dividends = getDividendsBalance(assetId, callerPub, assetName)
153+    ScriptResult(WriteSet([DataEntry((callerPub + "_DividendBalance"), 0)]), TransferSet([ScriptTransfer(addressFromPublicKey(fromBase58String(callerPub)), dividends, assetId)]))
154+    }
155+
156+
157+
158+@Callable(i)
159+func withdrawDeposit (assetName) = {
160+    let pmtAssetId = assetNameToBase58(assetName)
161+    let callerPub = callerPubCheck(toBase58String(i.callerPublicKey), assetName)
162+    let dAppBalance = assetBalance(this, pmtAssetId)
163+    let depositHeight = getDepositHeight(callerPub)
164+    let heightDifference = (height - depositHeight)
165+    let depositBalance = getDepositBalance(callerPub, assetName)
166+    let avaliableBalance = if (((dAppBalance - depositBalance) >= 0))
167+        then depositBalance
168+        else dAppBalance
169+    if ((heightDifference > freezingTime))
170+        then ScriptResult(WriteSet([DataEntry((((callerPub + "_") + assetName) + "_DepositAmount"), (depositBalance - avaliableBalance))]), TransferSet([ScriptTransfer(addressFromPublicKey(fromBase58String(callerPub)), avaliableBalance, pmtAssetId)]))
171+        else throw((("Freezing time is not over. " + toString(heightDifference)) + " blocks left"))
172+    }
173+
174+
175+
176+@Callable(i)
177+func sendToGameBalance (recipient,amount,assetName) = {
178+    let callerPub = if ((i.callerPublicKey == adminPub))
179+        then i.callerPublicKey
180+        else throw("You cannot send funds to game accounts")
181+    let recipientCheck = if ((recipient == DragonFruitAddress))
182+        then recipient
183+        else throw("Funds can be sent on to defined game addresses")
184+    let assetId = assetNameToBase58(assetName)
185+    ScriptResult(WriteSet(nil), TransferSet([ScriptTransfer(addressFromStringValue(recipientCheck), amount, assetId)]))
186+    }
187+
188+
189+@Verifier(tx)
190+func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], ownerPub))
191+    then     match tx {
192+        case sstx: SetScriptTransaction => 
193+            true
194+        case ttx: TransferTransaction => 
195+            let accountBalance = assetBalance(this, ttx.assetId)
196+            let investorDividendBalance = getInvestorDividendBalance()
197+            ((accountBalance - ttx.amount) >= investorDividendBalance)
198+        case _ => 
199+            false
200+    }
201+    else false
202+
github/deemru/w8io/026f985 
27.23 ms ◑