patryk025/BlooMooTestScripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added files

Browse Source
This commit is contained in:
Patryk Gensch
2026-02-23 21:11:22 +01:00
parent db30b71ee8
commit bb190c6937
207 changed files with 12001 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

564
dane/game/debug/Kontrola/Kontrola.cnv Normal file
View File

@@ -0,0 +1,564 @@
OBJECT=PROBA
PROBA:TYPE=INTEGER
PROBA:VALUE=1
OBJECT=VAR_CYFRA
VAR_CYFRA:TYPE=INTEGER
VAR_CYFRA:VALUE=0
VAR_CYFRA:ONCHANGED^2=B_CYFRA_2
VAR_CYFRA:ONCHANGED^3=B_CYFRA_3
VAR_CYFRA:ONCHANGED^4=B_CYFRA_4
VAR_CYFRA:ONCHANGED^5={B_CYFRA_4^RUN();VAR_CYFRA^SET(6);}
VAR_CYFRA:ONCHANGED^7={B_CYFRA_4^RUN();VAR_CYFRA^SET(6);}
OBJECT=VAR_KOD
VAR_KOD:TYPE=STRING
OBJECT=ZNACZKI1
ZNACZKI1:TYPE=ANIMO
ZNACZKI1:VISIBLE=TRUE
ZNACZKI1:FILENAME=ZNACZKI1.ANN
ZNACZKI1:TOCANVAS=TRUE
ZNACZKI1:PRIORITY=6
ZNACZKI1:FPS=16
ZNACZKI1:PRELOAD=TRUE
ZNACZKI1:RELEASE=TRUE
ZNACZKI1:MONITORCOLLISION=FALSE
ZNACZKI1:MONITORCOLLISIONALPHA=FALSE
ZNACZKI1:ONINIT=THISHIDE
OBJECT=ZNACZKI2
ZNACZKI2:TYPE=ANIMO
ZNACZKI2:VISIBLE=TRUE
ZNACZKI2:FILENAME=ZNACZKI2.ANN
ZNACZKI2:TOCANVAS=TRUE
ZNACZKI2:PRIORITY=6
ZNACZKI2:FPS=16
ZNACZKI2:PRELOAD=TRUE
ZNACZKI2:RELEASE=TRUE
ZNACZKI2:MONITORCOLLISION=FALSE
ZNACZKI2:MONITORCOLLISIONALPHA=FALSE
ZNACZKI2:ONINIT=THISHIDE
OBJECT=ZNACZKI3
ZNACZKI3:TYPE=ANIMO
ZNACZKI3:VISIBLE=TRUE
ZNACZKI3:FILENAME=ZNACZKI3.ANN
ZNACZKI3:TOCANVAS=TRUE
ZNACZKI3:PRIORITY=6
ZNACZKI3:FPS=16
ZNACZKI3:PRELOAD=TRUE
ZNACZKI3:RELEASE=TRUE
ZNACZKI3:MONITORCOLLISION=FALSE
ZNACZKI3:MONITORCOLLISIONALPHA=FALSE
ZNACZKI3:ONINIT=THISHIDE
OBJECT=ZNACZKI4
ZNACZKI4:TYPE=ANIMO
ZNACZKI4:VISIBLE=TRUE
ZNACZKI4:FILENAME=ZNACZKI4.ANN
ZNACZKI4:TOCANVAS=TRUE
ZNACZKI4:PRIORITY=6
ZNACZKI4:FPS=16
ZNACZKI4:PRELOAD=TRUE
ZNACZKI4:RELEASE=TRUE
ZNACZKI4:MONITORCOLLISION=FALSE
ZNACZKI4:MONITORCOLLISIONALPHA=FALSE
ZNACZKI4:ONINIT=THISHIDE
OBJECT=GLINA_9
GLINA_9:TYPE=ANIMO
GLINA_9:VISIBLE=TRUE
GLINA_9:FILENAME=GLINA.ANN
GLINA_9:TOCANVAS=TRUE
GLINA_9:PRIORITY=20
GLINA_9:FPS=16
GLINA_9:PRELOAD=TRUE
GLINA_9:RELEASE=TRUE
GLINA_9:MONITORCOLLISION=FALSE
GLINA_9:MONITORCOLLISIONALPHA=FALSE
OBJECT=EKRAN
EKRAN:TYPE=ANIMO
EKRAN:VISIBLE=TRUE
EKRAN:FILENAME=EKRAN.ANN
EKRAN:TOCANVAS=TRUE
EKRAN:PRIORITY=0
EKRAN:FPS=16
EKRAN:PRELOAD=TRUE
EKRAN:RELEASE=TRUE
EKRAN:MONITORCOLLISION=FALSE
EKRAN:MONITORCOLLISIONALPHA=FALSE
EKRAN:ONFINISHED=ENABLEALL
OBJECT=ANNEXIT
ANNEXIT:TYPE=ANIMO
ANNEXIT:VISIBLE=TRUE
ANNEXIT:FILENAME=M_EXIT.ANN
ANNEXIT:TOCANVAS=TRUE
ANNEXIT:PRIORITY=0
ANNEXIT:FPS=16
ANNEXIT:PRELOAD=TRUE
ANNEXIT:RELEASE=TRUE
ANNEXIT:MONITORCOLLISION=FALSE
ANNEXIT:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ1
KLAWISZ1:TYPE=IMAGE
KLAWISZ1:VISIBLE=FALSE
KLAWISZ1:FILENAME=KLAWISZ1.IMG
KLAWISZ1:TOCANVAS=TRUE
KLAWISZ1:PRIORITY=4
KLAWISZ1:PRELOAD=TRUE
KLAWISZ1:RELEASE=TRUE
KLAWISZ1:MONITORCOLLISION=FALSE
KLAWISZ1:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ2
KLAWISZ2:TYPE=IMAGE
KLAWISZ2:VISIBLE=FALSE
KLAWISZ2:FILENAME=KLAWISZ2.IMG
KLAWISZ2:TOCANVAS=TRUE
KLAWISZ2:PRIORITY=4
KLAWISZ2:PRELOAD=TRUE
KLAWISZ2:RELEASE=TRUE
KLAWISZ2:MONITORCOLLISION=FALSE
KLAWISZ2:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ3
KLAWISZ3:TYPE=IMAGE
KLAWISZ3:VISIBLE=FALSE
KLAWISZ3:FILENAME=KLAWISZ3.IMG
KLAWISZ3:TOCANVAS=TRUE
KLAWISZ3:PRIORITY=4
KLAWISZ3:PRELOAD=TRUE
KLAWISZ3:RELEASE=TRUE
KLAWISZ3:MONITORCOLLISION=FALSE
KLAWISZ3:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ4
KLAWISZ4:TYPE=IMAGE
KLAWISZ4:VISIBLE=FALSE
KLAWISZ4:FILENAME=KLAWISZ4.IMG
KLAWISZ4:TOCANVAS=TRUE
KLAWISZ4:PRIORITY=4
KLAWISZ4:PRELOAD=TRUE
KLAWISZ4:RELEASE=TRUE
KLAWISZ4:MONITORCOLLISION=FALSE
KLAWISZ4:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ5
KLAWISZ5:TYPE=IMAGE
KLAWISZ5:VISIBLE=FALSE
KLAWISZ5:FILENAME=KLAWISZ5.IMG
KLAWISZ5:TOCANVAS=TRUE
KLAWISZ5:PRIORITY=4
KLAWISZ5:PRELOAD=TRUE
KLAWISZ5:RELEASE=TRUE
KLAWISZ5:MONITORCOLLISION=FALSE
KLAWISZ5:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ6
KLAWISZ6:TYPE=IMAGE
KLAWISZ6:VISIBLE=FALSE
KLAWISZ6:FILENAME=KLAWISZ6.IMG
KLAWISZ6:TOCANVAS=TRUE
KLAWISZ6:PRIORITY=4
KLAWISZ6:PRELOAD=TRUE
KLAWISZ6:RELEASE=TRUE
KLAWISZ6:MONITORCOLLISION=FALSE
KLAWISZ6:MONITORCOLLISIONALPHA=FALSE
OBJECT=ENTER
ENTER:TYPE=IMAGE
ENTER:VISIBLE=TRUE
ENTER:FILENAME=ENTER.IMG
ENTER:TOCANVAS=TRUE
ENTER:PRIORITY=0
ENTER:PRELOAD=TRUE
ENTER:RELEASE=TRUE
ENTER:MONITORCOLLISION=FALSE
ENTER:MONITORCOLLISIONALPHA=FALSE
OBJECT=BUT1
BUT1:TYPE=BUTTON
BUT1:VISIBLE=TRUE
BUT1:RECT=KLAWISZ1
BUT1:ENABLE=TRUE
BUT1:DRAGGABLE=FALSE
BUT1:ONINIT=DIDISABLE
BUT1:ONCLICKED=B_WPIS(1)
OBJECT=ENTERBUT
ENTERBUT:TYPE=BUTTON
ENTERBUT:VISIBLE=TRUE
ENTERBUT:ENABLE=TRUE
ENTERBUT:DRAGGABLE=FALSE
ENTERBUT:GFXSTANDARD=ENTER
ENTERBUT:ONINIT=DIDISABLE
ENTERBUT:ONCLICKED=B_CHECK
OBJECT=GLINABUT
GLINABUT:TYPE=BUTTON
GLINABUT:VISIBLE=TRUE
GLINABUT:ENABLE=TRUE
GLINABUT:DRAGGABLE=FALSE
GLINABUT:GFXSTANDARD=GLINA_9
GLINABUT:ONCLICKED=GLINAGADA3B
GLINABUT:ONINIT=DIDISABLE
OBJECT=EXITPROGAM
EXITPROGAM:TYPE=BUTTON
EXITPROGAM:VISIBLE=TRUE
EXITPROGAM:ENABLE=TRUE
EXITPROGAM:DRAGGABLE=FALSE
EXITPROGAM:ONRELEASED={EXITPROGRAMNAMAXA^RUN();}
EXITPROGAM:ONFOCUSON={ANNEXIT^PLAY("ONFOCUSON");}
EXITPROGAM:ONFOCUSOFF={ANNEXIT^PLAY("ONFOCUSOFF");}
EXITPROGAM:ONCLICKED={ANNEXIT^PLAY("ONCLICK");}
OBJECT=BUT2
BUT2:TYPE=BUTTON
BUT2:VISIBLE=TRUE
BUT2:RECT=KLAWISZ2
BUT2:ENABLE=TRUE
BUT2:DRAGGABLE=FALSE
BUT2:ONINIT=DIDISABLE
BUT2:ONCLICKED=B_WPIS(2)
OBJECT=BUT3
BUT3:TYPE=BUTTON
BUT3:VISIBLE=TRUE
BUT3:RECT=KLAWISZ3
BUT3:ENABLE=TRUE
BUT3:DRAGGABLE=FALSE
BUT3:ONINIT=DIDISABLE
BUT3:ONCLICKED=B_WPIS(3)
OBJECT=BUT4
BUT4:TYPE=BUTTON
BUT4:VISIBLE=TRUE
BUT4:RECT=KLAWISZ4
BUT4:ENABLE=TRUE
BUT4:DRAGGABLE=FALSE
BUT4:ONINIT=DIDISABLE
BUT4:ONCLICKED=B_WPIS(4)
OBJECT=BUT5
BUT5:TYPE=BUTTON
BUT5:VISIBLE=TRUE
BUT5:RECT=KLAWISZ5
BUT5:ENABLE=TRUE
BUT5:DRAGGABLE=FALSE
BUT5:ONINIT=DIDISABLE
BUT5:ONCLICKED=B_WPIS(5)
OBJECT=BUT6
BUT6:TYPE=BUTTON
BUT6:VISIBLE=TRUE
BUT6:RECT=KLAWISZ6
BUT6:ENABLE=TRUE
BUT6:DRAGGABLE=FALSE
BUT6:ONINIT=DIDISABLE
BUT6:ONCLICKED=B_WPIS(6)
OBJECT=GLINA
GLINA:TYPE=SEQUENCE
GLINA:FILENAME=GLINA.SEQ
GLINA:ONFINISHED^ENTRE=GLINAGADA1
GLINA:ONFINISHED^GADA1=GLINAGADA2
GLINA:ONFINISHED^GADA2=GLINAGADA3
GLINA:ONFINISHED^GADA3=GLINAPOKAZUJE
GLINA:ONFINISHED^EXIT={BEHCSEND^RUN();}
GLINA:ONFINISHED^GADA4=GLINAGADA5
GLINA:ONFINISHED^GADA7={GLINAOK^RUN();}
GLINA:ONFINISHED^OK={GLINAEXIT^RUN();}
GLINA:ONFINISHED^GADA5=B_RESET
GLINA:ONFINISHED^GADA6=B_RESET
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=CONPR1
CONPR1:TYPE=CONDITION
CONPR1:OPERAND1=PROBA
CONPR1:OPERATOR=LESSEQUAL
CONPR1:OPERAND2=4
CONPR1:ONRUNTIMESUCCESS=GLINAGADA4
OBJECT=CONPR2
CONPR2:TYPE=CONDITION
CONPR2:OPERAND1=PROBA
CONPR2:OPERATOR=EQUAL
CONPR2:OPERAND2=5
CONPR2:ONRUNTIMESUCCESS=GLINAGADA5
OBJECT=CONPR3
CONPR3:TYPE=CONDITION
CONPR3:OPERAND1=PROBA
CONPR3:OPERATOR=GREATEREQUAL
CONPR3:OPERAND2=6
CONPR3:ONRUNTIMESUCCESS=GLINAGADA6
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
OBJECT=THISHIDE
THISHIDE:TYPE=BEHAVIOUR
THISHIDE:CODE={THIS^HIDE();}
OBJECT=THISPLAY
THISPLAY:TYPE=BEHAVIOUR
THISPLAY:CODE={THIS^PLAY("PLAY");}
OBJECT=GLINAENTRE
GLINAENTRE:TYPE=BEHAVIOUR
GLINAENTRE:CODE={GLINA^PLAY("ENTRE");}
OBJECT=GLINAGADA1
GLINAGADA1:TYPE=BEHAVIOUR
GLINAGADA1:CODE={EKRAN^PLAY("PLAY");GLINA^PLAY("GADA1");}
OBJECT=GLINAGADA2
GLINAGADA2:TYPE=BEHAVIOUR
GLINAGADA2:CODE={GLINA^PLAY("GADA2");}
OBJECT=GLINAGADA3
GLINAGADA3:TYPE=BEHAVIOUR
GLINAGADA3:CODE={GLINA^PLAY("GADA3");}
OBJECT=GLINAGADA4
GLINAGADA4:TYPE=BEHAVIOUR
GLINAGADA4:CODE={GLINA^PLAY("GADA4");}
OBJECT=GLINAGADA5
GLINAGADA5:TYPE=BEHAVIOUR
GLINAGADA5:CODE={GLINA^PLAY("GADA5");}
OBJECT=GLINAGADA6
GLINAGADA6:TYPE=BEHAVIOUR
GLINAGADA6:CODE={GLINA^PLAY("GADA6");}
OBJECT=GLINAGADA7
GLINAGADA7:TYPE=BEHAVIOUR
GLINAGADA7:CODE={GLINA^PLAY("GADA7");}
OBJECT=GLINAEXIT
GLINAEXIT:TYPE=BEHAVIOUR
GLINAEXIT:CODE={EKRAN^HIDE();ZNACZKI1^HIDE();ZNACZKI2^HIDE();ZNACZKI3^HIDE();ZNACZKI4^HIDE();BUT1^DISABLE();BUT2^DISABLE();BUT3^DISABLE();BUT4^DISABLE();BUT5^DISABLE();BUT6^DISABLE();ENTERBUT^DISABLE();GLINABUT^DISABLE();GLINA^PLAY("EXIT");}
OBJECT=GLINAOK
GLINAOK:TYPE=BEHAVIOUR
GLINAOK:CODE={GLINA^PLAY("OK");}
OBJECT=GLINAPOKAZUJE
GLINAPOKAZUJE:TYPE=BEHAVIOUR
GLINAPOKAZUJE:CODE={GLINA^PLAY("POKAZUJE");}
OBJECT=DIDISABLE
DIDISABLE:TYPE=BEHAVIOUR
DIDISABLE:CODE={THIS^DISABLE();}
OBJECT=ENABLEALL
ENABLEALL:TYPE=BEHAVIOUR
ENABLEALL:CODE={BUT1^ENABLE();BUT2^ENABLE();BUT3^ENABLE();BUT4^ENABLE();BUT5^ENABLE();BUT6^ENABLE();ENTERBUT^ENABLE();GLINABUT^ENABLE();}
OBJECT=ENTERBUTBEH
ENTERBUTBEH:TYPE=BEHAVIOUR
ENTERBUTBEH:CODE={CON1^CHECK(RUN);CON2^CHECK(RUN);CON3^CHECK(RUN);CON4^CHECK(RUN);}
OBJECT=HASLOOKIEJ
HASLOOKIEJ:TYPE=BEHAVIOUR
HASLOOKIEJ:CODE={GLINAGADA7^RUN();DISABLEALL^RUN();}
OBJECT=DISABLEALL
DISABLEALL:TYPE=BEHAVIOUR
DISABLEALL:CODE={BUT1^DISABLEBUTVISIBLE();BUT2^DISABLEBUTVISIBLE();BUT3^DISABLEBUTVISIBLE();BUT4^DISABLEBUTVISIBLE();BUT5^DISABLEBUTVISIBLE();BUT6^DISABLEBUTVISIBLE();ENTERBUT^DISABLEBUTVISIBLE();GLINABUT^DISABLEBUTVISIBLE();}
OBJECT=DORZEKI
DORZEKI:TYPE=BEHAVIOUR
DORZEKI:CODE={PRZYGODA^GOTO("S31_0_ZIEMIA");}
OBJECT=RESTART
RESTART:TYPE=BEHAVIOUR
RESTART:CODE={DIDISABLE^RUN();KTORAPROBA^RUN();ENABLEALL^RUN();PROBA^INC();ZNACZKI1^HIDE();ZNACZKI2^HIDE();ZNACZKI3^HIDE();ZNACZKI4^HIDE();}
OBJECT=KTORAPROBA
KTORAPROBA:TYPE=BEHAVIOUR
KTORAPROBA:CODE={CONPR1^CHECK(TRUE);CONPR2^CHECK(TRUE);CONPR3^CHECK(TRUE);}
OBJECT=GLINAGADA3B
GLINAGADA3B:TYPE=BEHAVIOUR
GLINAGADA3B:CODE={GLINA^PLAY("GADA3B");}
OBJECT=EXITPROGRAMNAMAXA
EXITPROGRAMNAMAXA:TYPE=BEHAVIOUR
EXITPROGRAMNAMAXA:CODE={PRZYGODA^GOTO("NAPISYMAIN");}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={G_SARCADESCENELAST^SET("TUNEL");G_SARCADESCENE^SET("KOMIN");SCENENAME^SET("KONTROLA");G_CURSOR^SETCURSOR("INACTIVE");ANNEXIT^SETPOSITION(-700,-450);EXITPROGAM^SETRECT("ANNEXIT");GLINAENTRE^RUN();}
OBJECT=B_CYFRA_4
B_CYFRA_4:TYPE=BEHAVIOUR
B_CYFRA_4:CODE={ZNACZKI1^SHOW();ZNACZKI1^SETFRAME("PLAY",ZNACZKI2^GETFRAMENAME());ZNACZKI2^SHOW();ZNACZKI2^SETFRAME("PLAY",ZNACZKI3^GETFRAMENAME());ZNACZKI3^SHOW();ZNACZKI3^SETFRAME("PLAY",ZNACZKI4^GETFRAMENAME());}
OBJECT=B_CYFRA_3
B_CYFRA_3:TYPE=BEHAVIOUR
B_CYFRA_3:CODE={ZNACZKI2^SHOW();ZNACZKI2^SETFRAME("PLAY",ZNACZKI3^GETFRAMENAME());ZNACZKI3^SHOW();ZNACZKI3^SETFRAME("PLAY",ZNACZKI4^GETFRAMENAME());}
OBJECT=B_CYFRA_2
B_CYFRA_2:TYPE=BEHAVIOUR
B_CYFRA_2:CODE={ZNACZKI3^SHOW();ZNACZKI3^SETFRAME("PLAY",ZNACZKI4^GETFRAMENAME());}
OBJECT=B_WPIS
B_WPIS:TYPE=BEHAVIOUR
B_WPIS:CODE={VAR_CYFRA^INC();ZNACZKI4^SHOW();ZNACZKI4^SETFRAME("PLAY",$1);}
OBJECT=B_LOST
B_LOST:TYPE=BEHAVIOUR
B_LOST:CODE={DISABLEALL^RUN();KTORAPROBA^RUN();PROBA^INC();}
OBJECT=B_WIN
B_WIN:TYPE=BEHAVIOUR
B_WIN:CODE={DISABLEALL^RUN();HASLOOKIEJ^RUN();}
OBJECT=B_CHECK
B_CHECK:TYPE=BEHAVIOUR
B_CHECK:CODE={VAR_KOD^SET([ZNACZKI1^GETFRAMENAME()+ZNACZKI2^GETFRAMENAME()]);VAR_KOD^ADD([ZNACZKI3^GETFRAMENAME()+ZNACZKI4^GETFRAMENAME()]);@IF("VAR_KOD","!_","6251","BFITMP0","BFITMP1");}
OBJECT=B_RESET
B_RESET:TYPE=BEHAVIOUR
B_RESET:CODE={ZNACZKI1^HIDE();ZNACZKI2^HIDE();ZNACZKI3^HIDE();ZNACZKI4^HIDE();ZNACZKI4^SETFRAME("PLAY",0);ZNACZKI3^SETFRAME("PLAY",0);ZNACZKI2^SETFRAME("PLAY",0);ZNACZKI1^SETFRAME("PLAY",0);VAR_CYFRA^SET(0);ENABLEALL^RUN();}
OBJECT=__PAUSESTART__
__PAUSESTART__:TYPE=BEHAVIOUR
__PAUSESTART__:CODE={SCENENAME^SET(PRZYGODA^GETCURRENTSCENE());MOUSE^DISABLESIGNAL();__KEYB__^SET(KEYBOARD^ISENABLED());KEYBOARD^DISABLE();__HSPOTMAX__^SET(*SCENENAME^GETMAXHSPRIORITY());__HSPOTMIN__^SET(*SCENENAME^GETMINHSPRIORITY());*SCENENAME^GETPLAYINGANIMO("__GRHELP__");}
OBJECT=__PAUSEEND__
__PAUSEEND__:TYPE=BEHAVIOUR
__PAUSEEND__:CODE={MOUSE^ENABLESIGNAL();KEYBOARD^ENABLE();__GRHELP__^REMOVEALL();}
OBJECT=_CURSORMOVE_
_CURSORMOVE_:TYPE=BEHAVIOUR
_CURSORMOVE_:CODE={G_CURSOR^SETOBJECT(CANVASOBSERVER^GETGRAPHICSAT(MOUSE^GETPOSX(),MOUSE^GETPOSY(),TRUE,0,5000,TRUE));}
OBJECT=__HELPSTART__
__HELPSTART__:TYPE=BEHAVIOUR
__HELPSTART__:CODE={SCENENAME^SET(PRZYGODA^GETCURRENTSCENE());MOUSE^DISABLESIGNAL();__KEYB__^SET(KEYBOARD^ISENABLED());KEYBOARD^DISABLE();__HSPOTMAX__^SET(*SCENENAME^GETMAXHSPRIORITY());__HSPOTMIN__^SET(*SCENENAME^GETMINHSPRIORITY());*SCENENAME^GETPLAYINGANIMO("__GRHELP__");CNVLOADER^LOAD([G_SCUTSCENE+".CNV"]);}
OBJECT=__HELPEND__
__HELPEND__:TYPE=BEHAVIOUR
__HELPEND__:CODE={MOUSE^ENABLESIGNAL();@IF("__KEYB__","_","TRUE","BFITMP2","BFITMP3");CNVLOADER^RELEASE([G_SCUTSCENE+".CNV"]);}
OBJECT=_VOLUME_
_VOLUME_:TYPE=BEHAVIOUR
_VOLUME_:CODE={DIALOGS^SETMUSICVOLUME([0.8*G_ARRSETTINGS^GET(1)]);}
OBJECT=_NEWGAME_
_NEWGAME_:TYPE=BEHAVIOUR
_NEWGAME_:CODE={@IF(G_ARRDATAS^FIND(G_SARCADESCENE),">","-1","BFITMP4","BFITMP5");}
OBJECT=_LOADGAME_
_LOADGAME_:TYPE=BEHAVIOUR
_LOADGAME_:CODE={@IF(G_ARRDATAS^FIND(G_SARCADESCENE),">","-1","BFITMP6","BFITMP7");}
OBJECT=BEHCSSTART
BEHCSSTART:TYPE=BEHAVIOUR
BEHCSSTART:CODE={}
OBJECT=BEHCSEND
BEHCSEND:TYPE=BEHAVIOUR
BEHCSEND:CODE={S_IACC^SET(FALSE);G_SARCADESCENELAST^SET("CS_PREKOPIEC");G_SARCADESCENE^SET("KOMIN");PRZYGODA^GOTO("ARCADE");@BREAK();}
OBJECT=BFITMP0
BFITMP0:TYPE=BEHAVIOUR
BFITMP0:CODE={B_LOST^RUN();}
OBJECT=BFITMP1
BFITMP1:TYPE=BEHAVIOUR
BFITMP1:CODE={B_WIN^RUN();}
OBJECT=BFITMP2
BFITMP2:TYPE=BEHAVIOUR
BFITMP2:CODE={KEYBOARD^ENABLE();}
OBJECT=BFITMP3
BFITMP3:TYPE=BEHAVIOUR
BFITMP3:CODE={KEYBOARD^DISABLE();}
OBJECT=BFITMP4
BFITMP4:TYPE=BEHAVIOUR
BFITMP4:CODE={PRZYGODA^GOTO("ARCADE");@BREAK();}
OBJECT=BFITMP5
BFITMP5:TYPE=BEHAVIOUR
BFITMP5:CODE={PRZYGODA^GOTO(G_SARCADESCENE);@BREAK();}
OBJECT=BFITMP6
BFITMP6:TYPE=BEHAVIOUR
BFITMP6:CODE={PRZYGODA^GOTO("ARCADE");@BREAK();}
OBJECT=BFITMP7
BFITMP7:TYPE=BEHAVIOUR
BFITMP7:CODE={PRZYGODA^GOTO(G_SARCADESCENE);@BREAK();}

