Dero Network Status

Sc Id:d3dae2a2dddfc9958ed371d4ea32bf21416e28bb90d2b92ddce52b120c7358d5

Signer:dero1qygf3ekcz9lp96s29yw5nyvmt58ffwumyznfxdy4gj3kdakmzpn7vqq2v6r58

Balance:21.38435

Execution:313

SC Code:

// DCLOB v0.92
Function Initialize(a1 String,a2 String,fee Uint64) Uint64
	1 IF EXISTS("owner") THEN GOTO 20
	2 STORE("owner",SIGNER())
	3 STORE("a1",HEXDECODE(a1))
	4 STORE("a2",HEXDECODE(a2))
	5 STORE("fee",fee)
	6 STORE("memloc",0)
	7 STORE("hist",0)
	8 STORE("o1",0)
	9 STORE("o2",0)
	10 STORE("buy",newNode(0,0,0))
	11 STORE("sell",newNode(0,0,0))
	20 RETURN 0
End Function
Function UpCode(c String) Uint64
	1 IF LOAD("owner")!=SIGNER() THEN GOTO 3
	2 UPDATE_SC_CODE(c)
	3 RETURN 0
End Function
Function UpFee(f Uint64) Uint64
	1 IF LOAD("owner")!=SIGNER() THEN GOTO 3
	2 STORE("fee",f)
	3 RETURN 0
End Function
Function UpBen(b String) Uint64
	1 IF LOAD("owner")!=SIGNER() THEN GOTO 3
	2 STORE("ben",HEXDECODE(b))
	3 RETURN 0
End Function
Function Withdraw() Uint64
	1 IF LOAD("ben")!=SIGNER() THEN GOTO 8
	2 IF LOAD("o1")==0 THEN GOTO 5
	3 SEND_ASSET_TO_ADDRESS(SIGNER()),LOAD("o1"),LOAD("a1"))
	4 STORE("o1",0)
	5 IF LOAD("o2")==0 THEN GOTO 8
	6 SEND_ASSET_TO_ADDRESS(SIGNER()),LOAD("o2"),LOAD("a2"))
	7 STORE("o2",0)
	8 RETURN 0
End Function
Function getLoc() Uint64
	1 DIM m AS Uint64
	2 LET m=LOAD("memloc")+1
	3 STORE("memloc",m)
	4 RETURN m
End Function
Function stoHist(x Uint64,y Uint64,s1 String,s2 String)
	1 DIM h AS Uint64
	2 LET h=LOAD("hist")
	3 STORE("h:"+h,":"+BLOCK_TIMESTAMP()+":"+x+":"+y+":"+HEX(SUBSTR(s1,0,4))+":"+HEX(SUBSTR(s2,0,4)))
	4 STORE("hist",(h+1)%1000)
	5 RETURN
End Function
Function newNode(p Uint64,k Uint64,d Uint64) Uint64
	1 DIM n AS Uint64
	2 LET n=getLoc()
	3 STORE("np:"+n,p)
	4 STORE("nk:"+n,k)
	5 STORE("nd:"+n,d)
	6 STORE("nl:"+n,0)
	7 STORE("nr:"+n,0)
	8 RETURN n
End Function
Function delNode(n Uint64)
	1 DELETE("np:"+n)
	2 DELETE("nk:"+n)
	3 DELETE("nd:"+n)
	4 DELETE("nl:"+n)
	5 DELETE("nr:"+n)
	6 RETURN
End Function
Function getExt(n Uint64,dir String) Uint64
	1 DIM x AS Uint64
	2 IF LOAD("nk:"+n)!=0 THEN GOTO 4
	3 RETURN 0
	4 LET x=LOAD(dir+n)
	5 IF x==0 THEN GOTO 8
	6 LET n=x
	7 GOTO 2
	8 RETURN n
End Function
Function btGetFirst(n Uint64) Uint64
	1 RETURN getExt(n,"nl:")
End Function
Function btGetLast(n Uint64) Uint64
	1 RETURN getExt(n,"nr:")
End Function
Function btGetNext(n Uint64) Uint64
	10 DIM r,p AS Uint64
	20 IF n==0 THEN GOTO 90
	30 LET r=LOAD("nr:"+n)
	40 IF r==0 THEN GOTO 60
	50 RETURN btGetFirst(r)
	60 LET p=LOAD("np:"+n)
	70 IF p==0 THEN GOTO 90
	80 IF LOAD("nl:"+p)!=n THEN GOTO 100
	90 RETURN p
	100 LET n=p
	110 GOTO 60
