tx · 9v6YSerM4jk41h3kEvSxwgg5rBD5QeQ9kqetHRVx4NqL

3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z:  -0.01000000 Waves

2024.12.31 04:14 [3438009] smart account 3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9v6YSerM4jk41h3kEvSxwgg5rBD5QeQ9kqetHRVx4NqL",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1735607691374,
    "version": 2,
    "chainId": 84,
    "sender": "3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z",
    "senderPublicKey": "5CoDbXxoqnvJpx9GrS6M4G5GYJXh9rcoiXJz7RYTPVkL",
    "proofs": [
        "pc1bt8VvzSke5kGgPQF24XKCGNzS5iMFxoiLvzfH9qFGGZrytTURniNwnSLWhvndg8HZeKT4Fc8kYTfpyQsvkfT"
    ],
    "script": "base64:BgImCAISCgoIAQgEAhEYFBISBAoCCAgSABIDCgEBEgASABIAEgMKAQgUAAJNOACAwtcvAA5TVEFLRVJTX0FNT1VOVACAreIEAAtURUFNX0FNT1VOVACAreIEAA1NQVJLRVRfQU1PVU5UAIDokiYAC1lFQVJfQkxPQ0tTCQBoAgDtAgCgCwAMU1RBS0VfUEVSSU9ECQBoAgAFBQtZRUFSX0JMT0NLUwALQkxFU1NfUFJJQ0UAgNDbw/QCAAtGT01PX1BFUklPRAA8AA5nb3JjQXNzZXRJZEtleQILZ29yY0Fzc2V0SWQAC2dvcmNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKEIAQUOZ29yY0Fzc2V0SWRLZXkCFkdPUkMgaXMgbm90IGlzc3VlZCB5ZXQADGlzc3VlVGltZUtleQIJaXNzdWVUaW1lABRzdGFrZXJzQW1vdW50TGVmdEtleQIRc3Rha2Vyc0Ftb3VudExlZnQAFHN0YWtlZEFtb3VudFRvdGFsS2V5AgtzdGFrZWRUb3RhbAEVc3Rha2VkQW1vdW50QnlVc2VyS2V5AQRhZGRyCQCsAgICDXN0YWtlZEFtb3VudF8FBGFkZHIBFmtleUxhc3RDbGFpbVRpbWVCeVVzZXIBBGFkZHIJAKwCAgIObGFzdENsYWltVGltZV8FBGFkZHIAD2xhc3RGb21vVGltZUtleQIMbGFzdEZvbW9UaW1lABFjdXJyZW50SmFja3BvdEtleQIOY3VycmVudEphY2twb3QBCWdvcmNTdGF0cwELdXNlckFkZHJPcHQED2Ftb3VudExlZnRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRRzdGFrZXJzQW1vdW50TGVmdEtleQAABAxsYXN0VXNlclRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmtleUxhc3RDbGFpbVRpbWVCeVVzZXIBBQt1c2VyQWRkck9wdAD///////////8BAwkAZgIAAAUMbGFzdFVzZXJUaW1lCQCUCgIAAAUPYW1vdW50TGVmdFRvdGFsBAlpc3N1ZVRpbWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBBQxpc3N1ZVRpbWVLZXkCFkdPUkMgaXMgbm90IGlzc3VlZCB5ZXQECm5vd0xpbWl0ZWQJAJcDAQkAzAgCBQZoZWlnaHQJAMwIAgkAZAIFCWlzc3VlVGltZQUMU1RBS0VfUEVSSU9EBQNuaWwECnVzZXJTaGFyZXMJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEFC3VzZXJBZGRyT3B0AAAEC3RvdGFsU2hhcmVzCQELdmFsdWVPckVsc2UCCQCfCAEFFHN0YWtlZEFtb3VudFRvdGFsS2V5AAAEDHVzZXJUZW1wb3JhbAkAawMFDlNUQUtFUlNfQU1PVU5UCQBlAgUKbm93TGltaXRlZAUMbGFzdFVzZXJUaW1lBQxTVEFLRV9QRVJJT0QECnVzZXJBbW91bnQDCQECIT0CBQt0b3RhbFNoYXJlcwAACQBrAwUMdXNlclRlbXBvcmFsBQp1c2VyU2hhcmVzBQt0b3RhbFNoYXJlcwAACQCUCgIFCnVzZXJBbW91bnQJAGUCBQ9hbW91bnRMZWZ0VG90YWwFCnVzZXJBbW91bnQBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQxmb21vSW50ZXJuYWwBAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC2dvcmNBc3NldElkCQACAQITR09SQyBwYXltZW50cyBvbmx5IQQGY2hhbmdlCQBlAgUDYW10BQtCTEVTU19QUklDRQMJAGYCAAAFBmNoYW5nZQkAAgEJAKwCAgkArAICCQCsAgICFllvdSBuZWVkIHRvIHNhY3JpZmljZSAJAQpmaXhlZFBvaW50AgULQkxFU1NfUFJJQ0UACAIWIEdPUkMsIGJ1dCBJIHNlZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQNhbXQACAQNY2hhbmdlQWN0aW9ucwMJAGYCBQZjaGFuZ2UAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmNoYW5nZQULZ29yY0Fzc2V0SWQFA25pbAUDbmlsBAxsYXN0Rm9tb1RpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPbGFzdEZvbW9UaW1lS2V5AAAEC2ZvbW9BY3Rpb25zAwkAZgIFBmhlaWdodAkAZAIFDGxhc3RGb21vVGltZQULRk9NT19QRVJJT0QEDWphY2twb3RBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQURY3VycmVudEphY2twb3RLZXkAAAMJAGYCBQ1qYWNrcG90QW1vdW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQ1qYWNrcG90QW1vdW50BQtnb3JjQXNzZXRJZAUDbmlsBQNuaWwFA25pbAkAzggCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFEWN1cnJlbnRKYWNrcG90S2V5BQtCTEVTU19QUklDRQkAzAgCCQEMSW50ZWdlckVudHJ5AgUPbGFzdEZvbW9UaW1lS2V5BQZoZWlnaHQFA25pbAUNY2hhbmdlQWN0aW9ucwULZm9tb0FjdGlvbnMIAWkBCHRlc3RBcmdzCAZpbnRWYWwGc3RyVmFsB2Jvb2xWYWwGYmluVmFsBmFyckludAZhcnJTdHIHYXJyQm9vbAZhcnJCaW4FA25pbAFpAQ1jb25zdHJ1Y3RvclYxAg50ZWFtV2FsbGV0QWRkcgpicm9rZXJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEDGlzc3VlZEFtb3VudAUCTTgEBWlzc3VlCQDDCAcCBEdPUkMCtQFNZW1lIGNvaW4gYnkgR29kIG9mIFJhbmRvbSBDaGFuY2UuIFZpc2l0IGh0dHBzOi8vZ29yYy5tZW1lLCBzYWNyaWZpY2UgdG8gdGhlIEdvZCBvZiBSYW5kb20gYW5kIHlvdSB3aWxsIHJlY2VpdmUgYW4gYW5zd2VyIHRvIGFueSBxdWVzdGlvbiBvciBhIGJsZXNzaW5nLiBMdWNreSBvbmUgZ2V0cyBhIEdpZnQgb2YgR29kBQxpc3N1ZWRBbW91bnQACAcFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQVpc3N1ZQkAzAgCBQVpc3N1ZQkAzAgCCQELQmluYXJ5RW50cnkCBQ5nb3JjQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUMaXNzdWVUaW1lS2V5BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BQ5TVEFLRVJTX0FNT1VOVAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQ50ZWFtV2FsbGV0QWRkcgULVEVBTV9BTU9VTlQFB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUKYnJva2VyQWRkcgUNTUFSS0VUX0FNT1VOVAUHYXNzZXRJZAUDbmlsAWkBCXN0YWtlR29yYwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC2dvcmNBc3NldElkCQACAQITR09SQyBwYXltZW50cyBvbmx5IQQEYWRkcgkApQgBCAUBaQZjYWxsZXIECyR0MDQ5Njk1MDIwCQEJZ29yY1N0YXRzAQUEYWRkcgQKdXNlckFtb3VudAgFCyR0MDQ5Njk1MDIwAl8xBA9hbW91bnRMZWZ0VG90YWwIBQskdDA0OTY5NTAyMAJfMgQNdXNlckFtb3VudEtleQkBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEFBGFkZHIJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCnVzZXJBbW91bnQFC2dvcmNBc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZWRBbW91bnRUb3RhbEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUc3Rha2VkQW1vdW50VG90YWxLZXkAAAUDYW10CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ11c2VyQW1vdW50S2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ11c2VyQW1vdW50S2V5AAAFA2FtdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmtleUxhc3RDbGFpbVRpbWVCeVVzZXIBBQRhZGRyBQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BQ9hbW91bnRMZWZ0VG90YWwFA25pbAUKdXNlckFtb3VudAFpAQt1bnN0YWtlR29yYwEGYW1vdW50AwkAZwIAAAUGYW1vdW50CQACAQIZQW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQEYWRkcgkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQNdXNlckFtb3VudEtleQkBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEFBGFkZHIECW9sZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ11c2VyQW1vdW50S2V5AAADCQBmAgAACQBlAgUJb2xkQW1vdW50BQZhbW91bnQJAAIBCQCsAgIJAKwCAgkArAICAg5Zb3UgaGF2ZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQlvbGRBbW91bnQACAIfIEdPUkMgc3Rha2VkLCB0cmllZCB0byB1bnN0YWtlIAkBCmZpeGVkUG9pbnQCBQZhbW91bnQACAQLJHQwNTkxNDU5NjUJAQlnb3JjU3RhdHMBBQRhZGRyBAp1c2VyQW1vdW50CAULJHQwNTkxNDU5NjUCXzEED2Ftb3VudExlZnRUb3RhbAgFCyR0MDU5MTQ1OTY1Al8yCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQp1c2VyQW1vdW50BQtnb3JjQXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2VkQW1vdW50VG90YWxLZXkJAGUCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQUUc3Rha2VkQW1vdW50VG90YWxLZXkCDk5vIEdPUkMgc3Rha2VkBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFDXVzZXJBbW91bnRLZXkJAGUCBQlvbGRBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmtleUxhc3RDbGFpbVRpbWVCeVVzZXIBBQRhZGRyBQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BQ9hbW91bnRMZWZ0VG90YWwFA25pbAAAAWkBCWNsYWltR29yYwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQEYWRkcgkApQgBCAUBaQZjYWxsZXIECyR0MDY0NjI2NTEzCQEJZ29yY1N0YXRzAQUEYWRkcgQKdXNlckFtb3VudAgFCyR0MDY0NjI2NTEzAl8xBA9hbW91bnRMZWZ0VG90YWwIBQskdDA2NDYyNjUxMwJfMgkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUKdXNlckFtb3VudAULZ29yY0Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARZrZXlMYXN0Q2xhaW1UaW1lQnlVc2VyAQUEYWRkcgUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQUPYW1vdW50TGVmdFRvdGFsBQNuaWwFCnVzZXJBbW91bnQBaQEIYW5zd2VyTWUACQCUCgIJAQxmb21vSW50ZXJuYWwBBQFpCQCxCQEIBQFpDXRyYW5zYWN0aW9uSWQBaQEHYmxlc3NNZQAJAJQKAgkBDGZvbW9JbnRlcm5hbAEFAWkAKgFpAQ1zdGF0c1JFQURPTkxZAQt1c2VyQWRkck9wdAQLJHQwNjkwNTY5NjMJAQlnb3JjU3RhdHMBBQt1c2VyQWRkck9wdAQKdXNlckFtb3VudAgFCyR0MDY5MDU2OTYzAl8xBA9hbW91bnRMZWZ0VG90YWwIBQskdDA2OTA1Njk2MwJfMgQNamFja3BvdEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRFjdXJyZW50SmFja3BvdEtleQAABAxsYXN0Rm9tb1RpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPbGFzdEZvbW9UaW1lS2V5AAAJAJQKAgUDbmlsCQDMCAIJAKwCAgIYJXMlZF9fZ29yY0F2YWlsVG9DbGFpbV9fCQCkAwEFCnVzZXJBbW91bnQJAMwIAgkArAICAhUlcyVkX19qYWNrcG90QW1vdW50X18JAKQDAQUNamFja3BvdEFtb3VudAkAzAgCCQCsAgICFCVzJWRfX2xhc3RGb21vVGltZV9fCQCkAwEFDGxhc3RGb21vVGltZQkAzAgCCQCsAgICFyVzJWRfX2Ftb3VudExlZnRUb3RhbF9fCQCkAwEFD2Ftb3VudExlZnRUb3RhbAUDbmlsAIh49d0=",
    "height": 3438009,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Das6Z2hX4mhoW5udzZvdyptL8qapbqPTA7yn5JhgiikL
