tx · CQkYnqzadwS3gXS8PtokDHfb6iYYGgtffTH5fKV81C2R

3MzcHAM4DcpYKt1ZAMibQmqU69pKQ6qz3i4:  -0.00300000 Waves

2023.03.26 00:22 [2506055] smart account 3MzcHAM4DcpYKt1ZAMibQmqU69pKQ6qz3i4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CQkYnqzadwS3gXS8PtokDHfb6iYYGgtffTH5fKV81C2R",
    "fee": 300000,
    "feeAssetId": null,
    "timestamp": 1679779347971,
    "version": 2,
    "chainId": 84,
    "sender": "3MzcHAM4DcpYKt1ZAMibQmqU69pKQ6qz3i4",
    "senderPublicKey": "DoAid1WtwHRuonKq6xKkbxijk1QQhXG75vdyuUM7n7NN",
    "proofs": [
        "46oX2ygbgqgJV7C7kRdqmEapg4ofabtPuvtnDWibu8gdAxD7C7k3RDEXzH3Dna3vgaeVnuJpKxtJ7ov9i1qtVkbv"
    ],
    "script": "base64:BgIOCAISBAoCCAgSABIAEgASAAZhZG1pbjECLEYxeWpEZGhvV2N0R1A5eW1HckJrVGROSG1FZlBxdk10aUNGWG1ON2lYTmdyAAZhZG1pbjICAAAKcHV6emxlTWludAIjM1BGUWpqRE1pWktRWmR1NUpxVEhEN0h3Z1NYeXA5Unc5QnkAFmtleV9mYXJtTmZ0X25leHROdW1iZXICEmZhcm1OZnRfbmV4dE51bWJlcgAQa2V5X2Zhcm1OZnRfbmFtZQIMZmFybU5mdF9uYW1lABdrZXlfZmFybU5mdF9kZXNjcmlwdGlvbgITZmFybU5mdF9kZXNjcmlwdGlvbgAWa2V5X2Zhcm1OZnRfY29sbGVjdGlvbgISZmFybU5mdF9jb2xsZWN0aW9uABFrZXlfZmFybU5mdF9pbWFnZQINZmFybU5mdF9pbWFnZQAPa2V5X2Nvd05mdF9uYW1lAgtjb3dOZnRfbmFtZQAWa2V5X2Nvd05mdF9kZXNjcmlwdGlvbgISY293TmZ0X2Rlc2NyaXB0aW9uABVrZXlfY293TmZ0X2NvbGxlY3Rpb24CEWNvd05mdF9jb2xsZWN0aW9uABBrZXlfY293TmZ0X2ltYWdlAgxjb3dOZnRfaW1hZ2UABGxpdmUCBkFDVElWRQAEZGVhZAIISU5BQ1RJVkUABmZhdHRlbgIGRkFUVEVOAQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQx0cnlHZXRTdHJpbmcBA2tleQQHJG1hdGNoMAkAnQgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFhBQckbWF0Y2gwBQFhAgABBWFsbG93AQljYWxsZXJQYmsDAwkAAAIFCWNhbGxlclBiawUGYWRtaW4xBgkAAAIFCWNhbGxlclBiawUGYWRtaW4yBgcEAWkBDHJlZ2lzdGVyRmFybQIHYWRkcmVzcwZwYXJhbXMECWNhbGxlclBiawkA2AQBCAUBaQ9jYWxsZXJQdWJsaWNLZXkDCQEFYWxsb3cBBQljYWxsZXJQYmsECXJlY2lwaWVudAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwQFcF9hcnIJALwJAgUGcGFyYW1zAgF8BAskdDAxNzQ0MTc5NQkAlAoCCQCRAwIFBXBfYXJyAAAJAJEDAgUFcF9hcnIAAQQIZmFybU5hbWUIBQskdDAxNzQ0MTc5NQJfMQQMZmFybUxvY2F0aW9uCAULJHQwMTc0NDE3OTUCXzIEB25leHROdW0JAQ10cnlHZXRJbnRlZ2VyAQUWa2V5X2Zhcm1OZnRfbmV4dE51bWJlcgMJAAACBQduZXh0TnVtBQduZXh0TnVtBAtmYXJtTmZ0TmFtZQkArAICCQEMdHJ5R2V0U3RyaW5nAQUQa2V5X2Zhcm1OZnRfbmFtZQkApAMBBQduZXh0TnVtBBJmYXJtTmZ0RGVzY3JpcHRpb24JAQx0cnlHZXRTdHJpbmcBBRdrZXlfZmFybU5mdF9kZXNjcmlwdGlvbgQRZmFybU5mdENvbGxlY3Rpb24JAQx0cnlHZXRTdHJpbmcBBRZrZXlfZmFybU5mdF9jb2xsZWN0aW9uBAxmYXJtTmZ0SW1hZ2UJAQx0cnlHZXRTdHJpbmcBBRFrZXlfZmFybU5mdF9pbWFnZQQHYXNzZXRJZAoAAUAJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUKcHV6emxlTWludAIEbWludAkAzAgCBQtmYXJtTmZ0TmFtZQkAzAgCBRJmYXJtTmZ0RGVzY3JpcHRpb24JAMwIAgURZmFybU5mdENvbGxlY3Rpb24JAMwIAgUMZmFybU5mdEltYWdlCQDMCAIFDGZhcm1OZnRJbWFnZQkAzAgCAAEJAMwIAgIACQDMCAICAAkAzAgCAgAFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQdhc3NldElkBQdhc3NldElkCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUJcmVjaXBpZW50AAEJANkEAQUHYXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUWa2V5X2Zhcm1OZnRfbmV4dE51bWJlcgkAZAIFB25leHROdW0AAQkAzAgCCQEMQm9vbGVhbkVudHJ5AgkArAICCQCsAgICBWZhcm1fBQdhZGRyZXNzAgdfc3RhdHVzBgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgIFZmFybV8FB2FkZHJlc3MCBV9uYW1lBQhmYXJtTmFtZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgIFZmFybV8FB2FkZHJlc3MCCV9sb2NhdGlvbgUMZmFybUxvY2F0aW9uBQNuaWwJAJUKAwUHbmV4dE51bQUIZmFybU5hbWUFDGZhcm1Mb2NhdGlvbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECEk5vdCBhbGxvd2VkIGNhbGxlcgFpAQR0ZXN0AAQBcgoAAUAJAPwHBAUEdGhpcwIEbWludAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFAXIFAXIDBgkAAgEFAXIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQRtaW50AAkAlAoCBQNuaWwAKgFpAQRpbml0AAQJY2FsbGVyUGJrCQDYBAEIBQFpD2NhbGxlclB1YmxpY0tleQMJAQVhbGxvdwEFCWNhbGxlclBiawQHbmV4dE51bQkBDXRyeUdldEludGVnZXIBBRZrZXlfZmFybU5mdF9uZXh0TnVtYmVyAwkBAiE9AgUHbmV4dE51bQAACQACAQIfQ29udHJhY3QgaXMgYWxyZWFkeSBpbml0aWFsaXplZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUWa2V5X2Zhcm1OZnRfbmV4dE51bWJlcgABBQNuaWwJAAIBAhJOb3QgYWxsb3dlZCBjYWxsZXIAP3t+hQ==",
    "height": 2506055,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CKFKmjvtTnEe31yRSn5H1SzxAjxBzit113sNyGDSD2VB
