w8 · tx · 5rv···xBi

tx · 5rvpZRhiBw9zDWWdWwWj9ddqmVyuLmxXsExcTr4JNxBi

3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z:  -0.01300000 Waves

2025.01.07 16:59 [3448846] smart account 3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5rvpZRhiBw9zDWWdWwWj9ddqmVyuLmxXsExcTr4JNxBi",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1736258391899,
    "version": 2,
    "chainId": 84,
    "sender": "3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z",
    "senderPublicKey": "5CoDbXxoqnvJpx9GrS6M4G5GYJXh9rcoiXJz7RYTPVkL",
    "proofs": [
        "k2Kn7GtLZmJUAfW3CET2pU6HuXfSF1yFafSbmGV6j7itrXDBqKjqyPBJgGcgumz7ZStH8Cz9Qf2ao8mcZnSSefV"
    ],
    "script": "base64:BgIyCAISCgoIAQgEAhEYFBISBAoCCAgSABIDCgEBEgASABIAEgMKAQESABIDCgEIEgMKAQgsAANNMTYAgICE/qbe4READlNUQUtFUlNfQU1PVU5UAICAzvK+j6oFAAtURUFNX0FNT1VOVACAgJqm6q/jAQANTUFSS0VUX0FNT1VOVACAgJzl/Z7UCgALWUVBUl9CTE9DS1MJAGgCAO0CAKALAAxTVEFLRV9QRVJJT0QJAGgCAAUFC1lFQVJfQkxPQ0tTAAtCTEVTU19QUklDRQCA0NvD9AIADUxPVFRFUllfUFJJQ0UAgNDbw/QCAAtGT01PX1BFUklPRAA8AAxSQU5ET01fREVMQVkAAgAUQ1VSUkVOVF9KQUNLUE9UX1BFUkMAMgARTkVYVF9KQUNLUE9UX1BFUkMAFAAMU1RBS0VSU19QRVJDABQACVRFQU1fUEVSQwAKAA5nb3JjQXNzZXRJZEtleQILZ29yY0Fzc2V0SWQAC2dvcmNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKEIAQUOZ29yY0Fzc2V0SWRLZXkCFkdPUkMgaXMgbm90IGlzc3VlZCB5ZXQADGlzc3VlVGltZUtleQIJaXNzdWVUaW1lABVzdGFrZXJzQW1vdW50VG90YWxLZXkCEnN0YWtlcnNBbW91bnRUb3RhbAAUc3Rha2Vyc0Ftb3VudExlZnRLZXkCEXN0YWtlcnNBbW91bnRMZWZ0ABRzdGFrZWRBbW91bnRUb3RhbEtleQILc3Rha2VkVG90YWwBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEEYWRkcgkArAICAg1zdGFrZWRBbW91bnRfBQRhZGRyARZsYXN0Q2xhaW1UaW1lQnlVc2VyS2V5AQRhZGRyCQCsAgICDmxhc3RDbGFpbVRpbWVfBQRhZGRyAA9sYXN0Rm9tb1RpbWVLZXkCDGxhc3RGb21vVGltZQASY3VyckZvbW9KYWNrcG90S2V5Ag9jdXJyRm9tb0phY2twb3QAEm5leHRGb21vSmFja3BvdEtleQIPbmV4dEZvbW9KYWNrcG90ABFsYXN0Rm9tb1BsYXllcktleQIObGFzdEZvbW9QbGF5ZXIAEWxhc3RGb21vV2lubmVyS2V5Ag5sYXN0Rm9tb1dpbm5lcgAXbGFzdEZvbW9XaW5uZXJBbW91bnRLZXkCFGxhc3RGb21vV2lubmVyQW1vdW50ABVsYXN0Rm9tb1dpbm5lclRpbWVLZXkCEmxhc3RGb21vV2lubmVyVGltZQARdGVhbVdhbGxldEFkZHJLZXkCDnRlYW1XYWxsZXRBZGRyAA1icm9rZXJBZGRyS2V5Agpicm9rZXJBZGRyAQlrZXlDb21taXQBB2FkZHJlc3MJAKwCAgIPZmluaXNoQmxvY2tGb3JfBQdhZGRyZXNzAQhrZXlHdWVzcwEHYWRkcmVzcwkArAICAglndWVzc0Zvcl8FB2FkZHJlc3MBB2tleVNhbHQBB2FkZHJlc3MJAKwCAgIIc2FsdEZvcl8FB2FkZHJlc3MAFWN1cnJMb3R0ZXJ5SmFja3BvdEtleQISY3VyckxvdHRlcnlKYWNrcG90ABVuZXh0TG90dGVyeUphY2twb3RLZXkCEm5leHRMb3R0ZXJ5SmFja3BvdAAUbGFzdExvdHRlcnlXaW5uZXJLZXkCEWxhc3RMb3R0ZXJ5V2lubmVyABpsYXN0TG90dGVyeVdpbm5lckFtb3VudEtleQIXbGFzdExvdHRlcnlXaW5uZXJBbW91bnQAGGxhc3RMb3R0ZXJ5V2lubmVyVGltZUtleQIVbGFzdExvdHRlcnlXaW5uZXJUaW1lAQlnb3JjU3RhdHMBC3VzZXJBZGRyT3B0BA9hbW91bnRMZWZ0VG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUc3Rha2Vyc0Ftb3VudExlZnRLZXkAAAQMbGFzdFVzZXJUaW1lCQELdmFsdWVPckVsc2UCCQCfCAEJARZsYXN0Q2xhaW1UaW1lQnlVc2VyS2V5AQULdXNlckFkZHJPcHQA////////////AQMJAGYCAAAFDGxhc3RVc2VyVGltZQkAlAoCAAAFD2Ftb3VudExlZnRUb3RhbAQJaXNzdWVUaW1lCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQUMaXNzdWVUaW1lS2V5AhZHT1JDIGlzIG5vdCBpc3N1ZWQgeWV0BApub3dMaW1pdGVkCQCXAwEJAMwIAgUGaGVpZ2h0CQDMCAIJAGQCBQlpc3N1ZVRpbWUFDFNUQUtFX1BFUklPRAUDbmlsBAp1c2VyU2hhcmVzCQELdmFsdWVPckVsc2UCCQCfCAEJARVzdGFrZWRBbW91bnRCeVVzZXJLZXkBBQt1c2VyQWRkck9wdAAABAt0b3RhbFNoYXJlcwkBC3ZhbHVlT3JFbHNlAgkAnwgBBRRzdGFrZWRBbW91bnRUb3RhbEtleQAABBJzdGFrZXJzQW1vdW50VG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVc3Rha2Vyc0Ftb3VudFRvdGFsS2V5BQ5TVEFLRVJTX0FNT1VOVAQMdXNlclRlbXBvcmFsCQBrAwUSc3Rha2Vyc0Ftb3VudFRvdGFsCQBlAgUKbm93TGltaXRlZAUMbGFzdFVzZXJUaW1lBQxTVEFLRV9QRVJJT0QECnVzZXJBbW91bnQDCQECIT0CBQt0b3RhbFNoYXJlcwAACQBrAwUMdXNlclRlbXBvcmFsBQp1c2VyU2hhcmVzBQt0b3RhbFNoYXJlcwAACQCUCgIFCnVzZXJBbW91bnQJAGUCBQ9hbW91bnRMZWZ0VG90YWwFCnVzZXJBbW91bnQBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQxmb21vSW50ZXJuYWwBAWkDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC2dvcmNBc3NldElkCQACAQITR09SQyBwYXltZW50cyBvbmx5IQQGY2hhbmdlCQBlAgUDYW10BQtCTEVTU19QUklDRQMJAGYCAAAFBmNoYW5nZQkAAgEJAKwCAgkArAICCQCsAgICFllvdSBuZWVkIHRvIHNhY3JpZmljZSAJAQpmaXhlZFBvaW50AgULQkxFU1NfUFJJQ0UACAIWIEdPUkMsIGJ1dCBJIHNlZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQNhbXQACAQNY2hhbmdlQWN0aW9ucwMJAGYCBQZjaGFuZ2UAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmNoYW5nZQULZ29yY0Fzc2V0SWQFA25pbAUDbmlsBAxsYXN0Rm9tb1RpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUPbGFzdEZvbW9UaW1lS2V5AAAEDmxhc3RGb21vUGxheWVyCQELdmFsdWVPckVsc2UCCQCiCAEFEWxhc3RGb21vUGxheWVyS2V5AgAEEGRlbHRhQ3VyckphY2twb3QJAGsDBQtCTEVTU19QUklDRQUUQ1VSUkVOVF9KQUNLUE9UX1BFUkMAZAQQZGVsdGFOZXh0SmFja3BvdAkAawMFC0JMRVNTX1BSSUNFBRFORVhUX0pBQ0tQT1RfUEVSQwBkBA9kZWx0YVRlYW1BbW91bnQJAGsDBQtCTEVTU19QUklDRQUJVEVBTV9QRVJDAGQEEmRlbHRhU3Rha2Vyc0Ftb3VudAkAZQIJAGUCCQBlAgULQkxFU1NfUFJJQ0UFEGRlbHRhQ3VyckphY2twb3QFEGRlbHRhTmV4dEphY2twb3QFD2RlbHRhVGVhbUFtb3VudAQPZm9tb0N1cnJKYWNrcG90CQELdmFsdWVPckVsc2UCCQCfCAEFEmN1cnJGb21vSmFja3BvdEtleQAABA9mb21vTmV4dEphY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSbmV4dEZvbW9KYWNrcG90S2V5AAAEC2ZvbW9BY3Rpb25zAwMDCQBmAgUGaGVpZ2h0CQBkAgUMbGFzdEZvbW9UaW1lBQtGT01PX1BFUklPRAkAZgIFD2ZvbW9DdXJySmFja3BvdAAABwkBAiE9AgUObGFzdEZvbW9QbGF5ZXICAAcJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUObGFzdEZvbW9QbGF5ZXIFD2ZvbW9DdXJySmFja3BvdAULZ29yY0Fzc2V0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgURbGFzdEZvbW9XaW5uZXJLZXkFDmxhc3RGb21vUGxheWVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRdsYXN0Rm9tb1dpbm5lckFtb3VudEtleQUPZm9tb0N1cnJKYWNrcG90CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVsYXN0Rm9tb1dpbm5lclRpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJjdXJyRm9tb0phY2twb3RLZXkJAGQCBQ9mb21vTmV4dEphY2twb3QFEGRlbHRhQ3VyckphY2twb3QJAMwIAgkBDEludGVnZXJFbnRyeQIFEm5leHRGb21vSmFja3BvdEtleQUQZGVsdGFOZXh0SmFja3BvdAUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJjdXJyRm9tb0phY2twb3RLZXkJAGQCBQ9mb21vQ3VyckphY2twb3QFEGRlbHRhQ3VyckphY2twb3QJAMwIAgkBDEludGVnZXJFbnRyeQIFEm5leHRGb21vSmFja3BvdEtleQkAZAIFD2ZvbW9OZXh0SmFja3BvdAUQZGVsdGFOZXh0SmFja3BvdAUDbmlsCQDOCAIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUPbGFzdEZvbW9UaW1lS2V5BQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgURbGFzdEZvbW9QbGF5ZXJLZXkJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFEXRlYW1XYWxsZXRBZGRyS2V5BQ9kZWx0YVRlYW1BbW91bnQFC2dvcmNBc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQkAZAIJARFAZXh0ck5hdGl2ZSgxMDU1KQEFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BRJkZWx0YVN0YWtlcnNBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFXN0YWtlcnNBbW91bnRUb3RhbEtleQkAZAIJARFAZXh0ck5hdGl2ZSgxMDU1KQEFFXN0YWtlcnNBbW91bnRUb3RhbEtleQUSZGVsdGFTdGFrZXJzQW1vdW50BQNuaWwFDWNoYW5nZUFjdGlvbnMFC2ZvbW9BY3Rpb25zAQ9nZXRSYW5kb21OdW1iZXIDCG1heFZhbHVlBHNhbHQHZW50cm9weQMJAGcCAAAFCG1heFZhbHVlCQACAQIWbWF4VmFsdWUgc2hvdWxkIGJlID4gMAQKcmFuZG9tSGFzaAkA1BYBCQDLAQIFBHNhbHQFB2VudHJvcHkJAGoCCQCxCQEFCnJhbmRvbUhhc2gFCG1heFZhbHVlAQ53YWxsZXRJbnRlcm5hbAEOdXNlckFkZHJlc3NPcHQEBGFkZHIJAKYIAQUOdXNlckFkZHJlc3NPcHQEB2JhbGFuY2UDCQEJaXNEZWZpbmVkAQUEYWRkcgkA7wcBCQEFdmFsdWUBBQRhZGRyCQEOQmFsYW5jZURldGFpbHMEAAAAAAAAAAAEC2dvcmNCYWxhbmNlAwkBCWlzRGVmaW5lZAEFBGFkZHIJAPAHAgkBBXZhbHVlAQUEYWRkcgULZ29yY0Fzc2V0SWQAAAQKc3Rha2VkR29yYwkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEVc3Rha2VkQW1vdW50QnlVc2VyS2V5AQUOdXNlckFkZHJlc3NPcHQAAAkAzAgCCQCsAgICFCVzJWRfX3dhdmVzQmFsYW5jZV9fCQCkAwEIBQdiYWxhbmNlCWF2YWlsYWJsZQkAzAgCCQCsAgICEyVzJWRfX2dvcmNCYWxhbmNlX18JAKQDAQULZ29yY0JhbGFuY2UJAMwIAgkArAICAhIlcyVkX19zdGFrZWRHb3JjX18JAKQDAQUKc3Rha2VkR29yYwUDbmlsCwFpAQh0ZXN0QXJncwgGaW50VmFsBnN0clZhbAdib29sVmFsBmJpblZhbAZhcnJJbnQGYXJyU3RyB2FyckJvb2wGYXJyQmluBQNuaWwBaQENY29uc3RydWN0b3JWMQIOdGVhbVdhbGxldEFkZHIKYnJva2VyQWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBAxpc3N1ZWRBbW91bnQFA00xNgQFaXNzdWUJAMMIBwIER09SQwK1AU1lbWUgY29pbiBieSBHb2Qgb2YgUmFuZG9tIENoYW5jZS4gVmlzaXQgaHR0cHM6Ly9nb3JjLm1lbWUsIHNhY3JpZmljZSB0byB0aGUgR29kIG9mIFJhbmRvbSBhbmQgeW91IHdpbGwgcmVjZWl2ZSBhbiBhbnN3ZXIgdG8gYW55IHF1ZXN0aW9uIG9yIGEgYmxlc3NpbmcuIEx1Y2t5IG9uZSBnZXRzIGEgR2lmdCBvZiBHb2QFDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQtCaW5hcnlFbnRyeQIFDmdvcmNBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQxpc3N1ZVRpbWVLZXkFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkFDlNUQUtFUlNfQU1PVU5UCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVzdGFrZXJzQW1vdW50VG90YWxLZXkFDlNUQUtFUlNfQU1PVU5UCQDMCAIJAQtTdHJpbmdFbnRyeQIFEXRlYW1XYWxsZXRBZGRyS2V5BQ50ZWFtV2FsbGV0QWRkcgkAzAgCCQELU3RyaW5nRW50cnkCBQ1icm9rZXJBZGRyS2V5BQpicm9rZXJBZGRyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFDnRlYW1XYWxsZXRBZGRyBQtURUFNX0FNT1VOVAUHYXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQpicm9rZXJBZGRyBQ1NQVJLRVRfQU1PVU5UBQdhc3NldElkBQNuaWwBaQEJc3Rha2VHb3JjAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULZ29yY0Fzc2V0SWQJAAIBAhNHT1JDIHBheW1lbnRzIG9ubHkhBARhZGRyCQClCAEIBQFpBmNhbGxlcgQLJHQwNzQ2Mjc1MTMJAQlnb3JjU3RhdHMBBQRhZGRyBAp1c2VyQW1vdW50CAULJHQwNzQ2Mjc1MTMCXzEED2Ftb3VudExlZnRUb3RhbAgFCyR0MDc0NjI3NTEzAl8yBA11c2VyQW1vdW50S2V5CQEVc3Rha2VkQW1vdW50QnlVc2VyS2V5AQUEYWRkcgQMY2xhaW1BY3Rpb25zAwkAZgIFCnVzZXJBbW91bnQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCnVzZXJBbW91bnQFC2dvcmNBc3NldElkBQNuaWwFA25pbAkAlAoCCQDOCAIFDGNsYWltQWN0aW9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2VkQW1vdW50VG90YWxLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFFHN0YWtlZEFtb3VudFRvdGFsS2V5AAAFA2FtdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUNdXNlckFtb3VudEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUNdXNlckFtb3VudEtleQAABQNhbXQJAMwIAgkBDEludGVnZXJFbnRyeQIJARZsYXN0Q2xhaW1UaW1lQnlVc2VyS2V5AQUEYWRkcgUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQUPYW1vdW50TGVmdFRvdGFsBQNuaWwFCnVzZXJBbW91bnQBaQELdW5zdGFrZUdvcmMBBmFtb3VudAMJAGcCAAAFBmFtb3VudAkAAgECGUFtb3VudCBzaG91bGQgYmUgcG9zaXRpdmUEBGFkZHIJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEDXVzZXJBbW91bnRLZXkJARVzdGFrZWRBbW91bnRCeVVzZXJLZXkBBQRhZGRyBAlvbGRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUNdXNlckFtb3VudEtleQAAAwkAZgIAAAkAZQIFCW9sZEFtb3VudAUGYW1vdW50CQACAQkArAICCQCsAgIJAKwCAgIOWW91IGhhdmUgb25seSAJAQpmaXhlZFBvaW50AgUJb2xkQW1vdW50AAgCHyBHT1JDIHN0YWtlZCwgdHJpZWQgdG8gdW5zdGFrZSAJAQpmaXhlZFBvaW50AgUGYW1vdW50AAgECyR0MDg0NzQ4NTI1CQEJZ29yY1N0YXRzAQUEYWRkcgQKdXNlckFtb3VudAgFCyR0MDg0NzQ4NTI1Al8xBA9hbW91bnRMZWZ0VG90YWwIBQskdDA4NDc0ODUyNQJfMgQMY2xhaW1BY3Rpb25zAwkAZgIFCnVzZXJBbW91bnQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCnVzZXJBbW91bnQFC2dvcmNBc3NldElkBQNuaWwFA25pbAkAlAoCCQDOCAIFDGNsYWltQWN0aW9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2VkQW1vdW50VG90YWxLZXkJAGUCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQUUc3Rha2VkQW1vdW50VG90YWxLZXkCDk5vIEdPUkMgc3Rha2VkBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFDXVzZXJBbW91bnRLZXkJAGUCBQlvbGRBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmxhc3RDbGFpbVRpbWVCeVVzZXJLZXkBBQRhZGRyBQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BQ9hbW91bnRMZWZ0VG90YWwFA25pbAAAAWkBCWNsYWltR29yYwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQEYWRkcgkApQgBCAUBaQZjYWxsZXIECyR0MDkwODk5MTQwCQEJZ29yY1N0YXRzAQUEYWRkcgQKdXNlckFtb3VudAgFCyR0MDkwODk5MTQwAl8xBA9hbW91bnRMZWZ0VG90YWwIBQskdDA5MDg5OTE0MAJfMgQMY2xhaW1BY3Rpb25zAwkAZgIFCnVzZXJBbW91bnQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFCnVzZXJBbW91bnQFC2dvcmNBc3NldElkBQNuaWwFA25pbAkAlAoCCQDOCAIFDGNsYWltQWN0aW9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmxhc3RDbGFpbVRpbWVCeVVzZXJLZXkBBQRhZGRyBQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BQ9hbW91bnRMZWZ0VG90YWwFA25pbAUKdXNlckFtb3VudAFpAQhhbnN3ZXJNZQAJAJQKAgkBDGZvbW9JbnRlcm5hbAEFAWkJALEJAQgFAWkNdHJhbnNhY3Rpb25JZAFpAQdibGVzc01lAAkAlAoCCQEMZm9tb0ludGVybmFsAQUBaQAqAWkBC2NvbW1pdEd1ZXNzAQVndWVzcwQEYWRkcgkApQgBCAUBaQZjYWxsZXIECWZpbmlzaEtleQkBCWtleUNvbW1pdAEFBGFkZHIECGd1ZXNzS2V5CQEIa2V5R3Vlc3MBBQRhZGRyAwkBCWlzRGVmaW5lZAEJAJ8IAQUJZmluaXNoS2V5CQACAQIlWW91IGFscmVhZHkgbWFkZSBhIGJldCwgcGxlYXNlIHVzZSBpdAMDCQBmAgAABQVndWVzcwYJAGYCBQVndWVzcwALCQACAQIlVGhlIG51bWJlciBzaG91bGQgYmUgYmV0d2VlbiAwIGFuZCAxMQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULZ29yY0Fzc2V0SWQJAAIBAhNHT1JDIHBheW1lbnRzIG9ubHkhBAZjaGFuZ2UJAGUCBQNhbXQFDUxPVFRFUllfUFJJQ0UDCQBmAgAABQZjaGFuZ2UJAAIBCQCsAgIJAKwCAgkArAICAhZZb3UgbmVlZCB0byBzYWNyaWZpY2UgCQEKZml4ZWRQb2ludAIFDUxPVFRFUllfUFJJQ0UACAIWIEdPUkMsIGJ1dCBJIHNlZSBvbmx5IAkBCmZpeGVkUG9pbnQCBQNhbXQACAQNY2hhbmdlQWN0aW9ucwMJAGYCBQZjaGFuZ2UAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmNoYW5nZQULZ29yY0Fzc2V0SWQFA25pbAUDbmlsBAtmaW5pc2hCbG9jawkAZAIFBmhlaWdodAUMUkFORE9NX0RFTEFZBBBkZWx0YUN1cnJKYWNrcG90CQBrAwUNTE9UVEVSWV9QUklDRQUUQ1VSUkVOVF9KQUNLUE9UX1BFUkMAZAQQZGVsdGFOZXh0SmFja3BvdAkAawMFDUxPVFRFUllfUFJJQ0UFEU5FWFRfSkFDS1BPVF9QRVJDAGQED2RlbHRhVGVhbUFtb3VudAkAawMFDUxPVFRFUllfUFJJQ0UFCVRFQU1fUEVSQwBkBBJkZWx0YVN0YWtlcnNBbW91bnQJAGUCCQBlAgkAZQIFDUxPVFRFUllfUFJJQ0UFEGRlbHRhQ3VyckphY2twb3QFEGRlbHRhTmV4dEphY2twb3QFD2RlbHRhVGVhbUFtb3VudAkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWZpbmlzaEtleQULZmluaXNoQmxvY2sJAMwIAgkBDEludGVnZXJFbnRyeQIFCGd1ZXNzS2V5BQVndWVzcwkAzAgCCQEMSW50ZWdlckVudHJ5AgUVY3VyckxvdHRlcnlKYWNrcG90S2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVjdXJyTG90dGVyeUphY2twb3RLZXkAAAUQZGVsdGFDdXJySmFja3BvdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVbmV4dExvdHRlcnlKYWNrcG90S2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVuZXh0TG90dGVyeUphY2twb3RLZXkAAAUQZGVsdGFOZXh0SmFja3BvdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRF0ZWFtV2FsbGV0QWRkcktleQUPZGVsdGFUZWFtQW1vdW50BQtnb3JjQXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBBRRzdGFrZXJzQW1vdW50TGVmdEtleQUSZGVsdGFTdGFrZXJzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVzdGFrZXJzQW1vdW50VG90YWxLZXkJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBBRVzdGFrZXJzQW1vdW50VG90YWxLZXkFEmRlbHRhU3Rha2Vyc0Ftb3VudAkAzAgCCQELU3RyaW5nRW50cnkCCQEHa2V5U2FsdAEFBGFkZHIJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAUDbmlsBQ1jaGFuZ2VBY3Rpb25zBQtmaW5pc2hCbG9jawFpAQxndWVzc0xvdHRlcnkABARhZGRyCQClCAEIBQFpBmNhbGxlcgQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQUEYWRkcgQIZ3Vlc3NLZXkJAQhrZXlHdWVzcwEFBGFkZHIEBWd1ZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ8IAQUIZ3Vlc3NLZXkCF1lvdSBoYXZlIG5vdCBtYWRlIGEgYmV0BAtmaW5pc2hCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFCWZpbmlzaEtleQIXWW91IGhhdmUgbm90IG1hZGUgYSBiZXQDCQBmAgULZmluaXNoQmxvY2sFBmhlaWdodAkAAgEJAKwCAgI0UmFuZG9tIG51bWJlciBpcyBub3QgcmVhZHkgeWV0LCB3YWl0IHVudGlsIGhlaWdodCA9IAkApAMBBQtmaW5pc2hCbG9jawQHZW50cm9weQkBBXZhbHVlAQgJAQV2YWx1ZQEJAO0HAQULZmluaXNoQmxvY2sDdnJmBAdzYWx0S2V5CQEHa2V5U2FsdAEFBGFkZHIEBHNhbHQJANkEAQkBC3ZhbHVlT3JFbHNlAgkAoggBBQdzYWx0S2V5AgdERUZBVUxUBARyYW5kCQEPZ2V0UmFuZG9tTnVtYmVyAwAMBQRzYWx0BQdlbnRyb3B5BAtjdXJySmFja3BvdAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVjdXJyTG90dGVyeUphY2twb3RLZXkAAAQKd2luQWN0aW9ucwMJAAACBQRyYW5kBQVndWVzcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2N1cnJKYWNrcG90BQtnb3JjQXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBRRsYXN0TG90dGVyeVdpbm5lcktleQUEYWRkcgkAzAgCCQEMSW50ZWdlckVudHJ5AgUabGFzdExvdHRlcnlXaW5uZXJBbW91bnRLZXkFC2N1cnJKYWNrcG90CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRhsYXN0TG90dGVyeVdpbm5lclRpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVjdXJyTG90dGVyeUphY2twb3RLZXkJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVbmV4dExvdHRlcnlKYWNrcG90S2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFFW5leHRMb3R0ZXJ5SmFja3BvdEtleQAABQNuaWwFA25pbAkAlAoCCQDOCAIJAMwIAgkBC0RlbGV0ZUVudHJ5AQUJZmluaXNoS2V5CQDMCAIJAQtEZWxldGVFbnRyeQEFCGd1ZXNzS2V5CQDMCAIJAQtEZWxldGVFbnRyeQEFB3NhbHRLZXkFA25pbAUKd2luQWN0aW9ucwUEcmFuZAFpAQ1zdGF0c1JFQURPTkxZAQt1c2VyQWRkck9wdAQNJHQwMTMxMDMxMzE2MQkBCWdvcmNTdGF0cwEFC3VzZXJBZGRyT3B0BAp1c2VyQW1vdW50CAUNJHQwMTMxMDMxMzE2MQJfMQQPYW1vdW50TGVmdFRvdGFsCAUNJHQwMTMxMDMxMzE2MQJfMgQPY3VyckZvbW9KYWNrcG90CQELdmFsdWVPckVsc2UCCQCfCAEFEmN1cnJGb21vSmFja3BvdEtleQAABA9uZXh0Rm9tb0phY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSbmV4dEZvbW9KYWNrcG90S2V5AAAEDGxhc3RGb21vVGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sYXN0Rm9tb1RpbWVLZXkAAAQObGFzdEZvbW9QbGF5ZXIJAQt2YWx1ZU9yRWxzZQIJAKIIAQURbGFzdEZvbW9QbGF5ZXJLZXkCAAQSY3VyckxvdHRlcnlKYWNrcG90CQELdmFsdWVPckVsc2UCCQCfCAEFFWN1cnJMb3R0ZXJ5SmFja3BvdEtleQAABBJuZXh0TG90dGVyeUphY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVbmV4dExvdHRlcnlKYWNrcG90S2V5AAAECWZpbmlzaEtleQkBCWtleUNvbW1pdAEFC3VzZXJBZGRyT3B0BAhndWVzc0tleQkBCGtleUd1ZXNzAQULdXNlckFkZHJPcHQEBWd1ZXNzCQELdmFsdWVPckVsc2UCCQCfCAEFCGd1ZXNzS2V5AP///////////wEEC2ZpbmlzaEJsb2NrCQELdmFsdWVPckVsc2UCCQCfCAEFCWZpbmlzaEtleQD///////////8BCQCUCgIFA25pbAkAzAgCCQCsAgICGCVzJWRfX2dvcmNBdmFpbFRvQ2xhaW1fXwkApAMBBQp1c2VyQW1vdW50CQDMCAIJAKwCAgIdJXMlZF9fY3VyckZvbW9KYWNrcG90QW1vdW50X18JAKQDAQUPY3VyckZvbW9KYWNrcG90CQDMCAIJAKwCAgIdJXMlZF9fbmV4dEZvbW9KYWNrcG90QW1vdW50X18JAKQDAQUPbmV4dEZvbW9KYWNrcG90CQDMCAIJAKwCAgIgJXMlZF9fY3VyckxvdHRlcnlKYWNrcG90QW1vdW50X18JAKQDAQUSY3VyckxvdHRlcnlKYWNrcG90CQDMCAIJAKwCAgIgJXMlZF9fbmV4dExvdHRlcnlKYWNrcG90QW1vdW50X18JAKQDAQUSbmV4dExvdHRlcnlKYWNrcG90CQDMCAIJAKwCAgIUJXMlZF9fbGFzdEZvbW9UaW1lX18JAKQDAQUMbGFzdEZvbW9UaW1lCQDMCAIJAKwCAgIWJXMlc19fbGFzdEZvbW9QbGF5ZXJfXwUObGFzdEZvbW9QbGF5ZXIJAMwIAgkArAICAhclcyVkX19hbW91bnRMZWZ0VG90YWxfXwkApAMBBQ9hbW91bnRMZWZ0VG90YWwJAMwIAgkArAICAhMlcyVkX19maW5pc2hCbG9ja19fCQCkAwEFC2ZpbmlzaEJsb2NrCQDMCAIJAKwCAgINJXMlZF9fZ3Vlc3NfXwkApAMBBQVndWVzcwUDbmlsAWkBEndhbGxldEluZm9SRUFET05MWQEOdXNlckFkZHJlc3NPcHQJAJQKAgUDbmlsCQEOd2FsbGV0SW50ZXJuYWwBBQ51c2VyQWRkcmVzc09wdACgWdLK",
    "height": 3448846,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: nrHckPCsDibbJErdzhdt5m9gk8oea1CUSrwfQmoqX4W
