tx · HkPtCtUYcUgZgtKwX1LVXL4MbBErqrM6ozemr7cY8ABo

3PD1sd55PYzmGUrQ896Qt3uvdbtgjCVpajE:  -0.00300000 Waves

2022.08.02 23:19 [3232851] smart account 3PD1sd55PYzmGUrQ896Qt3uvdbtgjCVpajE > SELF 0.00000000 Waves

{ "type": 13, "id": "HkPtCtUYcUgZgtKwX1LVXL4MbBErqrM6ozemr7cY8ABo", "fee": 300000, "feeAssetId": null, "timestamp": 1659471608238, "version": 2, "chainId": 87, "sender": "3PD1sd55PYzmGUrQ896Qt3uvdbtgjCVpajE", "senderPublicKey": "GokNVLddb43BhUkdo2fpeMvk9yczRjnasz6pFVha7u1n", "proofs": [ "5GsqXbcekuTpUWhKs7nJjReNnqBBw48DEsVhXSaxfeMfLW94JcpWKrWgWg2bHHNwv2Z4NVbwzSmFXeJavX6wDxDx" ], "script": "base64:BgIGCAISABIABwAQY3JlYXRlTkZUQWRkcmVzcwkBB0FkZHJlc3MBARoBV5PdxNIX5yAK/fchEk7w8HZnJoMDeNRcTAATem9tYmllSXNzdWVyQWRkcmVzcwkBB0FkZHJlc3MBARoBVzwia2+DPLzn0NsAUzuxeI+PJBHmuBOukwAScHVua3NJc3N1ZXJBZGRyZXNzCQEHQWRkcmVzcwEBGgFXS+xPjera0gSnSXFRUVq2krtB1F+FwuxoAQ9pc1ZhbGlkTmZ0QXNzZXQBBWFzc2V0AwMJAAACCAUFYXNzZXQIZGVjaW1hbHMAAAkAAAIIBQVhc3NldApyZWlzc3VhYmxlBwcJAAACCAUFYXNzZXQIcXVhbnRpdHkAAQcBEmlzV2F2ZXNQdW5rc0lzc3VlcgEFYXNzZXQEByRtYXRjaDAJAM8IAgkAzAgCBRN6b21iaWVJc3N1ZXJBZGRyZXNzCQDMCAIFEnB1bmtzSXNzdWVyQWRkcmVzcwUDbmlsCAUFYXNzZXQGaXNzdWVyAwkAAQIFByRtYXRjaDACA0ludAQBeAUHJG1hdGNoMAYHAQp2YWx1ZUJ5S2V5AgRkYXRhA2tleQoBBGZpbmQCBWFjY3VtBG5leHQDCQEIY29udGFpbnMCBQRuZXh0CQCsAgIFA2tleQICOiAJALMCAgkAsAICCQCRAwIJALUJAgUEbmV4dAICOiAAAQABAAEFBWFjY3VtCgACJGwFBGRhdGEKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBGZpbmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAQ9nZXRJc3N1ZXJQYXJhbXMBBWFzc2V0BApwYXJzZWREYXRhCQC1CQIJALMCAgkAsAICCAUFYXNzZXQLZGVzY3JpcHRpb24AAQABAgIsIAMJAAACCAUFYXNzZXQGaXNzdWVyBRJwdW5rc0lzc3VlckFkZHJlc3MJAMwIAggFBWFzc2V0BG5hbWUJAMwIAgJIV0FWRVMgUFVOS1MgaXMgdGhlIGZpcnN0IGNvbGxlY3Rpb24gb2YgZGlnaXRhbCBwdW5rcyBvbiBXYXZlcyBibG9ja2NoYWluCQDMCAIJAQp2YWx1ZUJ5S2V5AgUKcGFyc2VkRGF0YQIDdXJsCQDMCAICCldhdmVzUHVua3MFA25pbAMJAAACCAUFYXNzZXQGaXNzdWVyBRJwdW5rc0lzc3VlckFkZHJlc3MJAMwIAggFBWFzc2V0BG5hbWUJAMwIAgI+U2Vjb25kIENoYXB0ZXIgb2YgdGhlIGZpcnN0LWV2ZXIgTkZULXB1bmtzIG9uIFdBVkVTIGJsb2NrY2hhaW4JAMwIAgkBCnZhbHVlQnlLZXkCBQpwYXJzZWREYXRhAgN1cmwJAMwIAgIRV2F2ZXNQdW5rcyBab21iaWUFA25pbAkAAgECGVdyb25nIE5GVCBhc3NldCBmb3IgaXNzdWUCAWkBBGxvY2sABAphZGRyZXNzU3RyCQClCAEIBQFpBmNhbGxlcgQHYXNzZXRJZAkBBXZhbHVlAQgJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBAVhc3NldAkBBXZhbHVlAQkA7AcBBQdhc3NldElkBAlhc3NldERlc2MIBQVhc3NldAtkZXNjcmlwdGlvbgMDAwkAAAIICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAEJAQ9pc1ZhbGlkTmZ0QXNzZXQBBQVhc3NldAcJARJpc1dhdmVzUHVua3NJc3N1ZXIBBQVhc3NldAcEC2lzc3VlUGFyYW1zCQEPZ2V0SXNzdWVyUGFyYW1zAQUFYXNzZXQEDmZha2VJc3N1ZUlkU3RyBAckbWF0Y2gwCQD8BwQFEGNyZWF0ZU5GVEFkZHJlc3MCCWNyZWF0ZU5GVAULaXNzdWVQYXJhbXMFA25pbAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAitTb21ldGhpbmcgd2VudCB3cm9uZyBkdXJpbmcgY3JlYXRpb24gb2YgTkZUAwkAAAIFDmZha2VJc3N1ZUlkU3RyBQ5mYWtlSXNzdWVJZFN0cgkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEFDmZha2VJc3N1ZUlkU3RyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICAgRuZnRfBQ5mYWtlSXNzdWVJZFN0cgIIX2Fzc2V0SWQJANgEAQgFBWFzc2V0AmlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICAgRuZnRfBQ5mYWtlSXNzdWVJZFN0cgIHX2NhbGxlcgUKYWRkcmVzc1N0cgUDbmlsBQ5mYWtlSXNzdWVJZFN0cgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECE0l2YWxpZCBORlQgYXR0YWNoZWQBaQEGdW5sb2NrAAQKYWRkcmVzc1N0cgkApQgBCAUBaQZjYWxsZXIEB2Fzc2V0SWQJAQV2YWx1ZQEICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAQNY2FsbGVyQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwkArAICCQCsAgICBG5mdF8JANgEAQUHYXNzZXRJZAIHX2NhbGxlcgQVb3JpZ2luYWxOZnRBc3NldElkU3RyCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzCQCsAgIJAKwCAgIEbmZ0XwkA2AQBBQdhc3NldElkAghfYXNzZXRJZAQIbmZ0QXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAMDAwkAAAIICQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAEJAQ9pc1ZhbGlkTmZ0QXNzZXQBBQhuZnRBc3NldAcJAAACBQphZGRyZXNzU3RyBQ1jYWxsZXJBZGRyZXNzBwQHaW52QnVybgkA/AcEBRBjcmVhdGVORlRBZGRyZXNzAgdidXJuTkZUBQNuaWwJAMwIAgkAkQMCCAUBaQhwYXltZW50cwAABQNuaWwDCQAAAgUHaW52QnVybgUHaW52QnVybgkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEFFW9yaWdpbmFsTmZ0QXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgIEbmZ0XwkA2AQBBQdhc3NldElkAghfYXNzZXRJZAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgIEbmZ0XwkA2AQBBQdhc3NldElkAgdfY2FsbGVyBQNuaWwFFW9yaWdpbmFsTmZ0QXNzZXRJZFN0cgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECE0l2YWxpZCBORlQgYXR0YWNoZWQBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5ypzS2g==", "height": 3232851, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: none Next: 4pkbkwaK68pN1EwBJjpYjS7ViRTxeuEcR8FYqKLZngBQ Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let createNFTAddress = Address(base58'3PFQjjDMiZKQZdu5JqTHD7HwgSXyp9Rw9By')
5+
6+let zombieIssuerAddress = Address(base58'3P7QrWH1ETLfKAJcFHYPJmQusNbDuW98Hop')
7+
8+let punksIssuerAddress = Address(base58'3P8rLVnwrTf4k5AB3emuduhZZb1yKcitTHy')
9+
10+func isValidNftAsset (asset) = if (if ((asset.decimals == 0))
11+ then (asset.reissuable == false)
12+ else false)
13+ then (asset.quantity == 1)
14+ else false
15+
16+
17+func isWavesPunksIssuer (asset) = match indexOf([zombieIssuerAddress, punksIssuerAddress], asset.issuer) {
18+ case x: Int =>
19+ true
20+ case _ =>
21+ false
22+}
23+
24+
25+func valueByKey (data,key) = {
26+ func find (accum,next) = if (contains(next, (key + ": ")))
27+ then dropRight(drop(split(next, ": ")[1], 1), 1)
28+ else accum
29+
30+ let $l = data
31+ let $s = size($l)
32+ let $acc0 = ""
33+ func $f0_1 ($a,$i) = if (($i >= $s))
34+ then $a
35+ else find($a, $l[$i])
36+
37+ func $f0_2 ($a,$i) = if (($i >= $s))
38+ then $a
39+ else throw("List size exceeds 5")
40+
41+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
42+ }
43+
44+
45+func getIssuerParams (asset) = {
46+ let parsedData = split(dropRight(drop(asset.description, 1), 1), ", ")
47+ if ((asset.issuer == punksIssuerAddress))
48+ then [asset.name, "WAVES PUNKS is the first collection of digital punks on Waves blockchain", valueByKey(parsedData, "url"), "WavesPunks"]
49+ else if ((asset.issuer == punksIssuerAddress))
50+ then [asset.name, "Second Chapter of the first-ever NFT-punks on WAVES blockchain", valueByKey(parsedData, "url"), "WavesPunks Zombie"]
51+ else throw("Wrong NFT asset for issue")
52+ }
53+
54+
55+@Callable(i)
56+func lock () = {
57+ let addressStr = toString(i.caller)
58+ let assetId = value(value(i.payments[0]).assetId)
59+ let asset = value(assetInfo(assetId))
60+ let assetDesc = asset.description
61+ if (if (if ((value(i.payments[0]).amount == 1))
62+ then isValidNftAsset(asset)
63+ else false)
64+ then isWavesPunksIssuer(asset)
65+ else false)
66+ then {
67+ let issueParams = getIssuerParams(asset)
68+ let fakeIssueIdStr = match invoke(createNFTAddress, "createNFT", issueParams, nil) {
69+ case s: String =>
70+ s
71+ case _ =>
72+ throw("Something went wrong during creation of NFT")
73+ }
74+ if ((fakeIssueIdStr == fakeIssueIdStr))
75+ then $Tuple2([ScriptTransfer(i.caller, 1, fromBase58String(fakeIssueIdStr)), StringEntry((("nft_" + fakeIssueIdStr) + "_assetId"), toBase58String(asset.id)), StringEntry((("nft_" + fakeIssueIdStr) + "_caller"), addressStr)], fakeIssueIdStr)
76+ else throw("Strict value is not equal to itself.")
77+ }
78+ else throw("Ivalid NFT attached")
79+ }
80+
81+
82+
83+@Callable(i)
84+func unlock () = {
85+ let addressStr = toString(i.caller)
86+ let assetId = value(value(i.payments[0]).assetId)
87+ let callerAddress = getStringValue(this, (("nft_" + toBase58String(assetId)) + "_caller"))
88+ let originalNftAssetIdStr = getStringValue(this, (("nft_" + toBase58String(assetId)) + "_assetId"))
89+ let nftAsset = value(assetInfo(assetId))
90+ if (if (if ((value(i.payments[0]).amount == 1))
91+ then isValidNftAsset(nftAsset)
92+ else false)
93+ then (addressStr == callerAddress)
94+ else false)
95+ then {
96+ let invBurn = invoke(createNFTAddress, "burnNFT", nil, [i.payments[0]])
97+ if ((invBurn == invBurn))
98+ then $Tuple2([ScriptTransfer(i.caller, 1, fromBase58String(originalNftAssetIdStr)), DeleteEntry((("nft_" + toBase58String(assetId)) + "_assetId")), DeleteEntry((("nft_" + toBase58String(assetId)) + "_caller"))], originalNftAssetIdStr)
99+ else throw("Strict value is not equal to itself.")
100+ }
101+ else throw("Ivalid NFT attached")
102+ }
103+
104+
105+@Verifier(tx)
106+func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
107+

github/deemru/w8io/3ef1775 
21.53 ms