tx · GP917CufAAnXMqatPFk9BEWpKGCWCbc4fcBGAodw9z7n

3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy:  -0.01400000 Waves

2023.07.12 21:53 [2663069] smart account 3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GP917CufAAnXMqatPFk9BEWpKGCWCbc4fcBGAodw9z7n",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1689188072818,
    "version": 2,
    "chainId": 84,
    "sender": "3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy",
    "senderPublicKey": "FsR18761ZAsUqsTd7TK3XmR6bhihs1UXVmpHYxz5JzQ1",
    "proofs": [
        "2qhNriRBxuQPcxNGspTBn48MW5NS8og3NH9akiU3jF6EgNq7mGXbV6o5XwukamwNmphBGHHBAgadtAavJeoSKqeB"
    ],
    "script": "base64:BgIgCAISBgoECAgICBIDCgEBEgMKAQESABIDCgEIEgMKAQhWAAJNNgDAhD0AAk04AIDC1y8ACE1JTExJT042AICA6YOx3hYADk1BUktFVElOR1NIQVJFAKCNBgAJVEVBTVNIQVJFAMCaDAANQUNUSVZJVFlTSEFSRQCgjQYAC1BMQVlFUlNIQVJFAIC1GAAKWUVBUk1JTExJUwCAhuvHdQAKV0VFS01JTExJUwCAiLKgAgAJTUFYUEVSSU9EAJwBABBtYXJrZXRpbmdBZGRyS2V5Ag1tYXJrZXRpbmdBZGRyAAt0ZWFtQWRkcktleQIIdGVhbUFkZHIAFGxhc3RNYXJrZXRpbmdUaW1lS2V5AhlsYXN0Q2xhaW1lZFRpbWVfbWFya2V0aW5nABZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5AhNtYXJrZXRpbmdBbW91bnRMZWZ0AA9sYXN0VGVhbVRpbWVLZXkCFGxhc3RDbGFpbWVkVGltZV90ZWFtABF0ZWFtQW1vdW50TGVmdEtleQIOdGVhbUFtb3VudExlZnQAFWxhc3RBY3Rpdml0aWVzVGltZUtleQIabGFzdENsYWltZWRUaW1lX2FjdGl2aXRpZXMAEGFjdEFtb3VudExlZnRLZXkCFGFjdGl2aXRpZXNBbW91bnRMZWZ0ABRzdGFrZXJzQW1vdW50TGVmdEtleQIRc3Rha2Vyc0Ftb3VudExlZnQBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEEYWRkcgkArAICAhRsYXN0Q2xhaW1lZFRpbWVVc2VyXwUEYWRkcgAPd2xnSXNzdWVUaW1lS2V5Ag13bGdfaXNzdWVUaW1lABJ3bGdJc3N1ZWRBbW91bnRLZXkCEHdsZ19pc3N1ZWRBbW91bnQADGlkeFdsZ0Ftb3VudAAAAAtpZHhXbGdQcmljZQABAAtpZHhXbGdGdW5kcwACAA9pZHhXbGdJc3N1ZVRpbWUABwAVaWR4V2xnTWFya2V0aW5nQW1MZWZ0AAoAGWlkeFdsZ01hcmtldGluZ0FtQXZhaWxOb3cACwAQaWR4V2xnVGVhbUFtTGVmdAAOABRpZHhXbGdUZWFtQW1BdmFpbE5vdwAPAA9pZHhXbGdBY3RBbUxlZnQAEgATaWR4V2xnQWN0QW1BdmFpbE5vdwATAA9pZHhXbGdDdXJQZXJpb2QAFQARaWR4V2xnQW1MZWZ0VG90YWwAFgAUaWR4V2xnVXNlckFtQXZhaWxOb3cAGQAIZGFwcFJlc3QAAAALZGFwcFN0YWtpbmcAAQALZGFwcEVjb25vbXkAAgAHZGFwcFdsZwAEAApkYXBwUHV6emxlAAUBCWdldFBpZWNlcwISdXNlckFkZHJTdHJPckVtcHR5D3N0YWtpbmdDb250cmFjdAQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QCE3Jlc1R5cGVzUHJvcG9ydGlvbnMCCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkArAICAhRzdGFrZWRQaWVjZXNCeU93bmVyXwUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBC2dldFdsZ1N0YXRzAwt1c2VyQWRkck9wdAljb250cmFjdHMGdXNkdElkBAxpc3N1ZWRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUSd2xnSXNzdWVkQW1vdW50S2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQECmVjb25vbXlVc2QJAPAHAgkAkQMCBQljb250cmFjdHMFC2RhcHBFY29ub215BQZ1c2R0SWQEB3Jlc3RVc2QJAPAHAgkAkQMCBQljb250cmFjdHMFCGRhcHBSZXN0BQZ1c2R0SWQEBndsZ1VzZAkA8AcCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUGdXNkdElkBAlwdXp6bGVVc2QJAPAHAgkAkQMCBQljb250cmFjdHMFCmRhcHBQdXp6bGUFBnVzZHRJZAQNdG90YWxGdW5kc1VzZAkAZAIJAGQCBQplY29ub215VXNkBQdyZXN0VXNkBQZ3bGdVc2QEBXdsZ0lkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJwIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcCC3dsZ19hc3NldElkAhNOb3QgaW5pdGlhbGl6ZWQgeWV0BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAlpc3N1ZVRpbWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUPd2xnSXNzdWVUaW1lS2V5Ag9Ob3QgaW5pdGlhbGl6ZWQEDm1hcmtldGluZ1RvdGFsCQBrAwUITUlMTElPTjYFDk1BUktFVElOR1NIQVJFBQJNNgQTbWFya2V0aW5nQW1vdW50TGVmdAkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUWbWFya2V0aW5nQW1vdW50TGVmdEtleQUObWFya2V0aW5nVG90YWwEEWxhc3RNYXJrZXRpbmdUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRRsYXN0TWFya2V0aW5nVGltZUtleQUJaXNzdWVUaW1lBA1tYXJrZXRpbmdBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCdCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRBtYXJrZXRpbmdBZGRyS2V5BBttYXJrZXRpbmdBbW91bnRBdmFpbGFibGVOb3cJAJcDAQkAzAgCCQBrAwUObWFya2V0aW5nVG90YWwJAGUCBQNub3cFEWxhc3RNYXJrZXRpbmdUaW1lBQpZRUFSTUlMTElTCQDMCAIFE21hcmtldGluZ0Ftb3VudExlZnQFA25pbAQPbWFya2V0aW5nV2xnb2xkCQDwBwIFDW1hcmtldGluZ0FkZHIFBXdsZ0lkBAl0ZWFtVG90YWwJAGsDBQhNSUxMSU9ONgUJVEVBTVNIQVJFBQJNNgQOdGVhbUFtb3VudExlZnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEXRlYW1BbW91bnRMZWZ0S2V5BQl0ZWFtVG90YWwEDGxhc3RUZWFtVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUPbGFzdFRlYW1UaW1lS2V5BQlpc3N1ZVRpbWUECHRlYW1BZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCdCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQt0ZWFtQWRkcktleQQWdGVhbUFtb3VudEF2YWlsYWJsZU5vdwkAlwMBCQDMCAIJAGsDBQl0ZWFtVG90YWwJAGUCBQNub3cFDGxhc3RUZWFtVGltZQkAaAIAAwUKWUVBUk1JTExJUwkAzAgCBQ50ZWFtQW1vdW50TGVmdAUDbmlsBAp0ZWFtV2xnb2xkCQDwBwIFCHRlYW1BZGRyBQV3bGdJZAQIYWN0VG90YWwJAGsDBQhNSUxMSU9ONgUNQUNUSVZJVFlTSEFSRQUCTTYEDWFjdEFtb3VudExlZnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFCGRhcHBSZXN0BRBhY3RBbW91bnRMZWZ0S2V5BQhhY3RUb3RhbAQSbGFzdEFjdGl2aXRpZXNUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQhkYXBwUmVzdAUVbGFzdEFjdGl2aXRpZXNUaW1lS2V5BQlpc3N1ZVRpbWUEFWFjdEFtb3VudEF2YWlsYWJsZU5vdwkAlwMBCQDMCAIJAGsDBQhhY3RUb3RhbAkAZQIFA25vdwUSbGFzdEFjdGl2aXRpZXNUaW1lCQBoAgADBQpZRUFSTUlMTElTCQDMCAIFDWFjdEFtb3VudExlZnQFA25pbAQJYWN0V2xnb2xkCQDwBwIJAJEDAgUJY29udHJhY3RzBQhkYXBwUmVzdAUFd2xnSWQEDGxhc3RVc2VyVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwkBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEFC3VzZXJBZGRyT3B0BQlpc3N1ZVRpbWUEDmxhc3RVc2VyUGVyaW9kCQBpAgkAZQIFDGxhc3RVc2VyVGltZQUJaXNzdWVUaW1lBQpXRUVLTUlMTElTBAljdXJQZXJpb2QJAGkCCQBlAgUDbm93BQlpc3N1ZVRpbWUFCldFRUtNSUxMSVMEBnBlcmlvZAkAlwMBCQDMCAIJAGQCBQ5sYXN0VXNlclBlcmlvZAABCQDMCAIFCWN1clBlcmlvZAUDbmlsBANlZmYJAQlnZXRQaWVjZXMCBQt1c2VyQWRkck9wdAkAkQMCBQljb250cmFjdHMFC2RhcHBTdGFraW5nBAt0b3RhbFBpZWNlcwkAkQMCBQNlZmYAAAQPYW1vdW50TGVmdFRvdGFsCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRRzdGFrZXJzQW1vdW50TGVmdEtleQAABBVjdXJQZXJpb2REaXN0cmlidXRpb24JAGsDBQ9hbW91bnRMZWZ0VG90YWwJAGgCAAIFC3RvdGFsUGllY2VzCQBkAgULdG90YWxQaWVjZXMJAGgCCQCWAwEJAMwIAgCgjQYJAMwIAgULdG90YWxQaWVjZXMFA25pbAkAZQIFCU1BWFBFUklPRAUGcGVyaW9kBAp1c2VyQW1vdW50CQBrAwkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAkQMCBQNlZmYAAQULdG90YWxQaWVjZXMJAGUCBQNub3cFDGxhc3RVc2VyVGltZQkAaAIAAwUKWUVBUk1JTExJUwkAzAgCBQxpc3N1ZWRBbW91bnQJAMwIAgkAawMFDXRvdGFsRnVuZHNVc2QFAk04BQxpc3N1ZWRBbW91bnQJAMwIAgUNdG90YWxGdW5kc1VzZAkAzAgCBQplY29ub215VXNkCQDMCAIFB3Jlc3RVc2QJAMwIAgUGd2xnVXNkCQDMCAIFCXB1enpsZVVzZAkAzAgCBQlpc3N1ZVRpbWUJAMwIAgURbGFzdE1hcmtldGluZ1RpbWUJAMwIAgUObWFya2V0aW5nVG90YWwJAMwIAgUTbWFya2V0aW5nQW1vdW50TGVmdAkAzAgCBRttYXJrZXRpbmdBbW91bnRBdmFpbGFibGVOb3cJAMwIAgUPbWFya2V0aW5nV2xnb2xkCQDMCAIFCXRlYW1Ub3RhbAkAzAgCBQ50ZWFtQW1vdW50TGVmdAkAzAgCBRZ0ZWFtQW1vdW50QXZhaWxhYmxlTm93CQDMCAIFCnRlYW1XbGdvbGQJAMwIAgUIYWN0VG90YWwJAMwIAgUNYWN0QW1vdW50TGVmdAkAzAgCBRVhY3RBbW91bnRBdmFpbGFibGVOb3cJAMwIAgUJYWN0V2xnb2xkCQDMCAIFCWN1clBlcmlvZAkAzAgCBQ9hbW91bnRMZWZ0VG90YWwJAMwIAgUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQDMCAIFDGxhc3RVc2VyVGltZQkAzAgCBQp1c2VyQW1vdW50BQNuaWwBCmtleUJsb2NrZWQAAhBjb250cmFjdHNCbG9ja2VkAA1LU0FMTE9XV0xHT0xEBgAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BRQ3V2RmJ2aDRMa1BVbnJuVTF6M2puYkExcDltM1dOaHYDCQAAAgEBVAUHJG1hdGNoMAIjM011bWtHR3p0Q0tBWHBXRHF4a2Rkb2ZxWFNVYnFRa3ZTSnkJAAIBAg1Vbmtub3duIGNoYWluAA5hcmJpdHJhZ2VEZWxheQQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMADAzyQDCQAAAgEBVAUHJG1hdGNoMADg1AMJAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ADk1JTlNIT1BQQVlNRU5UAKCNBgEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAEUlkeENmZ0Vjb25vbXlEYXBwAAIAFElkeENmZ0dvdmVybmFuY2VEYXBwAAMADUlkeENmZ1dsZ0RhcHAABAAUSWR4Q2ZnUHV6emxlUG9vbERhcHAABQEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPZWNvbm9teUNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnRWNvbm9teURhcHAAC2dvdkNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUUSWR4Q2ZnR292ZXJuYW5jZURhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAAScHV6emxlUG9vbENvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUUSWR4Q2ZnUHV6emxlUG9vbERhcHAADXdsZ0Fzc2V0SWRLZXkCC3dsZ19hc3NldElkAAp3bGdBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJwIAgULd2xnQ29udHJhY3QFDXdsZ0Fzc2V0SWRLZXkCE05vdCBpbml0aWFsaXplZCB5ZXQACklkeEVmZlVzZXIAAQERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQlvd25lckFkZHIJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ5nZXRWb3RpbmdQb3dlcgESdXNlckFkZHJTdHJPckVtcHR5BAVwcm9wcwkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBEWtleVJlc1Byb3BvcnRpb25zAAILMF8wXzBfMF8wXzACAV8KAQVhZGRlcgIDYWNjBGl0ZW0JAGQCBQNhY2MJAQ1wYXJzZUludFZhbHVlAQUEaXRlbQQKdG90YWxQb3dlcgoAAiRsBQVwcm9wcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFYWRkZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYECnVzZXJzUG93ZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkUGllY2VzQnlPd25lcgEFEnVzZXJBZGRyU3RyT3JFbXB0eQAACQDMCAIFCnRvdGFsUG93ZXIJAMwIAgUKdXNlcnNQb3dlcgUDbmlsAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04JAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cAAkE2AIDC1y8AAkI4AIDh6xcADXByb2ZpdEFkZHJLZXkCCnByb2ZpdEFkZHIBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQRhZGRyCQCsAgICEGxhc3RBcmJUaW1lVXNlcl8FBGFkZHIAGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkCFnN0YWtlcnNBbW91bnRQYWlkVG90YWwBGGtleVN0YWtlcnNBbW91bnRQYWlkVXNlcgEEYWRkcgkArAICAhZzdGFrZXJzQW1vdW50UGFpZFVzZXJfBQRhZGRyAQZwcm9sb2cAAwkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ9zdGFraW5nQ29udHJhY3QJAQprZXlCbG9ja2VkAAcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlCQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIKc2F2ZUxhc3RUeAUDbmlsBQNuaWwBDGdldFN3YXBMaW1pdAEEYWRkcgQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcgAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwkAZgIFDmFyYml0cmFnZURlbGF5CQBlAgUDbm93BQhsYXN0VGltZQkAAgEJAKwCAgkArAICAh9BcmJpdHJhZ2VzIGFyZSBwb3NzaWJsZSBvbmNlIGEgCQCkAwEJAGkCBQ5hcmJpdHJhZ2VEZWxheQDg1AMCA21pbgQGcGllY2VzCQCRAwIJAQ5nZXRWb3RpbmdQb3dlcgEFBGFkZHIFCklkeEVmZlVzZXIEBHBvdzgJAGwGBQZwaWVjZXMAAAUCQjgACAAIBQdDRUlMSU5HCQBrAwUCQTYFBHBvdzgFBU1VTFQ4AQ1jbGFpbUludGVybmFsAQRhZGRyAwkBASEBBQ1LU0FMTE9XV0xHT0xECQCUCgIFA25pbAAABAZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBGFkZHIECGN1clN0YXRzCQELZ2V0V2xnU3RhdHMDBQRhZGRyCQDMCAIFDHJlc3RDb250cmFjdAkAzAgCBQ9zdGFraW5nQ29udHJhY3QJAMwIAgUPZWNvbm9teUNvbnRyYWN0CQDMCAIFC2dvdkNvbnRyYWN0CQDMCAIFC3dsZ0NvbnRyYWN0CQDMCAIFEnB1enpsZVBvb2xDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQJaXNzdWVUaW1lCQCRAwIFCGN1clN0YXRzBQ9pZHhXbGdJc3N1ZVRpbWUEE21hcmtldGluZ0Ftb3VudExlZnQJAJEDAgUIY3VyU3RhdHMFFWlkeFdsZ01hcmtldGluZ0FtTGVmdAQPbWFya2V0aW5nQW1vdW50CQCRAwIFCGN1clN0YXRzBRlpZHhXbGdNYXJrZXRpbmdBbUF2YWlsTm93BA50ZWFtQW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUQaWR4V2xnVGVhbUFtTGVmdAQKdGVhbUFtb3VudAkAkQMCBQhjdXJTdGF0cwUUaWR4V2xnVGVhbUFtQXZhaWxOb3cEDWFjdEFtb3VudExlZnQJAJEDAgUIY3VyU3RhdHMFD2lkeFdsZ0FjdEFtTGVmdAQJYWN0QW1vdW50CQCRAwIFCGN1clN0YXRzBRNpZHhXbGdBY3RBbUF2YWlsTm93BAt1c2VyVGltZUtleQkBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEFBGFkZHIDCQBmAgkAkQMCBQhjdXJTdGF0cwUPaWR4V2xnQ3VyUGVyaW9kCQBpAgUJTUFYUEVSSU9EAAIJAAIBAj1QbGVhc2UgbW9kaWZ5IGNvbnRyYWN0IGZvciBuZXh0IDEuNSB5ZWFycywgYWNjb3JkaW5nIHRvIHN0YXRzBA9hbW91bnRMZWZ0VG90YWwJAJEDAgUIY3VyU3RhdHMFEWlkeFdsZ0FtTGVmdFRvdGFsBAp1c2VyQW1vdW50CQCRAwIFCGN1clN0YXRzBRRpZHhXbGdVc2VyQW1BdmFpbE5vdwQHdXNlcktleQkBGGtleVN0YWtlcnNBbW91bnRQYWlkVXNlcgEFBGFkZHIJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFEG1hcmtldGluZ0FkZHJLZXkFD21hcmtldGluZ0Ftb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFC3RlYW1BZGRyS2V5BQp0ZWFtQW1vdW50BQp3bGdBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUJYWN0QW1vdW50BQp3bGdBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUKdXNlckFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdXNlcktleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdXNlcktleQAABQp1c2VyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AAAFCnVzZXJBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBlAgUPYW1vdW50TGVmdFRvdGFsBQp1c2VyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5CQBlAgUTbWFya2V0aW5nQW1vdW50TGVmdAUPbWFya2V0aW5nQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRsYXN0TWFya2V0aW5nVGltZUtleQUDbm93CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRF0ZWFtQW1vdW50TGVmdEtleQkAZQIFDnRlYW1BbW91bnRMZWZ0BQp0ZWFtQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ9sYXN0VGVhbVRpbWVLZXkFA25vdwkAzAgCCQEMSW50ZWdlckVudHJ5AgUQYWN0QW1vdW50TGVmdEtleQkAZQIFDWFjdEFtb3VudExlZnQFCWFjdEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVbGFzdEFjdGl2aXRpZXNUaW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIFC3VzZXJUaW1lS2V5BQNub3cFA25pbAUKdXNlckFtb3VudAYBaQENY29uc3RydWN0b3JWMQQIcmVzdEFkZHINbWFya2V0aW5nQWRkcgh0ZWFtQWRkcgpwcm9maXRBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ13bGdBc3NldElkS2V5CQACAQITQWxyZWFkeSBpbml0aWFsaXplZAQMaXNzdWVkQW1vdW50BQhNSUxMSU9ONgQFaXNzdWUJAMMIBwIGV0xHT0xEAiBXYXZlc0xhbmRzIEdvbGQgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgGBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFD3dsZ0lzc3VlVGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBrAwUITUlMTElPTjYFC1BMQVlFUlNIQVJFBQVNVUxUNgkAzAgCCQELQmluYXJ5RW50cnkCBQ13bGdBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFEG1hcmtldGluZ0FkZHJLZXkFDW1hcmtldGluZ0FkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgULdGVhbUFkZHJLZXkFCHRlYW1BZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFDXByb2ZpdEFkZHJLZXkFCnByb2ZpdEFkZHIFA25pbAFpAQZidXlXbGcBCW1pbkFtb3VudAMJAQEhAQUNS1NBTExPV1dMR09MRAkAlAoCBQNuaWwAAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAd1c2R0QW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyBAdtYXhVc2R0CQEMZ2V0U3dhcExpbWl0AQUEYWRkcgMJAGYCBQd1c2R0QW10BQdtYXhVc2R0CQACAQkArAICCQCsAgICEllvdSBjYW4gc3BlbmQgbWF4IAkBCmZpeGVkUG9pbnQCBQdtYXhVc2R0AAYCBSBVU0RUAwkAZgIFDk1JTlNIT1BQQVlNRU5UBQd1c2R0QW10CQACAQkArAICCQCsAgICEllvdSBjYW4gdHJhZGUgbWluIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGAgUgVVNEVAQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwMCAAkAzAgCBQxyZXN0Q29udHJhY3QJAMwIAgUPc3Rha2luZ0NvbnRyYWN0CQDMCAIFD2Vjb25vbXlDb250cmFjdAkAzAgCBQtnb3ZDb250cmFjdAkAzAgCBQt3bGdDb250cmFjdAkAzAgCBRJwdXp6bGVQb29sQ29udHJhY3QFA25pbAULdXNkdEFzc2V0SWQEDGN1cldsZ0Ftb3VudAkAkQMCBQhjdXJTdGF0cwUMaWR4V2xnQW1vdW50BAtvbGRGdW5kc1VzZAkAZQIJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ0Z1bmRzBQd1c2R0QW10BAh3bGdQcmljZQkAawMFC29sZEZ1bmRzVXNkBQVNVUxUOAUMY3VyV2xnQW1vdW50BAhidXlQcmljZQkAawMFCHdsZ1ByaWNlAAYABQQJd2xnQW1vdW50CQBrAwUHdXNkdEFtdAUFTVVMVDgFCGJ1eVByaWNlAwkAZgIFCW1pbkFtb3VudAUJd2xnQW1vdW50CQACAQIwUHJpY2UgY2hhbmdlZCBkdXJpbmcgb3BlcmF0aW9uLCBwbGVhc2UgdHJ5IGFnYWluBAxwcm9maXRBbW91bnQJAGkCBQd1c2R0QW10AAYECmRlbHRhRnVuZHMJAGUCBQd1c2R0QW10BQxwcm9maXRBbW91bnQECHJlaXNzdWVkCQBrAwUMY3VyV2xnQW1vdW50BQpkZWx0YUZ1bmRzBQtvbGRGdW5kc1VzZAkAlAoCCQDMCAIJAQdSZWlzc3VlAwUKd2xnQXNzZXRJZAUIcmVpc3N1ZWQGCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJ3bGdJc3N1ZWRBbW91bnRLZXkJAGQCBQxjdXJXbGdBbW91bnQFCHJlaXNzdWVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBQRhZGRyCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFDXByb2ZpdEFkZHJLZXkFDHByb2ZpdEFtb3VudAULdXNkdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQl3bGdBbW91bnQFCndsZ0Fzc2V0SWQFA25pbAUMcHJvbG9nUmVzdWx0AWkBB3NlbGxXbGcBCW1pbkFtb3VudAMJAQEhAQUNS1NBTExPV1dMR09MRAkAlAoCBQNuaWwAAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAZ3bGdBbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAUKd2xnQXNzZXRJZAkAAgECFVdMR09MRCBwYXltZW50cyBvbmx5IQQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyBAdtYXhVc2R0CQEMZ2V0U3dhcExpbWl0AQUEYWRkcgQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwMCAAkAzAgCBQxyZXN0Q29udHJhY3QJAMwIAgUPc3Rha2luZ0NvbnRyYWN0CQDMCAIFD2Vjb25vbXlDb250cmFjdAkAzAgCBQtnb3ZDb250cmFjdAkAzAgCBQt3bGdDb250cmFjdAkAzAgCBRJwdXp6bGVQb29sQ29udHJhY3QFA25pbAULdXNkdEFzc2V0SWQEDGN1cldsZ0Ftb3VudAkAkQMCBQhjdXJTdGF0cwUMaWR4V2xnQW1vdW50BAlzZWxsUHJpY2UJAGsDCQCRAwIFCGN1clN0YXRzBQtpZHhXbGdQcmljZQAEAAUEB3VzZHRBbXQJAGsDBQZ3bGdBbXQFCXNlbGxQcmljZQUFTVVMVDgDCQBmAgUHdXNkdEFtdAUHbWF4VXNkdAkAAgEJAKwCAgkArAICAhBZb3UgY2FuIGdldCBtYXggCQEKZml4ZWRQb2ludAIFB21heFVzZHQABgIFIFVTRFQDCQBmAgUOTUlOU0hPUFBBWU1FTlQFB3VzZHRBbXQJAAIBCQCsAgIJAKwCAgISWW91IGNhbiB0cmFkZSBtaW4gCQEKZml4ZWRQb2ludAIFDk1JTlNIT1BQQVlNRU5UAAYCBSBVU0RUAwkAZgIFCW1pbkFtb3VudAUHdXNkdEFtdAkAAgECMFByaWNlIGNoYW5nZWQgZHVyaW5nIG9wZXJhdGlvbiwgcGxlYXNlIHRyeSBhZ2FpbgQMcHJvZml0QW1vdW50CQBpAgUHdXNkdEFtdAAEBAZidXJuZWQJAGsDCQBkAgUHdXNkdEFtdAUMcHJvZml0QW1vdW50BQxjdXJXbGdBbW91bnQJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ0Z1bmRzCQCUCgIJAMwIAgkBBEJ1cm4CBQp3bGdBc3NldElkBQZidXJuZWQJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQkAZQIFDGN1cldsZ0Ftb3VudAUGYnVybmVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBQRhZGRyCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFDXByb2ZpdEFkZHJLZXkFDHByb2ZpdEFtb3VudAULdXNkdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQd1c2R0QW10BQt1c2R0QXNzZXRJZAUDbmlsBQxwcm9sb2dSZXN1bHQBaQEFY2xhaW0ABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhY3Rpb25zCAkBDWNsYWltSW50ZXJuYWwBCQClCAEIBQFpBmNhbGxlcgJfMQkAlAoCBQdhY3Rpb25zBQxwcm9sb2dSZXN1bHQBaQELb25TdGFrZUxhbmQBBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQENY2xhaW1JbnRlcm5hbAEFBGFkZHIBaQENb25VbnN0YWtlTGFuZAEEYWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAQ1jbGFpbUludGVybmFsAQUEYWRkcgDSiy1o",
    "height": 2663069,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: E8mQtK1Sc1f4youKgYMjFT11XtZAxrPAT7V6NSeMedBB
