w8 · tx · 7N2···giZ

tx · 7N2EXuiBVFiZofNKHDCSv4C4rwMCm9toECHF4eYEZgiZ

3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep:  -0.01000000 Waves

2022.12.06 02:10 [2347701] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7N2EXuiBVFiZofNKHDCSv4C4rwMCm9toECHF4eYEZgiZ",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1670281864484,
    "version": 2,
    "chainId": 84,
    "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep",
    "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq",
    "proofs": [
        "2mAiP4sfEN46upx8RWwGiFCvQWfJxWejDBEtHgVx7cxgx8uZRvBmcsgMG9Q3AmKYPzniLcoruPG7CQaetTVhYjtu"
    ],
    "script": "base64:BgIICAISBAoCAQEcAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8AC3VzZG5Bc3NldElkASD3dur394PKZdtuE+4CO89YKZWpwdGN8kvabNgdYoDI3gALYmFja0VuZEFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNONVNwWDIxUjNSNzVRbzRlYjNNd0ZGdlc3VFV6eWh2YXZ2AA9zdGFraW5nQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOREN5Qkc1cTg1SnVhUmlpZ1VlRXRhaW55akNRVDNYcFptAA9ERUZBVUxUTE9DQVRJT04CD0FmcmljYV9GX0FmcmljYQAGTlVNUkVTAAYAE0ZBQ1RPUllNQVhXQVJFSE9VU0UAgMivoCUACHJlc1R5cGVzCQDMCAICA09pbAkAzAgCAgNPcmUJAMwIAgIEV29vZAkAzAgCAgRTYW5kCQDMCAICBENsYXkJAMwIAgIHT3JnYW5pYwUDbmlsAApjb250aW5lbnRzCQDMCAICCEFtZXJpY2FzCQDMCAICBkV1cm9wZQkAzAgCAgRBc2lhCQDMCAICBkFmcmljYQkAzAgCAgdPY2VhbmlhBQNuaWwBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIJZmFjdG9yeUlkB3Jlc1R5cGUJAKwCAgkArAICCQCsAgICG2ZhY3RvcnlXaEJ5Q29udGluZW50QW5kUmVzXwUJZmFjdG9yeUlkAgFfCQCkAwEFB3Jlc1R5cGUBEWtleUFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAEUa2V5U3Rha2VkRHVja0J5T3duZXIBCW93bmVyQWRkcgkArAICAhJzdGFrZWREdWNrQnlPd25lcl8FCW93bmVyQWRkcgERa2V5QmFja3BhY2tCeUR1Y2sBC2R1Y2tBc3NldElkCQCsAgICCWJhY2tQYWNrXwULZHVja0Fzc2V0SWQBD2tleUR1Y2tMb2NhdGlvbgELZHVja0Fzc2V0SWQJAKwCAgINZHVja0xvY2F0aW9uXwULZHVja0Fzc2V0SWQAB2lkeFR5cGUAAAALaWR4UXVhbnRpdHkAAQAIaWR4UHJpY2UAAgAPbG9jSWR4Q29udGluZW50AAAACmxvY0lkeFR5cGUAAQAIbG9jSWR4SWQAAgAKYnBJZHhMZXZlbAAAAAhicElkeFJlcwABAAhicElkeE1hdAACAAlicElkeFByb2QAAwEIYXNTdHJpbmcBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwBQFzCQACAQIYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nAQZzdWJSZXMDB3Jlc0xpc3QHcmVzVHlwZQZhbW91bnQKAQZzdWJiZXICA2FjYwFpCQDNCAIFA2FjYwMJAAACBQFpBQdyZXNUeXBlCQCkAwEJAGUCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUBaQUGYW1vdW50CQCRAwIFB3Jlc0xpc3QFAWkEAXIKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQZzdWJiZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJALkJAgUBcgIBXwEBaQEMc2VsbFJlc291cmNlAgdyZXNUeXBlBmFtb3VudAMDCQBmAgAABQdyZXNUeXBlBgkAZwIFB3Jlc1R5cGUFBk5VTVJFUwkAAgEJAKwCAgISVW5rbm93biByZXNvdXJjZTogCQCkAwEFB3Jlc1R5cGUDCQBnAgAABQZhbW91bnQJAAIBCQCsAgICG0Ftb3VudCBzaG91bGQgYmUgcG9zaXRpdmUhIAkApAMBBQZhbW91bnQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECKnNlbGxSZXNvdXJjZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVicEtleQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEC2N1cnJlbnRQYWNrCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQVicEtleQIPMDowXzBfMF8wXzBfMDo6AgE6BAdyZXNMaXN0CQC1CQIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzAgFfBApjdXJyZW50UmVzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVzTGlzdAUHcmVzVHlwZQMJAGYCBQZhbW91bnQFCmN1cnJlbnRSZXMJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCkAwEFCmN1cnJlbnRSZXMCBCBvZiAJAJEDAgUIcmVzVHlwZXMFB3Jlc1R5cGUCICBpbiBiYWNrcGFjaywgYnV0IHRyaWVkIHRvIHNlbGwgCQCkAwEFBmFtb3VudAQFd2hLZXkJAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCCQCRAwIFC2N1ckxvY2F0aW9uBQhsb2NJZHhJZAUHcmVzVHlwZQQCdzAJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUFd2hLZXkAAAQCcjADCQBmAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UAAAMJAGYCCQBkAgUCdzAFBmFtb3VudAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAZQIFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFAncwBQZhbW91bnQEDHVzZG5SZWNlaXZlZAkAZAIJAGsDBQJyMAkAZQIJAGgCAAIFBU1VTFQ2CQBrAwkAZAIFAncwCQBpAgUCcjAAAgUFTVVMVDYFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFBU1VTFQ4CQBpAgkAZQIFBmFtb3VudAUCcjAAZAQFYnBSZXMJAQZzdWJSZXMDBQdyZXNMaXN0BQdyZXNUeXBlBQZhbW91bnQEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIFBWJwUmVzCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4TWF0CQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQx1c2RuUmVjZWl2ZWQFC3VzZG5Bc3NldElkBQNuaWwFBnJlc3VsdACeIQpE",
    "height": 2347701,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9tRLDusYHVy8gqcXkRErXYrHp5gxLgpJitsMjaciFoQw