109
dane/game/debug/Kontrola/Kontrola.cnv.old Normal file
View File

@@ -0,0 +1,109 @@
OBJECT=GLINA_9
GLINA_9:TYPE=ANIMO
GLINA_9:VISIBLE=TRUE
GLINA_9:FILENAME=GLINA.ANN
GLINA_9:TOCANVAS=TRUE
GLINA_9:PRIORITY=20
GLINA_9:FPS=16
GLINA_9:PRELOAD=TRUE
GLINA_9:RELEASE=TRUE
GLINA_9:MONITORCOLLISION=FALSE
GLINA_9:MONITORCOLLISIONALPHA=FALSE
OBJECT=ANNEXIT
ANNEXIT:TYPE=ANIMO
ANNEXIT:VISIBLE=TRUE
ANNEXIT:FILENAME=M_EXIT.ANN
ANNEXIT:TOCANVAS=TRUE
ANNEXIT:PRIORITY=0
ANNEXIT:FPS=16
ANNEXIT:PRELOAD=TRUE
ANNEXIT:RELEASE=TRUE
ANNEXIT:MONITORCOLLISION=FALSE
ANNEXIT:MONITORCOLLISIONALPHA=FALSE
OBJECT=EXITPROGAM
EXITPROGAM:TYPE=BUTTON
EXITPROGAM:VISIBLE=TRUE
EXITPROGAM:ENABLE=TRUE
EXITPROGAM:DRAGGABLE=FALSE
EXITPROGAM:ONRELEASED={EXITPROGRAM^RUN();}
EXITPROGAM:ONFOCUSON={ANNEXIT^PLAY("ONFOCUSON");}
EXITPROGAM:ONFOCUSOFF={ANNEXIT^PLAY("ONFOCUSOFF");}
EXITPROGAM:ONCLICKED={ANNEXIT^PLAY("ONCLICK");}
OBJECT=GLINA
GLINA:TYPE=SEQUENCE
GLINA:FILENAME=GLINA.SEQ
GLINA:ONFINISHED^ENTRE=GLINAGADA1
GLINA:ONFINISHED^GADA1=GLINAGADA2
GLINA:ONFINISHED^GADA2=GLINAGADA3
GLINA:ONFINISHED^GADA3=GLINAPOKAZUJE
GLINA:ONFINISHED^EXIT={BEHCSEND^RUN();}
GLINA:ONFINISHED^GADA4=GLINAGADA5
GLINA:ONFINISHED^GADA7={GLINAOK^RUN();}
GLINA:ONFINISHED^OK={GLINAEXIT^RUN();}
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
OBJECT=GLINAENTRE
GLINAENTRE:TYPE=BEHAVIOUR
GLINAENTRE:CODE={GLINA^PLAY("ENTRE");}
OBJECT=GLINAGADA1
GLINAGADA1:TYPE=BEHAVIOUR
GLINAGADA1:CODE={GLINA^PLAY("GADA1");}
OBJECT=GLINAGADA2
GLINAGADA2:TYPE=BEHAVIOUR
GLINAGADA2:CODE={GLINA^PLAY("GADA2");}
OBJECT=GLINAGADA3
GLINAGADA3:TYPE=BEHAVIOUR
GLINAGADA3:CODE={GLINA^PLAY("GADA3");}
OBJECT=GLINAGADA4
GLINAGADA4:TYPE=BEHAVIOUR
GLINAGADA4:CODE={GLINA^PLAY("GADA4");}
OBJECT=GLINAGADA5
GLINAGADA5:TYPE=BEHAVIOUR
GLINAGADA5:CODE={GLINA^PLAY("GADA5");}
OBJECT=GLINAGADA6
GLINAGADA6:TYPE=BEHAVIOUR
GLINAGADA6:CODE={GLINA^PLAY("GADA6");}
OBJECT=GLINAGADA7
GLINAGADA7:TYPE=BEHAVIOUR
GLINAGADA7:CODE={GLINA^PLAY("GADA7");}
OBJECT=GLINAEXIT
GLINAEXIT:TYPE=BEHAVIOUR
GLINAEXIT:CODE={GLINA^PLAY("EXIT");}
OBJECT=GLINAOK
GLINAOK:TYPE=BEHAVIOUR
GLINAOK:CODE={GLINA^PLAY("OK");}
OBJECT=GLINAPOKAZUJE
GLINAPOKAZUJE:TYPE=BEHAVIOUR
GLINAPOKAZUJE:CODE={GLINA^PLAY("POKAZUJE");}
OBJECT=GLINAGADA3B
GLINAGADA3B:TYPE=BEHAVIOUR
GLINAGADA3B:CODE={GLINA^PLAY("GADA3B");}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={G_CURSOR^SETCURSOR("INACTIVE");ANNEXIT^SETPOSITION(-700,-450);EXITPROGAM^SETRECT("ANNEXIT");GLINAENTRE^RUN();}

554
dane/game/debug/Kontrola/Kontrolaold.cnv Normal file
View File

@@ -0,0 +1,554 @@
OBJECT=PROBA
PROBA:TYPE=INTEGER
PROBA:VALUE=1
OBJECT=VAR_CYFRA
VAR_CYFRA:TYPE=INTEGER
VAR_CYFRA:VALUE=0
VAR_CYFRA:ONCHANGED^2=B_CYFRA_2
VAR_CYFRA:ONCHANGED^3=B_CYFRA_3
VAR_CYFRA:ONCHANGED^4=B_CYFRA_4
VAR_CYFRA:ONCHANGED^5={B_CYFRA_4^RUN();VAR_CYFRA^SET(6);}
VAR_CYFRA:ONCHANGED^7={B_CYFRA_4^RUN();VAR_CYFRA^SET(6);}
OBJECT=VAR_KOD
VAR_KOD:TYPE=STRING
OBJECT=ZNACZKI1
ZNACZKI1:TYPE=ANIMO
ZNACZKI1:VISIBLE=TRUE
ZNACZKI1:FILENAME=ZNACZKI1.ANN
ZNACZKI1:TOCANVAS=TRUE
ZNACZKI1:PRIORITY=6
ZNACZKI1:FPS=16
ZNACZKI1:PRELOAD=TRUE
ZNACZKI1:RELEASE=TRUE
ZNACZKI1:MONITORCOLLISION=FALSE
ZNACZKI1:MONITORCOLLISIONALPHA=FALSE
ZNACZKI1:ONINIT=THISHIDE
OBJECT=ZNACZKI2
ZNACZKI2:TYPE=ANIMO
ZNACZKI2:VISIBLE=TRUE
ZNACZKI2:FILENAME=ZNACZKI2.ANN
ZNACZKI2:TOCANVAS=TRUE
ZNACZKI2:PRIORITY=6
ZNACZKI2:FPS=16
ZNACZKI2:PRELOAD=TRUE
ZNACZKI2:RELEASE=TRUE
ZNACZKI2:MONITORCOLLISION=FALSE
ZNACZKI2:MONITORCOLLISIONALPHA=FALSE
ZNACZKI2:ONINIT=THISHIDE
OBJECT=ZNACZKI3
ZNACZKI3:TYPE=ANIMO
ZNACZKI3:VISIBLE=TRUE
ZNACZKI3:FILENAME=ZNACZKI3.ANN
ZNACZKI3:TOCANVAS=TRUE
ZNACZKI3:PRIORITY=6
ZNACZKI3:FPS=16
ZNACZKI3:PRELOAD=TRUE
ZNACZKI3:RELEASE=TRUE
ZNACZKI3:MONITORCOLLISION=FALSE
ZNACZKI3:MONITORCOLLISIONALPHA=FALSE
ZNACZKI3:ONINIT=THISHIDE
OBJECT=ZNACZKI4
ZNACZKI4:TYPE=ANIMO
ZNACZKI4:VISIBLE=TRUE
ZNACZKI4:FILENAME=ZNACZKI4.ANN
ZNACZKI4:TOCANVAS=TRUE
ZNACZKI4:PRIORITY=6
ZNACZKI4:FPS=16
ZNACZKI4:PRELOAD=TRUE
ZNACZKI4:RELEASE=TRUE
ZNACZKI4:MONITORCOLLISION=FALSE
ZNACZKI4:MONITORCOLLISIONALPHA=FALSE
ZNACZKI4:ONINIT=THISHIDE
OBJECT=GLINA_9
GLINA_9:TYPE=ANIMO
GLINA_9:VISIBLE=TRUE
GLINA_9:FILENAME=GLINA.ANN
GLINA_9:TOCANVAS=TRUE
GLINA_9:PRIORITY=0
GLINA_9:FPS=16
GLINA_9:PRELOAD=TRUE
GLINA_9:RELEASE=TRUE
GLINA_9:MONITORCOLLISION=FALSE
GLINA_9:MONITORCOLLISIONALPHA=FALSE
OBJECT=EKRAN
EKRAN:TYPE=ANIMO
EKRAN:VISIBLE=TRUE
EKRAN:FILENAME=EKRAN.ANN
EKRAN:TOCANVAS=TRUE
EKRAN:PRIORITY=0
EKRAN:FPS=16
EKRAN:PRELOAD=TRUE
EKRAN:RELEASE=TRUE
EKRAN:MONITORCOLLISION=FALSE
EKRAN:MONITORCOLLISIONALPHA=FALSE
EKRAN:ONFINISHED=ENABLEALL
OBJECT=ANNEXIT
ANNEXIT:TYPE=ANIMO
ANNEXIT:VISIBLE=TRUE
ANNEXIT:FILENAME=M_EXIT.ANN
ANNEXIT:TOCANVAS=TRUE
ANNEXIT:PRIORITY=0
ANNEXIT:FPS=16
ANNEXIT:PRELOAD=TRUE
ANNEXIT:RELEASE=TRUE
ANNEXIT:MONITORCOLLISION=FALSE
ANNEXIT:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ1
KLAWISZ1:TYPE=IMAGE
KLAWISZ1:VISIBLE=FALSE
KLAWISZ1:FILENAME=KLAWISZ1.IMG
KLAWISZ1:TOCANVAS=TRUE
KLAWISZ1:PRIORITY=4
KLAWISZ1:PRELOAD=TRUE
KLAWISZ1:RELEASE=TRUE
KLAWISZ1:MONITORCOLLISION=FALSE
KLAWISZ1:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ2
KLAWISZ2:TYPE=IMAGE
KLAWISZ2:VISIBLE=FALSE
KLAWISZ2:FILENAME=KLAWISZ2.IMG
KLAWISZ2:TOCANVAS=TRUE
KLAWISZ2:PRIORITY=4
KLAWISZ2:PRELOAD=TRUE
KLAWISZ2:RELEASE=TRUE
KLAWISZ2:MONITORCOLLISION=FALSE
KLAWISZ2:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ3
KLAWISZ3:TYPE=IMAGE
KLAWISZ3:VISIBLE=FALSE
KLAWISZ3:FILENAME=KLAWISZ3.IMG
KLAWISZ3:TOCANVAS=TRUE
KLAWISZ3:PRIORITY=4
KLAWISZ3:PRELOAD=TRUE
KLAWISZ3:RELEASE=TRUE
KLAWISZ3:MONITORCOLLISION=FALSE
KLAWISZ3:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ4
KLAWISZ4:TYPE=IMAGE
KLAWISZ4:VISIBLE=FALSE
KLAWISZ4:FILENAME=KLAWISZ4.IMG
KLAWISZ4:TOCANVAS=TRUE
KLAWISZ4:PRIORITY=4
KLAWISZ4:PRELOAD=TRUE
KLAWISZ4:RELEASE=TRUE
KLAWISZ4:MONITORCOLLISION=FALSE
KLAWISZ4:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ5
KLAWISZ5:TYPE=IMAGE
KLAWISZ5:VISIBLE=FALSE
KLAWISZ5:FILENAME=KLAWISZ5.IMG
KLAWISZ5:TOCANVAS=TRUE
KLAWISZ5:PRIORITY=4
KLAWISZ5:PRELOAD=TRUE
KLAWISZ5:RELEASE=TRUE
KLAWISZ5:MONITORCOLLISION=FALSE
KLAWISZ5:MONITORCOLLISIONALPHA=FALSE
OBJECT=KLAWISZ6
KLAWISZ6:TYPE=IMAGE
KLAWISZ6:VISIBLE=FALSE
KLAWISZ6:FILENAME=KLAWISZ6.IMG
KLAWISZ6:TOCANVAS=TRUE
KLAWISZ6:PRIORITY=4
KLAWISZ6:PRELOAD=TRUE
KLAWISZ6:RELEASE=TRUE
KLAWISZ6:MONITORCOLLISION=FALSE
KLAWISZ6:MONITORCOLLISIONALPHA=FALSE
OBJECT=ENTER
ENTER:TYPE=IMAGE
ENTER:VISIBLE=TRUE
ENTER:FILENAME=ENTER.IMG
ENTER:TOCANVAS=TRUE
ENTER:PRIORITY=0
ENTER:PRELOAD=TRUE
ENTER:RELEASE=TRUE
ENTER:MONITORCOLLISION=FALSE
ENTER:MONITORCOLLISIONALPHA=FALSE
OBJECT=BUT1
BUT1:TYPE=BUTTON
BUT1:VISIBLE=TRUE
BUT1:RECT=KLAWISZ1
BUT1:ENABLE=TRUE
BUT1:DRAGGABLE=FALSE
BUT1:ONINIT=DIDISABLE
BUT1:ONCLICKED=B_WPIS(1)
OBJECT=ENTERBUT
ENTERBUT:TYPE=BUTTON
ENTERBUT:VISIBLE=TRUE
ENTERBUT:ENABLE=TRUE
ENTERBUT:DRAGGABLE=FALSE
ENTERBUT:GFXSTANDARD=ENTER
ENTERBUT:ONINIT=DIDISABLE
ENTERBUT:ONCLICKED=B_CHECK
OBJECT=GLINABUT
GLINABUT:TYPE=BUTTON
GLINABUT:VISIBLE=TRUE
GLINABUT:ENABLE=TRUE
GLINABUT:DRAGGABLE=FALSE
GLINABUT:GFXSTANDARD=GLINA_9
GLINABUT:ONCLICKED=GLINAGADA3B
GLINABUT:ONINIT=DIDISABLE
OBJECT=EXITPROGAM
EXITPROGAM:TYPE=BUTTON
EXITPROGAM:VISIBLE=TRUE
EXITPROGAM:ENABLE=TRUE
EXITPROGAM:DRAGGABLE=FALSE
EXITPROGAM:ONRELEASED=EXITPROGRAMNAMAXA
EXITPROGAM:ONFOCUSON={ANNEXIT^PLAY("ONFOCUSON");}
EXITPROGAM:ONFOCUSOFF={ANNEXIT^PLAY("ONFOCUSOFF");}
EXITPROGAM:ONCLICKED={ANNEXIT^PLAY("ONCLICK");}
OBJECT=BUT2
BUT2:TYPE=BUTTON
BUT2:VISIBLE=TRUE
BUT2:RECT=KLAWISZ2
BUT2:ENABLE=TRUE
BUT2:DRAGGABLE=FALSE
BUT2:ONINIT=DIDISABLE
BUT2:ONCLICKED=B_WPIS(2)
OBJECT=BUT3
BUT3:TYPE=BUTTON
BUT3:VISIBLE=TRUE
BUT3:RECT=KLAWISZ3
BUT3:ENABLE=TRUE
BUT3:DRAGGABLE=FALSE
BUT3:ONINIT=DIDISABLE
BUT3:ONCLICKED=B_WPIS(3)
OBJECT=BUT4
BUT4:TYPE=BUTTON
BUT4:VISIBLE=TRUE
BUT4:RECT=KLAWISZ4
BUT4:ENABLE=TRUE
BUT4:DRAGGABLE=FALSE
BUT4:ONINIT=DIDISABLE
BUT4:ONCLICKED=B_WPIS(4)
OBJECT=BUT5
BUT5:TYPE=BUTTON
BUT5:VISIBLE=TRUE
BUT5:RECT=KLAWISZ5
BUT5:ENABLE=TRUE
BUT5:DRAGGABLE=FALSE
BUT5:ONINIT=DIDISABLE
BUT5:ONCLICKED=B_WPIS(5)
OBJECT=BUT6
BUT6:TYPE=BUTTON
BUT6:VISIBLE=TRUE
BUT6:RECT=KLAWISZ6
BUT6:ENABLE=TRUE
BUT6:DRAGGABLE=FALSE
BUT6:ONINIT=DIDISABLE
BUT6:ONCLICKED=B_WPIS(6)
OBJECT=GLINA
GLINA:TYPE=SEQUENCE
GLINA:FILENAME=GLINA.SEQ
GLINA:ONFINISHED^ENTRE=GLINAGADA1
GLINA:ONFINISHED^GADA1=GLINAGADA2
GLINA:ONFINISHED^GADA2=GLINAGADA3
GLINA:ONFINISHED^GADA3=GLINAPOKAZUJE
GLINA:ONFINISHED^EXIT={G_SARCADESCENELAST^SET("GABINETDYR");G_SARCADESCENE^SET("HOLGLOWNY");__SCREENSHOT__^RUN();S_IACC^SET(FALSE);PRZYGODA^GOTO("ARCADE");}
GLINA:ONFINISHED^GADA4=GLINAGADA5
GLINA:ONFINISHED^GADA7=GLINAOK
GLINA:ONFINISHED^OK=GLINAEXIT
GLINA:ONFINISHED^GADA5=B_RESET
GLINA:ONFINISHED^GADA6=B_RESET
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=CONPR1
CONPR1:TYPE=CONDITION
CONPR1:OPERAND1=PROBA
CONPR1:OPERATOR=LESSEQUAL
CONPR1:OPERAND2=4
CONPR1:ONRUNTIMESUCCESS=GLINAGADA4
OBJECT=CONPR2
CONPR2:TYPE=CONDITION
CONPR2:OPERAND1=PROBA
CONPR2:OPERATOR=EQUAL
CONPR2:OPERAND2=5
CONPR2:ONRUNTIMESUCCESS=GLINAGADA5
OBJECT=CONPR3
CONPR3:TYPE=CONDITION
CONPR3:OPERAND1=PROBA
CONPR3:OPERATOR=GREATEREQUAL
CONPR3:OPERAND2=6
CONPR3:ONRUNTIMESUCCESS=GLINAGADA6
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
OBJECT=THISHIDE
THISHIDE:TYPE=BEHAVIOUR
THISHIDE:CODE={THIS^HIDE();}
OBJECT=THISPLAY
THISPLAY:TYPE=BEHAVIOUR
THISPLAY:CODE={THIS^PLAY("PLAY");}
OBJECT=GLINAENTRE
GLINAENTRE:TYPE=BEHAVIOUR
GLINAENTRE:CODE={GLINA^PLAY("ENTRE");}
OBJECT=GLINAGADA1
GLINAGADA1:TYPE=BEHAVIOUR
GLINAGADA1:CODE={EKRAN^PLAY("PLAY");GLINA^PLAY("GADA1");}
OBJECT=GLINAGADA2
GLINAGADA2:TYPE=BEHAVIOUR
GLINAGADA2:CODE={GLINA^PLAY("GADA2");}
OBJECT=GLINAGADA3
GLINAGADA3:TYPE=BEHAVIOUR
GLINAGADA3:CODE={GLINA^PLAY("GADA3");}
OBJECT=GLINAGADA4
GLINAGADA4:TYPE=BEHAVIOUR
GLINAGADA4:CODE={GLINA^PLAY("GADA4");}
OBJECT=GLINAGADA5
GLINAGADA5:TYPE=BEHAVIOUR
GLINAGADA5:CODE={GLINA^PLAY("GADA5");}
OBJECT=GLINAGADA6
GLINAGADA6:TYPE=BEHAVIOUR
GLINAGADA6:CODE={GLINA^PLAY("GADA6");}
OBJECT=GLINAGADA7
GLINAGADA7:TYPE=BEHAVIOUR
GLINAGADA7:CODE={GLINA^PLAY("GADA7");}
OBJECT=GLINAEXIT
GLINAEXIT:TYPE=BEHAVIOUR
GLINAEXIT:CODE={EKRAN^HIDE();ZNACZKI1^HIDE();ZNACZKI2^HIDE();ZNACZKI3^HIDE();ZNACZKI4^HIDE();BUT1^DISABLE();BUT2^DISABLE();BUT3^DISABLE();BUT4^DISABLE();BUT5^DISABLE();BUT6^DISABLE();ENTERBUT^DISABLE();GLINABUT^DISABLE();GLINA^PLAY("EXIT");}
OBJECT=GLINAOK
GLINAOK:TYPE=BEHAVIOUR
GLINAOK:CODE={GLINA^PLAY("OK");}
OBJECT=GLINAPOKAZUJE
GLINAPOKAZUJE:TYPE=BEHAVIOUR
GLINAPOKAZUJE:CODE={GLINA^PLAY("POKAZUJE");}
OBJECT=DIDISABLE
DIDISABLE:TYPE=BEHAVIOUR
DIDISABLE:CODE={THIS^DISABLE();}
OBJECT=ENABLEALL
ENABLEALL:TYPE=BEHAVIOUR
ENABLEALL:CODE={BUT1^ENABLE();BUT2^ENABLE();BUT3^ENABLE();BUT4^ENABLE();BUT5^ENABLE();BUT6^ENABLE();ENTERBUT^ENABLE();GLINABUT^ENABLE();}
OBJECT=ENTERBUTBEH
ENTERBUTBEH:TYPE=BEHAVIOUR
ENTERBUTBEH:CODE={CON1^CHECK(RUN);CON2^CHECK(RUN);CON3^CHECK(RUN);CON4^CHECK(RUN);}
OBJECT=HASLOOKIEJ
HASLOOKIEJ:TYPE=BEHAVIOUR
HASLOOKIEJ:CODE={GLINAGADA7^RUN();KONTROLAVAR^SET(1);DISABLEALL^RUN();}
OBJECT=DISABLEALL
DISABLEALL:TYPE=BEHAVIOUR
DISABLEALL:CODE={BUT1^DISABLEBUTVISIBLE();BUT2^DISABLEBUTVISIBLE();BUT3^DISABLEBUTVISIBLE();BUT4^DISABLEBUTVISIBLE();BUT5^DISABLEBUTVISIBLE();BUT6^DISABLEBUTVISIBLE();ENTERBUT^DISABLEBUTVISIBLE();GLINABUT^DISABLEBUTVISIBLE();}
OBJECT=DORZEKI
DORZEKI:TYPE=BEHAVIOUR
DORZEKI:CODE={PRZYGODA^GOTO("S31_0_ZIEMIA");}
OBJECT=RESTART
RESTART:TYPE=BEHAVIOUR
RESTART:CODE={DIDISABLE^RUN();KTORAPROBA^RUN();ENABLEALL^RUN();PROBA^INC();ZNACZKI1^HIDE();ZNACZKI2^HIDE();ZNACZKI3^HIDE();ZNACZKI4^HIDE();}
OBJECT=KTORAPROBA
KTORAPROBA:TYPE=BEHAVIOUR
KTORAPROBA:CODE={CONPR1^CHECK(TRUE);CONPR2^CHECK(TRUE);CONPR3^CHECK(TRUE);}
OBJECT=GLINAGADA3B
GLINAGADA3B:TYPE=BEHAVIOUR
GLINAGADA3B:CODE={GLINA^PLAY("GADA3B");}
OBJECT=EXITPROGRAMNAMAXA
EXITPROGRAMNAMAXA:TYPE=BEHAVIOUR
EXITPROGRAMNAMAXA:CODE={__SCREENSHOT__^RUN();PRZYGODA^GOTO("CREDITS");}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={G_IFLIPPAGE^SET(1);G_SARCADESCENELAST^SET("GABINETDYR");G_SARCADESCENE^SET("GABINETDYR");SCENENAME^SET("KONTROLA");G_CURSOR^SETSCENE("KONTROLA");G_MENU^SETSCENE("KONTROLA");G_MENU^SAVESETS();G_MENU^SHOW(FALSE);ANNEXIT^SETPOSITION(-700,-450);EXITPROGAM^SETRECT("ANNEXIT");GLINAENTRE^RUN();}
OBJECT=B_CYFRA_4
B_CYFRA_4:TYPE=BEHAVIOUR
B_CYFRA_4:CODE={ZNACZKI1^SHOW();ZNACZKI1^SETFRAME("PLAY",ZNACZKI2^GETFRAMENAME());ZNACZKI2^SHOW();ZNACZKI2^SETFRAME("PLAY",ZNACZKI3^GETFRAMENAME());ZNACZKI3^SHOW();ZNACZKI3^SETFRAME("PLAY",ZNACZKI4^GETFRAMENAME());}
OBJECT=B_CYFRA_3
B_CYFRA_3:TYPE=BEHAVIOUR
B_CYFRA_3:CODE={ZNACZKI2^SHOW();ZNACZKI2^SETFRAME("PLAY",ZNACZKI3^GETFRAMENAME());ZNACZKI3^SHOW();ZNACZKI3^SETFRAME("PLAY",ZNACZKI4^GETFRAMENAME());}
OBJECT=B_CYFRA_2
B_CYFRA_2:TYPE=BEHAVIOUR
B_CYFRA_2:CODE={ZNACZKI3^SHOW();ZNACZKI3^SETFRAME("PLAY",ZNACZKI4^GETFRAMENAME());}
OBJECT=B_WPIS
B_WPIS:TYPE=BEHAVIOUR
B_WPIS:CODE={VAR_CYFRA^INC();ZNACZKI4^SHOW();ZNACZKI4^SETFRAME("PLAY",$1);}
OBJECT=B_LOST
B_LOST:TYPE=BEHAVIOUR
B_LOST:CODE={DISABLEALL^RUN();KTORAPROBA^RUN();PROBA^INC();}
OBJECT=B_WIN
B_WIN:TYPE=BEHAVIOUR
B_WIN:CODE={DISABLEALL^RUN();HASLOOKIEJ^RUN();}
OBJECT=B_CHECK
B_CHECK:TYPE=BEHAVIOUR
B_CHECK:CODE={VAR_KOD^SET([ZNACZKI1^GETFRAMENAME()+ZNACZKI2^GETFRAMENAME()]);VAR_KOD^ADD([ZNACZKI3^GETFRAMENAME()+ZNACZKI4^GETFRAMENAME()]);@IF("VAR_KOD","!_","1546","BFITMP0","BFITMP1");}
OBJECT=B_RESET
B_RESET:TYPE=BEHAVIOUR
B_RESET:CODE={ZNACZKI1^HIDE();ZNACZKI2^HIDE();ZNACZKI3^HIDE();ZNACZKI4^HIDE();ZNACZKI4^SETFRAME("PLAY",0);ZNACZKI3^SETFRAME("PLAY",0);ZNACZKI2^SETFRAME("PLAY",0);ZNACZKI1^SETFRAME("PLAY",0);VAR_CYFRA^SET(0);ENABLEALL^RUN();}
OBJECT=__PAUSESTART__
__PAUSESTART__:TYPE=BEHAVIOUR
__PAUSESTART__:CODE={SCENENAME^SET(PRZYGODA^GETCURRENTSCENE());MOUSE^DISABLESIGNAL();__KEYB__^SET(KEYBOARD^ISENABLED());KEYBOARD^DISABLE();__HSPOTMAX__^SET(*SCENENAME^GETMAXHSPRIORITY());__HSPOTMIN__^SET(*SCENENAME^GETMINHSPRIORITY());*SCENENAME^GETPLAYINGANIMO("__GRHELP__");}
OBJECT=__PAUSEEND__
__PAUSEEND__:TYPE=BEHAVIOUR
__PAUSEEND__:CODE={MOUSE^ENABLESIGNAL();KEYBOARD^ENABLE();__GRHELP__^REMOVEALL();}
OBJECT=_CURSORMOVE_
_CURSORMOVE_:TYPE=BEHAVIOUR
_CURSORMOVE_:CODE={G_CURSOR^SETOBJECT(CANVASOBSERVER^GETGRAPHICSAT(MOUSE^GETPOSX(),MOUSE^GETPOSY(),TRUE,0,5000,TRUE));}
OBJECT=__HELPSTART__
__HELPSTART__:TYPE=BEHAVIOUR
__HELPSTART__:CODE={SCENENAME^SET(PRZYGODA^GETCURRENTSCENE());MOUSE^DISABLESIGNAL();__KEYB__^SET(KEYBOARD^ISENABLED());KEYBOARD^DISABLE();__HSPOTMAX__^SET(*SCENENAME^GETMAXHSPRIORITY());__HSPOTMIN__^SET(*SCENENAME^GETMINHSPRIORITY());*SCENENAME^GETPLAYINGANIMO("__GRHELP__");CNVLOADER^LOAD([G_SCUTSCENE+".CNV"]);}
OBJECT=__HELPEND__
__HELPEND__:TYPE=BEHAVIOUR
__HELPEND__:CODE={MOUSE^ENABLESIGNAL();@IF("__KEYB__","_","TRUE","BFITMP2","BFITMP3");CNVLOADER^RELEASE([G_SCUTSCENE+".CNV"]);}
OBJECT=_VOLUME_
_VOLUME_:TYPE=BEHAVIOUR
_VOLUME_:CODE={DIALOGS^SETMUSICVOLUME([0.8*G_ARRSETTINGS^GET(1)]);}
OBJECT=_NEWGAME_
_NEWGAME_:TYPE=BEHAVIOUR
_NEWGAME_:CODE={@IF(G_ARRDATAS^FIND(G_SARCADESCENE),">","-1","BFITMP4","BFITMP5");}
OBJECT=_LOADGAME_
_LOADGAME_:TYPE=BEHAVIOUR
_LOADGAME_:CODE={@IF(G_ARRDATAS^FIND(G_SARCADESCENE),">","-1","BFITMP6","BFITMP7");}
OBJECT=BFITMP0
BFITMP0:TYPE=BEHAVIOUR
BFITMP0:CODE={B_LOST^RUN();}
OBJECT=BFITMP1
BFITMP1:TYPE=BEHAVIOUR
BFITMP1:CODE={B_WIN^RUN();}
OBJECT=BFITMP2
BFITMP2:TYPE=BEHAVIOUR
BFITMP2:CODE={KEYBOARD^ENABLE();}
OBJECT=BFITMP3
BFITMP3:TYPE=BEHAVIOUR
BFITMP3:CODE={KEYBOARD^DISABLE();}
OBJECT=BFITMP4
BFITMP4:TYPE=BEHAVIOUR
BFITMP4:CODE={PRZYGODA^GOTO("ARCADE");@BREAK();}
OBJECT=BFITMP5
BFITMP5:TYPE=BEHAVIOUR
BFITMP5:CODE={PRZYGODA^GOTO(G_SARCADESCENE);@BREAK();}
OBJECT=BFITMP6
BFITMP6:TYPE=BEHAVIOUR
BFITMP6:CODE={PRZYGODA^GOTO("ARCADE");@BREAK();}
OBJECT=BFITMP7
BFITMP7:TYPE=BEHAVIOUR
BFITMP7:CODE={PRZYGODA^GOTO(G_SARCADESCENE);@BREAK();}