Next: 5vdMdrLaydDAXtH1w46nY4fXVT2YEDTy9mHqe8EqKWpX

Diff: 
Old
New
Differences
51
51
 
let idxWlgPrice = 1
52
52
 
53
53
 
let idxWlgFunds = 2
54
+
55
+
let idxWlgIssueTime = 7
56
+
57
+
let idxWlgMarketingAmLeft = 10
58
+
59
+
let idxWlgMarketingAmAvailNow = 11
60
+
61
+
let idxWlgTeamAmLeft = 14
62
+
63
+
let idxWlgTeamAmAvailNow = 15
64
+
65
+
let idxWlgActAmLeft = 18
66
+
67
+
let idxWlgActAmAvailNow = 19
68
+
69
+
let idxWlgCurPeriod = 21
70
+
71
+
let idxWlgAmLeftTotal = 22
72
+
73
+
let idxWlgUserAmAvailNow = 25
54
74
 
55
75
 
let dappRest = 0
56
76
 
112
132
 
    let lastActivitiesTime = valueOrElse(getInteger(contracts[dappRest], lastActivitiesTimeKey), issueTime)
113
133
 
    let actAmountAvailableNow = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
114
134
 
    let actWlgold = assetBalance(contracts[dappRest], wlgId)
135
+
    let lastUserTime = valueOrElse(getInteger(contracts[dappWlg], keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
136
+
    let lastUserPeriod = ((lastUserTime - issueTime) / WEEKMILLIS)
115
137
 
    let curPeriod = ((now - issueTime) / WEEKMILLIS)
138
+
    let period = min([(lastUserPeriod + 1), curPeriod])
116
139
 
    let eff = getPieces(userAddrOpt, contracts[dappStaking])
117
140
 
    let totalPieces = eff[0]
118
-
    let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
119
-
    let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - curPeriod))))
