tx · 4TRcvo7w7e5486SzaQPPwiMicQ3Jnva5yxL4teTcSbFY

3N9cKCHp6ZLMgz7rRgF8Q8DEt8zbtd1Ht7F:  -0.01000000 Waves

2023.02.16 14:48 [2452130] smart account 3N9cKCHp6ZLMgz7rRgF8Q8DEt8zbtd1Ht7F > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4TRcvo7w7e5486SzaQPPwiMicQ3Jnva5yxL4teTcSbFY",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1676548196853,
    "version": 2,
    "chainId": 84,
    "sender": "3N9cKCHp6ZLMgz7rRgF8Q8DEt8zbtd1Ht7F",
    "senderPublicKey": "3V22YUj3GF4AeBxdWx8rgGdG4groE4W6P2s4sAkshe7R",
    "proofs": [
        "13p8E548oKi6MG2ZchnnM3zGE9d2P23ihxQiTr1hcwfFhdXaiA389kVGeVdW2R5mcybdm8BtwSiFdMwoUqQJ8UV"
    ],
    "script": "base64:BgIICAISBAoCCAgCAAV0ZWFtcwEghWOVo/OIjrDeDBeOCE6/mj+SuybbOuh2jhbcFCIqSH4ABVdBVkVTAQABAWkBDXRyYW5zZmVyVG9rZW4CDXJlY2VwaWVudEFkZHIHbWVzc2FnZQQGY2FsbGVyCAgFAWkGY2FsbGVyBWJ5dGVzBAdyZWNpdmVyCQDZBAEFDXJlY2VwaWVudEFkZHIEBmFtb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQDCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQV0ZWFtcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQDYBAEFBmNhbGxlcgIJX3RyYW5zZmVyBQZhbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQDYBAEFBmNhbGxlcgIMX3RyYW5zZmVyX3RvBQ1yZWNlcGllbnRBZGRyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQUHcmVjaXZlcgUGYW1vdW50BQV0ZWFtcwUDbmlsBQNuaWwA5k1z5w==",
    "height": 2452130,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FrrU3niiMic8JjPvP3QXZWFZREf4SpWTU4LPHRqqSuyh