End Function
Function btGetPrev(n Uint64) Uint64
	10 DIM l,p AS Uint64
	20 IF n==0 THEN GOTO 90
	30 LET l=LOAD("nl:"+n)
	40 IF l==0 THEN GOTO 60
	50 RETURN btGetLast(l)
	60 LET p=LOAD("np:"+n)
	70 IF p==0 THEN GOTO 90
	80 IF LOAD("nr:"+p)!=n THEN GOTO 100
	90 RETURN p
	100 LET n=p
	110 GOTO 60
End Function
Function btInsert(root Uint64,k Uint64,d Uint64) Uint64
	10 DIM n,p,tk AS Uint64
	20 IF k!=0 THEN GOTO 40
	30 RETURN 0
	40 LET n=root
	45 LET tk=LOAD("nk:"+n)
	50 IF tk!=0 THEN GOTO 90
	60 STORE("nk:"+n,k)
	70 STORE("nd:"+n,d)
	80 RETURN n
	90 IF n==0 THEN GOTO 200
	95 LET tk=LOAD("nk:"+n)
	100 LET p=n
	110 IF k>=tk THEN GOTO 140
	120 LET n=LOAD("nl:"+n)
	130 GOTO 90
	140 LET n=LOAD("nr:"+n)
	150 GOTO 90
	200 LET n=newNode(p,k,d)
	210 IF k>=tk THEN GOTO 240
	220 STORE("nl:"+p,n)
	230 RETURN n
	240 STORE("nr:"+p,n)
	250 RETURN n
End Function
Function btDelete(root Uint64,n Uint64) Uint64
	10 DIM l,r,p,n1,cn AS Uint64
	20 LET l=LOAD("nl:"+n)
	30 LET r=LOAD("nr:"+n)
	40 IF l==0||r==0 THEN GOTO 200
	50 LET n1=btGetFirst(r)
	60 LET p=LOAD("nd:"+n1)
	70 STORE("nk:"+n,LOAD("nk:"+n1))
	80 STORE("nd:"+n,p)
	90 STORE("tn:"+p,n)
	100 RETURN btDelete(root,n1)
	200 LET p=LOAD("np:"+n)
	205 IF r==0 THEN GOTO 225
	210 LET cn=r
	220 GOTO 300
	225 IF l==0 THEN GOTO 250
	230 LET cn=l
	250 IF cn!=0||p!=0 THEN GOTO 300
	260 STORE("nk:"+n,0)
	270 STORE("nd:"+n,"")
	280 RETURN root
	300 IF p==0 THEN GOTO 400
	310 IF LOAD("nl:"+p)==n THEN GOTO 340
	320 STORE("nr:"+p,cn)
	330 GOTO 350
	340 STORE("nl:"+p,cn)
	350 IF cn==0 THEN GOTO 450
	360 STORE("np:"+cn,p)
	370 GOTO 450
	400 LET root=cn
	410 STORE("np:"+root,0)
	450 delNode(n)
	500 RETURN root
End Function
Function multDiv(a Uint64,b Uint64,c Uint64) Uint64
	10 DIM base,maxdiv,res AS Uint64
	20 LET base=4294967296
	30 LET maxdiv=(base-1)*base+(base-1)
	40 LET res=(a/c)*b+(a%c)*(b/c)
	50 LET a=a%c
	60 LET b=b%c
	70 IF (a==0||b==0) THEN GOTO 1000
	100 IF (c>=base) THEN GOTO 200
	110 LET res=res+(a*b/c)
	120 GOTO 1000
	200 DIM norm,ah,al,bh,bl,ch,cl,p0,p1,p2,q0,q1,rhat AS Uint64
	210 LET norm=maxdiv/c
	220 LET c=c*norm
	230 LET a=a*norm
	300 LET ah=a/base
	310 LET al=a%base
	320 LET bh=b/base
	330 LET bl=b%base
	340 LET ch=c/base
	350 LET cl=c%base
	400 LET p0=al*bl
	410 LET p1=p0/base+al*bh
	420 LET p0=p0%base
	430 LET p2=p1/base+ah*bh
	440 LET p1=(p1%base)+ah*bl
	450 LET p2=p2+p1/base
	460 LET p1=p1%base
	500 LET p2=p2%c
	510 LET q1=p2/ch
	520 LET rhat=p2%ch
	600 IF (q1<base&&(rhat>=base||q1*cl<=rhat*base+p1)) THEN GOTO 700
	610 LET q1=q1-1
	620 LET rhat=rhat+ch
	630 GOTO 600
	700 LET p1=((p2%base)*base+p1)-q1*cl
	710 LET p2=(p2/base*base+p1/base)-q1*ch
	720 LET p1=(p1%base)+(p2%base)*base
	730 LET q0=p1/ch
	740 LET rhat=p1%ch
	800 IF (q0<base&&(rhat>=base||q0*cl<=rhat*base+p0)) THEN GOTO 900
	810 LET q0=q0-1
	820 LET rhat=rhat+ch
	830 GOTO 800
	900 LET res=res+q0+q1*base
	1000 RETURN res