120
-
    let lastUserTime = valueOrElse(getInteger(keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
141
+
    let amountLeftTotal = valueOrElse(getInteger(contracts[dappWlg], stakersAmountLeftKey), 0)
142
+
    let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - period))))
121
143
 
    let userAmount = fraction(fraction(curPeriodDistribution, eff[1], totalPieces), (now - lastUserTime), (3 * YEARMILLIS))
122
144
 
[issuedAmount, fraction(totalFundsUsd, M8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd, issueTime, lastMarketingTime, marketingTotal, marketingAmountLeft, marketingAmountAvailableNow, marketingWlgold, teamTotal, teamAmountLeft, teamAmountAvailableNow, teamWlgold, actTotal, actAmountLeft, actAmountAvailableNow, actWlgold, curPeriod, amountLeftTotal, curPeriodDistribution, lastUserTime, userAmount]
123
145
 
    }
126
148
 
func keyBlocked () = "contractsBlocked"
127
149
 
128
150
 
129
-
let KSALLOWWLGOLD = false
151
+
let KSALLOWWLGOLD = true
130
152
 
131
153
 
let chain = take(drop(this.bytes, 1), 1)
132
154
 
162
184
 
let MULT6 = 1000000
163
185
 
164
186
 
let MULT8 = 100000000
165
-
166
-
let SSIZE = 25
167
-
168
-
let MSIZE = 100
169
-
170
-
let LSIZE = 225
171
-
172
-
let XLSIZE = 400
173
-
174
-
let XXLSIZE = 625
175
187
 