Next: 6VwaZBNge2Ak9cAyudwShLrkKDHLhDhWW9kkpma6qomA

Diff: 
Old
New
Differences
5
5
 
6
6
 
let admin2 = ""
7
7
 
8
+
let puzzleMint = "3PFQjjDMiZKQZdu5JqTHD7HwgSXyp9Rw9By"
9
+
8
10
 
let key_farmNft_nextNumber = "farmNft_nextNumber"
9
11
 
10
-
let farmNft_name = "Cattle NFT "
12
+
let key_farmNft_name = "farmNft_name"
11
13
 
12
-
let cowNft_name = "Cow NFT"
14
+
let key_farmNft_description = "farmNft_description"
13
15
 
14
-
let farmNft_description = "{\"description\": \"NFT for assotiated cattle\", \"image\": \""
16
+
let key_farmNft_collection = "farmNft_collection"
17
+
18
+
let key_farmNft_image = "farmNft_image"
19
+
20
+
let key_cowNft_name = "cowNft_name"
21
+
22
+
let key_cowNft_description = "cowNft_description"
23
+
24
+
let key_cowNft_collection = "cowNft_collection"
25
+
26
+
let key_cowNft_image = "cowNft_image"
15
27
 
16
28
 
let live = "ACTIVE"
17
29
 
