tx · 3cJBzfaXUM4BCBpXYK1qETBFabxPMZzwT7XffYscwqoZ

3MqJAScB6GGDcFxwV79KYp6Ub17DBexCDYR:  -0.10000000 Waves

2022.10.11 11:56 [2267471] smart account 3MqJAScB6GGDcFxwV79KYp6Ub17DBexCDYR > SELF 0.00000000 Waves

{ "type": 13, "id": "3cJBzfaXUM4BCBpXYK1qETBFabxPMZzwT7XffYscwqoZ", "fee": 10000000, "feeAssetId": null, "timestamp": 1665478626921, "version": 2, "chainId": 84, "sender": "3MqJAScB6GGDcFxwV79KYp6Ub17DBexCDYR", "senderPublicKey": "7vAsM1uosf2qCT6sCBdJwhPkkfhBXbJ2Be6DZtdq6Tej", "proofs": [ "2KKy8nCfELfh37PY4vT3BEqGQqHtokHjK21dKQ9MWNYbzdjByhcDnUYQsf29qUE2nT5QBaNZpmpfaogRTqMgAySX" ], "script": "base64:BgITCAISABIECgIIARIDCgEIEgASACMAB2tBY3RpdmUCBmFjdGl2ZQAGa0NhdXNlAg5zaHV0ZG93bl9jYXVzZQAWa0xhc3RQb29sVG9rZW5JbnRlcmVzdAITX3Bvb2xfbGFzdF9pbnRlcmVzdAARa1VzZXJMYXN0SW50ZXJlc3QCE191c2VyX2xhc3RfaW50ZXJlc3QAE2tVc2VyQ2xhaW1BdmFpbGFibGUCGF91c2VyX2F2YWlsYWJsZV90b19jbGFpbQAWa1VzZXJTaGFyZVRva2Vuc0xvY2tlZAIUX3NoYXJlX3Rva2Vuc19sb2NrZWQAEmtTaGFyZVRva2Vuc0xvY2tlZAIaX3RvdGFsX3NoYXJlX3Rva2Vuc19sb2NrZWQAC2tPcmFjbGVQb29sAgVwb29sXwANa1Bvb2xBc3NldElkcwIJYXNzZXRfaWRzAA1rQWRtaW5QdWJLZXkxAgthZG1pbl9wdWJfMQANa0FkbWluUHViS2V5MgILYWRtaW5fcHViXzIADWtBZG1pblB1YktleTMCC2FkbWluX3B1Yl8zAAxrRmFybWluZ0FkZHICD2Zhcm1pbmdfYWRkcmVzcwAQa01vbmV5Qm94QWRkcmVzcwIRbW9uZXlfYm94X2FkZHJlc3MACnNjYWxlVmFsdWUAgMLXLwAGb3JhY2xlCQEHQWRkcmVzcwEBGgFUSBOXDMDTM8wlMoC2KfenZGiAq+PMe0uZARNnZXRCYXNlNThGcm9tT3JhY2xlAQNrZXkEByRtYXRjaDAJAJ0IAgUGb3JhY2xlBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAZzdHJpbmcFByRtYXRjaDAJANkEAQUGc3RyaW5nBAdub3RoaW5nBQckbWF0Y2gwCQACAQkArAICBQNrZXkCCGlzIGVtcHR5AAxhZG1pblB1YktleTEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MQAMYWRtaW5QdWJLZXkyCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTIADGFkbWluUHViS2V5MwkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkzAAtmYXJtaW5nQWRkcgkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDGtGYXJtaW5nQWRkcgAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUQa01vbmV5Qm94QWRkcmVzcwAGYWN0aXZlCQELdmFsdWVPckVsc2UCCQCbCAIFBHRoaXMFB2tBY3RpdmUGAQhpc0FjdGl2ZQADBQZhY3RpdmUFBHVuaXQJAAIBAh9EQXBwIGlzIGluYWN0aXZlIGF0IHRoaXMgbW9tZW50AQppc1Bvb2xDYWxsAQZjYWxsZXIDCQEJaXNEZWZpbmVkAQkAnQgCBQZvcmFjbGUJAKwCAgULa09yYWNsZVBvb2wJAKUIAQUGY2FsbGVyBQR1bml0CQACAQIgT25seSBwb29sIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BDWlzRmFybWluZ0NhbGwBBmNhbGxlcgMJAAACBQZjYWxsZXIFC2Zhcm1pbmdBZGRyBQR1bml0CQACAQIjT25seSBmYXJtaW5nIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BB3N1c3BlbmQBBWNhdXNlCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBwkAzAgCCQELU3RyaW5nRW50cnkCBQZrQ2F1c2UFBWNhdXNlBQNuaWwBGGdldFVzZXJTaGFyZVRva2Vuc0xvY2tlZAIEcG9vbAt1c2VyQWRkcmVzcwkBC3ZhbHVlT3JFbHNlAgkAmggCBQtmYXJtaW5nQWRkcgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwULdXNlckFkZHJlc3MFFmtVc2VyU2hhcmVUb2tlbnNMb2NrZWQAAAEZZ2V0VG90YWxTaGFyZVRva2Vuc0xvY2tlZAEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQtmYXJtaW5nQWRkcgkArAICBQRwb29sBRJrU2hhcmVUb2tlbnNMb2NrZWQAAAETZ2V0VXNlckxhc3RJbnRlcmVzdAMEdXNlcgRwb29sB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wCAV8FB2Fzc2V0SWQFEWtVc2VyTGFzdEludGVyZXN0AAABGGdldFBvb2xUb2tlbkxhc3RJbnRlcmVzdAIEcG9vbAdhc3NldElkCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FB2Fzc2V0SWQFFmtMYXN0UG9vbFRva2VuSW50ZXJlc3QAAAEVZ2V0VXNlckNsYWltQXZhaWxhYmxlAwR1c2VyBHBvb2wHYXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAIBXwUHYXNzZXRJZAUTa1VzZXJDbGFpbUF2YWlsYWJsZQAAAQ1nZXRTdHJBc3NldElkAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDYBAEFAmlkAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwAgVXQVZFUwkAAgECC01hdGNoIGVycm9yAQ9jYWxjQ2xhaW1BbW91bnQDBHBvb2wHYXNzZXRJZAR1c2VyBAxsYXN0SW50ZXJlc3QJARhnZXRQb29sVG9rZW5MYXN0SW50ZXJlc3QCBQRwb29sBQdhc3NldElkBBB1c2VyTGFzdEludGVyZXN0CQETZ2V0VXNlckxhc3RJbnRlcmVzdAMFBHVzZXIFBHBvb2wFB2Fzc2V0SWQEFXVzZXJTaGFyZVRva2Vuc0xvY2tlZAkBGGdldFVzZXJTaGFyZVRva2Vuc0xvY2tlZAIFBHBvb2wFBHVzZXIEEnVzZXJDbGFpbUF2YWlsYWJsZQkBFWdldFVzZXJDbGFpbUF2YWlsYWJsZQMFBHVzZXIFBHBvb2wFB2Fzc2V0SWQEFW5ld1VzZXJDbGFpbUF2YWlsYWJsZQkAawMFFXVzZXJTaGFyZVRva2Vuc0xvY2tlZAkAZQIFDGxhc3RJbnRlcmVzdAUQdXNlckxhc3RJbnRlcmVzdAUKc2NhbGVWYWx1ZQkAlAoCCQBkAgUSdXNlckNsYWltQXZhaWxhYmxlBRVuZXdVc2VyQ2xhaW1BdmFpbGFibGUFDGxhc3RJbnRlcmVzdAEXY2FsY0NsYWltQW1vdW50RXZhbHVhdGUCBHBvb2wEdXNlcgQIcG9vbEFkZHIJAQdBZGRyZXNzAQkA2QQBBQRwb29sBAhhc3NldElkcwkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDWtQb29sQXNzZXRJZHMCFkNhbid0IGZpbmQgcG9vbCBhc3NldHMCASwKARBjYWxjQ2xhaW1BbW91bnRzAgNhY2MHYXNzZXRJZAQLJHQwMzQ0NTM1MTUJAQ9jYWxjQ2xhaW1BbW91bnQDBQRwb29sBQdhc3NldElkBQR1c2VyBAtjbGFpbUFtb3VudAgFCyR0MDM0NDUzNTE1Al8xBAxsYXN0SW50ZXJlc3QIBQskdDAzNDQ1MzUxNQJfMgkAzQgCBQNhY2MJAMwIAgULY2xhaW1BbW91bnQFA25pbAQMY2xhaW1BbW91bnRzCgACJGwFCGFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARBjYWxjQ2xhaW1BbW91bnRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwkAlAoCBQhhc3NldElkcwUMY2xhaW1BbW91bnRzBQFpAQdhaXJEcm9wAAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAkBC3ZhbHVlT3JFbHNlAgkBCmlzUG9vbENhbGwBCAUBaQZjYWxsZXIECyR0MDM3MjgzODAzCQCUCgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQECXBtdEFtb3VudAgFCyR0MDM3MjgzODAzAl8xBApwbXRBc3NldElkCAULJHQwMzcyODM4MDMCXzIEBHBvb2wJAKUIAQgFAWkGY2FsbGVyBBZ0b3RhbFNoYXJlVG9rZW5zTG9ja2VkCQEZZ2V0VG90YWxTaGFyZVRva2Vuc0xvY2tlZAEFBHBvb2wDCQAAAgUWdG90YWxTaGFyZVRva2Vuc0xvY2tlZAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD21vbmV5Qm94QWRkcmVzcwUJcG10QW1vdW50BQpwbXRBc3NldElkBQNuaWwEDGxhc3RJbnRlcmVzdAkBGGdldFBvb2xUb2tlbkxhc3RJbnRlcmVzdAIFBHBvb2wJAQ1nZXRTdHJBc3NldElkAQUKcG10QXNzZXRJZAQLaW50ZXJlc3ROZXcJAGQCBQxsYXN0SW50ZXJlc3QDCQBmAgUJcG10QW1vdW50AAAJAGsDBQlwbXRBbW91bnQFCnNjYWxlVmFsdWUFFnRvdGFsU2hhcmVUb2tlbnNMb2NrZWQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwkBDWdldFN0ckFzc2V0SWQBBQpwbXRBc3NldElkBRZrTGFzdFBvb2xUb2tlbkludGVyZXN0BQtpbnRlcmVzdE5ldwUDbmlsAWkBEnVwZGF0ZVVzZXJJbnRlcmVzdAIEcG9vbBhuZXdVc2VyU2hhcmVUb2tlbnNMb2NrZWQJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAJAQt2YWx1ZU9yRWxzZQIJAQ1pc0Zhcm1pbmdDYWxsAQgFAWkGY2FsbGVyBAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wEBHVzZXIJAKUIAQgFAWkMb3JpZ2luQ2FsbGVyBAhhc3NldElkcwkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDWtQb29sQXNzZXRJZHMCFkNhbid0IGZpbmQgcG9vbCBhc3NldHMCASwKASdjYWxjTmV3VXNlckludGVyZXN0QW5kQ2xhaW1BbW91bnRFdHJpZXMCA2FjYwdhc3NldElkBAskdDA0NzgwNDg1MAkBD2NhbGNDbGFpbUFtb3VudAMFBHBvb2wFB2Fzc2V0SWQFBHVzZXIEC2NsYWltQW1vdW50CAULJHQwNDc4MDQ4NTACXzEEDGxhc3RJbnRlcmVzdAgFCyR0MDQ3ODA0ODUwAl8yCQDOCAIFA2FjYwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wCAV8FB2Fzc2V0SWQFE2tVc2VyQ2xhaW1BdmFpbGFibGUFC2NsYWltQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAIBXwUHYXNzZXRJZAURa1VzZXJMYXN0SW50ZXJlc3QFDGxhc3RJbnRlcmVzdAUDbmlsCgACJGwFCGFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJASdjYWxjTmV3VXNlckludGVyZXN0QW5kQ2xhaW1BbW91bnRFdHJpZXMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDE1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPAWkBBWNsYWltAQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAhhc3NldElkcwkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDWtQb29sQXNzZXRJZHMCFkNhbid0IGZpbmQgcG9vbCBhc3NldHMCASwKARZjYWxjQ2xhaW1BbW91bnRFbnRyaWVzAgNhY2MHYXNzZXRJZAQLJHQwNTUwNDU1MjgFA2FjYwQHZW50cmllcwgFCyR0MDU1MDQ1NTI4Al8xBANzdW0IBQskdDA1NTA0NTUyOAJfMgQLJHQwNTUzNTU2MDUJAQ9jYWxjQ2xhaW1BbW91bnQDBQRwb29sBQdhc3NldElkBQR1c2VyBAtjbGFpbUFtb3VudAgFCyR0MDU1MzU1NjA1Al8xBAxsYXN0SW50ZXJlc3QIBQskdDA1NTM1NTYwNQJfMgkAlAoCCQDOCAIFB2VudHJpZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQtjbGFpbUFtb3VudAkA2QQBBQdhc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAIBXwUHYXNzZXRJZAUTa1VzZXJDbGFpbUF2YWlsYWJsZQAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAIBXwUHYXNzZXRJZAURa1VzZXJMYXN0SW50ZXJlc3QFDGxhc3RJbnRlcmVzdAUDbmlsCQBkAgUDc3VtBQtjbGFpbUFtb3VudAQLJHQwNTkxMTU5OTQKAAIkbAUIYXNzZXRJZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIFA25pbAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARZjYWxjQ2xhaW1BbW91bnRFbnRyaWVzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQMY2xhaW1FbnRyaWVzCAULJHQwNTkxMTU5OTQCXzEECXN1bVRva2VucwgFCyR0MDU5MTE1OTk0Al8yAwkAAAIFCXN1bVRva2VucwAACQACAQIcWW91IGhhdmUgbm8gdG9rZW5zIGZvciBjbGFpbQUMY2xhaW1FbnRyaWVzAWkBCHNodXRkb3duAAMJAQEhAQUGYWN0aXZlCQACAQkArAICAiJEQXBwIGlzIGFscmVhZHkgc3VzcGVuZGVkLiBDYXVzZTogCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMFBmtDYXVzZQIadGhlIGNhdXNlIHdhc24ndCBzcGVjaWZpZWQDCQEBIQEJAQ9jb250YWluc0VsZW1lbnQCCQDMCAIFDGFkbWluUHViS2V5MQkAzAgCBQxhZG1pblB1YktleTIJAMwIAgUMYWRtaW5QdWJLZXkzBQNuaWwIBQFpD2NhbGxlclB1YmxpY0tleQkAAgECIU9ubHkgYWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgkBB3N1c3BlbmQBAg9QYXVzZWQgYnkgYWRtaW4BaQEIYWN0aXZhdGUAAwUGYWN0aXZlCQACAQIWREFwcCBpcyBhbHJlYWR5IGFjdGl2ZQMJAQEhAQkBD2NvbnRhaW5zRWxlbWVudAIJAMwIAgUMYWRtaW5QdWJLZXkxCQDMCAIFDGFkbWluUHViS2V5MgkAzAgCBQxhZG1pblB1YktleTMFA25pbAgFAWkPY2FsbGVyUHVibGljS2V5CQACAQIhT25seSBhZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uCQDMCAIJAQxCb29sZWFuRW50cnkCBQdrQWN0aXZlBgkAzAgCCQELRGVsZXRlRW50cnkBBQZrQ2F1c2UFA25pbAECdHgBBnZlcmlmeQAEEmFkbWluUHViS2V5MVNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFDGFkbWluUHViS2V5MQABAAAEEmFkbWluUHViS2V5MlNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAEFDGFkbWluUHViS2V5MgABAAAEEmFkbWluUHViS2V5M1NpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAIFDGFkbWluUHViS2V5MwABAAAJAGcCCQBkAgkAZAIFEmFkbWluUHViS2V5MVNpZ25lZAUSYWRtaW5QdWJLZXkyU2lnbmVkBRJhZG1pblB1YktleTNTaWduZWQAAhvEOmE=", "height": 2267471, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: none Next: EUfM9xnia693bWzpnmj7fsc3ixbrvvV2pQDC8GTUpeYW Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let kActive = "active"
5+
6+let kCause = "shutdown_cause"
7+
8+let kLastPoolTokenInterest = "_pool_last_interest"
9+
10+let kUserLastInterest = "_user_last_interest"
11+
12+let kUserClaimAvailable = "_user_available_to_claim"
13+
14+let kUserShareTokensLocked = "_share_tokens_locked"
15+
16+let kShareTokensLocked = "_total_share_tokens_locked"
17+
18+let kOraclePool = "pool_"
19+
20+let kPoolAssetIds = "asset_ids"
21+
22+let kAdminPubKey1 = "admin_pub_1"
23+
24+let kAdminPubKey2 = "admin_pub_2"
25+
26+let kAdminPubKey3 = "admin_pub_3"
27+
28+let kFarmingAddr = "farming_address"
29+
30+let kMoneyBoxAddress = "money_box_address"
31+
32+let scaleValue = 100000000
33+
34+let oracle = Address(base58'3MvVBtsXroQpy1tsPw21TU2ET9A8WfmrNjz')
35+
36+func getBase58FromOracle (key) = match getString(oracle, key) {
37+ case string: String =>
38+ fromBase58String(string)
39+ case nothing =>
40+ throw((key + "is empty"))
41+}
42+
43+
44+let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
45+
46+let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
47+
48+let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
49+
50+let farmingAddr = Address(getBase58FromOracle(kFarmingAddr))
51+
52+let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
53+
54+let active = valueOrElse(getBoolean(this, kActive), true)
55+
56+func isActive () = if (active)
57+ then unit
58+ else throw("DApp is inactive at this moment")
59+
60+
61+func isPoolCall (caller) = if (isDefined(getString(oracle, (kOraclePool + toString(caller)))))
62+ then unit
63+ else throw("Only pool can call this function")
64+
65+
66+func isFarmingCall (caller) = if ((caller == farmingAddr))
67+ then unit
68+ else throw("Only farming can call this function")
69+
70+
71+func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
72+
73+
74+func getUserShareTokensLocked (pool,userAddress) = valueOrElse(getInteger(farmingAddr, (((pool + "_") + userAddress) + kUserShareTokensLocked)), 0)
75+
76+
77+func getTotalShareTokensLocked (pool) = valueOrElse(getInteger(farmingAddr, (pool + kShareTokensLocked)), 0)
78+
79+
80+func getUserLastInterest (user,pool,assetId) = valueOrElse(getInteger(this, (((((user + "_") + pool) + "_") + assetId) + kUserLastInterest)), 0)
81+
82+
83+func getPoolTokenLastInterest (pool,assetId) = valueOrElse(getInteger(this, (((pool + "_") + assetId) + kLastPoolTokenInterest)), 0)
84+
85+
86+func getUserClaimAvailable (user,pool,assetId) = valueOrElse(getInteger(this, (((((user + "_") + pool) + "_") + assetId) + kUserClaimAvailable)), 0)
87+
88+
89+func getStrAssetId (assetId) = match assetId {
90+ case id: ByteVector =>
91+ toBase58String(id)
92+ case waves: Unit =>
93+ "WAVES"
94+ case _ =>
95+ throw("Match error")
96+}
97+
98+
99+func calcClaimAmount (pool,assetId,user) = {
100+ let lastInterest = getPoolTokenLastInterest(pool, assetId)
101+ let userLastInterest = getUserLastInterest(user, pool, assetId)
102+ let userShareTokensLocked = getUserShareTokensLocked(pool, user)
103+ let userClaimAvailable = getUserClaimAvailable(user, pool, assetId)
104+ let newUserClaimAvailable = fraction(userShareTokensLocked, (lastInterest - userLastInterest), scaleValue)
105+ $Tuple2((userClaimAvailable + newUserClaimAvailable), lastInterest)
106+ }
107+
108+
109+func calcClaimAmountEvaluate (pool,user) = {
110+ let poolAddr = Address(fromBase58String(pool))
111+ let assetIds = split(valueOrErrorMessage(getString(poolAddr, kPoolAssetIds), "Can't find pool assets"), ",")
112+ func calcClaimAmounts (acc,assetId) = {
113+ let $t034453515 = calcClaimAmount(pool, assetId, user)
114+ let claimAmount = $t034453515._1
115+ let lastInterest = $t034453515._2
116+ (acc :+ [claimAmount])
117+ }
118+
119+ let claimAmounts = {
120+ let $l = assetIds
121+ let $s = size($l)
122+ let $acc0 = nil
123+ func $f0_1 ($a,$i) = if (($i >= $s))
124+ then $a
125+ else calcClaimAmounts($a, $l[$i])
126+
127+ func $f0_2 ($a,$i) = if (($i >= $s))
128+ then $a
129+ else throw("List size exceeds 15")
130+
131+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
132+ }
133+ $Tuple2(assetIds, claimAmounts)
134+ }
135+
136+
137+@Callable(i)
138+func airDrop () = valueOrElse(isActive(), valueOrElse(isPoolCall(i.caller), {
139+ let $t037283803 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
140+ let pmtAmount = $t037283803._1
141+ let pmtAssetId = $t037283803._2
142+ let pool = toString(i.caller)
143+ let totalShareTokensLocked = getTotalShareTokensLocked(pool)
144+ if ((totalShareTokensLocked == 0))
145+ then [ScriptTransfer(moneyBoxAddress, pmtAmount, pmtAssetId)]
146+ else {
147+ let lastInterest = getPoolTokenLastInterest(pool, getStrAssetId(pmtAssetId))
148+ let interestNew = (lastInterest + (if ((pmtAmount > 0))
149+ then fraction(pmtAmount, scaleValue, totalShareTokensLocked)
150+ else 0))
151+[IntegerEntry((((pool + "_") + getStrAssetId(pmtAssetId)) + kLastPoolTokenInterest), interestNew)]
152+ }
153+ }))
154+
155+
156+
157+@Callable(i)
158+func updateUserInterest (pool,newUserShareTokensLocked) = valueOrElse(isActive(), valueOrElse(isFarmingCall(i.caller), {
159+ let poolAddr = Address(fromBase58String(pool))
160+ let user = toString(i.originCaller)
161+ let assetIds = split(valueOrErrorMessage(getString(poolAddr, kPoolAssetIds), "Can't find pool assets"), ",")
162+ func calcNewUserInterestAndClaimAmountEtries (acc,assetId) = {
163+ let $t047804850 = calcClaimAmount(pool, assetId, user)
164+ let claimAmount = $t047804850._1
165+ let lastInterest = $t047804850._2
166+ (acc ++ [IntegerEntry((((((user + "_") + pool) + "_") + assetId) + kUserClaimAvailable), claimAmount), IntegerEntry((((((user + "_") + pool) + "_") + assetId) + kUserLastInterest), lastInterest)])
167+ }
168+
169+ let $l = assetIds
170+ let $s = size($l)
171+ let $acc0 = nil
172+ func $f0_1 ($a,$i) = if (($i >= $s))
173+ then $a
174+ else calcNewUserInterestAndClaimAmountEtries($a, $l[$i])
175+
176+ func $f0_2 ($a,$i) = if (($i >= $s))
177+ then $a
178+ else throw("List size exceeds 15")
179+
180+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
181+ }))
182+
183+
184+
185+@Callable(i)
186+func claim (pool) = valueOrElse(isActive(), {
187+ let poolAddr = Address(fromBase58String(pool))
188+ let user = toString(i.caller)
189+ let assetIds = split(valueOrErrorMessage(getString(poolAddr, kPoolAssetIds), "Can't find pool assets"), ",")
190+ func calcClaimAmountEntries (acc,assetId) = {
191+ let $t055045528 = acc
192+ let entries = $t055045528._1
193+ let sum = $t055045528._2
194+ let $t055355605 = calcClaimAmount(pool, assetId, user)
195+ let claimAmount = $t055355605._1
196+ let lastInterest = $t055355605._2
197+ $Tuple2((entries ++ [ScriptTransfer(i.caller, claimAmount, fromBase58String(assetId)), IntegerEntry((((((user + "_") + pool) + "_") + assetId) + kUserClaimAvailable), 0), IntegerEntry((((((user + "_") + pool) + "_") + assetId) + kUserLastInterest), lastInterest)]), (sum + claimAmount))
198+ }
199+
200+ let $t059115994 = {
201+ let $l = assetIds
202+ let $s = size($l)
203+ let $acc0 = $Tuple2(nil, 0)
204+ func $f0_1 ($a,$i) = if (($i >= $s))
205+ then $a
206+ else calcClaimAmountEntries($a, $l[$i])
207+
208+ func $f0_2 ($a,$i) = if (($i >= $s))
209+ then $a
210+ else throw("List size exceeds 15")
211+
212+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
213+ }
214+ let claimEntries = $t059115994._1
215+ let sumTokens = $t059115994._2
216+ if ((sumTokens == 0))
217+ then throw("You have no tokens for claim")
218+ else claimEntries
219+ })
220+
221+
222+
223+@Callable(i)
224+func shutdown () = if (!(active))
225+ then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
226+ else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
227+ then throw("Only admin can call this function")
228+ else suspend("Paused by admin")
229+
230+
231+
232+@Callable(i)
233+func activate () = if (active)
234+ then throw("DApp is already active")
235+ else if (!(containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey)))
236+ then throw("Only admin can call this function")
237+ else [BooleanEntry(kActive, true), DeleteEntry(kCause)]
238+
239+
240+@Verifier(tx)
241+func verify () = {
242+ let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
243+ then 1
244+ else 0
245+ let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
246+ then 1
247+ else 0
248+ let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
249+ then 1
250+ else 0
251+ (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
252+ }
253+

github/deemru/w8io/169f3d6 
30.52 ms