176
188
 
let MINSHOPPAYMENT = 100000
177
189
 
214
226
 
215
227
 
let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
216
228
 
217
-
let recLandSize = 1
218
-
219
229
 
let wlgAssetIdKey = "wlg_assetId"
220
230
 
221
231
 
let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "Not initialized yet")
222
-
223
-
let IdxEffTotal = 0
224
232
 
225
233
 
let IdxEffUser = 1
226
234
 
227
235
 
func keyResProportions () = "resTypesProportions"
228
236
 
229
237
 
230
-
func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
238
+
func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
231
239
 
232
240
 
233
241
 
func asInt (v) = match v {
235
243
 
        n
236
244
 
    case _ => 
237
245
 
        throw("fail to cast into Int")
238
-
}
239
-
240
-
241
-
func numPiecesBySize (landSize) = match landSize {
242
-
    case _ => 
243
-
        if (("S" == $match0))
244
-
            then SSIZE
245
-
            else if (("M" == $match0))
246
-
                then MSIZE
247
-
                else if (("L" == $match0))
248
-
                    then LSIZE
249
-
                    else if (("XL" == $match0))
250
-
                        then XLSIZE
251
-
                        else if (("XXL" == $match0))
252
-
                            then XXLSIZE
253
-
                            else throw("Unknown land size")
254
246
 
}
255
247
 