BIN
dane/game/debug/Kontrola/bkg.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/ekran.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/enter.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/exitClick.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/exitGLOW.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/exitSTD.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/glina.ann Normal file
View File

Binary file not shown.

113
dane/game/debug/Kontrola/glina.seq Normal file
View File

@@ -0,0 +1,113 @@
NAME = GLINA
GLINA:TYPE = SEQUENCE
GLINA:MODE = PARAMETER
GLINA:SEQEVENT:ENTRE = 1
GLINA:SEQEVENT:EXIT = 2
GLINA:SEQEVENT:POKAZUJE = 3
GLINA:SEQEVENT:OK = 4
GLINA:SEQEVENT:GADA1 = 5
GLINA:SEQEVENT:GADA2 = 6
GLINA:SEQEVENT:GADA3 = 7
GLINA:SEQEVENT:GADA4 = 8
GLINA:SEQEVENT:GADA5 = 9
GLINA:SEQEVENT:GADA6 = A
GLINA:SEQEVENT:GADA7 = B
GLINA:SEQEVENT:GADA3B = C
NAME = ENTRE
ENTRE:FILENAME = GLINA.ANN
ENTRE:EVENT = WEJSCIE
ENTRE:TYPE = SIMPLE
ENTRE:ADD GLINA
NAME = EXIT
EXIT:FILENAME = GLINA.ANN
EXIT:EVENT = WYJSCIE
EXIT:TYPE = SIMPLE
EXIT:ADD GLINA
NAME = POKAZUJE
POKAZUJE:FILENAME = GLINA.ANN
POKAZUJE:EVENT = POKAZUJE
POKAZUJE:TYPE = SIMPLE
POKAZUJE:ADD GLINA
NAME = OK
OK:FILENAME = GLINA.ANN
OK:EVENT = OK
OK:TYPE = SIMPLE
OK:ADD GLINA
NAME = GADA1
GADA1:TYPE = SPEAKING
GADA1:ANIMOFN = GLINA.ANN
GADA1:PREFIX = GADA
GADA1:WAVFN = ZABEZ1.WAV
GADA1:STARTING=TRUE
GADA1:ENDING=TRUE
GADA1:ADD GLINA
NAME = GADA2
GADA2:TYPE = SPEAKING
GADA2:ANIMOFN = GLINA.ANN
GADA2:PREFIX = GADA
GADA2:WAVFN = ZABEZ2.WAV
GADA2:STARTING=TRUE
GADA2:ENDING=TRUE
GADA2:ADD GLINA
NAME = GADA3
GADA3:TYPE = SPEAKING
GADA3:ANIMOFN = GLINA.ANN
GADA3:PREFIX = GADA
GADA3:WAVFN = ZABEZ3.WAV
GADA3:STARTING=TRUE
GADA3:ENDING=TRUE
GADA3:ADD GLINA
NAME = GADA4
GADA4:TYPE = SPEAKING
GADA4:ANIMOFN = GLINA.ANN
GADA4:PREFIX = GADA
GADA4:WAVFN = ZABEZ4.WAV
GADA4:STARTING=TRUE
GADA4:ENDING=TRUE
GADA4:ADD GLINA
NAME = GADA5
GADA5:TYPE = SPEAKING
GADA5:ANIMOFN = GLINA.ANN
GADA5:PREFIX = GADA
GADA5:WAVFN = ZABEZ5.WAV
GADA5:STARTING=TRUE
GADA5:ENDING=TRUE
GADA5:ADD GLINA
NAME = GADA6
GADA6:TYPE = SPEAKING
GADA6:ANIMOFN = GLINA.ANN
GADA6:PREFIX = GADA
GADA6:WAVFN = ZABEZ6.WAV
GADA6:STARTING=TRUE
GADA6:ENDING=TRUE
GADA6:ADD GLINA
NAME = GADA7
GADA7:TYPE = SPEAKING
GADA7:ANIMOFN = GLINA.ANN
GADA7:PREFIX = GADA
GADA7:WAVFN = ZABEZ7.WAV
GADA7:STARTING=TRUE
GADA7:ENDING=TRUE
GADA7:ADD GLINA
NAME = GADA3B
GADA3B:TYPE = SPEAKING
GADA3B:ANIMOFN = GLINA.ANN
GADA3B:PREFIX = GADA
GADA3B:WAVFN = ZABEZ3.WAV
GADA3B:STARTING=TRUE
GADA3B:ENDING=TRUE
GADA3B:ADD GLINA

113
dane/game/debug/Kontrola/glina2.seq Normal file
View File

@@ -0,0 +1,113 @@
NAME = GLINA
GLINA:TYPE = SEQUENCE
GLINA:MODE = SEQUENCE # crashuje silnik, aha?
GLINA:SEQEVENT:ENTRE = 1
GLINA:SEQEVENT:EXIT = 2
GLINA:SEQEVENT:POKAZUJE = 3
GLINA:SEQEVENT:OK = 4
GLINA:SEQEVENT:GADA1 = 5
GLINA:SEQEVENT:GADA2 = 6
GLINA:SEQEVENT:GADA3 = 7
GLINA:SEQEVENT:GADA4 = 8
GLINA:SEQEVENT:GADA5 = 9
GLINA:SEQEVENT:GADA6 = A
GLINA:SEQEVENT:GADA7 = B
GLINA:SEQEVENT:GADA3B = C
NAME = ENTRE
ENTRE:FILENAME = GLINA.ANN
ENTRE:EVENT = WEJSCIE
ENTRE:TYPE = SIMPLE
ENTRE:ADD GLINA
NAME = EXIT
EXIT:FILENAME = GLINA.ANN
EXIT:EVENT = WYJSCIE
EXIT:TYPE = SIMPLE
EXIT:ADD GLINA
NAME = POKAZUJE
POKAZUJE:FILENAME = GLINA.ANN
POKAZUJE:EVENT = POKAZUJE
POKAZUJE:TYPE = SIMPLE
POKAZUJE:ADD GLINA
NAME = OK
OK:FILENAME = GLINA.ANN
OK:EVENT = OK
OK:TYPE = SIMPLE
OK:ADD GLINA
NAME = GADA1
GADA1:TYPE = SPEAKING
GADA1:ANIMOFN = GLINA.ANN
GADA1:PREFIX = GADA
GADA1:WAVFN = ZABEZ1.WAV
GADA1:STARTING=TRUE
GADA1:ENDING=TRUE
GADA1:ADD GLINA
NAME = GADA2
GADA2:TYPE = SPEAKING
GADA2:ANIMOFN = GLINA.ANN
GADA2:PREFIX = GADA
GADA2:WAVFN = ZABEZ2.WAV
GADA2:STARTING=TRUE
GADA2:ENDING=TRUE
GADA2:ADD GLINA
NAME = GADA3
GADA3:TYPE = SPEAKING
GADA3:ANIMOFN = GLINA.ANN
GADA3:PREFIX = GADA
GADA3:WAVFN = ZABEZ3.WAV
GADA3:STARTING=TRUE
GADA3:ENDING=TRUE
GADA3:ADD GLINA
NAME = GADA4
GADA4:TYPE = SPEAKING
GADA4:ANIMOFN = GLINA.ANN
GADA4:PREFIX = GADA
GADA4:WAVFN = ZABEZ4.WAV
GADA4:STARTING=TRUE
GADA4:ENDING=TRUE
GADA4:ADD GLINA
NAME = GADA5
GADA5:TYPE = SPEAKING
GADA5:ANIMOFN = GLINA.ANN
GADA5:PREFIX = GADA
GADA5:WAVFN = ZABEZ5.WAV
GADA5:STARTING=TRUE
GADA5:ENDING=TRUE
GADA5:ADD GLINA
NAME = GADA6
GADA6:TYPE = SPEAKING
GADA6:ANIMOFN = GLINA.ANN
GADA6:PREFIX = GADA
GADA6:WAVFN = ZABEZ6.WAV
GADA6:STARTING=TRUE
GADA6:ENDING=TRUE
GADA6:ADD GLINA
NAME = GADA7
GADA7:TYPE = SPEAKING
GADA7:ANIMOFN = GLINA.ANN
GADA7:PREFIX = GADA
GADA7:WAVFN = ZABEZ7.WAV
GADA7:STARTING=TRUE
GADA7:ENDING=TRUE
GADA7:ADD GLINA
NAME = GADA3B
GADA3B:TYPE = SPEAKING
GADA3B:ANIMOFN = GLINA.ANN
GADA3B:PREFIX = GADA
GADA3B:WAVFN = ZABEZ3.WAV
GADA3B:STARTING=TRUE
GADA3B:ENDING=TRUE
GADA3B:ADD GLINA

BIN
dane/game/debug/Kontrola/klawisz1.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/klawisz2.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/klawisz3.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/klawisz4.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/klawisz5.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/klawisz6.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/kontrola.scn Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/m_exit.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/strona.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/znaczki1.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/znaczki2.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/znaczki3.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/Kontrola/znaczki4.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/animotest/1_kret.ann Normal file
View File

Binary file not shown.

2195
dane/game/debug/animotest/1_kret.mann Normal file
View File

File diff suppressed because it is too large Load Diff

165
dane/game/debug/animotest/Animo_test.cnv Normal file
View File