49
61
 
        then {
50
62
 
            let recipient = addressFromStringValue(address)
51
63
 
            let p_arr = split_4C(params, "|")
52
-
            let $t014961568 = $Tuple3(p_arr[0], p_arr[1], p_arr[2])
53
-
            let farmName = $t014961568._1
54
-
            let farmLocation = $t014961568._2
55
-
            let imageLink = $t014961568._3
64
+
            let $t017441795 = $Tuple2(p_arr[0], p_arr[1])
65
+
            let farmName = $t017441795._1
66
+
            let farmLocation = $t017441795._2
56
67
 
            let nextNum = tryGetInteger(key_farmNft_nextNumber)
57
68
 
            if ((nextNum == nextNum))
58
69
 
                then {
59
-
                    let issue = Issue((farmNft_name + toString(nextNum)), ((farmNft_description + imageLink) + "\"}"), 1, 0, false)
60
-
                    let id = calculateAssetId(issue)
61
-
                    $Tuple2([issue, ScriptTransfer(recipient, 1, id), IntegerEntry(key_farmNft_nextNumber, (nextNum + 1)), BooleanEntry((("farm_" + address) + "_status"), true), StringEntry((("farm_" + address) + "_name"), farmName), StringEntry((("farm_" + address) + "_location"), farmLocation)], $Tuple4(nextNum, farmName, farmLocation, imageLink))
70
+
                    let farmNftName = (tryGetString(key_farmNft_name) + toString(nextNum))
71
+
                    let farmNftDescription = tryGetString(key_farmNft_description)
72
+
                    let farmNftCollection = tryGetString(key_farmNft_collection)
73
+
                    let farmNftImage = tryGetString(key_farmNft_image)
74
+
                    let assetId = {
75
+
                        let @ = invoke(addressFromStringValue(puzzleMint), "mint", [farmNftName, farmNftDescription, farmNftCollection, farmNftImage, farmNftImage, 1, "", "", ""], nil)
76
+
                        if ($isInstanceOf(@, "String"))
77
+
                            then @
78
+
                            else throw(($getType(@) + " couldn't be cast to String"))
79
+
                        }
80
+
                    if ((assetId == assetId))
81
+
                        then $Tuple2([ScriptTransfer(recipient, 1, fromBase58String(assetId)), IntegerEntry(key_farmNft_nextNumber, (nextNum + 1)), BooleanEntry((("farm_" + address) + "_status"), true), StringEntry((("farm_" + address) + "_name"), farmName), StringEntry((("farm_" + address) + "_location"), farmLocation)], $Tuple3(nextNum, farmName, farmLocation))
82
+
                        else throw("Strict value is not equal to itself.")
62
83
 
                    }
63
84
 
                else throw("Strict value is not equal to itself.")
64
85
 
            }
68
89
 
69
90
 
70
91
 