256
248
 
272
264
 
273
265
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
274
266
 
        }
275
-
    let usersPower = if ((userAddrStrOrEmpty == ""))
276
-
        then 0
277
-
        else {
278
-
            let landsStr = getString(stakingContract, keyStakedLandsByOwner(userAddrStrOrEmpty))
279
-
            let lands = if (isDefined(landsStr))
280
-
                then split_51C(value(landsStr), "_")
281
-
                else nil
282
-
            func oneLand (acc,landAssetId) =             {
283
-
                let asset = value(assetInfo(fromBase58String(landAssetId)))
284
-
                let landSize = split(asset.description, "_")[recLandSize]
285
-
                (acc + numPiecesBySize(landSize))
286
-
                }
287
-
288
-
            let $l = lands
289
-
            let $s = size($l)
290
-
            let $acc0 = 0
291
-
            func $f1_1 ($a,$i) =             if (($i >= $s))
292
-
                then $a
293
-
                else oneLand($a, $l[$i])
294
-
295
-
            func $f1_2 ($a,$i) =             if (($i >= $s))
296
-
                then $a
297
-
                else throw("List size exceeds 100")
298
-
299
-
            $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
300
-
            }
267
+
    let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
301
268
 
[totalPower, usersPower]
302
269
 
    }
303
270
 
344
311
 
    then $Tuple2(nil, 0)
345
312
 
    else {
346
313
 
        let caller = addressFromStringValue(addr)
314
+
        let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract], usdtAssetId)
347
315
 
        let now = lastBlock.timestamp
348
-
        let issueTime = valueOrErrorMessage(getInteger(wlgIssueTimeKey), "Not initialized")
349
-
        let marketingTotal = fraction(MILLION6, MARKETINGSHARE, MULT6)
350
-
        let marketingAmountLeft = valueOrElse(getInteger(marketingAmountLeftKey), marketingTotal)
351
-
        let lastMarketingTime = valueOrElse(getInteger(lastMarketingTimeKey), issueTime)
352
-
        let marketingAddr = addressFromStringValue(value(getString(marketingAddrKey)))
353
-
        let marketingAmount = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
354
-
        let teamTotal = fraction(MILLION6, TEAMSHARE, MULT6)
355
-
        let teamAmountLeft = valueOrElse(getInteger(teamAmountLeftKey), teamTotal)
356
-
        let lastTeamTime = valueOrElse(getInteger(lastTeamTimeKey), issueTime)
357
-
        let teamAddr = addressFromStringValue(value(getString(teamAddrKey)))
358
-
        let teamAmount = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
359
-
        let actTotal = fraction(MILLION6, ACTIVITYSHARE, MULT6)
360
-
        let actAmountLeft = valueOrElse(getInteger(actAmountLeftKey), actTotal)
361
-
        let lastActivitiesTime = valueOrElse(getInteger(lastActivitiesTimeKey), issueTime)
362
-
        let actAmount = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
363
-
        let curPeriod = ((now - issueTime) / WEEKMILLIS)
364
-
        if ((curPeriod > (MAXPERIOD / 2)))
316
+
        let issueTime = curStats[idxWlgIssueTime]
317
+
        let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
318
+
        let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
319
+
        let teamAmountLeft = curStats[idxWlgTeamAmLeft]
320
+
        let teamAmount = curStats[idxWlgTeamAmAvailNow]
321
+
        let actAmountLeft = curStats[idxWlgActAmLeft]
322
+
        let actAmount = curStats[idxWlgActAmAvailNow]
323
+
        let userTimeKey = keyLastClaimedTimeByUser(addr)
324
+
        if ((curStats[idxWlgCurPeriod] > (MAXPERIOD / 2)))
365
325
 
            then throw("Please modify contract for next 1.5 years, according to stats")
366
326
 
            else {
367
-
                let eff = getVotingPower(addr)
368
-
                let totalPieces = eff[IdxEffTotal]
369
-
                let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
370
-
                let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - curPeriod))))
371
-
                let userTimeKey = keyLastClaimedTimeByUser(addr)
372
-
                let lastUserTime = valueOrElse(getInteger(userTimeKey), issueTime)
373
-
                let userAmount = fraction(fraction(curPeriodDistribution, eff[IdxEffUser], totalPieces), (now - lastUserTime), (3 * YEARMILLIS))
327
+
                let amountLeftTotal = curStats[idxWlgAmLeftTotal]
328
+
                let userAmount = curStats[idxWlgUserAmAvailNow]
374
329
 
                let userKey = keyStakersAmountPaidUser(addr)
375
-
                $Tuple2([ScriptTransfer(marketingAddr, marketingAmount, wlgAssetId), ScriptTransfer(teamAddr, teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (amountLeftTotal - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(userTimeKey, now)], userAmount)
330
+
                $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (amountLeftTotal - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(userTimeKey, now)], userAmount)
376
331
 
                }
377
332
 
        }
378
333
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let M6 = 1000000
5
5
 
6
6
 
let M8 = 100000000
7
7
 
8
8
 
let MILLION6 = 100000000000000
9
9
 
10
10
 
let MARKETINGSHARE = 100000
11
11
 
12
12
 
let TEAMSHARE = 200000
13
13
 
14
14
 
let ACTIVITYSHARE = 100000
15
15
 
16
16
 
let PLAYERSHARE = 400000
17
17
 
18
18
 
let YEARMILLIS = 31557600000
19
19
 
20
20
 
let WEEKMILLIS = 604800000
21
21
 
22
22
 
let MAXPERIOD = 156
23
23
 
24
24
 
let marketingAddrKey = "marketingAddr"
25
25
 
26
26
 
let teamAddrKey = "teamAddr"
27
27
 
28
28
 
let lastMarketingTimeKey = "lastClaimedTime_marketing"
29
29
 
30
30
 
let marketingAmountLeftKey = "marketingAmountLeft"
31
31
 
32
32
 
let lastTeamTimeKey = "lastClaimedTime_team"
33
33
 
34
34
 
let teamAmountLeftKey = "teamAmountLeft"
35
35
 
36
36
 
let lastActivitiesTimeKey = "lastClaimedTime_activities"
37
37
 