Next: FH8gwrze84pAeMSWJi55toowx1Xy8iDmvXWh7VFRPnuD

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let separator = "_"
5-
6-let kBuy = "buy"
7-
8-let kPrice = "price"
9-
10-let kSell = "sell"
11-
12-let maxAuctionDuration = 30
13-
14-let teams = base58'2GRRVTq1EzVDGMC1XQ5zfa73TVVfDtuEXQs9z1Fek9QjkD'
4+let teams = base58'9yhJDfWjPpv6tFjWRD1AJyBQwausJf2ZdxzLn86Uknnq'
155 
166 let WAVES = base58''
177 
18-let kBid = "bid"
19-
20-let statusForNFT = $Tuple4("OPEN", "CLOSED", "REWARDED", "CANCELED")
21-
22-let dAppAddress = base58'3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq'
23-
24-func isNft (assetId) = match assetInfo(assetId) {
25-    case token: Asset => 
26-        if (if ((token.decimals == 0))
27-            then (token.quantity == 1)
28-            else false)
29-            then (token.reissuable == false)
30-            else false
31-    case _ => 
32-        false
33-}
34-
35-
368 @Callable(i)
37-func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
38-    let newToken = Issue(nft_name, nft_description, 1, 0, false)
39-    let issueId = calculateAssetId(newToken)
40-    let txId = i.transactionId
41-[newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller)), StringEntry(((toBase58String(issueId) + separator) + "nft_type"), nft_type), StringEntry(((toBase58String(issueId) + separator) + "nft_tags"), nft_tags), StringEntry(((toBase58String(issueId) + separator) + "nft_dAppAddress"), nft_dAppAddress), IntegerEntry(((toBase58String(issueId) + separator) + "nft_selling_price"), nft_selling_price), StringEntry(((toBase58String(issueId) + separator) + "nft_onSell"), nft_onSell), StringEntry(((toBase58String(issueId) + separator) + "nft_data"), nft_data), StringEntry(((toBase58String(txId) + separator) + "issue_nft"), toBase58String(issueId))]
42-    }
43-
44-
45-
46-@Callable(i)
47-func sellNFT (price,payment_currency) = {
48-    let txId = i.transactionId
49-    let seller = i.caller.bytes
50-    let $t019011986 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
51-    let token0 = $t019011986._1
52-    let amount0 = $t019011986._2
53-    if (!(isNft(token0)))
54-        then throw("Token is not NFT")
55-        else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), price), StringEntry(((toString(i.caller) + separator) + kSell), (((toBase58String(token0) + separator) + toString(amount0)) + payment_currency))]
56-    }
57-
58-
59-
60-@Callable(i)
61-func buyNFT (nftID,current_nft_owner) = {
62-    let assetId = fromBase58String(nftID)
63-    let amount = value(i.payments[0].amount)
64-    let checkOwnerIsSame =     match getString(this, (("nft_" + current_nft_owner) + "_owner")) {
65-        case a: String => 
66-            a
67-        case _ => 
68-            false
69-    }
70-    let price = getStringValue(((((kPrice + separator) + nftID) + "_") + current_nft_owner))
71-    let seller_amount = ((amount / 1000) * 975)
72-    let platform_fee = ((amount / 1000) * 25)
73-    if ((current_nft_owner == toString(i.caller)))
74-        then throw("current Owner of NFT not able to purchase")
75-        else if ((i.payments[0].assetId == teams))
76-            then [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(Address(fromBase58String(current_nft_owner)), seller_amount, teams), StringEntry((("nft_" + nftID) + "platform_fee"), toString(platform_fee)), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount))), DeleteEntry((("nft_" + current_nft_owner) + "_owner")), StringEntry((("nft_" + current_nft_owner) + "_owner"), toString(i.caller)), StringEntry(((nftID + separator) + "_owner"), toString(i.caller))]
77-            else if ((i.payments[0].assetId == unit))
78-                then [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(Address(fromBase58String(current_nft_owner)), seller_amount, unit), StringEntry((("nft_" + nftID) + "platform_fee"), toString(platform_fee)), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount))), DeleteEntry((("nft_" + current_nft_owner) + "_owner")), StringEntry((("nft_" + current_nft_owner) + "_owner"), toString(i.caller)), StringEntry(((nftID + separator) + "_owner"), toString(i.caller))]
79-                else nil
80-    }
81-
82-
83-
84-@Callable(i)
85-func cancelSell (nftId) = {
86-    let txId = toBase58String(i.transactionId)
87-    let seller = i.caller.bytes
88-[StringEntry(((txId + nftId) + "_nft_status"), "CANCELED"), ScriptTransfer(Address(seller), 1, fromBase58String(nftId))]
89-    }
90-
91-
92-
93-@Callable(i)
94-func addAuction (start,end,startPrice,duration,payment_currency) = {
95-    let txId = toBase58String(i.transactionId)
96-    let nftId = value(i.payments[0].assetId)
97-    let price = value(startPrice)
98-    let endHeight = (lastBlock.height + duration)
99-    let caller = i.caller.bytes
100-    let checkNftAuctioned =     match getString(this, (((toBase58String(nftId) + separator) + "nft_status_") + toBase58String(caller))) {
101-        case a: String => 
102-            true
103-        case _ => 
104-            false
105-    }
106-    if ((checkNftAuctioned == true))
107-        then throw("Already in auction list")
108-        else if ((duration > maxAuctionDuration))
109-            then throw(("Duration is too long. Must be less than or equal to 7 " + toString(maxAuctionDuration)))
110-            else if ((i.payments[0].assetId == unit))
111-                then throw("NFT not attached")
112-                else if ((i.payments[0].assetId == teams))
113-                    then throw("NFT not attached")
114-                    else [StringEntry(((txId + "nft_start_auction_date") + toBase58String(caller)), start), StringEntry(((txId + "nft_end_auction_date") + toBase58String(caller)), end), StringEntry((txId + "_nft_start_price"), startPrice), StringEntry((txId + "_nft_owner"), toString(i.caller)), StringEntry((txId + "_nft_on_auction"), toBase58String(nftId)), StringEntry((txId + "_previous_bidder"), "none"), StringEntry((txId + "_highest_bid"), "0"), StringEntry((txId + "_winner_of_nft"), "0"), StringEntry((txId + "_bidder_count"), "0"), StringEntry((txId + "_nft_status"), "OPEN")]
115-    }
116-
117-
118-
119-@Callable(i)
120-func placeBid (auctionId,nftId,nft_owner,bid_price,current_currency) = {
121-    let txId = toBase58String(i.transactionId)
122-    let caller = i.caller.bytes
123-    let assetId = fromBase58String(nftId)
124-    let tokenType = i.payments[0].assetId
125-    let currentBidPrice = i.payments[0].amount
126-    let getLastWinnerBidPrice = getStringValue(this, (auctionId + "_highest_bid"))
127-    let getPreviousBidderAddress = getString(this, (auctionId + "_previous_bidder"))
128-    let currentBidCount = getStringValue(this, (auctionId + "_bidder_count"))
129-    let getLastWinnerAddress = getStringValue(this, (auctionId + "_winner_of_nft"))
130-    let checkNftAuctioned = getStringValue(this, (auctionId + "_nft_status"))
131-    if ((checkNftAuctioned != "OPEN"))
132-        then throw("Not open for auction")
133-        else if ((parseIntValue(getLastWinnerBidPrice) >= currentBidPrice))
134-            then throw("Bid is less then starting/highest Bid")
135-            else if ((getLastWinnerBidPrice == "0"))
136-                then [StringEntry((auctionId + "_highest_bid"), toString(currentBidPrice)), StringEntry((auctionId + "_winner_of_nft"), toBase58String(i.caller.bytes)), StringEntry((auctionId + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((auctionId + "_nft_id"), toBase58String(assetId)), StringEntry((auctionId + "_nft_owner"), nft_owner), StringEntry((((txId + "_") + auctionId) + "_highest_bid"), toString(currentBidPrice)), StringEntry((((txId + "_") + auctionId) + "_winner"), toBase58String(i.caller.bytes)), StringEntry((((txId + "_") + auctionId) + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((((txId + "_") + auctionId) + "_nft_id"), toBase58String(assetId)), StringEntry((((txId + "_") + auctionId) + "_nft_owner"), nft_owner), StringEntry((txId + "_bid_for_nft_by"), toBase58String(caller)), StringEntry((txId + "_bid_price_place"), bid_price), StringEntry((txId + "_previous_bid_amount_refund_to_address"), getLastWinnerAddress), StringEntry((txId + "_prevoius_bid_amount_refund"), getLastWinnerBidPrice)]
137-                else if ((getLastWinnerBidPrice != "0"))
138-                    then [ScriptTransfer(Address(fromBase58String(getLastWinnerAddress)), parseIntValue(getLastWinnerBidPrice), tokenType), StringEntry((txId + "_previous_bid_amount_refund_to_address"), getLastWinnerAddress), StringEntry((txId + "_prevoius_bid_amount_refund"), getLastWinnerBidPrice), StringEntry((auctionId + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((auctionId + "_highest_bid"), toString(currentBidPrice)), StringEntry((auctionId + "_winner_of_nft"), toBase58String(i.caller.bytes)), StringEntry((auctionId + "_nft_id"), toBase58String(assetId)), StringEntry((auctionId + "_nft_owner"), nft_owner), StringEntry((((txId + "_") + auctionId) + "_highest_bid"), toString(currentBidPrice)), StringEntry((((txId + "_") + auctionId) + "_winner"), toBase58String(i.caller.bytes)), StringEntry((((txId + "_") + auctionId) + "_bidder_count"), toString((parseIntValue(currentBidCount) + 1))), StringEntry((((txId + "_") + auctionId) + "_nft_id"), toBase58String(assetId)), StringEntry((((txId + "_") + auctionId) + "_nft_owner"), nft_owner), StringEntry((txId + "_bid_for_nft_by"), toBase58String(caller)), StringEntry((txId + "_bid_price_place"), bid_price)]
139-                    else nil
140-    }
141-
142-
143-
144-@Callable(i)
145-func acceptBidOffer (auctionId,nftId,bid_amount_from_user,current_currency) = {
146-    let txId = toBase58String(i.transactionId)
147-    let caller = i.caller.bytes
148-    let assetId = fromBase58String(nftId)
149-    let getNftWinningPrice = getStringValue(this, (auctionId + "_highest_bid"))
150-    let getNftWinningamount = ((parseIntValue(getNftWinningPrice) / 1000) * 975)
151-    let platform_fee = ((parseIntValue(getNftWinningPrice) / 1000) * 25)
152-    let getAuctionWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
153-    if ((current_currency == teams))
154-        then [ScriptTransfer(Address(caller), getNftWinningamount, teams), ScriptTransfer(Address(fromBase58String(getAuctionWinner)), 1, assetId), StringEntry("platform_fee", toString(platform_fee)), StringEntry((txId + "_amount_paid_to_owner"), getNftWinningPrice), StringEntry((txId + "_nft_transfer_to"), getAuctionWinner), StringEntry((txId + "_nft_status"), "REWARDED"), StringEntry((auctionId + "_amount_paid_to_owner"), getNftWinningPrice), StringEntry((auctionId + "_nft_transfer_to"), getAuctionWinner), StringEntry((auctionId + "_nft_status"), "REWARDED")]
155-        else if ((current_currency == WAVES))
156-            then [ScriptTransfer(Address(caller), getNftWinningamount, unit), ScriptTransfer(Address(fromBase58String(getAuctionWinner)), 1, assetId), StringEntry("platform_fee", toString(platform_fee)), StringEntry((txId + "_amount_paid_to_owner"), getNftWinningPrice), StringEntry((txId + "_nft_transfer_to"), getAuctionWinner), StringEntry((txId + "_nft_status"), "REWARDED"), StringEntry((auctionId + "_amount_paid_to_owner"), getNftWinningPrice), StringEntry((auctionId + "_nft_transfer_to"), getAuctionWinner), StringEntry((auctionId + "_nft_status"), "REWARDED")]
157-            else nil
158-    }
159-
160-
161-
162-@Callable(i)
163-func cancelAuction (auctionId,current_currency) = {
164-    let txId = toBase58String(i.transactionId)
165-    let caller = i.caller.bytes
166-    let auctionStatus = getStringValue(this, (auctionId + "_nft_status"))
167-    let biddingWinner = getStringValue(this, (auctionId + "_winner_of_nft"))
168-    let nftOwner = getStringValue(this, (auctionId + "_nft_owner"))
169-    let nftId = getStringValue(this, (auctionId + "_nft_on_auction"))
170-    let biddingPrice = getStringValue(this, (auctionId + "_highest_bid"))
171-    if ((biddingWinner == "0"))
172-        then [StringEntry(((txId + auctionId) + "_nft_status"), "CANCELED"), ScriptTransfer(Address(fromBase58String(nftOwner)), 1, fromBase58String(nftId))]
173-        else if ((biddingWinner != "0"))
174-            then throw("soory you can't cancel it because already auction placed by someone")
175-            else nil
176-    }
177-
178-
179-
180-@Callable(i)
181-func manualFundTransfer (recepientAddr,message) = {
9+func transferToken (recepientAddr,message) = {
18210     let caller = i.caller.bytes
18311     let reciver = fromBase58String(recepientAddr)
18412     let amount = i.payments[0].amount
185-    let recepient_payment = ((amount / 1000) * 975)
186-    let platform_fee = ((amount / 1000) * 25)
187-    if ((i.payments[0].assetId == unit))
188-        then [IntegerEntry((toBase58String(caller) + "_transfer"), amount), StringEntry("platform_fee", toString(platform_fee)), StringEntry((toBase58String(caller) + "_transfer_to"), recepientAddr), ScriptTransfer(Address(reciver), recepient_payment, unit)]
189-        else if ((i.payments[0].assetId == teams))
190-            then [IntegerEntry((toBase58String(caller) + "_transfer"), amount), StringEntry("platform_fee", toString(platform_fee)), StringEntry((toBase58String(caller) + "_transfer_to"), recepientAddr), ScriptTransfer(Address(reciver), recepient_payment, teams)]
191-            else nil
13+    if ((i.payments[0].assetId == teams))
14+        then [IntegerEntry((toBase58String(caller) + "_transfer"), amount), StringEntry((toBase58String(caller) + "_transfer_to"), recepientAddr), ScriptTransfer(Address(reciver), amount, teams)]
15+        else nil
19216     }
19317 
19418 
github/deemru/w8io/c3f4982 
33.13 ms ◑