Next: 5cHQ5gvQW2PwdcQThd6VuHPW3KjzDKUsERx8Godvi4b4

Diff: 
Old New Differences
59 59  
60 60  let bpIdxProd = 3
61 61  
62 + func asString (v) = match v {
63 +     case s: String => 
64 +         s
65 +     case _ => 
66 +         throw("fail to cast into String")
67 + }
68 + 
69 + 
62 70  func subRes (resList,resType,amount) = {
63 71      func subber (acc,i) =     (acc :+ (if ((i == resType))
64 72          then toString((parseIntValue(resList[i]) - amount))
115 123                                      let usdnReceived = (fraction(r0, ((2 * MULT6) - fraction((w0 + (r0 / 2)), MULT6, FACTORYMAXWAREHOUSE)), MULT8) + ((amount - r0) / 100))
116 124                                      let bpRes = subRes(resList, resType, amount)
117 125                                      let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
118 - [StringEntry(bpKey, newPack), IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)]
126 +                                     let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
127 +                                     $Tuple2([IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)], result)
119 128                                      }
120 129                              }
121 130                      }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let MULT6 = 1000000
5 5  
6 6  let MULT8 = 100000000
7 7  
8 8  let usdnAssetId = base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
9 9  
10 10  let backEndAddr = addressFromStringValue("3N5SpX21R3R75Qo4eb3MwFFvW7TUzyhvavv")
11 11  
12 12  let stakingContract = addressFromStringValue("3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm")
13 13  
14 14  let DEFAULTLOCATION = "Africa_F_Africa"
15 15  
16 16  let NUMRES = 6
17 17  
18 18  let FACTORYMAXWAREHOUSE = 10000000000
19 19  
20 20  let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
21 21  
22 22  let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
23 23  
24 24  func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
25 25  
26 26  
27 27  func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
28 28  
29 29  
30 30  func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
31 31  
32 32  
33 33  func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
34 34  
35 35  
36 36  func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
37 37  
38 38  
39 39  func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
40 40  
41 41  
42 42  let idxType = 0
43 43  
44 44  let idxQuantity = 1
45 45  
46 46  let idxPrice = 2
47 47  
48 48  let locIdxContinent = 0
49 49  
50 50  let locIdxType = 1
51 51  
52 52  let locIdxId = 2
53 53  
54 54  let bpIdxLevel = 0
55 55  
56 56  let bpIdxRes = 1
57 57  
58 58  let bpIdxMat = 2
59 59  
60 60  let bpIdxProd = 3
61 61  
62 + func asString (v) = match v {
63 +     case s: String => 
64 +         s
65 +     case _ => 
66 +         throw("fail to cast into String")
67 + }
68 + 
69 + 
62 70  func subRes (resList,resType,amount) = {
63 71      func subber (acc,i) =     (acc :+ (if ((i == resType))
64 72          then toString((parseIntValue(resList[i]) - amount))
65 73          else resList[i]))
66 74  
67 75      let r = {
68 76          let $l = [0, 1, 2, 3, 4, 5]
69 77          let $s = size($l)
70 78          let $acc0 = nil
71 79          func $f0_1 ($a,$i) =         if (($i >= $s))
72 80              then $a
73 81              else subber($a, $l[$i])
74 82  
75 83          func $f0_2 ($a,$i) =         if (($i >= $s))
76 84              then $a
77 85              else throw("List size exceeds 6")
78 86  
79 87          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
80 88          }
81 89      makeString(r, "_")
82 90      }
83 91  
84 92  
85 93  @Callable(i)
86 94  func sellResource (resType,amount) = if (if ((0 > resType))
87 95      then true
88 96      else (resType >= NUMRES))
89 97      then throw(("Unknown resource: " + toString(resType)))
90 98      else if ((0 >= amount))
91 99          then throw(("Amount should be positive! " + toString(amount)))
92 100          else {
93 101              let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
94 102              if ((size(i.payments) != 0))
95 103                  then throw("sellResources doesn't require any payments")
96 104                  else {
97 105                      let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
98 106                      if ((curLocation[locIdxType] != "F"))
99 107                          then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
100 108                          else {
101 109                              let bpKey = keyBackpackByDuck(duckAssetId)
102 110                              let currentPack = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0::"), ":")
103 111                              let resList = split(currentPack[bpIdxRes], "_")
104 112                              let currentRes = parseIntValue(resList[resType])
105 113                              if ((amount > currentRes))
106 114                                  then throw(((((("You have " + toString(currentRes)) + " of ") + resTypes[resType]) + " in backpack, but tried to sell ") + toString(amount)))
107 115                                  else {
108 116                                      let whKey = keyFactoryWarehouseByIdAndType(curLocation[locIdxId], resType)
109 117                                      let w0 = valueOrElse(getInteger(whKey), 0)
110 118                                      let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
111 119                                          then 0
112 120                                          else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
113 121                                              then (FACTORYMAXWAREHOUSE - w0)
114 122                                              else amount
115 123                                      let usdnReceived = (fraction(r0, ((2 * MULT6) - fraction((w0 + (r0 / 2)), MULT6, FACTORYMAXWAREHOUSE)), MULT8) + ((amount - r0) / 100))
116 124                                      let bpRes = subRes(resList, resType, amount)
117 125                                      let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
118 - [StringEntry(bpKey, newPack), IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)]
126 +                                     let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
127 +                                     $Tuple2([IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)], result)
119 128                                      }
120 129                              }
121 130                      }
122 131              }
123 132  
124 133