38
38
 
let actAmountLeftKey = "activitiesAmountLeft"
39
39
 
40
40
 
let stakersAmountLeftKey = "stakersAmountLeft"
41
41
 
42
42
 
func keyLastClaimedTimeByUser (addr) = ("lastClaimedTimeUser_" + addr)
43
43
 
44
44
 
45
45
 
let wlgIssueTimeKey = "wlg_issueTime"
46
46
 
47
47
 
let wlgIssuedAmountKey = "wlg_issuedAmount"
48
48
 
49
49
 
let idxWlgAmount = 0
50
50
 
51
51
 
let idxWlgPrice = 1
52
52
 
53
53
 
let idxWlgFunds = 2
54
+
55
+
let idxWlgIssueTime = 7
56
+
57
+
let idxWlgMarketingAmLeft = 10
58
+
59
+
let idxWlgMarketingAmAvailNow = 11
60
+
61
+
let idxWlgTeamAmLeft = 14
62
+
63
+
let idxWlgTeamAmAvailNow = 15
64
+
65
+
let idxWlgActAmLeft = 18
66
+
67
+
let idxWlgActAmAvailNow = 19
68
+
69
+
let idxWlgCurPeriod = 21
70
+
71
+
let idxWlgAmLeftTotal = 22
72
+
73
+
let idxWlgUserAmAvailNow = 25
54
74
 
55
75
 
let dappRest = 0
56
76
 
57
77
 
let dappStaking = 1
58
78
 
59
79
 
let dappEconomy = 2
60
80
 
61
81
 
let dappWlg = 4
62
82
 
63
83
 
let dappPuzzle = 5
64
84
 
65
85
 
func getPieces (userAddrStrOrEmpty,stakingContract) = {
66
86
 
    let props = split(valueOrElse(getString(stakingContract, "resTypesProportions"), "0_0_0_0_0_0"), "_")
67
87
 
    func adder (acc,item) =     (acc + parseIntValue(item))
68
88
 
69
89
 
    let totalPower = {
70
90
 
        let $l = props
71
91
 
        let $s = size($l)
72
92
 
        let $acc0 = 0
73
93
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
74
94
 
            then $a
75
95
 
            else adder($a, $l[$i])
76
96
 
77
97
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
78
98
 
            then $a
79
99
 
            else throw("List size exceeds 6")
80
100
 
81
101
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
82
102
 
        }
83
103
 
    let usersPower = valueOrElse(getInteger(stakingContract, ("stakedPiecesByOwner_" + userAddrStrOrEmpty)), 0)
84
104
 
[totalPower, usersPower]
85
105
 
    }
86
106
 
87
107
 
88
108
 
func getWlgStats (userAddrOpt,contracts,usdtId) = {
89
109
 
    let issuedAmount = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssuedAmountKey), "WLGOLD is not issued yet")
90
110
 
    let economyUsd = assetBalance(contracts[dappEconomy], usdtId)
91
111
 
    let restUsd = assetBalance(contracts[dappRest], usdtId)
92
112
 
    let wlgUsd = assetBalance(contracts[dappWlg], usdtId)
93
113
 
    let puzzleUsd = assetBalance(contracts[dappPuzzle], usdtId)
94
114
 
    let totalFundsUsd = ((economyUsd + restUsd) + wlgUsd)
95
115
 
    let wlgId = valueOrErrorMessage(getBinary(contracts[dappWlg], "wlg_assetId"), "Not initialized yet")
96
116
 
    let now = lastBlock.timestamp
97
117
 
    let issueTime = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssueTimeKey), "Not initialized")
98
118
 
    let marketingTotal = fraction(MILLION6, MARKETINGSHARE, M6)
99
119
 
    let marketingAmountLeft = valueOrElse(getInteger(contracts[dappWlg], marketingAmountLeftKey), marketingTotal)
100
120
 
    let lastMarketingTime = valueOrElse(getInteger(contracts[dappWlg], lastMarketingTimeKey), issueTime)
101
121
 
    let marketingAddr = addressFromStringValue(value(getString(contracts[dappWlg], marketingAddrKey)))
102
122
 
    let marketingAmountAvailableNow = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
103
123
 
    let marketingWlgold = assetBalance(marketingAddr, wlgId)
104
124
 
    let teamTotal = fraction(MILLION6, TEAMSHARE, M6)
105
125
 
    let teamAmountLeft = valueOrElse(getInteger(contracts[dappWlg], teamAmountLeftKey), teamTotal)
106
126
 
    let lastTeamTime = valueOrElse(getInteger(contracts[dappWlg], lastTeamTimeKey), issueTime)
107
127
 
    let teamAddr = addressFromStringValue(value(getString(contracts[dappWlg], teamAddrKey)))
108
128
 
    let teamAmountAvailableNow = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
109
129
 
    let teamWlgold = assetBalance(teamAddr, wlgId)
110
130
 
    let actTotal = fraction(MILLION6, ACTIVITYSHARE, M6)
111
131
 
    let actAmountLeft = valueOrElse(getInteger(contracts[dappRest], actAmountLeftKey), actTotal)
112
132
 
    let lastActivitiesTime = valueOrElse(getInteger(contracts[dappRest], lastActivitiesTimeKey), issueTime)
113
133
 
    let actAmountAvailableNow = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
114
134
 
    let actWlgold = assetBalance(contracts[dappRest], wlgId)
135
+
    let lastUserTime = valueOrElse(getInteger(contracts[dappWlg], keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
136
+
    let lastUserPeriod = ((lastUserTime - issueTime) / WEEKMILLIS)
115
137
 
    let curPeriod = ((now - issueTime) / WEEKMILLIS)
138
+
    let period = min([(lastUserPeriod + 1), curPeriod])
116
139
 
    let eff = getPieces(userAddrOpt, contracts[dappStaking])
117
140
 
    let totalPieces = eff[0]
118
-
    let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
119
-
    let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - curPeriod))))
120
-
    let lastUserTime = valueOrElse(getInteger(keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
141
+
    let amountLeftTotal = valueOrElse(getInteger(contracts[dappWlg], stakersAmountLeftKey), 0)
142
+
    let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - period))))
121
143
 
    let userAmount = fraction(fraction(curPeriodDistribution, eff[1], totalPieces), (now - lastUserTime), (3 * YEARMILLIS))
122
144
 
[issuedAmount, fraction(totalFundsUsd, M8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd, issueTime, lastMarketingTime, marketingTotal, marketingAmountLeft, marketingAmountAvailableNow, marketingWlgold, teamTotal, teamAmountLeft, teamAmountAvailableNow, teamWlgold, actTotal, actAmountLeft, actAmountAvailableNow, actWlgold, curPeriod, amountLeftTotal, curPeriodDistribution, lastUserTime, userAmount]
123
145
 
    }
124
146
 
125
147
 
126
148
 
func keyBlocked () = "contractsBlocked"
127
149
 
128
150
 
129
-
let KSALLOWWLGOLD = false
151
+
let KSALLOWWLGOLD = true
130
152
 
131
153
 
let chain = take(drop(this.bytes, 1), 1)
132
154
 
133
155
 
let usdtAssetId = match chain {
134
156
 
    case _ => 
135
157
 
        if ((base58'2W' == $match0))
136
158
 
            then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
137
159
 
            else if ((base58'2T' == $match0))
138
160
 
                then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
139
161
 
                else throw("Unknown chain")
140
162
 
}
141
163
 
142
164
 
let defaultRestAddressStr = match chain {
143
165
 
    case _ => 
144
166
 
        if ((base58'2W' == $match0))
145
167
 
            then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
146
168
 
            else if ((base58'2T' == $match0))
147
169
 
                then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
148
170
 
                else throw("Unknown chain")
149
171
 
}
150
172
 