Next: none

Diff: 
Old New Differences
55 55  
56 56  let lastFomoPlayerKey = "lastFomoPlayer"
57 57  
58 + let lastFomoWinnerKey = "lastFomoWinner"
59 + 
60 + let lastFomoWinnerAmountKey = "lastFomoWinnerAmount"
61 + 
62 + let lastFomoWinnerTimeKey = "lastFomoWinnerTime"
63 + 
58 64  let teamWalletAddrKey = "teamWalletAddr"
59 65  
60 66  let brokerAddrKey = "brokerAddr"
71 77  let currLotteryJackpotKey = "currLotteryJackpot"
72 78  
73 79  let nextLotteryJackpotKey = "nextLotteryJackpot"
80 + 
81 + let lastLotteryWinnerKey = "lastLotteryWinner"
82 + 
83 + let lastLotteryWinnerAmountKey = "lastLotteryWinnerAmount"
84 + 
85 + let lastLotteryWinnerTimeKey = "lastLotteryWinnerTime"
74 86  
75 87  func gorcStats (userAddrOpt) = {
76 88      let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
130 142                              else false)
131 143                              then (lastFomoPlayer != "")
132 144                              else false)
133 -                             then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
145 +                             then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), StringEntry(lastFomoWinnerKey, lastFomoPlayer), IntegerEntry(lastFomoWinnerAmountKey, fomoCurrJackpot), IntegerEntry(lastFomoWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
134 146                              else [IntegerEntry(currFomoJackpotKey, (fomoCurrJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, (fomoNextJackpot + deltaNextJackpot))]
135 147                          (([IntegerEntry(lastFomoTimeKey, height), StringEntry(lastFomoPlayerKey, toString(i.caller)), ScriptTransfer(addressFromStringValue(getStringValue(teamWalletAddrKey)), deltaTeamAmount, gorcAssetId), IntegerEntry(stakersAmountLeftKey, (getIntegerValue(stakersAmountLeftKey) + deltaStakersAmount)), IntegerEntry(stakersAmountTotalKey, (getIntegerValue(stakersAmountTotalKey) + deltaStakersAmount))] ++ changeActions) ++ fomoActions)
136 148                          }
188 200              then throw("GORC payments only!")
189 201              else {
190 202                  let addr = toString(i.caller)
191 -                 let $t069787029 = gorcStats(addr)
192 -                 let userAmount = $t069787029._1
193 -                 let amountLeftTotal = $t069787029._2
203 +                 let $t074627513 = gorcStats(addr)
204 +                 let userAmount = $t074627513._1
205 +                 let amountLeftTotal = $t074627513._2
194 206                  let userAmountKey = stakedAmountByUserKey(addr)
195 207                  let claimActions = if ((userAmount > 0))
196 208                      then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
214 226                  if ((0 > (oldAmount - amount)))
215 227                      then throw(((("You have only " + fixedPoint(oldAmount, 8)) + " GORC staked, tried to unstake ") + fixedPoint(amount, 8)))
216 228                      else {
217 -                         let $t079908041 = gorcStats(addr)
218 -                         let userAmount = $t079908041._1
219 -                         let amountLeftTotal = $t079908041._2
229 +                         let $t084748525 = gorcStats(addr)
230 +                         let userAmount = $t084748525._1
231 +                         let amountLeftTotal = $t084748525._2
220 232                          let claimActions = if ((userAmount > 0))
221 233                              then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
222 234                              else nil
232 244      then throw("No payments required")
233 245      else {
234 246          let addr = toString(i.caller)
235 -         let $t086058656 = gorcStats(addr)
236 -         let userAmount = $t086058656._1
237 -         let amountLeftTotal = $t086058656._2
247 +         let $t090899140 = gorcStats(addr)
248 +         let userAmount = $t090899140._1
249 +         let amountLeftTotal = $t090899140._2
238 250          let claimActions = if ((userAmount > 0))
239 251              then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
240 252              else nil
310 322              let rand = getRandomNumber(12, salt, entropy)
311 323              let currJackpot = valueOrElse(getInteger(currLotteryJackpotKey), 0)
312 324              let winActions = if ((rand == guess))
313 -                 then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
325 +                 then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), StringEntry(lastLotteryWinnerKey, addr), IntegerEntry(lastLotteryWinnerAmountKey, currJackpot), IntegerEntry(lastLotteryWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
314 326                  else nil
315 327              $Tuple2(([DeleteEntry(finishKey), DeleteEntry(guessKey), DeleteEntry(saltKey)] ++ winActions), rand)
316 328              }
320 332  
321 333  @Callable(i)
322 334  func statsREADONLY (userAddrOpt) = {
323 -     let $t01245012508 = gorcStats(userAddrOpt)
324 -     let userAmount = $t01245012508._1
325 -     let amountLeftTotal = $t01245012508._2
335 +     let $t01310313161 = gorcStats(userAddrOpt)
336 +     let userAmount = $t01310313161._1
337 +     let amountLeftTotal = $t01310313161._2
326 338      let currFomoJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
327 339      let nextFomoJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
328 340      let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let M16 = 10000000000000000
5 5  
6 6  let STAKERS_AMOUNT = 3000000000000000
7 7  
8 8  let TEAM_AMOUNT = 1000000000000000
9 9  
10 10  let MARKET_AMOUNT = 6000000000000000
11 11  
12 12  let YEAR_BLOCKS = (365 * 1440)
13 13  
14 14  let STAKE_PERIOD = (5 * YEAR_BLOCKS)
15 15  
16 16  let BLESS_PRICE = 100000000000
17 17  
18 18  let LOTTERY_PRICE = 100000000000
19 19  
20 20  let FOMO_PERIOD = 60
21 21  
22 22  let RANDOM_DELAY = 2
23 23  
24 24  let CURRENT_JACKPOT_PERC = 50
25 25  
26 26  let NEXT_JACKPOT_PERC = 20
27 27  
28 28  let STAKERS_PERC = 20
29 29  
30 30  let TEAM_PERC = 10
31 31  
32 32  let gorcAssetIdKey = "gorcAssetId"
33 33  
34 34  let gorcAssetId = valueOrErrorMessage(getBinary(gorcAssetIdKey), "GORC is not issued yet")
35 35  
36 36  let issueTimeKey = "issueTime"
37 37  
38 38  let stakersAmountTotalKey = "stakersAmountTotal"
39 39  
40 40  let stakersAmountLeftKey = "stakersAmountLeft"
41 41  
42 42  let stakedAmountTotalKey = "stakedTotal"
43 43  
44 44  func stakedAmountByUserKey (addr) = ("stakedAmount_" + addr)
45 45  
46 46  
47 47  func lastClaimTimeByUserKey (addr) = ("lastClaimTime_" + addr)
48 48  
49 49  
50 50  let lastFomoTimeKey = "lastFomoTime"
51 51  
52 52  let currFomoJackpotKey = "currFomoJackpot"
53 53  
54 54  let nextFomoJackpotKey = "nextFomoJackpot"
55 55  
56 56  let lastFomoPlayerKey = "lastFomoPlayer"
57 57  
58 + let lastFomoWinnerKey = "lastFomoWinner"
59 + 
60 + let lastFomoWinnerAmountKey = "lastFomoWinnerAmount"
61 + 
62 + let lastFomoWinnerTimeKey = "lastFomoWinnerTime"
63 + 
58 64  let teamWalletAddrKey = "teamWalletAddr"
59 65  
60 66  let brokerAddrKey = "brokerAddr"
61 67  
62 68  func keyCommit (address) = ("finishBlockFor_" + address)
63 69  
64 70  
65 71  func keyGuess (address) = ("guessFor_" + address)
66 72  
67 73  
68 74  func keySalt (address) = ("saltFor_" + address)
69 75  
70 76  
71 77  let currLotteryJackpotKey = "currLotteryJackpot"
72 78  
73 79  let nextLotteryJackpotKey = "nextLotteryJackpot"
80 + 
81 + let lastLotteryWinnerKey = "lastLotteryWinner"
82 + 
83 + let lastLotteryWinnerAmountKey = "lastLotteryWinnerAmount"
84 + 
85 + let lastLotteryWinnerTimeKey = "lastLotteryWinnerTime"
74 86  
75 87  func gorcStats (userAddrOpt) = {
76 88      let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
77 89      let lastUserTime = valueOrElse(getInteger(lastClaimTimeByUserKey(userAddrOpt)), -1)
78 90      if ((0 > lastUserTime))
79 91          then $Tuple2(0, amountLeftTotal)
80 92          else {
81 93              let issueTime = valueOrErrorMessage(getInteger(issueTimeKey), "GORC is not issued yet")
82 94              let nowLimited = min([height, (issueTime + STAKE_PERIOD)])
83 95              let userShares = valueOrElse(getInteger(stakedAmountByUserKey(userAddrOpt)), 0)
84 96              let totalShares = valueOrElse(getInteger(stakedAmountTotalKey), 0)
85 97              let stakersAmountTotal = valueOrElse(getInteger(stakersAmountTotalKey), STAKERS_AMOUNT)
86 98              let userTemporal = fraction(stakersAmountTotal, (nowLimited - lastUserTime), STAKE_PERIOD)
87 99              let userAmount = if ((totalShares != 0))
88 100                  then fraction(userTemporal, userShares, totalShares)
89 101                  else 0
90 102              $Tuple2(userAmount, (amountLeftTotal - userAmount))
91 103              }
92 104      }
93 105  
94 106  
95 107  func fixedPoint (val,decimals) = {
96 108      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
97 109      let lowPart = toString((val % tenPow))
98 110      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
99 111      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
100 112      }
101 113  
102 114  
103 115  func fomoInternal (i) = if ((size(i.payments) != 1))
104 116      then throw("exactly 1 payment must be attached")
105 117      else {
106 118          let pmt = i.payments[0]
107 119          let amt = pmt.amount
108 120          if (if (!(isDefined(pmt.assetId)))
109 121              then true
110 122              else (value(pmt.assetId) != gorcAssetId))
111 123              then throw("GORC payments only!")
112 124              else {
113 125                  let change = (amt - BLESS_PRICE)
114 126                  if ((0 > change))
115 127                      then throw(((("You need to sacrifice " + fixedPoint(BLESS_PRICE, 8)) + " GORC, but I see only ") + fixedPoint(amt, 8)))
116 128                      else {
117 129                          let changeActions = if ((change > 0))
118 130                              then [ScriptTransfer(i.caller, change, gorcAssetId)]
119 131                              else nil
120 132                          let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
121 133                          let lastFomoPlayer = valueOrElse(getString(lastFomoPlayerKey), "")
122 134                          let deltaCurrJackpot = fraction(BLESS_PRICE, CURRENT_JACKPOT_PERC, 100)
123 135                          let deltaNextJackpot = fraction(BLESS_PRICE, NEXT_JACKPOT_PERC, 100)
124 136                          let deltaTeamAmount = fraction(BLESS_PRICE, TEAM_PERC, 100)
125 137                          let deltaStakersAmount = (((BLESS_PRICE - deltaCurrJackpot) - deltaNextJackpot) - deltaTeamAmount)
126 138                          let fomoCurrJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
127 139                          let fomoNextJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
128 140                          let fomoActions = if (if (if ((height > (lastFomoTime + FOMO_PERIOD)))
129 141                              then (fomoCurrJackpot > 0)
130 142                              else false)
131 143                              then (lastFomoPlayer != "")
132 144                              else false)
133 -                             then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
145 +                             then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), StringEntry(lastFomoWinnerKey, lastFomoPlayer), IntegerEntry(lastFomoWinnerAmountKey, fomoCurrJackpot), IntegerEntry(lastFomoWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
134 146                              else [IntegerEntry(currFomoJackpotKey, (fomoCurrJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, (fomoNextJackpot + deltaNextJackpot))]
135 147                          (([IntegerEntry(lastFomoTimeKey, height), StringEntry(lastFomoPlayerKey, toString(i.caller)), ScriptTransfer(addressFromStringValue(getStringValue(teamWalletAddrKey)), deltaTeamAmount, gorcAssetId), IntegerEntry(stakersAmountLeftKey, (getIntegerValue(stakersAmountLeftKey) + deltaStakersAmount)), IntegerEntry(stakersAmountTotalKey, (getIntegerValue(stakersAmountTotalKey) + deltaStakersAmount))] ++ changeActions) ++ fomoActions)
136 148                          }
137 149                  }
138 150          }
139 151  
140 152  
141 153  func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
142 154      then throw("maxValue should be > 0")
143 155      else {
144 156          let randomHash = sha256_16Kb((salt + entropy))
145 157          (toInt(randomHash) % maxValue)
146 158          }
147 159  
148 160  
149 161  func walletInternal (userAddressOpt) = {
150 162      let addr = addressFromString(userAddressOpt)
151 163      let balance = if (isDefined(addr))
152 164          then wavesBalance(value(addr))
153 165          else BalanceDetails(0, 0, 0, 0)
154 166      let gorcBalance = if (isDefined(addr))
155 167          then assetBalance(value(addr), gorcAssetId)
156 168          else 0
157 169      let stakedGorc = valueOrElse(getInteger(stakedAmountByUserKey(userAddressOpt)), 0)
158 170  [("%s%d__wavesBalance__" + toString(balance.available)), ("%s%d__gorcBalance__" + toString(gorcBalance)), ("%s%d__stakedGorc__" + toString(stakedGorc))]
159 171      }
160 172  
161 173  
162 174  @Callable(i)
163 175  func testArgs (intVal,strVal,boolVal,binVal,arrInt,arrStr,arrBool,arrBin) = nil
164 176  
165 177  
166 178  
167 179  @Callable(i)
168 180  func constructorV1 (teamWalletAddr,brokerAddr) = if ((i.caller != this))
169 181      then throw("Permission denied")
170 182      else {
171 183          let issuedAmount = M16
172 184          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)
173 185          let assetId = calculateAssetId(issue)
174 186  [issue, BinaryEntry(gorcAssetIdKey, assetId), IntegerEntry(issueTimeKey, height), IntegerEntry(stakersAmountLeftKey, STAKERS_AMOUNT), IntegerEntry(stakersAmountTotalKey, STAKERS_AMOUNT), StringEntry(teamWalletAddrKey, teamWalletAddr), StringEntry(brokerAddrKey, brokerAddr), ScriptTransfer(addressFromStringValue(teamWalletAddr), TEAM_AMOUNT, assetId), ScriptTransfer(addressFromStringValue(brokerAddr), MARKET_AMOUNT, assetId)]
175 187          }
176 188  
177 189  
178 190  
179 191  @Callable(i)
180 192  func stakeGorc () = if ((size(i.payments) != 1))
181 193      then throw("exactly 1 payment must be attached")
182 194      else {
183 195          let pmt = i.payments[0]
184 196          let amt = pmt.amount
185 197          if (if (!(isDefined(pmt.assetId)))
186 198              then true
187 199              else (value(pmt.assetId) != gorcAssetId))
188 200              then throw("GORC payments only!")
189 201              else {
190 202                  let addr = toString(i.caller)
191 -                 let $t069787029 = gorcStats(addr)
192 -                 let userAmount = $t069787029._1
193 -                 let amountLeftTotal = $t069787029._2
203 +                 let $t074627513 = gorcStats(addr)
204 +                 let userAmount = $t074627513._1
205 +                 let amountLeftTotal = $t074627513._2
194 206                  let userAmountKey = stakedAmountByUserKey(addr)
195 207                  let claimActions = if ((userAmount > 0))
196 208                      then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
197 209                      else nil
198 210                  $Tuple2((claimActions ++ [IntegerEntry(stakedAmountTotalKey, (valueOrElse(getInteger(stakedAmountTotalKey), 0) + amt)), IntegerEntry(userAmountKey, (valueOrElse(getInteger(userAmountKey), 0) + amt)), IntegerEntry(lastClaimTimeByUserKey(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)]), userAmount)
199 211                  }
200 212          }
201 213  
202 214  
203 215  
204 216  @Callable(i)
205 217  func unstakeGorc (amount) = if ((0 >= amount))
206 218      then throw("Amount should be positive")
207 219      else {
208 220          let addr = toString(i.caller)
209 221          if ((size(i.payments) != 0))
210 222              then throw("No payments required")
211 223              else {
212 224                  let userAmountKey = stakedAmountByUserKey(addr)
213 225                  let oldAmount = valueOrElse(getInteger(userAmountKey), 0)
214 226                  if ((0 > (oldAmount - amount)))
215 227                      then throw(((("You have only " + fixedPoint(oldAmount, 8)) + " GORC staked, tried to unstake ") + fixedPoint(amount, 8)))
216 228                      else {
217 -                         let $t079908041 = gorcStats(addr)
218 -                         let userAmount = $t079908041._1
219 -                         let amountLeftTotal = $t079908041._2
229 +                         let $t084748525 = gorcStats(addr)
230 +                         let userAmount = $t084748525._1
231 +                         let amountLeftTotal = $t084748525._2
220 232                          let claimActions = if ((userAmount > 0))
221 233                              then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
222 234                              else nil
223 235                          $Tuple2((claimActions ++ [IntegerEntry(stakedAmountTotalKey, (valueOrErrorMessage(getInteger(stakedAmountTotalKey), "No GORC staked") - amount)), IntegerEntry(userAmountKey, (oldAmount - amount)), IntegerEntry(lastClaimTimeByUserKey(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)]), 0)
224 236                          }
225 237                  }
226 238          }
227 239  
228 240  
229 241  
230 242  @Callable(i)
231 243  func claimGorc () = if ((size(i.payments) != 0))
232 244      then throw("No payments required")
233 245      else {
234 246          let addr = toString(i.caller)
235 -         let $t086058656 = gorcStats(addr)
236 -         let userAmount = $t086058656._1
237 -         let amountLeftTotal = $t086058656._2
247 +         let $t090899140 = gorcStats(addr)
248 +         let userAmount = $t090899140._1
249 +         let amountLeftTotal = $t090899140._2
238 250          let claimActions = if ((userAmount > 0))
239 251              then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
240 252              else nil
241 253          $Tuple2((claimActions ++ [IntegerEntry(lastClaimTimeByUserKey(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)]), userAmount)
242 254          }
243 255  
244 256  
245 257  
246 258  @Callable(i)
247 259  func answerMe () = $Tuple2(fomoInternal(i), toInt(i.transactionId))
248 260  
249 261  
250 262  
251 263  @Callable(i)
252 264  func blessMe () = $Tuple2(fomoInternal(i), 42)
253 265  
254 266  
255 267  
256 268  @Callable(i)
257 269  func commitGuess (guess) = {
258 270      let addr = toString(i.caller)
259 271      let finishKey = keyCommit(addr)
260 272      let guessKey = keyGuess(addr)
261 273      if (isDefined(getInteger(finishKey)))
262 274          then throw("You already made a bet, please use it")
263 275          else if (if ((0 > guess))
264 276              then true
265 277              else (guess > 11))
266 278              then throw("The number should be between 0 and 11")
267 279              else if ((size(i.payments) != 1))
268 280                  then throw("exactly 1 payment must be attached")
269 281                  else {
270 282                      let pmt = i.payments[0]
271 283                      let amt = pmt.amount
272 284                      if (if (!(isDefined(pmt.assetId)))
273 285                          then true
274 286                          else (value(pmt.assetId) != gorcAssetId))
275 287                          then throw("GORC payments only!")
276 288                          else {
277 289                              let change = (amt - LOTTERY_PRICE)
278 290                              if ((0 > change))
279 291                                  then throw(((("You need to sacrifice " + fixedPoint(LOTTERY_PRICE, 8)) + " GORC, but I see only ") + fixedPoint(amt, 8)))
280 292                                  else {
281 293                                      let changeActions = if ((change > 0))
282 294                                          then [ScriptTransfer(i.caller, change, gorcAssetId)]
283 295                                          else nil
284 296                                      let finishBlock = (height + RANDOM_DELAY)
285 297                                      let deltaCurrJackpot = fraction(LOTTERY_PRICE, CURRENT_JACKPOT_PERC, 100)
286 298                                      let deltaNextJackpot = fraction(LOTTERY_PRICE, NEXT_JACKPOT_PERC, 100)
287 299                                      let deltaTeamAmount = fraction(LOTTERY_PRICE, TEAM_PERC, 100)
288 300                                      let deltaStakersAmount = (((LOTTERY_PRICE - deltaCurrJackpot) - deltaNextJackpot) - deltaTeamAmount)
289 301                                      $Tuple2(([IntegerEntry(finishKey, finishBlock), IntegerEntry(guessKey, guess), IntegerEntry(currLotteryJackpotKey, (valueOrElse(getInteger(currLotteryJackpotKey), 0) + deltaCurrJackpot)), IntegerEntry(nextLotteryJackpotKey, (valueOrElse(getInteger(nextLotteryJackpotKey), 0) + deltaNextJackpot)), ScriptTransfer(addressFromStringValue(getStringValue(teamWalletAddrKey)), deltaTeamAmount, gorcAssetId), IntegerEntry(stakersAmountLeftKey, (getIntegerValue(stakersAmountLeftKey) + deltaStakersAmount)), IntegerEntry(stakersAmountTotalKey, (getIntegerValue(stakersAmountTotalKey) + deltaStakersAmount)), StringEntry(keySalt(addr), toBase58String(i.transactionId))] ++ changeActions), finishBlock)
290 302                                      }
291 303                              }
292 304                      }
293 305      }
294 306  
295 307  
296 308  
297 309  @Callable(i)
298 310  func guessLottery () = {
299 311      let addr = toString(i.caller)
300 312      let finishKey = keyCommit(addr)
301 313      let guessKey = keyGuess(addr)
302 314      let guess = valueOrErrorMessage(getInteger(guessKey), "You have not made a bet")
303 315      let finishBlock = valueOrErrorMessage(getInteger(finishKey), "You have not made a bet")
304 316      if ((finishBlock > height))
305 317          then throw(("Random number is not ready yet, wait until height = " + toString(finishBlock)))
306 318          else {
307 319              let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
308 320              let saltKey = keySalt(addr)
309 321              let salt = fromBase58String(valueOrElse(getString(saltKey), "DEFAULT"))
310 322              let rand = getRandomNumber(12, salt, entropy)
311 323              let currJackpot = valueOrElse(getInteger(currLotteryJackpotKey), 0)
312 324              let winActions = if ((rand == guess))
313 -                 then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
325 +                 then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), StringEntry(lastLotteryWinnerKey, addr), IntegerEntry(lastLotteryWinnerAmountKey, currJackpot), IntegerEntry(lastLotteryWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
314 326                  else nil
315 327              $Tuple2(([DeleteEntry(finishKey), DeleteEntry(guessKey), DeleteEntry(saltKey)] ++ winActions), rand)
316 328              }
317 329      }
318 330  
319 331  
320 332  
321 333  @Callable(i)
322 334  func statsREADONLY (userAddrOpt) = {
323 -     let $t01245012508 = gorcStats(userAddrOpt)
324 -     let userAmount = $t01245012508._1
325 -     let amountLeftTotal = $t01245012508._2
335 +     let $t01310313161 = gorcStats(userAddrOpt)
336 +     let userAmount = $t01310313161._1
337 +     let amountLeftTotal = $t01310313161._2
326 338      let currFomoJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
327 339      let nextFomoJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
328 340      let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
329 341      let lastFomoPlayer = valueOrElse(getString(lastFomoPlayerKey), "")
330 342      let currLotteryJackpot = valueOrElse(getInteger(currLotteryJackpotKey), 0)
331 343      let nextLotteryJackpot = valueOrElse(getInteger(nextLotteryJackpotKey), 0)
332 344      let finishKey = keyCommit(userAddrOpt)
333 345      let guessKey = keyGuess(userAddrOpt)
334 346      let guess = valueOrElse(getInteger(guessKey), -1)
335 347      let finishBlock = valueOrElse(getInteger(finishKey), -1)
336 348      $Tuple2(nil, [("%s%d__gorcAvailToClaim__" + toString(userAmount)), ("%s%d__currFomoJackpotAmount__" + toString(currFomoJackpot)), ("%s%d__nextFomoJackpotAmount__" + toString(nextFomoJackpot)), ("%s%d__currLotteryJackpotAmount__" + toString(currLotteryJackpot)), ("%s%d__nextLotteryJackpotAmount__" + toString(nextLotteryJackpot)), ("%s%d__lastFomoTime__" + toString(lastFomoTime)), ("%s%s__lastFomoPlayer__" + lastFomoPlayer), ("%s%d__amountLeftTotal__" + toString(amountLeftTotal)), ("%s%d__finishBlock__" + toString(finishBlock)), ("%s%d__guess__" + toString(guess))])
337 349      }
338 350  
339 351  
340 352  
341 353  @Callable(i)
342 354  func walletInfoREADONLY (userAddressOpt) = $Tuple2(nil, walletInternal(userAddressOpt))
343 355  
344 356

Old	New		Differences
55	55
56	56		let lastFomoPlayerKey = "lastFomoPlayer"
57	57
	58	+	let lastFomoWinnerKey = "lastFomoWinner"
	59	+
	60	+	let lastFomoWinnerAmountKey = "lastFomoWinnerAmount"
	61	+
	62	+	let lastFomoWinnerTimeKey = "lastFomoWinnerTime"
	63	+
58	64		let teamWalletAddrKey = "teamWalletAddr"
59	65
60	66		let brokerAddrKey = "brokerAddr"

71	77		let currLotteryJackpotKey = "currLotteryJackpot"
72	78
73	79		let nextLotteryJackpotKey = "nextLotteryJackpot"
	80	+
	81	+	let lastLotteryWinnerKey = "lastLotteryWinner"
	82	+
	83	+	let lastLotteryWinnerAmountKey = "lastLotteryWinnerAmount"
	84	+
	85	+	let lastLotteryWinnerTimeKey = "lastLotteryWinnerTime"
74	86
75	87		func gorcStats (userAddrOpt) = {
76	88		let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)

130	142		else false)
131	143		then (lastFomoPlayer != "")
132	144		else false)
133		-	then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
	145	+	then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), StringEntry(lastFomoWinnerKey, lastFomoPlayer), IntegerEntry(lastFomoWinnerAmountKey, fomoCurrJackpot), IntegerEntry(lastFomoWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
134	146		else [IntegerEntry(currFomoJackpotKey, (fomoCurrJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, (fomoNextJackpot + deltaNextJackpot))]
135	147		(([IntegerEntry(lastFomoTimeKey, height), StringEntry(lastFomoPlayerKey, toString(i.caller)), ScriptTransfer(addressFromStringValue(getStringValue(teamWalletAddrKey)), deltaTeamAmount, gorcAssetId), IntegerEntry(stakersAmountLeftKey, (getIntegerValue(stakersAmountLeftKey) + deltaStakersAmount)), IntegerEntry(stakersAmountTotalKey, (getIntegerValue(stakersAmountTotalKey) + deltaStakersAmount))] ++ changeActions) ++ fomoActions)
136	148		}

188	200		then throw("GORC payments only!")
189	201		else {
190	202		let addr = toString(i.caller)
191		-	let $~~t069787029~~ = gorcStats(addr)
192		-	let userAmount = $~~t069787029~~._1
193		-	let amountLeftTotal = $~~t069787029~~._2
	203	+	let $t074627513 = gorcStats(addr)
	204	+	let userAmount = $t074627513._1
	205	+	let amountLeftTotal = $t074627513._2
194	206		let userAmountKey = stakedAmountByUserKey(addr)
195	207		let claimActions = if ((userAmount > 0))
196	208		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]

214	226		if ((0 > (oldAmount - amount)))
215	227		then throw(((("You have only " + fixedPoint(oldAmount, 8)) + " GORC staked, tried to unstake ") + fixedPoint(amount, 8)))
216	228		else {
217		-	let $~~t079908041~~ = gorcStats(addr)
218		-	let userAmount = $~~t079908041~~._1
219		-	let amountLeftTotal = $~~t079908041~~._2
	229	+	let $t084748525 = gorcStats(addr)
	230	+	let userAmount = $t084748525._1
	231	+	let amountLeftTotal = $t084748525._2
220	232		let claimActions = if ((userAmount > 0))
221	233		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
222	234		else nil

232	244		then throw("No payments required")
233	245		else {
234	246		let addr = toString(i.caller)
235		-	let $~~t086058656~~ = gorcStats(addr)
236		-	let userAmount = $~~t086058656~~._1
237		-	let amountLeftTotal = $~~t086058656~~._2
	247	+	let $t090899140 = gorcStats(addr)
	248	+	let userAmount = $t090899140._1
	249	+	let amountLeftTotal = $t090899140._2
238	250		let claimActions = if ((userAmount > 0))
239	251		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
240	252		else nil

310	322		let rand = getRandomNumber(12, salt, entropy)
311	323		let currJackpot = valueOrElse(getInteger(currLotteryJackpotKey), 0)
312	324		let winActions = if ((rand == guess))
313		-	then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
	325	+	then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), StringEntry(lastLotteryWinnerKey, addr), IntegerEntry(lastLotteryWinnerAmountKey, currJackpot), IntegerEntry(lastLotteryWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
314	326		else nil
315	327		$Tuple2(([DeleteEntry(finishKey), DeleteEntry(guessKey), DeleteEntry(saltKey)] ++ winActions), rand)
316	328		}

320	332
321	333		@Callable(i)
322	334		func statsREADONLY (userAddrOpt) = {
323		-	let $~~t01245012508~~ = gorcStats(userAddrOpt)
324		-	let userAmount = $~~t01245012508~~._1
325		-	let amountLeftTotal = $~~t01245012508~~._2
	335	+	let $t01310313161 = gorcStats(userAddrOpt)
	336	+	let userAmount = $t01310313161._1
	337	+	let amountLeftTotal = $t01310313161._2
326	338		let currFomoJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
327	339		let nextFomoJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
328	340		let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let M16 = 10000000000000000
5	5
6	6		let STAKERS_AMOUNT = 3000000000000000
7	7
8	8		let TEAM_AMOUNT = 1000000000000000
9	9
10	10		let MARKET_AMOUNT = 6000000000000000
11	11
12	12		let YEAR_BLOCKS = (365 * 1440)
13	13
14	14		let STAKE_PERIOD = (5 * YEAR_BLOCKS)
15	15
16	16		let BLESS_PRICE = 100000000000
17	17
18	18		let LOTTERY_PRICE = 100000000000
19	19
20	20		let FOMO_PERIOD = 60
21	21
22	22		let RANDOM_DELAY = 2
23	23
24	24		let CURRENT_JACKPOT_PERC = 50
25	25
26	26		let NEXT_JACKPOT_PERC = 20
27	27
28	28		let STAKERS_PERC = 20
29	29
30	30		let TEAM_PERC = 10
31	31
32	32		let gorcAssetIdKey = "gorcAssetId"
33	33
34	34		let gorcAssetId = valueOrErrorMessage(getBinary(gorcAssetIdKey), "GORC is not issued yet")
35	35
36	36		let issueTimeKey = "issueTime"
37	37
38	38		let stakersAmountTotalKey = "stakersAmountTotal"
39	39
40	40		let stakersAmountLeftKey = "stakersAmountLeft"
41	41
42	42		let stakedAmountTotalKey = "stakedTotal"
43	43
44	44		func stakedAmountByUserKey (addr) = ("stakedAmount_" + addr)
45	45
46	46
47	47		func lastClaimTimeByUserKey (addr) = ("lastClaimTime_" + addr)
48	48
49	49
50	50		let lastFomoTimeKey = "lastFomoTime"
51	51
52	52		let currFomoJackpotKey = "currFomoJackpot"
53	53
54	54		let nextFomoJackpotKey = "nextFomoJackpot"
55	55
56	56		let lastFomoPlayerKey = "lastFomoPlayer"
57	57
	58	+	let lastFomoWinnerKey = "lastFomoWinner"
	59	+
	60	+	let lastFomoWinnerAmountKey = "lastFomoWinnerAmount"
	61	+
	62	+	let lastFomoWinnerTimeKey = "lastFomoWinnerTime"
	63	+
58	64		let teamWalletAddrKey = "teamWalletAddr"
59	65
60	66		let brokerAddrKey = "brokerAddr"
61	67
62	68		func keyCommit (address) = ("finishBlockFor_" + address)
63	69
64	70
65	71		func keyGuess (address) = ("guessFor_" + address)
66	72
67	73
68	74		func keySalt (address) = ("saltFor_" + address)
69	75
70	76
71	77		let currLotteryJackpotKey = "currLotteryJackpot"
72	78
73	79		let nextLotteryJackpotKey = "nextLotteryJackpot"
	80	+
	81	+	let lastLotteryWinnerKey = "lastLotteryWinner"
	82	+
	83	+	let lastLotteryWinnerAmountKey = "lastLotteryWinnerAmount"
	84	+
	85	+	let lastLotteryWinnerTimeKey = "lastLotteryWinnerTime"
74	86
75	87		func gorcStats (userAddrOpt) = {
76	88		let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
77	89		let lastUserTime = valueOrElse(getInteger(lastClaimTimeByUserKey(userAddrOpt)), -1)
78	90		if ((0 > lastUserTime))
79	91		then $Tuple2(0, amountLeftTotal)
80	92		else {
81	93		let issueTime = valueOrErrorMessage(getInteger(issueTimeKey), "GORC is not issued yet")
82	94		let nowLimited = min([height, (issueTime + STAKE_PERIOD)])
83	95		let userShares = valueOrElse(getInteger(stakedAmountByUserKey(userAddrOpt)), 0)
84	96		let totalShares = valueOrElse(getInteger(stakedAmountTotalKey), 0)
85	97		let stakersAmountTotal = valueOrElse(getInteger(stakersAmountTotalKey), STAKERS_AMOUNT)
86	98		let userTemporal = fraction(stakersAmountTotal, (nowLimited - lastUserTime), STAKE_PERIOD)
87	99		let userAmount = if ((totalShares != 0))
88	100		then fraction(userTemporal, userShares, totalShares)
89	101		else 0
90	102		$Tuple2(userAmount, (amountLeftTotal - userAmount))
91	103		}
92	104		}
93	105
94	106
95	107		func fixedPoint (val,decimals) = {
96	108		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
97	109		let lowPart = toString((val % tenPow))
98	110		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
99	111		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
100	112		}
101	113
102	114
103	115		func fomoInternal (i) = if ((size(i.payments) != 1))
104	116		then throw("exactly 1 payment must be attached")
105	117		else {
106	118		let pmt = i.payments[0]
107	119		let amt = pmt.amount
108	120		if (if (!(isDefined(pmt.assetId)))
109	121		then true
110	122		else (value(pmt.assetId) != gorcAssetId))
111	123		then throw("GORC payments only!")
112	124		else {
113	125		let change = (amt - BLESS_PRICE)
114	126		if ((0 > change))
115	127		then throw(((("You need to sacrifice " + fixedPoint(BLESS_PRICE, 8)) + " GORC, but I see only ") + fixedPoint(amt, 8)))
116	128		else {
117	129		let changeActions = if ((change > 0))
118	130		then [ScriptTransfer(i.caller, change, gorcAssetId)]
119	131		else nil
120	132		let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
121	133		let lastFomoPlayer = valueOrElse(getString(lastFomoPlayerKey), "")
122	134		let deltaCurrJackpot = fraction(BLESS_PRICE, CURRENT_JACKPOT_PERC, 100)
123	135		let deltaNextJackpot = fraction(BLESS_PRICE, NEXT_JACKPOT_PERC, 100)
124	136		let deltaTeamAmount = fraction(BLESS_PRICE, TEAM_PERC, 100)
125	137		let deltaStakersAmount = (((BLESS_PRICE - deltaCurrJackpot) - deltaNextJackpot) - deltaTeamAmount)
126	138		let fomoCurrJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
127	139		let fomoNextJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
128	140		let fomoActions = if (if (if ((height > (lastFomoTime + FOMO_PERIOD)))
129	141		then (fomoCurrJackpot > 0)
130	142		else false)
131	143		then (lastFomoPlayer != "")
132	144		else false)
133		-	then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
	145	+	then [ScriptTransfer(addressFromStringValue(lastFomoPlayer), fomoCurrJackpot, gorcAssetId), StringEntry(lastFomoWinnerKey, lastFomoPlayer), IntegerEntry(lastFomoWinnerAmountKey, fomoCurrJackpot), IntegerEntry(lastFomoWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currFomoJackpotKey, (fomoNextJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, deltaNextJackpot)]
134	146		else [IntegerEntry(currFomoJackpotKey, (fomoCurrJackpot + deltaCurrJackpot)), IntegerEntry(nextFomoJackpotKey, (fomoNextJackpot + deltaNextJackpot))]
135	147		(([IntegerEntry(lastFomoTimeKey, height), StringEntry(lastFomoPlayerKey, toString(i.caller)), ScriptTransfer(addressFromStringValue(getStringValue(teamWalletAddrKey)), deltaTeamAmount, gorcAssetId), IntegerEntry(stakersAmountLeftKey, (getIntegerValue(stakersAmountLeftKey) + deltaStakersAmount)), IntegerEntry(stakersAmountTotalKey, (getIntegerValue(stakersAmountTotalKey) + deltaStakersAmount))] ++ changeActions) ++ fomoActions)
136	148		}
137	149		}
138	150		}
139	151
140	152
141	153		func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
142	154		then throw("maxValue should be > 0")
143	155		else {
144	156		let randomHash = sha256_16Kb((salt + entropy))
145	157		(toInt(randomHash) % maxValue)
146	158		}
147	159
148	160
149	161		func walletInternal (userAddressOpt) = {
150	162		let addr = addressFromString(userAddressOpt)
151	163		let balance = if (isDefined(addr))
152	164		then wavesBalance(value(addr))
153	165		else BalanceDetails(0, 0, 0, 0)
154	166		let gorcBalance = if (isDefined(addr))
155	167		then assetBalance(value(addr), gorcAssetId)
156	168		else 0
157	169		let stakedGorc = valueOrElse(getInteger(stakedAmountByUserKey(userAddressOpt)), 0)
158	170		[("%s%d__wavesBalance__" + toString(balance.available)), ("%s%d__gorcBalance__" + toString(gorcBalance)), ("%s%d__stakedGorc__" + toString(stakedGorc))]
159	171		}
160	172
161	173
162	174		@Callable(i)
163	175		func testArgs (intVal,strVal,boolVal,binVal,arrInt,arrStr,arrBool,arrBin) = nil
164	176
165	177
166	178
167	179		@Callable(i)
168	180		func constructorV1 (teamWalletAddr,brokerAddr) = if ((i.caller != this))
169	181		then throw("Permission denied")
170	182		else {
171	183		let issuedAmount = M16
172	184		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)
173	185		let assetId = calculateAssetId(issue)
174	186		[issue, BinaryEntry(gorcAssetIdKey, assetId), IntegerEntry(issueTimeKey, height), IntegerEntry(stakersAmountLeftKey, STAKERS_AMOUNT), IntegerEntry(stakersAmountTotalKey, STAKERS_AMOUNT), StringEntry(teamWalletAddrKey, teamWalletAddr), StringEntry(brokerAddrKey, brokerAddr), ScriptTransfer(addressFromStringValue(teamWalletAddr), TEAM_AMOUNT, assetId), ScriptTransfer(addressFromStringValue(brokerAddr), MARKET_AMOUNT, assetId)]
175	187		}
176	188
177	189
178	190
179	191		@Callable(i)
180	192		func stakeGorc () = if ((size(i.payments) != 1))
181	193		then throw("exactly 1 payment must be attached")
182	194		else {
183	195		let pmt = i.payments[0]
184	196		let amt = pmt.amount
185	197		if (if (!(isDefined(pmt.assetId)))
186	198		then true
187	199		else (value(pmt.assetId) != gorcAssetId))
188	200		then throw("GORC payments only!")
189	201		else {
190	202		let addr = toString(i.caller)
191		-	let $~~t069787029~~ = gorcStats(addr)
192		-	let userAmount = $~~t069787029~~._1
193		-	let amountLeftTotal = $~~t069787029~~._2
	203	+	let $t074627513 = gorcStats(addr)
	204	+	let userAmount = $t074627513._1
	205	+	let amountLeftTotal = $t074627513._2
194	206		let userAmountKey = stakedAmountByUserKey(addr)
195	207		let claimActions = if ((userAmount > 0))
196	208		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
197	209		else nil
198	210		$Tuple2((claimActions ++ [IntegerEntry(stakedAmountTotalKey, (valueOrElse(getInteger(stakedAmountTotalKey), 0) + amt)), IntegerEntry(userAmountKey, (valueOrElse(getInteger(userAmountKey), 0) + amt)), IntegerEntry(lastClaimTimeByUserKey(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)]), userAmount)
199	211		}
200	212		}
201	213
202	214
203	215
204	216		@Callable(i)
205	217		func unstakeGorc (amount) = if ((0 >= amount))
206	218		then throw("Amount should be positive")
207	219		else {
208	220		let addr = toString(i.caller)
209	221		if ((size(i.payments) != 0))
210	222		then throw("No payments required")
211	223		else {
212	224		let userAmountKey = stakedAmountByUserKey(addr)
213	225		let oldAmount = valueOrElse(getInteger(userAmountKey), 0)
214	226		if ((0 > (oldAmount - amount)))
215	227		then throw(((("You have only " + fixedPoint(oldAmount, 8)) + " GORC staked, tried to unstake ") + fixedPoint(amount, 8)))
216	228		else {
217		-	let $~~t079908041~~ = gorcStats(addr)
218		-	let userAmount = $~~t079908041~~._1
219		-	let amountLeftTotal = $~~t079908041~~._2
	229	+	let $t084748525 = gorcStats(addr)
	230	+	let userAmount = $t084748525._1
	231	+	let amountLeftTotal = $t084748525._2
220	232		let claimActions = if ((userAmount > 0))
221	233		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
222	234		else nil
223	235		$Tuple2((claimActions ++ [IntegerEntry(stakedAmountTotalKey, (valueOrErrorMessage(getInteger(stakedAmountTotalKey), "No GORC staked") - amount)), IntegerEntry(userAmountKey, (oldAmount - amount)), IntegerEntry(lastClaimTimeByUserKey(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)]), 0)
224	236		}
225	237		}
226	238		}
227	239
228	240
229	241
230	242		@Callable(i)
231	243		func claimGorc () = if ((size(i.payments) != 0))
232	244		then throw("No payments required")
233	245		else {
234	246		let addr = toString(i.caller)
235		-	let $~~t086058656~~ = gorcStats(addr)
236		-	let userAmount = $~~t086058656~~._1
237		-	let amountLeftTotal = $~~t086058656~~._2
	247	+	let $t090899140 = gorcStats(addr)
	248	+	let userAmount = $t090899140._1
	249	+	let amountLeftTotal = $t090899140._2
238	250		let claimActions = if ((userAmount > 0))
239	251		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
240	252		else nil
241	253		$Tuple2((claimActions ++ [IntegerEntry(lastClaimTimeByUserKey(addr), height), IntegerEntry(stakersAmountLeftKey, amountLeftTotal)]), userAmount)
242	254		}
243	255
244	256
245	257
246	258		@Callable(i)
247	259		func answerMe () = $Tuple2(fomoInternal(i), toInt(i.transactionId))
248	260
249	261
250	262
251	263		@Callable(i)
252	264		func blessMe () = $Tuple2(fomoInternal(i), 42)
253	265
254	266
255	267
256	268		@Callable(i)
257	269		func commitGuess (guess) = {
258	270		let addr = toString(i.caller)
259	271		let finishKey = keyCommit(addr)
260	272		let guessKey = keyGuess(addr)
261	273		if (isDefined(getInteger(finishKey)))
262	274		then throw("You already made a bet, please use it")
263	275		else if (if ((0 > guess))
264	276		then true
265	277		else (guess > 11))
266	278		then throw("The number should be between 0 and 11")
267	279		else if ((size(i.payments) != 1))
268	280		then throw("exactly 1 payment must be attached")
269	281		else {
270	282		let pmt = i.payments[0]
271	283		let amt = pmt.amount
272	284		if (if (!(isDefined(pmt.assetId)))
273	285		then true
274	286		else (value(pmt.assetId) != gorcAssetId))
275	287		then throw("GORC payments only!")
276	288		else {
277	289		let change = (amt - LOTTERY_PRICE)
278	290		if ((0 > change))
279	291		then throw(((("You need to sacrifice " + fixedPoint(LOTTERY_PRICE, 8)) + " GORC, but I see only ") + fixedPoint(amt, 8)))
280	292		else {
281	293		let changeActions = if ((change > 0))
282	294		then [ScriptTransfer(i.caller, change, gorcAssetId)]
283	295		else nil
284	296		let finishBlock = (height + RANDOM_DELAY)
285	297		let deltaCurrJackpot = fraction(LOTTERY_PRICE, CURRENT_JACKPOT_PERC, 100)
286	298		let deltaNextJackpot = fraction(LOTTERY_PRICE, NEXT_JACKPOT_PERC, 100)
287	299		let deltaTeamAmount = fraction(LOTTERY_PRICE, TEAM_PERC, 100)
288	300		let deltaStakersAmount = (((LOTTERY_PRICE - deltaCurrJackpot) - deltaNextJackpot) - deltaTeamAmount)
289	301		$Tuple2(([IntegerEntry(finishKey, finishBlock), IntegerEntry(guessKey, guess), IntegerEntry(currLotteryJackpotKey, (valueOrElse(getInteger(currLotteryJackpotKey), 0) + deltaCurrJackpot)), IntegerEntry(nextLotteryJackpotKey, (valueOrElse(getInteger(nextLotteryJackpotKey), 0) + deltaNextJackpot)), ScriptTransfer(addressFromStringValue(getStringValue(teamWalletAddrKey)), deltaTeamAmount, gorcAssetId), IntegerEntry(stakersAmountLeftKey, (getIntegerValue(stakersAmountLeftKey) + deltaStakersAmount)), IntegerEntry(stakersAmountTotalKey, (getIntegerValue(stakersAmountTotalKey) + deltaStakersAmount)), StringEntry(keySalt(addr), toBase58String(i.transactionId))] ++ changeActions), finishBlock)
290	302		}
291	303		}
292	304		}
293	305		}
294	306
295	307
296	308
297	309		@Callable(i)
298	310		func guessLottery () = {
299	311		let addr = toString(i.caller)
300	312		let finishKey = keyCommit(addr)
301	313		let guessKey = keyGuess(addr)
302	314		let guess = valueOrErrorMessage(getInteger(guessKey), "You have not made a bet")
303	315		let finishBlock = valueOrErrorMessage(getInteger(finishKey), "You have not made a bet")
304	316		if ((finishBlock > height))
305	317		then throw(("Random number is not ready yet, wait until height = " + toString(finishBlock)))
306	318		else {
307	319		let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
308	320		let saltKey = keySalt(addr)
309	321		let salt = fromBase58String(valueOrElse(getString(saltKey), "DEFAULT"))
310	322		let rand = getRandomNumber(12, salt, entropy)
311	323		let currJackpot = valueOrElse(getInteger(currLotteryJackpotKey), 0)
312	324		let winActions = if ((rand == guess))
313		-	then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
	325	+	then [ScriptTransfer(i.caller, currJackpot, gorcAssetId), StringEntry(lastLotteryWinnerKey, addr), IntegerEntry(lastLotteryWinnerAmountKey, currJackpot), IntegerEntry(lastLotteryWinnerTimeKey, lastBlock.timestamp), IntegerEntry(currLotteryJackpotKey, valueOrElse(getInteger(nextLotteryJackpotKey), 0)), IntegerEntry(nextLotteryJackpotKey, 0)]
314	326		else nil
315	327		$Tuple2(([DeleteEntry(finishKey), DeleteEntry(guessKey), DeleteEntry(saltKey)] ++ winActions), rand)
316	328		}
317	329		}
318	330
319	331
320	332
321	333		@Callable(i)
322	334		func statsREADONLY (userAddrOpt) = {
323		-	let $~~t01245012508~~ = gorcStats(userAddrOpt)
324		-	let userAmount = $~~t01245012508~~._1
325		-	let amountLeftTotal = $~~t01245012508~~._2
	335	+	let $t01310313161 = gorcStats(userAddrOpt)
	336	+	let userAmount = $t01310313161._1
	337	+	let amountLeftTotal = $t01310313161._2
326	338		let currFomoJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
327	339		let nextFomoJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
328	340		let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)
329	341		let lastFomoPlayer = valueOrElse(getString(lastFomoPlayerKey), "")
330	342		let currLotteryJackpot = valueOrElse(getInteger(currLotteryJackpotKey), 0)
331	343		let nextLotteryJackpot = valueOrElse(getInteger(nextLotteryJackpotKey), 0)
332	344		let finishKey = keyCommit(userAddrOpt)
333	345		let guessKey = keyGuess(userAddrOpt)
334	346		let guess = valueOrElse(getInteger(guessKey), -1)
335	347		let finishBlock = valueOrElse(getInteger(finishKey), -1)
336	348		$Tuple2(nil, [("%s%d__gorcAvailToClaim__" + toString(userAmount)), ("%s%d__currFomoJackpotAmount__" + toString(currFomoJackpot)), ("%s%d__nextFomoJackpotAmount__" + toString(nextFomoJackpot)), ("%s%d__currLotteryJackpotAmount__" + toString(currLotteryJackpot)), ("%s%d__nextLotteryJackpotAmount__" + toString(nextLotteryJackpot)), ("%s%d__lastFomoTime__" + toString(lastFomoTime)), ("%s%s__lastFomoPlayer__" + lastFomoPlayer), ("%s%d__amountLeftTotal__" + toString(amountLeftTotal)), ("%s%d__finishBlock__" + toString(finishBlock)), ("%s%d__guess__" + toString(guess))])
337	349		}
338	350
339	351
340	352
341	353		@Callable(i)
342	354		func walletInfoREADONLY (userAddressOpt) = $Tuple2(nil, walletInternal(userAddressOpt))
343	355
344	356

github/deemru/w8io/169f3d6 
66.30 ms ◑