OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER

OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^SPACE={ANIMACJA_0^MOVE(50,0);}
KEYBOARD:ONKEYDOWN^E={ANIMACJA^SETFRAME("SPADA",0);ANIMACJA_5^PLAY("SPADA");}

OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
MOUSE:ONMOVE={TXTMSG^SETTEXT(["Test_test_gryzonia_("+MOUSE^GETPOSX()+","+MOUSE^GETPOSY()+")|GRAPHICSAT__"+CANVASOBSERVER^GETGRAPHICSAT(MOUSE^GETPOSX(),MOUSE^GETPOSY(),TRUE,0,1000000,FALSE)]);}

OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT

OBJECT=TXTMSG
TXTMSG:TYPE=TEXT
TXTMSG:VISIBLE=TRUE
TXTMSG:HYPERTEXT=
TXTMSG:FONT=ARIAL14
TXTMSG:TOCANVAS=TRUE
TXTMSG:RECT=0,0,800,250
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=TOP
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE

OBJECT=ANIMACJA
ANIMACJA:TYPE=ANIMO
ANIMACJA:FILENAME=1_KRET.ANN
ANIMACJA:VISIBLE=TRUE
ANIMACJA:TOCANVAS=TRUE
ANIMACJA:PRIORITY=25
ANIMACJA:FPS=32
ANIMACJA:PRELOAD=TRUE
ANIMACJA:RELEASE=TRUE
ANIMACJA:MONITORCOLLISION=FALSE
ANIMACJA:MONITORCOLLISIONALPHA=FALSE
ANIMACJA:ASBUTTON=TRUE
ANIMACJA:ONCLICK={ANIMACJA^PLAY("SPADA");}
ANIMACJA:ONFINISHED^SPADA={ANIMACJA^SETFRAME("R_IDLE",0);}

OBJECT=CLONE_ANIMO
CLONE_ANIMO:TYPE=BEHAVIOUR
CLONE_ANIMO:CODE={ANIMACJA^CLONE(5);ANIMACJA_1^MOVE(50,0);ANIMACJA_2^MOVE(100,0);ANIMACJA_3^MOVE(150,0);ANIMACJA_4^MOVE(200,0);ANIMACJA_5^MOVE(250,0);}

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);ANIMACJA^SHOW();ANIMACJA^SETPOSITION(400, 500);ANIMACJA^SETFRAME("SPADA",4);CLONE_ANIMO^RUN();@MSGBOX("TWOJA STARA");}