151
173
 
let arbitrageDelay = match chain {
152
174
 
    case _ => 
153
175
 
        if ((base58'2W' == $match0))
154
176
 
            then 600000
155
177
 
            else if ((base58'2T' == $match0))
156
178
 
                then 60000
157
179
 
                else throw("Unknown chain")
158
180
 
}
159
181
 
160
182
 
let SEP = "__"
161
183
 
162
184
 
let MULT6 = 1000000
163
185
 
164
186
 
let MULT8 = 100000000
165
-
166
-
let SSIZE = 25
167
-
168
-
let MSIZE = 100
169
-
170
-
let LSIZE = 225
171
-
172
-
let XLSIZE = 400
173
-
174
-
let XXLSIZE = 625
175
187
 
176
188
 
let MINSHOPPAYMENT = 100000
177
189
 
178
190
 
func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
179
191
 
180
192
 
181
193
 
let IdxCfgStakingDapp = 1
182
194
 
183
195
 
let IdxCfgEconomyDapp = 2
184
196
 
185
197
 
let IdxCfgGovernanceDapp = 3
186
198
 
187
199
 
let IdxCfgWlgDapp = 4
188
200
 
189
201
 
let IdxCfgPuzzlePoolDapp = 5
190
202
 
191
203
 
func keyRestCfg () = "%s__restConfig"
192
204
 
193
205
 
194
206
 
func keyRestAddress () = "%s__restAddr"
195
207
 
196
208
 
197
209
 
func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
198
210
 
199
211
 
200
212
 
func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
201
213
 
202
214
 
203
215
 
let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
204
216
 
205
217
 
let restCfg = readRestCfgOrFail(restContract)
206
218
 
207
219
 
let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
208
220
 
209
221
 
let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
210
222
 
211
223
 
let govContract = getContractAddressOrFail(restCfg, IdxCfgGovernanceDapp)
212
224
 
213
225
 
let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
214
226
 
215
227
 
let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
216
228
 
217
-
let recLandSize = 1
218
-
219
229
 
let wlgAssetIdKey = "wlg_assetId"
220
230
 
221
231
 
let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "Not initialized yet")
222
-
223
-
let IdxEffTotal = 0
224
232
 
225
233
 
let IdxEffUser = 1
226
234
 
227
235
 
func keyResProportions () = "resTypesProportions"
228
236
 
229
237
 
230
-
func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
238
+
func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
231
239
 
232
240
 
233
241
 
func asInt (v) = match v {
234
242
 
    case n: Int => 
235
243
 
        n
236
244
 
    case _ => 
237
245
 
        throw("fail to cast into Int")
238
-
}
239
-
240
-
241
-
func numPiecesBySize (landSize) = match landSize {
242
-
    case _ => 
243
-
        if (("S" == $match0))
244
-
            then SSIZE
245
-
            else if (("M" == $match0))
246
-
                then MSIZE
247
-
                else if (("L" == $match0))
248
-
                    then LSIZE
249
-
                    else if (("XL" == $match0))
250
-
                        then XLSIZE
251
-
                        else if (("XXL" == $match0))
252
-
                            then XXLSIZE
253
-
                            else throw("Unknown land size")
254
246
 
}
255
247
 
256
248
 
257
249
 
func getVotingPower (userAddrStrOrEmpty) = {
258
250
 
    let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
259
251
 
    func adder (acc,item) =     (acc + parseIntValue(item))
260
252
 
261
253
 
    let totalPower = {
262
254
 
        let $l = props
263
255
 
        let $s = size($l)
264
256
 
        let $acc0 = 0
265
257
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
266
258
 
            then $a
267
259
 
            else adder($a, $l[$i])
268
260
 
269
261
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
270
262
 
            then $a
271
263
 
            else throw("List size exceeds 6")
272
264
 
273
265
 
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
274
266
 
        }
275
-
    let usersPower = if ((userAddrStrOrEmpty == ""))
276
-
        then 0
277
-
        else {
278
-
            let landsStr = getString(stakingContract, keyStakedLandsByOwner(userAddrStrOrEmpty))
279
-
            let lands = if (isDefined(landsStr))
280
-
                then split_51C(value(landsStr), "_")
281
-
                else nil
282
-
            func oneLand (acc,landAssetId) =             {
283
-
                let asset = value(assetInfo(fromBase58String(landAssetId)))
284
-
                let landSize = split(asset.description, "_")[recLandSize]
285
-
                (acc + numPiecesBySize(landSize))
286
-
                }
287
-
288
-
            let $l = lands
289
-
            let $s = size($l)
290
-
            let $acc0 = 0
291
-
            func $f1_1 ($a,$i) =             if (($i >= $s))
292
-
                then $a
293
-
                else oneLand($a, $l[$i])
294
-
295
-
            func $f1_2 ($a,$i) =             if (($i >= $s))
296
-
                then $a
297
-
                else throw("List size exceeds 100")
298
-
299
-
            $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
300
-
            }
267
+
    let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
301
268
 
[totalPower, usersPower]
302
269
 
    }
303
270
 
304
271
 
305
272
 
func fixedPoint (val,decimals) = {
306
273
 
    let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
307
274
 
    ((toString((val / tenPow)) + ".") + toString((val % tenPow)))
308
275
 
    }
309
276
 
310
277
 
311
278
 
let A6 = 100000000
312
279
 
313
280
 
let B8 = 50000000
314
281
 
315
282
 
let profitAddrKey = "profitAddr"
316
283
 
317
284
 
func keyLastArbTimeByUser (addr) = ("lastArbTimeUser_" + addr)
318
285
 
319
286
 
320
287
 
let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
321
288
 
322
289
 
func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
323
290
 
324
291
 
325
292
 
func prolog () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
326
293
 
    then throw("Contracts are under maintenance")
327
294
 
    else asInt(invoke(stakingContract, "saveLastTx", nil, nil))
328
295
 
329
296
 
330
297
 
func getSwapLimit (addr) = {
331
298
 
    let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
332
299
 
    let now = lastBlock.timestamp
333
300
 
    if ((arbitrageDelay > (now - lastTime)))
334
301
 
        then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
335
302
 
        else {
336
303
 
            let pieces = getVotingPower(addr)[IdxEffUser]
337
304
 
            let pow8 = pow(pieces, 0, B8, 8, 8, CEILING)
338
305
 
            fraction(A6, pow8, MULT8)
339
306
 
            }
340
307
 
    }
341
308
 
342
309
 
343
310
 
func claimInternal (addr) = if (!(KSALLOWWLGOLD))
344
311
 
    then $Tuple2(nil, 0)
345
312
 
    else {
346
313
 
        let caller = addressFromStringValue(addr)
314
+
        let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract], usdtAssetId)
347
315
 
        let now = lastBlock.timestamp
348
-
        let issueTime = valueOrErrorMessage(getInteger(wlgIssueTimeKey), "Not initialized")
349
-
        let marketingTotal = fraction(MILLION6, MARKETINGSHARE, MULT6)
350
-
        let marketingAmountLeft = valueOrElse(getInteger(marketingAmountLeftKey), marketingTotal)
351
-
        let lastMarketingTime = valueOrElse(getInteger(lastMarketingTimeKey), issueTime)
352
-
        let marketingAddr = addressFromStringValue(value(getString(marketingAddrKey)))
353
-
        let marketingAmount = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
354
-
        let teamTotal = fraction(MILLION6, TEAMSHARE, MULT6)
355
-
        let teamAmountLeft = valueOrElse(getInteger(teamAmountLeftKey), teamTotal)
356
-
        let lastTeamTime = valueOrElse(getInteger(lastTeamTimeKey), issueTime)
357
-
        let teamAddr = addressFromStringValue(value(getString(teamAddrKey)))
