w8 · tx · nrH···X4W

tx · nrHckPCsDibbJErdzhdt5m9gk8oea1CUSrwfQmoqX4W

3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z:  -0.01200000 Waves

2025.01.03 21:51 [3443395] smart account 3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "nrHckPCsDibbJErdzhdt5m9gk8oea1CUSrwfQmoqX4W",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1735930342854,
    "version": 2,
    "chainId": 84,
    "sender": "3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z",
    "senderPublicKey": "5CoDbXxoqnvJpx9GrS6M4G5GYJXh9rcoiXJz7RYTPVkL",
    "proofs": [
        "4u4MC1Ynb1Gn9AUxPhjJobYinEJQ6XAXoPx99vaBXvhkiXsth2StEW1HSSdf3xPonNqwf4CjFM3equmu6ANngS48"
    ],
    "script": "base64:BgIyCAISCgoIAQgEAhEYFBISBAoCCAgSABIDCgEBEgASABIAEgMKAQESABIDCgEIEgMKAQgmAANNMTYAgICE/qbe4READlNUQUtFUlNfQU1PVU5UAICAzvK+j6oFAAtURUFNX0FNT1VOVACAgJqm6q/jAQANTUFSS0VUX0FNT1VOVACAgJzl/Z7UCgALWUVBUl9CTE9DS1MJAGgCAO0CAKALAAxTVEFLRV9QRVJJT0QJAGgCAAUFC1lFQVJfQkxPQ0tTAAtCTEVTU19QUklDRQCA0NvD9AIADUxPVFRFUllfUFJJQ0UAgNDbw/QCAAtGT01PX1BFUklPRAA8AAxSQU5ET01fREVMQVkAAgAUQ1VSUkVOVF9KQUNLUE9UX1BFUkMAMgARTkVYVF9KQUNLUE9UX1BFUkMAFAAMU1RBS0VSU19QRVJDABQACVRFQU1fUEVSQwAKAA5nb3JjQXNzZXRJZEtleQILZ29yY0Fzc2V0SWQAC2dvcmNBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKEIAQUOZ29yY0Fzc2V0SWRLZXkCFkdPUkMgaXMgbm90IGlzc3VlZCB5ZXQADGlzc3VlVGltZUtleQIJaXNzdWVUaW1lABVzdGFrZXJzQW1vdW50VG90YWxLZXkCEnN0YWtlcnNBbW91bnRUb3RhbAAUc3Rha2Vyc0Ftb3VudExlZnRLZXkCEXN0YWtlcnNBbW91bnRMZWZ0ABRzdGFrZWRBbW91bnRUb3RhbEtleQILc3Rha2VkVG90YWwBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEEYWRkcgkArAICAg1zdGFrZWRBbW91bnRfBQRhZGRyARZsYXN0Q2xhaW1UaW1lQnlVc2VyS2V5AQRhZGRyCQCsAgICDmxhc3RDbGFpbVRpbWVfBQRhZGRyAA9sYXN0Rm9tb1RpbWVLZXkCDGxhc3RGb21vVGltZQASY3VyckZvbW9KYWNrcG90S2V5Ag9jdXJyRm9tb0phY2twb3QAEm5leHRGb21vSmFja3BvdEtleQIPbmV4dEZvbW9KYWNrcG90ABFsYXN0Rm9tb1BsYXllcktleQIObGFzdEZvbW9QbGF5ZXIAEXRlYW1XYWxsZXRBZGRyS2V5Ag50ZWFtV2FsbGV0QWRkcgANYnJva2VyQWRkcktleQIKYnJva2VyQWRkcgEJa2V5Q29tbWl0AQdhZGRyZXNzCQCsAgICD2ZpbmlzaEJsb2NrRm9yXwUHYWRkcmVzcwEIa2V5R3Vlc3MBB2FkZHJlc3MJAKwCAgIJZ3Vlc3NGb3JfBQdhZGRyZXNzAQdrZXlTYWx0AQdhZGRyZXNzCQCsAgICCHNhbHRGb3JfBQdhZGRyZXNzABVjdXJyTG90dGVyeUphY2twb3RLZXkCEmN1cnJMb3R0ZXJ5SmFja3BvdAAVbmV4dExvdHRlcnlKYWNrcG90S2V5AhJuZXh0TG90dGVyeUphY2twb3QBCWdvcmNTdGF0cwELdXNlckFkZHJPcHQED2Ftb3VudExlZnRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRRzdGFrZXJzQW1vdW50TGVmdEtleQAABAxsYXN0VXNlclRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFmxhc3RDbGFpbVRpbWVCeVVzZXJLZXkBBQt1c2VyQWRkck9wdAD///////////8BAwkAZgIAAAUMbGFzdFVzZXJUaW1lCQCUCgIAAAUPYW1vdW50TGVmdFRvdGFsBAlpc3N1ZVRpbWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBBQxpc3N1ZVRpbWVLZXkCFkdPUkMgaXMgbm90IGlzc3VlZCB5ZXQECm5vd0xpbWl0ZWQJAJcDAQkAzAgCBQZoZWlnaHQJAMwIAgkAZAIFCWlzc3VlVGltZQUMU1RBS0VfUEVSSU9EBQNuaWwECnVzZXJTaGFyZXMJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEFC3VzZXJBZGRyT3B0AAAEC3RvdGFsU2hhcmVzCQELdmFsdWVPckVsc2UCCQCfCAEFFHN0YWtlZEFtb3VudFRvdGFsS2V5AAAEEnN0YWtlcnNBbW91bnRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVzdGFrZXJzQW1vdW50VG90YWxLZXkFDlNUQUtFUlNfQU1PVU5UBAx1c2VyVGVtcG9yYWwJAGsDBRJzdGFrZXJzQW1vdW50VG90YWwJAGUCBQpub3dMaW1pdGVkBQxsYXN0VXNlclRpbWUFDFNUQUtFX1BFUklPRAQKdXNlckFtb3VudAMJAQIhPQIFC3RvdGFsU2hhcmVzAAAJAGsDBQx1c2VyVGVtcG9yYWwFCnVzZXJTaGFyZXMFC3RvdGFsU2hhcmVzAAAJAJQKAgUKdXNlckFtb3VudAkAZQIFD2Ftb3VudExlZnRUb3RhbAUKdXNlckFtb3VudAEKZml4ZWRQb2ludAIDdmFsCGRlY2ltYWxzBAZ0ZW5Qb3cJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQRET1dOBAdsb3dQYXJ0CQCkAwEJAGoCBQN2YWwFBnRlblBvdwQGemVyb2VzCQCwAgIJAKQDAQUGdGVuUG93CQBkAgABCQCxAgEFB2xvd1BhcnQJAKwCAgkArAICCQCsAgIJAKQDAQkAaQIFA3ZhbAUGdGVuUG93AgEuBQZ6ZXJvZXMFB2xvd1BhcnQBDGZvbW9JbnRlcm5hbAEBaQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULZ29yY0Fzc2V0SWQJAAIBAhNHT1JDIHBheW1lbnRzIG9ubHkhBAZjaGFuZ2UJAGUCBQNhbXQFC0JMRVNTX1BSSUNFAwkAZgIAAAUGY2hhbmdlCQACAQkArAICCQCsAgIJAKwCAgIWWW91IG5lZWQgdG8gc2FjcmlmaWNlIAkBCmZpeGVkUG9pbnQCBQtCTEVTU19QUklDRQAIAhYgR09SQywgYnV0IEkgc2VlIG9ubHkgCQEKZml4ZWRQb2ludAIFA2FtdAAIBA1jaGFuZ2VBY3Rpb25zAwkAZgIFBmNoYW5nZQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUGY2hhbmdlBQtnb3JjQXNzZXRJZAUDbmlsBQNuaWwEDGxhc3RGb21vVGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sYXN0Rm9tb1RpbWVLZXkAAAQObGFzdEZvbW9QbGF5ZXIJAQt2YWx1ZU9yRWxzZQIJAKIIAQURbGFzdEZvbW9QbGF5ZXJLZXkCAAQQZGVsdGFDdXJySmFja3BvdAkAawMFC0JMRVNTX1BSSUNFBRRDVVJSRU5UX0pBQ0tQT1RfUEVSQwBkBBBkZWx0YU5leHRKYWNrcG90CQBrAwULQkxFU1NfUFJJQ0UFEU5FWFRfSkFDS1BPVF9QRVJDAGQED2RlbHRhVGVhbUFtb3VudAkAawMFC0JMRVNTX1BSSUNFBQlURUFNX1BFUkMAZAQSZGVsdGFTdGFrZXJzQW1vdW50CQBlAgkAZQIJAGUCBQtCTEVTU19QUklDRQUQZGVsdGFDdXJySmFja3BvdAUQZGVsdGFOZXh0SmFja3BvdAUPZGVsdGFUZWFtQW1vdW50BA9mb21vQ3VyckphY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSY3VyckZvbW9KYWNrcG90S2V5AAAED2ZvbW9OZXh0SmFja3BvdAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRJuZXh0Rm9tb0phY2twb3RLZXkAAAQLZm9tb0FjdGlvbnMDAwMJAGYCBQZoZWlnaHQJAGQCBQxsYXN0Rm9tb1RpbWUFC0ZPTU9fUEVSSU9ECQBmAgUPZm9tb0N1cnJKYWNrcG90AAAHCQECIT0CBQ5sYXN0Rm9tb1BsYXllcgIABwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQ5sYXN0Rm9tb1BsYXllcgUPZm9tb0N1cnJKYWNrcG90BQtnb3JjQXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSY3VyckZvbW9KYWNrcG90S2V5CQBkAgUPZm9tb05leHRKYWNrcG90BRBkZWx0YUN1cnJKYWNrcG90CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJuZXh0Rm9tb0phY2twb3RLZXkFEGRlbHRhTmV4dEphY2twb3QFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSY3VyckZvbW9KYWNrcG90S2V5CQBkAgUPZm9tb0N1cnJKYWNrcG90BRBkZWx0YUN1cnJKYWNrcG90CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJuZXh0Rm9tb0phY2twb3RLZXkJAGQCBQ9mb21vTmV4dEphY2twb3QFEGRlbHRhTmV4dEphY2twb3QFA25pbAkAzggCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFD2xhc3RGb21vVGltZUtleQUGaGVpZ2h0CQDMCAIJAQtTdHJpbmdFbnRyeQIFEWxhc3RGb21vUGxheWVyS2V5CQClCAEIBQFpBmNhbGxlcgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRF0ZWFtV2FsbGV0QWRkcktleQUPZGVsdGFUZWFtQW1vdW50BQtnb3JjQXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBBRRzdGFrZXJzQW1vdW50TGVmdEtleQUSZGVsdGFTdGFrZXJzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVzdGFrZXJzQW1vdW50VG90YWxLZXkJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBBRVzdGFrZXJzQW1vdW50VG90YWxLZXkFEmRlbHRhU3Rha2Vyc0Ftb3VudAUDbmlsBQ1jaGFuZ2VBY3Rpb25zBQtmb21vQWN0aW9ucwEPZ2V0UmFuZG9tTnVtYmVyAwhtYXhWYWx1ZQRzYWx0B2VudHJvcHkDCQBnAgAABQhtYXhWYWx1ZQkAAgECFm1heFZhbHVlIHNob3VsZCBiZSA+IDAECnJhbmRvbUhhc2gJANQWAQkAywECBQRzYWx0BQdlbnRyb3B5CQBqAgkAsQkBBQpyYW5kb21IYXNoBQhtYXhWYWx1ZQEOd2FsbGV0SW50ZXJuYWwBDnVzZXJBZGRyZXNzT3B0BARhZGRyCQCmCAEFDnVzZXJBZGRyZXNzT3B0BAdiYWxhbmNlAwkBCWlzRGVmaW5lZAEFBGFkZHIJAO8HAQkBBXZhbHVlAQUEYWRkcgkBDkJhbGFuY2VEZXRhaWxzBAAAAAAAAAAABAtnb3JjQmFsYW5jZQMJAQlpc0RlZmluZWQBBQRhZGRyCQDwBwIJAQV2YWx1ZQEFBGFkZHIFC2dvcmNBc3NldElkAAAECnN0YWtlZEdvcmMJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEFDnVzZXJBZGRyZXNzT3B0AAAJAMwIAgkArAICAhQlcyVkX193YXZlc0JhbGFuY2VfXwkApAMBCAUHYmFsYW5jZQlhdmFpbGFibGUJAMwIAgkArAICAhMlcyVkX19nb3JjQmFsYW5jZV9fCQCkAwEFC2dvcmNCYWxhbmNlCQDMCAIJAKwCAgISJXMlZF9fc3Rha2VkR29yY19fCQCkAwEFCnN0YWtlZEdvcmMFA25pbAsBaQEIdGVzdEFyZ3MIBmludFZhbAZzdHJWYWwHYm9vbFZhbAZiaW5WYWwGYXJySW50BmFyclN0cgdhcnJCb29sBmFyckJpbgUDbmlsAWkBDWNvbnN0cnVjdG9yVjECDnRlYW1XYWxsZXRBZGRyCmJyb2tlckFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQMaXNzdWVkQW1vdW50BQNNMTYEBWlzc3VlCQDDCAcCBEdPUkMCtQFNZW1lIGNvaW4gYnkgR29kIG9mIFJhbmRvbSBDaGFuY2UuIFZpc2l0IGh0dHBzOi8vZ29yYy5tZW1lLCBzYWNyaWZpY2UgdG8gdGhlIEdvZCBvZiBSYW5kb20gYW5kIHlvdSB3aWxsIHJlY2VpdmUgYW4gYW5zd2VyIHRvIGFueSBxdWVzdGlvbiBvciBhIGJsZXNzaW5nLiBMdWNreSBvbmUgZ2V0cyBhIEdpZnQgb2YgR29kBQxpc3N1ZWRBbW91bnQACAcFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQVpc3N1ZQkAzAgCBQVpc3N1ZQkAzAgCCQELQmluYXJ5RW50cnkCBQ5nb3JjQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUMaXNzdWVUaW1lS2V5BQZoZWlnaHQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5BQ5TVEFLRVJTX0FNT1VOVAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVc3Rha2Vyc0Ftb3VudFRvdGFsS2V5BQ5TVEFLRVJTX0FNT1VOVAkAzAgCCQELU3RyaW5nRW50cnkCBRF0ZWFtV2FsbGV0QWRkcktleQUOdGVhbVdhbGxldEFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgUNYnJva2VyQWRkcktleQUKYnJva2VyQWRkcgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQ50ZWFtV2FsbGV0QWRkcgULVEVBTV9BTU9VTlQFB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUKYnJva2VyQWRkcgUNTUFSS0VUX0FNT1VOVAUHYXNzZXRJZAUDbmlsAWkBCXN0YWtlR29yYwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC2dvcmNBc3NldElkCQACAQITR09SQyBwYXltZW50cyBvbmx5IQQEYWRkcgkApQgBCAUBaQZjYWxsZXIECyR0MDY5Nzg3MDI5CQEJZ29yY1N0YXRzAQUEYWRkcgQKdXNlckFtb3VudAgFCyR0MDY5Nzg3MDI5Al8xBA9hbW91bnRMZWZ0VG90YWwIBQskdDA2OTc4NzAyOQJfMgQNdXNlckFtb3VudEtleQkBFXN0YWtlZEFtb3VudEJ5VXNlcktleQEFBGFkZHIEDGNsYWltQWN0aW9ucwMJAGYCBQp1c2VyQW1vdW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQp1c2VyQW1vdW50BQtnb3JjQXNzZXRJZAUDbmlsBQNuaWwJAJQKAgkAzggCBQxjbGFpbUFjdGlvbnMJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlZEFtb3VudFRvdGFsS2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBRRzdGFrZWRBbW91bnRUb3RhbEtleQAABQNhbXQJAMwIAgkBDEludGVnZXJFbnRyeQIFDXVzZXJBbW91bnRLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFDXVzZXJBbW91bnRLZXkAAAUDYW10CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWbGFzdENsYWltVGltZUJ5VXNlcktleQEFBGFkZHIFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkFD2Ftb3VudExlZnRUb3RhbAUDbmlsBQp1c2VyQW1vdW50AWkBC3Vuc3Rha2VHb3JjAQZhbW91bnQDCQBnAgAABQZhbW91bnQJAAIBAhlBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlBARhZGRyCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBA11c2VyQW1vdW50S2V5CQEVc3Rha2VkQW1vdW50QnlVc2VyS2V5AQUEYWRkcgQJb2xkQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFDXVzZXJBbW91bnRLZXkAAAMJAGYCAAAJAGUCBQlvbGRBbW91bnQFBmFtb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFCW9sZEFtb3VudAAIAh8gR09SQyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAskdDA3OTkwODA0MQkBCWdvcmNTdGF0cwEFBGFkZHIECnVzZXJBbW91bnQIBQskdDA3OTkwODA0MQJfMQQPYW1vdW50TGVmdFRvdGFsCAULJHQwNzk5MDgwNDECXzIEDGNsYWltQWN0aW9ucwMJAGYCBQp1c2VyQW1vdW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQp1c2VyQW1vdW50BQtnb3JjQXNzZXRJZAUDbmlsBQNuaWwJAJQKAgkAzggCBQxjbGFpbUFjdGlvbnMJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlZEFtb3VudFRvdGFsS2V5CQBlAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFFHN0YWtlZEFtb3VudFRvdGFsS2V5Ag5ObyBHT1JDIHN0YWtlZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ11c2VyQW1vdW50S2V5CQBlAgUJb2xkQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARZsYXN0Q2xhaW1UaW1lQnlVc2VyS2V5AQUEYWRkcgUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQUPYW1vdW50TGVmdFRvdGFsBQNuaWwAAAFpAQljbGFpbUdvcmMAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEBGFkZHIJAKUIAQgFAWkGY2FsbGVyBAskdDA4NjA1ODY1NgkBCWdvcmNTdGF0cwEFBGFkZHIECnVzZXJBbW91bnQIBQskdDA4NjA1ODY1NgJfMQQPYW1vdW50TGVmdFRvdGFsCAULJHQwODYwNTg2NTYCXzIEDGNsYWltQWN0aW9ucwMJAGYCBQp1c2VyQW1vdW50AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQp1c2VyQW1vdW50BQtnb3JjQXNzZXRJZAUDbmlsBQNuaWwJAJQKAgkAzggCBQxjbGFpbUFjdGlvbnMJAMwIAgkBDEludGVnZXJFbnRyeQIJARZsYXN0Q2xhaW1UaW1lQnlVc2VyS2V5AQUEYWRkcgUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQUPYW1vdW50TGVmdFRvdGFsBQNuaWwFCnVzZXJBbW91bnQBaQEIYW5zd2VyTWUACQCUCgIJAQxmb21vSW50ZXJuYWwBBQFpCQCxCQEIBQFpDXRyYW5zYWN0aW9uSWQBaQEHYmxlc3NNZQAJAJQKAgkBDGZvbW9JbnRlcm5hbAEFAWkAKgFpAQtjb21taXRHdWVzcwEFZ3Vlc3MEBGFkZHIJAKUIAQgFAWkGY2FsbGVyBAlmaW5pc2hLZXkJAQlrZXlDb21taXQBBQRhZGRyBAhndWVzc0tleQkBCGtleUd1ZXNzAQUEYWRkcgMJAQlpc0RlZmluZWQBCQCfCAEFCWZpbmlzaEtleQkAAgECJVlvdSBhbHJlYWR5IG1hZGUgYSBiZXQsIHBsZWFzZSB1c2UgaXQDAwkAZgIAAAUFZ3Vlc3MGCQBmAgUFZ3Vlc3MACwkAAgECJVRoZSBudW1iZXIgc2hvdWxkIGJlIGJldHdlZW4gMCBhbmQgMTEDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC2dvcmNBc3NldElkCQACAQITR09SQyBwYXltZW50cyBvbmx5IQQGY2hhbmdlCQBlAgUDYW10BQ1MT1RURVJZX1BSSUNFAwkAZgIAAAUGY2hhbmdlCQACAQkArAICCQCsAgIJAKwCAgIWWW91IG5lZWQgdG8gc2FjcmlmaWNlIAkBCmZpeGVkUG9pbnQCBQ1MT1RURVJZX1BSSUNFAAgCFiBHT1JDLCBidXQgSSBzZWUgb25seSAJAQpmaXhlZFBvaW50AgUDYW10AAgEDWNoYW5nZUFjdGlvbnMDCQBmAgUGY2hhbmdlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZjaGFuZ2UFC2dvcmNBc3NldElkBQNuaWwFA25pbAQLZmluaXNoQmxvY2sJAGQCBQZoZWlnaHQFDFJBTkRPTV9ERUxBWQQQZGVsdGFDdXJySmFja3BvdAkAawMFDUxPVFRFUllfUFJJQ0UFFENVUlJFTlRfSkFDS1BPVF9QRVJDAGQEEGRlbHRhTmV4dEphY2twb3QJAGsDBQ1MT1RURVJZX1BSSUNFBRFORVhUX0pBQ0tQT1RfUEVSQwBkBA9kZWx0YVRlYW1BbW91bnQJAGsDBQ1MT1RURVJZX1BSSUNFBQlURUFNX1BFUkMAZAQSZGVsdGFTdGFrZXJzQW1vdW50CQBlAgkAZQIJAGUCBQ1MT1RURVJZX1BSSUNFBRBkZWx0YUN1cnJKYWNrcG90BRBkZWx0YU5leHRKYWNrcG90BQ9kZWx0YVRlYW1BbW91bnQJAJQKAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlmaW5pc2hLZXkFC2ZpbmlzaEJsb2NrCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQhndWVzc0tleQUFZ3Vlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIFFWN1cnJMb3R0ZXJ5SmFja3BvdEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVY3VyckxvdHRlcnlKYWNrcG90S2V5AAAFEGRlbHRhQ3VyckphY2twb3QJAMwIAgkBDEludGVnZXJFbnRyeQIFFW5leHRMb3R0ZXJ5SmFja3BvdEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVbmV4dExvdHRlcnlKYWNrcG90S2V5AAAFEGRlbHRhTmV4dEphY2twb3QJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQURdGVhbVdhbGxldEFkZHJLZXkFD2RlbHRhVGVhbUFtb3VudAULZ29yY0Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBkAgkBEUBleHRyTmF0aXZlKDEwNTUpAQUUc3Rha2Vyc0Ftb3VudExlZnRLZXkFEmRlbHRhU3Rha2Vyc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVc3Rha2Vyc0Ftb3VudFRvdGFsS2V5CQBkAgkBEUBleHRyTmF0aXZlKDEwNTUpAQUVc3Rha2Vyc0Ftb3VudFRvdGFsS2V5BRJkZWx0YVN0YWtlcnNBbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBB2tleVNhbHQBBQRhZGRyCQDYBAEIBQFpDXRyYW5zYWN0aW9uSWQFA25pbAUNY2hhbmdlQWN0aW9ucwULZmluaXNoQmxvY2sBaQEMZ3Vlc3NMb3R0ZXJ5AAQEYWRkcgkApQgBCAUBaQZjYWxsZXIECWZpbmlzaEtleQkBCWtleUNvbW1pdAEFBGFkZHIECGd1ZXNzS2V5CQEIa2V5R3Vlc3MBBQRhZGRyBAVndWVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFCGd1ZXNzS2V5AhdZb3UgaGF2ZSBub3QgbWFkZSBhIGJldAQLZmluaXNoQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBBQlmaW5pc2hLZXkCF1lvdSBoYXZlIG5vdCBtYWRlIGEgYmV0AwkAZgIFC2ZpbmlzaEJsb2NrBQZoZWlnaHQJAAIBCQCsAgICNFJhbmRvbSBudW1iZXIgaXMgbm90IHJlYWR5IHlldCwgd2FpdCB1bnRpbCBoZWlnaHQgPSAJAKQDAQULZmluaXNoQmxvY2sEB2VudHJvcHkJAQV2YWx1ZQEICQEFdmFsdWUBCQDtBwEFC2ZpbmlzaEJsb2NrA3ZyZgQHc2FsdEtleQkBB2tleVNhbHQBBQRhZGRyBARzYWx0CQDZBAEJAQt2YWx1ZU9yRWxzZQIJAKIIAQUHc2FsdEtleQIHREVGQVVMVAQEcmFuZAkBD2dldFJhbmRvbU51bWJlcgMADAUEc2FsdAUHZW50cm9weQQLY3VyckphY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVY3VyckxvdHRlcnlKYWNrcG90S2V5AAAECndpbkFjdGlvbnMDCQAAAgUEcmFuZAUFZ3Vlc3MJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQtjdXJySmFja3BvdAULZ29yY0Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIFFWN1cnJMb3R0ZXJ5SmFja3BvdEtleQkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVuZXh0TG90dGVyeUphY2twb3RLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVbmV4dExvdHRlcnlKYWNrcG90S2V5AAAFA25pbAUDbmlsCQCUCgIJAM4IAgkAzAgCCQELRGVsZXRlRW50cnkBBQlmaW5pc2hLZXkJAMwIAgkBC0RlbGV0ZUVudHJ5AQUIZ3Vlc3NLZXkJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHc2FsdEtleQUDbmlsBQp3aW5BY3Rpb25zBQRyYW5kAWkBDXN0YXRzUkVBRE9OTFkBC3VzZXJBZGRyT3B0BA0kdDAxMjQ1MDEyNTA4CQEJZ29yY1N0YXRzAQULdXNlckFkZHJPcHQECnVzZXJBbW91bnQIBQ0kdDAxMjQ1MDEyNTA4Al8xBA9hbW91bnRMZWZ0VG90YWwIBQ0kdDAxMjQ1MDEyNTA4Al8yBA9jdXJyRm9tb0phY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUSY3VyckZvbW9KYWNrcG90S2V5AAAED25leHRGb21vSmFja3BvdAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRJuZXh0Rm9tb0phY2twb3RLZXkAAAQMbGFzdEZvbW9UaW1lCQELdmFsdWVPckVsc2UCCQCfCAEFD2xhc3RGb21vVGltZUtleQAABA5sYXN0Rm9tb1BsYXllcgkBC3ZhbHVlT3JFbHNlAgkAoggBBRFsYXN0Rm9tb1BsYXllcktleQIABBJjdXJyTG90dGVyeUphY2twb3QJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUVY3VyckxvdHRlcnlKYWNrcG90S2V5AAAEEm5leHRMb3R0ZXJ5SmFja3BvdAkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVuZXh0TG90dGVyeUphY2twb3RLZXkAAAQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQULdXNlckFkZHJPcHQECGd1ZXNzS2V5CQEIa2V5R3Vlc3MBBQt1c2VyQWRkck9wdAQFZ3Vlc3MJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUIZ3Vlc3NLZXkA////////////AQQLZmluaXNoQmxvY2sJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJZmluaXNoS2V5AP///////////wEJAJQKAgUDbmlsCQDMCAIJAKwCAgIYJXMlZF9fZ29yY0F2YWlsVG9DbGFpbV9fCQCkAwEFCnVzZXJBbW91bnQJAMwIAgkArAICAh0lcyVkX19jdXJyRm9tb0phY2twb3RBbW91bnRfXwkApAMBBQ9jdXJyRm9tb0phY2twb3QJAMwIAgkArAICAh0lcyVkX19uZXh0Rm9tb0phY2twb3RBbW91bnRfXwkApAMBBQ9uZXh0Rm9tb0phY2twb3QJAMwIAgkArAICAiAlcyVkX19jdXJyTG90dGVyeUphY2twb3RBbW91bnRfXwkApAMBBRJjdXJyTG90dGVyeUphY2twb3QJAMwIAgkArAICAiAlcyVkX19uZXh0TG90dGVyeUphY2twb3RBbW91bnRfXwkApAMBBRJuZXh0TG90dGVyeUphY2twb3QJAMwIAgkArAICAhQlcyVkX19sYXN0Rm9tb1RpbWVfXwkApAMBBQxsYXN0Rm9tb1RpbWUJAMwIAgkArAICAhYlcyVzX19sYXN0Rm9tb1BsYXllcl9fBQ5sYXN0Rm9tb1BsYXllcgkAzAgCCQCsAgICFyVzJWRfX2Ftb3VudExlZnRUb3RhbF9fCQCkAwEFD2Ftb3VudExlZnRUb3RhbAkAzAgCCQCsAgICEyVzJWRfX2ZpbmlzaEJsb2NrX18JAKQDAQULZmluaXNoQmxvY2sJAMwIAgkArAICAg0lcyVkX19ndWVzc19fCQCkAwEFBWd1ZXNzBQNuaWwBaQESd2FsbGV0SW5mb1JFQURPTkxZAQ51c2VyQWRkcmVzc09wdAkAlAoCBQNuaWwJAQ53YWxsZXRJbnRlcm5hbAEFDnVzZXJBZGRyZXNzT3B0AOVvo4g=",
    "height": 3443395,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 6ozQ3mkGfpZQNF9Jy1XBNJVvR2c33mQKVpvSyFMXm2uq
