tx · EPK3kUQ7uHZsDDjJnoUz22BcTRewynzF1HRSYzreG89i

3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D:  -0.01000000 Waves

2022.12.12 02:54 [3421833] smart account 3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EPK3kUQ7uHZsDDjJnoUz22BcTRewynzF1HRSYzreG89i",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1670802914007,
    "version": 2,
    "chainId": 87,
    "sender": "3P2sk1KncSxRaZs8b4CWGPw2jkvvav74u4D",
    "senderPublicKey": "FHUpuxJwKFS6b8g1bFZnhamMkf5sT5zzAqgLfv1XzFcM",
    "proofs": [
        "G3BHiyKWEp4kwZ4LYmT1Ytg9fsNfxada7fUAmDpPsJv18hPDswkPKxE84hFUUwinHifztr5K3Spyt8zYAZEoD3f"
    ],
    "script": "base64:BgIPCAISBQoDAQEBEgQKAhERHgAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAAt1c2RuQXNzZXRJZAEgtiYpwwT1zlORpA5LdSQvZIxRsfrfr1QpvUjSHSqyqtEAC2JhY2tFbmRBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUEJLZXU3OHhkTnlhS3c1azJVYTZucHFlOE1SUWVnb3ExNwAPc3Rha2luZ0NvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUExuY1h0UzFVODNENmNRYkZEM0g4ckJIUExnenhTRktaMQAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGABNGQUNUT1JZTUFYV0FSRUhPVVNFAIDIr6AlABBSRVNPVVJDRVBSSUNFTUlOANXWCQAIcmVzVHlwZXMJAMwIAgIDT2lsCQDMCAICA09yZQkAzAgCAgRXb29kCQDMCAICBFNhbmQJAMwIAgIEQ2xheQkAzAgCAgdPcmdhbmljBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAglmYWN0b3J5SWQHcmVzVHlwZQkArAICCQCsAgIJAKwCAgIbZmFjdG9yeVdoQnlDb250aW5lbnRBbmRSZXNfBQlmYWN0b3J5SWQCAV8JAKQDAQUHcmVzVHlwZQERa2V5QXNzZXRJZFRvT3duZXIBB2Fzc2V0SWQJAKwCAgIJbmZ0T3duZXJfBQdhc3NldElkARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQdhc3NldElkCQCsAgICC3N0YWtlZFRpbWVfBQdhc3NldElkARRrZXlTdGFrZWREdWNrQnlPd25lcgEJb3duZXJBZGRyCQCsAgICEnN0YWtlZER1Y2tCeU93bmVyXwUJb3duZXJBZGRyARFrZXlCYWNrcGFja0J5RHVjawELZHVja0Fzc2V0SWQJAKwCAgIJYmFja1BhY2tfBQtkdWNrQXNzZXRJZAEPa2V5RHVja0xvY2F0aW9uAQtkdWNrQXNzZXRJZAkArAICAg1kdWNrTG9jYXRpb25fBQtkdWNrQXNzZXRJZAAHaWR4VHlwZQAAAAtpZHhRdWFudGl0eQABAAhpZHhQcmljZQACAA9sb2NJZHhDb250aW5lbnQAAAAKbG9jSWR4VHlwZQABAAhsb2NJZHhJZAACAApicElkeExldmVsAAAACGJwSWR4UmVzAAEACGJwSWR4TWF0AAIACWJwSWR4UHJvZAADAQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBBnN1YlJlcwMHcmVzTGlzdAdyZXNUeXBlBmFtb3VudAoBBnN1YmJlcgIDYWNjAWkJAM0IAgUDYWNjAwkAAAIFAWkFB3Jlc1R5cGUJAKQDAQkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFpBQZhbW91bnQJAJEDAgUHcmVzTGlzdAUBaQQBcgoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBnN1YmJlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgkAuQkCBQFyAgFfAQtidXlJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2RuUmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgACBRBSRVNPVVJDRVBSSUNFTUlOCQBrAwkAZAIFAncwCQBpAgUCcjAAAgUQUkVTT1VSQ0VQUklDRU1JTgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUFTVVMVDgJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkblJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZG5SZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZG5SZWNlaXZlZAIBaQEMc2VsbFJlc291cmNlAwdyZXNUeXBlBmFtb3VudAhtaW5QcmljZQMDCQBmAgAABQdyZXNUeXBlBgkAZwIFB3Jlc1R5cGUFBk5VTVJFUwkAAgEJAKwCAgISVW5rbm93biByZXNvdXJjZTogCQCkAwEFB3Jlc1R5cGUDCQBnAgAABQZhbW91bnQJAAIBCQCsAgICG0Ftb3VudCBzaG91bGQgYmUgcG9zaXRpdmUhIAkApAMBBQZhbW91bnQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECKnNlbGxSZXNvdXJjZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAtjdXJyZW50UGFjawkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQCDzA6MF8wXzBfMF8wXzA6OgIBOgQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQKY3VycmVudFJlcwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFB3Jlc1R5cGUDCQBmAgUGYW1vdW50BQpjdXJyZW50UmVzCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkApAMBBQpjdXJyZW50UmVzAgQgb2YgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAiAgaW4gYmFja3BhY2ssIGJ1dCB0cmllZCB0byBzZWxsIAkApAMBBQZhbW91bnQEAWIJAQtidXlJbnRlcm5hbAQJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBQdyZXNUeXBlBQZhbW91bnQFCG1pblByaWNlBAVicFJlcwkBBnN1YlJlcwMFB3Jlc0xpc3QFB3Jlc1R5cGUFBmFtb3VudAQHbmV3UGFjawkAuQkCCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCmJwSWR4TGV2ZWwJAMwIAgUFYnBSZXMJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsCQCUCgIJAMwIAggFAWICXzEJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCAUBYgJfMgULdXNkbkFzc2V0SWQFA25pbAUGcmVzdWx0AWkBDXNlbGxSZXNvdXJjZXMCCHJlc1R5cGVzCW1pblByaWNlcwQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIqc2VsbFJlc291cmNlcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzBAtjdXJMb2NhdGlvbgkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFC2R1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04CAV8DCQECIT0CCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlAgFGCQACAQkArAICAi1EdWNrIGxvY2F0aW9uIHR5cGUgc2hvdWxkIGJlIEZhY3RvcnksIGJ1dCBpcyAJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUEBWxvY0lkCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAQLY3VycmVudFBhY2sJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlCYWNrcGFja0J5RHVjawEFC2R1Y2tBc3NldElkAg8wOjBfMF8wXzBfMF8wOjoCAToEB3Jlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8KAQVhZGRlcgIDYWNjA2lkeAQBagkAzwgCBQhyZXNUeXBlcwUDaWR4AwkBCWlzRGVmaW5lZAEFAWoEAWIJAQtidXlJbnRlcm5hbAQFBWxvY0lkBQNpZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQNpZHgJAJEDAgUJbWluUHJpY2VzCQEFdmFsdWUBBQFqCQCVCgMJAM0IAggFA2FjYwJfMQgFAWICXzEJAM0IAggFA2FjYwJfMgIBMAkAZAIIBQNhY2MCXzMIBQFiAl8yCQCVCgMIBQNhY2MCXzEJAM0IAggFA2FjYwJfMgkAkQMCBQdyZXNMaXN0BQNpZHgIBQNhY2MCXzMEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQZtZXJnZWQCXzICAV8JAMwIAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kBQNuaWwCAToEBnJlc3VsdAkBCGFzU3RyaW5nAQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUJhY2twYWNrCQDMCAIFC2R1Y2tBc3NldElkCQDMCAIFB25ld1BhY2sFA25pbAUDbmlsCQCUCgIJAM0IAggFBm1lcmdlZAJfMQkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCAUGbWVyZ2VkAl8zBQt1c2RuQXNzZXRJZAUGcmVzdWx0AE5DprM=",
    "height": 3421833,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: A3wnHzspbDYUaYLcUQh3bBrBf2bCv3Haexj2cTNbAMEm