Old	New		Differences
59	59
60	60		let bpIdxProd = 3
61	61
	62	+	func asString (v) = match v {
	63	+	case s: String =>
	64	+	s
	65	+	case _ =>
	66	+	throw("fail to cast into String")
	67	+	}
	68	+
	69	+
62	70		func subRes (resList,resType,amount) = {
63	71		func subber (acc,i) = (acc :+ (if ((i == resType))
64	72		then toString((parseIntValue(resList[i]) - amount))

115	123		let usdnReceived = (fraction(r0, ((2 * MULT6) - fraction((w0 + (r0 / 2)), MULT6, FACTORYMAXWAREHOUSE)), MULT8) + ((amount - r0) / 100))
116	124		let bpRes = subRes(resList, resType, amount)
117	125		let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
118		-	[StringEntry(bpKey, newPack), IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)]
	126	+	let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
	127	+	$Tuple2([IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)], result)
119	128		}
120	129		}
121	130		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let MULT6 = 1000000
5	5
6	6		let MULT8 = 100000000
7	7
8	8		let usdnAssetId = base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ'
9	9
10	10		let backEndAddr = addressFromStringValue("3N5SpX21R3R75Qo4eb3MwFFvW7TUzyhvavv")
11	11
12	12		let stakingContract = addressFromStringValue("3NDCyBG5q85JuaRiigUeEtainyjCQT3XpZm")
13	13
14	14		let DEFAULTLOCATION = "Africa_F_Africa"
15	15
16	16		let NUMRES = 6
17	17
18	18		let FACTORYMAXWAREHOUSE = 10000000000
19	19
20	20		let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"]
21	21
22	22		let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"]
23	23
24	24		func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType))
25	25
26	26
27	27		func keyAssetIdToOwner (assetId) = ("nftOwner_" + assetId)
28	28
29	29
30	30		func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId)
31	31
32	32
33	33		func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr)
34	34
35	35
36	36		func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId)
37	37
38	38
39	39		func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId)
40	40
41	41
42	42		let idxType = 0
43	43
44	44		let idxQuantity = 1
45	45
46	46		let idxPrice = 2
47	47
48	48		let locIdxContinent = 0
49	49
50	50		let locIdxType = 1
51	51
52	52		let locIdxId = 2
53	53
54	54		let bpIdxLevel = 0
55	55
56	56		let bpIdxRes = 1
57	57
58	58		let bpIdxMat = 2
59	59
60	60		let bpIdxProd = 3
61	61
	62	+	func asString (v) = match v {
	63	+	case s: String =>
	64	+	s
	65	+	case _ =>
	66	+	throw("fail to cast into String")
	67	+	}
	68	+
	69	+
