Threaded Mode | Linear Mode

Alaric · 06-01-2013 06:00 AM

If somebody wants.

Code:

[dialog d_decorating]

0,0

resizepic 100 200 3600 265 390

resizepic 145 280 3600 120 170

page 0

button 130 240 0119B 0119B 1 0 1

button 230 240 01195 01195 1 0 2

button 130 440 01199 01199 1 0 3

button 230 440 01197 01197 1 0 4

button 280 310 01194 01194 1 0 5

button 280 370 01198 01198 1 0 6

button 290 430 01196 01196 1 0 7

text 120 220 100 0

text 130 500 100 1

text 130 520 100 2

text 130 540 100 3

text 230 500 100 4

text 230 520 100 5

text 230 540 100 6

tilepichue 182 <eval 300+(-(2*<height>)+50)> <dispiddec> <color>

[dialog d_decorating TEXT]

NAME: <uid.<uid>.name>(<uid>)

X: <p.x>

Y: <p.y>

Z: <p.z>

DISPID: <dispid>

COLOR: <color>

TIMER: <timer>

[dialog d_decorating BUTTON]

on=0

   return

on=1

   p=<eval <p.x>-1> <p.y> <p.z>

   dialog d_decorating

on=2

   p=<p.x> <eval <p.y>-1> <p.z>

   dialog d_decorating

on=3

   p=<p.x> <eval <p.y>+1> <p.z>

   dialog d_decorating

on=4

   p=<eval <p.x>+1> <p.y> <p.z>

   dialog d_decorating

on=5

   p=<p.x> <p.y> <eval <p.z>+1>

   dialog d_decorating

on=6

   p=<p.x> <p.y> <eval <p.z>-1>

   dialog d_decorating

on=7

   flip

   dialog d_decorating

[function decorating]

targetf f_decorating

[function uprav]

decorating

[function upravit]

decorating

[function f_decorating]

if <argo.isitem>

   argo.dialog d_decorating

else

   message Is not an item.

endif

Threaded Mode \| Linear Mode Moving items
Author	Message