Next: 5rvpZRhiBw9zDWWdWwWj9ddqmVyuLmxXsExcTr4JNxBi

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

Old	New		Differences
146	146		}
147	147
148	148
	149	+	func walletInternal (userAddressOpt) = {
	150	+	let addr = addressFromString(userAddressOpt)
	151	+	let balance = if (isDefined(addr))
	152	+	then wavesBalance(value(addr))
	153	+	else BalanceDetails(0, 0, 0, 0)
	154	+	let gorcBalance = if (isDefined(addr))
	155	+	then assetBalance(value(addr), gorcAssetId)
	156	+	else 0
	157	+	let stakedGorc = valueOrElse(getInteger(stakedAmountByUserKey(userAddressOpt)), 0)
	158	+	[("%s%d__wavesBalance__" + toString(balance.available)), ("%s%d__gorcBalance__" + toString(gorcBalance)), ("%s%d__stakedGorc__" + toString(stakedGorc))]
	159	+	}
	160	+
	161	+
149	162		@Callable(i)
150	163		func testArgs (intVal,strVal,boolVal,binVal,arrInt,arrStr,arrBool,arrBin) = nil
151	164

175	188		then throw("GORC payments only!")
176	189		else {
177	190		let addr = toString(i.caller)
178		-	let $~~t064306481~~ = gorcStats(addr)
179		-	let userAmount = $~~t064306481~~._1
180		-	let amountLeftTotal = $~~t064306481~~._2
	191	+	let $t069787029 = gorcStats(addr)
	192	+	let userAmount = $t069787029._1
	193	+	let amountLeftTotal = $t069787029._2
181	194		let userAmountKey = stakedAmountByUserKey(addr)
182	195		let claimActions = if ((userAmount > 0))
183	196		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]