End Function
Function payAsset(s String,a String,o String,f Uint64)
	1 DIM x AS Uint64
	2 IF MAPEXISTS(s+a)==0 THEN GOTO 6
	3 LET x=multDiv(MAPGET(s+a),f,10000)
	4 SEND_ASSET_TO_ADDRESS(s,MAPGET(s+a)-x,a)
	5 STORE(o,LOAD(o)+x)
	6 RETURN
End Function
Function pay(a1 String,a2 String,f Uint64)
	1 DIM n,i AS Uint64
	2 DIM s AS String
	3 IF MAPEXISTS("n")!=1 THEN GOTO 10
	4 LET n=MAPGET("n")
	5 LET s=MAPGET("n"+i)
	6 payAsset(s,a1,"o1",f)
	7 payAsset(s,a2,"o2",f)
	8 LET i=i+1
	9 IF i<n THEN GOTO 5
	10 RETURN
End Function
Function tran(s String,a String,v Uint64)
	10 DIM t,n AS Uint64
	20 IF MAPEXISTS(s+a)!=1 THEN GOTO 40
	30 LET t=MAPGET(s+a)
	40 MAPSTORE(s+a,t+v)
	50 IF MAPEXISTS(s) THEN GOTO 110
	60 MAPSTORE(s,"")
	70 IF MAPEXISTS("n")!=1 THEN GOTO 90
	80 LET n=MAPGET("n")
	90 MAPSTORE("n"+n,s)
	100 MAPSTORE("n",n+1)
	110 RETURN
End Function
Function stoTx(tx Uint64,n Uint64,s String,t String,o1 Uint64,o2 Uint64,v1 Uint64,v2 Uint64)
	1 STORE("tn:"+tx,n)
	2 STORE("ts:"+tx,s)
	3 STORE("tt:"+tx,t)
	4 STORE("to1:"+tx,o1)
	5 STORE("to2:"+tx,o2)
	6 STORE("tv1:"+tx,v1)
	7 STORE("tv2:"+tx,v2)
	8 RETURN
End Function
Function delTx(tx Uint64)
	1 DELETE("tn:"+tx)
	2 DELETE("ts:"+tx)
	3 DELETE("tt:"+tx)
	4 DELETE("to1:"+tx)
	5 DELETE("to2:"+tx)
	6 DELETE("tv1:"+tx)
	7 DELETE("tv2:"+tx)
	8 RETURN
End Function
Function match(dir String,n Uint64,a1 String,a2 String,xs String,xv1 Uint64,xv2 Uint64)
	10 DIM ys AS String
	20 DIM tx,t1,t2,price,yv1,yv2 AS Uint64
	30 LET tx=LOAD("nd:"+n)
	40 LET ys=LOAD("ts:"+tx)
	50 LET yv1=LOAD("tv1:"+tx)
	60 LET yv2=LOAD("tv2:"+tx)
	70 LET price=LOAD("nk:"+n)
	80 LET t1=MIN(xv1,yv1)
	90 LET t2=multDiv(t1,price,10000000)
	110 MAPSTORE("v1",xv1-t1)
	120 STORE("tv1:"+tx,yv1-t1)
	130 IF dir=="buy" THEN GOTO 300
	200 tran(xs,a1,t1)
	210 tran(ys,a2,t2)
	220 MAPSTORE("v2",xv2-t2)
	230 stoHist(t1,price,xs,ys)
	240 GOTO 400
	300 tran(ys,a1,t1)
	310 tran(xs,a2,t2)
	320 STORE("tv2:"+tx,yv2-t2)
	330 stoHist(t1,price,ys,xs)
	400 IF yv1>t1 THEN GOTO 520
	410 IF yv2<=t2 THEN GOTO 500
	420 tran(ys,a2,yv2-t2)
	500 STORE(dir,btDelete(LOAD(dir),n))
	510 delTx(tx)
	520 RETURN