Next: GrEfnBjnMB6CdYR3WTQrMS3qAjaq8UBDJHNTtoSy4BGw

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let M8 = 100000000
5+
6+let STAKERS_AMOUNT = 10000000
7+
8+let TEAM_AMOUNT = 10000000
9+
10+let MARKET_AMOUNT = 80000000
11+
12+let YEAR_BLOCKS = (365 * 1440)
13+
14+let STAKE_PERIOD = (5 * YEAR_BLOCKS)
15+
16+let BLESS_PRICE = 100000000000
17+
18+let FOMO_PERIOD = 60
19+
20+let gorcAssetIdKey = "gorcAssetId"
21+
22+let gorcAssetId = valueOrErrorMessage(getBinary(gorcAssetIdKey), "GORC is not issued yet")
23+
24+let issueTimeKey = "issueTime"
25+
26+let stakersAmountLeftKey = "stakersAmountLeft"
27+
28+let stakedAmountTotalKey = "stakedTotal"
29+
30+func stakedAmountByUserKey (addr) = ("stakedAmount_" + addr)
31+
32+
33+func keyLastClaimTimeByUser (addr) = ("lastClaimTime_" + addr)
34+
35+
36+let lastFomoTimeKey = "lastFomoTime"
37+
38+let currentJackpotKey = "currentJackpot"
39+
40+func gorcStats (userAddrOpt) = {
41+    let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
42+    let lastUserTime = valueOrElse(getInteger(keyLastClaimTimeByUser(userAddrOpt)), -1)
43+    if ((0 > lastUserTime))
44+        then $Tuple2(0, amountLeftTotal)
45+        else {
46+            let issueTime = valueOrErrorMessage(getInteger(issueTimeKey), "GORC is not issued yet")
47+            let nowLimited = min([height, (issueTime + STAKE_PERIOD)])
48+            let userShares = valueOrElse(getInteger(stakedAmountByUserKey(userAddrOpt)), 0)
49+            let totalShares = valueOrElse(getInteger(stakedAmountTotalKey), 0)
50+            let userTemporal = fraction(STAKERS_AMOUNT, (nowLimited - lastUserTime), STAKE_PERIOD)
51+            let userAmount = if ((totalShares != 0))
52+                then fraction(userTemporal, userShares, totalShares)
53+                else 0
54+            $Tuple2(userAmount, (amountLeftTotal - userAmount))
55+            }
56+    }
57+
58+
59+func fixedPoint (val,decimals) = {
60+    let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
61+    let lowPart = toString((val % tenPow))
62+    let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
63+    (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
64+    }
65+
66+
67+func fomoInternal (i) = if ((size(i.payments) != 1))
68+    then throw("exactly 1 payment must be attached")
69+    else {
70+        let pmt = i.payments[0]
71+        let amt = pmt.amount
72+        if (if (!(isDefined(pmt.assetId)))
73+            then true
74+            else (value(pmt.assetId) != gorcAssetId))
75+            then throw("GORC payments only!")
76+            else {
77+                let change = (amt - BLESS_PRICE)
78+                if ((0 > change))
79+                    then throw(((("You need to sacrifice " + fixedPoint(BLESS_PRICE, 8)) + " GORC, but I see only ") + fixedPoint(amt, 8)))
80+                    else {
81+                        let changeActions = if ((change > 0))
82+                            then [ScriptTransfer(i.caller, change, gorcAssetId)]
83+                            else nil
84+                        let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
85+                        let fomoActions = if ((height > (lastFomoTime + FOMO_PERIOD)))
86+                            then {
87+                                let jackpotAmount = valueOrElse(getInteger(currentJackpotKey), 0)
88+                                if ((jackpotAmount > 0))
89+                                    then [ScriptTransfer(i.caller, jackpotAmount, gorcAssetId)]
90+                                    else nil
91+                                }
92+                            else nil
93+                        (([IntegerEntry(currentJackpotKey, BLESS_PRICE), IntegerEntry(lastFomoTimeKey, height)] ++ changeActions) ++ fomoActions)
94+                        }
95+                }
96+        }
497 
598 
699 @Callable(i)
7100 func testArgs (intVal,strVal,boolVal,binVal,arrInt,arrStr,arrBool,arrBin) = nil
8101 
9102 
103+
104+@Callable(i)
105+func constructorV1 (teamWalletAddr,brokerAddr) = if ((i.caller != this))
106+    then throw("Permission denied")
107+    else {
108+        let issuedAmount = M8
109+        let issue = Issue("GORC", "Meme coin by God of Random Chance. Visit https://gorc.meme, sacrifice to the God of Random and you will receive an answer to any question or a blessing. Lucky one gets a Gift of God", issuedAmount, 8, false, unit, 0)
110+        let assetId = calculateAssetId(issue)
111+[issue, BinaryEntry(gorcAssetIdKey, assetId), IntegerEntry(issueTimeKey, height), IntegerEntry(stakersAmountLeftKey, STAKERS_AMOUNT), ScriptTransfer(addressFromStringValue(teamWalletAddr), TEAM_AMOUNT, assetId), ScriptTransfer(addressFromStringValue(brokerAddr), MARKET_AMOUNT, assetId)]
112+        }
113+
114+
115+
116+@Callable(i)
117+func stakeGorc () = if ((size(i.payments) != 1))
118+    then throw("exactly 1 payment must be attached")
119+    else {
120+        let pmt = i.payments[0]
121+        let amt = pmt.amount
122+        if (if (!(isDefined(pmt.assetId)))
123+            then true
124+            else (value(pmt.assetId) != gorcAssetId))
125+            then throw("GORC payments only!")
126+            else {
127+                let addr = toString(i.caller)
128+                let $t049695020 = gorcStats(addr)
129+                let userAmount = $t049695020._1
130+                let amountLeftTotal = $t049695020._2
131+                let userAmountKey = stakedAmountByUserKey(addr)
132+                $Tuple2([ScriptTransfer(i.caller, userAmount, gorcAssetId), IntegerEntry(stakedAmountTotalKey, (valueOrElse(getInteger(stakedAmountTotalKey), 0) + amt)), IntegerEntry(userAmountKey, (valueOrElse(getInteger(userAmountKey), 0) + amt)), IntegerEntry(keyLastClaimTimeByUser(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)], userAmount)
133+                }
134+        }
135+
136+
137+
138+@Callable(i)
139+func unstakeGorc (amount) = if ((0 >= amount))
140+    then throw("Amount should be positive")
141+    else {
142+        let addr = toString(i.caller)
143+        if ((size(i.payments) != 0))
144+            then throw("No payments required")
145+            else {
146+                let userAmountKey = stakedAmountByUserKey(addr)
147+                let oldAmount = valueOrElse(getInteger(userAmountKey), 0)
148+                if ((0 > (oldAmount - amount)))
149+                    then throw(((("You have only " + fixedPoint(oldAmount, 8)) + " GORC staked, tried to unstake ") + fixedPoint(amount, 8)))
150+                    else {
151+                        let $t059145965 = gorcStats(addr)
152+                        let userAmount = $t059145965._1
153+                        let amountLeftTotal = $t059145965._2
154+                        $Tuple2([ScriptTransfer(i.caller, userAmount, gorcAssetId), IntegerEntry(stakedAmountTotalKey, (valueOrErrorMessage(getInteger(stakedAmountTotalKey), "No GORC staked") - amount)), IntegerEntry(userAmountKey, (oldAmount - amount)), IntegerEntry(keyLastClaimTimeByUser(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)], 0)
155+                        }
156+                }
157+        }
158+
159+
160+
161+@Callable(i)
162+func claimGorc () = if ((size(i.payments) != 0))
163+    then throw("No payments required")
164+    else {
165+        let addr = toString(i.caller)
166+        let $t064626513 = gorcStats(addr)
167+        let userAmount = $t064626513._1
168+        let amountLeftTotal = $t064626513._2
169+        $Tuple2([ScriptTransfer(i.caller, userAmount, gorcAssetId), IntegerEntry(keyLastClaimTimeByUser(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)], userAmount)
170+        }
171+
172+
173+
174+@Callable(i)
175+func answerMe () = $Tuple2(fomoInternal(i), toInt(i.transactionId))
176+
177+
178+
179+@Callable(i)
180+func blessMe () = $Tuple2(fomoInternal(i), 42)
181+
182+
183+
184+@Callable(i)
185+func statsREADONLY (userAddrOpt) = {
186+    let $t069056963 = gorcStats(userAddrOpt)
187+    let userAmount = $t069056963._1
188+    let amountLeftTotal = $t069056963._2
189+    let jackpotAmount = valueOrElse(getInteger(currentJackpotKey), 0)
190+    let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
191+    $Tuple2(nil, [("%s%d__gorcAvailToClaim__" + toString(userAmount)), ("%s%d__jackpotAmount__" + toString(jackpotAmount)), ("%s%d__lastFomoTime__" + toString(lastFomoTime)), ("%s%d__amountLeftTotal__" + toString(amountLeftTotal))])
192+    }
193+
194+
github/deemru/w8io/169f3d6 
21.78 ms ◑