201	214		if ((0 > (oldAmount - amount)))
202	215		then throw(((("You have only " + fixedPoint(oldAmount, 8)) + " GORC staked, tried to unstake ") + fixedPoint(amount, 8)))
203	216		else {
204		-	let $~~t074427493~~ = gorcStats(addr)
205		-	let userAmount = $~~t074427493~~._1
206		-	let amountLeftTotal = $~~t074427493~~._2
	217	+	let $t079908041 = gorcStats(addr)
	218	+	let userAmount = $t079908041._1
	219	+	let amountLeftTotal = $t079908041._2
207	220		let claimActions = if ((userAmount > 0))
208	221		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
209	222		else nil

219	232		then throw("No payments required")
220	233		else {
221	234		let addr = toString(i.caller)
222		-	let $~~t080578108~~ = gorcStats(addr)
223		-	let userAmount = $~~t080578108~~._1
224		-	let amountLeftTotal = $~~t080578108~~._2
	235	+	let $t086058656 = gorcStats(addr)
	236	+	let userAmount = $t086058656._1
	237	+	let amountLeftTotal = $t086058656._2
225	238		let claimActions = if ((userAmount > 0))
226	239		then [ScriptTransfer(i.caller, userAmount, gorcAssetId)]
227	240		else nil

307	320
308	321		@Callable(i)
309	322		func statsREADONLY (userAddrOpt) = {
310		-	let $~~t01190211960~~ = gorcStats(userAddrOpt)
311		-	let userAmount = $~~t01190211960~~._1
312		-	let amountLeftTotal = $~~t01190211960~~._2
	323	+	let $t01245012508 = gorcStats(userAddrOpt)
	324	+	let userAmount = $t01245012508._1
	325	+	let amountLeftTotal = $t01245012508._2
313	326		let currFomoJackpot = valueOrElse(getInteger(currFomoJackpotKey), 0)
314	327		let nextFomoJackpot = valueOrElse(getInteger(nextFomoJackpotKey), 0)
315	328		let lastFomoTime = valueOrElse(getInteger(lastFomoTimeKey), 0)

324	337		}
325	338
326	339
	340	+
	341	+	@Callable(i)
	342	+	func walletInfoREADONLY (userAddressOpt) = $Tuple2(nil, walletInternal(userAddressOpt))
	343	+
	344	+

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

github/deemru/w8io/169f3d6 
80.91 ms ◑