End Function
Function Sell(price Uint64) Uint64
	10 DIM n,n1,o1,v1,tx AS Uint64
	20 DIM s,a1,a2 AS String
	30 LET s=SIGNER()
	40 LET a1=LOAD("a1")
	50 LET a2=LOAD("a2")
	60 LET o1=ASSETVALUE(a1)
	70 IF o1==0 THEN GOTO 500
	80 LET v1=o1
	90 LET n=btGetLast(LOAD("buy"))
	200 IF n==0 THEN GOTO 300
	210 IF LOAD("nk:"+n)<price THEN GOTO 300
	220 LET n1=btGetPrev(n)
	230 match("buy",n,a1,a2,s,v1,0)
	240 LET v1=MAPGET("v1")
	260 LET n=n1
	270 IF v1!=0 THEN GOTO 200 ELSE GOTO 400
	300 LET tx=getLoc()
	310 LET n=btInsert(LOAD("sell"),price,tx)
	320 stoTx(tx,n,s,"sell",o1,0,v1,0)
	400 pay(a1,a2,LOAD("fee"))
	410 RETURN 0
	500 RETURN 1
End Function
Function Buy(o1 Uint64,price Uint64) Uint64
	10 DIM n,n1,o2,v1,v2,tx AS Uint64
	20 DIM s,a1,a2 AS String
	30 LET s=SIGNER()
	40 LET a1=LOAD("a1")
	50 LET a2=LOAD("a2")
	60 LET o2=ASSETVALUE(a2)
	70 IF o2<multDiv(o1,price,10000000) THEN GOTO 500
	80 LET v1=o1
	90 LET v2=o2
	100 LET n=btGetFirst(LOAD("sell"))
	200 IF n==0 THEN GOTO 300
	210 IF LOAD("nk:"+n)>price THEN GOTO 300
	220 LET n1=btGetNext(n)
	230 match("sell",n,a1,a2,s,v1,v2)
	240 LET v1=MAPGET("v1")
	250 LET v2=MAPGET("v2")
	260 LET n=n1
	270 IF v1!=0 THEN GOTO 200
	280 IF v2==0 THEN GOTO 400
	290 tran(s,a2,v2)
	295 GOTO 400
	300 LET tx=getLoc()
	310 LET n=btInsert(LOAD("buy"),price,tx)
	320 stoTx(tx,n,s,"buy",o1,o2,v1,v2)
	400 pay(a1,a2,LOAD("fee"))
	410 RETURN 0
	500 RETURN 1
End Function
Function can(tx Uint64)
	10 DIM s,t AS String
	20 LET s=LOAD("ts:"+tx)
	30 IF SIGNER()!=s THEN GOTO 400
	40 LET t=LOAD("tt:"+tx)
	50 IF t=="buy" THEN GOTO 200
	100 tran(s,LOAD("a1"),LOAD("tv1:"+tx))
	110 GOTO 300
	200 tran(s,LOAD("a2"),LOAD("tv2:"+tx))
	300 STORE(t,btDelete(LOAD(t),LOAD("tn:"+tx)))
	310 delTx(tx)
	400 RETURN
End Function
Function Cancel(tx Uint64) Uint64
	1 IF EXISTS("ts:"+tx)==0 THEN GOTO 4
	2 can(tx)
	3 pay(LOAD("a1"),LOAD("a2"),0)
	4 RETURN 0
End Function
Function canType(t String)
	1 DIM n,n1 AS Uint64
	2 LET n=btGetFirst(LOAD(t))
	3 IF n==0 THEN GOTO 9
	4 LET n1=btGetNext(n)
	5 can(LOAD("nd:"+n))
	6 LET n=n1
	7 GOTO 3
	9 RETURN
End Function
Function CancelAll() Uint64
	1 canType("sell")
	2 canType("buy")
	3 pay(LOAD("a1"),LOAD("a2"),0)
	4 RETURN 0
End Function