tx · DfKhkihVhFrQmyXj3CapTDXiWZRSKgE2DTXZ1CuMwhWu

3MxFYk97QYdeHRMTu51rVyHqvFEVB4UtmBX:  -0.01700000 Waves

2022.09.14 18:04 [2228930] smart account 3MxFYk97QYdeHRMTu51rVyHqvFEVB4UtmBX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "DfKhkihVhFrQmyXj3CapTDXiWZRSKgE2DTXZ1CuMwhWu",
    "fee": 1700000,
    "feeAssetId": null,
    "timestamp": 1663167857240,
    "version": 2,
    "chainId": 84,
    "sender": "3MxFYk97QYdeHRMTu51rVyHqvFEVB4UtmBX",
    "senderPublicKey": "2panvMtE3s1p1oCdVqRGMuBYaZJV3AZ6zpdmZ6vHkDaL",
    "proofs": [
        "4vWVMcbD8e2NNvyHapDHLZ3eAuGM3tiJt9quAy73S7XMg5sJkvTeg31tvKtvsMgtKzL7C2nQGSnbcW6QqyRouYAV",
        "26oN4r6Ag8wk4x1zkZj7jm5CB9zjAEogGVWzBeNw7CCh57VmdWaUES8GBA3JGRMYT17RtFnACNdYR7m5voeP7urt"
    ],
    "script": "base64:BgISCAISABIDCgEBEgMKAQgSABIAIAAHa0FjdGl2ZQIGYWN0aXZlAAZrQ2F1c2UCDnNodXRkb3duX2NhdXNlABZrTGFzdFBvb2xUb2tlbkludGVyZXN0AhNfcG9vbF9sYXN0X2ludGVyZXN0ABFrVXNlckxhc3RJbnRlcmVzdAITX3VzZXJfbGFzdF9pbnRlcmVzdAATa1VzZXJDbGFpbUF2YWlsYWJsZQIYX3VzZXJfYXZhaWxhYmxlX3RvX2NsYWltABZrVXNlclNoYXJlVG9rZW5zTG9ja2VkAhRfc2hhcmVfdG9rZW5zX2xvY2tlZAASa1NoYXJlVG9rZW5zTG9ja2VkAhpfdG90YWxfc2hhcmVfdG9rZW5zX2xvY2tlZAALa09yYWNsZVBvb2wCBXBvb2xfAA1rUG9vbEFzc2V0SWRzAglhc3NldF9pZHMADWtBZG1pblB1YktleTECC2FkbWluX3B1Yl8xAA1rQWRtaW5QdWJLZXkyAgthZG1pbl9wdWJfMgANa0FkbWluUHViS2V5MwILYWRtaW5fcHViXzMADGtGYXJtaW5nQWRkcgIPZmFybWluZ19hZGRyZXNzAApzY2FsZVZhbHVlAIDC1y8ABm9yYWNsZQkBB0FkZHJlc3MBARoBVOlFqh6QLzqu8boO5i6akl8amITh82KzCAETZ2V0QmFzZTU4RnJvbU9yYWNsZQEDa2V5BAckbWF0Y2gwCQCdCAIFBm9yYWNsZQUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQGc3RyaW5nBQckbWF0Y2gwCQDZBAEFBnN0cmluZwQHbm90aGluZwUHJG1hdGNoMAkAAgEJAKwCAgUDa2V5AghpcyBlbXB0eQAMYWRtaW5QdWJLZXkxCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTEADGFkbWluUHViS2V5MgkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkyAAxhZG1pblB1YktleTMJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MwALZmFybWluZ0FkZHIJAQdBZGRyZXNzAQkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQxrRmFybWluZ0FkZHIABmFjdGl2ZQkBC3ZhbHVlT3JFbHNlAgkAmwgCBQR0aGlzBQdrQWN0aXZlBgEIaXNBY3RpdmUAAwUGYWN0aXZlBQR1bml0CQACAQIfREFwcCBpcyBpbmFjdGl2ZSBhdCB0aGlzIG1vbWVudAEKaXNQb29sQ2FsbAEGY2FsbGVyAwkBCWlzRGVmaW5lZAEJAJ0IAgUGb3JhY2xlCQCsAgIFC2tPcmFjbGVQb29sCQClCAEFBmNhbGxlcgUEdW5pdAkAAgECIE9ubHkgcG9vbCBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAQdzdXNwZW5kAQVjYXVzZQkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQcJAMwIAgkBC1N0cmluZ0VudHJ5AgUGa0NhdXNlBQVjYXVzZQUDbmlsARhnZXRVc2VyU2hhcmVUb2tlbnNMb2NrZWQCBHBvb2wLdXNlckFkZHJlc3MJAQt2YWx1ZU9yRWxzZQIJAJoIAgULZmFybWluZ0FkZHIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FC3VzZXJBZGRyZXNzBRZrVXNlclNoYXJlVG9rZW5zTG9ja2VkAAABGWdldFRvdGFsU2hhcmVUb2tlbnNMb2NrZWQBBHBvb2wJAQt2YWx1ZU9yRWxzZQIJAJoIAgULZmFybWluZ0FkZHIJAKwCAgUEcG9vbAUSa1NoYXJlVG9rZW5zTG9ja2VkAAABE2dldFVzZXJMYXN0SW50ZXJlc3QDBHVzZXIEcG9vbAdhc3NldElkCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQR1c2VyAgFfBQRwb29sAgFfBQdhc3NldElkBRFrVXNlckxhc3RJbnRlcmVzdAAAARhnZXRQb29sVG9rZW5MYXN0SW50ZXJlc3QCBHBvb2wHYXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQdhc3NldElkBRZrTGFzdFBvb2xUb2tlbkludGVyZXN0AAABFWdldFVzZXJDbGFpbUF2YWlsYWJsZQMEdXNlcgRwb29sB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wCAV8FB2Fzc2V0SWQFE2tVc2VyQ2xhaW1BdmFpbGFibGUAAAENZ2V0U3RyQXNzZXRJZAEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJpZAUHJG1hdGNoMAkA2AQBBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAIFV0FWRVMJAAIBAgtNYXRjaCBlcnJvcgEPY2FsY0NsYWltQW1vdW50AwRwb29sB2Fzc2V0SWQEdXNlcgQMbGFzdEludGVyZXN0CQEYZ2V0UG9vbFRva2VuTGFzdEludGVyZXN0AgUEcG9vbAUHYXNzZXRJZAQQdXNlckxhc3RJbnRlcmVzdAkBE2dldFVzZXJMYXN0SW50ZXJlc3QDBQR1c2VyBQRwb29sBQdhc3NldElkBBV1c2VyU2hhcmVUb2tlbnNMb2NrZWQJARhnZXRVc2VyU2hhcmVUb2tlbnNMb2NrZWQCBQRwb29sBQR1c2VyBBJ1c2VyQ2xhaW1BdmFpbGFibGUJARVnZXRVc2VyQ2xhaW1BdmFpbGFibGUDBQR1c2VyBQRwb29sBQdhc3NldElkBBVuZXdVc2VyQ2xhaW1BdmFpbGFibGUJAGsDBRV1c2VyU2hhcmVUb2tlbnNMb2NrZWQJAGUCBQxsYXN0SW50ZXJlc3QFEHVzZXJMYXN0SW50ZXJlc3QFCnNjYWxlVmFsdWUJAJQKAgkAZAIFEnVzZXJDbGFpbUF2YWlsYWJsZQUVbmV3VXNlckNsYWltQXZhaWxhYmxlBQxsYXN0SW50ZXJlc3QBF2NhbGNDbGFpbUFtb3VudEV2YWx1YXRlAgRwb29sBHVzZXIECHBvb2xBZGRyCQEHQWRkcmVzcwEJANkEAQUEcG9vbAQIYXNzZXRJZHMJALUJAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ1rUG9vbEFzc2V0SWRzAhZDYW4ndCBmaW5kIHBvb2wgYXNzZXRzAgEsCgEQY2FsY0NsYWltQW1vdW50cwIDYWNjB2Fzc2V0SWQECyR0MDMyMDUzMjc1CQEPY2FsY0NsYWltQW1vdW50AwUEcG9vbAUHYXNzZXRJZAUEdXNlcgQLY2xhaW1BbW91bnQIBQskdDAzMjA1MzI3NQJfMQQMbGFzdEludGVyZXN0CAULJHQwMzIwNTMyNzUCXzIJAM0IAgUDYWNjCQDMCAIFC2NsYWltQW1vdW50BQNuaWwEDGNsYWltQW1vdW50cwoAAiRsBQhhc3NldElkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEQY2FsY0NsYWltQW1vdW50cwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8JAJQKAgUIYXNzZXRJZHMFDGNsYWltQW1vdW50cwUBaQEHYWlyRHJvcAAJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAJAQt2YWx1ZU9yRWxzZQIJAQppc1Bvb2xDYWxsAQgFAWkGY2FsbGVyBAskdDAzNDg4MzU2MwkAlAoCCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBAlwbXRBbW91bnQIBQskdDAzNDg4MzU2MwJfMQQKcG10QXNzZXRJZAgFCyR0MDM0ODgzNTYzAl8yBARwb29sCQClCAEIBQFpBmNhbGxlcgQWdG90YWxTaGFyZVRva2Vuc0xvY2tlZAkBGWdldFRvdGFsU2hhcmVUb2tlbnNMb2NrZWQBBQRwb29sBAxsYXN0SW50ZXJlc3QJARhnZXRQb29sVG9rZW5MYXN0SW50ZXJlc3QCBQRwb29sCQENZ2V0U3RyQXNzZXRJZAEFCnBtdEFzc2V0SWQEC2ludGVyZXN0TmV3CQBkAgUMbGFzdEludGVyZXN0AwMJAGYCBRZ0b3RhbFNoYXJlVG9rZW5zTG9ja2VkAAAJAGYCBQlwbXRBbW91bnQAAAcJAGsDBQlwbXRBbW91bnQFCnNjYWxlVmFsdWUFFnRvdGFsU2hhcmVUb2tlbnNMb2NrZWQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUWa0xhc3RQb29sVG9rZW5JbnRlcmVzdAULaW50ZXJlc3ROZXcFA25pbAFpARJ1cGRhdGVVc2VySW50ZXJlc3QBGG5ld1VzZXJTaGFyZVRva2Vuc0xvY2tlZAkBC3ZhbHVlT3JFbHNlAgkBCGlzQWN0aXZlAAkBC3ZhbHVlT3JFbHNlAgkBCmlzUG9vbENhbGwBCAUBaQZjYWxsZXIECHBvb2xBZGRyCAUBaQZjYWxsZXIEBHVzZXIJAKUIAQgFAWkMb3JpZ2luQ2FsbGVyBARwb29sCQClCAEFCHBvb2xBZGRyBAhhc3NldElkcwkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDWtQb29sQXNzZXRJZHMCFkNhbid0IGZpbmQgcG9vbCBhc3NldHMCASwKASdjYWxjTmV3VXNlckludGVyZXN0QW5kQ2xhaW1BbW91bnRFdHJpZXMCA2FjYwdhc3NldElkBAskdDA0NDAzNDQ3MwkBD2NhbGNDbGFpbUFtb3VudAMFBHBvb2wFB2Fzc2V0SWQFBHVzZXIEC2NsYWltQW1vdW50CAULJHQwNDQwMzQ0NzMCXzEEDGxhc3RJbnRlcmVzdAgFCyR0MDQ0MDM0NDczAl8yCQDNCAIFA2FjYwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHVzZXICAV8FBHBvb2wCAV8FB2Fzc2V0SWQFE2tVc2VyQ2xhaW1BdmFpbGFibGUFC2NsYWltQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEdXNlcgIBXwUEcG9vbAIBXwUHYXNzZXRJZAURa1VzZXJMYXN0SW50ZXJlc3QFDGxhc3RJbnRlcmVzdAUDbmlsCgACJGwFCGFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJASdjYWxjTmV3VXNlckludGVyZXN0QW5kQ2xhaW1BbW91bnRFdHJpZXMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDE1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPAWkBBWNsYWltAQRwb29sCQELdmFsdWVPckVsc2UCCQEIaXNBY3RpdmUABAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wEBHVzZXIJAKUIAQgFAWkGY2FsbGVyBAhhc3NldElkcwkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDWtQb29sQXNzZXRJZHMCFkNhbid0IGZpbmQgcG9vbCBhc3NldHMCASwKARVjYWxjQ2xhaW1BbW91bnRFdHJpZXMCA2FjYwdhc3NldElkBAskdDA1MTI2NTE1MAUDYWNjBAdlbnRyaWVzCAULJHQwNTEyNjUxNTACXzEEA3N1bQgFCyR0MDUxMjY1MTUwAl8yBAskdDA1MTU3NTIyNwkBD2NhbGNDbGFpbUFtb3VudAMFBHBvb2wFB2Fzc2V0SWQFBHVzZXIEC2NsYWltQW1vdW50CAULJHQwNTE1NzUyMjcCXzEEDGxhc3RJbnRlcmVzdAgFCyR0MDUxNTc1MjI3Al8yCQCUCgIJAM0IAgUHZW50cmllcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2NsYWltQW1vdW50CQDZBAEFB2Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQR1c2VyAgFfBQRwb29sAgFfBQdhc3NldElkBRNrVXNlckNsYWltQXZhaWxhYmxlAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQR1c2VyAgFfBQRwb29sAgFfBQdhc3NldElkBRFrVXNlckxhc3RJbnRlcmVzdAUMbGFzdEludGVyZXN0BQNuaWwFC2NsYWltQW1vdW50BAskdDA1NTI3NTYwOQoAAiRsBQhhc3NldElkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBFWNhbGNDbGFpbUFtb3VudEV0cmllcwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EDGNsYWltRW50cmllcwgFCyR0MDU1Mjc1NjA5Al8xBAlzdW1Ub2tlbnMIBQskdDA1NTI3NTYwOQJfMgMJAAACBQlzdW1Ub2tlbnMAAAkAAgECHFlvdSBoYXZlIG5vIHRva2VucyBmb3IgY2xhaW0FDGNsYWltRW50cmllcwFpAQhzaHV0ZG93bgADCQEBIQEFBmFjdGl2ZQkAAgEJAKwCAgIiREFwcCBpcyBhbHJlYWR5IHN1c3BlbmRlZC4gQ2F1c2U6IAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQZrQ2F1c2UCGnRoZSBjYXVzZSB3YXNuJ3Qgc3BlY2lmaWVkAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgkAzAgCBQxhZG1pblB1YktleTEJAMwIAgUMYWRtaW5QdWJLZXkyCQDMCAIFDGFkbWluUHViS2V5MwUDbmlsCAUBaQ9jYWxsZXJQdWJsaWNLZXkJAAIBAiFPbmx5IGFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24JAQdzdXNwZW5kAQIPUGF1c2VkIGJ5IGFkbWluAWkBCGFjdGl2YXRlAAMFBmFjdGl2ZQkAAgECFkRBcHAgaXMgYWxyZWFkeSBhY3RpdmUDCQEBIQEJAQ9jb250YWluc0VsZW1lbnQCCQDMCAIFDGFkbWluUHViS2V5MQkAzAgCBQxhZG1pblB1YktleTIJAMwIAgUMYWRtaW5QdWJLZXkzBQNuaWwIBQFpD2NhbGxlclB1YmxpY0tleQkAAgECIU9ubHkgYWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQYJAMwIAgkBC0RlbGV0ZUVudHJ5AQUGa0NhdXNlBQNuaWwBAnR4AQZ2ZXJpZnkABBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAALvxBoa",
    "height": 2228930,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 6Bo6MLwMtWFm37WkH8bvkDWv8i4Sw9btSRSQHUrce8Hx
Next: 2b1HweFDzDAUkGzFThayThXbg4J2fyqsxppSrxBjKVsJ

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

github/deemru/w8io/026f985 
47.17 ms ◑