55 lines
2 KiB
Common Lisp
55 lines
2 KiB
Common Lisp
|
|
*start
|
|
|
|
[eval exp="mp.w = 58"]
|
|
[eval exp="mp.h = 58"]
|
|
[eval exp="mp.zoom = 3"]
|
|
[state nozoom=true]
|
|
|
|
[dispsize width=&mp.w height=&mp.h]
|
|
|
|
[disp left= 0 top=0 opacity=0][wait frame=1]
|
|
;[eval exp="dm('this : ' + this)"]
|
|
;[eval exp="dm('owner : ' + owner)"]
|
|
;[eval exp="dm('layer : ' + layer)"]
|
|
;[eval exp="dm('sprite : ' + sprite)"]
|
|
;[eval exp="dm('owner.owner : ' + owner.owner)"]
|
|
;[eval exp="dm('owner.owner.owner : ' + owner.owner.owner)"]
|
|
;[eval exp="dm('owner.owner.owner.layer : ' + owner.owner.owner.layer)"]
|
|
;[eval exp="dm('bao.objects[0] : ' + bao.objects[0])"]
|
|
;[eval exp="dm('bao.objects[0].layer : ' + bao.objects[0].layer)"]
|
|
;[eval exp="dm('bao.objects[0].layer.layers[0] : ' + bao.objects[0].layer.layers[0])"]
|
|
;[eval exp="dm('owner.owner.visible : ' + owner.owner.visible)"]
|
|
|
|
[eval exp="owner.owner.visible=true"]
|
|
|
|
[eval exp="mp.x=0,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=1,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=2,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=3,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=4,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=5,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=6,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=7,mp.y=0"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=8,mp.y=0"][call target=*copy][wait frame=2]
|
|
|
|
[eval exp="mp.x=0,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=1,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=2,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=3,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=4,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=5,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=6,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=7,mp.y=1"][call target=*copy][wait frame=2]
|
|
[eval exp="mp.x=8,mp.y=1"][call target=*copy][wait frame=2]
|
|
|
|
|
|
|
|
*end
|
|
[s]
|
|
|
|
|
|
*copy
|
|
[eval exp="owner.owner.stretchCopy(0, 0, mp.w*mp.zoom, mp.h*mp.zoom, layer, mp.x*mp.w, mp.y*mp.h, mp.w, mp.h, stNearest)"]
|
|
[return]
|
|
|