Next: 7y9ha72u9j5vjqZo1zH7nVircjib6c5Mum6K6WAj8XKv

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let MULT6 = 1000000
5+
46 let MULT8 = 100000000
57 
68 let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
79 
810 let backEndAddr = addressFromStringValue("3PBKeu78xdNyaKw5k2Ua6npqe8MRQegoq17")
911 
10-let allowedResources = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
12+let stakingContract = addressFromStringValue("3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1")
13+
14+let DEFAULTLOCATION = "Africa_F_Africa"
15+
16+let NUMRES = 6
17+
18+let FACTORYMAXWAREHOUSE = 10000000000
19+
20+let RESOURCEPRICEMIN = 158549
21+
22+let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
1123 
1224 let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
1325 
14-func keyStoreResByContinentAndType (continent,resType) = ((("storeResourceByContinentAndType_" + continent) + "_") + resType)
26+func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
27+
28+
29+func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
30+
31+
32+func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
33+
34+
35+func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
36+
37+
38+func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
39+
40+
41+func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
1542 
1643 
1744 let idxType = 0
2047 
2148 let idxPrice = 2
2249 
50+let locIdxContinent = 0
51+
52+let locIdxType = 1
53+
54+let locIdxId = 2
55+
56+let bpIdxLevel = 0
57+
58+let bpIdxRes = 1
59+
60+let bpIdxMat = 2
61+
62+let bpIdxProd = 3
63+
64+func asString (v) = match v {
65+    case s: String => 
66+        s
67+    case _ => 
68+        throw("fail to cast into String")
69+}
70+
71+
72+func subRes (resList,resType,amount) = {
73+    func subber (acc,i) =     (acc :+ (if ((i == resType))
74+        then toString((parseIntValue(resList[i]) - amount))
75+        else resList[i]))
76+
77+    let r = {
78+        let $l = [0, 1, 2, 3, 4, 5]
79+        let $s = size($l)
80+        let $acc0 = nil
81+        func $f0_1 ($a,$i) =         if (($i >= $s))
82+            then $a
83+            else subber($a, $l[$i])
84+
85+        func $f0_2 ($a,$i) =         if (($i >= $s))
86+            then $a
87+            else throw("List size exceeds 6")
88+
89+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
90+        }
91+    makeString(r, "_")
92+    }
93+
94+
95+func buyInternal (locId,resType,amount,minPrice) = {
96+    let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
97+    let w0 = valueOrElse(getInteger(whKey), 0)
98+    let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
99+        then 0
100+        else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
101+            then (FACTORYMAXWAREHOUSE - w0)
102+            else amount
103+    let usdnReceived = (fraction(r0, ((2 * RESOURCEPRICEMIN) - fraction((w0 + (r0 / 2)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT8) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
104+    let min99 = (minPrice - (minPrice / 100))
105+    if (((min99 * amount) > (usdnReceived * MULT8)))
106+        then throw((((((((((("Actual price = " + toString(usdnReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
107+        else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdnReceived)
108+    }
109+
110+
23111 @Callable(i)
24-func sellResource (userAddressStr,continent,resource) = if ((i.caller != backEndAddr))
25-    then throw("permission denied")
26-    else if ((size(i.payments) != 0))
27-        then throw("sellResources doesn't require any payments")
28-        else if (!(containsElement(continents, continent)))
29-            then throw(("Unknown continent: " + continent))
30-            else {
31-                let userAddress = addressFromStringValue(userAddressStr)
32-                let parts = split(resource, "_")
33-                let resType = parts[idxType]
34-                if (!(containsElement(allowedResources, resType)))
35-                    then throw(("Unknown resource: " + resType))
36-                    else {
37-                        let resKey = keyStoreResByContinentAndType(continent, resType)
38-                        let q = parseIntValue(parts[idxQuantity])
39-[IntegerEntry(resKey, (valueOrElse(getInteger(resKey), 0) + q)), ScriptTransfer(userAddress, fraction(q, parseIntValue(parts[idxPrice]), MULT8), usdnAssetId)]
40-                        }
41-                }
112+func sellResource (resType,amount,minPrice) = if (if ((0 > resType))
113+    then true
114+    else (resType >= NUMRES))
115+    then throw(("Unknown resource: " + toString(resType)))
116+    else if ((0 >= amount))
117+        then throw(("Amount should be positive! " + toString(amount)))
118+        else {
119+            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
120+            if ((size(i.payments) != 0))
121+                then throw("sellResources doesn't require any payments")
122+                else {
123+                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
124+                    if ((curLocation[locIdxType] != "F"))
125+                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
126+                        else {
127+                            let currentPack = split(valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0::"), ":")
128+                            let resList = split(currentPack[bpIdxRes], "_")
129+                            let currentRes = parseIntValue(resList[resType])
130+                            if ((amount > currentRes))
131+                                then throw(((((("You have " + toString(currentRes)) + " of ") + resTypes[resType]) + " in backpack, but tried to sell ") + toString(amount)))
132+                                else {
133+                                    let b = buyInternal(curLocation[locIdxId], resType, amount, minPrice)
134+                                    let bpRes = subRes(resList, resType, amount)
135+                                    let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
136+                                    let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
137+                                    $Tuple2([b._1, ScriptTransfer(i.caller, b._2, usdnAssetId)], result)
138+                                    }
139+                            }
140+                    }
141+            }
42142 
43143 
44144 
45145 @Callable(i)
46-func sellResources (userAddressStr,continent,resources) = if ((i.caller != backEndAddr))
47-    then throw("permission denied")
48-    else if ((size(i.payments) != 0))
146+func sellResources (resTypes,minPrices) = {
147+    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
148+    if ((size(i.payments) != 0))
49149         then throw("sellResources doesn't require any payments")
50-        else if (!(containsElement(continents, continent)))
51-            then throw(("Unknown continent: " + continent))
52-            else {
53-                let userAddress = addressFromStringValue(userAddressStr)
54-                func adder (acc,elem) =                 {
55-                    let parts = split(elem, "_")
56-                    let resType = parts[idxType]
57-                    if (!(containsElement(allowedResources, resType)))
58-                        then throw(("Unknown resource: " + resType))
59-                        else {
60-                            let resKey = keyStoreResByContinentAndType(continent, resType)
61-                            let q = parseIntValue(parts[idxQuantity])
62-                            $Tuple2((acc._1 :+ IntegerEntry(resKey, (valueOrElse(getInteger(resKey), 0) + q))), (acc._2 + fraction(q, parseIntValue(parts[idxPrice]), MULT8)))
63-                            }
150+        else {
151+            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
152+            if ((curLocation[locIdxType] != "F"))
153+                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
154+                else {
155+                    let locId = curLocation[locIdxId]
156+                    let currentPack = split(valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0::"), ":")
157+                    let resList = split(currentPack[bpIdxRes], "_")
158+                    func adder (acc,idx) =                     {
159+                        let j = indexOf(resTypes, idx)
160+                        if (isDefined(j))
161+                            then {
162+                                let b = buyInternal(locId, idx, parseIntValue(resList[idx]), minPrices[value(j)])
163+                                $Tuple3((acc._1 :+ b._1), (acc._2 :+ "0"), (acc._3 + b._2))
164+                                }
165+                            else $Tuple3(acc._1, (acc._2 :+ resList[idx]), acc._3)
166+                        }
167+
168+                    let merged = {
169+                        let $l = [0, 1, 2, 3, 4, 5]
170+                        let $s = size($l)
171+                        let $acc0 = $Tuple3(nil, nil, 0)
172+                        func $f0_1 ($a,$i) =                         if (($i >= $s))
173+                            then $a
174+                            else adder($a, $l[$i])
175+
176+                        func $f0_2 ($a,$i) =                         if (($i >= $s))
177+                            then $a
178+                            else throw("List size exceeds 6")
179+
180+                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
181+                        }
182+                    let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
183+                    let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
184+                    $Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdnAssetId)), result)
64185                     }
65-
66-                let result = {
67-                    let $l = resources
68-                    let $s = size($l)
69-                    let $acc0 = $Tuple2(nil, 0)
70-                    func $f0_1 ($a,$i) =                     if (($i >= $s))
71-                        then $a
72-                        else adder($a, $l[$i])
73-
74-                    func $f0_2 ($a,$i) =                     if (($i >= $s))
75-                        then $a
76-                        else throw("List size exceeds 10")
77-
78-                    $f0_2($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)
79-                    }
80-                (result._1 :+ ScriptTransfer(userAddress, result._2, usdnAssetId))
81-                }
186+            }
187+    }
82188 
83189 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let MULT6 = 1000000
5+
46 let MULT8 = 100000000
57 
68 let usdnAssetId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
79 
810 let backEndAddr = addressFromStringValue("3PBKeu78xdNyaKw5k2Ua6npqe8MRQegoq17")
911 
10-let allowedResources = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
12+let stakingContract = addressFromStringValue("3PLncXtS1U83D6cQbFD3H8rBHPLgzxSFKZ1")
13+
14+let DEFAULTLOCATION = "Africa_F_Africa"
15+
16+let NUMRES = 6
17+
18+let FACTORYMAXWAREHOUSE = 10000000000
19+
20+let RESOURCEPRICEMIN = 158549
21+
22+let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
1123 
1224 let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
1325 
14-func keyStoreResByContinentAndType (continent,resType) = ((("storeResourceByContinentAndType_" + continent) + "_") + resType)
26+func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
27+
28+
29+func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
30+
31+
32+func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
33+
34+
35+func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
36+
37+
38+func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
39+
40+
41+func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
1542 
1643 
1744 let idxType = 0
1845 
1946 let idxQuantity = 1
2047 
2148 let idxPrice = 2
2249 
50+let locIdxContinent = 0
51+
52+let locIdxType = 1
53+
54+let locIdxId = 2
55+
56+let bpIdxLevel = 0
57+
58+let bpIdxRes = 1
59+
60+let bpIdxMat = 2
61+
62+let bpIdxProd = 3
63+
64+func asString (v) = match v {
65+    case s: String => 
66+        s
67+    case _ => 
68+        throw("fail to cast into String")
69+}
70+
71+
72+func subRes (resList,resType,amount) = {
73+    func subber (acc,i) =     (acc :+ (if ((i == resType))
74+        then toString((parseIntValue(resList[i]) - amount))
75+        else resList[i]))
76+
77+    let r = {
78+        let $l = [0, 1, 2, 3, 4, 5]
79+        let $s = size($l)
80+        let $acc0 = nil
81+        func $f0_1 ($a,$i) =         if (($i >= $s))
82+            then $a
83+            else subber($a, $l[$i])
84+
85+        func $f0_2 ($a,$i) =         if (($i >= $s))
86+            then $a
87+            else throw("List size exceeds 6")
88+
89+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
90+        }
91+    makeString(r, "_")
92+    }
93+
94+
95+func buyInternal (locId,resType,amount,minPrice) = {
96+    let whKey = keyFactoryWarehouseByIdAndType(locId, resType)
97+    let w0 = valueOrElse(getInteger(whKey), 0)
98+    let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
99+        then 0
100+        else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
101+            then (FACTORYMAXWAREHOUSE - w0)
102+            else amount
103+    let usdnReceived = (fraction(r0, ((2 * RESOURCEPRICEMIN) - fraction((w0 + (r0 / 2)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT8) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8))
104+    let min99 = (minPrice - (minPrice / 100))
105+    if (((min99 * amount) > (usdnReceived * MULT8)))
106+        then throw((((((((((("Actual price = " + toString(usdnReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")"))
107+        else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdnReceived)
108+    }
109+
110+
23111 @Callable(i)
24-func sellResource (userAddressStr,continent,resource) = if ((i.caller != backEndAddr))
25-    then throw("permission denied")
26-    else if ((size(i.payments) != 0))
27-        then throw("sellResources doesn't require any payments")
28-        else if (!(containsElement(continents, continent)))
29-            then throw(("Unknown continent: " + continent))
30-            else {
31-                let userAddress = addressFromStringValue(userAddressStr)
32-                let parts = split(resource, "_")
33-                let resType = parts[idxType]
34-                if (!(containsElement(allowedResources, resType)))
35-                    then throw(("Unknown resource: " + resType))
36-                    else {
37-                        let resKey = keyStoreResByContinentAndType(continent, resType)
38-                        let q = parseIntValue(parts[idxQuantity])
39-[IntegerEntry(resKey, (valueOrElse(getInteger(resKey), 0) + q)), ScriptTransfer(userAddress, fraction(q, parseIntValue(parts[idxPrice]), MULT8), usdnAssetId)]
40-                        }
41-                }
112+func sellResource (resType,amount,minPrice) = if (if ((0 > resType))
113+    then true
114+    else (resType >= NUMRES))
115+    then throw(("Unknown resource: " + toString(resType)))
116+    else if ((0 >= amount))
117+        then throw(("Amount should be positive! " + toString(amount)))
118+        else {
119+            let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
120+            if ((size(i.payments) != 0))
121+                then throw("sellResources doesn't require any payments")
122+                else {
123+                    let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
124+                    if ((curLocation[locIdxType] != "F"))
125+                        then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
126+                        else {
127+                            let currentPack = split(valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0::"), ":")
128+                            let resList = split(currentPack[bpIdxRes], "_")
129+                            let currentRes = parseIntValue(resList[resType])
130+                            if ((amount > currentRes))
131+                                then throw(((((("You have " + toString(currentRes)) + " of ") + resTypes[resType]) + " in backpack, but tried to sell ") + toString(amount)))
132+                                else {
133+                                    let b = buyInternal(curLocation[locIdxId], resType, amount, minPrice)
134+                                    let bpRes = subRes(resList, resType, amount)
135+                                    let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
136+                                    let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
137+                                    $Tuple2([b._1, ScriptTransfer(i.caller, b._2, usdnAssetId)], result)
138+                                    }
139+                            }
140+                    }
141+            }
42142 
43143 
44144 
45145 @Callable(i)
46-func sellResources (userAddressStr,continent,resources) = if ((i.caller != backEndAddr))
47-    then throw("permission denied")
48-    else if ((size(i.payments) != 0))
146+func sellResources (resTypes,minPrices) = {
147+    let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
148+    if ((size(i.payments) != 0))
49149         then throw("sellResources doesn't require any payments")
50-        else if (!(containsElement(continents, continent)))
51-            then throw(("Unknown continent: " + continent))
52-            else {
53-                let userAddress = addressFromStringValue(userAddressStr)
54-                func adder (acc,elem) =                 {
55-                    let parts = split(elem, "_")
56-                    let resType = parts[idxType]
57-                    if (!(containsElement(allowedResources, resType)))
58-                        then throw(("Unknown resource: " + resType))
59-                        else {
60-                            let resKey = keyStoreResByContinentAndType(continent, resType)
61-                            let q = parseIntValue(parts[idxQuantity])
62-                            $Tuple2((acc._1 :+ IntegerEntry(resKey, (valueOrElse(getInteger(resKey), 0) + q))), (acc._2 + fraction(q, parseIntValue(parts[idxPrice]), MULT8)))
63-                            }
150+        else {
151+            let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
152+            if ((curLocation[locIdxType] != "F"))
153+                then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
154+                else {
155+                    let locId = curLocation[locIdxId]
156+                    let currentPack = split(valueOrElse(getString(stakingContract, keyBackpackByDuck(duckAssetId)), "0:0_0_0_0_0_0::"), ":")
157+                    let resList = split(currentPack[bpIdxRes], "_")
158+                    func adder (acc,idx) =                     {
159+                        let j = indexOf(resTypes, idx)
160+                        if (isDefined(j))
161+                            then {
162+                                let b = buyInternal(locId, idx, parseIntValue(resList[idx]), minPrices[value(j)])
163+                                $Tuple3((acc._1 :+ b._1), (acc._2 :+ "0"), (acc._3 + b._2))
164+                                }
165+                            else $Tuple3(acc._1, (acc._2 :+ resList[idx]), acc._3)
166+                        }
167+
168+                    let merged = {
169+                        let $l = [0, 1, 2, 3, 4, 5]
170+                        let $s = size($l)
171+                        let $acc0 = $Tuple3(nil, nil, 0)
172+                        func $f0_1 ($a,$i) =                         if (($i >= $s))
173+                            then $a
174+                            else adder($a, $l[$i])
175+
176+                        func $f0_2 ($a,$i) =                         if (($i >= $s))
177+                            then $a
178+                            else throw("List size exceeds 6")
179+
180+                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
181+                        }
182+                    let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
183+                    let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
184+                    $Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdnAssetId)), result)
64185                     }
65-
66-                let result = {
67-                    let $l = resources
68-                    let $s = size($l)
69-                    let $acc0 = $Tuple2(nil, 0)
70-                    func $f0_1 ($a,$i) =                     if (($i >= $s))
71-                        then $a
72-                        else adder($a, $l[$i])
73-
74-                    func $f0_2 ($a,$i) =                     if (($i >= $s))
75-                        then $a
76-                        else throw("List size exceeds 10")
77-
78-                    $f0_2($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)
79-                    }
80-                (result._1 :+ ScriptTransfer(userAddress, result._2, usdnAssetId))
81-                }
186+            }
187+    }
82188 
83189 
github/deemru/w8io/3ef1775 
48.61 ms ◑