@Callable(i)
71
-
func registerCow (address,params) = {
72
-
    let callerPbk = toBase58String(i.callerPublicKey)
73
-
    if (allow(callerPbk))
74
-
        then {
75
-
            let recipient = addressFromStringValue(address)
76
-
            let p_arr = split_4C(params, params)
77
-
            let $t026742823 = $Tuple7(p_arr[0], p_arr[1], p_arr[2], p_arr[3], p_arr[4], p_arr[5], p_arr[6])
78
-
            let cowCode = $t026742823._1
79
-
            let bornedFarmAddress = $t026742823._2
80
-
            let genes = $t026742823._3
81
-
            let motherId = $t026742823._4
82
-
            let fatherId = $t026742823._5
83
-
            let type = $t026742823._6
84
-
            let imageLink = $t026742823._7
85
-
            let description = (((((((((((((("{\"cowCode\": \"" + cowCode) + "\", \"bornedFarmAddress\": \"") + bornedFarmAddress) + "\", \"genes\": \"") + genes) + "\", \"motherId\": \"") + motherId) + "\", \"fatherId\": \"") + fatherId) + "\", \"type\": \"") + type) + "\", \"imageLink\": \"") + imageLink) + "\"")
86
-
            let issue = Issue(cowNft_name, ((description + imageLink) + "\"}"), 1, 0, false)
87
-
            let id = calculateAssetId(issue)
88
-
[issue, ScriptTransfer(recipient, 1, id), StringEntry((((("farm_" + address) + "_cow_") + toBase58String(id)) + "_status"), live), StringEntry((("cow_" + toBase58String(id)) + "_owner"), address)]
89
-
            }
90
-
        else throw("Not allowed caller")
92
+
func test () = {
93
+
    let r = {
94
+
        let @ = invoke(this, "mint", nil, nil)
95
+
        if ($isInstanceOf(@, "String"))
96
+
            then @
97
+
            else throw(($getType(@) + " couldn't be cast to String"))
98
+
        }
99
+
    if ((r == r))
100
+
        then if (true)
101
+
            then throw(r)
102
+
            else nil
103
+
        else throw("Strict value is not equal to itself.")
91
104
 
    }
105
+
106
+
107
+
108
+
@Callable(i)
109
+
func mint () = $Tuple2(nil, 42)
92
110
 
93
111
 
94
112
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let admin1 = "F1yjDdhoWctGP9ymGrBkTdNHmEfPqvMtiCFXmN7iXNgr"
5
5
 
6
6
 
let admin2 = ""
7
7
 
8
+
let puzzleMint = "3PFQjjDMiZKQZdu5JqTHD7HwgSXyp9Rw9By"
9
+
8
10
 
let key_farmNft_nextNumber = "farmNft_nextNumber"
9
11
 
10
-
let farmNft_name = "Cattle NFT "
12
+
let key_farmNft_name = "farmNft_name"
11
13
 
12
-
let cowNft_name = "Cow NFT"
14
+
let key_farmNft_description = "farmNft_description"
13
15
 
14
-
let farmNft_description = "{\"description\": \"NFT for assotiated cattle\", \"image\": \""
16
+
let key_farmNft_collection = "farmNft_collection"
17
+
18
+
let key_farmNft_image = "farmNft_image"
19
+
20
+
let key_cowNft_name = "cowNft_name"
21
+
22
+
let key_cowNft_description = "cowNft_description"
23
+
24
+
let key_cowNft_collection = "cowNft_collection"
25
+
26
+
let key_cowNft_image = "cowNft_image"
15
27
 
16
28
 
let live = "ACTIVE"
17
29
 
18
30
 
let dead = "INACTIVE"
19
31
 
20
32
 
let fatten = "FATTEN"
21
33
 
22
34
 
func tryGetInteger (key) = match getInteger(this, key) {
23
35
 
    case b: Int => 
24
36
 
        b
25
37
 
    case _ => 
26
38
 
        0
27
39
 
}
28
40
 
29
41
 
30
42
 
func tryGetString (key) = match getString(this, key) {
31
43
 
    case a: String => 
32
44
 
        a
33
45
 
    case _ => 
34
46
 
        ""
35
47
 
}
36
48
 
37
49
 
38
50
 
func allow (callerPbk) = if (if ((callerPbk == admin1))
39
51
 
    then true
40
52
 
    else (callerPbk == admin2))
41
53
 
    then true
42
54
 
    else false
43
55
 
44
56
 
45
57
 
@Callable(i)
46
58
 
func registerFarm (address,params) = {
47
59
 
    let callerPbk = toBase58String(i.callerPublicKey)
48
60
 
    if (allow(callerPbk))
49
61
 
        then {
50
62
 
            let recipient = addressFromStringValue(address)
51
63
 
            let p_arr = split_4C(params, "|")
52
-
            let $t014961568 = $Tuple3(p_arr[0], p_arr[1], p_arr[2])
53
-
            let farmName = $t014961568._1
54
-
            let farmLocation = $t014961568._2
55
-
            let imageLink = $t014961568._3
64
+
            let $t017441795 = $Tuple2(p_arr[0], p_arr[1])
65
+
            let farmName = $t017441795._1
66
+
            let farmLocation = $t017441795._2
56
67
 
            let nextNum = tryGetInteger(key_farmNft_nextNumber)
57
68
 
            if ((nextNum == nextNum))
58
69
 
                then {
59
-
                    let issue = Issue((farmNft_name + toString(nextNum)), ((farmNft_description + imageLink) + "\"}"), 1, 0, false)
60
-
                    let id = calculateAssetId(issue)
61
-
                    $Tuple2([issue, ScriptTransfer(recipient, 1, id), IntegerEntry(key_farmNft_nextNumber, (nextNum + 1)), BooleanEntry((("farm_" + address) + "_status"), true), StringEntry((("farm_" + address) + "_name"), farmName), StringEntry((("farm_" + address) + "_location"), farmLocation)], $Tuple4(nextNum, farmName, farmLocation, imageLink))
70
+
                    let farmNftName = (tryGetString(key_farmNft_name) + toString(nextNum))
71
+
                    let farmNftDescription = tryGetString(key_farmNft_description)
72
+
                    let farmNftCollection = tryGetString(key_farmNft_collection)
73
+
                    let farmNftImage = tryGetString(key_farmNft_image)
74
+
                    let assetId = {
75
+
                        let @ = invoke(addressFromStringValue(puzzleMint), "mint", [farmNftName, farmNftDescription, farmNftCollection, farmNftImage, farmNftImage, 1, "", "", ""], nil)
76
+
                        if ($isInstanceOf(@, "String"))
77
+
                            then @
78
+
                            else throw(($getType(@) + " couldn't be cast to String"))
79
+
                        }
80
+
                    if ((assetId == assetId))
81
+
                        then $Tuple2([ScriptTransfer(recipient, 1, fromBase58String(assetId)), IntegerEntry(key_farmNft_nextNumber, (nextNum + 1)), BooleanEntry((("farm_" + address) + "_status"), true), StringEntry((("farm_" + address) + "_name"), farmName), StringEntry((("farm_" + address) + "_location"), farmLocation)], $Tuple3(nextNum, farmName, farmLocation))
82
+
                        else throw("Strict value is not equal to itself.")
62
83
 
                    }
63
84
 
                else throw("Strict value is not equal to itself.")
64
85
 
            }
65
86
 
        else throw("Not allowed caller")
66
87
 
    }
67
88
 
68
89
 
69
90
 
70
91
 
@Callable(i)
71
-
func registerCow (address,params) = {
72
-
    let callerPbk = toBase58String(i.callerPublicKey)
73
-
    if (allow(callerPbk))
74
-
        then {
75
-
            let recipient = addressFromStringValue(address)
76
-
            let p_arr = split_4C(params, params)
77
-
            let $t026742823 = $Tuple7(p_arr[0], p_arr[1], p_arr[2], p_arr[3], p_arr[4], p_arr[5], p_arr[6])
78
-
            let cowCode = $t026742823._1
79
-
            let bornedFarmAddress = $t026742823._2
80
-
            let genes = $t026742823._3
81
-
            let motherId = $t026742823._4
82
-
            let fatherId = $t026742823._5
83
-
            let type = $t026742823._6
84
-
            let imageLink = $t026742823._7
85
-
            let description = (((((((((((((("{\"cowCode\": \"" + cowCode) + "\", \"bornedFarmAddress\": \"") + bornedFarmAddress) + "\", \"genes\": \"") + genes) + "\", \"motherId\": \"") + motherId) + "\", \"fatherId\": \"") + fatherId) + "\", \"type\": \"") + type) + "\", \"imageLink\": \"") + imageLink) + "\"")
86
-
            let issue = Issue(cowNft_name, ((description + imageLink) + "\"}"), 1, 0, false)
87
-
            let id = calculateAssetId(issue)
88
-
[issue, ScriptTransfer(recipient, 1, id), StringEntry((((("farm_" + address) + "_cow_") + toBase58String(id)) + "_status"), live), StringEntry((("cow_" + toBase58String(id)) + "_owner"), address)]
89
-
            }
90
-
        else throw("Not allowed caller")
92
+
func test () = {
93
+
    let r = {
94
+
        let @ = invoke(this, "mint", nil, nil)
95
+
        if ($isInstanceOf(@, "String"))
96
+
            then @
97
+
            else throw(($getType(@) + " couldn't be cast to String"))
98
+
        }
99
+
    if ((r == r))
100
+
        then if (true)
101
+
            then throw(r)
102
+
            else nil
103
+
        else throw("Strict value is not equal to itself.")
91
104
 
    }
105
+
106
+
107
+
108
+
@Callable(i)
109
+
func mint () = $Tuple2(nil, 42)
92
110
 
93
111
 
94
112
 
95
113
 
@Callable(i)
96
114
 
func init () = {
97
115
 
    let callerPbk = toBase58String(i.callerPublicKey)
98
116
 
    if (allow(callerPbk))
99
117
 
        then {
100
118
 
            let nextNum = tryGetInteger(key_farmNft_nextNumber)
101
119
 
            if ((nextNum != 0))
102
120
 
                then throw("Contract is already initialized")
103
121
 
                else [IntegerEntry(key_farmNft_nextNumber, 1)]
104
122
 
            }
105
123
 
        else throw("Not allowed caller")
106
124
 
    }
107
125
 
108
126
 

github/deemru/w8io/026f985 
24.76 ms ◑