358
-
        let teamAmount = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
359
-
        let actTotal = fraction(MILLION6, ACTIVITYSHARE, MULT6)
360
-
        let actAmountLeft = valueOrElse(getInteger(actAmountLeftKey), actTotal)
361
-
        let lastActivitiesTime = valueOrElse(getInteger(lastActivitiesTimeKey), issueTime)
362
-
        let actAmount = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
363
-
        let curPeriod = ((now - issueTime) / WEEKMILLIS)
364
-
        if ((curPeriod > (MAXPERIOD / 2)))
316
+
        let issueTime = curStats[idxWlgIssueTime]
317
+
        let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
318
+
        let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
319
+
        let teamAmountLeft = curStats[idxWlgTeamAmLeft]
320
+
        let teamAmount = curStats[idxWlgTeamAmAvailNow]
321
+
        let actAmountLeft = curStats[idxWlgActAmLeft]
322
+
        let actAmount = curStats[idxWlgActAmAvailNow]
323
+
        let userTimeKey = keyLastClaimedTimeByUser(addr)
324
+
        if ((curStats[idxWlgCurPeriod] > (MAXPERIOD / 2)))
365
325
 
            then throw("Please modify contract for next 1.5 years, according to stats")
366
326
 
            else {
367
-
                let eff = getVotingPower(addr)
368
-
                let totalPieces = eff[IdxEffTotal]
369
-
                let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
370
-
                let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - curPeriod))))
371
-
                let userTimeKey = keyLastClaimedTimeByUser(addr)
372
-
                let lastUserTime = valueOrElse(getInteger(userTimeKey), issueTime)
373
-
                let userAmount = fraction(fraction(curPeriodDistribution, eff[IdxEffUser], totalPieces), (now - lastUserTime), (3 * YEARMILLIS))
327
+
                let amountLeftTotal = curStats[idxWlgAmLeftTotal]
328
+
                let userAmount = curStats[idxWlgUserAmAvailNow]
374
329
 
                let userKey = keyStakersAmountPaidUser(addr)
375
-
                $Tuple2([ScriptTransfer(marketingAddr, marketingAmount, wlgAssetId), ScriptTransfer(teamAddr, teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (amountLeftTotal - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(userTimeKey, now)], userAmount)
330
+
                $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (amountLeftTotal - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(userTimeKey, now)], userAmount)
376
331
 
                }
377
332
 
        }
378
333
 
379
334
 
380
335
 
@Callable(i)
381
336
 
func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
382
337
 
    then throw("Permission denied")
383
338
 
    else if (isDefined(getBinary(wlgAssetIdKey)))
384
339
 
        then throw("Already initialized")
385
340
 
        else {
386
341
 
            let issuedAmount = MILLION6
387
342
 
            let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
388
343
 
            let assetId = calculateAssetId(issue)
389
344
 
[issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MILLION6, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
390
345
 
            }
391
346
 
392
347
 
393
348
 
394
349
 
@Callable(i)
395
350
 
func buyWlg (minAmount) = if (!(KSALLOWWLGOLD))
396
351
 
    then $Tuple2(nil, 0)
397
352
 
    else {
398
353
 
        let prologResult = prolog()
399
354
 
        if ((size(i.payments) != 1))
400
355
 
            then throw("exactly 1 payment must be attached")
401
356
 
            else {
402
357
 
                let pmt = i.payments[0]
403
358
 
                let usdtAmt = pmt.amount
404
359
 
                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
405
360
 
                if ((pmtAssetId != usdtAssetId))
406
361
 
                    then throw("USDT payments only!")
407
362
 
                    else {
408
363
 
                        let caller = i.caller
409
364
 
                        let addr = toString(caller)
410
365
 
                        let maxUsdt = getSwapLimit(addr)
411
366
 
                        if ((usdtAmt > maxUsdt))
412
367
 
                            then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
413
368
 
                            else if ((MINSHOPPAYMENT > usdtAmt))
414
369
 
                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
415
370
 
                                else {
416
371
 
                                    let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract], usdtAssetId)
417
372
 
                                    let curWlgAmount = curStats[idxWlgAmount]
418
373
 
                                    let oldFundsUsd = (curStats[idxWlgFunds] - usdtAmt)
419
374
 
                                    let wlgPrice = fraction(oldFundsUsd, MULT8, curWlgAmount)
420
375
 
                                    let buyPrice = fraction(wlgPrice, 6, 5)
421
376
 
                                    let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
422
377
 
                                    if ((minAmount > wlgAmount))
423
378
 
                                        then throw("Price changed during operation, please try again")
424
379
 
                                        else {
425
380
 
                                            let profitAmount = (usdtAmt / 6)
426
381
 
                                            let deltaFunds = (usdtAmt - profitAmount)
427
382
 
                                            let reissued = fraction(curWlgAmount, deltaFunds, oldFundsUsd)
428
383
 
                                            $Tuple2([Reissue(wlgAssetId, reissued, true), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount + reissued)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, wlgAmount, wlgAssetId)], prologResult)
429
384
 
                                            }
430
385
 
                                    }
431
386
 
                        }
432
387
 
                }
433
388
 
        }
434
389
 
435
390
 
436
391
 
437
392
 
@Callable(i)
438
393
 
func sellWlg (minAmount) = if (!(KSALLOWWLGOLD))
439
394
 
    then $Tuple2(nil, 0)
440
395
 
    else {
441
396
 
        let prologResult = prolog()
442
397
 
        if ((size(i.payments) != 1))
443
398
 
            then throw("exactly 1 payment must be attached")
444
399
 
            else {
445
400
 
                let pmt = i.payments[0]
446
401
 
                let wlgAmt = pmt.amount
447
402
 
                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
448
403
 
                if ((pmtAssetId != wlgAssetId))
449
404
 
                    then throw("WLGOLD payments only!")
450
405
 
                    else {
451
406
 
                        let caller = i.caller
452
407
 
                        let addr = toString(caller)
453
408
 
                        let maxUsdt = getSwapLimit(addr)
454
409
 
                        let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract], usdtAssetId)
455
410
 
                        let curWlgAmount = curStats[idxWlgAmount]
456
411
 
                        let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
457
412
 
                        let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
458
413
 
                        if ((usdtAmt > maxUsdt))
459
414
 
                            then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
460
415
 
                            else if ((MINSHOPPAYMENT > usdtAmt))
461
416
 
                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
462
417
 
                                else if ((minAmount > usdtAmt))
463
418
 
                                    then throw("Price changed during operation, please try again")
464
419
 
                                    else {
465
420
 
                                        let profitAmount = (usdtAmt / 4)
466
421
 
                                        let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
467
422
 
                                        $Tuple2([Burn(wlgAssetId, burned), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - burned)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
468
423
 
                                        }
469
424
 
                        }
470
425
 
                }
471
426
 
        }
472
427
 
473
428
 
474
429
 
475
430
 
@Callable(i)
476
431
 
func claim () = {
477
432
 
    let prologResult = prolog()
478
433
 
    let actions = claimInternal(toString(i.caller))._1
479
434
 
    $Tuple2(actions, prologResult)
480
435
 
    }
481
436
 
482
437
 
483
438
 
484
439
 
@Callable(i)
485
440
 
func onStakeLand (addr) = if ((i.caller != stakingContract))
486
441
 
    then throw("Permission denied")
487
442
 
    else claimInternal(addr)
488
443
 
489
444
 
490
445
 
491
446
 
@Callable(i)
492
447
 
func onUnstakeLand (addr) = if ((i.caller != stakingContract))
493
448
 
    then throw("Permission denied")
494
449
 
    else claimInternal(addr)
495
450
 
496
451
 

github/deemru/w8io/026f985 
72.93 ms ◑