@@ -0,0 +1,165 @@
OBJECT=MUSIC
MUSIC:TYPE=MUSIC
MUSIC:FILENAME=EGIPT.WAV
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("ARRAY_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");*[ANIMO_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","28","{BEHNO^INC();}","");*[ANIMO_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^W={ANIMACJA^MOVE(0,[0-MOVE_SPEED]);*[ANIMO_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^S={ANIMACJA^MOVE(0,MOVE_SPEED);*[ANIMO_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^A={ANIMACJA^MOVE([0-MOVE_SPEED],0);*[ANIMO_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^D={ANIMACJA^MOVE(MOVE_SPEED,0);*[ANIMO_TEST_+BEHNO]^RUN();}
OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
OBJECT=MOVE_SPEED
MOVE_SPEED:TYPE=INTEGER
MOVE_SPEED:VALUE=10
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=FALSE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,650
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=BEHNO
BEHNO:TYPE=INTEGER
BEHNO:VALUE=10
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:ONINIT={EVENT_DEBUG_TXT^ADD("|INIT");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
#ANIMACJA:ONDONE={EVENT_DEBUG_TXT^ADD("|DONE");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
ANIMACJA:ONSIGNAL^TEST={EVENT_DEBUG_TXT^ADD("|SIGNAL_TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
ANIMACJA:ONFRAMECHANGED={*[ANIMO_TEST_+BEHNO]^RUN();}
ANIMACJA:ONCLICK={ANIMACJA^PLAY("SPADA");}
ANIMACJA:ONFINISHED^SPADA={ANIMACJA^SETFRAME("R_IDLE",0);}
OBJECT=ANIMACJA2
ANIMACJA2:TYPE=ANIMO
ANIMACJA2:FILENAME=REKSIO.ANN
ANIMACJA2:VISIBLE=FALSE
ANIMACJA2:TOCANVAS=TRUE
ANIMACJA2:PRIORITY=25
ANIMACJA2:FPS=32
ANIMACJA2:PRELOAD=TRUE
ANIMACJA2:RELEASE=TRUE
ANIMACJA2:MONITORCOLLISION=FALSE
ANIMACJA2:MONITORCOLLISIONALPHA=FALSE
OBJECT=EVENT_DEBUG_TXT
EVENT_DEBUG_TXT:TYPE=STRING
EVENT_DEBUG_TXT:VALUE=
OBJECT=CALCULATE_DISTANCE
CALCULATE_DISTANCE:TYPE=BEHAVIOUR
CALCULATE_DISTANCE:CODE={@INT("X_SQUARE", [$1-$3]);X_SQUARE^POWER(2);@INT("Y_SQUARE", [$2-$4]);Y_SQUARE^POWER(2);@DOUBLE("ANIMO_DISTANCE", [X_SQUARE+Y_SQUARE]);ANIMO_DISTANCE^SQRT();@RETURN(ANIMO_DISTANCE);}
# OBLICZA PROCENT NAKLADANIA SIE PROSTOKATOW
# $1 - LEWY X OBIEKTU 1
# $2 - DOLNY Y OBIEKTU 1
# $3 - LEWY X OBIEKTU 2
# $4 - DOLNY Y OBIEKTU 2
# $5 - PRAWY X OBIEKTU 1
# $6 - GORNY Y OBIEKTU 1
# $7 - PRAWY X OBIEKTU 2
# $8 - GORNY Y OBIEKTU 2
OBJECT=CALCULATE_IOU
CALCULATE_IOU:TYPE=BEHAVIOUR
CALCULATE_IOU:CODE={@INT("INTERSECTIONX",0);@INT("INTERSECTIONY",0);@INT("INTERSECTIONWIDTH",0);@INT("INTERSECTIONHEIGHT",0);INTERSECTIONX^SET(INTERSECTIONX^MAXA($1, $3));INTERSECTIONY^SET(INTERSECTIONY^MAXA($2, $4));INTERSECTIONWIDTH^SET(INTERSECTIONWIDTH^MINA($5, $7));INTERSECTIONWIDTH^SUB(INTERSECTIONX);INTERSECTIONHEIGHT^SET(INTERSECTIONHEIGHT^MINA($6, $8));INTERSECTIONHEIGHT^SUB(INTERSECTIONY);!@IF("INTERSECTIONWIDTH<'0||INTERSECTIONHEIGHT<'0","RETURN_ZERO", "");@INT("INTERSECTIONAREA",[INTERSECTIONWIDTH*INTERSECTIONHEIGHT]);@INT("RECT1AREA",[[$5-$1]*[$6-$2]]);@INT("RECT2AREA",[[$7-$3]*[$8-$4]]);@INT("UNIONAREA",[RECT1AREA+RECT2AREA-INTERSECTIONAREA]);@DOUBLE("IOU",[1.0*INTERSECTIONAREA@UNIONAREA*100]);TXTMSG3^();!TXTMSG3^SETTEXT(["INTERSECTIONX__"+INTERSECTIONX+"|INTERSECTIONY__"+INTERSECTIONY+"|INTERSECTIONY__"+INTERSECTIONWIDTH+"|INTERSECTIONWIDTH__"+INTERSECTIONY+"|INTERSECTIONHEIGHT__"+INTERSECTIONHEIGHT+"|INTERSECTIONAREA__"+INTERSECTIONAREA+"|RECT1AREA__"+RECT1AREA+"|RECT2AREA__"+RECT2AREA+"|UNIONAREA__"+UNIONAREA+"|IOU__"+IOU]);@RETURN(IOU);}
OBJECT=RETURN_ZERO
RETURN_ZERO:TYPE=BEHAVIOUR
RETURN_ZERO:CODE={@RETURN(0);}
OBJECT=ANIMO_TEST_1
ANIMO_TEST_1:TYPE=BEHAVIOUR
ANIMO_TEST_1:CODE={TXTMSG2^SETTEXT(["METODA_GETCENTERX__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERX()+"|METODA_GETCENTERX(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERX(TRUE)+"|METODA_GETCENTERX(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERX(FALSE)+"|METODA_GETCENTERY__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERY()+"|METODA_GETCENTERY(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERY(TRUE)+"|METODA_GETCENTERY(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCENTERY(FALSE)]);}
OBJECT=ANIMO_TEST_2
ANIMO_TEST_2:TYPE=BEHAVIOUR
ANIMO_TEST_2:CODE={TXTMSG2^SETTEXT(["METODA_GETCFRAMEINEVENT__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT()+"|METODA_GETCFRAMEINEVENT(SPADA)__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT("SPADA")+"|METODA_GETCFRAMEINEVENT(R_IDLE)__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT("R_IDLE")]);}
OBJECT=ANIMO_TEST_3
ANIMO_TEST_3:TYPE=BEHAVIOUR
ANIMO_TEST_3:CODE={TXTMSG2^SETTEXT(["METODA_GETCURRFRAMEPOSX__ZWROCONY_WYNIK__"+ANIMACJA^GETCURRFRAMEPOSX()+"|METODA_GETCURRFRAMEPOSY__ZWROCONY_WYNIK__"+ANIMACJA^GETCURRFRAMEPOSY()]);}
OBJECT=ANIMO_TEST_4
ANIMO_TEST_4:TYPE=BEHAVIOUR
ANIMO_TEST_4:CODE={TXTMSG2^SETTEXT(["METODA_GETENDX__ZWROCONY_WYNIK__"+ANIMACJA^GETENDX()+"|METODA_GETENDY__ZWROCONY_WYNIK__"+ANIMACJA^GETENDY()]);}
OBJECT=ANIMO_TEST_5
ANIMO_TEST_5:TYPE=BEHAVIOUR
ANIMO_TEST_5:CODE={TXTMSG2^SETTEXT(["METODA_GETEVENTNAME__ZWROCONY_WYNIK__"+ANIMACJA^GETEVENTNAME()]);}
OBJECT=ANIMO_TEST_6
ANIMO_TEST_6:TYPE=BEHAVIOUR
ANIMO_TEST_6:CODE={TXTMSG2^SETTEXT(["METODA_GETCFRAMEINEVENT__ZWROCONY_WYNIK__"+ANIMACJA^GETCFRAMEINEVENT()+"|METODA_GETFRAME__ZWROCONY_WYNIK__"+ANIMACJA^GETFRAME()+"|METODA_GETFRAMENAME__ZWROCONY_WYNIK__"+ANIMACJA^GETFRAMENAME()]);}
OBJECT=ANIMO_TEST_7
ANIMO_TEST_7:TYPE=BEHAVIOUR
ANIMO_TEST_7:CODE={TXTMSG2^SETTEXT(["METODA_GETHEIGHT__ZWROCONY_WYNIK__"+ANIMACJA^GETHEIGHT()+"|METODA_GETWIDTH__ZWROCONY_WYNIK__"+ANIMACJA^GETWIDTH()+"|METODA_GETMAXHEIGHT__ZWROCONY_WYNIK__"+ANIMACJA^GETMAXHEIGHT()+"|METODA_GETMAXWIDTH__ZWROCONY_WYNIK__"+ANIMACJA^GETMAXWIDTH()]);}
OBJECT=ANIMO_TEST_8
ANIMO_TEST_8:TYPE=BEHAVIOUR
ANIMO_TEST_8:CODE={TXTMSG2^SETTEXT(["METODA_GETNOE__ZWROCONY_WYNIK__"+ANIMACJA^GETNOE()+"|METODA_GETNOF__ZWROCONY_WYNIK__"+ANIMACJA^GETNOF()+"|METODA_GETNOFINEVENT(SPADA)__ZWROCONY_WYNIK__"+ANIMACJA^GETNOFINEVENT("SPADA")+"|METODA_GETNOFINEVENT(0)__ZWROCONY_WYNIK__"+ANIMACJA^GETNOFINEVENT(0)+"|METODA_GETNOFINEVENT(NIEISTNIEJACY_EVENT)__ZWROCONY_WYNIK__"+ANIMACJA^GETNOFINEVENT("NIEISTNIEJACY_EVENT")]);}
OBJECT=ANIMO_TEST_9
ANIMO_TEST_9:TYPE=BEHAVIOUR
ANIMO_TEST_9:CODE={TXTMSG2^SETTEXT(["METODA_GETPOSITIONX__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONX()+"|METODA_GETPOSITIONX(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONX(TRUE)+"|METODA_GETPOSITIONX(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONX(FALSE)+"|METODA_GETPOSITIONY__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONY()+"|METODA_GETPOSITIONY(TRUE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONY(TRUE)+"|METODA_GETPOSITIONY(FALSE)__ZWROCONY_WYNIK__"+ANIMACJA^GETPOSITIONY(FALSE)]);ANIMACJA2^HIDE();}
OBJECT=ANIMO_TEST_10
ANIMO_TEST_10:TYPE=BEHAVIOUR
ANIMO_TEST_10:CODE={ANIMACJA2^SHOW();TXTMSG2^SETTEXT(["METODA_ISNEAR__ANIMACJA_NEAR_ANIMACJA2__ZWROCONY_WYNIK__"+ANIMACJA^ISNEAR("ANIMACJA2", 20)+"|METODA_ISNEAR__ANIMACJA2_NEAR_ANIMACJA__ZWROCONY_WYNIK__"+ANIMACJA2^ISNEAR("ANIMACJA", 20)+"|ODLEGLOSC_MIEDZY_CENTRAMI_ANIMACJI__"+CALCULATE_DISTANCE^RUN(ANIMACJA^GETCENTERX(), ANIMACJA^GETCENTERY(), ANIMACJA2^GETCENTERX(), ANIMACJA2^GETCENTERY())+"|ODLEGLOSC_PRAWEJ_STRONY_DO_LEWEJ_STRONY__"+CALCULATE_DISTANCE^RUN(ANIMACJA^GETENDX(), ANIMACJA^GETPOSITIONY(), ANIMACJA2^GETPOSITIONX(), ANIMACJA2^GETENDY())+"|INTERSECTION_OF_UNION__ANIMACJA_NEAR_ANIMACJA2__"+CALCULATE_IOU^RUN(ANIMACJA^GETPOSITIONX(),ANIMACJA^GETPOSITIONY(),ANIMACJA2^GETPOSITIONX(),ANIMACJA2^GETPOSITIONY(),ANIMACJA^GETENDX(),ANIMACJA^GETENDY(),ANIMACJA2^GETENDX(),ANIMACJA2^GETENDY())+"|INTERSECTION_OF_UNION__ANIMACJA2_NEAR_ANIMACJA__"+CALCULATE_IOU^RUN(ANIMACJA2^GETPOSITIONX(),ANIMACJA2^GETPOSITIONY(),ANIMACJA^GETPOSITIONX(),ANIMACJA^GETPOSITIONY(),ANIMACJA2^GETENDX(),ANIMACJA2^GETENDY(),ANIMACJA^GETENDX(),ANIMACJA^GETENDY());]);}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_animacji"]);TXTMSG^SHOW();TXTMSG2^SHOW();ANIMACJA^SETPOSITION(400, 500);ANIMACJA^PLAY("SPADA");ANIMACJA^SETFRAME("SPADA",4);ANIMACJA2^MOVE(300, -100);ANIMACJA2^PLAY("STOI");ANIMACJA2^HIDE();}

53
dane/game/debug/animotest/Animo_test2.cnv Normal file
View File

@@ -0,0 +1,53 @@
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");}

53
dane/game/debug/animotest/Animo_test3.cnv Normal file
View File

@@ -0,0 +1,53 @@
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^SPACE={ANNLAMPKI^PAUSE();}
KEYBOARD:ONKEYDOWN^W={ANNLAMPKI^RESUME();}
KEYBOARD:ONKEYDOWN^E={ANNLAMPKI^SETFRAME("PLAY", 0);}
KEYBOARD:ONKEYDOWN^R={ANNLAMPKI^PREVFRAME();}
KEYBOARD:ONKEYDOWN^T={ANNLAMPKI^NEXTFRAME();}
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=TEST_MSG
TEST_MSG:TYPE=STRING
TEST_MSG:VALUE=
TEST_MSG:ONCHANGED={TXTMSG^SETTEXT(TEST_MSG^GET());}
OBJECT=ANNLAMPKI
ANNLAMPKI:TYPE=ANIMO
ANNLAMPKI:VISIBLE=TRUE
ANNLAMPKI:FILENAME=ODLICZANIE.ANN
ANNLAMPKI:TOCANVAS=TRUE
ANNLAMPKI:PRIORITY=41
ANNLAMPKI:FPS=16
ANNLAMPKI:PRELOAD=TRUE
ANNLAMPKI:RELEASE=TRUE
ANNLAMPKI:MONITORCOLLISION=FALSE
ANNLAMPKI:MONITORCOLLISIONALPHA=FALSE
ANNLAMPKI:ONFINISHED^PLAY={TEST_MSG^ADD(["ONFINISHED_PLAY_"+ANNLAMPKI^GETCFRAMEINEVENT()+"_"+ANNLAMPKI^GETFRAME()+"|"]);;THIS^HIDE();}
ANNLAMPKI:ONFRAMECHANGED^PLAY={TEST_MSG^ADD(["ONFRAMECHANGED_PLAY_"+ANNLAMPKI^GETCFRAMEINEVENT()+"_"+ANNLAMPKI^GETFRAME()+"|"]);}
ANNLAMPKI:ONSTARTED^PLAY={TEST_MSG^ADD(["ONSTARTED_PLAY_"+ANNLAMPKI^GETCFRAMEINEVENT()+"_"+ANNLAMPKI^GETFRAME()+"|"]);}
ANNLAMPKI:ONINIT={THIS^HIDE();THIS^SETFPS(1);}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);ANNLAMPKI^PLAY("PLAY");}

BIN
dane/game/debug/animotest/egipt.wav Normal file
View File

Binary file not shown.

BIN
dane/game/debug/animotest/odliczanie.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/animotest/reksio.ann Normal file
View File

Binary file not shown.

1401
dane/game/debug/animotest/reksio.mann Normal file
View File

File diff suppressed because it is too large Load Diff

38
dane/game/debug/arrajki/Arrajki.cnv Normal file
View File

@@ -0,0 +1,38 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("MOUSE_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
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,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=MOJAARRAJKA
MOJAARRAJKA:TYPE=ARRAY
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={__KEYBOARD_AUTOCLICK_DISABLE__^RUN();DEBUG_VALUE^SET(1);TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_test_tablic"]);TXTMSG^SHOW();MOJAARRAJKA^LOAD("TESTOWE_DANE_MIXED.ARR");MOJAARRAJKA^ADDAT(0,10);MOJAARRAJKA^CHANGEAT(1,25.5);MOJAARRAJKA^CLAMPAT(2,2.5,17.0);MOJAARRAJKA^MODAT(4,4);MOJAARRAJKA^SAVE("TESTOWE_DANE_ZMIANY.ARR");}

BIN
dane/game/debug/arrajki/TESTOWE_DANE_ZMIANY.ARR Normal file
View File

Binary file not shown.

78
dane/game/debug/arrajki/am_array_encoder.py Normal file
View File

@@ -0,0 +1,78 @@
data_to_encode = [
"Test",
True,
1.5,
1,
"TRUE",
False,
0.0,
0
]
def intToBytes(i):
return i.to_bytes(4, byteorder="little", signed=True)
def bytesToInt(b):
return int.from_bytes(b, byteorder="little", signed=True)
def encode(data):
encoded_bytes = b""
encoded_bytes += intToBytes(len(data))
for d in data:
if type(d) == int:
encoded_bytes += intToBytes(1)
encoded_bytes += intToBytes(d)
elif type(d) == float:
encoded_bytes += intToBytes(4)
encoded_bytes += intToBytes(int(d*10000))
elif type(d) == str:
encoded_bytes += intToBytes(2)
encoded_bytes += intToBytes(len(d))
encoded_bytes += d.encode("utf-8")
elif type(d) == bool:
encoded_bytes += intToBytes(3)
encoded_bytes += intToBytes(int(d))
print(encoded_bytes)
return encoded_bytes
def decode(encoded_bytes):
data = []
bytes_read = 0
array_length = bytesToInt(encoded_bytes[bytes_read:bytes_read+4])
bytes_read += 4
for _ in range(array_length):
data_type = bytesToInt(encoded_bytes[bytes_read:bytes_read+4])
bytes_read += 4
if data_type == 1:
data.append(bytesToInt(encoded_bytes[bytes_read:bytes_read+4]))
bytes_read += 4
elif data_type == 4:
data.append(bytesToInt(encoded_bytes[bytes_read:bytes_read+4])/10000)
bytes_read += 4
elif data_type == 2:
string_length = bytesToInt(encoded_bytes[bytes_read:bytes_read+4])
bytes_read += 4
data.append(encoded_bytes[bytes_read:bytes_read+string_length].decode("utf-8"))
bytes_read += string_length
elif data_type == 3:
data.append(bool(bytesToInt(encoded_bytes[bytes_read:bytes_read+4])))
bytes_read += 4
else:
raise ValueError("Unknown data type")
return data
with open("testowe_dane.arr", "wb") as f:
f.write(encode(data_to_encode))
#with open("testowe_dane_mixed.arr", "rb") as f:
# print(decode(f.read()))
#with open("TESTOWE_DANE_ZMIANY.ARR", "rb") as f:
# print(decode(f.read()))

BIN
dane/game/debug/arrajki/ch3_easy_bkg.arr Normal file
View File

Binary file not shown.

BIN
dane/game/debug/arrajki/testowe_dane_mixed.arr Normal file
View File

Binary file not shown.

188
dane/game/debug/arraytest/Array_test.cnv Normal file
View File

@@ -0,0 +1,188 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("LOGIC_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("ANIMO_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");*[ARRAY_TEST_+BEHNO]^RUN();}
KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","28","{BEHNO^INC();}","");*[ARRAY_TEST_+BEHNO]^RUN();}
KEYBOARD:DESCRIPTION=CZEMU_SIE_CRASHUJE_JAK_PROBUJE_PRZEJSC_DALEJ
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=FALSE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,650
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=BEHNO
BEHNO:TYPE=INTEGER
BEHNO:VALUE=1
OBJECT=DANETESTOWE
DANETESTOWE:TYPE=ARRAY
DANETESTOWE:ONINIT={EVENT_DEBUG_TXT^ADD("|INIT");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
#DANETESTOWE:ONDONE={EVENT_DEBUG_TXT^ADD("|DONE");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
DANETESTOWE:ONSIGNAL^TEST={EVENT_DEBUG_TXT^ADD("|SIGNAL_TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
OBJECT=TEST_COPY_ARRAY
TEST_COPY_ARRAY:TYPE=ARRAY
OBJECT=EVENT_DEBUG_TXT
EVENT_DEBUG_TXT:TYPE=STRING
EVENT_DEBUG_TXT:VALUE=
OBJECT=ARRAY_TO_STRING
ARRAY_TO_STRING:TYPE=BEHAVIOUR
ARRAY_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");@LOOP("{ARRAY_TEXT^ADD([""+_I_+"__"+DANETESTOWE^GET(_I_)]);@IF("_I_","!_", [DANETESTOWE^GETSIZE()-1], "{ARRAY_TEXT^ADD("|");}", "");}", "0", DANETESTOWE^GETSIZE(), "1");@RETURN(ARRAY_TEXT);}
OBJECT=ARRAY2_TO_STRING
ARRAY2_TO_STRING:TYPE=BEHAVIOUR
ARRAY2_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");@LOOP("{ARRAY_TEXT^ADD([""+_I_+"__"+TEST_COPY_ARRAY^GET(_I_)]);@IF("_I_","!_", [TEST_COPY_ARRAY^GETSIZE()-1], "{ARRAY_TEXT^ADD("|");}", "");}", "0", TEST_COPY_ARRAY^GETSIZE(), "1");@RETURN(ARRAY_TEXT);}
OBJECT=ARRAY_TEST_1
ARRAY_TEST_1:TYPE=BEHAVIOUR
ARRAY_TEST_1:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADD("FALSE");TXTMSG2^SETTEXT(["METODA_ADD|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_2
ARRAY_TEST_2:TYPE=BEHAVIOUR
ARRAY_TEST_2:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADDAT(0, "FALSE");TXTMSG2^SETTEXT(["METODA_ADDAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_3
ARRAY_TEST_3:TYPE=BEHAVIOUR
ARRAY_TEST_3:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^CHANGEAT(0, "FALSE");TXTMSG2^SETTEXT(["METODA_CHANGEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_4
ARRAY_TEST_4:TYPE=BEHAVIOUR
ARRAY_TEST_4:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^CLAMPAT(2, -2, 0.5);TXTMSG2^SETTEXT(["METODA_CLAMPEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_5
ARRAY_TEST_5:TYPE=BEHAVIOUR
ARRAY_TEST_5:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_CONTAINS|ZWROCONY_WYNIK__"+DANETESTOWE^CONTAINS(TRUE)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_6
ARRAY_TEST_6:TYPE=BEHAVIOUR
ARRAY_TEST_6:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^COPYTO("TEST_COPY_ARRAY");TXTMSG2^SETTEXT(["METODA_COPYTO|ZWROCONY_WYNIK__void|"+ARRAY2_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_7
ARRAY_TEST_7:TYPE=BEHAVIOUR
ARRAY_TEST_7:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_FIND|ZWROCONY_WYNIK__"+DANETESTOWE^FIND("TRUE")+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_8
ARRAY_TEST_8:TYPE=BEHAVIOUR
ARRAY_TEST_8:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_FIND__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^FIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_9
ARRAY_TEST_9:TYPE=BEHAVIOUR
ARRAY_TEST_9:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_FIND__NIEISTNIEJACY_ELEMENT_TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^FIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_10
ARRAY_TEST_10:TYPE=BEHAVIOUR
ARRAY_TEST_10:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__ISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^GET(2)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_11
ARRAY_TEST_11:TYPE=BEHAVIOUR
ARRAY_TEST_11:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^GET(10)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_12
ARRAY_TEST_12:TYPE=BEHAVIOUR
ARRAY_TEST_12:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GET__NIEISTNIEJACY_ELEMENT_DWA_ARGUMENTY|ZWROCONY_WYNIK__"+DANETESTOWE^GET(8,1)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_13
ARRAY_TEST_13:TYPE=BEHAVIOUR
ARRAY_TEST_13:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GETSIZE|ZWROCONY_WYNIK__"+DANETESTOWE^GETSIZE()+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_14
ARRAY_TEST_14:TYPE=BEHAVIOUR
ARRAY_TEST_14:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_GETSUMVALUE|ZWROCONY_WYNIK__"+DANETESTOWE^GETSUMVALUE()+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_15
ARRAY_TEST_15:TYPE=BEHAVIOUR
ARRAY_TEST_15:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_GETSUMVALUE__TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^GETSUMVALUE()+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_16
ARRAY_TEST_16:TYPE=BEHAVIOUR
ARRAY_TEST_16:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^INSERTAT(3, 2.5);TXTMSG2^SETTEXT(["METODA_INSERTAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_17
ARRAY_TEST_17:TYPE=BEHAVIOUR
ARRAY_TEST_17:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SAVEINI();TXTMSG2^SETTEXT(["METODA_SAVEINI|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_18
ARRAY_TEST_18:TYPE=BEHAVIOUR
ARRAY_TEST_18:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVE(TRUE);TXTMSG2^SETTEXT(["METODA_REMOVE|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_19
ARRAY_TEST_19:TYPE=BEHAVIOUR
ARRAY_TEST_19:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVEALL();TXTMSG2^SETTEXT(["METODA_REMOVEALL|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_20
ARRAY_TEST_20:TYPE=BEHAVIOUR
ARRAY_TEST_20:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^REMOVEAT(2);TXTMSG2^SETTEXT(["METODA_REMOVEAT|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_21
ARRAY_TEST_21:TYPE=BEHAVIOUR
ARRAY_TEST_21:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND("TRUE")+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_22
ARRAY_TEST_22:TYPE=BEHAVIOUR
ARRAY_TEST_22:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND__NIEISTNIEJACY_ELEMENT|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_23
ARRAY_TEST_23:TYPE=BEHAVIOUR
ARRAY_TEST_23:CODE={DANETESTOWE^LOAD("TESTOWE_DANE_JEDEN_TYP.ARR");TXTMSG2^SETTEXT(["METODA_REVERSEFIND__NIEISTNIEJACY_ELEMENT_TABLICA_JEDEN_TYP|ZWROCONY_WYNIK__"+DANETESTOWE^REVERSEFIND(250)+"|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_24
ARRAY_TEST_24:TYPE=BEHAVIOUR
ARRAY_TEST_24:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SUB(5);TXTMSG2^SETTEXT(["METODA_SUB|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_25
ARRAY_TEST_25:TYPE=BEHAVIOUR
ARRAY_TEST_25:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^SUM(5);TXTMSG2^SETTEXT(["METODA_SUM|ZWROCONY_WYNIK__void|"+ARRAY_TO_STRING^RUN()]);}
OBJECT=ARRAY_TEST_26
ARRAY_TEST_26:TYPE=BEHAVIOUR
ARRAY_TEST_26:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");DANETESTOWE^ADD(ARIAL14);TXTMSG2^SETTEXT(["PROBA_DODANIA_INNEGO_TYPU|WIELKOSC_TABLICY__"+DANETESTOWE^GETSIZE()]);}
OBJECT=ARRAY_TEST_27
ARRAY_TEST_27:TYPE=BEHAVIOUR
ARRAY_TEST_27:CODE={TXTMSG3^SHOW();EVENT_DEBUG_TXT^ADD("|PRZED_LOAD");DANETESTOWE^LOAD("TESTOWE_DANE.ARR");EVENT_DEBUG_TXT^ADD("|PO_LOAD|PRZED_SAVE");DANETESTOWE^SAVE("TEST_ZAPISU.ARR");EVENT_DEBUG_TXT^ADD("|PO_SAVE");DANETESTOWE^SEND("TEST");TXTMSG3^SETTEXT(["SCIEZKA_EVENTY|"+EVENT_DEBUG_TXT^GET()]);}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_tablic"]);TXTMSG^SHOW();TXTMSG2^SHOW();ARRAY_TEST_1^RUN();}

70
dane/game/debug/arraytest/Array_test2.cnv Normal file
View File

@@ -0,0 +1,70 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("LOGIC_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("ANIMO_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:DESCRIPTION=CZEMU_SIE_CRASHUJE_JAK_PROBUJE_PRZEJSC_DALEJ
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=DANETESTOWE
DANETESTOWE:TYPE=ARRAY
OBJECT=ARRAY_TEMP_NAME
ARRAY_TEMP_NAME:TYPE=STRING
ARRAY_TEMP_NAME:VALUE=
OBJECT=TEST_STRING
TEST_STRING:TYPE=STRING
TEST_STRING:VALUE=
TEST_STRING:DEFAULT=
TEST_STRING:ONCHANGED={TXTMSG2^SETTEXT(TEST_STRING^GET());}
TEST_STRING:TOINI=TRUE
OBJECT=ARRAY_TO_STRING
ARRAY_TO_STRING:TYPE=BEHAVIOUR
ARRAY_TO_STRING:CODE={@STRING("ARRAY_TEXT", "");ARRAY_TEMP_NAME^SET($1);ARRAY_TEXT^ADD([ARRAY_TEMP_NAME+"_"]);@LOOP("{ARRAY_TEXT^ADD(["_"+_I_]);ARRAY_TEXT^ADD(["__"+GAME^RUN(ARRAY_TEMP_NAME,"GET",_I_)]);}", "0", GAME^RUN(ARRAY_TEMP_NAME,"GETSIZE"), "1");@RETURN(ARRAY_TEXT);}
OBJECT=TEST_VALUE
TEST_VALUE:TYPE=INTEGER
TEST_VALUE:VALUE=0
TEST_VALUE:ONCHANGED^1={TEST_STRING^ADD(ARRAY_TO_STRING^RUN("DANETESTOWE"));}
OBJECT=TEST_TIMER
TEST_TIMER:TYPE=TIMER
TEST_TIMER:ENABLED=TRUE
TEST_TIMER:ELAPSE=100
TEST_TIMER:TICKS=0
TEST_TIMER:ONTICK={TEST_STRING^ADD(ARRAY_TO_STRING^RUN("DANETESTOWE"));TEST_TIMER^DISABLE();}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);TEST_STRING^RESETINI();TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_tablic"]);TXTMSG^SHOW();TXTMSG2^SHOW();DANETESTOWE^ADD(0.0,1.0,0.0,0.0);TEST_STRING^ADD("BEHINITFILTERvBEHINITPLAYERvBEHROTATEv");}

43
dane/game/debug/arraytest/Array_test3 — kopia.cnv Normal file
View File

@@ -0,0 +1,43 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("LOGIC_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("ANIMO_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=ARPRZESZKODY
ARPRZESZKODY:TYPE=MULTIARRAY
ARPRZESZKODY:DIMENSIONS=2
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);ARPRZESZKODY^SET(0,0,0);ARPRZESZKODY^SET(0,1,1);ARPRZESZKODY^SET(0,2,2);ARPRZESZKODY^SET(1,0,3);ARPRZESZKODY^SET(1,1,4);ARPRZESZKODY^SET(1,2,5);ARPRZESZKODY^SET(2,0,6);ARPRZESZKODY^SET(2,1,7);ARPRZESZKODY^SET(2,2,8);ARPRZESZKODY^SAVE("TEST.MAR");TXTMSG2^SETTEXT(ARPRZESZKODY^GETSIZE(1,1));}

43
dane/game/debug/arraytest/Array_test3.cnv Normal file
View File

@@ -0,0 +1,43 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("LOGIC_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("ANIMO_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=ARPRZESZKODY
ARPRZESZKODY:TYPE=MULTIARRAY
ARPRZESZKODY:DIMENSIONS=2
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);ARPRZESZKODY^LOAD("TEST.MAR");ARPRZESZKODY^SET(0,20,15);ARPRZESZKODY^SAVE("TEST3.MAR");TXTMSG2^SETTEXT(ARPRZESZKODY^GET(0,1));}

BIN
dane/game/debug/arraytest/TEST.MAR Normal file
View File

Binary file not shown.

BIN
dane/game/debug/arraytest/TEST2.MAR Normal file
View File

Binary file not shown.

BIN
dane/game/debug/arraytest/TEST3.MAR Normal file
View File

Binary file not shown.

BIN
dane/game/debug/arraytest/TEST_ZAPISU.ARR Normal file
View File

Binary file not shown.

241
dane/game/debug/arraytest/mar_parser.py Normal file
View File

@@ -0,0 +1,241 @@
#!/usr/bin/env python3
"""
Parser dla plików .mar (MultiArray) z gier Reksio
"""
import struct
import sys
from pathlib import Path
class MultiArrayParser:
def __init__(self, filepath):
self.filepath = Path(filepath)
self.dimensions = []
self.total_elements = 0
self.data = {} # sparse dictionary: index -> value
def read_int(self, f):
"""Czyta int32 little-endian"""
return struct.unpack('<i', f.read(4))[0]
def read_double(self, f):
"""Czyta double jako int32/10000"""
raw = struct.unpack('<i', f.read(4))[0]
return raw / 10000.0
def read_bool(self, f):
"""Czyta bool jako byte"""
return struct.unpack('<?', f.read(1))[0]
def read_string(self, f):
"""Czyta string: [int32 length][bytes data]"""
length = self.read_int(f)
if length <= 0:
return ""
data = f.read(length)
# Usuń null terminatory
return data.decode('utf-8', errors='ignore').rstrip('\x00')
def read_variable(self, f):
"""Czyta zmienną: [int32 type][data]"""
data_type = self.read_int(f)
if data_type == 1: # INTEGER
value = self.read_int(f)
return ('INTEGER', value)
elif data_type == 2: # STRING
value = self.read_string(f)
return ('STRING', value)
elif data_type == 3: # BOOL
value = self.read_bool(f)
return ('BOOL', value)
elif data_type == 4: # DOUBLE
value = self.read_double(f)
return ('DOUBLE', value)
else:
raise ValueError(f"Unknown data type: {data_type}")
def flat_to_indices(self, flat_index):
"""Konwertuje flat index na wielowymiarowe indeksy"""
indices = []
remaining = flat_index
for i in range(len(self.dimensions) - 1, -1, -1):
indices.insert(0, remaining % self.dimensions[i])
remaining //= self.dimensions[i]
return indices
def indices_to_flat(self, indices):
"""Konwertuje wielowymiarowe indeksy na flat index"""
flat_index = 0
multiplier = 1
for i in range(len(self.dimensions) - 1, -1, -1):
flat_index += indices[i] * multiplier
multiplier *= self.dimensions[i]
return flat_index
def parse(self):
"""Parsuje plik .mar"""
with open(self.filepath, 'rb') as f:
# Czytaj liczbę wymiarów
dimensions_count = self.read_int(f)
print(f"Dimensions count: {dimensions_count}")
# Czytaj rozmiary wymiarów
self.total_elements = 1
for i in range(dimensions_count):
dim_size = self.read_int(f)
self.dimensions.append(dim_size)
self.total_elements *= dim_size
print(f" Dimension {i}: {dim_size}")
print(f"Total elements: {self.total_elements}")
print(f"Array shape: {self.dimensions}")
print()
# Czytaj elementy (sparse format)
loaded_count = 0
try:
while True:
# Sprawdź czy są jeszcze dane
pos = f.tell()
if f.read(1) == b'':
break
f.seek(pos)
# Czytaj indeks
flat_index = self.read_int(f)
if flat_index < 0 or flat_index >= self.total_elements:
print(f"WARNING: Index out of bounds: {flat_index}")
break
# Czytaj zmienną
var_type, var_value = self.read_variable(f)
# Zapisz w sparse dictionary
self.data[flat_index] = (var_type, var_value)
loaded_count += 1
except struct.error:
pass # Koniec pliku
print(f"Loaded {loaded_count}/{self.total_elements} elements ({100*loaded_count/self.total_elements:.1f}% filled)")
def print_summary(self):
"""Wyświetla podsumowanie"""
print("\n" + "="*80)
print(f"File: {self.filepath.name}")
print(f"Dimensions: {len(self.dimensions)}D array")
print(f"Shape: {' × '.join(map(str, self.dimensions))}")
print(f"Total slots: {self.total_elements}")
print(f"Filled slots: {len(self.data)}")
print(f"Empty slots: {self.total_elements - len(self.data)}")
print(f"Fill rate: {100*len(self.data)/self.total_elements:.1f}%")
print("="*80)
def print_data(self, max_items=50):
"""Wyświetla dane"""
print("\nData:")
print("-" * 80)
if not self.data:
print(" (empty)")
return
for i, (flat_index, (var_type, var_value)) in enumerate(sorted(self.data.items())):
if i >= max_items:
remaining = len(self.data) - max_items
print(f" ... and {remaining} more items")
break
indices = self.flat_to_indices(flat_index)
indices_str = '[' + ']['.join(map(str, indices)) + ']'
# Formatuj wartość
if var_type == 'STRING':
value_str = f'"{var_value}"'
elif var_type == 'BOOL':
value_str = 'true' if var_value else 'false'
else:
value_str = str(var_value)
print(f" {indices_str:20s} (flat: {flat_index:5d}) = {var_type:8s} {value_str}")
def export_to_python(self, output_file=None):
"""Eksportuje do Pythona jako nested lists"""
if output_file is None:
output_file = self.filepath.with_suffix('.py')
def create_nested_structure(dims):
"""Tworzy zagnieżdżoną strukturę list"""
if len(dims) == 1:
return [None] * dims[0]
else:
return [create_nested_structure(dims[1:]) for _ in range(dims[0])]
def set_value(arr, indices, value):
"""Ustawia wartość w zagnieżdżonej strukturze"""
for idx in indices[:-1]:
arr = arr[idx]
arr[indices[-1]] = value
# Stwórz strukturę
nested = create_nested_structure(self.dimensions)
# Wypełnij danymi
for flat_index, (var_type, var_value) in self.data.items():
indices = self.flat_to_indices(flat_index)
set_value(nested, indices, (var_type, var_value))
# Zapisz do pliku
with open(output_file, 'w', encoding='utf-8') as f:
f.write(f"# Generated from {self.filepath.name}\n")
f.write(f"# Dimensions: {self.dimensions}\n\n")
f.write(f"data = {nested!r}\n")
print(f"\nExported to: {output_file}")
def main():
if len(sys.argv) < 2:
print("Usage: mar_parser.py <file.mar> [--export] [--verbose] [--max-items N]")
print()
print("Options:")
print(" --export Export to Python file")
print(" --verbose Show all data items")
print(" --max-items N Show max N items (default: 50)")
sys.exit(1)
filepath = sys.argv[1]
export = '--export' in sys.argv
verbose = '--verbose' in sys.argv
max_items = 50
if '--max-items' in sys.argv:
idx = sys.argv.index('--max-items')
if idx + 1 < len(sys.argv):
max_items = int(sys.argv[idx + 1])
if verbose:
max_items = 999999
# Parsuj plik
parser = MultiArrayParser(filepath)
parser.parse()
# Pokaż wyniki
parser.print_summary()
parser.print_data(max_items=max_items)
# Eksportuj jeśli trzeba
if export:
parser.export_to_python()
if __name__ == '__main__':
main()

150
dane/game/debug/arraytest/mar_writer.py Normal file
View File

@@ -0,0 +1,150 @@
#!/usr/bin/env python3
"""
Narzędzie do tworzenia plików .mar
"""
import struct
import sys
class MultiArrayWriter:
def __init__(self, dimensions):
"""
dimensions: list of ints, np. [3, 4, 2] dla tablicy [3][4][2]
"""
self.dimensions = dimensions
self.total_elements = 1
for dim in dimensions:
self.total_elements *= dim
self.data = {} # sparse: flat_index -> (type, value)
def write_int(self, f, value):
f.write(struct.pack('<i', value))
def write_double(self, f, value):
f.write(struct.pack('<i', int(value * 10000)))
def write_bool(self, f, value):
f.write(struct.pack('<?', value))
def write_string(self, f, value):
data = value.encode('utf-8')
self.write_int(f, len(data))
f.write(data)
def write_variable(self, f, var_type, value):
"""type: 1=int, 2=string, 3=bool, 4=double"""
self.write_int(f, var_type)
if var_type == 1:
self.write_int(f, value)
elif var_type == 2:
self.write_string(f, value)
elif var_type == 3:
self.write_bool(f, value)
elif var_type == 4:
self.write_double(f, value)
def indices_to_flat(self, indices):
"""Konwertuje [x][y][z] na flat index"""
flat = 0
multiplier = 1
for i in range(len(self.dimensions) - 1, -1, -1):
flat += indices[i] * multiplier
multiplier *= self.dimensions[i]
return flat
def set(self, indices, var_type, value):
"""
Ustawia wartość pod wielowymiarowymi indeksami
indices: list of ints, np. [1, 2, 0]
var_type: 1=int, 2=string, 3=bool, 4=double
value: wartość
"""
if len(indices) != len(self.dimensions):
raise ValueError(f"Wrong number of indices: got {len(indices)}, expected {len(self.dimensions)}")
for i, idx in enumerate(indices):
if idx < 0 or idx >= self.dimensions[i]:
raise ValueError(f"Index {i} out of bounds: {idx} (max: {self.dimensions[i]-1})")
flat_index = self.indices_to_flat(indices)
self.data[flat_index] = (var_type, value)
def set_int(self, indices, value):
self.set(indices, 1, value)
def set_string(self, indices, value):
self.set(indices, 2, value)
def set_bool(self, indices, value):
self.set(indices, 3, value)
def set_double(self, indices, value):
self.set(indices, 4, value)
def save(self, filepath):
"""Zapisuje do pliku .mar"""
with open(filepath, 'wb') as f:
# Liczba wymiarów
self.write_int(f, len(self.dimensions))
# Rozmiary wymiarów
for dim in self.dimensions:
self.write_int(f, dim)
# Zapisz elementy (posortowane po indeksie)
for flat_index in sorted(self.data.keys()):
var_type, value = self.data[flat_index]
self.write_int(f, flat_index)
self.write_variable(f, var_type, value)
print(f"Saved to {filepath}")
print(f" Dimensions: {self.dimensions}")
print(f" Total slots: {self.total_elements}")
print(f" Filled slots: {len(self.data)}")
print(f" Fill rate: {100*len(self.data)/self.total_elements:.1f}%")
def example_usage():
"""Przykład użycia"""
# Stwórz tablicę 2D [5][3]
mar = MultiArrayWriter([5, 3])
# Wypełnij danymi
mar.set_string([0, 0], "Reksio")
mar.set_int([0, 1], 123)
mar.set_double([1, 2], 3.14159)
mar.set_bool([2, 0], True)
mar.set_string([4, 2], "Koniec!")
# Zapisz
mar.save('/tmp/example.mar')
if __name__ == '__main__':
if len(sys.argv) > 1 and sys.argv[1] == '--example':
example_usage()
else:
print("MultiArray Writer - narzędzie do tworzenia plików .mar")
print()
print("Użycie w kodzie:")
print()
print(" from mar_writer import MultiArrayWriter")
print()
print(" # Stwórz tablicę [3][4][2]")
print(" mar = MultiArrayWriter([3, 4, 2])")
print()
print(" # Ustaw wartości")
print(" mar.set_string([0, 0, 0], 'Hello')")
print(" mar.set_int([1, 2, 1], 42)")
print(" mar.set_double([2, 3, 0], 3.14)")
print(" mar.set_bool([0, 1, 1], True)")
print()
print(" # Zapisz")
print(" mar.save('output.mar')")
print()
print("Uruchom z --example aby stworzyć przykładowy plik")

BIN
dane/game/debug/arraytest/testowe_dane.arr Normal file
View File

Binary file not shown.

BIN
dane/game/debug/arraytest/testowe_dane_jeden_typ.arr Normal file
View File

Binary file not shown.

BIN
dane/game/debug/buttontest/7kroko1-5.ann Normal file
View File

Binary file not shown.

121
dane/game/debug/buttontest/Button_test.cnv Normal file
View File

@@ -0,0 +1,121 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^1={PTAK1_BUTTON^ENABLE();POLE1^ENABLE();}
KEYBOARD:ONKEYDOWN^2={PTAK1_BUTTON^DISABLEBUTVISIBLE();POLE1^DISABLEBUTVISIBLE();}
KEYBOARD:ONKEYDOWN^3={PTAK1_BUTTON^DISABLE();POLE1^DISABLE();}
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=FALSE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,650
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=PTAK1
PTAK1:TYPE=ANIMO
PTAK1:FILENAME=PTAK1.ANN
PTAK1:TOCANVAS=TRUE
PTAK1:VISIBLE=TRUE
PTAK1:ONINIT=BEH_PODLATUJE1
PTAK1:ONFINISHED^PODLATUJE1=BEH_PODLATUJE2
PTAK1:ONFINISHED^PODLATUJE2=BEH_RESETPTAKA1
OBJECT=PTAK1_BUTTON
PTAK1_BUTTON:TYPE=BUTTON
PTAK1_BUTTON:RECT=PTAK1
PTAK1_BUTTON:ONACTION=BEH_LOTPTAKA1
PTAK1_BUTTON:ENABLE=FALSE
OBJECT=MAPA1
MAPA1:TYPE=IMAGE
MAPA1:VISIBLE=TRUE
MAPA1:FILENAME=MAPA1.IMG
MAPA1:TOCANVAS=TRUE
MAPA1:PRIORITY=9
MAPA1:PRELOAD=TRUE
MAPA1:RELEASE=TRUE
MAPA1:MONITORCOLLISION=FALSE
MAPA1:MONITORCOLLISIONALPHA=FALSE
OBJECT=POLE1
POLE1:TYPE=BUTTON
POLE1:VISIBLE=TRUE
POLE1:ENABLE=TRUE
POLE1:DRAGGABLE=FALSE
POLE1:GFXSTANDARD=MAPA1
OBJECT=ANIMOKROKODYL7-5
ANIMOKROKODYL7-5:TYPE=ANIMO
ANIMOKROKODYL7-5:VISIBLE=TRUE
ANIMOKROKODYL7-5:FILENAME=7KROKO1-5.ANN
ANIMOKROKODYL7-5:TOCANVAS=TRUE
ANIMOKROKODYL7-5:PRIORITY=0
ANIMOKROKODYL7-5:FPS=15
ANIMOKROKODYL7-5:PRELOAD=TRUE
ANIMOKROKODYL7-5:RELEASE=TRUE
ANIMOKROKODYL7-5:MONITORCOLLISION=FALSE
ANIMOKROKODYL7-5:MONITORCOLLISIONALPHA=FALSE
OBJECT=BUTTONKROKODYL7-5
BUTTONKROKODYL7-5:TYPE=BUTTON
BUTTONKROKODYL7-5:VISIBLE=TRUE
BUTTONKROKODYL7-5:ENABLE=TRUE
BUTTONKROKODYL7-5:DRAGGABLE=FALSE
BUTTONKROKODYL7-5:GFXSTANDARD=ANIMOKROKODYL7-5
OBJECT=BEH_PODLATUJE1
BEH_PODLATUJE1:TYPE=BEHAVIOUR
BEH_PODLATUJE1:CODE={THIS^PLAY("PODLATUJE1");}
OBJECT=BEH_PODLATUJE2
BEH_PODLATUJE2:TYPE=BEHAVIOUR
BEH_PODLATUJE2:CODE={THIS^PLAY("PODLATUJE2");}
OBJECT=BEH_RESETPTAKA1
BEH_RESETPTAKA1:TYPE=BEHAVIOUR
BEH_RESETPTAKA1:CODE={PTAK1_BUTTON^SETRECT("PTAK1");PTAK1_BUTTON^ENABLE();}
OBJECT=BEH_LOTPTAKA1
BEH_LOTPTAKA1:TYPE=BEHAVIOUR
BEH_LOTPTAKA1:CODE={THIS^DISABLE();PTAK1^PLAY("PODLATUJE1");}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={CLSPOPUPOBJ^NEW("PPMENU");PPMENU^OPCJE_ENABLE();TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_tablic"]);TXTMSG^SHOW();TXTMSG2^SHOW();TXTMSG2^SETTEXT(ANIMOKROKODYL7-5^GETEVENTNAME());}

BIN
dane/game/debug/buttontest/mapa1.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/buttontest/ptak1.ann Normal file
View File

Binary file not shown.

30
dane/game/debug/classtest/Class_test.cnv Normal file
View File

@@ -0,0 +1,30 @@
OBJECT=MM
MM:TYPE=CLASS
MM:DEF=MAINMENU.CLASS
MM:BASE=
OBJECT=G_ARRREXSPELLS
G_ARRREXSPELLS:TYPE=ARRAY
OBJECT=G_ARRSETTINGS
G_ARRSETTINGS:TYPE=ARRAY
OBJECT=BFITMP129
BFITMP129:TYPE=BEHAVIOUR
BFITMP129:CODE={__DEFAULT_SETTINGS__^RUN();}
OBJECT=BFITMP131
BFITMP131:TYPE=BEHAVIOUR
BFITMP131:CODE={G_ARRSETTINGS^REMOVEALL();}
OBJECT=__DEFAULT_SETTINGS__
__DEFAULT_SETTINGS__:TYPE=BEHAVIOUR
__DEFAULT_SETTINGS__:CODE={@IF(G_ARRSETTINGS^GETSIZE(),">","0","BFITMP131","");G_ARRSETTINGS^ADD(0,600);}
OBJECT=__LOAD_SETTINGS__
__LOAD_SETTINGS__:TYPE=BEHAVIOUR
__LOAD_SETTINGS__:CODE={G_ARRSETTINGS^REMOVEALL();G_ARRSETTINGS^LOAD("SETTINGS.ARR");@IF(G_ARRSETTINGS^GETSIZE(),"_","0","BFITMP129","");}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);MM^NEW("G_MENU");}

BIN
dane/game/debug/classtest/SETTINGS.ARR Normal file
View File

Binary file not shown.

9
dane/game/debug/debug.cnv Normal file
View File

@@ -0,0 +1,9 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=
MOUSE:ONCLICK^LEFT={MOUSE_EVENT_DEBUG^SET([MOUSE_EVENT_DEBUG^GET()+"DEBUG_ONCLICK|"]);}
OBJECT=CLSPOPUPOBJ
CLSPOPUPOBJ:TYPE=CLASS
CLSPOPUPOBJ:DEF=CLSPOPUP.CLASS
CLSPOPUPOBJ:BASE=

30
dane/game/debug/expressiontest/Expression_test.cnv Normal file
View File

@@ -0,0 +1,30 @@
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,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=TEST_VALUE
TEST_VALUE:TYPE=INTEGER
TEST_VALUE:VALUE=1
OBJECT=TEST_EXPRESSION
TEST_EXPRESSION:TYPE=EXPRESSION
TEST_EXPRESSION:OPERAND1=TEST_VALUE
TEST_EXPRESSION:OPERATOR=MUL
TEST_EXPRESSION:OPERAND2=-175
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={__KEYBOARD_AUTOCLICK_DISABLE__^RUN();TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_test_ekspresji|WYNIK_EXPRESSION__"+TEST_EXPRESSION+"|TEST_VALUE__"+TEST_VALUE]);}

77
dane/game/debug/fontexperiment/Font_experiment.cnv Normal file
View File

@@ -0,0 +1,77 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MOUSE_TEST");TXTMSG2^HIDE();TXTMSG3^HIDE();}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("FONT_EXPERIMENT2");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
OBJECT=ARIAL14_NOALPHA
ARIAL14_NOALPHA:TYPE=FONT
ARIAL14_NOALPHA:DEF_ARIAL_STANDARD_14=ARIAL14_NOALPHA.FNT
OBJECT=ARIAL14_FULLALPHA
ARIAL14_FULLALPHA:TYPE=FONT
ARIAL14_FULLALPHA:DEF_ARIAL_STANDARD_14=ARIAL14_FULL_ALPHA.FNT
OBJECT=ARIAL14_TEST
ARIAL14_TEST:TYPE=FONT
ARIAL14_TEST:DEF_ARIAL_STANDARD_14=ARIAL14_TEST.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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14_TEST
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=TRUE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14_FULLALPHA
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,600
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=MOJAARRAJKA
MOJAARRAJKA:TYPE=ARRAY
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_font"]);TXTMSG^SHOW();TXTMSG2^SETTEXT("Test_1234567890a<30>bc<62>de<64>fghijkl<6B>mn<6D>o<EFBFBD>prs<72>tuwxyz<79><7A>A<EFBFBD>BC<42>DE<44>FGHIJKL<4B>MN<4D>O<EFBFBD>PRS<52>TUWXYZ<59><5A>");TXTMSG2^SHOW();TXTMSG3^SETTEXT("Test_1234567890a<30>bc<62>de<64>fghijkl<6B>mn<6D>o<EFBFBD>prs<72>tuwxyz<79><7A>A<EFBFBD>BC<42>DE<44>FGHIJKL<4B>MN<4D>O<EFBFBD>PRS<52>TUWXYZ<59><5A>");TXTMSG3^SHOW();}

69
dane/game/debug/fontexperiment/Font_experiment2.cnv Normal file
View File

@@ -0,0 +1,69 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("FONT_EXPERIMENT");TXTMSG2^HIDE();TXTMSG3^HIDE();}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);TXTMSG2^HIDE();TXTMSG3^HIDE();DEBUG_VALUE^INC();DEBUG^GOTO("STRUCT_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
OBJECT=ARIAL14_ALPHAEXP
ARIAL14_ALPHAEXP:TYPE=FONT
ARIAL14_ALPHAEXP:DEF_ARIAL_STANDARD_14=ARIAL14_ALPHAEXP.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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=TRUE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14_ALPHAEXP
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,600
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=MOJAARRAJKA
MOJAARRAJKA:TYPE=ARRAY
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_font_alpha"]);TXTMSG^SHOW();TXTMSG2^SETTEXT("Test_1234567890a<30>bc<62>de<64>fghijkl<6B>mn<6D>o<EFBFBD>prs<72>tuwxyz<79><7A>A<EFBFBD>BC<42>DE<44>FGHIJKL<4B>MN<4D>O<EFBFBD>PRS<52>TUWXYZ<59><5A>");TXTMSG2^SHOW();TXTMSG3^SETTEXT("Test_1234567890a<30>bc<62>de<64>fghijkl<6B>mn<6D>o<EFBFBD>prs<72>tuwxyz<79><7A>A<EFBFBD>BC<42>DE<44>FGHIJKL<4B>MN<4D>O<EFBFBD>PRS<52>TUWXYZ<59><5A>");TXTMSG3^SHOW();}

BIN
dane/game/debug/fontexperiment/arial14.fnt Normal file
View File

Binary file not shown.

BIN
dane/game/debug/fontexperiment/arial14_alphaexp — kopia.fnt Normal file
View File

Binary file not shown.

BIN
dane/game/debug/fontexperiment/arial14_alphaexp.fnt Normal file
View File

Binary file not shown.

BIN
dane/game/debug/fontexperiment/arial14_full_alpha.fnt Normal file
View File

Binary file not shown.

BIN
dane/game/debug/fontexperiment/arial14_noalpha.fnt Normal file
View File

Binary file not shown.

BIN
dane/game/debug/fontexperiment/arial14_noalpha.fnt.bak Normal file
View File

Binary file not shown.

BIN
dane/game/debug/fontexperiment/arial14_test.fnt Normal file
View File

Binary file not shown.

BIN
dane/game/debug/imagetest/TEST.IMG Normal file
View File

Binary file not shown.

BIN
dane/game/debug/imagetest/TEST.IMG.old Normal file
View File

Binary file not shown.

BIN
dane/game/debug/imagetest/page.img Normal file
View File

Binary file not shown.

22
dane/game/debug/imagetest/screen_test.cnv Normal file
View File

@@ -0,0 +1,22 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^SPACE={CANVASOBSERVER^SAVE("TEST.IMG",1,1);}
OBJECT=TEST_IMAGE
TEST_IMAGE:TYPE=IMAGE
TEST_IMAGE:VISIBLE=TRUE
TEST_IMAGE:FILENAME=PAGE.IMG
TEST_IMAGE:TOCANVAS=TRUE
TEST_IMAGE:PRIORITY=3999
TEST_IMAGE:PRELOAD=TRUE
TEST_IMAGE:RELEASE=TRUE
TEST_IMAGE:MONITORCOLLISION=FALSE
TEST_IMAGE:MONITORCOLLISIONALPHA=FALSE
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);}

47
dane/game/debug/inertiadebug/Inertia_debug.cnv Normal file
View File

@@ -0,0 +1,47 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MOUSE_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("FONT_EXPERIMENT");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
OBJECT=EXTWORLD
EXTWORLD:TYPE=INERTIA
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,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=MOJAARRAJKA
MOJAARRAJKA:TYPE=ARRAY
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={__KEYBOARD_AUTOCLICK_DISABLE__^RUN();TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_inertia"]);TXTMSG^SHOW();}
OBJECT=LOADINERTIA
LOADINERTIA:TYPE=BEHAVIOUR
LOADINERTIA:CODE={EXTWORLD^LOAD("WORLD.INE");}

BIN
dane/game/debug/inertiadebug/world.ine Normal file
View File

Binary file not shown.

103
dane/game/debug/mathtest/Casting_test.cnv Normal file
View File

@@ -0,0 +1,103 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MATH_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^1={CURRENTLYCHANGING^SET("LEFTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^2={CURRENTLYCHANGING^SET("RIGHTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^UP={@IF("*CURRENTLYCHANGING^GET()", ">", "0", "{*CURRENTLYCHANGING^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^DOWN={@IF("*CURRENTLYCHANGING^GET()", "<", "3", "{*CURRENTLYCHANGING^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^Q={@IF("TESTSETNO", ">", "0", "{TESTSETNO^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^E={@IF("TESTSETNO", "<", "1", "{TESTSETNO^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^A={CURRENT_OPERATOR^SET("AND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^D={CURRENT_OPERATOR^SET("OR");UPDATE_TEST_SET_TEXT^RUN();}
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=DANETESTOWE
DANETESTOWE:TYPE=ARRAY
OBJECT=SLOWNIK
SLOWNIK:TYPE=ARRAY
OBJECT=CURRENT_OPERATOR
CURRENT_OPERATOR:TYPE=STRING
CURRENT_OPERATOR:VALUE=AND
OBJECT=TESTSETNO
TESTSETNO:TYPE=INTEGER
TESTSETNO:VALUE=0
OBJECT=LEFTOPERAND
LEFTOPERAND:TYPE=INTEGER
LEFTOPERAND:VALUE=0
OBJECT=RIGHTOPERAND
RIGHTOPERAND:TYPE=INTEGER
RIGHTOPERAND:VALUE=0
OBJECT=LSTRING
LSTRING:TYPE=STRING
LSTRING:VALUE=LEFTOPERAND
OBJECT=RSTRING
RSTRING:TYPE=STRING
RSTRING:VALUE=RIGHTOPERAND
OBJECT=CURRENTLYCHANGING
CURRENTLYCHANGING:TYPE=STRING
CURRENTLYCHANGING:VALUE=LEFTOPERAND
OBJECT=UPDATE_TEST_SET_TEXT
UPDATE_TEST_SET_TEXT:TYPE=BEHAVIOUR
UPDATE_TEST_SET_TEXT:CODE={TXTMSG2^SETTEXT(["Zestaw_testowy__"+[TESTSETNO+1]+"|STRING__"+DANETESTOWE^GET([TESTSETNO*4])+"|INTEGER__"+DANETESTOWE^GET([TESTSETNO*4+3])+"|DOUBLE__"+DANETESTOWE^GET([TESTSETNO*4+2])+"|BOOL__"+DANETESTOWE^GET([TESTSETNO*4+1])+"||"+GENERATE_TEST_TEXT^RUN()]);}
OBJECT=GENERATE_TEST_TEXT
GENERATE_TEST_TEXT:TYPE=BEHAVIOUR
GENERATE_TEST_TEXT:CODE={@STRING("TEST_RESULT","");@IF("CURRENTLYCHANGING", "_", "LSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(LEFTOPERAND));TEST_RESULT^ADD("_____");@IF("CURRENTLYCHANGING", "_", "RSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(RIGHTOPERAND));TEST_RESULT^ADD(["|"+DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])]);@IF("CURRENT_OPERATOR", "_", "OR", "{TEST_RESULT^ADD("_OR_");}", "{TEST_RESULT^ADD("_AND_");}");TEST_RESULT^ADD([DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])]);TEST_RESULT^ADD(["__"+CHECK_VARS^RUN()]);@RETURN(TEST_RESULT);}
OBJECT=CHECK_VARS
CHECK_VARS:TYPE=BEHAVIOUR
CHECK_VARS:CODE={@BOOL("LOGIC_RESULT", FALSE);@IF("LEFTOPERAND>0&&RIGHTOPERAND>0", "{@IF("CURRENT_OPERATOR", "_", "OR", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"||"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"&&"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}");}", "");@RETURN(LOGIC_RESULT);}
CHECK_VARS:DESCRIPTION=SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_LOGICZNYM__NA_TEN_MOMENT_NIE_DZIA<49>A__WYWALA_DO_PULPITU
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");SLOWNIK^LOAD("SLOWNIK.ARR");TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_instrukcji_logicznych"]);TXTMSG^SHOW();TXTMSG2^SHOW();UPDATE_TEST_SET_TEXT^RUN();}

104
dane/game/debug/mathtest/Logic_test.cnv Normal file
View File

@@ -0,0 +1,104 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MATH_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={DEBUG_VALUE^INC();DEBUG^GOTO("ARRAY_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^1={CURRENTLYCHANGING^SET("LEFTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^2={CURRENTLYCHANGING^SET("RIGHTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^UP={@IF("*CURRENTLYCHANGING^GET()", ">", "0", "{*CURRENTLYCHANGING^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^DOWN={@IF("*CURRENTLYCHANGING^GET()", "<", "3", "{*CURRENTLYCHANGING^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^Q={@IF("TESTSETNO", ">", "0", "{TESTSETNO^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^E={@IF("TESTSETNO", "<", "1", "{TESTSETNO^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^A={CURRENT_OPERATOR^SET("AND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^D={CURRENT_OPERATOR^SET("OR");UPDATE_TEST_SET_TEXT^RUN();}
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=DANETESTOWE
DANETESTOWE:TYPE=ARRAY
OBJECT=SLOWNIK
SLOWNIK:TYPE=ARRAY
OBJECT=CURRENT_OPERATOR
CURRENT_OPERATOR:TYPE=STRING
CURRENT_OPERATOR:VALUE=AND
OBJECT=TESTSETNO
TESTSETNO:TYPE=INTEGER
TESTSETNO:VALUE=0
OBJECT=LEFTOPERAND
LEFTOPERAND:TYPE=INTEGER
LEFTOPERAND:VALUE=0
OBJECT=RIGHTOPERAND
RIGHTOPERAND:TYPE=INTEGER
RIGHTOPERAND:VALUE=0
OBJECT=LSTRING
LSTRING:TYPE=STRING
LSTRING:VALUE=LEFTOPERAND
OBJECT=RSTRING
RSTRING:TYPE=STRING
RSTRING:VALUE=RIGHTOPERAND
OBJECT=CURRENTLYCHANGING
CURRENTLYCHANGING:TYPE=STRING
CURRENTLYCHANGING:VALUE=LEFTOPERAND
OBJECT=UPDATE_TEST_SET_TEXT
UPDATE_TEST_SET_TEXT:TYPE=BEHAVIOUR
UPDATE_TEST_SET_TEXT:CODE={TXTMSG2^SETTEXT(["Zestaw_testowy__"+[TESTSETNO+1]+"|STRING__"+DANETESTOWE^GET([TESTSETNO*4])+"|INTEGER__"+DANETESTOWE^GET([TESTSETNO*4+3])+"|DOUBLE__"+DANETESTOWE^GET([TESTSETNO*4+2])+"|BOOL__"+DANETESTOWE^GET([TESTSETNO*4+1])+"||"+GENERATE_TEST_TEXT^RUN()]);}
OBJECT=GENERATE_TEST_TEXT
GENERATE_TEST_TEXT:TYPE=BEHAVIOUR
GENERATE_TEST_TEXT:CODE={@STRING("TEST_RESULT","");@IF("CURRENTLYCHANGING", "_", "LSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(LEFTOPERAND));TEST_RESULT^ADD("_____");@IF("CURRENTLYCHANGING", "_", "RSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(RIGHTOPERAND));TEST_RESULT^ADD(["|"+DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])]);@IF("CURRENT_OPERATOR", "_", "OR", "{TEST_RESULT^ADD("_OR_");}", "{TEST_RESULT^ADD("_AND_");}");TEST_RESULT^ADD([DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])]);TEST_RESULT^ADD(["__"+CHECK_VARS^RUN()]);@RETURN(TEST_RESULT);}
OBJECT=CHECK_VARS
CHECK_VARS:TYPE=BEHAVIOUR
CHECK_VARS:CODE={@BOOL("LOGIC_RESULT", FALSE);@IF("LEFTOPERAND>0&&RIGHTOPERAND>0", "{@IF("CURRENT_OPERATOR", "_", "OR", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"||"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"&&"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}");}", "");@RETURN(LOGIC_RESULT);}
CHECK_VARS:DESCRIPTION=SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_LOGICZNYM__NA_TEN_MOMENT_NIE_DZIA<49>A__WYWALA_DO_PULPITU
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");SLOWNIK^LOAD("SLOWNIK.ARR");TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_instrukcji_logicznych"]);TXTMSG^SHOW();TXTMSG2^SHOW();UPDATE_TEST_SET_TEXT^RUN();}

220
dane/game/debug/mathtest/Math_test.cnv Normal file
View File

@@ -0,0 +1,220 @@
OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
OBJECT=BEHNO
BEHNO:TYPE=INTEGER
BEHNO:VALUE=1
OBJECT=TEST_SET
TEST_SET:TYPE=INTEGER
TEST_SET:VALUE=1
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("STRUCT_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={DEBUG_VALUE^INC();DEBUG^GOTO("LOGIC_TEST");}
KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","12","{BEHNO^INC();}","");@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
KEYBOARD:ONKEYDOWN^1={TEST_SET^SET(1);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
KEYBOARD:ONKEYDOWN^2={TEST_SET^SET(2);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
KEYBOARD:ONKEYDOWN^3={TEST_SET^SET(3);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
KEYBOARD:ONKEYDOWN^4={TEST_SET^SET(4);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
OBJECT=TEST
TEST:TYPE=STRING
TEST:VALUE=Test
OBJECT=TEST2
TEST2:TYPE=BOOL
TEST2:VALUE=TRUE
OBJECT=TEST3
TEST3:TYPE=DOUBLE
TEST3:VALUE=1.5
OBJECT=TEST4
TEST4:TYPE=INTEGER
TEST4:VALUE=1
OBJECT=TEST_COMPARE
TEST_COMPARE:TYPE=STRING
TEST_COMPARE:VALUE=Test
OBJECT=TEST2_COMPARE
TEST2_COMPARE:TYPE=BOOL
TEST2_COMPARE:VALUE=TRUE
OBJECT=TEST3_COMPARE
TEST3_COMPARE:TYPE=DOUBLE
TEST3_COMPARE:VALUE=1.5
OBJECT=TEST4_COMPARE
TEST4_COMPARE:TYPE=INTEGER
TEST4_COMPARE:VALUE=1
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=FALSE
TXTMSG:VJUSTIFY=TOP
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=LEFT
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=TRUE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,0,800,250
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=RIGHT
TXTMSG3:VJUSTIFY=BOTTOM
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=TEMP_BOOL
TEMP_BOOL:TYPE=BOOL
TEMP_BOOL:VALUE=FALSE
OBJECT=DEBUG_TXT
DEBUG_TXT:TYPE=STRING
DEBUG_TXT:VALUE=""
OBJECT=DEBUG_TXT2
DEBUG_TXT2:TYPE=STRING
OBJECT=BEH_APPEND_TEXT
BEH_APPEND_TEXT:TYPE=BEHAVIOUR
BEH_APPEND_TEXT:CODE={$1^SET([$1^GET(0, $1^LENGTH())+"|"+$2]);}
OBJECT=BEH_SET_TRUE
BEH_SET_TRUE:TYPE=BEHAVIOUR
BEH_SET_TRUE:CODE={TEMP_BOOL^SET(TRUE);}
OBJECT=BEH_SET_FALSE
BEH_SET_FALSE:TYPE=BEHAVIOUR
BEH_SET_FALSE:CODE={TEMP_BOOL^SET(FALSE);}
OBJECT=BEH_SWITCH_TEST_SETS
BEH_SWITCH_TEST_SETS:TYPE=BEHAVIOUR
BEH_SWITCH_TEST_SETS:CODE={@IF("TEST_SET", "_", "1", {TEST_COMPARE^SET("Test");TEST2_COMPARE^SET(TRUE);TEST3_COMPARE^SET(1.5);TEST4_COMPARE^SET(1);}, {@IF("TEST_SET", "_", "2", {TEST_COMPARE^SET("Test2");TEST2_COMPARE^SET(FALSE);TEST3_COMPARE^SET(2.5);TEST4_COMPARE^SET(3);}, {@IF("TEST_SET", "_", "3", {TEST_COMPARE^SET("3");TEST2_COMPARE^SET(2);TEST3_COMPARE^SET(-2.5);TEST4_COMPARE^SET(-3);}, {TEST_COMPARE^SET("TEST3");TEST2_COMPARE^SET(0);TEST3_COMPARE^SET(1.00001);TEST4_COMPARE^SET(-5);});});});}
OBJECT=BEH_SWITCH_TEST_SETS2
BEH_SWITCH_TEST_SETS2:TYPE=BEHAVIOUR
BEH_SWITCH_TEST_SETS2:CODE={@IF("TEST_SET", "_", "4", {TEST^SET("Zzz");TEST2^SET(FALSE);TEST3^SET(6.5);TEST4^SET(1);}, {TEST^SET("Test");TEST2^SET(TRUE);TEST3^SET(1.5);TEST4^SET(1);});}
OBJECT=MATHTEST1
MATHTEST1:TYPE=BEHAVIOUR
MATHTEST1:CODE={TXTMSG2^SETTEXT([TEST_DODAWANIA+"|"+BOOL_Z_BOOLEM__+[TEST2+TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2+TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2+TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2+TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST+TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST+TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST+TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST+TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4+TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4+TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4+TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4+TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3+TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3+TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3+TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3+TEST2_COMPARE]]);}
MATHTEST1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DODAWANIU
OBJECT=MATHTEST2
MATHTEST2:TYPE=BEHAVIOUR
MATHTEST2:CODE={TXTMSG2^SETTEXT([TEST_ODEJMOWANIA+"|"+BOOL_Z_BOOLEM__+[TEST2-TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2-TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2-TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2-TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST-TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST-TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST-TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST-TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4-TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4-TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4-TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4-TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3-TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3-TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3-TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3-TEST2_COMPARE]]);}
MATHTEST2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_ODEJMOWANIU
OBJECT=MATHTEST3
MATHTEST3:TYPE=BEHAVIOUR
MATHTEST3:CODE={TXTMSG2^SETTEXT([TEST_MNOZENIA+"|"+BOOL_Z_BOOLEM__+[TEST2*TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2*TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2*TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2*TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST*TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST*TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST*TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST*TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4*TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4*TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4*TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4*TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3*TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3*TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3*TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3*TEST2_COMPARE]]);}
MATHTEST3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MNOZENIU
OBJECT=MATHTEST4_1
MATHTEST4_1:TYPE=BEHAVIOUR
MATHTEST4_1:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[TEST2@TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST@TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4@TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3@TEST2_COMPARE]]);}
MATHTEST4_1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST4_2
MATHTEST4_2:TYPE=BEHAVIOUR
MATHTEST4_2:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
MATHTEST4_2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST4_3
MATHTEST4_3:TYPE=BEHAVIOUR
MATHTEST4_3:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[TEST2@TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2@TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST@TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST@TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4@TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4@TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3@TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3@TEST2_COMPARE]]);}
MATHTEST4_3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST4_4
MATHTEST4_4:TYPE=BEHAVIOUR
MATHTEST4_4:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
MATHTEST4_4:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST5_1
MATHTEST5_1:TYPE=BEHAVIOUR
MATHTEST5_1:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[TEST2%TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST%TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4%TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3%TEST2_COMPARE]]);}
MATHTEST5_1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST5_2
MATHTEST5_2:TYPE=BEHAVIOUR
MATHTEST5_2:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
MATHTEST5_2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST5_3
MATHTEST5_3:TYPE=BEHAVIOUR
MATHTEST5_3:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[TEST2%TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2%TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST%TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST%TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4%TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4%TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3%TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3%TEST2_COMPARE]]);}
MATHTEST5_3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST5_4
MATHTEST5_4:TYPE=BEHAVIOUR
MATHTEST5_4:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
MATHTEST5_4:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
OBJECT=MATHTEST6
MATHTEST6:TYPE=BEHAVIOUR
MATHTEST6:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_JEST_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST6:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_JEST_ROWNE
OBJECT=MATHTEST7
MATHTEST7:TYPE=BEHAVIOUR
MATHTEST7:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_NIE_JEST_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST7:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_NIE_JEST_ROWNE
OBJECT=MATHTEST8
MATHTEST8:TYPE=BEHAVIOUR
MATHTEST8:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_MNIEJSZE_LUB_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST8:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_MNIEJSZE_LUB_ROWNE
OBJECT=MATHTEST9
MATHTEST9:TYPE=BEHAVIOUR
MATHTEST9:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_MNIEJSZE_NIZ]);DEBUG_TXT2^SET("");@IF("TEST2", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST9:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_MNIEJSZE_NIZ
OBJECT=MATHTEST10
MATHTEST10:TYPE=BEHAVIOUR
MATHTEST10:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_WIEKSZE_LUB_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST10:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_LUB_ROWNE
OBJECT=MATHTEST11
MATHTEST11:TYPE=BEHAVIOUR
MATHTEST11:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_WIEKSZE_NIZ]);DEBUG_TXT2^SET("");@IF("TEST2", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST11:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_NIZ
OBJECT=MATHTEST12
MATHTEST12:TYPE=BEHAVIOUR
MATHTEST12:CODE={DEBUG_TXT^SET([TEST_WYSWIETLANIA_WARTOSCI]);DEBUG_TXT2^SET("");@DOUBLE("VALUE1", 0.25252525);@DOUBLE("VALUE2", 0.52525252);DEBUG_TXT2^ADD(VALUE1);DEBUG_TXT2^ADD(["|"+VALUE2]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
MATHTEST12:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_NIZ
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_obliczen"]);TXTMSG^SHOW();TXTMSG2^SHOW();TXTMSG3^SHOW();MATHTEST1^RUN();}

BIN
dane/game/debug/mathtest/slownik.arr Normal file
View File

Binary file not shown.

BIN
dane/game/debug/mathtest/testowe_dane.arr Normal file
View File

Binary file not shown.

40
dane/game/debug/mousetest/Mouse_test.cnv Normal file
View File

@@ -0,0 +1,40 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0
MOUSE:ONMOVE={TXTMSG^SETTEXT(["Test2_test_gryzonia_("+MOUSE^GETPOSX()+","+MOUSE^GETPOSY()+")"]);}
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("ARRAJKI");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);DEBUG_VALUE^INC();DEBUG^GOTO("FONT_EXPERIMENT");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
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,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=MOJAARRAJKA
MOJAARRAJKA:TYPE=ARRAY
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={__KEYBOARD_AUTOCLICK_DISABLE__^RUN();TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_test_gryzonia"]);@MSGBOX("MASLO");}

126
dane/game/debug/scripttest/Script_test.cnv Normal file
View File

@@ -0,0 +1,126 @@
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,600
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=CENTER
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=TEST_BEH
TEST_BEH:TYPE=BEHAVIOUR
TEST_BEH:CODE={@RETURN(2);}
OBJECT=TEST_STRUCT
TEST_STRUCT:TYPE=STRUCT
TEST_STRUCT:FIELDS=NAME<STRING>,VAL<INTEGER>
OBJECT=TEST_DB
TEST_DB:TYPE=DATABASE
TEST_DB:MODEL=TEST_STRUCT
OBJECT=TEST1
TEST1:TYPE=BEHAVIOUR
TEST1:CODE={@RETURN([1+2*3]);}
OBJECT=TEST2
TEST2:TYPE=BEHAVIOUR
TEST2:CODE={@RETURN([[10-3]*[2+1]]);}
OBJECT=TEST3
TEST3:TYPE=BEHAVIOUR
TEST3:CODE={@RETURN([10%3]);}
OBJECT=TEST4
TEST4:TYPE=BEHAVIOUR
TEST4:CODE={@RETURN([2+2*2]);}
OBJECT=TEST5
TEST5:TYPE=BEHAVIOUR
TEST5:CODE={@RETURN([1.2+2.3]);}
OBJECT=TEST6
TEST6:TYPE=BEHAVIOUR
TEST6:CODE={@INT("A", 5); @RETURN([A + 2]);}
OBJECT=TEST7
TEST7:TYPE=BEHAVIOUR
TEST7:CODE={@STRING("TEST", "");@IF("1'1","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST8
TEST8:TYPE=BEHAVIOUR
TEST8:CODE={@STRING("TEST", "");@IF("TEST_BEH^RUN()'2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST9
TEST9:TYPE=BEHAVIOUR
TEST9:CODE={@STRING("TEST", "");@IF("TEST_BEH'2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST10
TEST10:TYPE=BEHAVIOUR
TEST10:CODE={@STRING("TEST", "");@IF("TEST_STRUCT|VAL'5","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST11
TEST11:TYPE=BEHAVIOUR
TEST11:CODE={@STRING("TEST", "");@IF("1","_","1","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST12
TEST12:TYPE=BEHAVIOUR
TEST12:CODE={@STRING("TEST", "");@IF("TEST_BEH^RUN()","_","2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST13
TEST13:TYPE=BEHAVIOUR
TEST13:CODE={@STRING("TEST", "");@IF("TEST_BEH","_","2","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST14
TEST14:TYPE=BEHAVIOUR
TEST14:CODE={@STRING("TEST", "");@IF("TEST_STRUCT|VAL","_","5","{TEST^SET("OK");}","{TEST^SET("BAD");}");@RETURN(TEST);}
OBJECT=TEST15
TEST15:TYPE=BEHAVIOUR
TEST15:CODE={@INT("A",1);@INT("A",[A+1]);@RETURN(A);}
OBJECT=TEST16
TEST16:TYPE=BEHAVIOUR
TEST16:CODE={@INT("A",1);@INT("A",2);@RETURN(A);}
OBJECT=TEST17
TEST17:TYPE=BEHAVIOUR
TEST17:CODE={@INT("A",1);@INT("B",[A+1]);@RETURN(B);}
OBJECT=TEST18
TEST18:TYPE=BEHAVIOUR
TEST18:CODE={@INT("A",0);@INT("B",1);@INT("I",2);@INT("N",10);@INT("TMP",0);@LOOP("{TMP^SET(B);B^SET([A+B]);A^SET(TMP);}",I,[N-I+1],1);@RETURN(B);}
OBJECT=TEST19
TEST19:TYPE=BEHAVIOUR
TEST19:CODE={@INT("A",0);@INT("B",1);@INT("TMP",0);@LOOP("{TMP^SET(B);B^SET([A+B]);A^SET(TMP);}",2,9,1);@RETURN(B);}
OBJECT=TEST20
TEST20:TYPE=BEHAVIOUR
TEST20:CODE={@INT("B",0);@RETURN(B);B^SET(1);}
OBJECT=TEST21
TEST21:TYPE=BEHAVIOUR
TEST21:CODE={@INT("B",0);@RETURN(B);B^SET(1);@RETURN(B);B^SET(2);}
OBJECT=TEST22
TEST22:TYPE=BEHAVIOUR
TEST22:CODE={@INT("B",-420);B^ABS(-420);@RETURN(B);}
OBJECT=TEST_RESULTS
TEST_RESULTS:TYPE=STRING
TEST_RESULTS:VALUE=
TEST_RESULTS:ONBRUTALCHANGED={TXTMSG^SETTEXT(TEST_RESULTS^GET());}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TEST_DB^LOAD("TEST_DB.DTA");TEST_STRUCT^SET("TEST_DB_CURSOR");@LOOP("{@STRING("TEST_NAME", ["TEST"+_I_]);@STRING("RESULT", *TEST_NAME^RUN());TEST_RESULTS^ADD([TEST_NAME+"_"]);TEST_RESULTS^ADD([RESULT+"|"]);}",1,22,1);}

1
dane/game/debug/scripttest/test_db.dta Normal file
View File

@@ -0,0 +1 @@
PIERWSZA|5

152
dane/game/debug/sequencetest/Sequence_test.cnv Normal file
View File

@@ -0,0 +1,152 @@
OBJECT=MUSIC
MUSIC:TYPE=MUSIC
MUSIC:FILENAME=INTRO.WAV
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=DYM_Z_RURY
DYM_Z_RURY:TYPE=ANIMO
DYM_Z_RURY:VISIBLE=TRUE
DYM_Z_RURY:FILENAME=DYM_Z_RURY.ANN
DYM_Z_RURY:TOCANVAS=TRUE
DYM_Z_RURY:PRIORITY=0
DYM_Z_RURY:FPS=16
DYM_Z_RURY:PRELOAD=TRUE
DYM_Z_RURY:RELEASE=TRUE
DYM_Z_RURY:MONITORCOLLISION=FALSE
DYM_Z_RURY:MONITORCOLLISIONALPHA=FALSE
OBJECT=KOGUT
KOGUT:TYPE=ANIMO
KOGUT:VISIBLE=TRUE
KOGUT:FILENAME=KOGUT.ANN
KOGUT:TOCANVAS=TRUE
KOGUT:PRIORITY=0
KOGUT:FPS=16
KOGUT:PRELOAD=TRUE
KOGUT:RELEASE=TRUE
KOGUT:MONITORCOLLISION=FALSE
KOGUT:MONITORCOLLISIONALPHA=FALSE
KOGUT:ONFINISHED^PRZEWRACA={GADAJA^PLAY("FINALKOG");}
KOGUT:ONFRAMECHANGED={TXTMSG^SETTEXT(["TEST_SEKWENCJI__"+GADAJA^GETEVENTNAME()]);}
OBJECT=KURATOR
KURATOR:TYPE=ANIMO
KURATOR:VISIBLE=TRUE
KURATOR:FILENAME=KURATOR.ANN
KURATOR:TOCANVAS=TRUE
KURATOR:PRIORITY=0
KURATOR:FPS=16
KURATOR:PRELOAD=TRUE
KURATOR:RELEASE=TRUE
KURATOR:MONITORCOLLISION=FALSE
KURATOR:MONITORCOLLISIONALPHA=FALSE
KURATOR:ONFRAMECHANGED={TXTMSG^SETTEXT(["TEST_SEKWENCJI__"+GADAJA^GETEVENTNAME()]);}
OBJECT=RAKIETA
RAKIETA:TYPE=ANIMO
RAKIETA:VISIBLE=TRUE
RAKIETA:FILENAME=RAKIETA.ANN
RAKIETA:TOCANVAS=TRUE
RAKIETA:PRIORITY=0
RAKIETA:FPS=16
RAKIETA:PRELOAD=TRUE
RAKIETA:RELEASE=TRUE
RAKIETA:MONITORCOLLISION=FALSE
RAKIETA:MONITORCOLLISIONALPHA=FALSE
OBJECT=GADAJA
GADAJA:TYPE=SEQUENCE
GADAJA:FILENAME=GADAJA.SEQ
GADAJA:ONFINISHED^SEKWEN={KOGUT^PLAY("PRZEWRACA");}
GADAJA:ONFINISHED^KOGUTY1={E_KOJAK^PLAY();}
OBJECT=E_KOJAK
E_KOJAK:TYPE=SOUND
E_KOJAK:FILENAME=E_KOJAK.WAV
E_KOJAK:PRELOAD=FALSE
E_KOJAK:FLUSHAFTERPLAYED=FALSE
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:ONCLICK={@IF("S_BFIRSTINTRO","_","FALSE","BFITMP0","");}
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={G_CURSOR^SETSCENE("INTRO_2");G_MENU^SHOW(FALSE);G_AMBIENT^SETAMBIENT("INTRO_2");__FLIP__^RUN();G_ANNPAGE^PLAY("PLAY");DYM_Z_RURY^HIDE();GADAJA^PLAY("SEKWEN");INTRO_2^SETMUSICVOLUME(400);TXTMSG^SETTEXT("TEST_SEKWENCJI");TXTMSG^SHOW();}
OBJECT=_CURSORMOVE_
_CURSORMOVE_:TYPE=BEHAVIOUR
_CURSORMOVE_:CODE={G_CURSOR^SETOBJECT(CANVASOBSERVER^GETGRAPHICSAT(MOUSE^GETPOSX(),MOUSE^GETPOSY(),TRUE,0,5000,TRUE));}
OBJECT=__PAUSESTART__
__PAUSESTART__:TYPE=BEHAVIOUR
__PAUSESTART__:CODE={SCENENAME^SET(PRZYGODA^GETCURRENTSCENE());MOUSE^DISABLESIGNAL();__KEYB__^SET(KEYBOARD^ISENABLED());KEYBOARD^DISABLE();__HSPOTMAX__^SET(*SCENENAME^GETMAXHSPRIORITY());__HSPOTMIN__^SET(*SCENENAME^GETMINHSPRIORITY());*SCENENAME^GETPLAYINGANIMO("__GRHELP__");}
OBJECT=__PAUSEEND__
__PAUSEEND__:TYPE=BEHAVIOUR
__PAUSEEND__:CODE={MOUSE^ENABLESIGNAL();@IF("__KEYB__","_","TRUE","BFITMP1","BFITMP2");__GRHELP__^REMOVEALL();}
OBJECT=__HELPSTART__
__HELPSTART__:TYPE=BEHAVIOUR
__HELPSTART__:CODE={SCENENAME^SET(PRZYGODA^GETCURRENTSCENE());MOUSE^DISABLESIGNAL();__KEYB__^SET(KEYBOARD^ISENABLED());KEYBOARD^DISABLE();__HSPOTMAX__^SET(*SCENENAME^GETMAXHSPRIORITY());__HSPOTMIN__^SET(*SCENENAME^GETMINHSPRIORITY());*SCENENAME^GETPLAYINGANIMO("__GRHELP__");CNVLOADER^LOAD([G_SCUTSCENE+".CNV"]);G_MENU^SHOW(FALSE);}
OBJECT=__HELPEND__
__HELPEND__:TYPE=BEHAVIOUR
__HELPEND__:CODE={MOUSE^ENABLESIGNAL();@IF("__KEYB__","_","TRUE","BFITMP3","BFITMP4");CNVLOADER^RELEASE([G_SCUTSCENE+".CNV"]);__GRHELP__^REMOVEALL();}
OBJECT=BFITMP0
BFITMP0:TYPE=BEHAVIOUR
BFITMP0:CODE={PRZYGODA^GOTO("HILLS");@BREAK();}
OBJECT=BFITMP1
BFITMP1:TYPE=BEHAVIOUR
BFITMP1:CODE={KEYBOARD^ENABLE();}
OBJECT=BFITMP2
BFITMP2:TYPE=BEHAVIOUR
BFITMP2:CODE={KEYBOARD^DISABLE();}
OBJECT=BFITMP3
BFITMP3:TYPE=BEHAVIOUR
BFITMP3:CODE={KEYBOARD^ENABLE();}
OBJECT=BFITMP4
BFITMP4:TYPE=BEHAVIOUR
BFITMP4:CODE={KEYBOARD^DISABLE();}

BIN
dane/game/debug/sequencetest/bkg.img Normal file
View File

Binary file not shown.

BIN
dane/game/debug/sequencetest/dym_z_rury.ann Normal file
View File

Binary file not shown.

82
dane/game/debug/sequencetest/gadaja.seq Normal file
View File

@@ -0,0 +1,82 @@
NAME = GADAJA
GADAJA:TYPE = SEQUENCE
GADAJA:MODE = PARAMETER
GADAJA:SEQEVENT:SEKWEN = 1
GADAJA:SEQEVENT:FINALKOG = 2
NAME = SEKWEN
SEKWEN:TYPE = SEQUENCE
SEKWEN:MODE = SEQUENCE
SEKWEN:ADD GADAJA
NAME = KOGUTY1
KOGUTY1:TYPE = SPEAKING
KOGUTY1:ANIMOFN = KOGUT.ANN
KOGUTY1:PREFIX = GADA
KOGUTY1:WAVFN = KOGUT_I019.WAV
KOGUTY1:STARTING = TRUE
KOGUTY1:ENDING = TRUE
KOGUTY1:ADD SEKWEN
NAME = KOGUTY2
KOGUTY2:TYPE = SPEAKING
KOGUTY2:ANIMOFN = KURATOR.ANN
KOGUTY2:PREFIX = GADA
KOGUTY2:WAVFN = KURATOR_I020.WAV
KOGUTY2:STARTING = TRUE
KOGUTY2:ENDING = TRUE
KOGUTY2:ADD SEKWEN
NAME = KOGUTY3
KOGUTY3:TYPE = SPEAKING
KOGUTY3:ANIMOFN = KOGUT.ANN
KOGUTY3:PREFIX = GADA
KOGUTY3:WAVFN = KOGUT_I021.WAV
KOGUTY3:STARTING = TRUE
KOGUTY3:ENDING = TRUE
KOGUTY3:ADD SEKWEN
NAME = KOGUTY4
KOGUTY4:TYPE = SPEAKING
KOGUTY4:ANIMOFN = KURATOR.ANN
KOGUTY4:PREFIX = GADA
KOGUTY4:WAVFN = KURATOR_I022.WAV
KOGUTY4:STARTING = TRUE
KOGUTY4:ENDING = TRUE
KOGUTY4:ADD SEKWEN
NAME = KOGUTY5
KOGUTY5:TYPE = SPEAKING
KOGUTY5:ANIMOFN = KOGUT.ANN
KOGUTY5:PREFIX = GADA
KOGUTY5:WAVFN = KOGUT_I023.WAV
KOGUTY5:STARTING = TRUE
KOGUTY5:ENDING = TRUE
KOGUTY5:ADD SEKWEN
NAME = KOGUTY6
KOGUTY6:TYPE = SPEAKING
KOGUTY6:ANIMOFN = KURATOR.ANN
KOGUTY6:PREFIX = GADA
KOGUTY6:WAVFN = KURATOR_I024.WAV
KOGUTY6:STARTING = TRUE
KOGUTY6:ENDING = TRUE
KOGUTY6:ADD SEKWEN
NAME = FINALKOG
FINALKOG:TYPE = SPEAKING
FINALKOG:ANIMOFN = KOGUT.ANN
FINALKOG:PREFIX = GADA
FINALKOG:WAVFN = KOGUT_I025.WAV
FINALKOG:STARTING = TRUE
FINALKOG:ENDING = TRUE
FINALKOG:ADD GADAJA

53
dane/game/debug/sequencetest/gadaja2.seq Normal file
View File

@@ -0,0 +1,53 @@
NAME = GADAJA2
GADAJA2:TYPE = SEQUENCE
GADAJA2:MODE = PARAMETER
GADAJA2:SEQEVENT:SEKWEN = 1
GADAJA2:SEQEVENT:KOGF1 = 2
GADAJA2:SEQEVENT:KOGF2 = 3
NAME = SEKWEN
SEKWEN:TYPE = SEQUENCE
SEKWEN:MODE = SEQUENCE
SEKWEN:ADD GADAJA2
NAME = KOGUTY1
KOGUTY1:TYPE = SPEAKING
KOGUTY1:ANIMOFN = KOGUT.ANN
KOGUTY1:PREFIX = GADA
KOGUTY1:WAVFN = KOGUT_I041.WAV
KOGUTY1:STARTING = TRUE
KOGUTY1:ENDING = TRUE
KOGUTY1:ADD SEKWEN
NAME = KOGUTY2
KOGUTY2:TYPE = SPEAKING
KOGUTY2:ANIMOFN = KURATOR.ANN
KOGUTY2:PREFIX = GADA
KOGUTY2:WAVFN = KURATOR_I042.WAV
KOGUTY2:STARTING = TRUE
KOGUTY2:ENDING = TRUE
KOGUTY2:ADD SEKWEN
NAME = KOGF1
KOGF1:TYPE = SPEAKING
KOGF1:ANIMOFN = KOGUT.ANN
KOGF1:PREFIX = GADA
KOGF1:WAVFN = KOGUT_I043.WAV
KOGF1:STARTING = TRUE
KOGF1:ENDING = TRUE
KOGF1:ADD GADAJA2
NAME = KOGF2
KOGF2:TYPE = SPEAKING
KOGF2:ANIMOFN = KOGUT.ANN
KOGF2:PREFIX = GADA
KOGF2:WAVFN = KOGUT_I044.WAV
KOGF2:STARTING = TRUE
KOGF2:ENDING = TRUE
KOGF2:ADD GADAJA2

24
dane/game/debug/sequencetest/intro_2.cnv Normal file
View File

@@ -0,0 +1,24 @@
{<C:6>}
PALCFQ>LWQL@<E>NTUGF7UXRC@JVRKA<E>PRTHE8IFMDP?PB>HPRUL/VCT<E><E>R?KDER@AZLaXbOVQ[<E>B\J`YaPXOZ9VWSB>@PGPL<E>
EXO]]\STTW=SJRK@OB>STSH<E>AZLaXbOVQ[8IFMDP?PB>C[KbW`QWP\+BMP<E>B\J`YaPXOZ9VMF>OUCQ@QSTG<E>B\J`YaPXOZ9RPLLSHVW@-<E>EXO]]\STTW=CQR?/9<E>AZLaXbOVQ[8SOFKQ?G:UQWC<E>
GVN^\]URSX<PHIF@UC@QSTG<E>B\J`YaPXOZ9OMQFUNTARIMHUGRK>ECJVB<E>EXO]]\STTW=JPMKRRODNNJLPJNP?OMI@?DDITD<E><E>Q@MBDS?IRDVS<E>MMJRU9VWSB>@PGPL<E>
LNISW7WHUGEIF<VPXB<E>LNISW7GHNCQ>ND?IRDVS0?QK<E>LNISW7UNE?QSBR?RURF<E>JQEXQ;OTGROJS[;3<E>HPFWR=CQR?/9<E>HPFWR=MSDNMDA>STSH<E>
HPFWR=OFKG?VB>STSH<E>HPFWR=JPMKRRODNNJLPJNP;I>MRG<E>IRDVS<KRKJSQPFLMKKQLLO@NNK>>ECJVB<E>LNISW7PMHGQFTGGBaMSYGUU>D@?yJ>E@L?aMM@[&%CJMCJNLH!+9<><E><E>LCIGAW:LTT?WLS<E>
JWPDQPQ<R\MF<CLLJP<E>JWPDQPQ<TLPJANC@QSTG<E>IXOBSQP=CJKGLDJF<MSU>UNT,DKO<E>JWPDQPQ<RR@BMX?V:UQWC<E>NRS@VMU7QQKMUFUX?.<E>NRS@VMU7GOU;43<E>
LTT?WLS9RPHIP@F;WOVD<E>MSU>UNT8UBMDCQH:UQWC<E>NRS@VMU7NNPGWLSBQJOFTHQL@CBKUC<E>NRS@VMU7NNPGWLSBQJOFTHQLDIQGC;I>MRG<E><E>MEGFBV;U>LHGRD<E>
OBJKCW>;S[NH:BMKKR<E>OBJKCW>;UKQL?MD?RURF<E>QCILBU@<DLIFMCKH:S@MGHQB-CLQ<E>OBJKCW>;SQADKW@U;WOVD<E>T?NFFSC8SOJNTGWV>/<E>T?NFFSC8IMT<34<E>
U>LHGRD7QQGJR>E<VPXB<E>S@MGHQB9TCOBBRG;WOVD<E>T?NFFSC8PLOHVMU@PKNGVFPM?DDITD<E>T?NFFSC8PLOHVMU@PKNGVFPMCJSEB<H?OPF<E><E>NDHH@U<I?G>K@<E>
I?G>K@<R\MF<UCTRFMEC<E>J>E@L?=CJKGLDJF<I?G>K@0QHN<E>H@F?M>;NPDLKJRJCG[TDMUHK>zMMJRU]RJDV)!RP]BXQCAD*:<E>EDABIC8RKGHPGVEFC`DLKBKMMJ:|^aQFOFDPQKLU^a\URO'+9SO[XIMG>_FQRR%#HPRUL`2$'>z<E>H@F?M>;NPDLKJRJCG[LNISWV2<}CbHPICIaMM@[&,8~<E><E>
NDHH@U<G]NLK@M<E>CbHPICI=QZOG;VLVMF<E>CbHPICI=CJKGLDJF<G]NLK@M,Z>W<E>DaIRGBJ<NUBMNCB@CBKUC<E>H\LNL?N7GKWQK>GSGPSIBXGB@CBKUC<E><E>
R?KDER@JPTUC<E>PLVRG8WVQD?KRRTD<E>OMXPF9QLFIJBM;~=JE* V\CEKPVQJMVPR-!a /G@NQH-!DDLQNO2 /#(={<E><E>R?KDER@@OUNMDAFQ<E>ELYIP@FCU7UXRC@@OUNMDAFQ<E>
<E>Q@MBDS?ADKW@UMEPFQXCU<E>@BMX?VLCRGPYBS9VWSB>BCLY>T^Q@VBSUGP<E><E>R?KDER@HFXDMDOE<E>JGWELBQF8WVQD?IHVCNCPG<E>
<E>LCIGAW:`^KLLQ`^<E>a]LKJSa]=QZOG;EBI@XGRRS<E>^aGQFU^a8FLED?yJ\DTTQRO_RGRV@FMG&%FOSTMb/#(=EbJFMW\VEPV*DDITD+9J\BLDGHKU]UCW>NAKCQQ)!KLWOP^4 ,8`^HJLM`^`PXK)(=Eb>OMR?JB_ON?\%#ON?\*:FWP\[^TSUV_GKBH%*:I?G>K@`NO>Z'$QHHXDP ,8JMVPR\3]UCWJVRKAYLMTOC+11/+9<><E><E><E>
LCIGAW:`BWPVLSLQTH\<E>`BWPVLSLQTH\;S[NH:CDJ?YFPTT<E>]FRSRQPPLWDa8FLED?yJ\DTTQRO_RGRR?KDER+@BMX?VLCRGPYBS]ICWDS@RFL@T@V&PLVRG\JBUOQQ[%*+OMXPF]ICWMPR[&,)UQWC/--42.3)UQWC,&<|<E><E><E>Q@MBDS?]bMBTUCVQBQV]b<E>
\`OCSVBTSCPW\`9VWSB>AGFDSJNWP<E>b\Q@WQHPU@TRb\;BQBH:|RECQBO@OCaPFS*NUWZFQBD[HDVAXOSDPRV@FMG&,&<LQSVB_CKQD?MDUGJKBK*'>\`JGWE\`]UCW%LD[@R>SC`GVBO@DJHA)(+9NBZAQ?UA_CKQD?MD*'>\`GUNRQN@Z]b[TDV&-PDDPCQ>ND`EHQN@ZFVMSHQPLQZ'+'>\`GUNRQNHP]b[TDV&-PDDPCQ>ND`EHQNHPFVMSHQPLQZ'+'>'TBGLHKBLG\JBUON?\FOFCLLJP'$]bDSGGJS\`!+9<><E><E><E>LCIGAW:`^R?XPFDPBb\<E>`^R?XPFDPBb\;S[NH:CDJ?YFPTT<E>
]bMBTUCHKE^a8FLED?yPLVRG\HKBANCVFHMCJ+&<?KD+`^MC\?`^$*%\#+$RURF!. ECJSON4-!DDLQNO4 ,8`^IPKBMOa]aOFLQTH>MK*'>z<E><E><E>PALCFQ>^aFHIQRV?UQ`^<E>a]KBMOURDOU^a8WVQD?@HEBUKMXO<E>`^JCOMTSCPW\`9EMGB>zUAHKFMCKH[TDV&SO[XIMG>_FGRFRSQGLWPDDPC+&*:OMXPF]FGV>CKGQLDO@N&,8`^MC\?`^`QHQ)JGWELBQF\LPFMC@OBE'+'>HFXDMDOE]FGV>CKG&,8`^JQSLULCVb\_RGR+'TBGLHKBLG\JBULCVKPQQKMUFUX*',8`^JQSLULKLb\_RGR+'TBGLHKBLG\JBULKLKPQQKMUFUX*',8+RECQBO@OCaDFSRJDVJMI?QFNN* b\HQJCOM`^$'>@OUNMDAFQ`JR>E']EbPDTVQFBOD- 1@OU$[,8H^OCQR_RJMZ%G@NQH&<|<E>
<E><E>Q@MBDS?]bEFKRCQA`^<E>a]KBMOGLG\`9VWSB>AGFDSJNWP<E>b\IDNNHKE^a8FLED?yPLVRG\HKBANCVFHMCJ+&<?KD+`^MC\?`^$*%\#+$RURF!. ECJSON6-!DDLQNO6 ,8DMXJR>EDT\UBMDCQH%\FaQFRURECQB,!0AQS#\+9b\HQJCOM`^`PHJPUG?OI)(={<E><E>
<E>R?KDER@?GHVKS-<E>CEKRPM19VWSB>AGFDSJNWP<E>ECJSON37DNFC@xQQ\WJLE@`ERQP'$FLIMR$'>=CQG?N%*:<E><E><E>
MEGFBV;ECJSON4<E>?GHVKS.;S[NH:CDJ?YFPTT<E>@IFULR/=@PCG;~HFXDMDOE]GLD?MD*'>z<E><E><E>PALCFQ>AHGWJQ1<E>
DDLQNO48WVQD?@HEBUKMXO<E>CEKRPM39EMGB>zMC\?P@TBaAJRC@OB)(={<E><E><E>R?KDER@?GHVKS0<E>CEKRPM49VWSB>AGFDSJNWP<E>
ECJSON67DNFC@xLD[@R>SC`CQ>CKG&,8~<E><E><E>NDHH@U<DDLQNO6<E>@IFULR2=QZOG;EBI@XGRRS<E>AHGWJQ3<ARAF<}IHVCNCPG[EHU?EIF'+9<><E>
<E><E>

23
dane/game/debug/sequencetest/intro_4.cnv Normal file
View File

@@ -0,0 +1,23 @@
{<C:6>}
PALCFQ>LWQL@<E>NTUGF7UXRC@JVRKA<E>PRTHE8IFMDP?PB>HPRUL/VCT<E><E>R?KDER@AZLaXbOVQ[<E>B\J`YaPXOZ9VWSB>@PGPL<E>
EXO]]\STTW=SJRK@OB>STSH<E>AZLaXbOVQ[8IFMDP?PB>C[KbW`QWP\+BMP<E>B\J`YaPXOZ9VMF>OUCQ@QSTG<E>B\J`YaPXOZ9RPLLSHVW@1<E>EXO]]\STTW=CQR?/9<E>AZLaXbOVQ[8SOFKQ?G:UQWC<E>
GVN^\]URSX<PHIF@UC@QSTG<E>B\J`YaPXOZ9OMQFUNTARIMHUGRK>ECJVB<E>EXO]]\STTW=JPMKRRODNNJLPJNP?OMI@?DDITD<E>FWP\[^TSUV;NPDLKJRJCG[QKCW@xUGKQaEJCG&,8~<E><E>NDHH@U<MMJRU<E>
JQEXQ;S[NH:BMKKR<E>HPFWR=SJRK@OB>STSH<E>HPFWR=CJKGLDJF<MMJRU-CLQ<E>HPFWR=QPBCLY>T<VPXB<E>LNISW7QQKMUFUX?0<E>NLHTV8IMT<34<E>
NLHTV8SOFKQ?G:UQWC<E>NLHTV8UBMDCQH:UQWC<E>NLHTV8PLOHVMU@PKNGVFPM?DDITD<E>MMJRU9OMQFUNTARIMHUGRKBKRFD:G@NQH<E>HPFWR=LOEKLLPIDF\SO[DYPD@B<}EDABIC0aMM@[&%HPFH0%&<|<E><E>
Q@MBDS?IXOBSQP<E>NRS@VMU7UXRC@>OHOM<E>NRS@VMU7WHUGEIF<VPXB<E>LTT?WLS9HGOBO@OC@HVQCRRO/@PL<E>NRS@VMU7UNE?QSBR?RURF<E>JWPDQPQ<NUFPQKR\:2<E>
JWPDQPQ<DSP>08<E>IXOBSQP=MSDNMDA>STSH<E>HVQCRRO;QGJH>TD?RURF<E>JWPDQPQ<KRKJSQPFLMKKQLLO<H?OPF<E>JWPDQPQ<KRKJSQPFLMKKQLLO@NNK>>ECJVB<E>LTT?WLS9QLIFOHUFHA_HFXLB>zT?NFFSC\SIBX* VQBQVSMB#(=B\J`YaPXOZ]RJDV)!RJDV#(=EDABIC0aMM@[&%HPFH/%&<|<E>
<E>Q@MBDS?PDHJDV?<E>U>LHGRD7UXRC@>OHOM<E>U>LHGRD7WHUGEIF<VPXB<E>S@MGHQB9HGOBO@OC@OBJKCW>/@PL<E>U>LHGRD7UNE?QSBR?RURF<E>
QCILBU@<NUFPQKR\:4<E>QCILBU@<DSP>08<E>PDHJDV?=MSDNMDA>STSH<E>OBJKCW>;QGJH>TD?RURF<E>QCILBU@<KRKJSQPFLMKKQLLO<H?OPF<E>QCILBU@<KRKJSQPFLMKKQLLO@NNK>>ECJVB<E>
<E>PALCFQ>FCBDGB1<E>I?G>K@48WVQD?QHNVDPAH<E>DBCCHD/;EKJHKBLG;J>E@L?5+TDS<E>EDABIC0=LOEKLLPIDF\VBLVGL@xLTT?WLS]RJDV)!KB]FF!+9<><E>DBCCHD/;NPDLKJRJCG[LNID4:|JQEXQ_ON?\%#OTXHTS@E?%&<|<E>
I?G>K@48RKGHPGVEFC`IRDG1?yb\TBTCHKTGQRb\_QWL+&<OTX\DPCC\JLUN* KFMKU ,8~<E><E>NDHH@U<OMXPF<E>LQSVB;S[NH:NNWQH<E>JPTUC=LOBNGFH>zBGI%#Ra@IFSRVGQQSN$*%\#+$DDITD$*%?GHVKS-#+$ ,8~<E><E>
NDHH@U<ELYIP@FCU<E>@OUNMDAFQ<R\MF<ELYIP@FCU<E><E>LCIGAW:D@PTDPPAUCUSFQ<E>E?QSBRQ@VBSUGP=QZOG;F>OUCQbLCRGPYBS<E><E>
NDHH@U<MC\?P@TB<E>NBZAQ?UA;S[NH:LD[@R>SC<E><E>Q@MBDS?]bFOHV]b<E>\`HPGW\`9VWSB>AGFDSJNWP<E>b\JMKRb\;BQBH:|FaAXOTNT\VBURECQB)!KLWOP^6 ,8H^OCQR_RJMZ%G@NQH&<Fa?P?JDPRaPFSCKEFFMV&%FOSTMb1#(=EbPUKR?JB_GKBH%*:I]DKOOCEH[IHFC+&<C[KbW`QWP\[IHFC+&<FCBDGB1`NO>Z'$QHHXDP ,8JMVPR\3]UCWJVRKAYLMTOC+21/+9<><E>
<E><E>LCIGAW:`BWPVLSLQTH\<E>`BWPVLSLQTH\;S[NH:CDJ?YFPTT<E>]FRSRQPPLWDa8FLED?yJ\DTTQRO_RGRR?KDER+@BMX?VLCRGPYBS]ICWDS@RFL@T@V&PLVRG\JBUOQQ[%*+OMXPF]ICWMPR[&,)UQWC/--42.3)UQWC,&<|<E><E>
<E>Q@MBDS?]bMBTUCVQBQV]b<E>\`OCSVBTSCPW\`9VWSB>AGFDSJNWP<E>b\Q@WQHPU@TRb\;BQBH:|RECQBO@OCaPFS*NUWZFQBD[HDVAXOSDPRV@FMG&,&<LQSVB_CKQD?MDUGJKBK*'>\`JGWE\`]UCW%LD[@R>SC`GVBO@DJHA)(+9NBZAQ?UA_CKQD?MD*'>\`GUNRQN@Z]b[TDV&-PDDPCQ>ND`EHQN@ZFVMSHQPLQZ'+'>\`GUNRQNHP]b[TDV&-PDDPCQ>ND`EHQNHPFVMSHQPLQZ'+'>'TBGLHKBLG\JBUON?\FOFCLLJP'$]bDSGGJS\`!+9<><E><E><E>
LCIGAW:`^R?XPFDPBb\<E>`^R?XPFDPBb\;S[NH:CDJ?YFPTT<E>]bMBTUCHKE^a8FLED?yPLVRG\HKBANCVFHMCJ+&<?KD+`^MC\?`^$*%\#+$RURF!. ECJSON4-!DDLQNO4 ,8`^IPKBMOa]aOFLQTH>MK*'>z<E><E><E>PALCFQ>^aFHIQRV?UQ`^<E>
a]KBMOURDOU^a8WVQD?@HEBUKMXO<E>`^JCOMTSCPW\`9EMGB>zUAHKFMCKH[TDV&SO[XIMG>_FGRFRSQGLWPDDPC+&*:OMXPF]FGV>CKGQLDO@N&,8`^MC\?`^`QHQ)JGWELBQF\LPFMC@OBE'+'>HFXDMDOE]FGV>CKG&,8`^JQSLULCVb\_RGR+'TBGLHKBLG\JBULCVKPQQKMUFUX*',8`^JQSLULKLb\_RGR+'TBGLHKBLG\JBULKLKPQQKMUFUX*',8+RECQBO@OCaDFSRJDVJMI?QFNN* b\HQJCOM`^$'>@OUNMDAFQ`JR>E']EbPDTVQFBOD- 1@OU$[,8H^OCQR_RJMZ%G@NQH&<|<E><E><E>Q@MBDS?]bEFKRCQA`^<E>a]KBMOGLG\`9VWSB>AGFDSJNWP<E>
b\IDNNHKE^a8FLED?yPLVRG\HKBANCVFHMCJ+&<?KD+`^MC\?`^$*%\#+$RURF!. ECJSON6-!DDLQNO6 ,8DMXJR>EDT\UBMDCQH%\FaQFRURECQB,!0AQS#\+9b\HQJCOM`^`PHJPUG?OI)(={<E><E><E>R?KDER@?GHVKS-<E>CEKRPM19VWSB>AGFDSJNWP<E>ECJSON37DNFC@xQQ\WJLE@`ERQP'$FLIMR$'>=CQG?N%*:<E>
<E><E>MEGFBV;ECJSON4<E>?GHVKS.;S[NH:CDJ?YFPTT<E>@IFULR/=@PCG;~HFXDMDOE]GLD?MD*'>z<E><E>
<E>PALCFQ>AHGWJQ1<E>DDLQNO48WVQD?@HEBUKMXO<E>CEKRPM39EMGB>zMC\?P@TBaAJRC@OB)(={<E><E><E>
R?KDER@?GHVKS0<E>CEKRPM49VWSB>AGFDSJNWP<E>ECJSON67DNFC@xLD[@R>SC`CQ>CKG&,8~<E><E><E>NDHH@U<DDLQNO6<E>
@IFULR2=QZOG;EBI@XGRRS<E>AHGWJQ3<ARAF<}IHVCNCPG[EHU?EIF'+9<><E><E><E>

BIN
dane/game/debug/sequencetest/kogut.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/sequencetest/kurator.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/sequencetest/rakieta.ann Normal file
View File

Binary file not shown.

BIN
dane/game/debug/sequencetest/testseq.wzl Normal file
View File

Binary file not shown.

51
dane/game/debug/soundtest/Sound_test.cnv Normal file
View File

@@ -0,0 +1,51 @@
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^UP={CURRENT_FREQ^SUB(200);}
KEYBOARD:ONKEYDOWN^DOWN={CURRENT_FREQ^ADD(200);}
OBJECT=SNDENGINE0
SNDENGINE0:TYPE=SOUND
SNDENGINE0:FILENAME=_000POJEDZIE.WAV
SNDENGINE0:PRELOAD=TRUE
SNDENGINE0:FLUSHAFTERPLAYED=FALSE
SNDENGINE0:ONFINISHED={SNDENGINE0^PLAY();}
OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
OBJECT=CURRENT_FREQ
CURRENT_FREQ:TYPE=INTEGER
CURRENT_FREQ:VALUE=10025
CURRENT_FREQ:ONCHANGED={TXTMSG2^SETTEXT(["CURRENT_FREQ_"+CURRENT_FREQ^GET()]);SNDENGINE0^SETFREQ(CURRENT_FREQ);}
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_dzwieku"]);TXTMSG^SHOW();TXTMSG2^SHOW();SNDENGINE0^PLAY();}

47
dane/game/debug/structtest/Struct_test.cnv Normal file
View File

@@ -0,0 +1,47 @@
OBJECT=SOBJECT
SOBJECT:TYPE=STRUCT
SOBJECT:FIELDS=NAME<STRING>,IDNAME<STRING>,TYPE<INTEGER>,SPARAM0<STRING>,SPARAM1<STRING>,SPARAM2<STRING>,IPARAM0<INTEGER>,IPARAM1<INTEGER>, IPARAM2<INTEGER>
OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("FONT_EXPERIMENT2");}
KEYBOARD:ONKEYDOWN^RIGHT={TXTMSG^SETTEXT(["Przejscie_do_test_"+[DEBUG_VALUE+1]]);TXTMSG2^HIDE();TXTMSG3^HIDE();DEBUG_VALUE^INC();DEBUG^GOTO("MATH_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
OBJECT=TEST
TEST:TYPE=STRING
TEST:VALUE=Masło
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=FALSE
TXTMSG:VJUSTIFY=TOP
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_struct"]);TXTMSG^SHOW();TEST^SET(SOBJECT^GETFIELD(1));TXTMSG2^SETTEXT(TEST);TXTMSG2^SHOW();}

62
dane/game/debug/structtest/ambient.dta Normal file
View File

@@ -0,0 +1,62 @@
PODWIECZOREK1|SND_MAGIC
PODWIECZOREK2|SND_MAGIC
PODWIECZOREK3|SND_MAGIC
TRZYWEJSCIA|SND_MAGIC
DOMALCHOMIKA|SND_TOWN1
GABINETDYR|NULL
HOLGLOWNY|SND_FOUNTAIN
UNIVFRONT|SND_GARDEN
BIALO|SND_FOG
MIASTO|SND_MMARKET
LUSTRO|SND_MAGIC
TELEP_PODWORKO|SND_HOME
TELEP_WARSZTAT|NULL
TELEP_KURNIKI|SND_HOME
PIWNICA|SND_PIWNICA
ALCHEMY|SND_PIWNICA
RATUSZ|SND_TOWN2
LABIRYNTH|SND_MAGIC
PIKLIBIA|SND_BIRDSPLATE
DOMSPIEL|NULL
PRZEPASC|SND_MMARKET
MIOTLISKO|SND_DEEPFORESTBIRDS
KAPTUREK|SND_FOREST
CALINECZKA|SND_DEEPFOREST
DRATEWKA|SND_FOREST
SNIEZKA|SND_DEEPFORESTBIRDS
KROLEWNA|SND_GARDEN
JAGA|SND_DEEPFOREST
OLBRZYM|SND_DEEPFOREST
SZREKSIO|SND_GARDEN
TROL|SND_DEEPFOREST
NORASZ|SND_PIWNICA
SEZAM|SND_PIWNICA
PRZEDSEZAMEM|SND_DEEPFORESTBIRDS
KROLOWA|SND_MMARKET
SMOK|SND_FORESTWATER
RATUSZIN|NULL
GULDRYK|NULL
KORYTARZ|NULL
SALA|SND_MAGIC
UNIVBACK|SND_FORESTWATER
UNIVPIWNICA|SND_PIWNICA
MIOTSHOP|SND_MMARKET
PRZYSTAN|SND_RIVER
GABINETSNEJKA|
BARANMIOT|SND_BIRDSPLATE
WMWEJSCIE|SND_RIVER
WMWNETRZE|SND_CAGE
PIKMIOT|SND_BIRDSPLATE
SKLEPALCH|SND_LAB
ARRAS|SND_MAGIC
POMPA|SND_POMPA
LIMBO|SND_LIMBO
HILLS1|SND_FOREST
HILLS2|SND_FOREST
HILLS3|SND_FOG
BARANDALF|SND_BRIDGE
CAT|SND_FOREST
INTRO_2|SND_HOME
INTRO_4|SND_HOME
OUTRO_2|SND_HOME
OUTRO_7|SND_MAGIC

75
dane/game/debug/timertest/Condition_timer_test.cnv Normal file
View File

@@ -0,0 +1,75 @@
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=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG3
TXTMSG3:TYPE=TEXT
TXTMSG3:VISIBLE=FALSE
TXTMSG3:HYPERTEXT=
TXTMSG3:FONT=ARIAL14
TXTMSG3:TOCANVAS=TRUE
TXTMSG3:RECT=0,350,800,650
TXTMSG3:PRIORITY=10000
TXTMSG3:HJUSTIFY=CENTER
TXTMSG3:VJUSTIFY=TOP
TXTMSG3:MONITORCOLLISION=FALSE
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
OBJECT=TXTMSG4
TXTMSG4:TYPE=TEXT
TXTMSG4:VISIBLE=FALSE
TXTMSG4:HYPERTEXT=
TXTMSG4:FONT=ARIAL14
TXTMSG4:TOCANVAS=TRUE
TXTMSG4:RECT=0,350,800,600
TXTMSG4:PRIORITY=10000
TXTMSG4:HJUSTIFY=CENTER
TXTMSG4:VJUSTIFY=BOTTOM
TXTMSG4:MONITORCOLLISION=FALSE
TXTMSG4:MONITORCOLLISIONALPHA=FALSE
OBJECT=TIMERKUR
TIMERKUR:TYPE=TIMER
TIMERKUR:ELAPSE=100
TIMERKUR:TICKS=0
TIMERKUR:ONINIT={THIS^DISABLE();}
TIMERKUR:ONTICK={TXTMSG3^SETTEXT(["TIMER_PRZED_BREAKIEM__"+TIMERKUR^GETTICKS()]);COND1^BREAK(TRUE);TXTMSG2^SETTEXT(["TIMER__"+TIMERKUR^GETTICKS()]);}
TIMERKUR:ONTICK^110={THIS^DISABLE();}
OBJECT=COND1
COND1:TYPE=CONDITION
COND1:OPERAND1=TIMERKUR^GETTICKS()
COND1:OPERATOR=GREATER
COND1:OPERAND2=100
COND1:ONRUNTIMESUCCESS={TXTMSG4^SETTEXT("Jest_okej");}
COND1:ONRUNTIMEFAILED={TXTMSG4^SETTEXT("Nie_jest_okej");}
OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_timera_i_conditionali"]);TXTMSG^SHOW();TXTMSG2^SHOW();TXTMSG3^SHOW();TXTMSG4^SHOW();TXTMSG4^SETTEXT("Test");TIMERKUR^ENABLE();COND1^CHECK(TRUE);}

35
dane/game/game.cnv Normal file
View File

@@ -0,0 +1,35 @@
OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=
OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER
OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
#
# DEBUG_VALUE
#
OBJECT=DEBUG_VALUE
DEBUG_VALUE:TYPE=INTEGER
DEBUG_VALUE:VALUE=1
DEBUG_VALUE:TOINI=TRUE
# to akurat wzięte z Reksio i Czarodzieje
OBJECT=M_SNDYES
M_SNDYES:TYPE=SOUND
M_SNDYES:FILENAME=NAR_F123.WAV
M_SNDYES:PRELOAD=FALSE
M_SNDYES:FLUSHAFTERPLAYED=FALSE
OBJECT=__KEYBOARD_AUTOCLICK_DISABLE__
__KEYBOARD_AUTOCLICK_DISABLE__:TYPE=BEHAVIOUR
__KEYBOARD_AUTOCLICK_DISABLE__:CODE={!M_SNDYES^PLAY();KEYBOARD^SETAUTOREPEAT(FALSE);}
OBJECT=EXITPROGRAM
EXITPROGRAM:TYPE=BEHAVIOUR
EXITPROGRAM:CODE={GAME^EXIT();}