62	70		func subRes (resList,resType,amount) = {
63	71		func subber (acc,i) = (acc :+ (if ((i == resType))
64	72		then toString((parseIntValue(resList[i]) - amount))
65	73		else resList[i]))
66	74
67	75		let r = {
68	76		let $l = [0, 1, 2, 3, 4, 5]
69	77		let $s = size($l)
70	78		let $acc0 = nil
71	79		func $f0_1 ($a,$i) = if (($i >= $s))
72	80		then $a
73	81		else subber($a, $l[$i])
74	82
75	83		func $f0_2 ($a,$i) = if (($i >= $s))
76	84		then $a
77	85		else throw("List size exceeds 6")
78	86
79	87		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
80	88		}
81	89		makeString(r, "_")
82	90		}
83	91
84	92
85	93		@Callable(i)
86	94		func sellResource (resType,amount) = if (if ((0 > resType))
87	95		then true
88	96		else (resType >= NUMRES))
89	97		then throw(("Unknown resource: " + toString(resType)))
90	98		else if ((0 >= amount))
91	99		then throw(("Amount should be positive! " + toString(amount)))
92	100		else {
93	101		let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked")
94	102		if ((size(i.payments) != 0))
95	103		then throw("sellResources doesn't require any payments")
96	104		else {
97	105		let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_")
98	106		if ((curLocation[locIdxType] != "F"))
99	107		then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType]))
100	108		else {
101	109		let bpKey = keyBackpackByDuck(duckAssetId)
102	110		let currentPack = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0::"), ":")
103	111		let resList = split(currentPack[bpIdxRes], "_")
104	112		let currentRes = parseIntValue(resList[resType])
105	113		if ((amount > currentRes))
106	114		then throw(((((("You have " + toString(currentRes)) + " of ") + resTypes[resType]) + " in backpack, but tried to sell ") + toString(amount)))
107	115		else {
108	116		let whKey = keyFactoryWarehouseByIdAndType(curLocation[locIdxId], resType)
109	117		let w0 = valueOrElse(getInteger(whKey), 0)
110	118		let r0 = if ((w0 > FACTORYMAXWAREHOUSE))
111	119		then 0
112	120		else if (((w0 + amount) > FACTORYMAXWAREHOUSE))
113	121		then (FACTORYMAXWAREHOUSE - w0)
114	122		else amount
115	123		let usdnReceived = (fraction(r0, ((2 * MULT6) - fraction((w0 + (r0 / 2)), MULT6, FACTORYMAXWAREHOUSE)), MULT8) + ((amount - r0) / 100))
116	124		let bpRes = subRes(resList, resType, amount)
117	125		let newPack = makeString([currentPack[bpIdxLevel], bpRes, currentPack[bpIdxMat], currentPack[bpIdxProd]], ":")
118		-	[StringEntry(bpKey, newPack), IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)]
	126	+	let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil))
	127	+	$Tuple2([IntegerEntry(whKey, (w0 + amount)), ScriptTransfer(i.caller, usdnReceived, usdnAssetId)], result)
119	128		}
120	129		}
121	130		}
122	131		}
123	132
124	133

github/deemru/w8io/873ac7e 
28.36 ms ◑