From 08daf9c7d838e0d99e98b23ba993ed3b72af816a Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 14:49:33 -0400 Subject: [PATCH 1/7] Restore state after accidental merge --- engine/openbor.c | 47214 ++++++++++++++++++++++++++++++++++++++++----- 1 file changed, 42831 insertions(+), 4383 deletions(-) diff --git a/engine/openbor.c b/engine/openbor.c index 3e12ae272..683b2852f 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -13773,4386 +13773,42834 @@ void lcmHandleCommandType(ArgList *arglist, s_model *newchar, char *filename) newchar->type = TYPE_NPC; newchar->bounce = 1; newchar->move_config_flags |= (MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_MAX_Z | MOVE_CONFIG_SUBJECT_TO_MIN_Z | MOVE_CONFIG_SUBJECT_TO_OBSTACLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL); - newchar->move_config_flags &= ~MOVE_CONFIG_NO_An׬hHBY[O\W\]OHS\[O\W\] O^\ -H\]HܛX[ٚ[\] - LK -Nˆ[H\]H[O\W\]‚Y\] JX[ۗX[[XYJ[\] [\X -JJBˆ]\ ˆBY - -[OX[ PPUJH [O[[[[HOHSWPBˆY -]\][Z\\] -HJ\] OX[ PPUJH -XXܘ[W\][ -[\] SWP  -H Y[O][ۋ \] O][ۋ -Hܘ[^ Y[O][ۋ\] O][ۋHܘ[^H -Bˆ[O[]KH[O[]KH ˆYXܚ\J[Nˆ]\ NˆBBY]\]J\] OX[ PPUJJBˆ]\ ˆB[BˆY -[OX[ PPUJBˆ]\ NˆB[Bˆ[[WٛYHXܘ[W\][ -[\] SWP  -NˆY -\[WٛYBˆY -Y[O][ۋ \] O][ۋ -HHܘ[^ Y[O][ۋ\] O][ۋHHܘ[^H[WٛYH NˆBY -\[WٛYH]\ ‚Y[OX[OHPӓӑJBˆYX[NˆB]\ NˆBB]\ ŸBKHY[[ۗ[ -B‚Y[OX]]H PUUWPQ -Bˆ]\ˆH YX[Y - -JH]\‚ \]^H H\YZWXܙX[ - -JBˆ]\ˆB \OH\H]XˆYZWXYJ -JBˆ]\ˆB \\OˆYZWXܘXY - -JBˆ]\ˆB ܘX[Y][ˆYZWXܘX -JBˆ]\ˆB [[ZY\[\\HۋZۛۈ[[XYH -]HZ\\JHBYZWX\\J -JBˆ]\ˆB \HYˆYZWX؝\J -JBˆ]\ˆB YKH]X܈YH^[ݙB ۝[ݙHY[[HH܈ٙH[Y[[ۗ]X -JBˆ]\ˆB \]\X[HX[ˋYZWXX[ -JBˆ]\ˆB[[ۗ[ݙJ -NŸB‚YZXYJ -BˆY[YH[O[[YJBˆ]\ˆB][\]YH[Oˆ][\]YYX][؛H[O‚[[]J[SSUWQTRPQJNŸBKY[\^YY[\YH^Y\٘[[^Y\ZY[XYBY^Y\YW[]J[]JX[[]JBˆ[^Y\[^HX[[]KO^Y\[^ˆ[HH ‚YJؘ[ۙY˘X] PUSӔUTPUJJBˆ K\^Y\^Y\[^K]\ˆBY\^Y\OHX[[]JBˆ\^Y\HSˆB^X]WYWܚ\ -^Y\[^ -N‚YX^\\]HH JBˆX^\\]^Y\[^HH^Y\^Y\[^K[ O\ X^ˆB^Y\^Y\[^K[HSˆ^Y\^Y\[^K]ۚX[HX[[]KO[[]KX[ˆ^Y\^Y\[^K]ۛ\HX[[]KO[[]K\‚ ʈ -[HHKY[HܜHYˆ -\H] HX]H[]HۈܙY[ -[XZH][\ \\HH[ -\[[[[ۈ[[ݙK - -SSՑWԔWʈYY\ -H]H[]H\[[ݙYHH -[YH[HX][HܜHZ[  -‚]XۜWX]ۙYٛYX]WܜHHPUӑQԑSSՑWԔWRTPUӑQԑSSՑWԔWԓS‚Y -X[[]KO[[]KX]ۙYٛY X]WܜJHˆX[[]KO[HSˆX[[]KOZXX[ۈHSˆX[[]KOX]]HHPUUWԔNˆH[Hˆ[[]JX[[]KSSUWQTVQTPU -NˆBY^Y\^Y\[^K]\H -Bˆ[[H ‚BK[\و -XY -H^Y\H[^Y\BK[^\[[ܙ[Y[[[^Y\\]BBK[[]K܊HH HPVVQTJB‚BBZY -\^Y\WK[ -BBB^‚BBBJ[‚BB_BBBKY[^Y\\H [[H KBK\\K]] BX[H -[HPVVQTH H ‚BK[^Y\ˆY[B‚BBZ[[ۛڛ[H ‚BBZ[[ۛܙY]H ‚BBK[^Y\[[‚BBK[YHX\[^Y\ˈ܊HH HPVVQTJB‚BBBZY -\^Y\WK[[BBBB^‚BBBBJ[ۛڛ[‚BBB_BB[ۛڛ[H -[ۛڛ[HPVVQTH H ‚BBK[^Y\]وܙY]‚BBK[YHX\[^Y\˂܊HH HPVVQTJB‚BBBZY -^Y\WKܙY] JBBBB^‚BBBBJ[ۛܙY]‚BBB_BBBBB[ۛܙY]H -[ۛܙY]HPVVQTH H ‚BBK]H[Y\H LXۙ[ۋ[Y[YH L -ؘ[ۙY˘[\YY‚BBKۙH[[[ˆY[ۛڛ[B‚BBBKYH^Y\[۝[YK] ]H[YHݙ\BBBK[[[[[H^Hۉ]HZ] BBBKY\H\[XY ܙY]\\\H[Y \YH[BBBK^Y\[]YX[ܙY]\Y\\H[\K\\HܙY]BBBK\\\H[Y \YHوܙY]\[\KBBBZY -\JBBBB^‚BBBBZY -[ۛܙY]BBBBB^‚BBBBB][Y[YHؘ[ۙY˘[\YY ‚BBBB_BBBBBBBBB_BBBBY[BBBB^‚BBBBZY -ܙY] JBBBBB^‚BBBBB][Y[YHؘ[ۙY˘[\YY ‚BBBB_BBBB_BBBYX[[]KO[[]KX\ۗ\Y\˛ۙ][ۈ PTӗӑUSӗQJBˆ^Y\^Y\[^KX\H][ O]X\ˆBYX^\\]HOH BˆX^\\]^Y\[^HH ˆBB\]\ˆB[Bˆ]ۜ^Y\^Y\[^ -Nˆ^X]Wܙ\]ۗܚ\ -^Y\[^ -NˆY[[BˆY -]Y]K\[XV^Y\[^JH۝ܝ[XJ^Y\[^  K LJNˆ[[[ZY\ -NˆBBY[][ Oܙ\] -Bˆ[Y[YH][ O][YH -ؘ[ۙY˘[\YY X  H H\[H[ݙY\H]\H[YBBBY^Y\YJY -Bˆ^Y\YW[]J[NŸB[^Y\[[ݙJ]\]\Bˆ]\[[ۗ[[ݙJ\\NŸB[X[\JWXX [[JBˆ[\[HSNˆW[]W\H\N []H\K[\W[\W‚H ][[X][ۉ[\W]K[\W H[O[[]K[[X][ۖ[WKO[\W ‚Y[\W \XHH[O[[]K[[X][ۖ[WKO[\W \XN‚Y[\W \ۛHH[O[[]K[[X][ۖ[WKO[\W \ۛN‚ ][]H\K\BHH[O[[]K\N‚ YIܙH[[XX[\ݙ\Y[[ ]\[KY\H -TWSSVHTWӔJBˆYXؚ[ݙ\YJ[SӑQՑTQWPPSRJJBˆ]\SNˆBB[HY\H TWVQTBˆYXؚ[ݙ\YJ[SӑQՑTQWPPSVQTJBˆ]\SNˆBBY[Y[[J[[JJBˆ \^K[[ۈ L L KL ˆ ]\XH[]YX[H\XHXX[ˈ[ X[H\\ -X\ۜ[\X[\H\[Z[]ۈHYY܂ \\[\[[[Y\[X[]Y\\H\\Y܈^Y\ [[ZY\܈˂ ܘ]\ - L L JH^YH][H܈\XHYXXH][\BYJ[\W \XHOH\BBBBBBBBBBBBBK\XYH\Oˆ -[\W \XHOH LJBBBBBBBBBBBH \XY܈[ˆ -[\W \XHOH L -\H -TWSSVHTWӔJJBBH \XY܈[ROˆ -[\W \XHOH L -\H -TWVQTTWӔJJBH \XY܈^Y\ ˆ -[\W \XHOH M -\H -TWVQTTWSSVJJJJJH \XY܈[ROˆˆ X[܈X[\\[YH\[\HˆY -\[OX[[OX[H[\W -BˆY -XOHSTWTWT -[\W \ۛHOHTWӓJH -[O[\W]K\\[H[\W -JHBBBB_ -XOHSTWTW -[\W \ۛHOHTWTӓJH  -[O[\W]KX[\[[\W -JJBˆ\[HQNˆB[Bˆ  KL KLˆ YY][HS[[X][ۈ\HY\H\XY ]ۉܚˈIYHX\˂ Y -[Y[[J[[JJ^ˆ [][[J[SWS  -Nˆ [OZXX[ۈH[[ۗ]Xˆ ^Y\[O^Y\[^K^Z^\H ˆ BBBBB]\\[ŸB\^H[[ۈ N L KLL‹\X\[XYXHXܘ[J -HXXܛˈ[[]YX[X[H[[ۜ܈XX^\[]\YBY\]\][[HوS Xܘ[W\][ -ۜ[]H -[ ۜ[]H -\] ۜ[[X][ۗY[[X][ۗY [ [WZ[[ [WX^ -Bˆ ]\]HH[Y\][]KY]\] -Bˆ]\[NˆB ][\[[X][ۋۜ[[H -[[X][ۈH[ O[[]K[[X][ۖ[[X][ۗYN‚Y -XXܘ[W\] -[ \] [[X][ۋ[WZ[[WX^ -JBˆ]\[NˆBY -XXܘ[W\]J[ \] [[X][ۋ[WZ[[WX^ -JBˆ]\[NˆBY -XXܘ[W\]ފ[ \] [[X][ۋ[WZ[[WX^ -JBˆ]\[NˆBY -XXܘ[W\]ؘ\J[ \] [[X][ۋ[WZ[[WX^ -JBˆ]\[NˆB]\YNŸB\^K[[ۈ N L KLL‹]\YHY\]\][\H[Bو[]I[[X][ۋXܘ[W\]ؘ\Jۜ[]H -X[[]Kۜ[]H -\] ۜ[[H -[[X][ۋ[ [WZ[[ [WX^ -Bˆ[[ؘ\Nˆ[\]ؘ\N‚Y]Xܘ[H[N‚ ]\]HH\] YXX[[]H]\] -Bˆ]\[NˆB[KX^H[WX^ˆ[KZ[H[WZ[‚Y -[[X][ۊBˆ[KX^ -H[[X][ۋO[K\KX^ˆ[KZ[ -H[[X][ۋO[K\KZ[ˆB ]][ۜ\\[Y\˂[ؘ\HH -[ -XX[[]KO\Nˆ\]ؘ\HH -[ -]\] O\N‚ XX[]H\H][ۈH\]][ۋ\]ؘ\H OH[ؘ\N‚ ]\YHY[[\]][ۈ\ˆ ][[HZ[[X^ ]\ -\]ؘ\HH[KZ[ \]ؘ\HH[KX^ -HYH[NŸB\^K[[ۈ N L KLL‹]\YHY\]\][[Bو[]I[[X][ۋXܘ[W\] -ۜ[]H -X[[]Kۜ[]H -\] ۜ[[H -[[X][ۋ[ [WZ[[ [WX^ -Bˆ ]\]H[]Y\˂YXX[[]H]\] -Bˆ]\[NˆB ]][ۜ\\[Y\˂ۜ[[H -[ -XX[[]KO][ۋˆۜ[\]H -[ -]\] O][ۋ‚Y]Xܘ[H[N‚[KX^H[WX^ˆ[KZ[H[WZ[‚Y -[[X][ۊBˆ[KX^ -H[[X][ۋO[K X^ˆ[KZ[ -H[[X][ۋO[K Z[ˆB ]\YHY[[\]][ۈ\ˆ ][[HZ[[X^ [H\\\ۂ \]\Y[[]HX\Y YX[[]KO\X[ۈOHTPSӗԒQ -Bˆ Y[H[]H][ۂ ܈[[[Hܙ[]\˂[KZ[H[ -[KZ[ˆ[KX^H[ -[KX^‚]\ -\]H[KZ[ \]H[KX^ -HYH[NˆB[Bˆ XX[HH[]H ][ۈ܈[[[Hܙ[]\˂[KZ[H[ H[KZ[ˆ[KX^H[ H[KX^‚]\ -\]H[KZ[ \]H[KX^ -HYH[NˆBB\^K[[ۈ N L KLL‹]\YHY\]\][H[Bو[]I[[X][ۋXܘ[W\]Jۜ[]H -X[[]Kۜ[]H -\] ۜ[[H -[[X][ۋ[ [WZ[[ [WX^ -Bˆ ]\]HH\] YXX[[]H]\] -Bˆ]\[NˆBY]Xܘ[H[N‚[KX^H[WX^ˆ[KZ[H[WZ[‚Y -[[X][ۊBˆ[KX^ -H[[X][ۋO[KKX^ˆ[KZ[ -H[[X][ۋO[KKZ[ˆB ]][ۜ\\[Y\˂ۜ[[HH -[ -XX[[]KO][ۋNˆۜ[\]HH -[ -]\] O][ۋH H[N‚ ]\YHY[[\]][ۈ\ˆ ][[HZ[[X^ ]\ -\]HH[KZ[ \]HH[KX^ -HYH[NŸB\^K[[ۈ N L KLL‹]\YHY\]\][[Bو[]I[[X][ۋXܘ[W\]ފۜ[]H -X[[]Kۜ[]H -\] ۜ[[H -[[X][ۋ[ [WZ[[ [WX^ -Bˆ ]\]HH\] YXX[[]H]\] -Bˆ]\[NˆBY]Xܘ[H[N‚[KZ[H[WZ[ˆ[KX^H[WX^‚Y -[[X][ۊBˆ[KX^ -H[[X][ۋO[KX^ˆ[KZ[ -H[[X][ۋO[KZ[ˆB ]][ۜ\\[Y\˂ۜ[[ވH -[ -XX[[]KO][ۋˆۜ[\]ވH -[ -]\] O][ۋ H[ގ‚ ]\YHY[[\]][ۈ\ˆ ][[HZ[[X^ ]\ -\]ވH[KZ[ \]ވH[KX^ -HYH[NŸB[XXX[ - -Bˆ[]H -NˆY -[][ OXX[][ OXX[OH H [Y[[J[SWPPS -H  -X[\JSTWTW SWPPS -HX[\JSTWTWT SWPPS -JB -Bˆ[OZXX[ۈH[[ۗ]Xˆ]]X[[NˆY[\] -[OX\  ^[ي -[OX\ -H - JN‚HH[O[ˆYJBˆKOZXX[ۈHSˆ[[[[Nˆ]YJJNˆBY[O[[]KX\X \[O[[]KٜY^JBˆX\؛X[[O[[]KX\XN X\X[[YYX][HY]\ۉY^HܙY[B[O[[HSUWӓӑN YXX[\^X]Y[H[[X\\[[O[]KH[O[]KH ˆ[][[J[SWPPS  -N‚Y[O[[]KٜY^JBˆX\X\H[ Y^\H[[X][ۜو[[[ZY\^Y\[HXX[\^X]YB ܘ]\ - L L JHH[[]HX[X]YX^Y\ۛK[[ZY\܈ˆ [H[[]HX[X][ۛHܚ[H\PS [ܚ[H\T[[[ܙBY[O[[]K\H TWVQTBˆY[ -BˆYJؘ[ۙY˘X] PUSӔPSPUJJBˆY[O[[]K[[X][ۖSWPPSKO[\W -BˆYX[\JSTWTWT SWPPS -JBˆ[O[\W]K\\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆB[Bˆ[O[\W]KX[\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆBBB[BˆY[O[[]K[[X][ۖSWPPSKO[\W -BˆYX[\JSTWTWT SWPPS -JBˆ[O[\W]K\\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆBBBBB[BˆY[ -BˆY[O[[]K[[X][ۖSWPPSKO[\W -BˆYX[\JSTWTWT SWPPS -JBˆ[O[\W]K\\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆB[Bˆ[O[\W]KX[\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆBBBB]\ NˆB]\ ŸBX^\܈XX[[ݙK\Y]\[[Y\H[] ܘ]\ - L L JHYY]Y\H][\UP^\\[][\]]B[^Y\XXX[ - -Bˆ^WX\Z^HH ˆ^WX\^Y\^\H^Y\[O^Y\[^K^Z^\‚] -ؘ[ۙY˘ZXX[ -Bˆ\HRPPSVWPPSY -^Y\^\ QPPS -BˆZ^HHQPPSˆHXZ‚\HRPPSVWPNY -][Y[[J[SWГH ^Y\^\ QPPS -BˆZ^HHQPPSˆB[HY -^Y\^\ QҕST ^Y\^\ QUPBˆZ^HHQҕSTQUPˆBXZ‚\HRPPSVWUP̎Y -^Y\^\ QUP̊BˆZ^HHQUP̎ˆBXZ‚\HRPPSVWUP΂Y -^Y\^\ QUPBˆZ^HHQUPˆBXZ‚\HRPPSVWUPY -^Y\^\ QUP -BˆZ^HHQUPˆBXZˆY][Z^HH ˆBY -]Z^JBˆ]\ ˆBYXXX[ - -JBˆ[O[[YHH ˆ^Y\[O^Y\[^K^Z^\ HZ^Nˆ]\ NˆB[Bˆ]\ ˆBBY[[ۗ[ - -Bˆ[O[]KH[O[]KH ˆY[O[[X][Bˆ]\ˆB[OZXX[ۈHSˆ]YJ[NŸB[[X[[[[H] [Y\HZ[Y[[[X[ - -Bˆ[[ۗ[[[J[Nˆ [][[J[SWS -N‚Y[O][ۋY[^ H [O][ۋY[^ - -Y[[\˚\ - -JBˆ[[]J[SSUWQTSSPSԕSUїГSNˆ]\ˆBY[O\X[ۈOHTPSӗԒQ -Bˆ[O][ۋ -H[O[[]KYY ˆB[Bˆ[O][ۋ OH[O[[]KYY ˆBBY^Y\؛[ -Bˆ[O[H NˆY[YHH[O[[YJBˆ^Y\YJ -NˆBBY[[ۗܘX]X -BˆY[O[[X][Bˆ]\ˆB[O]X[HUPSӓӑN‚YJ[OX\H[OX\WH[OX\̗H[OX\H[OX\JJBˆ[[[[NˆBY[O[Bˆ[OZXX[ۈH[[ۗܘXˆ[O[OZXX[ۈH[[ۗܘXYˆ[O]X[HUPSӓӑNˆ[][[J[SWԐP -Nˆ]Z[[O[ LK -Nˆ\]Wٜ[YJ[[O[[X][ۋO[Y[Y\ H JNˆ\]Wٜ[YJ[O[[O[O[[X][ۋO[Y[Y\ H JNˆB[Bˆ[OZXX[ۈHSˆY[\] -[OX\  ^[ي -[OX\ -H - JNˆ]YJ[NˆBB[[ۈ]]\\H^Y\۝[YH[ݙH\܈ۈ[[H[[X][ۈ\[\Y^Z[Y[[ۗJ -H ][[ۈ^Y\[H]\\܈ۈۂˆY[O[[X][H ۝[Y\[ݙH\ۙ\H^Y\\[[X][ˆˆ]\ˆB[H ۘHۙH[[X][]\[[ˆˆ[OZXX[ۈHSˆ[O[]KH[O[]KH ˆ]YJ[NˆBBY[[ۗYX -BˆY[O[[X][Bˆ]\ˆBX[NŸBY[[ۗYJ -BˆY[O[[X][Bˆ]\ˆB[OZXX[ۈHSˆ[O]X[HUPSӓӑNˆ[OY[HQSTTQˆ[[ۗYW[[J[NŸBYYX[]H -[ -Bˆ[ O[[HSUWӓӑNˆY[Y[[J[ SWPSJBˆ[ OZXX[ۈH[[ۗYXˆ[ O[]KH[ O[]KH ˆ[ OX[HPTTQˆ[ OY[HQSӓӑNˆ[][[J[ SWPS -NˆB[BˆX[ -NˆBBYYXܚ\J[]H -[ -Bˆ[ O[[HSUWӓӑNˆY[Y[[J[ SWPԒTJJBˆ[ OZXX[ۈH[[ۗYNˆ[ O[]KH[ O[]KH ˆ[ OX[HPԒTNˆ[ OY[HQSӓӑNˆ[][[J[ SWPԒTK -NˆB[Bˆ[ OZXX[ۈHSˆ[ OY[HQSTTQˆ[[ۗYW[[J[NˆBBYX[]H -[ -Bˆ[ OZXX[ۈHSˆ[ O[]KH[ O[]KH ˆ[ OX[HPPUNˆ[ OY[HQSTTQˆ[][[J[ SWP -NŸBY[[ۗZ[\ - -BˆY[O[[X][Bˆ]\ˆBڝ[\ -[O[\ []KK[O[\ []K [O[\ []K[O[\ [[X][ۗY -NŸBYZ[\ -][\][\ ][\[[X][ۗY[[X][ۗY -Bˆ[O[\ []KHH[\ˆ[O[\ []KH[\ˆ[O[\ []KH[\ˆ[O[\ [[X][ۗYH[[X][ۗY‚[OX[HPӓӑNˆY[Y[[J[SWҕSTSVJJBˆ[OZXX[ۈH[[ۗZ[\ˆ[O[]KH[O[]KH ‚[OY[HQSӓӑNˆ[][[J[SWҕSTSVK -NˆB[Bˆڝ[\ -[\[\ [\[[X][ۗY -NˆBBYڝ[\ -][\][\ ][\[[X][ۗY[[X][ۗY -Bˆ[]H -\‚[OZXX[ۈH[[ۗڝ[\‚Yؘ[[\W\ [\H -Bˆ[^W[\Jؘ[[\W\ [\  ]Y]KYX ]Y]KYX  L -NˆB ]ۈ[\\\ Y[O[[]K\ [\\H -Bˆ\H]ۊ[O][ۋ [O][ۋ[O][ۋK[O\X[ۋS [O[[]K\ [\\ S -NˆY\ -Bˆ\ O]۝\HHUӗTWTҕSTˆ\ O\HH[O][ۋNˆ\ O]][HUUSSSPUSӗTUNˆ^X]Wۜ]ۗܚ\ -\ -NˆBB]ڝ[\[[N‚[[\N‚Y[O\X[ۈOHTPSӗQ -Bˆ[O[]KH Z[\ˆB[Bˆ[O[]KH[\ˆB[O[]KH[\ˆ[][[J[[[X][ۗY  -NŸB[[ۈܙX]YX[HHX[ۈZ[YZ]\X[\[][K܈[[[[][H]\BPTWP ^X][H\X]HX[ۈ\YۈX\Hو][H\XY\YY[][J[]H -\Bˆ [[ۈ]Z\\Hو][\[XY\]ۙ[ -[\N‚ ʂ -YXH[Z]Y\H\[\  - -Y][H\H\WY[YH[X[ˆ -[]H\H[Z]Y\HX\ۋHY -\WY\\[XZ[[˂ -‚Y\O[[]KX\ۗ\Y\˝\WY -BˆY[OX\[ [OX\[ O[[]KX\ۗ\Y\˝X\ۗ]H PTӗUWSRUQTJBˆ[OX\[ O[[]KX\ۗ\Y\˝\W[ -H\O[[]KX\ۗ\Y\˝\WY‚Yؘ[[\W\ ]H -Bˆ[^W[\Jؘ[[\W\ ]  ]Y]KYX ]Y]KYX  L -NˆBB[BˆYܙJ[O^Y\[^ \O[[]KܙJNˆYؘ[[\W\ ]̈H -Bˆ[^W[\Jؘ[[\W\ ]̋ ]Y]KYX ]Y]KYX  L -NˆBBB [وX\ۜ][\X[ۂ[HY\O[[]KܙJBˆYܙJ[O^Y\[^ \O[[]KܙJNˆYؘ[[\W\ ]̈H -Bˆ[^W[\Jؘ[[\W\ ]̋ ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[\W]KX[\[ -Bˆ[O[\W]KX[\[ -H\O[\W]KX[\[‚Y[O[\W]KX[\[[O[[]KX[ -Bˆ[O[\W]KX[\[H[O[[]KX[ˆB\O[\W]KX[\[H ‚Yؘ[[\W\ ]H -Bˆ[^W[\Jؘ[[\W\ ]  ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[[]K\ -Bˆ[O[\W]K\\[ -H\O[[]K\‚Y[O[\W]K\\[[O[[]K\ -Bˆ[O[\W]K\\[H[O[[]K\ˆB\O[\W]K\\[H ˆ[^W[\Jؘ[[\W\ ]  ]Y]KYX ]Y]KYX  L -NˆB[HYX\ -\O[[]K[YK[YHHOH -Bˆ[Y[YH][ O][YH -ؘ[ۙY˘[\YY X  H H\[H[ݙY\H]\H[YBYؘ[[\W\ ]̈H -Bˆ[^W[\Jؘ[[\W\ ]̋ ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[[]KXZZ[Bˆ X\  H H]][HXZ\^Y\[[XB[O[[XHHSSPWSSPNˆ[O[[[YHH[YH -P\O[[]KXZZ[Nˆ[O[H -\O[[]KXZZ[ -N‚Yؘ[[\W\ ]̈H -Bˆ[^W[\Jؘ[[\W\ ]̋ ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[[]KX\XBˆ [XY\]\][ۈHܙY[X\؛X[\O[[]KX\XN‚Yؘ[[\W\ ]̈H -Bˆ[^W[\Jؘ[[\W\ ]̋ ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[[]KX\HOHPTWPTӊBˆX\ۊ[ -Nˆ[OX\[H\ˆ]X\ۊ[\O[[]KX\ۗ\Y\˝X\ۗ[^  -N‚ ʈ[ݙHX\ۈ][ۈY] [[[X[ -ˆY[O[[]KX\ۗ\Y\˝X\ۗ]H PTӗUWSSPS -Bˆ[O\X[ۈH\O\X[ێˆ[O][ۋH\O][ۋˆ[O][ۋH\O][ۋˆBYJ\O[[]KX\ۗ\Y\˝X\ۗ]H PTӗUWSRUQTJH [O[[]KX\ۗ\Y\˝X\ۗ]H PTӗUWSRUQTJBˆ\O[[]KX\ۗ\Y\˝X\ۗ]HHPTӗUWSRUQTNˆBYؘ[[\W\ ]H -Bˆ[^W[\Jؘ[[\W\ ]  ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[[]KX\HOHPTWґPSJBˆX\ۊ[ -Nˆ[OX\[H\‚Yؘ[[\W\ ]H -Bˆ[^W[\Jؘ[[\W\ ]  ]Y]KYX ]Y]KYX  L -NˆBB[HY\O[[]KܙY] -BˆY[\JBˆܙY]ˆB[Bˆ^Y\[O^Y\[^KܙY]ˆBYؘ[[\W\ ۙW\H -Bˆ[^W[\Jؘ[[\W\ ۙW\  ]Y]KYX ]Y]KYX  L -NˆBB[Bˆ ]\HH ]\[^Y\[O^Y\[^K]\‚Yؘ[[\W\ ۙW\H -Bˆ[^W[\Jؘ[[\W\ ۙW\  ]Y]KYX ]Y]KYX  L -NˆBBY\O[[]KX\HOHPTWPTӈ \O[[]KX\HOHPTWґPSJBˆ\OZXX[ۈHZXYNˆY[\O[[]K[[][YX] -Bˆ\O^[H[YH -ؘ[ۙY˙[YWYY - ˆBB[BˆYJ\O^[[H SVWѓQSSUJJHˆ\O^[[HH[[X][ۗ[Y\[\Y؛[Y -[YK[^W][\W؛[Y -ؘ[ۙY˙[YWYY RS NNNNNJB -B -NˆB\O^[H[YH -ؘ[ۙY˙[YWYY -NNNNNNˆB\O][ۋHUSWQWUSӗ֎ŸBY^Y\٘[X -BˆY]][OH -^Y\[O^Y\[^K^\ -QSՑUTQҕST -JHOH -QSՑUTQҕST -JB‚BKX\] H[^H[[[X][ۈ[]Hܛ[ [O[XYWۗ[[˘]XٛܘHHUPѓԐWSSPSBBY^Y\ܘXX -Bˆ[]H -\H[O[‚Y\OHS -[O[[]KܘX[\ [O[[X][ \[OܘX[[JBˆ]\ˆBY[O\HOH\O\JBˆ [H\H O][ۋH O\B[OZXX[ۈHSˆ[[[[Nˆ]YJ[Nˆ]\ˆBY^Y\XXX[ - -JBˆ]\ˆBY[ [O[[]KX\ۗ\Y\˛ۙ][ۈ PTӗӑUSӗԐPSBˆX\ۊ[ JNˆB ܘX\BY[O[[X][ۈOH[O[[]K[[X][ۖSWԐPTJBˆ [\[ۉ\][][[BY[O[[X][Bˆ]\ˆB ۙH\[]\X[ۜ[]\ܘX[[X][ۂ[BˆY[O\X[ۈOHTPSӗԒQ -Bˆ[O\X[ۈHTPSӗQˆ\O\X[ۈHTPSӗԒQˆB[Bˆ[O\X[ۈHTPSӗԒQˆ\O\X[ۈHTPSӗQˆB\O][ۋH[O][ۋ - - - -[O\X[ۈ - H H JH -[O[[]KܘX\[JNˆ[][[J[SWԐP -Nˆ]Z[\ LK -Nˆ\]Wٜ[YJ[[O[[X][ۋO[Y[Y\ H JNˆ\]Wٜ[YJ\\O[[X][ۋO[Y[Y\ H JNˆBB[O]X[HUPSӓӑN ٛ܈X[ˆ[OܘX[[H ‚K[ݙH^H]HˈXܙ][ۏˆY[O\X[ۈOHTPSӗԒQ -^Y\[O^Y\[^K^\ QSՑSQ -H -^Y\[O^Y\[^K^\ QSՑTQ -JBˆ []X][ܘX\Y[O[[]KܘX\Bˆ \[[X][ۈY]^\ˋY[Y[[J[SWԐPTJBˆ[][[J[SWԐPT -NˆY[Y[[J\SWԐPQTJBˆ[][[J\SWԐPQT -NˆB[HY[Y[[J\SWԐPQ -JBˆ[][[J\SWԐPQ  -NˆB[BˆY - - -[\O\X[ۈ [O][ۋ\O][ۋ -H -\O\X[ۈ [O][ۋ\O][ۋ -JH [Y[[J\SWАPRSH -H[][[J\SWАPRS -Nˆ[H[][[J\SWRS -NˆB\O[]KH\O[]KH[O[]KH[O[]KH ˆ\O][ۋH[O][ۋˆ]\ˆB \\K\\\[[BˆY[O\X[ۈOHTPSӗԒQ -Bˆ[O\X[ۈHTPSӗQˆ\O\X[ۈHTPSӗԒQˆB[Bˆ[O\X[ۈHTPSӗԒQˆ\O\X[ۈHTPSӗQˆB[][[J[SWԐP -Nˆ]Z[\ LK -Nˆ\]Wٜ[YJ[[O[[X][ۋO[Y[Y\ H JNˆ\]Wٜ[YJ\\O[[X][ۋO[Y[Y\ H JNˆ\O][ۋH[O][ۋ - - - -[O\X[ۈ - H H JH -[O[[]KܘX\[JNˆBB[HY][Y[[J[SWԐPSH [YH[O[X\][YJBˆ [X\B[OZXX[ۈHSˆ[[[[Nˆ]YJ[Nˆ]\ˆBB[Bˆ[O[X\][YHH[YH - -ؘ[ۙY˙[YWYY NˆBY -^Y\[O^Y\[^K^Z^\ QUPH  -[O\X[ۈˆ -^Y\[O^Y\[^K^\ QSՑSQ -H -^Y\[O^Y\[^K^\ QSՑTQ -JJBˆ^Y\[O^Y\[^K^Z^\ OHQUPˆY[Y[[J[SWԐPPT -JBˆܘX]XԐPPSӗSPАPT -NˆB[HY[Y[[J[SWJBˆY[O[[]Kٜ[Y]Z]H -Bˆ] -NˆB[Bˆ -NˆBB[BˆܘX]XԐPPSӗSPUPNˆBB ܘXܝ\[HY -^Y\[O^Y\[^K^Z^\ QUPH [Y[[J[SWԐPԕT -H  -\[O\X[ۈˆ -^Y\[O^Y\[^K^\ QSՑSQ -H -^Y\[O^Y\[^K^\ QSՑTQ -JJBˆ^Y\[O^Y\[^K^Z^\ HQUPˆܘX]XԐPPSӗSPѓԕT -NˆB ܘX\[HY -^Y\[O^Y\[^K^Z^\ QUPH [Y[[J[SWԐPT -H -^Y\[O^Y\[^K^\ QSՑUT -JBˆ^Y\[O^Y\[^K^Z^\ HQUPˆܘX]XԐPPSӗSPT -NˆB ܘXۂ[HY -^Y\[O^Y\[^K^Z^\ QUPH [Y[[J[SWԐPӊH -^Y\[O^Y\[^K^\ QSՑQӊJBˆ^Y\[O^Y\[^K^Z^\ HQUPˆܘX]XԐPPSӗSPӊNˆB ܛX[ܘX]Xˆ[HY -^Y\[O^Y\[^K^Z^\ QUPH [Y[[J[SWԐPUPJBˆ^Y\[O^Y\[^K^Z^\ HQUPˆܘX]XԐPPSӗSPUPNˆBKܘ]\ - L L JHYYH][[[X][ۂ[HY^Y\[O^Y\[^K^Z^\ QҕST [Y[[J[SWՐUS -JBˆ ܘ]\ - L H^YH]][ȈY[^X]HۘH\[[Y ܘ]\ - KL H^Y[\YH\HܘX]Ẍ[[X][ۈ[YY\][Y\HX\Y ܘ]\ - KL HYYYH]]HZ][\ˆ^Y\[O^Y\[^K^Z^\ HQҕSTˆ[O]X[HUPSPUNˆ[OZXX[ۈH[[ۗܘX]XˆY[\] -[OX\  ^[ي -[OX\ -H - JNˆ[][[J[SWՐUS  -NˆB ܘX]X[\\[HY^Y\[O^Y\[^K^Z^\ -QUPQҕST -JBˆ^Y\[O^Y\[^K^Z^\ HQUPQҕST -N‚ \ܛH[[ˆY[Y[[J[SWԐPUP̊H[Y[[J[SWUPJBˆܘX]XԐPPSӗSPђST -NˆB[Bˆ[O]X[HUPSPUNˆY[\] -[OX\  ^[ي -[OX\ -H - JNˆ[OZXX[ۈH[[ۗܘX]XˆZ[\ -[O[[]K[\ZY [O[[]K[\YY  SWҕST -NˆBB ܘX[B[HY[Y[[J[SWԐPSH XYܘX[[[X][ۈ^\‚ Y[]H\[[[X][[][\Y\HܘX[\X[ ۉ][H[ݙB -\[O[[X][[O[[X][ۈOH[O[[]K[[X][ۖSWԐPSB[O[[X][ۈOH[O[[]K[[X][ۖSWԐPSTB[O[[X][ۈOH[O[[]K[[X][ۖSWԐPSӗB[O[[X][ۈOH[O[[]K[[X][ۖSWԐPPSJJB‚ ^\[ݙ[Y[YVQTRSֈOHVQTPV֊BˆY^Y\[O^Y\[^K^\ QSՑUT -BˆY[O[[]KܘX[YY -Bˆ[O[]KH \[O[[]KܘX[YY ˆB[Bˆ[O[]KH \[O[[]KYY  ˆBB[HY^Y\[O^Y\[^K^\ QSՑQӊBˆY[O[[]KܘX[YY -Bˆ[O[]KH[O[[]KܘX[YY ˆB[Bˆ[O[]KH[O[[]KYY  ˆBB[HYJ^Y\[O^Y\[^K^\ -QSՑUTQSՑQӊJJBˆ[O[]KH ˆBB ^\[ݙ[Y[Y^Y\[O^Y\[^K^\ QSՑSQ -BˆY[O[[]KܘX[YY -Bˆ[O[]KH \[O[[]KܘX[YYˆB[Bˆ[O[]KH \[O[[]KYY ˆBB[HY^Y\[O^Y\[^K^\ QSՑTQ -BˆY[O[[]KܘX[YY -Bˆ[O[]KH[O[[]KܘX[YYˆB[Bˆ[O[]KH[O[[]KYY ˆBB[HYJ -^Y\[O^Y\[^K^\ QSՑSQ -H -^Y\[O^Y\[^K^\ QSՑTQ -JH -Bˆ[O[]KH ˆB ][H[[X][ۜ\YۈH[]H]XݙBY[O[]K[O[]KBˆY - -[O[]K  [O\X[ۈOHTPSӗQ -H -[O[]K  [O\X[ۈOHTPSӗԒQ -JH [Y[[J[SWԐPPSJBˆ[][[J[SWԐPPS -NˆB[HY[O[]K  [Y[[J[SWԐPST -JBˆ[][[J[SWԐPST  -NˆB[HY[O[]K  [Y[[J[SWԐPSӊJBˆ[][[J[SWԐPSӋ -NˆB[Bˆ[][[J[SWԐPS -NˆBY[O[[X][ۈOH[O[[]K[[X][ۖSWԐPSTH [Y[[J\SWԐPQST -JBˆ[][[J\SWԐPQST  -NˆB[HY[O[[X][ۈOH[O[[]K[[X][ۖSWԐPSӗH [Y[[J\SWԐPQSӊJBˆ[][[J\SWԐPQSӋ -NˆB[HY[O[[X][ۈOH[O[[]K[[X][ۖSWԐPPSH [Y[[J\SWԐPQPSJBˆ[][[J\SWԐPQPS -NˆB[HY[Y[[J\SWԐPQSJBˆ[][[J\SWԐPQS -NˆB[HY -[Y[[J\SWԐPQ -JBˆ[][[J\SWԐPQ  -NˆB[Bˆ[][[J\SWRS -NˆBB[Bˆ[][[J[SWԐP -NˆY -[Y[[J\SWԐPQ -JBˆ[][[J\SWԐPQ  -NˆB[Bˆ[][[J\SWRS -NˆBB \HX[[ݙH][]Kۉ[H]\B\O[]KH\O[]KH ˆ[OܘX[[H NˆBY[O]X[OHUPSӓӑJBˆ[O[X\][YHH[YH - -ؘ[ۙY˙[YWYY N \][X\][YH[\[ۂBBY^Y\[ٙX -Bˆ ʂ -\ -ˆY[O[[]KZ\۝ RTӕSёTBˆY -^Y\[O^Y\[^K^\ QSՑSQ -JBˆ[O\X[ۈHTPSӗQˆB[HY -^Y\[O^Y\[^K^\ QSՑTQ -JBˆ[O\X[ۈHTPSӗԒQˆBB ʂ - Y[HY܂ -Y^K[ܚ^۝[[[K -ˆY -[O[[]KZ\۝ RTӕSё -BˆY -J^Y\[O^Y\[^K^\ -QSՑSQQSՑTQ -JJBˆY -[O[]KOH -Bˆ[O[]K -HRTӕѐPԎˆBBB ʂ - Y[[\܂ -ۈ^K[]\[[[K -ˆY -[O[[]KZ\۝ RTӕSё֗ -BˆY -J^Y\[O^Y\[^K^\ -QSՑUTQSՑQӊJJBˆY -[O[]KOH -Bˆ[O[]K -HRTӕѐPԎˆBBB ʈܚ^۝[[ݙH۝ -Y[XYH[ݚ[K -ˆY[O[[]KZ\۝ RTӕSёQT -H [ݙOˆˆY - -^Y\[O^Y\[^K^\ QSՑSQ -H [O[]K -H - -^Y\[O^Y\[^K^\ QSՑTQ -H [O[]K -JBˆ[O[]KH \[O[]KˆBB ʈܚ^۝[[ݙH۝ -[H[ٙK -ˆY[O[[]KZ\۝ RTӕSёSՑJBˆY - -^Y\[O^Y\[^K^\ QSՑSQ -H [O[]K -H - -^Y\[O^Y\[^K^\ QSՑTQ -H [O[]K -JBˆ[O[]KH \[O[]KˆBY -^Y\[O^Y\[^K^\ QSՑSQ -H -\[O[]K -JBˆ[O[]K OH[O[[]KYY ˆB[HY -^Y\[O^Y\[^K^\ QSՑTQ -H -\[O[]K -JBˆ[O[]KH[O[[]KYY ˆBB ʈ[ݙH۝ -Y[XYH[ݚ[K -ˆY[O[[]KZ\۝ RTӕSё֗QT -BˆY - -^Y\[O^Y\[^K^\ QSՑUT -H [O[]K -H - -^Y\[O^Y\[^K^\ QSՑQӊH [O[]K -JBˆ[O[]KH \[O[]KˆBB ʈ[ݙH۝ -[H[ٙK -ˆY[O[[]KZ\۝ RTӕSё֗SՑJBY -^Y\[O^Y\[^K^\ QSՑUT -H -\[O[]KJBˆ[O[]K OH - H -[O[[]KYY -NˆB[HY -^Y\[O^Y\[^K^\ QSՑQӊH -\[O[]KJBˆ[O[]KH - H -[O[[]KYY -NˆBB]\ŸBY^Y\ڝ[\X -Bˆ[[XX[H ‚ ܘ]\ - L L JH^YHZ\[[[[ۂ HYܚ\[[Y[\][H\X\H[[][ۈ]Y[[[\[]Xˆ [H][\KY H[ ]HH[YHYX[[H[[][ۈY\\[\]X\[\YY -[Z\[[ -H -Z\[[ H \[O[[X][H -Z\[[ -[O[[[[HOH[O[\ [[X][ۗY -JJBˆ Z\XX[ YY[[YHYYIBY -[][ OXX[][ OXX[OH H ^Y\[O^Y\[^K^Z^\ QPPS -BˆY[Y[[J[SWҕSTPPS -JBˆ ܘ]\ - L L JH܈YKYY[]\XYH[]H\[H[\XX[[[X][ۂ ^\HY]ۜ[Hۜ[Y\X[܈\YHXX[]ۈ\ۜ[H\Y ][Y H\[[\XX[[[X][ۈXH\[\YY]Y[O[[[[HOHSWҕSTPPS -BˆY[O[[]K[[X][ۖSWҕSTPPSKO[\W  X[\JSTWTWT SWҕSTPPS -JBˆ ܘ]\ - L L JHH[[]HX[X][ۛHܚ[H\PS [ܚ[H\T[[[ܙB[O[\W]K\\[ OH[O[[]K[[X][ۖSWҕSTPPSKO[\W ˆ[XX[H NˆB[HY[O[[]K[[X][ۖSWҕSTPPSKO[\W  X[\JSTWTW SWҕSTPPS -JBˆYJؘ[ۙY˘X] PUSӔPSPUJJBˆ[O[\W]KX[\[ OH[O[[]K[[X][ۖSWҕSTPPSKO[\W ˆB[XX[H NˆB[HY[Y[[J[SWҕSTS -JBˆ[][[J[SWҕSTS  -Nˆ[O[]KHH ˆBBY[XX[ -Bˆ^Y\[O^Y\[^K^Z^\ HQPPSˆ[O]X[HUPSPUN‚ ܘ]\ - L L JHYH[ۈ[܈H^[ݙ[Y[ ܘ]\ - L HZ[܈^ۈH[\XX[BYJ[O[[]K[\XX[ JJBˆ[O[]KH[O[]KH  [[ݙ[Y[[HXX[\ˆ[O[]KHH ˆB[][[J[SWҕSTPPS  -NˆBBK[و[\XX[ ڝ[\]X\ۈܝ\ܛX[ HۉX[\H[HY^Y\[O^Y\[^K^Z^\ QUPBˆ^Y\[O^Y\[^K^Z^\ HQUPˆ[O]X[HUPSPUN‚Y -^Y\[O^Y\[^K^\ QSՑQӊH [Y[[J[SWҕSTUP̊JBˆ[][[J[SWҕSTUP̋ -NˆB[HY -^Y\[O^Y\[^K^\ QSՑUT -H [Y[[J[SWҕSTUPJBˆ[][[J[SWҕSTUP -NˆB[HY[O[[ [Y[[J[SWԕSSTUPJBˆ[][[J[SWԕSSTUP -N YY[^Hۙ[\]X[H^X]YB[HY[O[]KOH  [Y[[J[SWҕSTԕT -JBˆ[][[J[SWҕSTԕT  -N Y[ݚ[[] \]XˆB[HY[Y[[J[SWҕSTUPJBˆ[][[J[SWҕSTUP -NˆBK[و[\]XˆB ʈ -[\ZY۝ \[Y[\ -^H\[X]K -ˆY -[O[[]KZ\۝ RTӕҕSTW -BˆY -J^Y\[O^Y\[^K^\ QҕST -JBˆY -[O[]KH -Bˆ[O[]KH -HRTӕѐPԎˆBBB ʈ -[\ Y[HY܂ -Y^K[ܚ^۝[[[K -ˆY -[O[[]KZ\۝ RTӕҕST -BˆY -J^Y\[O^Y\[^K^\ -QSՑSQQSՑTQ -JJBˆY -[O[]KOH -Bˆ[O[]K -HRTӕѐPԎˆBBB ʂ -[\ Y[[\܂ -ۈ^K[]\[[[K -ˆY -[O[[]KZ\۝ RTӕҕST֗ -BˆY -J^Y\[O^Y\[^K^\ -QSՑUTQSՑQӊJJBˆY -[O[]KOH -Bˆ[O[]K -HRTӕѐPԎˆBBB ʈ[\\۝ -ˆY[O[[]KZ\۝ RTӕҕSTTBˆY -^Y\[O^Y\[^K^\ QSՑSQ -JBˆ[O\X[ۈHTPSӗQˆB[HY -^Y\[O^Y\[^K^\ QSՑTQ -JBˆ[O\X[ۈHTPSӗԒQˆBB ʈ[\ܚ^۝[[ݙH۝ -Y[XYH[ݚ[K -ˆY[O[[]KZ\۝ RTӕҕSTQT -BˆY - -^Y\[O^Y\[^K^\ QSՑSQ -H [O[]K  -H - -^Y\[O^Y\[^K^\ QSՑTQ -H [O[]K -JBˆ[O[]KH \[O[]KˆBB ʈ[\ܚ^۝[[ݙH۝ -[H[\ -K -ˆY[O[[]KZ\۝ RTӕҕSTSՑJBY - -^Y\[O^Y\[^K^\ QSՑSQ -H [O[]K -H - -^Y\[O^Y\[^K^\ QSՑTQ -H [O[]K -JBˆ[O[]KH \[O[]KˆBY -^Y\[O^Y\[^K^\ QSՑSQ -H -\[O[]K -JBˆ[O[]K OH[O[[]KYY ˆB[HY -^Y\[O^Y\[^K^\ QSՑTQ -H -\[O[]K -JBˆ[O[]KH[O[[]KYY ˆBB ʈ[\[ݙH۝ -Y[XYH[ݚ[K -ˆY[O[[]KZ\۝ RTӕҕST֗QT -BˆY - -^Y\[O^Y\[^K^\ QSՑUT -H [O[]K -H - -^Y\[O^Y\[^K^\ QSՑQӊH [O[]K -JBˆ[O[]KH \[O[]KˆBB ʈ[\[ݙH۝ -[H[\ -K -ˆY[O[[]KZ\۝ RTӕҕST֗SՑJBˆY -^Y\[O^Y\[^K^\ QSՑSQ -JBˆ[O\X[ۈHTPSӗQˆB[HY -^Y\[O^Y\[^K^\ QSՑTQ -JBˆ[O\X[ۈHTPSӗԒQˆBY - -^Y\[O^Y\[^K^\ QSՑUT -H [O[]K -H - -^Y\[O^Y\[^K^\ QSՑQӊH [O[]K -JBˆ[O[]KH \[O[]KˆBY -^Y\[O^Y\[^K^\ QSՑUT -H -\[O[]KJBˆ[O[]K OH - H -[O[[]KYY -NˆB[HY -^Y\[O^Y\[^K^\ QSՑQӊH -\[O[]KJBˆ[O[]KH - H -[O[[]KYY -NˆBB]\ŸBY^Y\Z[X -BˆY^Y\XXX[ - -JBˆ[O[Z[HSRSӓӑNˆ[O\[HTSӓӑNˆ[OX[HPӓӑNˆ[O[XZ[H ˆBBX\X]X[]\ -]XY^Y\YWX -BˆY[Y[[J[SWԒTPUPH  -^Y\[O^Y\[^K^Z^\ QUPH  -^Y\[O^Y\[^K^\ QSՑUT -H  -[O[\W]KX[\[  [YH[O^Yۋ\X]X[ -JBˆ^Y\[O^Y\[^K^Z^\ HQUPˆY -^Y\[O^Y\[^K^\ QSՑSQ -JBˆ[O\X[ۈHTPSӗQˆBY -^Y\[O^Y\[^K^\ QSՑTQ -JBˆ[O\X[ۈHTPSӗԒQˆB[O[[YHH ˆ]ܚ\X]X[[O\[XYW\K -NˆBBY^Y\\WX -BˆYJ -^Y\[O^Y\[^K^\ QҕST -H  -^Y\[O^Y\[^K^\ QPPS -JJBˆ[OZXX[ۈHSˆ[O\[H ˆ]YJ[NˆBBXZHH[[ۈ[[ZY\[\BU[\X\H[\ܘ\H^܈[\[[[X[ݙJ[[[[\XBˆY - -OH H ][ OXX[ H -OH  ][ OXX[OH -H -OH  ][ OXX[OH JH  -X[\JSTWTW HX[\JSTWTWT JH -BˆYZ[\XBˆ[OZXX[ۈH[[ۗ]XˆB ܘ]\ - L L JHH[[]HX[X]YX^Y\ۛK[[ZY\܈ˆ [H[[]HX[X][ۛHܚ[H\PS [ܚ[H\T[[[ܙBY[O[[]K\H TWVQTBˆY[ -BˆYJؘ[ۙY˘X] PUSӔPSPUJJBˆY[O[[]K[[X][ۖKO[\W -BˆYX[\JSTWTWT JBˆ[O[\W]K\\[ OH[O[[]K[[X][ۖKO[\W ˆB[Bˆ[O[\W]KX[\[ OH[O[[]K[[X][ۖKO[\W ˆBBB[BˆY[O[[]K[[X][ۖKO[\W -BˆYX[\JSTWTWT JBˆ[O[\W]K\\[ OH[O[[]K[[X][ۖKO[\W ˆBBBBB[BˆY[ -BˆY[O[[]K[[X][ۖKO[\W -BˆYX[\JSTWTWT JBˆ[O[\W]K\\[ OH[O[[]K[[X][ۖKO[\W ˆB[Bˆ[O[\W]KX[\[ OH[O[[]K[[X][ۖKO[\W ˆBBBBB\[O[[HSUWӓӑNˆ[O[]KH[O[]KH ˆ]]X[[Nˆ[O[Z[HSRSӓӑNˆ[O\[HTSӓӑNˆ[O[XZ[H ˆY[\] -[OX\  ^[ي -[OX\ -H - JNˆ[[[[Nˆ[][[J[ -Nˆ]\ NˆB]\ ŸBʂ\^K[[ۈ L LMŠXܙH\[[YH܈]\H]H\Y[X[[]Y˂\X[[\X[ۋ\[]]HY\HH[YB X]\XK\[HY][^ݚY\Š[Z[]]H\[[[X[ Z\ܞH[˂œ]XY[X[[]\\]J^Y\X[^Y\ۜ^WX\\YٛYۜZ[ ][[YBHˆ^WX\[X\H\YٛY‚[J[X\HˆۜZ[ [][^B]X\͍]\[^ -[X\N‚ۜ^WX\[]ٛYB]X\͍ٜW[^ -[][^ -N‚X[^Y\O[X[[]\[YVˆ[][^HH][[YN‚X[^Y\O[X[[]\ݘ[YB[]ٛY‚ ʂ -H]\Y[H]۝[[\ X\ -H]]X]X]Y\Xܙ[YH\[ -Y\YZ[܈H]  -ˆX[^Y\O[X[[]Y\ݘ[Y B[]ٛY‚[X\ H[]ٛYˆBBʂ\^K[[ۈ L LMŠX]]X]X[ Z[]Y\XXXZ\ۙY\Y\ۈ\X[X˂\YHHHX[[]IۙY\XBXX[[X[ˈH\Z[][Y\[\][BXۙ[]Y\\[H[YHXH[Z][ŠH[YHYHYZ[Y\[\܈H[YB[][XZ[[\[[X]\HXX\XXYۈBY\[X[X\[ۙH۝[[\ œ]X^WX\[X[[]Y\X -^Y\X[^Y\ۜ^WX\[ٛYۜZ[ ][[YBHˆۜ[]JX[[]N‚^WX\XYٛYH ‚[XX[[^‚YXX[^Y\XX[^Y\O[ -Hˆ]\ ˆBX[[]HHX[^Y\O[‚܊XX[[^H ˆXX[[^X[[]KO[[]KXX[YYˆXX[[^ -H‚ۜJXX[[X[B X[[]KO[[]KXX[XX[[^N‚[\[^‚YXX[[X[ O\H XX[[X[ O\PVPPSSUHˆ۝[YNˆB܊\[^H ˆ\[^XX[[X[ O\ˆ\[^ -H‚ۜ[X[[]\ -[]\B XX[[X[ O[]\[^N‚^WX\[X\B[]\ OY\ [ٛY‚[J[X\HˆۜZ[ [][^B]X\͍]\[^ -[X\N‚ۜ^WX\[]ٛYB]X\͍ٜW[^ -[][^ -N‚ۜZ[ \[YHBX[^Y\O[X[[]\[YVˆ[][^N‚ۜ[XYW[Z]Y\XB -X[^Y\O[X[[]Y\ݘ[Y []ٛYB X[^Y\O[X[[]Y\[YVˆ[][^HOH][[YN‚Y -X[^Y\O[X[[]\ݘ[Y []ٛYB \[YHH][[YB ][[YH H\[YBOH[]\ O[YB X[XYW[Z]Y\XH‚XYٛYH[]ٛYˆB[X\ H[]ٛYˆBBB ʂ -Xܙ[Z]YYۛHY\[[]\B -[X[ [X[\[H[YH[][ -\[X\][H\HۙH\ܞHYK -ˆˆ^WX\[X\HXYٛY‚[J[X\HˆۜZ[ [][^B]X\͍]\[^ -[X\N‚ۜ^WX\[]ٛYB]X\͍ٜW[^ -[][^ -N‚X[^Y\O[X[[]Y\[YVˆ[][^HH][[YN‚X[^Y\O[X[[]Y\ݘ[YB[]ٛY‚[X\ H[]ٛYˆBB]\XYٛYŸBʂ\^K[[ۈ L LMŠ\[ۙH][H^Y\[X[\ܞKœ]XY[X[[]\ܞW\ -^Y\X[^Y\ۜ[X[[]][ -[]][ -HˆX[^Y\O[X[[]\ܞVX[^Y\O[X[[][^HH -[]][‚X[^Y\O[X[[][^H -X[^Y\O[X[[][^ - JH PPSSUSVPT‚YX[^Y\O[X[[][PVPPSSUHˆX[^Y\O[X[[][ -ˆBBʂ\^K[[ۈ L LMŠۜ[YHH]\\YHHH^Y\[X[\ܞK]\[\ XY[ݙ[Y[[X[ۜ[YHZ\Y\[\ˈHX[Y][X^H[۝Z[B[X\H܈]]X]XYKۛH[[ݙHB\]H[H[\YH[XZ[˂œ]XY[X[[]\ܞWۜ[YW]\\^Y\X[^Y\Hˆ[X[[]][ -[]][‚Z[ [][^‚YXX[^Y\XX[^Y\O[X[[][ -Hˆ]\ˆB[][^B -X[^Y\O[X[[][^ H JB PPSSUSVPT‚[]][B X[^Y\O[X[[]\ܞVˆ[][^N‚[]][ O\H ˆ[]][ O\ܙH ‚Y[]][ O[]][ O[X\JHˆ]\ˆBX[^Y\O[X[[][^H[][^‚Y[\] -[]][  ^[ي -[]][ -JN‚X[^Y\O[X[[][ KNŸBʂ\^K[[ۈ L LMŠۜ[YH[XY]]X]X[ Z[]YHB][XY\YHۙY\XH[X[ \Y[XZ[]Z[XH[H[YH\ܞB[H[۝Z[H\[X\K܈[\[YK[\Hۋ[]\[Y\^H[XH[Šܙ\[ܙY][Y\YY\X[ۋœ]XY[X[[]\ܞWۜ[YWY\^Y\X[^Y\ۜZ[ ][YKۜ^WX\Y\ٛYŠHˆ[X[[]][ -[]][‚Z[ [][^‚YXX[^Y\]Y\ٛYˆ][YHHX[^Y\O[X[[][ -Hˆ]\ˆB[][^B -X[^Y\O[X[[][^ H][YH H JB PPSSUSVPT‚[]][B X[^Y\O[X[[]\ܞV[][^N‚[]][ O HY\ٛY‚Y[]][ O\ˆ[]][ O[]][ O[X\B][YJHˆ]\ˆBX[^Y\O[X[[][^H[][^‚Y[\] -[]][  ^[ي -[]][ -JN‚X[^Y\O[X[[][ KNŸBʂ\^K[[ۈ L LMŠXYHXY[[Y][HH^Y\Š[X[\ܞKœ]Xۜ[X[[]][ -[X[[]\ܞW][\ۜ^Y\X[^Y\Z[  -\ܞW[^ Z[  -[XZ[[][ŠHˆYJ[XZ[[][Hˆ]\SˆB -\ܞW[^B - -\ܞW[^ H JH PPSSUSVPT‚ - -[XZ[[][KKN‚]\ X[^Y\O[X[[]\ܞVˆ -\ܞW[^NŸBʂ\^K[[ۈ L LMŠXYHXY[\][HH^Y\Š[X[\ܞKۋ\\[Y\\H\Y[X\H[[YY][[HYY]][[YXB\ XY[X[Z][܋œ]Xۜ[X[[]][ -[X[[]\ܞW][\\ۜ^Y\X[^Y\Z[  -\ܞW[^ Z[  -[XZ[[][ŠHˆۜ[X[[]][ -[]][‚[J -[]][H[X[[]\ܞW][\X[^Y\\ܞW[^ [XZ[[][ˆ -JJH‚Y[]][ O\Hˆ]\[]][ˆBB]\SŸBʂX]\H^Y\[X[\Š][]\ٞHH\ XY[X[\]Y[KXX\]Y[H[H\H]X\و\]Z\Y[]ˈHXܙY\X^H۝Z[Y][ۘ[Y[[X] [X\H[[YY][\H[X\][BYۛܙY^\[\ XY[X[]Z[Z\]]KYYHZ][܋œ]XX]Xۜ^WX\\]Y[VKۜ^Y\X[^Y\ۜZ[ [ -Hˆۜ[X[[]][ -[]][‚Z[ \ܞW[^ˆZ[ ]\][[YNˆZ[ [XZ[[][ˆZ[ \]Y[W[^‚Y\\]Y[BXX[^Y\[[[PVPPSSUHˆ]\[NˆB\ܞW[^HX[^Y\O[X[[][^ˆ]\][[YHH[YNˆ[XZ[[][HX[^Y\O[X[[][‚܊\]Y[W[^H[ˆ\]Y[W[^ ˆ\]Y[W[^ KJH‚ۜ^WX\\]Z\Y\B\]Y[V\]Y[W[^ H WN‚[]][H[X[[]\ܞW][\\X[^Y\ \ܞW[^  [XZ[[][ˆ -N‚YZ[]][ -[]][ O\ \]Z\Y\BOH\]Z\Y\ˆ]\][[YH H[]][ O[YBؘ[ۙY˘[X[[YJHˆ]\[NˆB]\][[YHH[]][ O[YNˆB]\YNŸBʂ]\HܘXH[YH\YHۙHۙY\XH[X[\]Y[K[X[]][^X]ݙ\YH[\]H[[K]YH][]X][YKœ]XZ[ [X[\]Y[WܘXW[YW] -ۜJXX[[X[Hˆ\\ -XX[[X[ -N‚]\XX[[X[ O\]Y[WܘXW[YWݙ\YBXX[[X[ O\]Y[WܘXW[YBؘ[ۙY˘[X[[YNŸBʂ]\Hۙ\ܘXH[YHYYYHHX[Š[]IۙY\XH[\ XY[X[˂[]\ܞH\\YH]\H[X[ ]Z[[]܈Hۙ\ۙY\YܘXH][H[X[]Hۙ\[ݙ\YHH[]X\Y\\Hؘ[\ܞH[Y[] œ]XZ[ [X[[]\ܞWܘXW[YW] -ۜ[]JX[[]BHˆZ[ \ܞWܘXW[YHHؘ[ۙY˘[X[[YN‚[XX[[^‚YXX[[]JHˆ]\\ܞWܘXW[YNˆB܊XX[[^H ˆXX[[^X[[]KO[[]KXX[YYˆXX[[^ -H‚ۜJXX[[X[B X[[]KO[[]KXX[XX[[^N‚ۜZ[ \]Y[WܘXW[YHB[X[\]Y[WܘXW[YW] -XX[[X[ -N‚Y\]Y[WܘXW[YH\ܞWܘXW[YJHˆ\ܞWܘXW[YHH\]Y[WܘXW[YNˆBB]\\ܞWܘXW[YNŸBʂ]\HX]HX[X[\Y[X[\ܞH^\\ˈ]\][ۈ\\\^[Y[H\BܙX]܋YY[YܘXH[Y\]]ܘ\[B^\][ۈ[YH\[HY[[وH˂œ]XZ[ [X[[]\ܞW^\][ۗ[YW] -ۜ[]JX[[]KۜZ[ ][[YBHˆۜZ[ \ܞWܘXW[YHB[X[[]\ܞWܘXW[YW] -X[[]JN‚Y\ܞWܘXW[YHRS PV H][[YJHˆ]\RS PVˆB]\][[YH -\ܞWܘXW[YNŸBʂ]\]\[[]][]\ٚY\H]]BYH\]Z\[Y[܈ۙHۙY\XH[X[\ [KZ^H\]Z[^XYXHZ][܈[\BۛHH\X[\YK][KZ^H\\HBܙۘ\[Z\ۙY\Yܙ[YK\Š\]Z\\]\HY[X\Y[ۈH[YHX[X˂]X\ۙH\]Z\Y^H]\H\X[H\Y[HY\[][ ][[[[[]Y\^BH]Y\[HܙXY\[H[XZ[[ œ]X[X[[]][X]\\ۜ[X[[]\ -[]\ ۜ[X[[]][ -[]][ ۜ^Y\X[^Y\Hˆۜ^WX\\]Z\Y\H[]\ O\‚^WX\[X\‚Y\\]Z\Y\Hˆ]\YNˆB ʂ -HX\]ۙHX]H]\Xۙ]Y\ -[[ݚ[]\]  -ˆYJ\]Z\Y\ -\]Z\Y\ H JJJHˆ]\ -[]][ O\ \]Z\Y\BOH\]Z\Y\ˆBYJ[]][ O\ \]Z\Y\B -[]][ O\ܙ \]Z\Y\BOH\]Z\Y\Hˆ]\[NˆB[X\H\]Z\Y\‚[J[X\HˆۜZ[ [][^B]X\͍]\[^ -[X\N‚ۜ^WX\[]ٛYB]X\͍ٜW[^ -[][^ -N‚ۜZ[ \[YHBX[^Y\O[X[[]\[YVˆ[][^N‚YJX[^Y\O[X[[]\ݘ[Y []ٛYB\[YH[]][ O[YB[]][ O[YH H\[YB[]\ Oܙ[YJHˆ]\[NˆB[X\ H[]ٛYˆB]\YNŸBʂ]\]\[[]][]\ٚY\]\H\]B[]]X]X[\]Z\[Y[܈ۙH[X[\ œ]X[X[[]][X]\ -ۜ[X[[]\ -[]\ ۜ[X[[]][ -[]][ ۜ^Y\X[^Y\Hˆۜ^WX\\]Z\YٛYB[]\ O[]\ OY\‚^WX\[X\‚Y\\]Z\YٛYHˆ]\YNˆBY -[]][ O[ \]Z\YٛYBOH\]Z\YٛYHˆ]\[NˆB[X\H\]Z\YٛY‚[J[X\HˆۜZ[ [][^B]X\͍]\[^ -[X\N‚ۜ^WX\[]ٛYB]X\͍ٜW[^ -[][^ -N‚ۜZ[ \[YHBX[^Y\O[X[[]\[YVˆ[][^N‚YJX[^Y\O[X[[]\ݘ[Y []ٛYB\[YH[]][ O[YJHˆ]\[NˆBˆۜZ[ [[YHB[]][ O[YH H\[YN‚ ʂ -\]HX\H[\]HZ[[][B -YH[ۘ[[\]HX^[][KB -\X^[][HX]\H\\[[ -]]X]XX]ۛHZ\^X -Z[[][H\YK][[H]\ -\܈H[YH^HH]Y\[ˆ -[X\Y\]]X]X[X[  -ˆY - -[]\ O []ٛYB -[[YH[]\ O[YB -[]\ O[YWX^[][B [[YB[]\ O[YWX^[][JJJB - -[]\ OY\ []ٛYB [[YHOH[]\ O[YJJHˆ]\[NˆBB[X\ H[]ٛYˆB]\YNŸBʂXYHXY[][HYH\H\[][HۙY\XH[X[\ [X\K[ۛH][\\\[ۛH\[\[ۛH][\\[X\K[ۛB\ˈ[][وH\]Z\Y\H]Hܛۙ^B\]\Y]ܜXH[\\H\]Y[Kœ]Xۜ[X[[]][ -[X[[]\ܞW][\ٛܗ\ -ۜ^Y\X[^Y\ۜ[X[[]\ -[]\ Z[  -\ܞW[^ Z[  -[XZ[[][ŠHˆۜ[X[[]][ -[]][‚[J -[]][H[X[[]\ܞW][\X[^Y\\ܞW[^ [XZ[[][ˆ -JJH‚Y -[]\ O\ []][ O\B -[]\ O[X\H []][ O[X\JB -[]\ OY\ []][ O -JHˆ]\[]][ˆBB]\SŸBʂX]\H^Y\[X[[]][Š]\ٞHHۙY\XHXX[[X[ \[X\K[]]X]XX\\HYB\]Z\[Y[ˈ\]H\H]H[Z[[][B\][ۈ\]Z\[Y[][X]Y]HY\[][ œ]XX]XX[[X[ -ۜ[X[[]\\]Y[VKۜ^Y\X[^Y\ۜZ[ [ ۜZ[ \]Y[WܘXW[YKZ[  -X][YKZ[  -X]YBHˆۜ[X[[]][ -[]][‚Z[ \ܞW[^ˆZ[ ]\][[YNˆZ[ [XZ[[][ˆZ[ \]Y[W[^‚Y\\]Y[BXX[^Y\[X][YB[X]YB[[[PVPPSSUHˆ]\[NˆB -X][YHH ˆ -X]YHHRS PV‚\ܞW[^HX[^Y\O[X[[][^ˆ]\][[YHH[YNˆ[XZ[[][HX[^Y\O[X[[][‚܊\]Y[W[^H[ˆ\]Y[W[^ ˆ\]Y[W[^ KJH‚ۜ[X[[]\ -[]\B \]Y[V\]Y[W[^ H WN‚[]][H[X[[]\ܞW][\ٛܗ\ -X[^Y\[]\  \ܞW[^  [XZ[[][ˆ -N‚YZ[]][X[X[[]][X]\\[]\ []][ X[^Y\ -B -[]][ O[X\H []\ O[X\JBOH[]\ O[X\B -[]][ O []\ OY\BOH[]\ OY\]\][[YH H[]][ O[YB\]Y[WܘXW[YBX[X[[]][X]\ -[]\ []][ X[^Y\ -JHˆ]\[NˆBY\]Y[W[^OH[ -Hˆ -X][YHH[]][ O[YNˆ -X]YHBX[^Y\O[X[[][ H[XZ[[][ H NˆB]\][[YHH[]][ O[YNˆB]\YNŸBXX^Y\X[^Y\H‚[YۙY[Nˆ[X^\H LNˆ[X^^\H LNˆ[[YH LN‚Z[ Z[X]YHHRS PVˆZ[ X^X][YHH ˆ^WX\[XYY\ٛYH ‚X]ٛ[H[N‚H -N‚܊HH H[O[[]KXX[YYJH‚HH[O[[]KXX[ -N‚Y[O[[X][ۋO[[OHSSPUSӗSSTPQ  -[O[[[[HOHKO[[KO[YKZ[[O[[\KO[YKX^[O[[\[O[[X][ۋO][KO]JHˆ۝[YNˆH[HY[O[[X][ۋO[[OHSSPUSӗSSTPQ -KO[[\^Y\X\YW[] -[HY[O][ۋK[O\JH JJHˆ۝[YNˆBˆZ[ [X[X]YNˆZ[ [X[X][YN‚ۜZ[ \]Y[WܘXW[YHB[X[\]Y[WܘXW[YW] -JN‚Y[Y[[J[KO[[JB -X[\JSTWTWT KO[[JHX[\JSTWTW KO[[JJB X]XX[[X[ -KO[] X[^Y\KO\\]Y[WܘXW[YK [X[X][YK [X[X]YB -JH‚ ʂ -Y\H[X[Y\YHH]\ -[]][ [YH\\][XܙY -\[H[YHX[Xˈ[X[\[ˆ -]][]Z[H^\[ۙ\ \\]Y[K -[ܙX]\ Xܙ \^H[[˂ -ˆۜ]\X]B[X]ٛ[[X[X]YHZ[X]YB -[X[X]YHOHZ[X]YB -[X[X][YHX^X][YB -[X[X][YHOHX^X][YB -KO\X^\ -KO\OHX^\ KO[Z^\X^^\JJJJN‚YX]\X] -Hˆ۝[YNˆB[YHKO[[NˆZ[X]YHH[X[X]YNˆX^X][YHH[X[X][YNˆX^\HKO\ˆX^^\HKO[Z^\ˆ[XYY\ٛYBKO[]KO\ H WKY\ˆX]ٛ[HYNˆBBBY[YH  X[ݙJ[Y  K[O[\[JHˆ ʂ -]]X]X[Y\\HۙK\[]][˂ -ۜ[YHH[XY[[ \\YۛHY\ -H[ݙH\X\ٝ[K\[X\K -[[[]Y]]X]XY[XZ[]Z[XK -ˆ[X[[]\ܞWۜ[YWY\X[^Y\Z[X]YK[XYY\ٛYˆ -N‚]\YNˆB]\[NŸBʂ\^K[[ۈ L L HܚY[[Hܚ][HYYH -[ۛۈ]JK]ܚ][X]\]\H^Y\\H[[[X[\]Y[H^X]K˜^Y\Z[] - -Hˆ^Y\ -X[^Y\H^Y\ -[O^Y\[^‚YXXX[^Y\JHˆX[^Y\O^Z^\ HQӕVT‚]\YNˆB]\[NŸBʂ\^K[[ۈ LLLH[[Y^Y\ۙ\[]\X[ۂ]\YH[Y[Wܝ[X[]JX[[]KۜWԝ[\X[ۈ[ݙ^ ۜWԝ[\X[ۈ[ݙ^ۜWԝ[\X[ۈ[[ ۜWԝ[\X[ۈ[[ދۜ[[ۙYћYۜ[\[X[Yۜ[\^YYۜ[[XYYۜ[]QYHˆY -J[ۙYћY [XYYH -\^YY XX[[]KO[[X][B - -\[X[Y XX[[]KO[[X][B -Y[ݙ^ [[ -H -[ݙ^OHST֗ӓӑHX[[]KO[[ SUWT -JB -Y[ݙ^[[ފH -[ݙ^OHSTӓӑHX[[]KO[[ SUWT֊JJJHˆX[[]KO[[H]QYˆBBʂ\^K[[ۈ LLLBX^Y\[][[[[ۈYYYY Y[Wܝ[^Y\[]JX[[]Kۜ^Y\X[^Y\BۜWܝ[]H[]HHX[[]KO[[‚Y -[]HOHSUWӓӑJBˆ]\ˆB ʂ -]^Y\\X[ۘ[[] -H^H]\˂ -‚ۜWԝ[\X[ۈ[ݙ^H -X[^Y\O^\ QSՑUT -HST֗T -X[^Y\O^\ QSՑQӊHST֗ӈST֗ӓӑNˆۜWԝ[\X[ۈ[ݙ^H -X[^Y\O^\ QSՑSQ -HSTQ -X[^Y\O^\ QSՑTQ -HSTԒQSTӓӑN‚ ʂ -]H[[\X[ۈB -[]K -‚ۜWԝ[\X[ۈ[[ވH[]H - -X[[]KO[]K -HST֗T -X[[]KO[]K -HST֗ӈST֗ӓӑJHST֗ӓӑNˆۜWԝ[\X[ۈ[[H[]H - -X[[]KO[]K -HSTQ -X[[]KO[]K -HSTԒQSTӓӑJHSTӓӑN‚ ʈ\܈XYX[]H[ˈ -ˆۜWܝ[ۙYٛYX[ܝ[ۙYٛYHX[[]KO[[]K[ۙYٛY‚ ʂ -[[ˆ - - K^\\X[ۋ - XH[[\X[ۏˆ - ˈ^Y\^Y\\ -[H[[X][ۈ\]\ˈ^B -YۛܙH[X\[H^H[ -ۈH\[X[\^\[X[ -][YH[[ݙHۈH\ -^\ˈHH\^\\YۛܙY -HXۜX[K - - ۈ[΂ - H\X[ۈ[X[  - H\X[ۈ[X[\\[\X[ۋ - H\[X[\^\[X[[Hۉ]HHY[XY  - -\X]X܈]H\X[ۂ -[܈^\˂ -‚] -[[ -Hˆ\HSTQ[Wܝ[XX[[]K[ݙ^ [ݙ^[[ [[ދX[ܝ[ۙYٛYSӑQQTSPS SӑQQTђVQ SӑQQSPQ SUWӓӑJNˆXZ‚\HSTԒQ[Wܝ[XX[[]K[ݙ^ [ݙ^[[ [[ދX[ܝ[ۙYٛYSӑQԒQTSPS SӑQԒQTђVQ SӑQԒQSPQ SUWӓӑJNˆXZ‚\HSTӓӑNXZˆB] -[[ފHˆ\HST֗T[Wܝ[XX[[]K[ݙ^ [ݙ^[[ [[ދX[ܝ[ۙYٛYSӑQ֗TTSPS SӑQ֗TTђVQ SӑQ֗TSPQ SUWӓӑJNˆXZ‚\HST֗ӎ[Wܝ[XX[[]K[ݙ^ [ݙ^[[ [[ދX[ܝ[ۙYٛYSӑQ֗ӗTSPS SӑQ֗ӗTђVQ SӑQ֗ӗSPQ SUWӓӑJNˆXZ‚\HST֗ӓӑNXZˆBBʂ\^K[[ۈ L LM]\YH[H[]HX^H\ܙ[\HYK\]H^Y\[] ˜^Y\X\YW[] -ۜ[]H -X[[]JHˆۜ[[H -[[X][ۈHX[[]KO[[X][ێ‚YX[[]KOY[Hˆ]\YNˆBYX[[X][ۂX[[X][ۋOYB[[X][ۋO[Y[Y\H X[[]KO[[\ˆH -Z[  -X[[X][ۋO[Y[Y\Hˆ]\[NˆB]\[[X][ۋOYVX[[]KO[[\HYH[NŸBY^Y\[ -Bˆ\YY[[HW[X[ۗٛYˆˆPSӗӓӑKPSӗSPSӗT PSӗӋPSӗԕSHW[X[ۗٛY‚W[X[ۗٛYX[ۈH ˆX[H[N ؘX[ˆ[]H -\HSˆ][]X[ڝ[\ݙ[]WވH ‚[]JX[[]HH[‚ۜ^WX\\]Y[WYYHHѓQSՑSQ QSՑSQNˆۜ^WX\\]Y[WܚYܚYHHѓQSՑTQ QSՑTQNˆۜ^WX\\]Y[W\\HHѓQSՑUT QSՑUTNˆۜ^WX\\]Y[WۗۖHHѓQSՑQӋQSՑQӟN[HHX[[]KO^Y\[^ˆ^Y\ -X[^Y\H^Y\ -N‚YX[^Y\O[OHX[[]HX[[]KOX]]H PUUWPQ -Bˆ]\ˆB ʂ -\HHX[H[][[]Oˆ -ˆY -\H[[\JX[[]KX[[]KO][ۋ X[[]KO][ۋTWSUS S -JH YX[[]KO][ۋK\O][ۋJHH JH‚^Y\ܙXXYH[NˆZ[ [WۛܙXXYH ˆZ[ [WܙXXYH ˆZ[ Nˆ܈ -HH HPVVQTJHˆY -\XXYWJ^ˆ[WۛܙXXY -ˆBB^Y\ܙXXYH -[WۛܙXXYHPVVQTHYH[N‚Y^Y\ܙXXY -HˆYܙJK\O[[]KܙJNˆBXXYWHHYN‚܈ -HH HPVVQTJHˆ[WܙXXY -HXXYWNˆBY -[\O[[]KX\H -\O[[]KX\HOHPTWГ [WܙXXYH -[[TWVQTJJJHˆ][\]YH N‚Y\O[[]K[ -HˆJ[ۘ[YK\O[[]K[ PVӐSQWSN ۛ[H[[[\][B]\ˆBB ʂ -\]X[Y[YH\^\Y  -ˆY[YHX[[]KO\ [YJHˆX[[]KO\ [H ˆX[[]KO\ [YHH ˆBY^Y\Z[] - -JHˆ[[XˆBYX[[]KO\[Hˆ^Y\\WX -Nˆ[[XˆBYX[[]KO[Z[ SRSӓӑH -X[[]KO[ XX[[]KOܘX[JHˆ^Y\Z[X -Nˆ[[XˆB [[X܈[[ˆYX[[]KOڙX[H THˆ^Y\٘[X -Nˆ[[XˆB ܘXX[ۋ۝[ݙHY[[[X][ˆYX[[]KOܘX[ X[[]KO]X[OHUPSӓӑH X[[]KOZXX[ۈOH[[ۗZ] -Hˆ^Y\ܘXX -Nˆ[[XˆB [\X[ۂYX[[]KO[\[Hˆ^Y\ڝ[\X -Nˆ[[XˆBYX[[]KO[[[[HOHSWSёHˆ^Y\[ٙX -Nˆ[[XˆBYX[[]KO X[[]KO][ۋHOHX[[]KO\H XX[[]KO[]KJHˆ^Y\YWX -Nˆ[[XˆB ʂ -XY^Y\\[H]H][ˆ -ܙ[\HYK\]H[]\[ˈY  -\H\وH[]X˂ -ˆY\^Y\X\YW[] -X[[]JJHˆ[[XˆB XY[]H\[\H]ܛB ʚYX[[]KO[[]K[ݙWۙYٛY SՑWӑQPPUԓH -ZY\HX[[]KO[[X][ۋO^KHX[[]KO[[X][ۋO^KHX[[]KO[[]K^KJH [Y[[JX[[]KSWPH X]ܛWؙ]Y[X[[]KO][ۋ X[[]KO][ۋX[[]KO][ۋKX[[]KO][ۋH -ZY\X[[]JJBˆX[[]KOY[HQSӓӑNˆX[[]KOX[HPPUNˆX[[]KOZXX[ۈH[[ۗX[\X]ˆ[][[JX[[]KSWP -Nˆ[[XˆJ‚ۜ][YHYX[[]KO][ۋKX[[]KO\JNˆۜ[Z\H -X[[]KO[Yۗ]ܛH[Y H[Y N‚YX[^Y\O^Z^\ QSՑUT -H‚ۜ[X[X]H -[Z\ X]X\]Y[W\\ X[^Y\ JN‚Y[X[X] -X[[]KO[[]K[ۙYٛY -SӑQ֗TSPQSӑQ֗TSUPS -JHOH -SӑQ֗TSPQSӑQ֗TSUPS -H [Y[[JX[[]KSWԕSJHˆX[^Y\O^Z^\ HQSՑUTˆ[X[[]\ܞWۜ[YW]\\X[^Y\NˆX[[]KO[[HSUWT ^Y\Y[[H[HY[X[X] [Y[[JX[[]KSWUPT -JH‚ ]HHX]XˆX[^Y\O^Z^\ HQSՑUTˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KOX\HH ˆX[[]KO[]KHX[[]KO[]KH ˆ[][[JX[[]KSWUPT  -Nˆ[X[[]\ܞWۜ[YW]\\X[^Y\N \ܚ\[X[Y][Y\XX[ [[XˆH[HY[X[X] [Y[[JX[[]KSWJJHˆ ]H[ݙHZHۈԌˆX[^Y\O^Z^\ HQSՑUTˆX[[]KOZXX[ۈH[[ۗNˆX[[]KOX\HH ˆX[[]KOY[HQSӓӑNˆX[[]KO[]KH XX[[]KO[[]KYY  - KNˆX[[]KO[]KH [H[\H[\[YH[YH\[]^B[][[JX[[]KSWK -Nˆ[X[[]\ܞWۜ[YW]\\X[^Y\Nˆ[[XˆBBYX[^Y\O^Z^\ QSՑQӊHˆۜ[X[X]H -[Z\ X]X\]Y[WۗۋX[^Y\ JN‚Y[X[X] -X[[]KO[[]K[ۙYٛY -SӑQ֗ӗSPQSӑQ֗ӗSUPS -JHOH -SӑQ֗ӗSPQSӑQ֗ӗSUPS -H [Y[[JX[[]KSWԕSJHˆX[^Y\O^Z^\ HQSՑQӎˆ[X[[]\ܞWۜ[YW]\\X[^Y\NˆX[[]KO[[HSUWT֎ ^Y\Y[[H[HY[X[X] [Y[[JX[[]KSWUPӊJHˆ ]X]XˆX[^Y\O^Z^\ HQSՑQӎˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆ[][[JX[[]KSWUPӋ -Nˆ[X[[]\ܞWۜ[YW]\\X[^Y\Nˆ[[XˆH[HY[X[X] [Y[[JX[[]KSWJJHˆ ]H[ݙHZHۈԌˆX[^Y\O^Z^\ HQSՑQӎˆX[[]KOZXX[ۈH[[ۗNˆX[[]KOX\HH ˆX[[]KOY[HQSӓӑNˆX[[]KO[]KHX[[]KO[[]KYY  - KNˆX[[]KO[]KH ˆ[][[JX[[]KSWK -Nˆ[X[[]\ܞWۜ[YW]\\X[^Y\Nˆ[[XˆBBY -X[^Y\O^Z^\ -QSՑSQQSՑTQ -JJHˆۜ[X[X]YH -[Z\ -X[[]KO\X[ۈOHTPSӗQ X]X\]Y[WYY X[^Y\ JJNˆۜ[X[X]ܚYH -[Z\ -X[[]KO\X[ۈOHTPSӗԒQ X]X\]Y[WܚYܚY X[^Y\ JJNˆۜ[X[X]ٛܝ\H[X[X]Y[X[X]ܚYˆۜ[X[X]ؘXH[Z\ X[[]KO[[]KX[ˆ - -X[[]KO\X[ۈOHTPSӗԒQ X]X\]Y[WYY X[^Y\ JB -X[[]KO\X[ۈOHTPSӗQ X]X\]Y[WܚYܚY X[^Y\ JJNY -[X[X]Y -X[[]KO[[]K[ۙYٛY -SӑQQSPQSӑQQSUPS -JHOH -SӑQQSPQSӑQQSUPS -H [Y[[JX[[]KSWԕSJH‚X[^Y\O^Z^\ HQSՑSQQSՑTQ -N \X[HY -Y\X\XK]\[[X[[]\ܞWۜ[YW]\\X[^Y\NˆX[[]KO[[HSUWT ^Y\Y[[H[HY[X[X]ܚY -X[[]KO[[]K[ۙYٛY -SӑQԒQSPQSӑQԒQSUPS -JHOH -SӑQԒQSPQSӑQԒQSUPS -H [Y[[JX[[]KSWԕSJHˆX[^Y\O^Z^\ HQSՑSQQSՑTQ -N \X[HY -Y\X\XK]\[[X[[]\ܞWۜ[YW]\\X[^Y\NˆX[[]KO[[HSUWT ^Y\Y[[H[HY[X[X]ؘX [Y[[JX[[]KSWАPԕSJHˆX[^Y\O^Z^\ HQSՑSQQSՑTQ -N \X[HY -Y\X\XK]\[[X[[]\ܞWۜ[YW]\\X[^Y\NˆX[[]KO[[HSUWT ^Y\Y[[H[HY[X[X]ٛܝ\ [Y[[JX[[]KSWUPѓԕT -JHˆX[^Y\O^Z^\ HQSՑSQQSՑTQ -NˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆ[][[JX[[]KSWUPѓԕT  -Nˆ[X[[]\ܞWۜ[YW]\\X[^Y\Nˆ[[XˆBB ʂ -]X ]X -^HX\Y -HZXX[  -‚Y -ؘ[ۙY˘ZXX[OHRPPSVWPPS -X[^Y\O^Z^\ QҕST -H [Y[[JX[[]KSWUPГ -J_ -ؘ[ۙY˘ZXX[OHRPPSVWUP̈ -X[^Y\O^Z^\ QҕST -H [Y[[JX[[]KSWUPГ -J_ -ؘ[ۙY˘ZXX[OHRPPSVWUP -X[^Y\O^Z^\ QҕST -H [Y[[JX[[]KSWUPГ -J_ -ؘ[ۙY˘ZXX[OHRPPSVWUP -X[^Y\O^Z^\ QҕST -H [Y[[JX[[]KSWUPГ -JJBˆY -X[^Y\O^\ QUPH [Z\BˆX[^Y\O^Z^\ HQҕSTˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆX[[]KO[[YHH  Y]X\\Y [ۈ]X^X]H]X\ۙ\[Y[][[JX[[]KSWUPГ  -Nˆ[[XˆBB ʂ -[X[T\K -‚Y -X[^Y\O^Z^\ QҕST -H [Y[[JX[[]KSWTJJBˆY -X[^Y\O^\ QPPS -H [Z\BˆX[^Y\O^Z^\ HQҕSTˆX[[]KOZXX[ۈH[[ۗ\NˆX[[]KOX\HH ˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KO[[YHH ˆ]\[X[[]JNˆ[][[JX[[]KSWTK -Nˆ[[XˆBB ʂ -[HXX[^KX܈\وH -Y\XX[[X[ [[[˂ -‚YX[^Y\O^Z^\ QPPS -H HXX[]ۈ[H\Y܈Y\XX[ˆˆY[Y[[JX[[]KSWPPS H [Z\  -X[[]KO\X[ۈOHTPSӗQˆ -X[^Y\O^\ QSՑSQ -H -X[^Y\O^\ QSՑTQ -JH -BˆYX[ݙJSWPPS   -JBˆX[^Y\O^Z^\ HQPPSˆ[[XˆBBBK[˂Y[Y[[JX[[]KSWГH [Z\ JX[[]KO[[]KۙYٛY ӑQTPQ -JBˆX[^Y\O^Z^\ HQPPS‚BBK]\YX[ۋ[[[X][ۜ˂BBYX]W؛X[[]JN‚BBY[[XˆBB ʂ -XZ]XX[  -‚Y[Z\ ^Y\XXX[ - -JBˆ[[X [Hۉ\ܛHXX[[[ٙHYBB ʂ -\H]X -]X [X\JK -‚Y -X[^Y\O[X\Z^\ QUPJBˆYX[[]KO[[YH [Z\  - -[Y[[JX[[]KSWTPUPH X[[]KO[[YH - -ؘ[ۙY˙[YWYY -X[[]KO[[]K[[X][ۖSWTPUPKO\W[YJH[YJH -][Y[[JX[[]KSWTPUPH [Y[[JX[[]K[[X]XX[[]KO[[]K]Z[X[[]KO[[]KZ[[ H WH H WJB X[[]KO[[]KZ[[  X[[]KO[[YH - -ؘ[ۙY˙[YWYY -X[[]KO[[]K[[X][ۖ[[X]XX[[]KO[[]K]Z[X[[]KO[[]KZ[[ H WH H WWKO\W[YJH[YJJJBˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ‚X[[]KO[[YHH ˆX[[]KOX\HH ‚Yؘ[[\W\ [H -Bˆ[^W[\Jؘ[[\W\ [  ]Y]KYX ]Y]KYX  L -NˆBY[Y[[JX[[]KSWTPUPJBˆ[][[JX[[]KSWTPUP -NˆB[HY[Y[[JX[[]K[[X]XX[[]KO[[]K]Z[X[[]KO[[]KZ[[ H WH H WJJBˆ[][[JX[[]K[[X]XX[[]KO[[]K]Z[X[[]KO[[]KZ[[ H WH H WK -NˆB[[XˆBX[[]KO[[YHH ˆB ʂ -]X]ۋ[H\X]X -]ۈX[ۜ -]X] ]ˊK -‚Y -X[^Y\O^Z^\ QUPH [Z\BˆX[^Y\O^Z^\ HQUPˆX[[]KO[[YHH  \XHH]X[[YBY -X[[]KOX[ PPUJH [Y[[JX[[]KSWPUPH VQTRSֈOHVQTPV֊H X[^Y\O^\ QSՑQӂˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆ[][[JX[[]KSWPUP -Nˆ[[XˆBYX[[]KO[[ [Y[[JX[[]KSWԕSUPJH ][]XHX[ۂˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆX[[]KO[[HSUWӓӑNˆ[][[JX[[]KSWԕSUP -Nˆ[[XˆB ʂ -X]XˈY^Y\[X[Y\X]\ -HX]X\]Y[KI][\ -HX]X˂ -ˆۜ^WX\\]Y[WؘX]XHHѓQАPT QUPN‚Y[Y[[JX[[]KSWUPАPT -H X]X\]Y[WؘX]XX[^Y\ JHˆۜ[X[[]][ -]X[]][ˆۜ[X[[]][ -X\[]][‚Z[ \ܞW[^BX[^Y\O[X[[][^‚Z[ [XZ[[][BX[^Y\O[X[[][‚ ʂ -]H\\][ˈXY[Y -H\]X[]H[\][]\H[X\B -[[YY][H\\[X]X˂ -ˆ]X[]][H[X[[]\ܞW][\\X[^Y\ \ܞW[^  [XZ[[][ˆ -N‚X\[]][H[X[[]\ܞW][\\X[^Y\ \ܞW[^  [XZ[[][ˆ -N‚ ʂ -YX]X[]YH][B -[YH[YIHX]X˂ -ˆY]X[]][ X\[]][ ]X[]][ O[YB HX\[]][ O[YBؘ[ۙY˙[YWYY L -H‚X[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KH ˆX[[]KO[]KH ‚YX[[]KO\X[ۈOHTPSӗQ -X\[]][ O\ QSՑSQ -JHˆX[[]KO\X[ۈHTPSӗԒQˆH[HYX[[]KO\X[ۈOHTPSӗԒQ -X\[]][ O\ QSՑTQ -JHˆX[[]KO\X[ۈHTPSӗQˆBX[[]KOX\HH ˆ[][[JX[[]KSWUPАPT  -Nˆ[[XˆBB ʂ -]][KY^Y\\[[ۈ[][B -[H][[X][ۈ\[Y [ -IX]\[[H][[X][ۋ -ˆY[Y[[JX[[]KSWU -H -\H[[\JX[[]KX[[]KO][ۋ X[[]KO][ۋTWUSK^Y\\XXJJJH‚X[[]KO[]KHX[[]KO[]KH ˆ]][X[[]JNˆX[[]KOZXX[ۈH[[ۗ]ˆ[][[JX[[]KSWU  -N‚ ʂ -][H]XȈX܈XZH] -X\Hܚ\X[ۜۈ][HX\  -ˆ][Wܚ\ -X[[]K\N‚Y[][J\Nˆ[[XˆB \H[[YH\H[ [[ݙBX[[]KO[[YHH[YNˆX[[]KO[]KHX[[]KO[]KH ‚YX[[]KOX\[ X[[]KOX\[ O[[]KX\HOHPTWґPSH [Y[[JX[[]KSWUPH -BˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆ[][[JX[[]KSWUP -Nˆ[[XˆB[HY\ܛW]Z[ -JBˆYؘ[[\W\ [H  X[[]KO]X[OHUPSӓӑJBˆ[^W[\Jؘ[[\W\ [  ]Y]KYX ]Y]KYX  L -NˆB[[XˆBB ʂ -[\[۝ܛ  -‚YX[^Y\O^Z^\ QҕST [Z\Bˆ YYZ[Z\X[[]JH^Y\[[\[[[[\ˆX[^Y\O^Z^\ HQҕST‚ ʂ -^\۝  - -Y^Y\[[]X[^HH[\ -[\܈ۈ^\\HX]HI -]Hܝ[ۈوZ\[\YY\ˆ -H[]KI\H\[YH\ˆ -H\[Y]\܈[ۜX[B -[\[[ۈ[˂ -‚Y -X[[]KO[[]KZ\۝ RTӕҕST֗SUPS -BˆY -X[^Y\O^\ QSՑUT -Bˆ[]X[ڝ[\ݙ[]WވH XX[[]KO[[]K[\YY - NˆB[HY -X[^Y\O^\ QSՑQӊBˆ[]X[ڝ[\ݙ[]WވHX[[]KO[[]K[\YY - NˆBB[Bˆ[]X[ڝ[\ݙ[]WވH ˆBYX[[]KO[[Bˆ YBY -X[^Y\O^\ QSՑQӊH [Y[[JX[[]KSWԕSQJJBˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆX[[]KO[[HSUWӓӑNˆ[][[JX[[]KSWԕSQK -Nˆ[[XˆH ʈ[\[[Y -ˆY -JX[[]KO[[]KZ\۝ RTӕҕSTTPJJBˆY -[Y[[JX[[]KSWԕSST -JBˆZ[\ -X[[]KO[[]K[[\ZY X[[]KO[[]K[\YY -X[[]KO[[]K[[\\ []X[ڝ[\ݙ[]WދSWԕSST -NˆB[HY -[Y[[JX[[]KSWѓԕTST -JBˆZ[\ -X[[]KO[[]K[[\ZY X[[]KO[[]K[\YY -X[[]KO[[]K[[\\ []X[ڝ[\ݙ[]WދSWѓԕTST -NˆB[HY -[Y[[JX[[]KSWҕST -JBˆZ[\ -X[[]KO[[]K[[\ZY X[[]KO[[]K[\YY -X[[]KO[[]K[[\\ []X[ڝ[\ݙ[]WދSWҕST -NˆBBB[Bˆ YBY -X[^Y\O^\ QSՑQӊH [Y[[JX[[]KSWQJJBˆX[[]KOZXX[ۈH[[ۗ]Xˆ]]X[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆX[[]KOX\HH ˆX[[]KO[[HSUWӓӑNˆ[][[JX[[]KSWQK -Nˆ[[XˆB ʈ[\[[Y -ˆY -JX[[]KO[[]KZ\۝ RTӕҕSTTPJJB‚ ʂ -[HY ܚY\X[ۈ[X[  - -YY܈Y^H\X]K -[]X[Xܙ[H[ -۝[YHۈ[ݚ[[\X˂ - -\\H\ܛHH[\]ˆ -ܚ^۝[[]K -‚Y -JX[^Y\O^\ -QSՑSQQSՑTQ -JH [Y[[JX[[]KSWҕST -JBˆZ[\ -X[[]KO[[]K[\ZY  []X[ڝ[\ݙ[]WދSWҕST -Nˆ[[XˆB[HY - -X[^Y\O^\ QSՑSQ -JBˆX[[]KO\X[ۈHTPSӗQˆB[HY - -X[^Y\O^\ QSՑTQ -JBˆX[[]KO\X[ۈHTPSӗԒQˆB ʂ -ܚ^۝[[ݚ[[\  -‚Y -[Y[[JX[[]KSWѓԕTST -JBˆZ[\ -X[[]KO[[]K[\ZY X[[]KO[[]K[\YY []X[ڝ[\ݙ[]WދSWѓԕTST -NˆB[HY -[Y[[JX[[]KSWҕST -JBˆZ[\ -X[[]KO[[]K[\ZY X[[]KO[[]K[\YY []X[ڝ[\ݙ[]WދSWҕST -NˆBBB]\ˆB ʂ -[  -ˆ[Wܝ[^Y\X[[]KX[^Y\N‚ ʂ -‚YVQTRSֈOHVQTPVֈ X[[]KOX[OHPӓӑJBˆ [ܙHوH]ܛHY[YX[^Y\O^\ QSՑUT -BY[Y[[JX[[]KSWT -H X[[]KO[[OHSUWӓӑJBˆX[ۈHPSӗTˆX[[]KO[]KH XX[[]KO[[]KYY   \Y܈\[[X][ۂB[HYX[[]KO[[ SUWT -BˆX[ۈHPSӗԕS‚Y -X[[]KO[[]K[ۙYٛY SӑQԒQTђVQ JX[[]KO[[]K[ۙYٛY SӑQ֗TSPQ -JHˆX[[]KO[]KH ˆB[BˆX[[]KO[]KH XX[[]KO[[]K[YY  [ݙ\\]H\\]H[[ˆBB[BˆX[ۈHPSӗSˆX[[]KO[]KH XX[[]KO[[]KYY  ˆBB[HYX[^Y\O^\ QSՑQӊBY[Y[[JX[[]KSWӊH X[[]KO[[OHSUWӓӑJBˆX[ۈHPSӗӎˆX[[]KO[]KHX[[]KO[[]KYY   \Y܈ۈ[[X][ۂB[HYX[[]KO[[ SUWT -BˆX[ۈHPSӗԕS‚Y -X[[]KO[[]K[ۙYٛY SӑQԒQTђVQ JX[[]KO[[]K[ۙYٛY SӑQ֗ӗSPQ -JHˆX[[]KO[]KH ˆB[BˆX[[]KO[]KHX[[]KO[[]K[YY  [ݙ\\]H\\]H[[ˆBB[BˆX[ۈHPSӗSˆX[[]KO[]KHX[[]KO[[]KYY  ˆBB[HYJX[^Y\O^\ -QSՑUTQSՑQӊJJBˆX[[]KO[]KH ˆBB[HYX[[]KOX[OHPӓӑH [Y[[JX[[]KSWPH X[^Y\O^\ QSՑQӈ [Z\BˆYXX[[]JNˆ[[XˆBYX[^Y\O^\ QSՑSQ X[[]KOX[OHPӓӑJBˆYX[[]KO\X[ۈOHTPSӗԒQ -Bˆ X[[]KO[[HSUWӓӑN ]Z][[Y^Y\[\\X[ۂYX[[]KO[[]K\[^H XX[[]KO\[YJBˆX[[]KO\[YHH[YH -X[[]KO[[]K\[^NˆB[HYX[[]KO\[YH [YHHX[[]KO\[YJBˆX[[]KO\[YHH ˆY[Y[[JX[[]KSWTJBˆX[[]KOZXX[ۈH[[ۗ\ˆ]\[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆ[][[JX[[]KSWT -Nˆ[[XˆBX[[]KO\X[ۈHTPSӗQˆB[HYXX[[]KO[[]K\[^H [Y[[JX[[]KSWTJBˆX[[]KOZXX[ۈH[[ۗ\ˆ]\[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆ[][[JX[[]KSWT -Nˆ[[XˆB[HYXX[[]KO\[YJBˆX[[]KO\X[ۈHTPSӗQˆBB[BˆX[[]KO\[YHH ˆBYX[[]KO[[BˆX[ۈHPSӗԕSˆX[[]KO[]KH XX[[]KO[[]K[YY Y[[^Y\[ݙ\]H\\]BB[HYX[ۈOHPSӗT X[ۈOHPSӗӊBˆX[ۈHPSӗSˆX[[]KO[]KH XX[[]KO[[]KYY ˆB[BˆX[[]KO[]KH XX[[]KO[[]KYY ˆBB[HYX[^Y\O^\ QSՑTQ X[[]KOX[OHPӓӑJBˆYX[[]KO\X[ۈOHTPSӗQ -Bˆ X[[]KO[[HSUWӓӑN ]Z][[Y^Y\[\\X[ۂYX[[]KO[[]K\[^H XX[[]KO\[YJBˆX[[]KO\[YHH[YH -X[[]KO[[]K\[^NˆB[HYX[[]KO\[YH [YHHX[[]KO\[YJBˆX[[]KO\[YHH ˆY[Y[[JX[[]KSWTJBˆX[[]KOZXX[ۈH[[ۗ\ˆ]\[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆ[][[JX[[]KSWT -Nˆ[[XˆBX[[]KO\X[ۈHTPSӗԒQˆB[HYXX[[]KO[[]K\[^H [Y[[JX[[]KSWTJBˆX[[]KOZXX[ۈH[[ۗ\ˆ]\[X[[]JNˆX[[]KO[]KHX[[]KO[]KH ˆ[][[JX[[]KSWT -Nˆ[[XˆB[HYXX[[]KO\[YJBˆX[[]KO\X[ۈHTPSӗԒQˆBB[BˆX[[]KO\[YHH ˆBYX[[]KO[[BˆX[ۈHPSӗԕSˆX[[]KO[]KHX[[]KO[[]K[YY Y[[^Y\[ݙ\]H\\]BB[HYX[ۈOHPSӗT X[ۈOHPSӗӊBˆX[ۈHPSӗSˆX[[]KO[]KHX[[]KO[[]KYY ˆB[BˆX[[]KO[]KHX[[]KO[[]KYY ˆBB[HYJ -X[^Y\O^\ QSՑSQ -H -X[^Y\O^\ QSՑTQ -JH -Bˆ X[[]KO[[HSUWӓӑN ^Y\]وY ܚY[]Z][[ˆX[[]KO[]KH ˆX[[]KO\[YHH ˆBY -\H[[\JX[[]KX[[]KO][ۋ X[[]KO][ۋTWUSK^Y\\X -JH -Bˆ][Wܚ\ -X[[]K\NˆY[][J\N YY[[ۈX[H\H]BY -X[[]KOX[ PPUJBˆY -JX[^Y\O^\ QSՑQӊJBˆYXܚ\JX[[]JNˆ[[XˆBYX[^Y\O^\ QSՑSQ -BˆYX[[]KO\X[ۈOHTPSӗԒQ -BˆX[[]KO\X[ۈHTPSӗQˆBB[HYX[^Y\O^\ QSՑTQ -BˆYX[[]KO\X[ۈOHTPSӗQ -BˆX[[]KO\X[ۈHTPSӗԒQˆBBBY -X[[]KOX[Bˆ[[XˆB ]HYێ\\H܈Y[[[X][ۜˋYX[ۊBˆX[[]KOZXX[ۈHSˆX[[]KOY[HQSTTQˆB] -X[ۊBˆ\HPSӗS΂ X[X]\BY][ [Y[[JX[[]KSWАPSJH‚YX[[]KO[[]KX[OHPSQTԒQ][ OX[OHPSQTԒQ -H‚X[HXX[[]KO\X[ێ‚H[HYX[[]KO[[]KX[OHPSQTQ][ OX[OHPSQTQ -H‚X[HX[[]KO\X[ێ‚H[HY -X[[]KO[[]KX[OHPSQTUS][ OX[OHPSQTUS -H -][ Oܛ\ ԓQ -H X[[]KO\X[ۈOHTPSӗQ -H‚X[HYN‚H[HY -X[[]KO[[]KX[OHPSQTUS][ OX[OHPSQTUS -H -][ Oܛ\ ԓԒQ -H X[[]KO\X[ۈOHTPSӗԒQ -H‚X[HYN‚H[HYX[[]KO\[YH X[[]KO[[]K\[^JH‚X[HYNˆBYX[Hˆ[[ؘۗX[[[JX[[]JNH[Hˆ[[ۗ[[[JX[[]JNˆBH[Hˆ[[ۗ[[[JX[[]JNBXZˆ\HPSӗT[[ۗ\[[JX[[]JN [][[JX[[]KSWT  -N ]\[[X][ۈY^\ˆXZˆ\HPSӗӎ[[ۗۗ[[JX[[]JN [][[JX[[]KSWӋ -N ]ۈ[[X][ۈY^\ˆXZˆ\HPSӗԕSY -[Y[[JX[[]KSWАPԕSJBˆY -\[ؘXܝ[X[[]JJH[][[JX[[]KSWАPԕS -Nˆ[H[][[JX[[]KSWԕS -NˆB[H[][[JX[[]KSWԕS -N ][[[X][ۈY^\‚XZˆY][YX[[]KOY[Bˆ[[ۗYW[[JX[[]JNˆBXZˆB[[X΂ [\X\B]\ŸB[\[ؘXܝ[[]J[BˆY - - -[O[[]KX[OHPSQTԒQ][ OX[OHPSQTԒQ -H [O[]K -H - -[O[[]KX[OHPSQTQ][ OX[OHPSQTQ -H [O[]K -H - - -[O[[]KX[OHPSQTUS][ OX[OHPSQTUS -H -][ Oܛ\ ԓԒQ -JH [O[]K -H - - -[O[[]KX[OHPSQTUS][ OX[OHPSQTUS -H -][ Oܛ\ ԓQ -JH [O[]K -B -H]\ Nˆ[H]\ ŸB[[[[\ۂYXX - -BˆY[OX\[ [OX\[ O[[]KX\ۗ\Y\˝\W[ -Bˆ[OX\[ O[[]KX\ۗ\Y\˝\W[ KN‚ ʂ -]و\\HX\ۋ -‚Y\[OX\[ O[[]KX\ۗ\Y\˝\W[ -Bˆ[OX\[ O[[]KX\ۗ\Y\˛[H ˆX\ۊ[ -NˆBBBYX\ۊ[]JX[[]K[YBˆ[[H ˆ[]H -\HSˆ[]JX\ۗ[]HHSˆX\ۊX\ۗ\Y\HS‚KYH[XYH]HHX\ۋIYY\\] YX[[]KOX\[ -Bˆ ʂ -[\[\[X\ۈ[]H[H -X\ۈ[]I[[]HX\ۈ\Y\ -[[\XX\ˈ\\\܈XZ\\ -XY[ۜX[K -‚X\ۗ[]HHX[[]KOX\[ˆX\ۗ\Y\H X[[]KOX\[ O[[]KX\ۗ\Y\‚BK NKLKLH H\HX]\Xˈ]\X\]ۛH\HBKX\ۜ܈X\ۜ][[[\HY [][[H\[\H\\Y BKYY][X]H[X\ۈX]Hܚٛ˂YX\ۗ\Y\OX\ۗ]H PTӗUWSRUQTH -JX\ۗ\Y\OX\ۗ]H PTӗUWSRUQTJH X\ۗ\Y\O\W[ -JBBBKYHY\ ܈[HXXHY‚BBK[YHHX\ۈ[\BBZYY BˆX\ۗ\Y\O[ OHYˆBBBKIܙH[\H\ۈ][ۈ܈HX\ۋX\ۗ[]KO\X[ۈHX[[]KO\X[ێˆX\ۗ[]KO][ۋHX[[]KO][ۋˆX\ۗ[]KO][ۋHX[[]KO][ۋˆX\ۗ[]KO][ۋHHX[[]KO][ۋN‚BBK][H[[]ܛ\˂\HX]ܛJX\ۗ[]KO][ۋ X\ۗ[]KO][ۋX[[]JNˆ[HX[[^ -X\ۗ[]KO][ۋ X\ۗ[]KO][ۋN‚BBKXH۝[܈]ܛKY\ \OHX\ۗ[]JBˆX\ۗ[]KO\H -H\O][ۋH -\O[[X][ۋO]ܛV\O[[\VUԓWRQNˆB[HY[H -BˆX\ۗ[]KO\H -H][ O[[KZYˆBBBK\HHX\ۉTUӈ܈Uӈ[[X][ۜY]Z[XK\\BBBKYYKY[Y[[JX\ۗ[]KSWԑTUӊJBˆ[][[JX\ۗ[]KSWԑTUӋ JNˆB[HY[Y[[JX\ۗ[]KSWUӊJBˆ[][[JX\ۗ[]KSWUӋ JNˆB[BˆY[Y[[JX\ۗ[]KSWQJJH[][[JX\ۗ[]KSWQK JNˆBBBKYHX\ۉ[\\\]Y [X\ۈ\܈ BBKY]\[[[X[[H\HH[[X[[[]^HX˂BBK\\HHX\ۈ[] Y]X\ۗ\Y\O[ -BˆYJX[[]KO[[]KX\ۗ\Y\˝X\ۗ]H PTӗUWSSPS -JBˆX\ۗ[]KO[H NˆX\ۗ[]KOZXX[ۈH[[ۗYNˆB[BˆX\ۗ[]KO[[]K\HHTWӓӑNˆX\ۗ[]KO[H[[[X[ˆBBX\ۗ[]KO^[H[YH - NˆBBKX\\X[\XXH]Y\HX\ۈ[]H[\X[[]KOX\[HSˆBKY YX[IܙHؘXH][HX\ۈ\XH -^]X\ۈ[X[ -KK[]\HHۉܜHX]HX\ۈ[]K\]\[\ݙ\KHX\ۈ[[ YY BˆYX[[]KO[[]K\H TWVQTBˆY^Y\X[[]KO^Y\[^KX\Bˆ]X\ۊX[[]K^Y\X[[]KO^Y\[^KX\ -NˆB[Bˆ]X\ۊX[[]K][ O]X\  -NˆBB[Bˆ]X\ۊX[[]K  -NˆBBK[[ݙ\YKY\\[]Y H\H][YBK]HH[[H[^[]\][XYKوHY][[[[HX\ۈ\ YX[[]KO[[]KX\ۗ\Y\˛[^OHSSSVӓӑJBˆ]X\ۊX[[]KX[[]KO[[]KX\ۗ\Y\˛[^  -NˆBB[^Y\ZY[XYJ[]J\][]K[]J]X[[]K]Xʈ]XؚX [[ٛYۜY[JY[WؚX -Bˆ]X]H -]XؚXˆ [[XYYN \ Y\O[YK]XO]XٛܘJN‚Kܘ]\ - L L JHH[[]HX[X][XH[XYH\K][]YYHXX[[XYH\\‚K[XYHY\HHܛX[\O‚XۜܛX[[XYHH -Z\]X\WXX[ -]˘]X\JJHYH[N‚Y -ؘ[ۙY˘X] PUSӔPSPUH ܛX[[XYJB -][ O\OHSPQWєWSSVWё -]X[[]KO[[]K\H TWSSVJJJBˆ]˘]XٛܘHH ˆB]\[[ۗZY[XYJ\][]K]X[[]K ][ٛYY[WؚX -NŸB‚[Y[^Y\KY[\H[YK[[[ZY\VT܈H[Y ٜޙ[ۙ\˂Y[[[ZY\ -Bˆ[Nˆ[]H -X\[H[ˆ]X]XH[\X]X‚܊HH H[X^JBˆY[\WKO^\ [\WKO[\W]KX[\[   -[\WKO[[]K\H TWSSVJH Y[\WKOۙ\  ۉ[ۛۈHڙX[BY[\WKOޙ[  ۉ[[Y^HHޙ[[[^BJ[\WKO[[]K[ݙWۙYٛY SՑWӑQӓSՑJH J[\WKO[[]KZ[ۙYٛY RSӑQѐSTPJH [Y[[J[\WKSWѐS -H -Bˆ[\WKO]X[HUPSӓӑNˆ[\WKOڙX[HHTӓӑNˆ[\WKOZXX[ۈH[[ۗ٘[[[^W٘[ˆ[\WKO[XYWۗ[[˘]XٛܘHH ˆ[\WKO[XYWۗ[[˘]X\HHUӓӑNˆ[H[\WNˆ[[[[Nˆ[\WKO[]KH -[O\X[ۈOHTPSӗԒQ -H - LKH KˆY[\WKO[[]KX\ۗ\Y\˛ۙ][ۈ PTӗӑUSӗQJBˆX\ۊ[ JNˆB[\WK H -[ JJNˆ[\WKOۛۘ[H[\WKO[[]Kۛۘ[‚[\WKOۛ۝[YHH ‚]٘[ -[\WK[ ]X JNˆBB[HX\[ŸBʈ[Y[Y\ˈ -Y[[[[ZY\ -Bˆ[Nˆ]X]XH[\X]Xˆ[]H -\[HS‚X]X˘]X\HHUГPU‚X]X˙HY][[[‚ ʈ -ۜX[H[XYH[[ۜ\H -[ؘ[ H[]H]] -[]H\܈[XX]\][ۈو -[ˈY\\[[YH\H -H[\ܙH[\[\Y  -ˆ\[H[‚ ʈ -]\H[Y[[^H\H]HZY[XYB -[[ۈZ\]\[X[[[XYK -ˆ܊HH H[X^JBˆY[\WKO^\ˆ [\WKO[\W]KX[\[  -[\WKO[[]K\H TWSSVJB [\WKOZY[XYJBˆ[H[\WN‚]X˘]XٛܘHH[O[\W]KX[\[ˆ[OZY[XYJ[[ ]X [OY[JNˆBB[H\[BYX\؛X[]H -K]X -]XH ]Y]܈X\X‚[K]H ˆ[]H -\[HS‚\[H[ˆ܊HH H[X^JH‚Y[\WKO^\ˆ [\WHOHB [\WKO[\W]KX[\[  X[ۗX\[JK[\WJJHˆ[H[\WNˆ]H N ܈ YHX\ۉ] ]ۉ[\B\] ]XH]Xˆ\] ]X\HNˆ\] \[ۗ]XHSˆ\] ۙ\HH Nˆ\] ]X؛HHSˆ\] ]X\[ۗ]XHSˆ\] ]X\[ۗ؛HHSˆ\] ][ۋH[O][ۋˆ\] ][ۋHH[O][ۋNˆ\] ][ۋH[O][ۋˆ\] \]H[‚Y[OZY[XYJH‚ۜY[JY[WؚXHY[Wٚ[\[ؚX -[S ]XO]X\JNˆ ]X˘]XH[O[[]Kۛۘ[ -Nˆ[OZY[XYJ[K]X Y[WؚX -NˆH[Hˆ[O[\W]KX[\[ OH]XO]XٛܘNˆY[O[\W]KX[\[H -Hˆ[[]J[SSUWQTPTPNˆBB]ۗ]Xٛ\ -[]X]XO\ [[] [O[[]K\ [[؛NˆBBY ] X\X\H ۉ\HKX]\H\[H[][KXX[HX\X\ˆYX[\JSTWTWT SWPPS -JHˆ[O[\W]K\\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆH[Hˆ[O[\W]KX[\[ OH[O[[]K[[X][ۖSWPPSKO[\W ˆBB[H\[‚B‚Y[][[ -BˆY[O][ۋY[^ H [O][ۋY[^ - -Y[[\˚\ - -JBˆ[[]J[SSUWQTSUїГSNˆ]\ˆB [O][ۋ -H[O[]KŸB\^K[[ۈ NKLLLN‹\H܈]Y\Y[[]KXB\YۈH\[ ۙ\\[[ۈ܈]Y\Y[][˂Y\Wܗ]Y\ -[]J[ []J\[ WܗY\Y\Y[ -B‚Z[HH  \܋K\H܈][˂\] -Y\Y[ -B^‚YY][BBK\HY\Y[[YH\܈][^ BY[]\X\ -[ Y\Y[ -N‚BXXZ‚BX\HԔUQTӓӑNBBBK[˂BBBXXZ‚BX\HԔUQTTSSVBK]H\[ \[܈][^ [BK]\܈]H][^ BY܈ -HH H\[ O[[]KX\YYJBB^‚BBZY -\[ O\X\OH\[ O[[]K\X\WJBBB^‚BBBY[]\X\ -[ JN‚BBBXXZ‚BB_BB_BBXXZ‚X\HԔUQTTSPNBBBK\H\[ ܈XKBY[ O\X\H\[ O\X\‚BXXZ‚_BBʂ\^K[[ۈ NKLLLHHX[ۈ][HH\H[]KYX[ۗW[ -[]J\ []J\JBˆX[ۗW]J \ O[[]KX[ۋ \KOX[ۊNˆX[ۗW]J \ OX[ۋ \KOX[ۊNŸBʂ\^K[[ۈ L LHX[ۈ\Y\Yۙ][ۜ\˂YX[ۗW]J٘X[ۊ\ ٘X[ۊ\JH‚ ʂ -H\[][ۈ\[^\HX[ۂ -ؚX Y\\وXX[ۂ -\Y\]X[YH܈Z[˂ -ˆ\ OؚX\HHВPTWѐPSӎ‚ ʂ -X[ۈܛ\ˈۛHHY\H܈ -\[][ۈ\H[YH[\ -]HHHY˂ - -I]\HXHH[\H[Y\ -\[ ]]\]Z\\[\[ -Y][[Y\[]\[Y\ -][ۜ\[HK]\ˆ -Y\]\H[XZ[Z[XK -‚Y -\KO[XYW\XOHPSӗԓTӓӑH J\KO[XYW\X PSӗԓTӓJH J\ O[XYW\X PSӗԓTӓJJHˆ\ O[XYW\XH\KO[XYW\XBY -\KO[XYW[\XOHPSӗԓTӓӑH J\KO[XYW[\X PSӗԓTӓJH J\ O[XYW[\X PSӗԓTӓJJHˆ\ O[XYW[\XH\KO[XYW[\XBY -\KO[HOHPSӗԓTӓӑH J\KO[H PSӗԓTӓJH J\ O[H PSӗԓTӓJJHˆ\ O[HH\KO[NBY -\KOY[X\OHPSӗԓTӓӑH J\KOY[X\ PSӗԓTӓJH J\ OY[X\ PSӗԓTӓJJHˆ\ OY[X\H\KOY[X\B ʂ -\\ˈ[YH[H\X[ۈܛ\˂ -‚Y -\KO\W[XYW\XOHTWSPTQ J\KO\W[XYW\X TWӓJH J\ O\W[XYW\X TWӓJJHˆ\ O\W[XYW\XH\KO\W[XYW\XBY -\KO\W[XYW[\XOHTWSPTQ J\KO\W[XYW[\X TWӓJH J\ O\W[XYW[\X TWӓJJHˆ\ O\W[XYW[\XH\KO\W[XYW[\XBY -\KO\W[HOHTWSPTQ J\KO\W[H TWӓJH J\ O\W[H TWӓJJHˆ\ O\W[HH\KO\W[NHBʂ\^K[[ۈ L KLXYH^\[Y[܈[[HYŠ[]]\X]Hۜ[ ™X[ۗܛ\X\X[ۗ]ٛYٜW[ۜ\[YJH‚ۜXˆۜ\^ۘ[YNˆX[ۗܛ\X\Y‚HY\XVHHˆۙHPSӗԓTӓӑHK[PSӗԓTSӓԓPSKȘ[ PSӗԓTSӓԓPSKȘ[ HPSӗԓTSӓԓPSHK]][PSӗԓTӑUUSKHPSӗԓTӓHK^Y\ݙ\\ȋPSӗԓTVQTՑTTK\W^\]HPSӗԓTTWVTUHK\W[\]HPSӗԓTTWSTUHKHPSӗԓTHKPSӗԓTЈKȋPSӗԓTKPSӗԓTKHPSӗԓTHKPSӗԓTшKȋPSӗԓTKPSӗԓTKHPSӗԓTHKPSӗԓT҈KȋPSӗԓTKPSӗԓTKHPSӗԓTHKPSӗԓTӈKȋPSӗԓTKPSӗԓTKHPSӗԓTHKPSӗԓTԈKȋPSӗԓTKPSӗԓTKHPSӗԓTHKPSӗԓTՈKȋPSӗԓTKPSӗԓTKHPSӗԓTHKPSӗԓTֈKLHPSӗԓTLHKHPSӗԓTЌHKHPSӗԓTHK HPSӗԓT HKLHPSӗԓTLHKHPSӗԓTьHKHPSӗԓTHK HPSӗԓT HKLHPSӗԓTLHKHPSӗԓTҌHKHPSӗԓTHK HPSӗԓT HKLHPSӗԓTLHKHPSӗԓTӌHKHPSӗԓTHK HPSӗԓT HKLHPSӗԓTLHKHPSӗԓTԌHKHPSӗԓTHK HPSӗԓT HKLHPSӗԓTLHKHPSӗԓTՌHKHPSӗԓTHK HPSӗԓT HKLHPSӗԓTLHKHPSӗԓT֌HBN‚ۜ^W\[H^[يY\XJH ^[ي -Y\XJN‚܈ -^WHH H\[JHˆY -X\ -[YKY\XVWK^ۘ[YJHOH -Hˆ]\Y\XVWKYˆBB ʂ -[[HX][H\ -XK[[\[]\ -ۙHY˂ -‚[[ۛۈX[ۈ - \K[YJNˆ]\PSӗԓTӓӑNŸBʂH\^K[[ۈH L LLBBHXYX[ۈ\[Y[\XHHH\H[H[X[HZ\ܜ\ۙ[ܛ\Y˂™X[ۗܛ\X\X[ۗ]ٛYٜW[X[[Jۜ\[X[[BBˆۜ\[YNˆ[X[\[Y[ܙXY\XY\ˆX[ۗܛ\X\\[HPSӗԓTӓӑN‚[X[\[Y[ܙXY\[]X[^J XY\[X[[K JN‚[J[X[\[Y[ܙXY\ۙ^ - XY\ [YJJHˆ\[HX[ۗ]ٛYٜW[[YJNˆB]\\[ŸBʂ\^K[[ۈ L L]\YHYX[[]H[]\][]H]]X˂˜X[ۗX[[XYJ[]JX[[]K[]J\][]Kۜ[\X -H‚W[]W\HX[\NˆW[]W\H\]\NˆX[ۗܛ\X\X[٘X[ێˆX[ۗܛ\X\X[٘X[ۗٚ[\YˆX[ۗܛ\X\\]٘X[ێ‚Y -XX[[]H]\][]JHˆ]\[NˆB ʂ -H[\HY\[X[X[ۈ\B -[\HYH[\XY\]  -‚Y -[\X -HˆX[٘X[ۈHX[[]KOX[ۋ[XYW[\XˆX[\HHX[[]KOX[ۋ\W[XYW[\XˆH[HˆX[٘X[ۈHX[[]KOX[ۋ[XYW\XˆX[\HHX[[]KOX[ۋ\W[XYW\XˆBX[٘X[ۗٚ[\YHX[٘X[ێ‚ ʂ -[[ݙHXX[\\˂ -‚X[٘X[ۗٚ[\Y HPSӗԓTӓPˆX[\H HTWӓP‚ ʂ -X^Y\[\X[ۋ -‚Y -X[ۗX^Y\ݙ\\X[[]K\][]KX[٘X[ۊJHˆ]\[NˆB\]\HH\][]KO[[]K\N‚ ʂ -YۙHوHX[X[ۜ\B -\H^\]Hܛ\ [HۛB -XX[\\ˈ\]\B -[YۛܙH\X[ۜ˂ -‚Y -X[٘X[ۈ PSӗԓTTWVTUJHˆY -X[\H \]\JHˆ]\YNˆH[Hˆ]\[NˆBB ʂ -H\\H\X[X[ۊHB -X[ۊH\]\HY[X\و܈[HX]  -‚\]٘X[ۈH\][]KOX[ۋY[X\‚Y -X[٘X[ۗٚ[\Y \]٘X[ۊHˆ ʂ -YۙHوHX[X[ۜ\ˆ -HYH[\[ܛ\ [B -[XX[\\B -\] \K -‚Y -X[٘X[ۈ PSӗԓTTWSTUJHˆY -X[\H \]\JHˆ]\YNˆH[Hˆ]\[NˆBB]\YNˆB]\[NŸBʂ\^K[[ۈ L L]\YHYX[[]H\Š[H\\][]Kš[X[ۗX\[J[]JX[[]K[]J\][]JBˆ [X[ۗX\[J \  \ -HX[[]K\][]JN‚W[]W\HX[\NˆW[]W\H\]\NˆX[ۗܛ\X\X[٘X[ێˆX[ۗܛ\X\[\Y٘X[ێˆX[ۗܛ\X\\]٘X[ێ‚Y -XX[[]H]\][]JBˆ]\ ˆB [X[[]KO[YN \\][]KO[YN \ȋX[[]KO[YK\][]KO[YJN‚X[٘X[ۈHX[[]KOX[ۋ[Nˆ[\Y٘X[ۈHX[٘X[ێˆX[\HHX[[]KOX[ۋ\W[Nˆ\]\HH\][]KO[[]K\N‚ [X[٘X[ێ YX[٘X[ۊNˆ [X[\N YX[\JNˆ [\]\N Y\]\JN‚ ʂ -[[ݙHXX[\\˂ -‚[\Y٘X[ۈ HPSӗԓTӓPˆX[\H HTWӓP‚ [X[٘X[ێ YX[٘X[ۊNˆ [X[\N YX[\JN‚ ʂ -X^Y\[\X[ۋ -‚Y -X[ۗX^Y\ݙ\\X[[]K\][]KX[٘X[ۊJBˆ [^Y\ˈ]\ N‚]\ ˆB ʂ -YۙHوHX[X[ۜ\B -\H^\]Hܛ\ [HۛB -XX[\\ˈ\]\B -[YۛܙH\X[ۜ˂ -‚Y -X[٘X[ۈ PSӗԓTTWVTUJBˆ [X[٘X[ۈ PSӗԓTTWVTUN YX[٘X[ۈ PSӗԓTTWVTUJN‚Y -X[\H \]\JBˆ [X[\H \]\N Y -Y\HX[\H \]\JN‚]\ NˆB[Bˆ[X[\H \]\N Y -HX[\H \]\JN‚]\ ˆBB ʂ -H\\H\X[X[ۊHB -X[ۊH\]\HY[X\و܈[HX]  -‚\]٘X[ۈH\][]KOX[ۋY[X\‚Y -[\Y٘X[ۈ \]٘X[ۊBˆ ʂ -YۙHوHX[X[ۜ\ˆ -HYH[\[ܛ\ [B -[XX[\\B -\] \K -‚Y -X[٘X[ۈ PSӗԓTTWSTUJBˆ [X[٘X[ۈ PSӗԓTTWSTUN YX[٘X[ۈ PSӗԓTTWSTUJN‚Y -X[\H \]\JBˆ [X[\H \]\N Y -Y\HX[\H \]\JN‚]\ NˆB[Bˆ [X[\H \]\N Y -HX[\H \]\JN‚]\ ˆBB]\ NˆB [X] N‚]\ ŸBʂ\^K[[ۈ L L]\ HY^Y\\H[Yˈ[\X[ۈۈH][X[ۈ\K^ [K\X[XYK[\X[XYKš[X[ۗX^Y\ݙ\\[]JX[[]K[]J\][]KX[ۗܛ\X\X[ۗ\JBˆY -XX[[]H]\][]JBˆ]\ ˆB ʂ -[]\]\H^Y\˂ -‚Y -JX[[]KO[[]K\H TWVQTJBˆ]\ ˆBY -J\][]KO[[]K\H TWVQTJBˆ]\ ˆB ʂ -[X[ۈܛ\ݙ\YHY[B -\H][ˆ -‚Y -X[ۗ\H PSӗԓTVQTՑTTBˆ]\ ˆB ʂ -Yˈ[H\Yٙ[[ۜˆ -܈][]\[XY [ -H\HY[H\\]  -‚Y -]Y]K[JBˆ]\ NBY -][ ][ O]OHSPQWєWVQTёBˆ]\ NˆB]\ ŸBʂ\^K[[ۈ NKLLLN -YX܊BܚY[[]]܈[ۛۈ -Z[KYXܙY[[ݙHH]\Yܛ[\[Y]\\[ۜY]HڙX[H]ۈXˈ]ۜ[[]H[\\]\HڙX[K[[\Y܈]ۈ\]\Z[YHHY\\HوYXH\[Y]\ -YH]Z[Y[Y[[[[ۊK]\[\و]ۙYڙX[K܈SۈZ[ ™[]H -ۚYW]ۊ[]H -\[ ڙX[H -ڙX[JBˆ[]H -ڙX[W[]HHS‚\^\[\[ٛ]][ێ‚YW\X[ۈ\X[ۈHTPSӗԒQ‚YWڙX[W[YHڙX[W[YHHґPSWSQWӓӑN‚BKʈY\IڙX[H܈\[][^]ˈ -‚ZY -\ڙX[H\\[ -B^‚B\]\S‚_B][ۋH\[ O][ۋ‚\][ۋHH\[ O][ۋH -ڙX[KO][ۋN‚\][ۋH\[ O][ۋ -ڙX[KO][ۋ‚ ʂJHYY]ۈHڙX[H[]K\H\HX[H\^\YXHJY][ۜYY HYY[ܚ]^HX[[]ۋJ[[\[ HܚXH[ܘ[[\[ؘ[ JJHY\\[ܚ]NJJ KڙX[HۚYH\KJ ڙX[H\\KJ ˈ\[X\ۈ][[ڙX\KJ [[ۚYH\KJ K[[\KJ ؘ[\H[[KۚYHJ ˈؘ[\H[[KJˆY -ڙX[KOۚYHH -B^ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋS ڙX[KOۚYKS -N‚BBB\ڙX[W[YHHґPSWSQWАTWN‚B\ڙX[W[YHHґPSWSQWUSSՒS‚B\ڙX[W[YHHґPSWSQWTWҗӒQN‚_BY[HY -ڙX[KO\H -B^ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋS ڙX[KO\ S -N‚BBB\ڙX[W[YHHґPSWSQWАTWѓԎ‚B\ڙX[W[YHHґPSWSQWUSUSӐTN‚B\ڙX[W[YHHґPSWSQWTWҗѓT‚_BY[HY -\[ OX\[ \[ OX\[ O[[]KڙXH -B^ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋS \[ OX\[ O[[]KڙX S -N‚BBB\ڙX[W[YHHґPSWSQWАTWN‚B\ڙX[W[YHHґPSWSQWUSSՒS‚B\ڙX[W[YHHґPSWSQWTWPTӗґPSN‚_BY[HY -\[ O[[]KۚYHH -B^ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋS \[ O[[]KۚYKS -N‚BBB\ڙX[W[YHHґPSWSQWАTWN‚B\ڙX[W[YHHґPSWSQWUSSՒS‚B\ڙX[W[YHHґPSWSQWTWSSӒQN‚_BY[HY -\[ O[[]KH -B^ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋS \[ O[[]KS -N‚BBB\ڙX[W[YHHґPSWSQWАTWѓԎ‚B\ڙX[W[YHHґPSWSQWUSUSӐTN‚B\ڙX[W[YHHґPSWSQWTWSS‚_BY[B^ˆ ʂBJ[[[^\] ] [X‚BJHYXH\H[[\˂ -BJH\HۚYH\ Y]Z[IBBJ^  -ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋۚYHSSSVӓӑKS -N‚BBBZY -ڙX[W[]JBB^ˆ ʂBBJ\HۚYH]ۈX\ٝ[ X\\YXHۚYBBBJ[۝[YK -BB\ڙX[W[YHHґPSWSQWTWАSӒQN‚B_BBY[HB^‚BBKʈH -ˆڙX[W[]HH]ۊ][ۋ ][ۋ][ۋK\X[ۋSSSVӓӑKS -N‚BB\ڙX[W[YHHґPSWSQWTWАS‚B_BB\ڙX[W[YHHґPSWSQWАTWN‚B\ڙX[W[YHHґPSWSQWUSSՒS‚_BKʈYH]\X\ٝ[H]ۙYHڙX[H[]K^] -ˆY\ڙX[W[]JBˆ]\SˆB ʂ -]\[و\X[ۈY\Y[ HYY\YܙHH[[B -][ۚ[ۈ^\˂ -ˆ\X[ۈH\X[ۗ]Y\Y[ܙ\[ -ڙX[W[]K\[ ڙX[KO\X[ۗY\ -N‚ ʂ -] ]\H]ۈ][ۋ]\H[ -\[X\Y  - -\HY][][ۈYܙX]܈Y]B -\H[YK -‚Y -ڙX[KO][ۋOHґPSWQPWTUPSUWUSӗ -BˆڙX[KO][ۋHґPSWQUSUSӗˆBY -\X[ۈOHTPSӗԒQ -Bˆ][ۋH\[ O][ۋ -ڙX[KO][ۋˆB[Bˆ][ۋH\[ O][ۋ HڙX[KO][ۋˆBڙX[W[]KO\X[ۈH\X[ێˆڙX[W[]KO][ۋH][ۋˆ ʈ -^Y\ڙX[\\H[^\\H[\ -\[H\[ґPSH\K -ˆY -JڙX[W[]KO[[]K\H TWґPSJJBˆY -\[ O[[]K\H TWVQTBˆڙX[W[]KO[[]K\HHTWˆB[BˆڙX[W[]KO[[]K\HH\[ O[[]K\NˆBBKʈ\HڙX[H[YHYˈ -ˆڙX[W[]KOڙX[W[YHHڙX[W[YN‚ ʂJHٙ[H[Y\H\[ٙ[H][JڙX[H[]HY\]Y\Y JˆY -ڙX[KOٙ[HOHґPSWёSWTS -B^‚B[Y[XJڙX[W[]KOٙ[K\[ Oٙ[K^[ي -ڙX[W[]KOٙ[JH -X^]X\\N‚_BKʈ\H܈Y\Y[ -‚X\Wܗ]Y\ -ڙX[W[]K\[ ڙX[KOܗ]Y\ -N‚BB ʂJY[ݙK[[YY\ \\HX܈\HقJڙX[H[]KY^Y\\YY[H[YH\J[SSQQӓӑKH\H^Y\[YKY [JXY][[Y\ˈ\\H]ݙ\\X]Y ]J[^Y\\HH []H[YHۈ[H^\˂JˆY -ڙX[W[]KO[[]K[ݙWۙYٛY SՑWӑQӓSՑJB^ˆڙX[W[]KO[[]KYY H ˆڙX[W[]KO[[]KYY HH ˆڙX[W[]KO[[]KYY H ‚_BY[B^BBKʈHYY[Y\H[[X][ۈڙX[H][[[ -ˆڙX[KO[]HHڙX[W[]KO[[]KYY‚_BKʈ]\Z][܈Yˈ -ˆڙX[W[]KO]۝\HHUӗTWґPSWӓԓPSˆڙX[W[]KOۙ\H\[ˆڙX[W[]KOܘXH NˆڙX[W[]KO]X[HUPSPUNˆڙX[W[]KO[H[[ۗ[ˆڙX[W[]KO^[H[YH - NˆڙX[W[]KO[[ݙHHSˆڙX[W[]KOZY[XYHH\ZY[XYNˆڙX[W[]KOZXX[ۈHSˆڙX[W[]KO[[]KZ[[ݙHHRSSՑLWTˆڙX[W[]KOYY][H ˆڙX[W[]KO[[]KZX]XHRPUPWӓUPˆY\ڙX[W[]KO[[]KٙܙY[[ -BˆڙX[W[]KO[[]KٙܙY[[H  Y][[YBBBKʈ[[[H] -‚ZY -ڙX[W[]KO[[]K[[ݙWۙY SSՑWӑQU -B^ˆڙX[W[]KO]][HUUSUPU‚_BB ʈ[[[H[\[[X][ۋ -‚ZY -ڙX[W[]KO[[]K[ݙWۙYٛY SՑWӑQӓSՑJB^ˆڙX[W[]KO]][HUUSSSPUSӗTUN‚_BBKʈ\\H܈܈Z[ڙX[H]\HXܙ[K -ˆYڙX[W[]KOڙX[W[YH ґPSWSQWАTWѓԊBˆڙX[W[]KO\HH ˆB[BˆڙX[W[]KO\HH][ۋNˆB ʂJHX[ۈ]HH\[ J‚X[ۗW[ -ڙX[W[]K\[ -N‚ ʂJY^Y\[XYH\Yٙ[[ݙH^Y\\HBJ[H -Z[ڙX[\X]H^Y\[ۙJH[JH[[XYK -ˆY -\[ O[[]K\H TWVQTH - -][ ][ O]OHSPQWєWVQTёH]Y]K[JJBˆڙX[W[]KOX[ۋ\W[H HTWVQTˆڙX[W[]KOX[ۋ\W[XYW\X HTWVQTˆBKʂ -]\Z[[[ݙ[Y[Z][܈YˈYXH -Z][܈[[[ݙ[Y[[ۙH^\ˆ -]][\]H[^\]] -XZ[\]X[]KIYYHY\[ -]\\[[ۈ][[ۈܙX]܈\Y  -ˆڙX[W[]KO[[]K[ݙWۙYٛYH -SՑWӑQґPSWАTWQHSՑWӑQPPHSՑWӑQPPUԓHSՑWӑQPPSSՑWӑQґPSWSГSJNˆڙX[W[]KO[[]K[ݙWۙYٛY HSՑWӑQӓQTАTN‚Y -ڙX[W[]KOڙX[W[YH ґPSWSQWSUPSVWQPWґPSWѕSSӊBˆڙX[W[]KO[[]K[ݙWۙYٛYHSՑWӑQPPԐUUNˆB[BˆڙX[W[]KO[[]K[ݙWۙYٛY HSՑWӑQPPԐUUNˆBKʈ^X]HHڙX[Iۈ]ۈ][ -‚Y^X]Wۜ]ۗܚ\ -ڙX[W[]JN‚B\]\ڙX[W[]NŸBYX^J -BˆY[O[[X][Bˆ]\ˆB[[]J[SSUWQTГPVWSSPUSӗTUJNŸBʂ\^K[[ۈ NKLLL -YX܊BܚY[[]]܈[ۛۈ -Z[KYXܙY[[ݙHH]\Yܛ[\[Y]\\[ۜY]HڙX[H]ۈXˈ]ۜ[[]H[\\]\HXڙX[K[[\Y܈]ۈ\]\Z[YHHY\\HوYXH\[Y]\ -YH]Z[Y[Y[[[[ۊK]\[\و]ۙYڙX[K܈SۈZ[ ™[]H -X]ۊ[]H -\[ ڙX[H -ڙX[JB‚Y[]J[HS‚\^\[\[ٛ]][ێ‚YW\X[ۈ\X[ۈHTPSӗԒQ‚YWڙX[W[YHڙX[W[YHHґPSWSQWӓӑN‚KY\IڙX[H܈\[][^]˂ZY -\ڙX[H\\[ -B^‚B\]\S‚_BB][ۋH\[ O][ۋ‚\][ۋHH\[ O][ۋH -ڙX[KO][ۋN‚\][ۋH\[ O][ۋ -ڙX[KO][ۋ‚ ʂJHYY]ۈHڙX[H[]K\H\HX[H\^\YXHJY][ۜYY HYY[ܚ]^HX[[]ۋJ[[\[ HܚXH[ܘ[[\[ؘ[ JJHY\\[ܚ]NJJ KڙX[HX\KJ \[X\ۈ][[X\KJ ˈ[[X\KJ‚YڙX[KOXH -Bˆ[H]ۊ][ۋ ][ۋ][ۋK\X[ۋS ڙX[KOXS -N‚B\ڙX[W[YHHґPSWSQWTWҗГP‚_BY[HY -[OX\[ [OX\[ O[[]KX\HOHPTWґPSH [OX\[ O[[]KڙXH -B^‚BY[H]ۊ][ۋ ][ۋ][ۋK\X[ۋS [OX\[ O[[]KڙX S -N‚BBB\ڙX[W[YHHґPSWSQWTWPTӗґPSN‚_B[HY[O[[]KXH -Bˆ[H]ۊ][ۋ ][ۋ][ۋK\X[ۋS [O[[]KXS -N‚B\ڙX[W[YHHґPSWSQWTWSSГP‚_BB\ڙX[W[YHHґPSWSQWАTWѓԎ‚\ڙX[W[YHHґPSWSQWUSSՒS‚BKYH]\X\ٝ[H]ۙYHڙX[H[]K^] YY[ -Bˆ]\SˆB ʂ -]\[و\X[ۈY\Y[ HYY\YܙHH[[B -][ۚ[ۈ^\˂ -ˆ\X[ۈH\X[ۗ]Y\Y[ܙ\[ -[ \[ ڙX[KO\X[ۗY\ -N‚ ʂ -] ]\H]ۈ][ۋ]\H[ -\[X\Y  - -\HY][][ۈYܙX]܈Y]B -\H[YK -‚Y -ڙX[KO][ۋOHґPSWQPWTUPSUWUSӗ -BˆڙX[KO][ۋHґPSWQUSUSӗˆBY -\X[ۈOHTPSӗԒQ -Bˆ][ۋH\[ O][ۋ -ڙX[KO][ۋˆB[Bˆ][ۋH\[ O][ۋ HڙX[KO][ۋˆB[ O\X[ۈH\X[ێˆ[ O][ۋH][ۋ‚Y[ OڙX[W[YHHڙX[W[YN‚ ʂ -Y[ݙK[[YY\ \\HX܈\HقJڙX[H[]KY^Y\\YY[H[YH\J[SSQQӓӑKH\H^Y\[YKY [JXY][[Y\ˈ\\H]ݙ\\X]Y ]J[^Y\\HH []H[YHۈ[H^\˂ -‚ZY -[ O[[]K[ݙWۙYٛY SՑWӑQӓSՑJB^‚BY[ O[[]KYY H ‚BY[ O[[]KYY HH ‚BY[ O[[]KYY H ‚_BY[B^BBBKHYY[Y\H[[X][ۈڙX[H][[[ B\ڙX[KO[]KH[ O[[]KYY ‚_B ʂJHX[]H[[\˂JJH[[HYXHZ][܈ -\HڙX[H[\ZYJ܈H[]JK[]]܈\HH [YH܈HJ[]K[\HH[YH[]HX\HY[X\܈XJ[ۚYHڙX[\ˈH\\\[^H[[HX]\HJHY][[]HYY܈ۚYH[X\H\]XKJ[H[و\\H[]H[]KHY[X\JSSQQӓӑHXٚX[H[HXڙX[H\\]Y\YJHHٜ[YH[X[܈X\HHYXHܚ\[[ۈJڙX[J -KYH]]܈\[YH\[YKHۛJ[XYXHZ][܈[\HHڙX[H[]IJ[[[\ZY JJYH[YH\[][\[SSQQӓӑK[HۛJH]]܈\]Y\YHXYX[]H -[Y[ -H[[J\H]]܈[YH[XYو[[[\ZY J‚ZY -ڙX[KO[]KHOHSSQQӓӑJB^‚B][ [ O[[]K[\ZY -N‚_BY[B^‚B][ ڙX[KO[]KJN‚_BBKʈ\H܈Y\Y[ -‚X\Wܗ]Y\ -[ \[ ڙX[KOܗ]Y\ -N‚[ O]۝\HHUӗTWґPSWГPˆ[ O]X[HUPSPUNˆ[ Oۙ\H\[[ OܘXH N[ O^HH -VWTTWPVWTTWԓS -N[ O[H[[ۗ[ˆ[ O^[H[YH - Nˆ[ O[[ݙHHSˆ[ OZXX[ۈHSˆ[ O[[]KZ[[ݙHHRSSՑLWГPˆ[ O[[]KZX]XHRPUPWӓUPˆ[ OZY[XYHH[[ۗZY[XYN‚Y[ O]][ HUUSUPUZY -[ O[[]K[ݙWۙYٛY SՑWӑQӓSՑJB^‚BY[ O]][HUUSSSPUSӗTUN‚_BB[ OYY][H ‚Kʂ -HX[ۈ]K -‚YX[ۗW[ -[ \[ -NˆY[ O[[]K[ݙWۙYٛY HSՑWӑQӓQTАTN‚Y[ O[[]K[ݙWۙYٛYH -SՑWӑQPPАTSPTSՑWӑQґPSWАTWQHSՑWӑQґPSWSГSHSՑWӑQPPԐUUHSՑWӑQPPHSՑWӑQPPUԓHSՑWӑQPPS -N‚BK^X]HHڙX[Iۈ]ۈ][ Y^X]Wۜ]ۗܚ\ -[ -N‚B\]\[ŸB]ۈ \‹‹\^K[[ۈ NKLLLM‹‹]ۈYH\ڙX[\ˈYX[܈ZZH[[ZY\[ܚY[[X]وYK[[\[YH\\Z[XYۘ[H۝\]^Y\ˈܚY[[]]܈[ ][YYY]\[[Y\H[ۛۈ\Y\ˈYXܙYH NKLLLMܚ]\[ڙX[H\[K؝[\KHYY\܈X\\]X[]H]YXH[[\]\\Hܚ\\H\XH[H][\HڙX[\܈[H\ܝوXX[^YڙX[H]ۜ˂‹]\QHY\]ۙY SHۈZ[ [\]ۊ[]H -\[ ڙX[H -ڙX[JBˆۜ[PVTH ‚[]H -[HS‚Z[HH ‚Z[[^HSSSVӓӑNˆ[\ܝYH ‚\^\[\[ٛ]][ێ‚YW\X[ۈ\X[ۈHTPSӗԒQ‚YWڙX[W[YHڙX[W[YHHґPSWSQWӓӑN‚KY\IڙX[H܈\[][^]˂ZY -\ڙX[H\\[ -B^‚B\]\SN‚_BB][ۋH\[ O][ۋ‚\][ۋHH\[ O][ۋH -ڙX[KO][ۋN‚\][ۋH\[ O][ۋ -ڙX[KO][ۋ‚ [YHۘ\\ۚYH]ۋ܈[[]ۋK K[[X][ۈڙX[KK X\ۈ[[ڙX[KK ˈ\H[[ڙX[KK YXHY][ YڙX[KO\H -Bˆ[^HڙX[KO\‚B\ڙX[W[YHHґPSWSQWTWҗTˆBY[HY -\[ OX\[ \[ OX\[ O[[]KX\HOHPTWґPSH \[ OX\[ O[[]KڙXH -B^‚BZ[^H\[ OX\[ O[[]KڙX‚B\ڙX[W[YHHґPSWSQWTWPTӗґPSN‚_B[HY\[ O[[]K\H -Bˆ[^H\[ O[[]K\‚B\ڙX[W[YHHґPSWSQWTWSSTˆB[Bˆ[^H]XY[[[^ -\NB\ڙX[W[YHHґPSWSQWTWАSTˆB\ڙX[W[YHHґPSWSQWАTWN‚\ڙX[W[YHHґPSWSQWUSSՒS‚KX^\[ ܊HH HPVTJB‚BK]ۈH\[]KYHZ[ ^][]\[K[H]ۊ][ۋ ][ۋ][ۋK\X[ۋS [^ S -NˆY[OHS -Bˆ]\ ˆB ]\[و\X[ۈY\Y[ HYY\YܙHH[[B ][ۚ[ۈ^\˂\X[ۈH\X[ۗ]Y\Y[ܙ\[ -[ \[ ڙX[KO\X[ۗY\ -N‚ ʂ -\HY][][ۈY -ܙX]܈Y]H\H[YK -‚Y -ڙX[KO][ۋOHґPSWQPWTUPSUWUSӗ -BˆڙX[KO][ۋHґPSWQUSTUSӗˆB ]\H[\[X\Y Y -\X[ۈOHTPSӗԒQ -Bˆ][ۋH\[ O][ۋ -ڙX[KO][ۋˆB[Bˆ][ۋH\[ O][ۋ HڙX[KO][ۋˆB[ O][ۋH][ۋˆ[ O\X[ۈH\X[ێ‚BK NKLLLM H\HHH]]X[ٙ]BKX][]\H܈YXHZ][܋\[ O]X[HUPSӓӑN‚BK\\]ۙYܝY\\\H\H܈ܝ[ˈBK[H^\ܝ\H\H H[^ XXBKX\]Y[\\X\ۙH\\\Z[[BKܝ[ܙ\BK‚BK^\H -\\HH   H HH NK  H H N BZY -HH -BB^‚BBY\ܝYH[ OܝY‚B_B[ OܝYH\ܝY HN‚[ OZY[XYHH\ZY[XYNˆ[ Oۙ\H\[ˆ[ O]X[HUPSPUNˆ[ OܘXH NˆBK]H\[]H][H[[X][ۋBY[ O[]KHڙX[KO\ݙ[]VWN‚BK]\H[]HY\X[ۈ\Y BZY -\X[ۈOHTPSӗQ -BB^‚BBY[ O[]KH Y[ O[]K‚B_BBBBY[ O[H[[ۗ[ˆ[ O^[H[YH - Nˆ[ O[[ݙHHSˆ[ OZXX[ۈHSˆ[ O[[]KZ[[ݙHHRSSՑLWTˆ[ O[[]KZX]XHRPUPWӓUPˆBK[[ݙH\ۈ۝X BZY -[ O[[]K[[ݙWۙY SSՑWӑQU -BB^‚BBY[ O]][HUUSUPU‚B_BBBBBBY[ O][ۋHH][ۋN‚BY[ O\HH][ۋNˆ[ OYY][H ˆ ʂ -HX[ۈ]K -ˆX[ۗW[ -[ \[ -N‚BK\X\X[\H]\ BY[ O[[]K[ݙWۙYٛYH -SՑWӑQPPАTSPTSՑWӑQPPԐUUHSՑWӑQPPHSՑWӑQPPUԓHSՑWӑQPPS -N‚BY[ O[[]K[ݙWۙYٛY HSՑWӑQӓQTАTN‚[ O]۝\HHUӗTWґPSWT‚BY[ OڙX[W[YHHڙX[W[YN‚BK^X]HHڙX[Iۈ]ۈ][ BY^X]Wۜ]ۗܚ\ -[ -NˆB]\QNŸBYX[W[ -BˆY\[O[[X][Bˆ[[]J[SSUWQTPSWSSPUSӗTUJNˆ]\ˆB[O\H -H Nˆ[O][ۋHH[O\NŸB܈H\\H LKL H\\Y\[ -Bˆ[O]X[HUPSPUNŸB LKL H\[YX[W]ۊ] ]]JBˆ[]H -HHS‚HH]ۊ K X[H LKS -N‚YHOHS -Bˆ]\ˆBKO]۝\HHUӗTWPSNˆKO\HHNˆKO[[]K[ݙWۙYٛYHSՑWӑQӓQTАTNˆKO[HX[W[‚K^X]HHX[\ۈ]ۈ][ Y^X]Wۜ]ۗܚ\ -JNŸBYX[Y\[ -BˆX[W]ۊ[O][ۋ [O][ۋ[O][ۋJNˆ[O^[H[YH - -ؘ[ۙY˙[YWYY L -H - -[ ̊ -H JNŸBY^[ -H ][[ۈ^[H\^YYˆ Z]ZXYBY\[O[[X][Bˆ[[]J[SSUWQTVSSPUSӗTUJNˆBB‚Z[\[]\]\H\]\B[]H -Z[ٚ[\] -[]JX[[]JBˆ[Nˆ[Z[ˆ[X^ˆ[]J\][]HHSˆ[]J\ܗ[]N‚ \HH[[[X][ۉ[BY[Y[[JX[[]KSWSJBˆZ[HX[[]KO[[]K[[X][ۖSWSKO[K Z[ˆX^HX[[]KO[[]K[[X][ۖSWSKO[K X^ˆB[BˆZ[H ˆX^HNNNˆB ٚ[H ۙX\\ ۙB܊HH H[X^JBˆ\ܗ[]HH[\WN‚Y\ܗ[]KO^\ \ܗ[]HOHX[[]H [\][ \ܗ[]HOHX[[]KOۙ\ ۉY\ۙ\ X[ۗX\[JX[[]K\ܗ[]JB Y\ܗ[]KO][ۋ X[[]KO][ۋ -H -Y\ܗ[]KO][ۋX[[]KO][ۋHHZ[ Y\ܗ[]KO][ۋ X[[]KO][ۋ -H -Y\ܗ[]KO][ۋX[[]KO][ۋHHX^ \ܗ[]KO[[X][ۋO[\XV\ܗ[]KO[[\H -BˆY]\][]HY\ܗ[]KO][ۋ X[[]KO][ۋ -H -Y\ܗ[]KO][ۋX[[]KO][ۋHY\][]KO][ۋ X[[]KO][ۋ -H -Y\][]KO][ۋX[[]KO][ۋJBˆ\][]HH\ܗ[]NˆBBB]\\][]NŸBYZWܘ\ - -Bˆ[NˆY[O\X[ۈOHTPSӗԒQ -Bˆ[O[]KH ˆB[Bˆ[O[]KH LˆB܊HH H][]\[]KX^^Y\JBˆY -]Y]K\[XVWJH۝ܝ[XJK K L -NˆB Y[O][ۋY[^ LL [O][ۋY[^ -Y[[\˚\L -JH[[]J[NŸB[Z\ZY[XYJ[]J\][]K[]J]X[[]K]Xʈ]XؚX [[ٛYۜY[JY[WؚX -Bˆ[]H -]\HS‚Y\][]KOX]]H PUUWPQ -Bˆ]\ ˆB [[HBY\][]KO][ۋHUT -Bˆ[[]J\][]KSSUWQTRWSPQWВRTU -Nˆ]\ ˆBY]X[[]HOH\][]JBˆ]ۙ[ -]X[[]K\][]JNˆBY]XؚX OZ[H ۉ]\[[]\XY X]\HH]X\Z[YXˆX[XYJ\][]K]X[[]K]XؚX Y[WؚX -NˆY\][]KO[\W]KX[\[ -Bˆ]\ N XYY]BBXؘXZ[]X[[]K\][]JNˆ]Z[\][]K\][]KO\[XYW\K JNˆ\][]KO]X[HUPSPUNˆY]\][]KO[[]KٙܙY[[ -Bˆ\][]KO[[]KٙܙY[[H L ˆB\][]KO[HZWܘ\ˆ [ \\HX[[]KH]\ZHH[XYBY -]\H]\\][]JJJBˆ]\O][ۋHH\][]KO][ۋNˆ]\OH Nˆ]\O\X[ۈH\][]KO\X[ێˆY]\OZY[XYJBˆ]\OZY[XYJ]\]X[[]K]XؚX [ٛYY[WؚX -NˆB[Bˆ]\O[\W]KX[\[ OH]XؚX O]XٛܘNˆBB\][]KO[\W]KX[\[H ˆXX] -\][]JNˆ]\ NŸBY؜XW٘[ - -BˆY[Z\[JBˆ]\ˆB[O[]KH[O[]KH ˆY -\[O[[X][ [Y[[J[SWQJJH][Y[[J[SWQJJBˆ[[]J[SSUWQTДPWѐSӓPUSSPUSӊN ^YSWQH[H\YBBY؜XWٛJ -H ؜X\[H[]ZHۈ[\ۜSˆ [O][ۋ -H[O[]K -  \]Z][[وYY Y[O][ۋY[^ - -Y[[\˚\ - -H[O][ۋY[^ H -Bˆ[[]J[SSUWQTДPWѓWUїГSNˆBB[؜XWZY[XYJ[]J\][]K[]J]X[[]K]Xʈ]XؚX [[ٛYۜY[JY[WؚX -BˆY\][]KO][ۋHHUT -Bˆ[[]J\][]KSSUWQTRWSPQWДPWU -Nˆ]\ ˆB]ۙ[ -]X[[]K\][]JNˆY\][]KOۙ[ -\][]KOۙ[ O[[]K\H TWVQTJBˆY -]Y]K\[XV\][]KOۙ[ O^Y\[^JH۝ܝ[XJ\][]KOۙ[ O^Y\[^  K JNˆB ʈ[[]H[\H[XYK -ˆX[XYJ\][]K]X[[]K]XؚX Y[WؚX -N‚\][]KO^Y\[^H]X[[]KO^Y\[^ YY[HܜX^Y\YܙJ]X[[]KO^Y\[^ ]XؚX O]XٛܘH -\][]KO[[]K][\JN [[H][܈][[؜XBY\][]KO[\W]KX[\[H -B‚XX] -\][]JN‚Y]X[[]KO][ۋ\][]KO][ۋ -Bˆ\][]KO[]KH NˆB[Bˆ\][]KO[]KH LNˆB\][]KO]X[HUPSPUN ؜X\[^H[\^Y\[[ZY\‚Y\][]KO[[]KX\HOHPTWѓQQJH ؜X\[HZHۈ[\ۜSˆ\][]KO[]K -H ˆ\][]KO[H؜XWٛNˆ[][[J\][]KSWѐS  -NˆB[Bˆ\][]KO[H؜XW٘[‚Y[Y[[J\][]KSWQJJBˆ[][[J\][]KSWQK -N  KLLL HYHYܙHˆB[Bˆ\][]K\][]KO[[]K[\ZY KNˆ[][[J\][]KSWѐS  -NˆBY\][]KO[[]KX]ۙYٛY PUӑQPPԓГSBˆ\][]KO[H NˆBBB\][]KO^[H[YH - Nˆ]\ NŸB\^K[[ۈ N L L‹‹[]HY[[ܞH[][]H\Y\][H[ٙ\YHY][KY[]X[^W][W\J[]H -[ ]ۗ[H -]ۗ[JBˆ ] XH[\Hܚ\ Y \H\[XYHY[[ܞH܈[][H[]Y \KX\]]XZH\HHۉ[\ ][HY[[ܞHXZ˂Y[ O][W\Y\BˆYJ[ O][W\Y\Nˆ[ O][W\Y\HSˆB []HY[[ܞH܈H][K[ O][W\Y\HX[^[ي -[ O][W\Y\JNˆY[\] -[ O][W\Y\ ^[ي -[ O][W\Y\JN‚Y]ۗ[JBˆ[ O][W\Y\O[^H]ۗ[KO][W\Y\˚[^‚Y]ۗ[KO][W\Y\˘[X\JBˆJ[ O][W\Y\O[X\]ۗ[KO][W\Y\˘[X\NˆBY]ۗ[KO][W\Y\˘ܜ] -Bˆ[ O][W\Y\Oܜ]H]ۗ[KO][W\Y\˘ܜ]ˆBY]ۗ[KO][W\Y\˚X[ -Bˆ[ O][W\Y\OX[H]ۗ[KO][W\Y\˚X[ˆB[ O][W\Y\O^Y\[H]ۗ[KO][W\Y\˜^Y\[ˆBB[]H -X\]ۊ]ۗ[H -H LKL H[\HX[ۈ\XY]ܙ[Bˆ[]H -HHSˆ[]H -HSˆ[^Y\[‚YOHS ʈ -][OHS JܙY[]\ -SԑQSSPSԑQSUHSԑQSSїѐSQHSԑQSSQWՑTSԑQSTUHSԑQSSSWԑQUSԑQSQSHSԑQSSQWTQSHSԑQSӑUSQWQSHSԑQSQSQWQSHSԑQSSӔQSHSԑQSӕSӔQSHSԑQSSSӔQSHSԑQSՒQSSӔQSHSԑQSTSWSӔQSJJH \[[JJˆ -Bˆ]\SˆB ʈ]ۈ][H\Yۈ\وX]H^Y\ˈ -ˆYO]ۜ^Y\[H -^Y\[HPV - K[[TWVQTJJJBˆYO ][OHS -Bˆ K[][ O\[ˆB]\SˆBY][OHS - -][ Oܛ\ ԓST -H -][ Oܛ\ ԓUT -JH -BˆHH]ۊO][ۋ O][ۋ -Y[^KO][ۋKO\ O[YKO[^ O[[ -NˆB[BˆHH]ۊO][ۋ -Y[^ O][ۋO][ۋKO\ O[YKO[^ O[[ -NˆBYHOHS -Bˆ]\SˆB [\ - Y Y YH H - Y Y YHO[YKO][ۋ O][ۋO][ۋKKO][ۋ KO][ۋKO][ۋJN‚ [X\ˆYO[X\JBˆY[\] -KO[YK ^[يKO[YJJNˆJKO[YKO[X\NˆB YH]H][H\Y\[]ۈ[K[\\HH]ق \Y\\ۈH][H[]\Y YO][JBˆ[]X[^W][W\JKNˆBX[ۗW]J KO[[]KX[ۋ OX[ۊNˆX[ۗW]J KOX[ۋ OX[ۊN‚YO]۝\JBˆKO]۝\HHO]۝\N ̌ LW ̌\]۝\KBYOX[^Y\[ H WHOH -BˆKO[\W]KX[\[HKO[[]KX[HOX[^Y\[ H WNˆBYO\OH -BˆKO[\W]K\\[HKO[[]K\HO\ˆBYOܙHOH -BˆKO[[]KܙHHOܙN ݙ\ܚ]HܙHY^\[H][ ˈ[BBYO][\HOH -BˆKO[[]K][\HHO][\N ݙ\ܚ]H][\HY^\[H][ [BBYYKOX\ O\X\ -Bˆ[]\X\ -KO\X\ -NˆBYOYܙ\[ۊBˆKO[[]KYܙ\[ۈHOYܙ\[ێ Yܙ\[ۈ[H[Y]]ۈ[ˆBYO][W\Y\˘[JBˆKO][W\Y\O[HHO][W\Y\˘[NˆBYO[JBˆKO[[]K[HHO[NˆB X  H HܙHHܚY[[X\HXH\ܙH]Z[\YOZ[BˆKOZ[HOZ[ X  H H\YY[HX\X\\\Y܈HZ[\KO\HHO\N X\ K H H\YܙH\H\[Y\ˆKO\HO\ X\ K H H\YܙH\H\[Y\ˆKOZ[̈HOZ[̎ X MK M H\YY[HX\X\\\Y܈HZ[\܈\H]HYۂBYOYJBˆKO[[]KYHHOYN ݙ\ܚ]H]\]H\\XH܈BKOHO‚YO ][OHS ][ O]\XJBˆ]\X][ O]\X K][ O]\Xٙ] -NˆB ]HH[]HHX\ۈ][BYOX\ۊBˆH]ۊKO][ۋ USWQWUSӗ֋  OX\ۋOX\ۚ[^ OX\ۛ[[ -NˆY -Bˆ [Y][[] - -Nˆ]X\ۊK O[[]KX\ۗ\Y\˝X\ۗ[^  -NˆKOX\[H‚KOX\[ O]۝\HHUӗTWPTӎˆBB ][]H\N^Y\[[^KˋYO[]]\JBˆKO[[]K\HHO[]]\NˆB ]H\[YO\[ -H O\\ O\OOHSTBˆKO\[H -[]H -\O\[ˆB [Y][[] -JNˆ^X]Wۜ]ۗܚ\ -JNˆ^X]W]ۗܚ\ -JNˆ]\NŸH LKL H\XYX[ۈ[\B[\[[J] ]]K]\ -BˆY -][ -BˆY -HY[^ -\ HY[^ -ݚY[[\˚\]\ XHHY[^J\ XHHY[^JݚY[[\˝\M -HˆY -HܛZ[ HܛX^ -ݚY[[\˚\ HVQTRSֈ HVQTPVֈ -Hˆ]\ NˆBBB]\ ŸBY]ۜ^Y\[[^ -Bˆ]ۗ[Hˆ [[ -[[HSˆ[[ˆ[[H ˆ[^ H ‚[[H[[[ -^Y\[^K[YJN‹Y[[OHS -H]\‚Y[\] -  ^[ي -JNˆ [YHH^Y\[^K[YNˆ [^H LNˆ ][W\Y\˚[^H LNˆ X\ۚ[^H LNˆ \X\H^Y\[^K\X\ˆ ]ۜ^Y\[H LNˆ ]۝\HHUӗTWVQTPRS‚Y][ Oܛ\ ԓQ -BˆY][ O]ۈ ][ O]ۖ[^K -Bˆ ][ۋH -] -JY[[\˚\ H][ O]ۖ[^K -NˆB[Bˆ ][ۋH -] -J -Y[[\˚\ H -H H  -[^ -NˆBB[BˆY][ O]ۈ ][ O]ۖ[^K -Bˆ ][ۋH -] -J][ O]ۖ[^K -NˆB[Bˆ ][ۋH -] -J  -  -[^ -NˆB \H NˆBY][ O]ۈ ][ O]ۖ[^KBˆY][ Oܛ\ -ԓSTԓUT -JBˆ ][ۋH -] -J][ O]ۖ[^KNˆB[Bˆ ][ۋH -] -JVQTRSֈ -][ O]ۖ[^KNˆBB[HYVQTPVֈ HVQTRSֈ JBˆ ][ۋH -] -JVQTRSֈ - JNˆB[Bˆ ][ۋH -] -TVQTRS֎ˆBY ][ۋVQTRS֊Bˆ ][ۋHVQTRS֎ˆB[HY ][ۋVQTPV֊Bˆ ][ۋHVQTPV֎ˆB X[\[ˆ܊H Y[[\˚\ BˆY ][ۋHY[[\˚\Bˆ ][ۋ OHY[[\˚\ˆBY ][ۋ -Bˆ ][ۋ -HY[[\˚\ˆBYVQTRSֈOHVQTPV֊Bˆ[HX[[^ -Y[^ - ][ۋ  ][ۋNˆY[H  ][ O[[KZYPVSRQ -BˆXZ ٛ[BYXW[Y[^ - ][ۋ  ][ۋ ][ۋJH -[H  ][ O[[KZYHPVSRQ -JBˆ[H ˆB[BˆXZ [BB[H܊H  -VQTPVֈ HVQTRS֊H  ][ۋ -H BˆY ][ۋVQTPV֊Bˆ ][ۋ OHVQTPVֈ HVQTRS֎ˆBY ][ۋVQTRS֊Bˆ ][ۋ -HVQTPVֈ HVQTRS֎ˆB[HX[[^ -Y[^ - ][ۋ  ][ۋNˆY[H  ][ O[[KZYPVSRQ -Bˆ[H NˆXZˆB[HY[H  ][ O[[KZYHPVSRQ -Bˆ۝[YNˆBYXW[Y[^ - ][ۋ  ][ۋ ][ۋJJBˆ۝[YNˆB[H NˆXZˆBY[ -BˆXZˆB ][ۋ -H -][ Oܛ\ ԓQ -H M ˆB ˆ\[]ۜ^Y\H[^ˆ^Y\[^K[HX\]ۊ -N‚Y^Y\[^K[OHS -Bˆܔ]ۊ K][[XH]ۈ^Y\H \ [YJNˆB^Y\[^K[ O^Y\[^H[^‚YX^\\]HH JBˆ^Y\[^K[ O\ X^HX^\\][^NˆB[Bˆ^Y\[^K[ O\ X^H ˆBY[\] -^Y\[^K[X[[]\ܞK ^[ي^Y\[^K[X[[]\ܞJB -N‚Y[\] -^Y\[^K[X[[]\[YK ^[ي^Y\[^K[X[[]\[YJB -N‚Y[\] -^Y\[^K[X[[]Y\[YK ^[ي^Y\[^K[X[[]Y\[YJB -N‚^Y\[^K[X[[]\ݘ[YH ˆ^Y\[^K[X[[]Y\ݘ[YH ˆ^Y\[^K[X[[][H ˆ^Y\[^K[X[[][^H ‚Y^Y\[^K]ۚX[ -Bˆ^Y\[^K[ O[\W]KX[\[H^Y\[^K]ۚX[ - NˆBY^Y\[^K[ O[\W]KX[\[^Y\[^K[ O[[]KX[ -Bˆ^Y\[^K[ O[\W]KX[\[H^Y\[^K[ O[[]KX[ˆB \]HXܝ\Y\H][HZ[ˆY^Y\[^K]ۛ\ -Bˆ^Y\[^K[ O[\W]K\\[H^Y\[^K]ۛ\ - ˆBY^Y\[^K[ O[\W]K\\[^Y\[^K[ O[[]K\ -Bˆ^Y\[^K[ O[\W]K\\[H^Y\[^K[ O[[]K\ˆBY^Y\[^KX\Bˆ]X\ۊ^Y\[^K[ ^Y\[^KX\ -NˆB[Bˆ]X\ۊ^Y\[^K[ ][ O]X\  -NˆBB[^Y\[]Wڛ[ -Bˆ[[]W^Y\H ˆ[Nˆ܊HH HPVVQTJBˆY - -\^Y\WK[^Y\WK]\H  -^Y\WK]\H H ^Y\WK[ O[\W]KX[\[H -JH  - -\H ^Y\WKܙY]H -H -[\H ܙY]H -JJB -Bˆ -ۛ[]W^Y\ˆBB[]W^Y\H -[]W^Y\HPVVQTH H ‚]\[]W^Y\ŸBY[[^Y\؞W[Y[ݙ\ -Bˆ[Nˆ]X]X[Y[ݙ\H[\X]Xˆ]X]XHH[\X]XˆۜY[JY[WؚXHS‚]X[Y[ݙ\]X\HHUSQSՑTˆ]X[Y[ݙ\HHY][[[Nˆ]X[Y[ݙ\HY][[[ˆ]X[Y[ݙ\HY][[[‚]XK]X\HHUNˆ[[YHH Nˆ܊HH HPVVQTJBˆ[]J\H[ˆ[H^Y\WK[ˆY[ ][Y[[J[SWJJBˆ[[YHH ˆ]X[Y[ݙ\]XٛܘHH[O[\W]KX[\[‚Y[WؚXHY[Wٚ[\[ؚX -[S ]X[Y[ݙ\]X\JNˆ[OZY[XYJ[[ ]X[Y[ݙ\ Y[WؚX -NˆB[HY[Bˆ[[YHH ‚]XK]XٛܘHH[O[\W]KX[\[ˆY -[Z\[H [Y[[J[SWѐSJJBˆ]XKHHY][[[Nˆ]XKHY][[[ˆ]XKHY][[[ˆ[O[[]KX]ۙYٛYHPUӑQPPԓPUѐSSˆB[Bˆ[O[[]KX]ۙYٛYHPUӑQPPԓPUˆBY[WؚXHY[Wٚ[\[ؚX -[S ]XK]X\JNˆ[OZY[XYJ[[ ]XK Y[WؚX -NˆB[H\ˆBBY[YWݙ\ -BˆY][ O\HOH JBˆ][\]YH N X K H H\Y܈۝\][HYH\ۉZ[]^HY[YH^\\˛][ O\HOH HYX[۝\][ [HY[\B[HY[][\]Y -Bˆ[[^Y\؞W[Y[ݙ\ -N‚Y -Z\[[Y[ݙ\BˆYؘ[[\W\ [YWݙ\H -Bˆ[^W[\Jؘ[[\W\ [YWݙ\ ]Y]KYX ]Y]KYX  L -NˆB[Y[YH][ O][YH -ؘ[ۙY˘[\YY X  H H\[H[ݙY\H]\H[YBYY[[YJBˆ[Y[ݙ\H NˆBBY -Z\[[Y[ݙ\ ^Y\[]Wڛ[ -JBˆ\[[Y[ݙ\H Nˆڛ[H NˆBBB KKKKKKKKKKKKKKKKKKKKKKH\]H[[ۜ KKKKKKKKKKKKKKKKKKKKKKKKKKKKKBY\]Wܛ\ -Bˆ]H ˆ[KYZ[[H ˆ[[\^HH  ^Y\]HY[^ HHY[^Nˆ]HH NNNNKHHNNNNNKHH NNNNKHHNNNNNN ^Y\[\H]X[ܛYH ˆܛHܛHH ˆ[[]HH ‚Y[YH][ OY[][YHY^X[ -Bˆ]\ YYY^X[Xܛ[ܛ[ۉ\]HY[[X][ۜ\Hޙ[B ʂK][ OY[][YHH[YH - -ؘ[ۙY˙[YWYY L -N [Yܛ[YY\܈\\^Y\ˆ[][ OY[][YHH[YH BBJ -^Y\K[ -^Y\K[ O[[]KYY H L^Y\K[ O[[]K[YYH LJHBH -^Y\WK[ -^Y\WK[ O[[]KYY H L^Y\WK[ O[[]K[YYH LJHBH -^Y\̗K[ -^Y\̗K[ O[[]KYY H L^Y\̗K[ O[[]K[YYH LJHBH -^Y\K[ -^Y\K[ O[[]KYY H L^Y\K[ O[[]K[YYH LJH -N [YY[\^Y\\\\HXܛ[ܛ\\‚][ OY[][YHH[YN‚Y][\]Y -Bˆ]\ˆB܊HH HPVVQTJBˆY -^Y\WK[ J^Y\WK[ OX]]H PUUWPQ -JBˆ[]HH NˆXZˆBB ]HYێ[ܙH[[ZY\BY\[]ۈH][ O[\]ۜ Y[[ -TWSSVJH []JBˆYY[[ -TWSUS -H - -Y[[ -TWUSHTWДPJH ][ O\HOH JH][ O\HOH -JH X K H HYY؜X\ˆˆ][\]YH N [H\Y܈۝\][ˆBB[HY[[TWSSVJHܛ\Z[Bˆ[J[[TWSSVJHܛ\X^ \[]ۈ][ O[\]ۜ ][ OH][ O]ۜ[\[]ۗK] -BˆY][ O]ۜ[\[]ۗK]\X٘YJBˆ]\X٘YVHH -] -[][ O]ۜ[\[]ۗK]\X٘YNˆ]\X٘YVWHH -] -\]Y]K]\XݛˆB[HY][ O]ۜ[\[]ۗK]\XJBˆJ]\Xۘ[YK][ O]ۜ[\[]ۗK]\XPVЕQTSNˆ]\Xٙ]H][ O]ۜ[\[]ۗK]\Xٙ]ˆ]\XH NˆB[HY][ O]ۜ[\[]ۗKZ] -Bˆ][ OZ][H Nˆ[YHH ˆB[HY][ O]ۜ[\[]ۗKܛ\Z[][ O]ۜ[\[]ۗKܛ\X^ -Bˆܛ\Z[H][ O]ۜ[\[]ۗKܛ\Z[ˆܛ\X^H][ O]ۜ[\[]ۗKܛ\X^ˆB[HY][ O]ۜ[\[]ۗKڛ[OH -Bˆڛ[H -][ O]ۜ[\[]ۗKڛ[OH JNˆB[HY][ O]ۜ[\[]ۗKܛZ[  -BˆܛZ[H -] -J][ O]ۜ[\[]ۗKܛZ[  ٙNˆܛX^H -] -[][ O]ۜ[\[]ۗKܛX^ˆYW[YJBˆY[^HHܛZ[ \]HY]ۈ]\HY[[ˆBB[HY][ O]ۜ[\[]ۗKܛZ[  -BˆܛZ[H -] -J][ O]ۜ[\[]ۗKܛZ[  ٙNˆܛX^H -] -[][ O]ۜ[\[]ۗKܛX^ˆB[HY][ O]ۜ[\[]ۗKYJBˆ \[YH][]ۈ[H[X\[H] \BY][ O]ۜ[\[]ۗKYH -Bˆ][ O]ۜ[\[]ۗKYHH ˆBYHH -] -[][ O]ۜ[\[]ۗKYNˆB[HY][ O]ۜ[\[]ۗK[]HOH -Bˆ \[YH][]ۈ[H[X\[H] \BY][ O]ۜ[\[]ۗK[]H -Bˆ][ O]ۜ[\[]ۗK[]HH ˆB[W\[W[]J][ O]ۜ[\[]ۗK[]JNˆB[HY][ O]ۜ[\[]ۗKY JH [HY\X[ۈ܈ٞYˆˆY H][ O]ۜ[\[]ۗKY ˆY HH][ O]ۜ[\[]ۗKY NˆB[HY][ O]ۜ[\[]ۗKY܊H [H܈܈ٞYˆˆY܈H][ O]ۜ[\[]ۗKY܎ˆYY܈OH LJBˆY܈H ˆB[HYY܈OH LBˆY܈H LNˆBB[HY][ O]ۜ[\[]ۗKY[JH [H܈܈ٞYˆˆY[HH][ O]ۜ[\[]ۗKY[NˆYY[HOHSSWSS -BˆY[HHSSWӓӑNˆBB[HY][ O]ۜ[\[]ۗKYX]JH [H܈܈ٞYˆˆYX]HH][ O]ۜ[\[]ۗKYX]NˆYYX]HOH LJBˆYX]HH ˆBYYX]HOH LBˆYX]HH LNˆBB[BˆX\]ۊ ][ O]ۜ[\[]ۗJNˆB -\[]ێˆBB܊HH H][]\[]KX^^Y\JBˆY^Y\WK[ -BˆY^Y\WK[ O][ۋJBˆHH^Y\WK[ O][ۋˆBY^Y\WK[ O][ۋJBˆHH^Y\WK[ O][ۋˆBY^Y\WK[ O][ۋJBˆHH^Y\WK[ O][ۋˆBY^Y\WK[ O][ۋJBˆHH^Y\WK[ O][ۋˆB[\^JˆBBY][ OZ][Bˆ Z]܈[[[ZY\HYX]YYY[[ -TWSSVJJBˆ][ OZ][H ˆY][ Oܙ\]H JBˆ[Y[YH][ O][YH -ؘ[ۙY˘[\YY X  H H\[H[ݙY\H]\H[YBB[YHH[YH - -ؘ[ۙY˙[YWYYˆBBY[\^HOH -Bˆ]\ˆBY[][ OZ][ؘ[ۙY˘X] PUSӔSTPPWPUJBˆY][ Oܛ\ ԓԒQ -B‚YZ[[H -][ OYHY[[\˚\N‚YH HHY[[\˚\BˆHY[^ˆB[BˆH -H -JH HY[[\˚\ -][ O[Y\^ٙ]ˆBYܛZ[ -BˆHܛZ[ˆB[HYܛX^ -BˆHܛX^ˆBY -][ Oܛ\ ԓАPH YJBˆHYNˆBYY[^ -BˆYY[^ -][ OܛYY -BˆHY[^ -][ OܛYYˆBY[^HˆB[HY -][ Oܛ\ ԓАPH Y[^ -BˆYY[^ H][ OܛYY -BˆHY[^ H][ OܛYYˆBY[^HˆBYY[^ -BˆY[^H ˆBYY[^H][ OY HY[[\˚\BˆY[^H -] -[][ OY HY[[\˚\ˆYZ[[H NˆBYYZ[[ -Bˆ][ OˆB[Bˆ][ OH -[ -XY[^ˆBB[HY][ Oܛ\ ԓQ -B‚YZ[[H -][ OYHY[[\˚\N‚YH HHY[[\˚\BˆHY[^ˆB[BˆH -H -JH HY[[\˚\ -][ O[Y\^ٙ]ˆBYܛZ[ -BˆHܛZ[ˆB[HYܛX^ -BˆHܛX^ˆBY -][ Oܛ\ ԓАPH ][ OY HY[[\˚\ HYJBˆH][ OY HY[[\˚\ HYNˆBYY[^ -BˆYY[^ H][ OܛYY -BˆHY[^ H][ OܛYYˆBY[^HˆB[HY -][ Oܛ\ ԓАPH Y[^ -BˆYY[^ -][ OܛYY -BˆHY[^ -][ OܛYYˆBY[^HˆBYY[^][ OY HY[[\˚\BˆY[^H -] -[][ OY HY[[\˚\ˆBYY[^H -BˆY[^H ˆYZ[[H NˆBYYZ[[ -Bˆ][ OˆB[Bˆ][ OH -[ -J -][ OY HY[[\˚\H HY[^ -NˆBB[HY][ Oܛ\ ԓUT -H ܛۛB‚YH HHY[[\˝\BˆHY[^NˆB[BˆH -H -JH HY[[\˝\ -][ O[Y\^ٙ]ˆBYܛZ[BˆHܛZ[ˆB[HYܛX^BˆHܛX^ˆBY -][ Oܛ\ ԓАPH YJBˆHYNˆBYY[^JBˆYY[^H -][ OܛYY -BˆHY[^H -][ OܛYYˆBY[^HHˆB[HY -][ Oܛ\ ԓАPH Y[^JBˆYY[^H H][ OܛYY -BˆHY[^H H][ OܛYYˆBY[^HHˆBYY[^H[[ZY HY[[\˝\BˆY[^HH -] -\[[ZY HY[[\˝\ˆYZ[[H NˆBYY[^H -BˆY[^HH ˆBYYZ[[ -Bˆ][ OˆB[Bˆ][ OH -[ -XY[^NˆBB[HY][ Oܛ\ ԓST -BˆYH HHY[[\˝\BˆHY[^NˆB[BˆH -H -JH HY[[\˝\ -][ O[Y\^ٙ]ˆBYܛZ[BˆHܛZ[ˆB[HYܛX^BˆHܛX^ˆBY -][ Oܛ\ ԓАPH [[ZY HY[[\˝\ HYJBˆH[[ZY HY[[\˝\ HYNˆBYY[^JBˆYY[^H H][ OܛYY -BˆHY[^H H][ OܛYYˆBY[^HHˆB[HY -][ Oܛ\ ԓАPH Y[^JBˆYY[^H -][ OܛYY -BˆHY[^H -][ OܛYYˆBY[^HHˆBYY[^H[[ZY HY[[\˝\BˆY[^HH -] -\[[ZY HY[[\˝\ˆBYY[^HH -BˆY[^HH ˆYZ[[H NˆBYYZ[[ -Bˆ][ OˆB[Bˆ][ OH -[ -J -[[ZY HY[[\˝\H HY[^JNˆBB \ۋ[]]܈YB[HY][ Oܛ\ -ԓTԓӊJBˆ Y[^H -H NˆYܛYOH JBˆܛYH ˆY[^JˆB[BˆܛY -ˆB][ OH -[ -XY[^NˆBKY[][ OZ][B ]]\ܛY -][ Oܛ\ ԓQ -H -][ Oܛ\ ԓԒQ -JH YYܛ\HZ\[[\[]ۛHYH[\\^H[\[Y\‚Y[Y\]\HOH JBˆHH NNNNNˆHHNNNNNN ܙX[[]B܊HH H][]\[]KX^^Y\JBˆY^Y\WK[ -BˆY^Y\WK[ O][ۋ H^Y\WK[ O][ۋHJBˆHH^Y\WK[ O][ۋ H^Y\WK[ O][ۋNˆBY^Y\WK[ O][ۋ H^Y\WK[ O][ۋHJBˆHH^Y\WK[ O][ۋ H^Y\WK[ O][ۋNˆBBBBYH HHY[[\˝\BˆHY[^NˆB[BˆH -H -JH HY[[\˝\ -][ O[Y\^ٙ]ˆB ]ܛ[Z]YܛX^BˆHܛX^ˆB[HYܛZ[BˆHܛZ[ˆBYOHY[^JBˆYY[^H -][ OܛYY -BˆHY[^H -][ OܛYYˆB[HYY[^H H][ OܛYY -BˆHY[^H H][ OܛYYˆBY[^HH -] -]ˆBYY[^H[[ZY H -][ O[ M LH HY[[\˝\BˆY[^HH -] -J[[ZY H -][ O[ M LH HY[[\˝\NˆBYY[^H -BˆY[^HH ˆBB ]]ܛ[HY -][ Oܛ\ ԓST -H -][ Oܛ\ ԓUT -JBˆYH HHY[[\˚\BˆHY[^ˆB[BˆH -H -JH HY[[\˚\ -][ O[Y\^ٙ]ˆB ]ܛ[Z]YܛX^ -BˆHܛX^ˆB[HYܛZ[ -BˆHܛZ[ˆBYOHY[^ -BˆYY[^ -][ OܛYY -BˆHY[^ -][ OܛYYˆB[HYY[^ H][ OܛYY -BˆHY[^ H][ OܛYYˆBY[^H -] -]ˆBYY[^][ OY HY[[\˚\BˆY[^H -] -J][ OY HY[[\˚\NˆBYY[^ -BˆY[^H ˆBB [و]]\ܛ ؘ[[YH܈\W[[ܛHY[^ HˆܛHHY[^H HNŸBY\]WܛYؙ -Bˆ]][ˆ[YۙY\[̗ۜNʎ]X[H ˆ]X[ٙ[V̗HBˆ     K     KKKK      K     K K     K BN ܛX[ˆ]X[ٙZV̗HBˆ                                N ۜ[\[ZHۈHZ[]X[ٙܝ[XV̗HBˆ                                N \ ۜ[[X[ZH[ۈH[܈Z[\[H^[]\[ -TVS̗N‚ [YH\]H[ۈ[ܙY[[Y[OˆY[YHH[ۗ[YH YY^X[ -BˆY[XJ[ۜ [۝XH - L - -NˆY[XJ[۝XH - L -[ۜ - - -NˆY[XJ[۝XH - - L - J[ۜ  -N‚[ۗ[YHH[YH - -ؘ[ۙY˙[YWYY NˆBYYY^X[ -Bˆ][H -][ O[H - -[YH H][[YJH - -] -Yؘ[ۙY˙[YWYY -JH  ZH[X[YKX^XBY][ OYY -Bˆ][H \][ˆB][Y -H -[YH H][[YJH -][ OYY  -  -][ˆ][Y -H -[YH H][[YJH -][ OYY  - ˆB[Bˆ^[YH -H[YH H][[YNˆB[Y]\H[YH H^[YN‚Y][ O[BˆH -[Y]\ -ؘ[ۙY˙[YWYY  -JH NˆY][ O[OH JBˆٞWٙ]H][ O]XZH H  Hٙ[VܛNˆB[HY][ O[OH BˆٞWٙ]H][ O]XZH H  HٙZVܛNˆB[HY][ O[OH BˆٞWٙ]H][ O]XZH H  Hٙܝ[XVܛNˆBB[BˆY][ O]XZHH -BˆٞWٙ]H][ O]XZH H ˆB[BˆٞWٙ]H][ O]XZH - ˆBB Y][ Oܛ\OTԓT ][ Oܛ\OTԓӊHٞWٙ] OHY[^NˆٞWٙ] -HٞWٙ]Y ̌ LW  Έ\H[\Y\Y[ ][[YHH[YN‚Y[YHH][ O]XZ][YJBˆ][ O]XZH H ˆ][ O]XZ][YHH[YH - -ؘ[ۙY˙[YWYY JNˆBBY]ܛYؙ -Bˆ[[^H  HH  Nˆ^Y\ -^Y\ˆ[Y ZY‚[ K‚YY]ܝ -BˆHY]ܝˆHHY]ܝNˆHY]ܝˆHY]ܝˆB[BˆHHH ˆHY[[\˚\ˆHY[[\˝\ˆB Y][ -H[Y Y Y Y K -N‚]Y]ܙY[Y]HZ[Y]‚ ʜ]Y] -ܙY[Y]H ܙY[Y]ˆ܊HH H][ O[Z\JBˆ]\WY]J -[ -J][ O\WK HܙY[ -ٞٙ] -K -[ -J][ O\WK H][ O\WK\ HܙY[H -ٞWٙ] -KW֋\]KܙY[Y]  -NˆJ‚܊[^H [^][ O[[^Y\ܙY[^ -Bˆ^Y\H][ O^Y\ܙY -[^‚ܙY[Y]H^Y\O]Y]‚ [^Y\ Y [N]KY[^ ^Y\Oٞ [K^Y\O][ۋN‚BK^Y\]\H[XY[]H]X\ۙH[XK܈Hۉ]] Y\ܙY[Y] \X]\ܙY[Y] \\X][^Y\O[XY -Bˆ۝[YNˆBYHܙY[Y] [H^Y\O^K -^Y\OX[˞ˆZYHܙY[Y] \[H^Y\O^KH -^Y\OX[˞‚H -[ -J^Y\Oٙ]  H -Y[^ -][Y -^Y\OYY][H - - K H^Y\O][˞ -H -H‚ [^Y\][ Y Y Y^Y\O][ ^Y\OYY][N‚Y -][ Oܛ\ ԓT -JBˆ ވH -[ -J^Y\Oٙ] -Y[^H - - K H^Y\O][˞H -HˆH -[ -J^Y\Oٙ] H -Y[^H -][Y -^Y\OYY][H - - K H^Y\O][˞H -HˆB[Bˆ ވH -[ -J^Y\Oٙ] HY[^H - - K H^Y\O][˞H -HˆH -[ -J^Y\Oٙ] H -Y[^H -][Y -^Y\OYY][H - - K H^Y\O][˞H -HˆBY^Y\O]XZJBˆ -Hٞٙ]ˆ -HٞWٙ]ˆ [YH Y Y[^ ٞWٙ] NˆB OHˆ OHN‚Y -BˆHH - ^ -H Yˆ OHYˆB[BˆHH ˆBYH  ܙY[Y] ]\]\[HOHUTSWPT ܙY[Y] ]\[\]YJBˆKKNˆ OHYˆBY -BˆH - ^H ZYˆ OHZYˆB[BˆH ˆBBZY^Y\O[ۊBˆܙY[Y] XHH[۝XNˆB[BˆY\[[]H -BˆܙY[Y] XHH][ O[]\\[[]H H WNˆB[BˆܙY[Y] XHHSˆBBܙY[Y] ]\]][YHH -[ -J[Y]\ -ܙY[Y] ]\]\YY -NˆܙY[Y] \X]HܙY[Y] \\X]H ˆ܊HH^Y\O]Y] \\X] HH -HZY ܙY[Y] \\X] -Nˆ܊HH^Y\O]Y] \X]  - -ܙY[Y] ]\]\[HOHUTSWPT ܙY[Y] ]\[\]YH - N -HY JܙY[Y] \X] -N‚Y^Y\Oٞ ܙY[OXYXOHܙY[XYXBˆ]\WYܙY[ -  -K^Y\O^Y\Oٞ ܙY[ ܙY[Y] [^ -NˆB[HY^Y\Oٞ ]KOXYXOH]WXYXBˆ]\WYٜ[YJ -  -K^Y\O^Y\Oٞ ]K ܙY[Y] [^ -NˆB [Y Y Y Y Y - -ݜ ݜK^Y\OܙY[Y] \X] ܙY[Y] \\X] -NˆBBL̈][\[ - -Bˆ[\[H[Y\][\[ -ؘ[ۙY˙[YWYY -N [\[[HY[[ݚYBY[\[ؘ[ۙY˙[YWYY -Bˆ[\[H NˆBY[\[ؘ[ۙY˙[YWYY -Bˆ[\[Hؘ[ۙY˙[YWYY ˆB]\[\[ŸB\^K[[ۈ NKL L[[]ܚ\ˈ[Z[\^\]^X]HYܙH\[[H[X[[[ۜ˂Y^X]W[]ܚ\[^Y\[^ -B‚\^Y\ -^Y\ؚHS‚BB\^Y\ؚH^Y\ -^Y\[^‚ZY -\^Y\ؚB^‚B\]\‚_BBZY -^Y\ؚO]^\ -^\ܚ\]H ^Y\O^\H^Y\O[X\Z^\B^‚BK NKL Lۉ^\Y]BKY -][ -BBK‚BBK^X]W][^Wܚ\ -^Y\[^ ^Y\N‚BBK^X]W[]W^Wܚ\ -^Y\[ -N‚BKBBK^X]W^Wܚ\ -^Y\[^ ^Y\N‚BY^X]W[]ܚ\[ -^Y\[^ -N‚_BBʂ\^K[[ۈ L LMŠY\X[ۋ\[]]H[X[YH\X[[]X\˂Y[Y[XZ[[H\[\ XY[X[[۝[YH[XH\X[[] œ]X^WX\[X[[]ܙ\W\X[ۊۜ^WX\[]ٛYۜ[]JX[[]BHˆ^WX\\YٛYH[]ٛY‚YXX[[]JHˆ]\\YٛYˆBY[]ٛY QSՑSQ -Hˆ\YٛYHX[[]KO\X[ۂQАPTQѓԕT‚H[HY[]ٛY QSՑTQ -Hˆ\YٛYHX[[]KO\X[ۂQѓԕTQАPTˆB]\\YٛYŸBʂ\^K[[ۈ L LM Hܙ[[H][[[ۛ]K\]HH[]]H܈XX^Y\\[Y\Š\X[^\[X[[]\ܞK[]]X]XŠ[Y\ˈYXܙY\ܝ\X[ۋ\[]]H[X[Y[^[XH[X[\[KY[]Y\ -[^\X[JH‚[ˆ^Y\ -X[^Y\‚۝\]J^Y\۝[\PVVQTN‚^\H ˆ]^\H ‚܊H PVVQT -BˆX[^Y\H^Y\ -‚Y -^\X[HOHWԑPVJH‚X[^Y\O[X\Z^\H -^Y\۝[\KO^YYX[^Y\O^\H H^Y\۝[\KO^YYˆX[^Y\O[X\Z^\ HX[^Y\O\XZ^\ˆX[^Y\O^\H^Y\۝[\KO^YY X[^Y\O\XZ^\ˆX[^Y\O]^\H^Y\۝[\KO]^YY X[^Y\O\XZ^\ˆX[^Y\O^Z^\HX[^Y\O]^\ˆX[^Y\O^Z^\ HX[^Y\O^\ˆX[^Y\O^Z^\ HX[^Y\O\XZ^\ˆH[Hˆ [^H[NY\Y^\X^\ˆX[^Y\O[X\Z^\H -^Y\۝[\KO^YYX[^Y\O]^\H H^Y\۝[\KO^YYˆX[^Y\O[X\Z^\ HX[^Y\O\XZ^\ˆX[^Y\O^\H^Y\۝[\KO^YY X[^Y\O\XZ^\ˆX[^Y\O]^\H^Y\۝[\KO]^YY X[^Y\O\XZ^\ˆX[^Y\O^Z^\HX[^Y\O]^\ˆX[^Y\O^Z^\ HX[^Y\O^\ˆX[^Y\O^Z^\ HX[^Y\O\XZ^\ˆBBBBBBY^X]W[]ܚ\ -NBB ʂ -\][X[\]Y[HYH\[X[\ˆ -ۙY˂ -ˆYX[^Y\O[ X[^Y\O[ O[X[[YH[YJHˆY[\] -X[^Y\O[X[[]\ܞK ^[يX[^Y\O[X[[]\ܞJB -N‚X[^Y\O[X[[][H ˆX[^Y\O[X[[][^H ˆB ʂ -Z[ۙH][]\HY\]]X]X[ -\[ܙX]H[YH]]H\X[ -]ۈ[KܙH]ۛH[]X\ۙB -\[X\K܈]]X]X[YH^\˂ -ˆˆ[X[[]][[]][HN‚[]][ \H[X[[]ܙ\W\X[ۊX[^Y\O]^\X[^Y\O[ -N‚[]][ [X\HH[X[[]ܙ\W\X[ۊX[^Y\O[X\Z^\X[^Y\O[ -N‚ ʂ -[X\Y^\\H[[[YYX][HYܙH\ˆ -YK[YH[H[H][ۘ\B -[X[X\VLH -H[\X˂ -ˆ[]][ [H[X[[]ܙ\W\X[ۊX[^Y\O^\ˆX[^Y\O[X\Z^\X[^Y\O[ -N‚[]][ [YHH[YN‚[X[[]\\]JX[^Y\[]][ \[]][ [YB -N‚Y[]][ \Hˆ ʂ -\\H[][[]\]]B -YKHۙY\XH[X[X]\ -\Y\XX\ ܙ[YHZ\ -XܙY\[Y\ˈ\ XY[X[ˆ -۝[YH[X[]][ \ۛK -ˆ[]][ \ܙB[X[[]ܙ\W\X[ۊX[^Y\O^\X[^Y\O[ -NˆB[]][ B[X[[]Y\X -X[^Y\[]][ [ []][ [YB -N‚Y[]][ \ˆ[]][ []][ [X\JH‚[]][ XH[Y\]X -Nˆ[X[[]\ܞW\ -X[^Y\ []][ -N‚YX[^Y\O[ -HˆX[^Y\O[ O[X[[YHB[X[[]\ܞW^\][ۗ[YW] -X[^Y\O[ []][ [YB -NˆBBB^\HX[^Y\O^\ˆ]^\HX[^Y\O]^\ˆBBY^X]W^\ܚ\ -Bˆ[ˆ܊H ][]\[]KX^^Y\ -BˆYW]\H -][X[ܙY[ -JH -^Y\K]^\ -^\ܚ\]H ^Y\K^\H^Y\K[X\Z^\JBˆY][ -Bˆ^X]W][^Wܚ\ - -Nˆ^X]W[]W^Wܚ\ -^Y\K[ -NˆB^X]W^Wܚ\ - -Nˆ^X]W^Wܚ\[ - -NˆBBBY^X]W\]\ܚ\ -BˆYܚ\\[]X[^Y - \]Wܚ\ -JBˆܚ\^X]J \]Wܚ\ -JNˆBY][ ܚ\\[]X[^Y - ][ O\]Wܚ\ -JJBˆܚ\^X]J ][ O\]Wܚ\ -JNˆBBY^X]W\]Yܚ\ -BˆYܚ\\[]X[^Y - \]Yܚ\ -JBˆܚ\^X]J \]Yܚ\ -JNˆBY][ ܚ\\[]X[^Y - ][ O\]Yܚ\ -JJBˆܚ\^X]J ][ O\]Yܚ\ -JNˆBBʂ\^K[[ۈ L LB^X]Hؘ[[][ܚ\[[YYX][HYܙH[[[HX[X\\Y Y^X]W\][Xܚ\ -BˆYܚ\\[]X[^Y - \]WXܚ\ -JBˆܚ\^X]J \]WXܚ\ -NˆBY][ ܚ\\[]X[^Y - ][ O\]WXܚ\ -JBˆܚ\^X]J ][ O\]WXܚ\ -NˆBBʂ\^K[[ۈ L LB^X]Hؘ[[][ܚ\Y\[[[HX[X\\Y YܙH][YHY[\˂Y^X]W\]YXܚ\ -BˆYܚ\\[]X[^Y - \]YXܚ\ -JBˆܚ\^X]J \]YXܚ\ -NˆBY][ ܚ\\[]X[^Y - ][ O\]YXܚ\ -JBˆܚ\^X]J ][ O\]YXܚ\ -NˆBBY]^ؚ -Bˆ[Nˆ^ؚ -^ؚˆY[][ -Bˆ]\ˆB܊HH H][ O[]^ؚJBˆ^ؚH][ O^ؚ -N‚Y^ؚO[YH ^ؚO[YHH[YJBBKYH[YH\][\Y [[ݙHH^ؚX ˆ][ O^ؚWK[YBOH ˆ][ O^ؚWK][ۋH ˆ][ O^ؚWK][ۋHH ˆ][ O^ؚWK۝H ˆ][ O^ؚWK][ۋH ˆY][ O^ؚWK^ -BˆYJ][ O^ؚWK^ -Nˆ][ O^ؚWK^HSˆBB[BˆY^ؚO^ -Bˆ۝[[ -^ؚO][ۋ ^ؚO][ۋK^ؚO۝ ^ؚO][ۋ^ؚO^ [^ؚO^ -B -NˆBBBB[Xܙ[] -Bˆ[H ˆX^\X^NˆZ[ [H MˆL̈X^ܙX[YHHؘ[ۙY˙[YWYY - -L X[ۂY^\X]\O]\OHWԑPԑPH]\ ˆY -\^\X]\OY[ -Bˆ^\X]\O\[YHH[YNˆ^\X]\O[[YHH ˆY -^\X]\OY\BˆYJ^\X]\OY\Nˆ^\X]\OY\HSˆB^\X]\OY\H -X^\ʊX[[^\X]\O[[YJ^[يX^\K^[يX^\JNˆY -^\X]\OY\OHS -Bˆ[\܈[]HY\[Xܙ[][KNˆ]\ ˆB^\X]\OY[H Nˆ^\X]\OYYH]YY - -Nˆ^\X]\OYYH[YNˆܘ[ -[YJNˆ^\X]\OXH[Y\]X -NˆB[BˆY -^\X]\O[[YI][H[L -H \\S]\ˆˆ^\X]\OY\H -X^\ʊ\X[^\X]\OY\^[يX^\J -^\X]\O[[YK[JJ[[JNˆY -^\X]\OY\OHS -Bˆ[\܈[]HY\[Xܙ[][KNˆ]\ ˆH[HY[\] -^\X]\OY\^\X]\O[[YJJK -^\X]\O[[YK[JJ[[J^\X]\O[[YJJKLJN LX]\H LH\ ^KLBBB XBY^\X]\OY\ ^\X]\OY[Bˆ܈ -H PVVQT - -BˆX^K^\HH^Y\K^\ˆX^K]^\HH^Y\K]^\ˆX^K[X\Z^\HH^Y\K[X\Z^\ˆX^K^Z^\HH^Y\K^Z^\ˆBX^K[YHH[YNˆX^K[\[H[\[ˆX^K[[YHH^\X]\O[[YNˆ ܙX^KYYH]YY - -NˆY[XJ ^\X]\OY\^\X]\O[[YWK X^K^[يX^JH -NˆBY -[YHHX^ܙX[YH -HXܙ[] -N YBY^\X]\O]\OHWԑPԑPH -^\X]\O[[YN‚ XY[[YN Y[Έ Y -L̊][YK -L̊\^\X]\O[[YJNˆ XY[^\Έ Y^Y\K[X\Z^\ɑQUPN‚]\ NŸB[^TXܙY[] -Bˆ[H ˆX^\X^Nˆ\]PVTS - WNˆ^W[\^HH ˆ\XY\͗N‚Y^\X]\O]\OHWԑPVJH]\ ˆY -\^\X]\OY[ -H [YHH^\X]\O\[YH ˆY -[^\X]\O] -HH  -H]\T] -] ]\ȋ -Nˆ[HJ] ^\X]\O] -NˆY -][] -KLWHOH -HJ] ȊN‚Y -^\X]\OY\BˆYJ^\X]\OY\Nˆ^\X]\OY\HSˆBY^\X]\O[JBˆJ^\X]\O[JNˆB^\X]\O[HH[] -] ^\X]\O[[[YJKȊNˆY^\X]\O[JBˆYZ^\X]\O[K  QRS -Nˆ[\^HH[ -^\X]\O[JNˆYZ^\X]\O[K  QRU -N ܈][ -^\X]\O[JBY -[\^HH -Bˆ[[\HXܙY[][KNˆ]\ ˆB^\X]\OY\H -X^\ʊX[ K[\^JJNˆY\^\X]\OY\Bˆ[\܈[]HY\܈XܙY[]˗Nˆ]\ ˆBH[Bˆ[\܈[XܙY[][KNˆ]\ ˆBXY - XY\  K^\X]\O[JNˆXY - ^\X]\O\[YK^[يL̊K K^\X]\O[JNˆXY - ^\X]\O[[YK^[يL̊K K^\X]\O[JNˆXY - ^\X]\O[[YK^[يL̊K K^\X]\O[JNˆXY - ^\X]\OYY ^[يL̊K K^\X]\O[JNˆXY - ^\X]\OYY ^[يZ[  -K K^\X]\O[JNˆXY - ^\X]\OX^[ي[YۙY -K K^\X]\O[JNˆXY -^\X]\OY\^[يX^\J^\X]\O[[YJJK K^\X]\O[JN‚ []\[YB[YHH^\X]\O\[YNˆ^\X]\O[[YHH ˆ^\X]\OY[H Nˆܘ[ -^\X]\OYY -Nˆܘ[ ̊^\X]\OYY -Nˆ ]X[Y\]X -K\^\X]\OXNˆB ^HBY^\X]\OY\ ^\X]\OY[ ^\X]\O[[YH^\X]\O[[YJBˆY[XJ X^K ^\X]\OY\^\X]\O[[YWK^[يX^JH -N‚Y[YHOHX^K[YH -BˆL̈^[[YHHX^K[[YN‚ [YHH -L̊\X^K[YNˆ[^HXܙY[]Έ]و[H[YN Y X[YN Y[YKX^K[YJNˆ ʚY -[\[OHX^K[\[ -Bˆ [\[H -L̊\X^K[\[ˆ[^HXܙY[]Έ]و[H[\[ Y X[\[ Y[\[ X^K[\[ -NˆJ‚[J[YHX^K[YH ^[[YH  -HˆY[XJ X^K ^\X]\OY\K[^[[YWK^[يX^JH -NˆB[YHHX^K[YN‚[J[YHX^K[YH ^[[YH^\X]\O[[YH -HˆY[XJ X^K ^\X]\OY\ۙ^[[YWK^[يX^JH -NˆB[YHHX^K[YNˆBY -[YHOHX^K[YH -BˆY -^\X]\O[[YHOHX^K[[YH -BˆL̈^[[YHHX^K[[YN‚[^HXܙY[]Έ]و[H[[YN Y X[[YN Y^\X]\O[[YKX^K[[YJN‚[J^\X]\O[[YHX^K[[YH ^[[YH  -HˆY[XJ X^K ^\X]\OY\K[^[[YWK^[يX^JH -NˆB^\X]\O[[YHHX^K[[YN‚[J^\X]\O[[YHX^K[[YH ^[[YH^\X]\O[[YH -HˆY[XJ X^K ^\X]\OY\ۙ^[[YWK^[يX^JH -NˆB^\X]\O[[YHHX^K[[YNˆBY -[\[OHX^K[\[ -H[\[HX^K[\[ˆ ܘ[ ̊X^KYY -Nˆ܈ -H PVVQT - -Bˆ^Y\K^\HX^K^\Nˆ^Y\K]^\HX^K]^\Nˆ^Y\K[X\Z^\HX^K[X\Z^\Nˆ^Y\K^Z^\HX^K^Z^\NˆB []Y\ -^\X]\O]\NˆBB XY[[[N Y[Έ Y]\ΉY^\X]\O[[YK^\X]\O[[YK^\X]\O]\NˆY^\X]\O]\OHWԑPVJH -^\X]\O[[YNˆY -^\X]\O[[YHH^\X]\O[[YH[YHH^\X]\O[[YH -HXܙ[] -N‚ XY[[YN Y[Έ Y -L̊][YK -L̊\^\X]\O[[YJNˆ XY[^\Έ Y^Y\K[X\Z^\ɑQUPN‚]\ NŸB[Xܙ[] -BˆY^\X]\Bˆ] -^\X]\O]\Bˆ\HWԑPԑP΂ˆ\]PVTS - WNˆ\XY\͗HHS L‚Y -[^\X]\O] -HH  -H]\T] -] ]\ȋ -Nˆ[HJ] ^\X]\O] -NˆY -][] -KLWHOH -HJ] ȊN‚Y -^\X]\OY\Bˆ^\X]\O[HH[] -] ^\X]\O[[[YJK؊ȊNˆY^\X]\O[JBˆ^\X]\O[[YHH[YNˆY -^\X]\O[[YH H^\X]\O[[YHH ˆ[H^\X]\O[[YH OH ‚ܚ]JXY\  K^\X]\O[JNˆܚ]J ^\X]\O\[YK^[يL̊K K^\X]\O[JNˆܚ]J ^\X]\O[[YK^[يL̊K K^\X]\O[JNˆܚ]J ^\X]\O[[YK^[يL̊K K^\X]\O[JNˆܚ]J ^\X]\OYY ^[يL̊K K^\X]\O[JNˆܚ]J ^\X]\OYY ^[يZ[  -K K^\X]\O[JNˆܚ]J ^\X]\OX^[ي[YۙY -K K^\X]\O[JNˆܚ]J^\X]\OY\^[يX^\J^\X]\O[[YJJK K^\X]\O[JNˆ\ -^\X]\O[JN YBJ^\X]\O[JNˆH[H]\ ‚YJ^\X]\OY\Nˆ^\X]\OY\HSˆH[H]\ ˆXZˆB\HWԑPVNˆY^\X]\O[JBˆY -^\X]\O[JHJ^\X]\O[JNˆ[H]\ ˆBXZˆB\HWԑPˆY^\X]\O[JBˆY -^\X]\O[JHJ^\X]\O[JNˆ[H]\ ˆBXZˆBB^\X]\O]\HWԑPˆ^\X]\OY[H ˆ^\X]\O[[YHH ˆYTXܙY[] -NˆH]\ ‚]\ NŸB[YTXܙY[] -Bˆ^\X]\O]\HWԑPˆY^\X]\O[JHJ^\X]\O[JNˆY^\X]\OY\BˆYJ^\X]\OY\Nˆ^\X]\OY\HSˆ]\ NˆB]\ ŸBW^\X]\ʈ[][]ܙXܙ\ -Bˆ^\X]\H -W^\X]\ʊX[ K^[ي -^\X]\JN‚]\^\X]\ŸBYYW[]ܙXܙ\ -BˆY^\X]\BˆY^\X]\OY\BˆY^\X]\O[JHJ^\X]\O[JNˆYJ^\X]\OY\Nˆ^\X]\OY\HSˆBYJ^\X]\Nˆ^\X]\HSˆBBY\]J[[[YK[\]Z] -Bˆ[HH ˆ[^\H ‚YY -]Y]K[Z]OH JH [[XYˆ YXH[]][KZ][[H\ \ - \HوH\[ [YHXY[]܈[][[KH[]]^H]\X]\B H\و[[\\]\ H][ۙ\[Y[ ]]Y B \H\]Hݙ\[܈[ԉYY˂͍\][YHH[Y\]X -H - L ݚY[\[ܙY\ܘ]J -H H ˆM\[[YHH[Y\]X -Nˆ[H -\[[YH\][YJBˆ\Y\ -\][YH H\[[YJNˆ\[[YHH[Y\]X -NˆBB[Y][\[ - -NˆY^\X]\O]\OHWԑPVH W]\H ][ -HY -\^TXܙY[] -H -HXܙ[] -Nˆ[]Y\ -^\X]\O]\NˆYYPB[ݚYW^XX\]J -]^\ -QTQSPUӊJHOH  -Nˆ[YY^\X]\O]\OHWԑPԑP W]\H ][ -HY -\Xܙ[] -H -HXܙ[] -N‚Y - -W]\H [[YHOH JH[^\\]JBˆ^X]W\]\ܚ\ -NˆB][YHH ˆYW]\JBˆY[[YHOH HX[ܙY[ -JBˆ^X]W^\ܚ\ -NˆBY -][\]Y ][ OOHӈ ]YY\ -H[[ۋHSSӗёBˆY[[ۋ\][ۈOH[[ۋ[\Bˆ][YHH[YH -[\[ˆBB[Bˆ][YHH[YH -[\[ˆB[[ۋ[\ˆY[[ۋ[\OH -[[ۋ\][ۈ - JJBˆ[[ۋ[\H ˆY[[ۋHSSӗӊBˆ[[ۋ\][ۈH[[ۋNˆBBY][YH[YH - L -Bˆ][YHH[YH - L ˆB[J[YH][YJBˆY[[YHOH H[^\\]JBˆ^X]W\][Xܚ\ -NˆBY[[YHOH JBˆ\]Wܛ\ -NˆYYY^X[ -Bˆ[[[]HH ‚܊HH HPVVQTJBˆY -\^Y\WK[ -H -[[]NˆB[[]HH -[[]HHPVVQTH H ‚Y][ O][YH  -][ O\HOH [[]JJB Y][ O][YH  -][ O\HOH \^Y\K[ \^Y\WK[ \^Y\̗K[ \^Y\K[ -JBˆ[[ۛڛ[H [ۛܙY]H ‚܊HH HPVVQTJBˆY -\^Y\WK[[H -[ۛڛ[ˆB[ۛڛ[H -[ۛڛ[HPVVQTH H ‚܊HH HPVVQTJBˆY -^Y\WKܙY] JH -[ۛܙY]ˆB[ۛܙY]H -[ۛܙY]HPVVQTH H ‚Y[Y[Y -Bˆ K][Y[YˆB[HY -][ O][YH  [ۛڛ[H - - -[\H ܙY] JH -\H [ۛܙY]JB [ۛڛ[ -B -Bˆ[YWݙ\ -NˆBBB\]WܛYؙ -NˆY][ O\HOH Bˆ\]\]\ -NˆBBY[[YHOH HX[ܙY[ -JBˆ\]W[ -NˆBY[[YHOH H[^\\]JBˆ^X]W\]YXܚ\ -NˆB -[YNˆBB ʊٞ]Y]YZ[ -‚X\ܙY[ܙY[N‚Y[[YHOH H W]\JBˆ]ܛYؙ -NˆY][ O\HOH BˆY]]\ -NˆBY][ O\HOH Bˆ]]\ -NˆB]^ؚ -NˆBYZ[[YJBˆYXܛ[ -Bˆ]\WYܙY[  RSS Xܛ[ S  -NˆBB []H]\]Y]YZ[ˆY[[YHOH HX[ܙY[ -JBYW]\JBˆ\^W[ -NˆB ʊ\]Yܚ\ -ˆY[[YHOH H[^\\]JBˆ^X]W\]Yܚ\ -NˆB܊HH HPVVQTJBˆY -^Y\WK[ -^Y\WK]^\ QT -JBˆ^\H NˆXZˆBB LKL ̌U[ݙH]\HY[HX\B ʚY[[YHOH H W]\H []\H  - -^Y\K[ -^Y\K]^\ QT -JH -^Y\WK[ -^Y\WK]^\ QT -JH -^Y\̗K[ -^Y\̗K]^\ QT -JH -^Y\K[ -^Y\K]^\ QT -JJB -JˆY[[YHOH H W]\H []\H ^\BˆY -JXZ[Y[WٛYɌJH -Bˆ[]\W]\X JNˆ[]\W[\J JNˆ[^W[\Jؘ[[\W\ ]\K ]Y]KYX ]Y]KYX  L -Nˆ]\[Y[J -Nˆ]\ˆBBY[[YHOH H -XZ[Y[WٛYɌJH -BˆXXZ[Y[J -Nˆ]\ˆB ʊ\]HܙY[ -‚]\W]ܙY[ RSS PVS   -N XK[^\]]\]H\H[و\Y]‚Y]\HOH [ܙY[ -]^\ QԑQS -JBˆܙY[ -ܙY[][  JNˆB XYY[\X\ۈܙY[YXY[YHOH BˆXY[YHH[YH -ؘ[ۙY˙[YWYY - NˆBY[YHXY[YH XY\JBˆYXYW\˞H  XYW\˞HH  -BˆY -XYW\˙۝[^  -HXYW\˙۝[^H ˆܙY[[ܙY[XYW\˞ XYW\˞KXYW\˙۝[^ XY\NˆH[HܙY[[ܙY[ Y[[\˝\Y۝ZY - -K XY\NˆB[BˆXY\HH ˆXYW\˞H LNˆXYW\˞HH LNˆYYPQSBY][ OBˆXY[][ێ ZKY ZK]ێ ZKٙ]Έ ZKZH][ O][ OY \[]ۋ][ O]XZKٞWٙ] -NˆB[YBY\]Z] -BˆWݝZ] - -NˆBY[WܙY[ܙY[Nˆ]\WX\ -N‚X]\X -Nˆ[\]W]\X -NŸB KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKBʈXK ̌ L][[ۈ][\HY\[[XHܜX[ۂ -[\[[HHؘ[[]Hۈ]ܛ\\H] ]Z[XK -\\HX[\]YY\[[XHܜX[ۈ\]Z[XHۈ[ -]ܛ\\[ ]\ HۈX\ ۈ\܋ -š[]ܗܜX[ۊ[K[BˆY[]ܗܜX[ۊKNˆ]\ NŸB[\H[]HYH ܙY[YBYYW] -[\K[YY -Bˆ[KH ˆ[H ˆL̈[\[H ˆ[\[HYYYYYNˆܙY[ -Y\HSˆ]Y]HHZ[Y]ˆK[HHSSWUTQN‚܊HH H   -Bˆ[JHH  -BˆY]\H\HOH JBˆH - -]Y]KY\ - MH - -  HH -H H MˆH M H - -]Y]K[[XH - MH - -  HH -NˆWݝZ] - -NˆY\]ܗܜX[ۊJBˆYYY\BˆY\H[ܙY[ܙY[OY ܙY[OZY ܙY[O^[ܛX] -Nˆ\ܙY[Y\ܙY[NˆB ̍MH -[HSSWUTQH\XX[H[[ \H M[XYK[[HK[[HK[[H M - -  HH ˆX\ܙY[ܙY[Nˆ]ܙY[ܙY[Y\   JNˆBBˆY]\H\HOH JBˆY[WܙY[ܙY[NˆBBY]\H\HOH Bˆ[\]W]\X -NˆY[]\Xݙ\\ -Bˆ[ݛ[YW]\X]Y]K]\Xݛ - -  HH ]Y]K]\Xݛ - -  HH -NˆBB[\[H[Y\][\[ -\[ -NˆY[\[\[ -Bˆ[\[H\[ ˆBY[\[\[ -Bˆ[\[H\[ ˆBH -H[\[ˆBY]\H\HOH BˆY[]\Xݙ\\ -Bˆ[W]\X -NˆBBY]\H\HOH JBˆX\ܙY[ܙY[NˆY[WܙY[ܙY[NˆWݝZ] - -Nˆ HXܙY[H]\ܛX[[]B]ܗܜX[ۊ]Y]K[[XK]Y]KY\NˆBYY\BˆY\ܙY[ Y\NˆBBY\W۝ -Bˆ[‚܊H PVVQT -Bˆ۝]^J^Y\۝[\KQTӕTNˆ۝]^J^Y\۝[\KQSՑUT ]Y]K^\VQSՑUTJNˆ۝]^J^Y\۝[\KQSՑQӋ]Y]K^\VQSՑQӗJNˆ۝]^J^Y\۝[\KQSՑSQ ]Y]K^\VQSՑSQJNˆ۝]^J^Y\۝[\KQSՑTQ ]Y]K^\VQSՑTQJNˆ۝]^J^Y\۝[\KQUP]Y]K^\VQUPJNˆ۝]^J^Y\۝[\KQUP̋]Y]K^\VQUP̗JNˆ۝]^J^Y\۝[\KQUP]Y]K^\VQUPJNˆ۝]^J^Y\۝[\KQUP ]Y]K^\VQUPJNˆ۝]^J^Y\۝[\KQҕST ]Y]K^\VQҕSTJNˆ۝]^J^Y\۝[\KQPPS ]Y]K^\VQPPSJNˆ۝]^J^Y\۝[\KQT ]Y]K^\VQTJNˆ۝]^J^Y\۝[\KQԑQS ]Y]K^\VQԑQSJNˆBB KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKBY\^WܙY] -BˆL̈[\[YHH[YH - L -ؘ[ۙY˙[YWYYˆ[ۙHH ˆ[HY[[\˝Y - ˆ[H -Y[[\˝\ HY[[\˝Y -H ˆ[HH ˆ[HY[[\˚\ ˆ[ HH H۝[ۛY - -H - Mˆ[ H -۝[ۛY - -H - ‚Y]Y]KOH JBˆ]\ˆBYW] -  -N‚[Y][ - -N‚]^\H ‚[JYۙJBˆHH ‚۝[ZY - ܙY]ȊK  ܙY]ȊN‚۝[ZY - K[ԈK - -K K [ԈN -N‚۝[ K - -K  \^K[[ۈNˆ۝[  - -K  ڙXXYN -N‚۝[ K - -K  \X[Z͎ HNˆ۝[  - -K  ][\N -N‚۝[ K - -K  ܘ]\ȊNˆ۝[  - -K  ][\N -N‚۝[ZY - KܛY\YK - -K K ܛY\YN -N‚۝[ K - -K  YܙȊNˆ۝[  - -K  YYHN -N‚۝[ K - -K  А[\[Nˆ۝[  - -K  \HN -N‚۝[ K - -K  ܙ[Nˆ۝[  - -K  ܛWN -N‚۝[ K - -K  Nˆ۝[  - -K  Z[ȊN -N‚۝[ K - -K  U[[ȊNˆ۝[  - -K  ]HYۈN -N‚۝[ K - -K  XȊN -N‚۝[ZY - KܝȊK - -K K ܝȊN -N‚۝[ K - -K  [^ Nˆ۝[  - -K  N -N‚۝[ K - -K  [YNˆ۝[  - -K  ԞYKXN -Nˆ۝[  - -K  U[[\X[Z͎ HN -Nˆ۝[  - -K  ]HYۈN -N‚\]J  -N‚ۙHH -[YH[\[YJNˆۙHH -]^\ -QT -QTJNˆBYHH NˆYW] -  -NŸBYܔ]ۊ[]\ۜ\ -\ BˆW\\\ˆW\]]\[Y[ˆ[N‚]X[][ۈH ‚Y][ۊBˆ]\ˆB][ۈH NˆW\ -\\ \N‚ []Y]K Y]Y]KN‚YY\X[Bˆ] -]\Bˆ\H [][ۈ -NˆXZˆY][[[\܈\Y -][ۈ -NˆXZˆBBYY\X[BˆWJ]]\[Y[\\ -Nˆܚ]Uњ[U\]]\[Y[NˆW[ -]]\[Y[NˆB][T]\UTNˆ]\][ -N‚ ʈ[H[܈H[[HܙY]ܙY[ -ˆ ܙY[]\HSԑQSSSWԑQUBB Y]\OH B ˆ \^WܙY] -Nˆ BY\\ۙJBܙY[]\ HSԑQSSSWԑQUˆ\WݚY[[\ -NˆBYY\X[Bˆ[[X\H][]HNˆBY -\\ۙJBˆ[Y][ܙ\ -NˆBYY\X[Bˆ[NˆBY\\ۙJBˆ[Y][ - -NˆBYY\X[Bˆ[ۙHWNˆBYY\X[Bˆ[[X\Hܘ\X]HNˆBYY\X[Bˆ[NˆBY\\ۙJBˆY\ܙY[ ܙY[N []YH[]ݚY[[\ˆBY\\ۙH ^[ܛX]OHVS -H܊HH HPVГSSJBˆYJ[X\WJNˆBYY\X[Bˆ[NˆBY\\ۙJBˆY\ܙY[ Xܛ[ -NˆBYY\X[Bˆ[NˆBYYPWАPԓSˆY\\ۙJH܊HH HPVPQАPԓSJBˆY\ܙY[ XVWJNˆBYY\X[Bˆ[NˆB[YY\\ۙJBˆY\]\ -NˆBYY\X[Bˆ[NˆBY\\ۙJBˆ[Y[ٛ۝ -NˆBYY\X[Bˆ[ۙHWNˆBYY\X[Bˆ[[X\H[YH]KNˆBY\\ۙJBˆYW[ -NˆBY\\ۙJBˆYW[[ -NˆBY\\ۙJBˆYW[[XJ -NˆBY\\ۙJBˆX\ܚ\ -NˆBYY\X[Bˆ[[X\H[YH]KۙHWNˆBYY\X[Bˆ[[X\H[Y\NˆBY\\ۙJBˆܕ[Y\^] - -NˆBYY\X[Bˆ[ۙHWNˆBYY\X[Bˆ[[X\H[]\\KNˆBY\\ۙJBˆ۝^] - -NˆBYY\X[Bˆ[ۙHWNˆBYY\X[Bˆ[[X\H[\[KNˆBY\\ۙJBˆ[^] - -NˆBYY\X[Bˆ[ۙHWNˆBYY\X[Bˆ[[X\H[PX[\[KNˆBY\\ۙJBˆZ\J -NˆBYY\X[Bˆ[ۙHWNˆBY[[Y\ -BˆYP[X[\ -[[Y\ -N [ݙY\HX]\H\\[]X[^YY]ۈ\[]X]YH[YHHY[BBY[[Y\ -BˆYP[X[\ -[[Y\ -NˆBY][Y\ -BˆYP[X[\ -][Y\ -NˆBY][ܙ\Y\ -BˆYP[X[\ -][ܙ\Y\ -NˆBYS[[\ - -NˆX\]Y[[X\[Y[ -NˆYJ][][[[X\Nˆ][][[[X\HSˆY][][ -BˆYJ][][ -Nˆ][][HSˆB][][[H ˆYJ[[X\Nˆ[[X\HSˆYY[[[YXXJ -Nˆؗ\][ -N‚ YH[]Xܙ\YW[]ܙXܙ\ -N‚YY\X[Bˆ[ۙH -NˆBYY\X[BˆWJ]]\[Y[\\ -Nˆܚ]Uњ[U\]]\[Y[NˆW[ -]]\[Y[NˆBW[ -\\ -Nˆ][ۈH ˆܑ^] -]\NŸBYZ\\\ - -Bˆ[N‚YY۝Y - Y[Kٛ۝ HXٚ[K -JBˆܔ]ۊ K[XHY۝HWNˆBYY۝Y - KY[Kٛ۝ Xٚ[K -JBˆܔ]ۊ K[XHY۝̈WNˆBYY۝Y - Y[Kٛ۝ ȋXٚ[K -JBˆܔ]ۊ K[XHY۝WNˆBܕ[Y\[] - -N‚۝[] - Nˆ\W۝ -N‚[]ݚY[[\ -NˆY]Y[][JY[[\JBˆܔ]ۊ K[XH]Y[[N Y YWY[[\˚\Y[[\˝\NˆB܊HH H MJBˆ[۝XVWHHNˆBBY\\ - -Bˆ[N‚[[PX[\[H[] NˆYZ[] - -JBˆ[[XYNˆB[Bˆ[\XYNˆBYYܙQ[J -NˆX\]Y[YJ -N‚[]ݚY[[\ JNˆY]Y[][JY[[\JBˆܔ]ۊ K[XH]Y[[N Y YWY[[\˚\Y[[\˝\NˆB[[Y\[] Nˆܕ[Y\[] - -Nˆ[ۙHWN‚[[]X[^H[ NˆY[[] - -JBˆYYXX[[ -JBˆ[ۙHWNˆB[Bˆ[NˆBY\[\^XX -JBˆ[\[Έ[^H[WNˆBЗ][YJЗPTT ]Y]K[ -NˆЗ][YJЗՓPU ]Y]K[ -NˆB[Bˆܔ]ۊ K[XH[]X[^H[ NˆB [] []Xܙ\[][]ܙXܙ\ -N‚[Y[۝ˋNˆY[ٛ۝ -Nˆ[ۙHWN‚[Y[]\ˋNˆYXX[]\ -Nˆ[ۙHWN‚[Y[][ܙ\NˆY][ܙ\ -Nˆ[ۙHWN‚[Y[[[ۜ[ˋNˆY[[ۜ[ -Nˆ[ۙHWN‚[Y[ܚ\][ˋNˆYܚ\][ -Nˆ[ۙHWN‚[Y[ܚ\ˋNˆYܚ\ -Nˆ[ۙHWN‚[Y[[[ˋNˆY[[ -N‚[ؚX[[H[] NˆYX[[ -JBˆܔ]ۊ K[YY[[ܞH܈[YHؚXWNˆB[ۙHWN‚[Y[Y[K NˆYY[W - -Nˆ[ۙHWN‚ ʂܘ]\ - KL -H[ݙYH[][ۈ[Y[H[[ۜH[وH[[H\\[[ۋ]YܙHH۝[][[ۈ -]\YH۝[[ۈYYܙHܚ\B -ˆ[Y[[][ۋNˆؗ[][ -Nˆ[ۙHWN‚[[][] Nˆ۝[] -]Y]K\ZJNˆ\W۝ -Nˆ[ۙHWN‚YYPWАPԓSˆ[X[Xܛ[ˋNˆXW[ؘXܛ[ -Nˆ[ۙHWNˆ[Y[ܙX]H[[X\ˋNˆY^[ܛX]OHVS -BˆܙX]W؛[X\ -[X\NˆB܊HH HPVSVH JBˆ[۝XVWHHNˆB[ۙHWN‚Y]Y]K L -Bˆ]Y]KH ˆB[]H][\Nˆ]\][ -Nˆ[ۙHWN‚\\ۙHH N‚[N‚B KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKB]\ ۈ\܋ LHۈ\\B[^YY\ -[[[YK[ [K[\ -Bˆ[YY[ -[H[ K^[ي -[JNˆܙY[ -X؝Y\HSˆܙY[ -[\HXܛ[ˆ[\[H NˆL̈[[ˆL̈\[YNˆL̈Z[\XۙˆL̈[\[YK[\][YN [\ܘ\H]܈[[YHY^B[[H -[][\[ - -HOH Nˆ[\[YHH[YNˆ[\][YHH][YNˆ[YHH ˆZ[\XۙH ˆ\[YHH ˆXܛ[HS‚YJ\[H[YY[[[[YKXٚ[K[JJBˆ^YY[ˆB[JZ[OۙJBˆYZ[\XۙH[O[K^[YJBˆ[YYXWٜ[YJ[NˆBYJX؝Y\H[YY]Y\[JJBˆXZˆB]\WYܙY[ K X؝Y\S  -NˆY[O[YHOH -BˆWݝZ] - -Nˆ\]J  -NˆB[Bˆ\]J  JNˆBY[[ -BˆZ[\Xۙ -H[][\[ - -NˆB[BˆZ[\Xۙ -H -[YH H\[YJH - L  ؘ[ۙY˙[YWYYˆB\[YHH[YN‚Y[\ -]^\ -QTQSPUӊJJBˆ\[H LNˆXZˆBB^YY[[YYJ[NˆYJ[Nˆ[YHH[\[YNˆ][YHH[\][YNˆXܛ[H[\ˆ [\[]J JN ܘ]\ - KL -H\XY^H\YBY OH\[ -Bˆ[\[[\܈\Y[H^Z[[[X]YY[H \˗[[[YJNˆB]\\[‚BYYPBʂ\^K[[ۈ L LL\\H[^]XJ -HZ][܈\Hܘ\\\[H]\XH[ݚYHT\ˈ]\ Hۈ\][ۋ ۈ\܋܈ LH[ܙX]܋Y[XY[][\\^XX˂š[^]XJۜ\ -] [\ -Bˆ[][H Nˆ[\WYH LNˆ[ݚYW^XX -^XXHSˆܙY[ -ܙY[ٜ[YHHS‚[ݚYW^XX[ - -Nˆ\WYH[ݚYW\WY -] SՒQWQSPSJNˆY\WY -Hˆ]\ ˆB^XXH[ݚYW^XX^J\WY SՒQWSSUU]Y]K]\Xݛ YB -NˆY\^XXHˆ][H ˆ]Z]ˆBY[[ݚYW^XX][\\ -^XX[\ -JHˆ][H ˆ]Z]ˆB ʈYXH^XX\\HXH\^H^H[\\HUU]] -ˆ[ݚYW^XX]Y -^XXSՒQWVWӐUUJNˆ[ݚYW^XX]ZY -^XXSՒQWVWӐUUJN‚[J^XXOX]JHˆ[[\\ܙ\]Y\Yˆ[\[ٜ[YN‚[]Y\ -^\X]\O]\Nˆ[\\ܙ\]Y\YB -]^\ -QTQSPUӊJHOH ˆY[\\ܙ\]Y\Y ^XXO[\\ -Hˆ][H LNˆB[ݚYW^XX\]J[\\ܙ\]Y\Y -NˆY\^XXOX]JHˆXZˆB\[ٜ[YHH^XXO[YW\NˆY\[ٜ[YJHˆY[[ݚYW^XX]]]^XXO[^ -JHˆ][H ˆXZˆBBY^XXO\[ٜ[YH [ܙY[  -]^\ QԑQS -JHˆY\ܙY[ٜ[YHܙY[ٜ[YKOYOH^XXO\[ٜ[YKOYܙY[ٜ[YKOZYOH^XXO\[ٜ[YKOZY -HˆYܙY[ٜ[YJHˆY\ܙY[ ܙY[ٜ[YJNˆBܙY[ٜ[YHH[ܙY[^XXO\[ٜ[YKOY ^XXO\[ٜ[YKOZY VŜ -NˆBYܙY[ٜ[YJHˆ]]ܙ؊^XXO\[ٜ[YKܙY[ٜ[YJNˆܙY[ -ܙY[ٜ[YKS  -NˆBB\Y\ - L -NˆB]Z]YܙY[ٜ[YJHˆY\ܙY[ ܙY[ٜ[YJNˆBY^XX ^XXOZ[Y ][ -Hˆ][H ˆBY^XX ^XXOX]JHˆ[ݚYW^XX -^XXNˆB[J\WYH  [[ݚYW\W[Y -\WY -JHˆ[ݚYW^XX\]J -Nˆ\Y\ - L -NˆB]\][ŸB[YY^\[J\ -[[[YJBˆ\ -Yˆ^W^Nˆ[ˆ\ -[X[HSˆ\Y[ٚ[VPVЕQTSNˆ[H HH \ۙHH \H Nˆ[[H ]\‚\\\\ˆ\\؝YPVTS - WHH‚ XY[BYY\Zٚ[J[[[YK Y ^JHOH JBˆ]\ˆB\[[HH[[[YN‚ [\]H۝[وY[HH[BH ˆ[JYJBˆ\P\ \\ Y -\؝YNˆ[X[HUT -NˆY[X[JBˆYX[ X\ -[X[ ]\XȊHOH -Bˆ]\XUT JKUST K] -UT JJNˆB[HYX[ X\ -[X[ [[X][ۈHOH -BˆJY[ٚ[KUT JJNˆHUST NˆHHUST Nˆ\ۙHHUST -Nˆ\HUST JNˆ]\H^YYY[ٚ[K K\ -NˆY]\OH LH \\ۙJBˆ[H NˆBB[HYX[ X\ -[X[ Y[ȊHOH -BˆYYPBJY[ٚ[KUT JJNˆ\ۙHHUST Nˆ\HUST Nˆ]\H^]XJY[ٚ[K\ -NˆY]\OH LH \\ۙJBˆ[H NˆB[HY]\OH -Bˆ[[\܈\Y[Z[^HHY[ \Y[ٚ[JNˆB[B[\[Y[ \XH^XX\ܝYۈ\]ܛWNˆ[YB[HYX\ -[X[ [[HHOH -Bˆ[W]\X -NˆBB ^ۋX[[B -H]][T\ -Y -NˆBYYOHS -BˆYJYNˆYHSˆB\[[HHSˆ܊HH HPVVQTJBˆ^Y\WK\XZ^\H^Y\WK]^\H^Y\WK^Z^\H ˆBB KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKBY[Y[ݙ\ -Bˆ[ۙHH ˆ\\YPVЕQTSHHȈN‚]\X]K]\X[Y[ݙ\  -N‚[YHH ˆܙY[]\HSԑQSSQWՑT‚Y\[\OHS -BˆJ\Y\[\Nˆ] -\Y[Y[ݙ\NˆY\Xٚ[J\YXٚ[JHH -Bˆ^\[J\YNˆۙHH NˆBB[BˆY\Xٚ[J]K[\[Y[ݙ\Xٚ[JHH -Bˆ^\[J]K[\[Y[ݙ\NˆۙHH NˆBB[JYۙJBˆ۝[ZY - SQHՑTJK LL -Y[[\˝Y   SQHՑTJNˆۙHH -[YHؘ[ۙY˙[YWYY - \[]Y\W]\XS S -JNˆۙHH -]^\ -QTQSPUӊJNˆ\]J  -NˆBܙY[]\ HSԑQSSQWՑTŸBY[[YJ[YܙJBˆ[ۙHH ˆ[[LHH          NˆZ[ ܙNˆ\VPVӐSQWS - WNˆ[K Nˆ\\YPVЕQTSHHȈNˆ[ HH Nˆ[ H ‚ܙY[]\HSԑQSSїѐSQN‚Y\ܙXBˆ ][\]]HXܛ[] Y\ܙOHS -BˆJ\Y\ܙNˆ] -\Y\ܙHNˆYؘXܛ[ -\YNˆB[BˆYXYؘXܛ[ -]Kؙ\ܙHNˆBBYYܙJBˆ܊H ][]\[]KX^^Y\ -BˆY^Y\KܙH]\ܙKYWJBˆ]\ܙKYWHH^Y\KܙNˆJ]\ܙKܙ[WK^Y\K[YJNˆ[WHH N‚܊HHHH  ^Y\KܙH]\ܙKYWNKKJBˆܙHH]\ܙKYWNˆJK]\ܙKܙ[WJNˆ]\ܙKYWHH^Y\KܙNˆJ]\ܙKܙ[WK^Y\K[YJNˆ[WHH Nˆ]\ܙKYH - WHHܙNˆJ]\ܙKܙ[H - WKJNˆ[H - WHH ˆBBB]RYܙQ[J -NˆB[YHH ‚[JYۙJBˆHH MˆYZ\ܙXBˆ۝[ZY - [و[YHJKH H۝ZY - H H L -Y[[\˝Y   [و[YHJNˆB܊HH H LJBˆ۝[ -[WK JKH -Y[[\˝Y [WK LK \ȋH - K]\ܙKܙ[WJNˆ۝[ -[WK KH -Y[[\˝Y [WK  -ܙYܛX]LH]MH]M -K]\ܙKYWJNˆH -H -Y[[\˝\ HY[[\˝Y H M H ̊H L ٛ۝ZY[WWH - ˆB ܘ]\ - KL HYYHQSPUӈ^]H[و[YHܙY[\]J  -NˆۙHH -[YHؘ[ۙY˙[YWYY - -NˆۙHH -]^\ -QTQSPUӈQTJNˆB[YؘXܛ[ - -NˆܙY[]\ HSԑQSSїѐSQNŸB][\]Y ۝\YY\]J[Bˆ[ۙHH ˆ[KˆL̈X\۝\HH L  L  L  L NˆL̈YX۝\HH L  L  L  L NˆL̈\۝\HH L  L  L  L NˆL̈^[YHH ˆL̈[\[YHH ˆ[[H ˆ\\YPVЕQTSHHȈN‚ܙY[]\HSԑQSTUN‚Y\]XBˆ ][\]]HXܛ[] Y\ܙOHS -BˆJ\Y\ܙNˆ] -\Y\]HNˆYؘXܛ[ -\YNˆB[BˆYXYؘXܛ[ -]Kؙ\]HNˆBB]\X]K]\X\]H  -N‚܊HH H][]\[]KX^^Y\JBˆY\HH H ܝ\۝\OH JBˆ\۝\WHHX^\\]WH -؛۝\\̗NˆBY؛۝\\HOH JBˆX\۝\WHH -؛۝\\NˆB[BˆX\۝\WHH؛۝\\NˆBYX۝\WHH^Y\WK]\ -؛۝\\WNˆB\]J  -N‚[YHH ˆ[JYۙJBˆY\\]VWJBˆ۝[Y[[\˚Y -\]VKY[[\˝Y -\]VWK  YH ZH\]HHKNˆB[Bˆ۝[Y[[\˚Y -\]VKY[[\˝Y -\]VWK  YHJNˆ۝[Y[[\˚Y -\]V̗KY[[\˝Y -\]VK  ZHNˆ۝[Y[[\˚Y -\]VKY[[\˝Y -\]VWK  \]HJNˆB۝[Y[[\˚Y -؛۝\KY[[\˝Y -؛۝\WK  X\۝\ȊJNˆ܊HH H H H][]\[]KX^^Y\JH - H - HY^Y\WK]\ -Bˆ۝[Y[[\˚Y -؛۝\ڗKY[[\˝Y -؛۝\K   -ܙYܛX]L[H[HKX\۝\WJNˆB۝[Y[[\˚Y -۝\KY[[\˝Y -۝\WK  YH۝\ȊJNˆ܊HH H H H][]\[]KX^^Y\JH - H - HY^Y\WK]\ -Bˆ۝[Y[[\˚Y -۝\ڗKY[[\˝Y -۝\K   -ܙYܛX]L[H[HKYX۝\WJNˆBY\HH H ܝ\۝\OH JBˆ۝[Y[[\˚Y -۝\KY[[\˝Y -۝\WK  \۝\ȊJNˆ܊HH H H H][]\[]KX^^Y\JH - H - HY^Y\WK]\ -Bˆ۝[Y[[\˚Y -۝\ڗKY[[\˝Y -۝\K   -ܙYܛX]L[H[HK\۝\WJNˆBB۝[Y[[\˚Y -ܙVKY[[\˝Y -ܙVWK  [ܙHJNˆ܊HH H H H][]\[]KX^^Y\JH - H - HY^Y\WK]\ -Bˆ۝[Y[[\˚Y -ܙVڗKY[[\˝Y -ܙVK   -ܙYܛX]LH]MH]M -K^Y\WKܙJNˆB[J[YH^[YJBˆYY[\[YJBˆ[\[YHH[YH -  -ؘ[ۙY˙[YWYYˆB܊HH H][]\[]KX^^Y\JBˆY^Y\WK]\ -BˆYX\۝\WH -BˆYܙJK L -NˆX\۝\WH OH Lˆ[\[YHH ˆB[HYYX۝\WH -BˆYܙJK L -NˆYX۝\WH OH Lˆ[\[YHH ˆB[HY\HH H ܝ\۝\OH H -\۝\WH -JBˆYܙJK L -Nˆ\۝\WH OH Lˆ[\[YHH ˆBBBYY[\[YH J^[YH MJJBˆ[[\J[Nˆ[H[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆB^[YJˆBY]^\ -QSPUӈQTJBˆۙHH NˆBY[\[YH [YH[\[YJBˆۙHH NˆB\]J  -NˆB Y[XZ[\وܙK[\H^Y\\[\܊HH H][]\[]KX^^Y\JBˆY^Y\WK]\ -BˆY\HH H ܝ\۝\OH JBˆYܙJK\۝\WJNˆBYܙJKX\۝\WJNˆYܙJKYX۝\WJNˆBB[YؘXܛ[ - -N‚ܙY[]\ HSԑQSTUNŸBY][][[ -Bˆ[Nˆ][H -]H][] -\[]ˆ][][ -]HH][][ -\[]‚]KOYH] O]YYˆ ۉXY\H]H[[܈[\HXˆ܊HH H] OX^^Y\JBˆ]KO]\WHH^Y\WK]\ˆ]KOܙY]WHH^Y\WKܙY]ˆ]KOܙ\WHH^Y\WKܙNˆ]KO]ۚX[WHH^Y\WK]ۚX[ˆ]KO]ۛ\WHH^Y\WK]ۛ\ˆ]KOX\WHH^Y\WKX\ˆ]KO\X\WHH^Y\WK\X\ˆJ]KO[YVWK^Y\WK[YKPVӐSQWSNˆB]KOܙY]HܙY]ˆ]KO][H\[][ˆ]KOYHH\[YNˆ]KOX]H\[]ˆJ]KO[YK] O[YKPVӐSQWS H JNˆ]]Y[[X\[Y[\[] [[X\NŸBY]Xܞ\J[]H -[ -BˆY[ [ O[Z[ SRSӓӑH Y[ O[[ J[ OX]]H PUUWPQ -H Y[ O\[  -[ OY[ QSPUJH [ O][ۋHH[ O\H -Bˆ[ OZXX[ۈHSˆ[ O[]KH[ O[]KH ˆ[ OY[HQSӓӑNˆ[][[J[ SWՒPԖK -NˆBB]XYXݚXܞWJ -BˆY - -[[YH JH ][\]YYX][؛ -Bˆ[Nˆ܊HH HPVVQTJBˆ[]J\H[ˆ[H^Y\WK[ˆY[ [Y[[J[SWՒPԖJH [O[[[[HOHSWՒPԖJBˆ]Xܞ\J[Nˆ[[YHH ˆB[HY -[ [O[[[[HOHSWՒPԖH [O[[X][Bˆ[[YHH ˆB[H\ˆBBB[^[][ -\ -[[[YJBˆ[K\K[]HH ‚[[ - -N‚][][[ -N \[\HHH[HY\][\YYY][ -[[[YJN‚Y[]JBˆ]Q[YQ[J -Nˆ]RYܙQ[J -Nˆ]Tܚ\[J -NˆB]HH ‚[YHH ˆ^[H ˆ[\HSˆ\^Y\HSˆ\HH][ O\N‚ ^\H\][^X][\]ۈYˆ܊HH H][]\[]KX^^Y\JBˆY^Y\WK]\ -Bˆ^Y\WK\XZ^\H^Y\WK]^\H^Y\WK^Z^\H ˆ^Y\WKX\H][ O]X\ˆ^Y\WK[[H ˆ^Y\WK\^YYH Nˆ]ۜ^Y\JNˆ^Y\WK[ O\ X^H ˆBB ^X]HHܚ\[][\YYܚ\\[]X[^Y - ][ܚ\ -JBˆܚ\^X]J ][ܚ\ -NˆBYܚ\\[]X[^Y - ][ O][ܚ\ -JJBˆܚ\^X]J ][ O][ܚ\ -JNˆB[JY[[YJBˆ\]J K -N‚Y -][ OܘWٚ[\][ -Bˆ][\]YH Nˆ[[YHH Nˆ][ OܘWٚ[\][H ˆBY -][ OܘW[Y[ݙ\Bˆ []J[\H[ˆ܊HH HPVVQTJH ][]\[]KX^^Y\ˆˆ^Y\WK]\H ˆY\JBˆ^Y\WKܙY]H ˆB[BˆܙY]H ˆBY -^Y\WK[ -BBBB^‚BBBBZ[[]J^Y\WK[ SSUWQTUSSQWՑTN‚BBBB\^Y\WK[HS‚BBB_B [H^Y\WK[ˆ ^Y\YJ -NˆB [H[\ˆ [[ - -Nˆ[[YHH Nˆ][ OܘW[Y[ݙ\H ˆBY][\]Y -Bˆ[[YHH -Y[[ -TWSSVJH][ O\H[[ -TWSUS -JN [[[[[ZY\YH܈H۝\][XݚXܞWJ -NˆBB ^X]HHܚ\[][[\YYܚ\\[]X[^Y - [][ܚ\ -JBˆܚ\^X]J [][ܚ\ -NˆBYܚ\\[]X[^Y - ][ O[][ܚ\ -JJBˆܚ\^X]J ][ O[][ܚ\ -JNˆBY[٘Y[] -BˆYW] -  -NˆB܊HH H][]\[]KX^^Y\JBˆY^Y\WK[ -BˆX^\\]WHH^Y\WK[ O\ X^ˆ^Y\WK]ۚX[H^Y\WK[ O[\W]KX[\[ˆ^Y\WK]ۛ\H^Y\WK[ O[\W]K\\[ˆB \]^Y\WKX\H ˆBY[]\Xݙ\\ -Bˆ[W]\X -NˆB[[[\J[JN‚[Y][ - -N‚ \H[H^Y\[]O‚Y܊HH HPVVQTJBˆY -^Y\WK]\ -Bˆ[]HH NˆXZˆBB]\ - -\HOH [[YHOH H[]JNŸB\^K[[ۈ -] H[ۛۊB NKL KL ‹‹܈[XܙY[]ۈ[\H[]H܈^Y\[^ ]X[]H -]ۙ^[\J[^Y\[^ -Bˆ\UӗSSӐSQHHSˆۜ[UӗSSSVHSSSVӓӑN‚[]BJ^[\N‚\[[ -[[‚\][H -]‚Y]‚Y]N‚Y]ގ‚Z[\X[ێ‚BB\]H][] -\[]‚K]]ۈ]X]\[]ۈ[]K\H -] -\Y[V^Y\[^VN‚\HH ‚\ވH -] -\Y[V^Y\[^VWN‚Y\X[ۈH\X[ۖ^Y\[^N‚K^[XXH[[[XKI\H\‚KXYH]H]ۋ[[[H^^Y\[[S ^Y\[^ -N‚Y^[\HH]ۊ ދK\X[ۋUӗSSӐSQKUӗSSSV [[ -NˆKH[[ H^Y\\K\J^Y\^Y\[^K[YK[[ O[YJN‚KY܈[X[ۈ\[Y[H[K^Y\][YH[[\HY\[KX\[\H^X\[XK\\BK\]Y][X\ ZY -\[X -] O[YH JB^‚B\^Y\^Y\[^K\X\H^\X\[[  LK^Y\[^ -N‚_BY[B^‚B\^Y\^Y\[^K\X\H ‚_BK\HX\]ۙY[]K[]\X\ -^[\K^Y\^Y\[^K\X\ -NˆKH[]Hۛ][YHKY^[\KO]۝\HHUӗTWVQTSPˆ\]\^[\NŸBY]Y[XܙY[]XYY[XܙY[[][][ -]JBˆ[HH ˆ\\\\ˆ\\؝YPVTS - WHHˆ\ -[[[YHH \Y \\Y[UST -B\ -[X[H \Y \\Y[UST -B Y[[Yˆ܊HH H]KO[XY[JBˆ[[ -[\[[ˆ[X[HUT -N‚YX[X[X[X[JH۝[YNˆ\P\ \\ ]KO[XYWK\؝YN‚[\[[H[[[ -UT JJNˆY -[\[[ -Bˆ\]W[[YY[\[[ UST JNˆBB\P\ \\ ]KO[X]\X\؝YNˆ[X[HUT -NˆY[X[ [X[JH]\XUT JKUST K] -UT JJN‚\P\ \\ ]KO[XXܛ[ \؝YNˆ[X[HUT -NˆY[X[ [X[JHYؘXܛ[ -UT JJN‚]\ŸB[[X^Y\[ -^Y\\ -[[[YK[\T]Y[YJB‚\[[ -[\[[‚\[[ -[[ۙ]PVVQTHHSN‚Z[N‚Z[^]H ‚Z[\\HH ‚Z[Y][[XH ‚][YۙY^][^HH ‚Z[^Y\؝\HH ‚Z[^Y\ܙXYHH ‚X\[PVЕQTSHHN‚X\ -Y -[X[‚\^W^HH ‚\YH ‚P\\\\‚X\\؝YPVTS - WHH‚\][H -]H][] -\[]‚\][][ -]HH][][ -\[]‚Z[Y[H ‚Z[]Y[XܙY[H ‚Z[\ٚ\[XH N‚\][][[ -N‚ܙY[]\HSԑQSSP‚[[ - -N‚K[]X[^H^Y\^Y\^\˂Y[]H -^[\V] OX^^Y\N‚Z[XYV] OX^^Y\N‚K[]X[^HY܈ -HH H] OX^^Y\JB^‚BY^[\VWHHS‚B\XYVWHH ‚_BK[[X I\H\\و[[X KY\I I[\H\[[X ZY -X[[X\‚B_ -[[X\HOH I‚BBI[[X\HOH IJB^‚B\\]^XXW\ - JN‚_BK\]Y[[ܞH܈^Y\\^K[Y[\] -^Y\ ^[ي -^Y\H -PVVQTN‚KY[YH[XY[H]H[YH]Z[XO‚ZY -\T]Y[YH ]JB^‚BZY -]KO[XYBB^‚BB[Y[XܙY[[]JN‚BB[Y^XXW\ -BBBY]]Y[[X\[Y[\[] -BBBJN‚BB\]Y[XܙY[H N‚B_B_BKX\\^YY܈[^Y\˂Y܈ -HH H] OX^^Y\JB^‚B\^Y\WK\^YYH^Y\WN‚_BY܈ -HH H] OX^^Y\JB^‚BZY -][][\[]K]\WH -BB^‚BBZ\ٚ\[XH ‚BBXXZ‚B_B_BKY[\H[X[ۈ^[KZY -[[[YH [[[YVJB^‚BZY -Y\Zٚ[J[[[YK Y ^JHOH JBB^‚BBXܔ]ۊ KZ[YY^Y\[X[H \ȋ[[[YJN‚B_BB][H -^JBB^‚BBT\P\ \\ Y -\؝YN‚BBX[X[HUT -N‚BBZY -[X[ [X[JBBB^‚BBBZY -X\ -[X[ ]\XȊHOH -BBBB^‚BBBB[]\XUT JKUST K] -UT JJN‚BBBBKUBBBBB[][\] -]KO[X]\X[X[ UT JKUT KUT KS -N‚BBB_BBBBY[HY -X\ -[X[ [[XHOH -BBBB^‚BBBB[Y^XXW\ -Y -N‚BBBB\]]Y[[X\[Y[BBBBBX\[] BBBBBX[[X\‚BBBBJN‚BBB_BBBBY[HY -X\ -[X[ Xܛ[HOH -BBBB^‚BBBB[YؘXܛ[ -UT JJN‚BBBBKUBBBBB[][\] -]KO[XXܛ[ [X[ UT JKS -N‚BBB_BBBBY[HY -X\ -[X[ YHOH -BBBB^‚BBBB][\[[H[[[ -UT JJN‚BBBBZY -][\[[ -BBBBB^‚BBBBB[YXY[[ -UT JK[[[YKUST JN‚BBBB_BBBBBY[BBBBB^‚BBBBB]\]W[[YY[\[[ UST JN‚BBBB_BBBBBKUBBBBBZY -Y[PVSPQBBBBB^‚BBBBB[][\] -]KO[XYY[K[X[ UT JKUT KS -N‚BBBBB[Y[ -‚BBBB_BBBB_BBBBY[HY -[X[ [X[JBBBB^‚BBBB\[[X[ \\[\[[H \[X[ [[[YJN‚BBB_BBB_BBB\ -H]][T\ -Y -N‚B_BB\]KO[XY[HY[ UH\وQ[X[B\]KO[XYH N‚BZY -YOHS -BB^‚BBYYJYN‚BBXYHS‚B_B_BY[H ]][X ^‚BZY -\ٚ\[X -\\[XVH \] O[X -JH [X\\[X]]\‚B^‚BBYY][[XH N ܛX[[X܈\[X ۛ[X HOHܛX[[XB_BBZY -[\JBB^‚BBXܙY]HӕSQT‚B_BBY[H܈ -HH H] OX^^Y\JBB^‚BBZY -^Y\WJBBB^‚BBB\^Y\WKܙY]HӕSQT‚BB_BB_BBZY -\[XVH] O[X -BB^‚BBY܈ -HH H] OX^^Y\JBBB^‚BBBZY -\^Y\WJBBBB^‚BBBBX۝[YN‚BBB_BBBB\J^Y\WK[YK\[XWKPVӐSQWSN‚BBBZY -Y][[X -BBBB^‚BBBB\^Y\WK]\HVQTUT‚BBBBZY -Jؘ[ۙY˘X] PUSӔԑQUPUJJBBBBB^‚BBBBBZY -\JBBBBBB^‚BBBBBBKK\^Y\WKܙY]‚BBBBB_BBBBBBY[BBBBBB^‚BBBBBBKKXܙY]‚BBBBB_BBBBB_BBBB_BBBBY[BBBB^‚BBBB\^Y\WK]\H][][\[]K]\WN‚BBBB\^Y\WKܙHH][][\[]Kܙ\WN‚BBBBZY -\JH^Y\WKܙY]H][][\[]KܙY]WN‚BBBBY[HܙY]H][][\[]KܙY]‚BBB_BBB_BBB\ܙY[]\ HSԑQSSP‚BB\]\ N‚B_BBZY -\]Y[XܙY[BB^‚BBZY -[ؙ ۝\BBB^‚BBBK][\]]HXܛ[] BBBZY -\ܙOHS -BBBB^‚BBBB\J[\ܙN‚BBBB\] -[[ؙȊN‚BBBB[YؘXܛ[ -[N‚BBB_BBBBY[BBBB^‚BBBB[YXYؘXܛ[ -]Kؙ[ؙȊN‚BBB_BBB_BBBY[BBB^‚BBBK][\]]HXܛ[] BBBZY -\ܙOHS -BBBB^‚BBBB\J[\ܙN‚BBBB\] -[[XN‚BBBB[YؘXܛ[ -[N‚BBB_BBBBY[BBBB^‚BBBB[YXYؘXܛ[ -]Kؙ[XN‚BBB_BBB_BBBZY -[]\X]K]\XY[H K -JBBB^‚BBB[]\X]K]\Xܙ[Z^ K -N‚BB_BB_B_BY܈ -HH H] OX^^Y\JB^‚BZY -^Y\WJBB^‚BBY^[\VWHH]ۙ^[\JJN‚BB\^Y\WK^Z^\H ‚BBZY -Y][[X -BBB^‚BBB\^Y\WK]\HVQTUT‚BBBZY -Jؘ[ۙY˘X] PUSӔԑQUPUJJBBBB^‚BBBBZY -\JBBBBB^‚BBBBBKK\^Y\WKܙY]‚BBBB_BBBBBY[BBBBB^‚BBBBBKKXܙY]‚BBBB_BBBB_BBB_BBBY[BBB^‚BBB\^Y\WK]\H][][\[]K]\WN‚BBB\^Y\WKܙHH][][\[]Kܙ\WN‚BBBZY -\JH^Y\WKܙY]H][][\[]KܙY]WN‚BBBY[HܙY]H][][\[]KܙY]‚BB_BB_B_BW[YHH ‚K^H[[X[ۈ[[\\H܈^] KK^]H[^Y\XYH -[XY -H[^][^H^\Y K\\HH\\H^H\Y ][H -J^]\\JJB^‚B\^Y\؝\HH ‚B\^Y\ܙXYHH ‚BKY^Y\˂BY܈ -HH H] OX^^Y\JBB^‚BBK\[^Y\[^Y][XY‚BBZY -\XYVWJBBB^‚BBBBBBBK\\\HH\[^Y\[X[ۜˈHX\ۙ‚BBBK[H]HY\KXH\H\X[KH[]ۂBBBK[^[\H[]H]\Y []^[\H[]BBBBK\]^Y\Y\ۈH[X[ۈܙY[[H]BBBK][[ ܋[[X][ۈ\YۈH]X][ۈ[^Y\BBBK[] BBBK‚BBBK KY[^[\H[]H^\[\^Z[H[][ۈBBBK[KBBBK‚BBBKJH[YH[[X][ۈ\ۉ[\Y BBBK‚BBBKHY]T[\Y BBBK‚BBBK KH KYH[[X][ۈ\SWSPS[^HSWSP BBBKBBBK KH Y[X[]ۈ\SWSPU [H]]BBBK[[ -Y]Z[XJKBBBK‚BBBK Y^Y\\ۉ^YYY] \YHܙY]܈BBBK[]HܙY][\Y[HX[ۈ]ۋBBBK[IX[]Z\ܙY][]ۈBBBBK\^[\H -[XXH[[]Y]K][[BBBK^[\H]ۙY[[\H^Y\\\]YBBBK\\ [] [X[ۜH[HوBBBKH\˂BBBK‚BBBK ˈYH^Y\\YY܈Y[XY[\I‚BBBK[^[\H]ۙY [H[H][\ۙ^BBBK\X\[[K[Xܙ]H\XXK[BBBBKYHY^[\H\SWSPSY]\ۉH]BBBK][[ Y]\^HSWSP BBBK‚BBBK YH^Y\\\\܈ۋH]H[^[\HBBBK]ۙY[\[X\[XY [XHBBBBK[[ ][\ۙ^܈]XKBBBK‚BBBK KYH^Y\\\[HX[ۈ]ۈ[H]BBBBK[^[\H]ۙY [HX\H^Y\XYH[^HBBBKY[[[YKYHH\[X܈BBBK[X[ۈ[^H ^]]Z[ˈ\\H^Y\BBBKXZ[Z\[X[ۈXKBBBK^[\H^\[[X[][ۈ[[X][ۏ‚BBBZY -^[\VWHBBBBI -^[\VWKO[[[[HOHSWSPS^[\VWKO[[[[HOHSWSPU -JBBBB^‚BBBBKY[[[X][[[ˈ]H[][ۈ[\ BBBBZY -^[\VWKO[[X][BBBBB^‚BBBB_BBBBBY[BBBBB^‚BBBBBK[][ۈ[X[[X][ۋBBBBBZY -^[\VWKO[[[[HOHSWSPSBBBBBB^‚BBBBBBY[][[J^[\VWKSWSP  -N‚BBBBB_BBBBBBK[][ۈH[X -^Y\[XY[\[[ [BBBBBBK[X][][ۈ\[\Y -K\X]وY ܚY^HBBBBBKX[[ؘXHYYۜY][ۋBBBBBZY -^[\VWKO[[[[HOHSWSPU [[ۙ]WJBBBBBB^‚BBBBBBK\H][[ BBBBBBY[][[ -^[\VWK[[ۙ]WKO[YK -N‚BBBBBB[[[ۙ]WHHS‚BBBBBBKH^[\H[[H^Y\H\XXKBBBBBB\J^Y\WK[YK^[\VWKO[[ O[YJN‚BBBBBBKYܜ[X\[XY[H \[XY \‚BBBBBBK\]^]ZX[H܈XK\\H\\BBBBBBK]Y][܈] - -KBBBBBBZY -\[X -] O[YH JBBBBBBB^‚BBBBBBB\^Y\WK\X\H^\X\^[\VWKO[[  LKJN‚BBBBBB_BBBBBBBY[BBBBBBB^‚BBBBBBB\^Y\WK\X\H ‚BBBBBB_BBBBBBBK\H܈] BBBBBBY[]\X\ -^[\VWK^Y\WK\X\ -N‚BBBBB_BBBBB_BBBB_BBBBY[HY -\^Y\WK\^YYBBBBI -\HܙY] -BBBBBI -^Y\WK]^\ QSPUӊJBBBB^‚BBBBK\^Y\\^YY BBBB\^Y\WHH^Y\WK\^YYH N‚BBBBK[Y Y YK^Y\WK]\[[YYX]VWJN‚BBBBK\HYX[XX^Y\\Z\ۈܙY] BBBBZY -\JBBBBB^‚BBBBB\^Y\WKܙY]HӕSQT‚BBBB_BBBBBKܙY]X]H[[]HܙY]ˈY] [XY BBBBK[YXHܙY] BBBBZY -Jؘ[ۙY˘X] PUSӔԑQUPUJJBBBBB^‚BBBBBZY -\JBBBBBB^‚BBBBBBKK\^Y\WKܙY]‚BBBBB_BBBBBBY[BBBBBB^‚BBBBBBKKXܙY]‚BBBBB_BBBBB_BBBBBK]H^Y\Y][\و]\]ۂBBBBK^[\H[[[[[H^HY˂BBBB\^Y\WK]\HVQTUT‚BBBBY^[\VWHH]ۙ^[\JJN‚BBBB\^Y\WK^Z^\H ‚BBBBK^H[YX BBBBZY -ؘ[[\W\ Y\H -BBBBB^‚BBBBB\[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -N‚BBBB_BBBB_BBBBY[HY - -^Y\WK]^\ QSPUӊH ^[\VWJH ܘ]\ - KL KLJH[ݙYH[X]ۈHYܙHوHY ܚYH^HY]XZ\\X\[[\H\Y]\BBB^‚BBBBZY -ؘ[[\W\ Y\̈H -BBBBB^‚BBBBB\[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -N‚BBBB_BBBBBKX^H[HXYYHBBBBBZY -[Y[[J^[\VWKSWPJBBBBB^‚BBBBBY[][[J^[\VWKSWP -N‚BBBB_BBBBBY^[\VWKO[[YHH[YH -ؘ[ۙY˙[YWYY - ‚BBBB\XYVWHH N‚BBB_BBBBY[HY -^Y\WK]^\ -QSՑSQQSՑTQ -H ^[\VWJBBBB^‚BBBBK]H^Y\HYYX[ BBBBZY -ؘ[[\W\ Y\H -BBBBB^‚BBBBB\[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -N‚BBBB_BBBBBK][[[\HY˂BBBBK] ]H][[ Y^HH][\[[BBBBK[XKY^HH^ BBBBZY - -^Y\WK]^\ QSՑSQ -JBBBBB^‚BBBBB[[[ۙ]WHH]^Y\[[^[\VWKO[[ JN‚BBBB_BBBBBY[BBBBB^‚BBBBB[[[ۙ]WHH^^Y\[[^[\VWKO[[ JN‚BBBB_BBBBBKH]HH[X][][ۏY^H]\KBBBBK\\H]][[ BBBBZY -[Y[[J^[\VWKSWSPU -JBBBBB^BBBBBBBBBBBY[][[J^[\VWKSWSPU  -NBBBBBBBB_BBBBBY[BBBBB^‚BBBBBK\H][[ BBBBBY[][[ -^[\VWK[[ۙ]WKO[YK -N‚BBBBB[[[ۙ]WHHS‚BBBBBKH^[\H[[H^Y\H\XXKBBBBB\J^Y\WK[YK^[\VWKO[[ O[YJN‚BBBBBKYܜ[X\[XY[H \[XY \‚BBBBBK\]^]ZX[H܈XK\\H\\BBBBBK]Y][܈] - -KBBBBBZY -\[X -] O[YH JBBBBBB^‚BBBBBB\^Y\WK\X\H^\X\^[\VWKO[[  LKJN‚BBBBB_BBBBBBY[BBBBBB^‚BBBBBB\^Y\WK\X\H ‚BBBBB_BBBBBBK\H܈] BBBBBY[]\X\ -^[\VWK^Y\WK\X\ -N‚BBBB_BBBBBBBBB_BBBBY[HY -^Y\WK]^\ -QSՑUTQSՑQӊH \[X ^[\VWJBBBB^‚BBBB\^Y\WK\X\H - -^Y\WK]^\ QSՑUT -H^\X\]\X\J^[\VWKO[[ ^Y\WK\X\ JN‚BBBBY[]\X\ -^[\VWK^Y\WK\X\ -N‚BBB_BBB_BBBY[HY -XYVWHOH JBBB^‚BBBZY - - -][Y[[J^[\VWKSWPH^[\VWKO[[]K[[X][ۖSWPKO [JH [YH^[\VWKO[[YJHY^[\VWKO[[X][BBBB^‚BBBB\XYVWHH ‚BBBBY^][^HH[YH -ؘ[ۙY˙[YWYY‚BBB_BBB_BBBY[HY -XYVWHOH BBB^‚BBBY۝[Y[VWV̗KY[VWVK  XYHHJN‚BB_BBBZY -^[\VWHOHS -BBB^‚BBB\^Y\؝\J‚BB_BBBZY -XYVWHOH BBB^‚BBB\^Y\ܙXYJ‚BB_BB_BBZY -^Y\؝\H ^Y\؝\HOH^Y\ܙXYH ^][^H [YH^][^JBB^‚BBY^]H N‚B_BB]\]J  -N‚BZY -]^\ QT\\WٛYOH LJH ܘ]\ - L LJHYYH]\\HY[H[XܙY[H\[HXZ[Y[H[[ۈ[HYLHB^‚BBY\\HH Nˆ\\WٛYH ‚B_B_BKۙ\]H[XܙY[Z[[ - -N‚\[W]\X -N‚\ܙY[]\ HSԑQSSP‚\]\ -Y\\JNŸBY^Y[YJ[ -^Y\[YۙYX] [\T]Y[YJBˆ[Nˆ\[][H ˆ\[YHH Nˆ\[]HX]ˆ][H -]H][] -\[]ˆ][][ -]HH][][ -\[]ˆ][[H -N‚\T]HH ˆ\T]H LN‚YX]HYX[Y\Bˆ]\ˆB ܔ]ۊ K[Y[][[^ ZH -\H\HۛH ZH]HHX] YX[Y\N‚[Xܙ]\H] OY\]NˆVQTUTH] O]\ˆ]\Xݙ\\H] O]\Xݙ\\ˆYHH] O\YNˆӕSQTH] OܙY]ˆXYX\HH] O\[\ˆYVQTUTOH -BˆVQTUTH Y][BYӕSQTOH -BˆӕSQTH N Y][BYYHOH -BˆYHH  Y][B[Y\^Y\H] O[YN‚Y\T]Y[YHOH H ]KOYBˆY[\] -^Y\ ^[ي -^Y\H - -NˆY[Yܚ\[J -JBˆ[\[Z[YYܚ\]HWNˆB\[][H]KO][ˆ\[YHH]KOYNˆY]KOYOH H ۉX H܈ XX\HYH\H]Y[YHHY]\Hˆ܊HH H] OX^^Y\JBˆ^Y\WK]\H]KO]\WNˆ^Y\WKܙY]H]KOܙY]WNˆ^Y\WKܙHH]KOܙ\WNˆ^Y\WK\X\H]KO\X\WNˆ^Y\WKX\H]KOX\WNˆ^Y\WK]ۚX[H]KO]ۚX[WNˆ^Y\WK]ۛ\H]KO]ۛ\WNˆJ^Y\WK[YK]KO[YVWKPVӐSQWSNˆBܙY]H]KOܙY]ˆBY^XXW\ -]]Y[[X\[Y[\[] -B -Nˆ ܙ\]^XXW\ - JN Y\X]\H\I[XܙY[[\ܘ\H][ۂB]HH N‚ ^]H[[^\[][Y -\[][H] O[[][ -Bˆ\[][H] O[[][LNˆBHH] O][ܙ\ -\[][ˆ] O[XHKO[XˆY -]KO[X\[XJHHHY\[X -]KO[X\[X ] -N Q\[X܊HH HPVVQTJBˆYKO\[XWJBˆJ\[XWKKO\[XWJNˆB[Bˆ\[XWVHH ˆBBY -\T]Y[YHOH H ]KOYOH H\T]Y[YHOH [X^Y\^Y\S \T]Y[YJJH Y]HY\ ۉ[X^Y\ˆ[J\[][] O[[][BˆY[ۘ[YVJH [X[ˆˆ \[YHH N ڝ[\ [\ \\HۉYY\]] [\[ZH\Hو] ܊HH H] O[[][JBˆY] O][ܙ\WK[H X\ -] O][ܙ\WK[K[ۘ[YJHOH -Bˆ\[][HNˆXZˆB Y][ܙ\X]VWKOۙ^OLJH -\[YN [Y[Y\[H] Y[\H]\Hو[X\]HYH\]HY\YKB[ۘ[YVHH X\\HۉX\BBHH] O][ܙ\ -\[][ˆVQTRSֈHKOܙNˆVQTPVֈHKOܙWNˆRQHKOܙ̗N‚YKO\HOHWTWUSJBˆ^\[JKO[[[YJNˆB[HYKO\HOHWTWSPԑQSBˆY[\] -]KO[X\[X ^[ي]KO[X\[X -JN TU\[X] O[XH ˆ܊HH H] OX^^Y\JH \]\[XˆYKO\[XWJBˆ\[XWVHH ˆBB܊HH H] OX^^Y\JBˆ^Y\WHH -^Y\WK]\ -NˆBY[X^Y\^Y\KO[[[YK\T]Y[YJHOH -BˆXZˆBB[HYKO\HOHWTWTSP -Bˆ] O[XHKO[Xˆ܊HH HPVVQTJBˆYKO\[XWJBˆJ\[XWKKO\[XWJNˆB[Bˆ\[XWVHH ˆBB]W\[X -]KO[X\[X \[X -N UHSB[X^Y\^Y\S \T]Y[YJN K\[XH^Y\B[HY\^[][ -KO[[[YJJBˆ[[]\ޙ\H ˆ܊HH HPVVQTJBˆY -^Y\WK]\H -H -[]\ޙ\ˆB[]\ޙ\H -[]\ޙ\HPVVQTH H ‚ Y -^Y\K]\H  ^Y\WK]\H  ^Y\̗K]\H  ^Y\K]\H -H -BY[]\ޙ\BˆY -\] O[ݙ\ JXZ[Y[WٛYɌJH -Bˆ[Y[ݙ\ -NˆBY\] Oو JXZ[Y[WٛYɍ -JBˆ[[YJ JNˆB܊HH H] OX^^Y\JBˆ^Y\WK\^YYH ˆ^Y\WKX\H ˆBBXZˆBYKOۙ^OH JBˆY -\] O\]JH\]J\[YJNˆ܊HH H] OX^^Y\JBˆ^Y\WK]ۚX[H ˆ^Y\WK]ۛ\H ˆB -\[YNˆ]KOYHH\[YNˆB\[][ -ˆHH] O][ܙ\ -\[][ˆ]KO][H\[][ˆ ̌ LL ۙ^H [[YBY -H H JKOۙ^OH Bˆ\[][H] O[[][ˆBY\T]JBˆ[[YN ]ZX^]]]][܈ܚ\Y[YHXˆBK[BY\[][H] O[[][Bˆ ʂܘ]\ - KL -H\]][ YH[Y\[H[YH\[\YYܙH][] ][]]X]X[H\\HH\[[YHܙ\]ۛHY\H[[˂]\][XZ[Z[H[Y\\]Y[X ]]\^H^Y\[[ܙX\HH[Y\\]Y[[][HB\[\[H[YHۘH[Y[H[[\XHX[H[Y\H[  -ˆ۝\ -H]KO[Y\\]Y -ˆ\[][H ˆ\[YHH Nˆ]KO][H\[][ˆ]KOYHH\[YNˆ]Q[YQ[J -NˆY[٘Y[] -BˆYW] -  -NˆBY\] OيBˆ[[YJ JNˆBBB[[YN X\ؘ[ܚ\\X[\[ۘ[YVHH ˆ[W]\X -NŸB[Y[WYX[J -Bˆ[]Z]H ˆ[[X܈H ˆ[X^\^HH Nˆ[Kˆ ٛ]Y\H ˆ[\ \K\\ˆ]Y]]Y]HZ[Y]ˆ]Y] [HHSSWSN‚\HY[[\˚\ Nˆ\HH[^J  -H H ˆ\HY[[\˚\ - Nˆ\H H - -۝ZY - -H - JH - ˆܙY[]\HSԑQSӑUSQWQSNˆ]^\H ‚Y[YQ[J -N‚[J\]Z] -BˆYYX[Y\ JBˆY[]^J  L [YH[HJNˆH -[X܈ H -[X܈OHYX[Y\JH X^\^H -X^\^Nˆ܊H HHHX^\^H - HYX[Y\JBˆYX^\^JBˆ ܘ]\ - L L JHYY[][ۈX]\HH]B ][]H]H[H][˝[H[[]H] [HYYYH]\Y \[[H[[\[][ۋ[H[] H[YH\\\YH[][]ˆY۝\H][]WKY\]JBˆY[]^J -[X܈OHJK \ȋ][]WK[YJJNˆB[BˆY][]WKY\]H JBˆY[]^J -[X܈OHJK \ H[\[YH ZH[Y\[ȊK][]WK[YJK][]WKY\]JNˆB[BˆY[]^J -[X܈OHJK \ H[\[YH[ȊK][]WK[YJJNˆBBB[BˆXZˆBBY[]^J -[X܈OHJK  XȊJN‚ ]Hܛ\YYX[Y\X^\^JBˆ]\WY؛ -\ \K\\  ܗ؛X ]Y] -N ]\]\WY[J\ \K\ - \K Kܗ]KS -Nˆ]\WY[J\ \K\ \H -\  Kܗ]KS -Nˆ]\WY[J\ - \K\ - \H -\  Kܗ]KS -Nˆ]\WY[J\ \H -\ \ - \H -\  Kܗ]KS -Nˆ]\WY؛ -\ - K\H -[X܈ - -\ H H YX[Y\   ܗ]KS -N Y\BB\]J  -N‚YYX[Y\OH JH  []ۛHۙH][]]Y]YX[KˆY[X܈OHYX[Y\Bˆ]Z]H NˆB[HY۝\H][][XܗKY\]JBˆ]\H[X܎ˆJ][][]\K[YK][]]\K[YKPVӐSQWS H JNˆܙY[]\ HSԑQSӑUSQWQSNˆ]\]\ˆBBY]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY[X܈ -Bˆ[X܈HYX[Y\ˆBY[X܈YX[Y\Bˆ[X܈H ˆB Y[X܏YX[Y\HY\H[X܈ - N‚Y]^\ QSPUӊB‚Yؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆBY[X܈OHYX[Y\Bˆ]Z]H NˆB[HY۝\H][][XܗKY\]JBˆ]\H[X܎ˆJ][][]\K[YK][]]\K[YKPVӐSQWS H JNˆܙY[]\ HSԑQSӑUSQWQSNˆ]\]\ˆBBB]^\H ˆܙY[]\ HSԑQSӑUSQWQSNˆ]\ LNŸB[Y]Y[YJ -Bˆ[]Z]H ˆ[[X܈H ˆ[]Y]\H ˆ\VPVЕQTSHHȈNˆ[ HH N  H ‚ܙY[]\HSԑQSQSQWQSNˆ]^\H ‚Y -]Y]\HY[YQ[J -JJBˆ]ZӘ[YJK -NˆB܊]\H ]\YX[Y\]\ -HY][][]\KY ][][]\K][ -BˆXZˆB[J\]Z] -BˆY]\HYX[Y\H [ˆY[]^J  M  Y[YHJNˆY[]^ -  K L]Y[NJNˆY[]^ -   L[HJNˆY[]^J K  XȊJN‚ ʂܘ]\ - KL -HZ[܈^[H[X܈\Y]H\[ \I[X܈[\Y[KۛH  -Y -H܈ H -XK -ˆ[X܈H NˆB[BˆY[]^J  M  Y[YHJNˆY[]^ -  K L]Y[NJNˆY]Y]\BˆY[]^ -   L\ȋJNˆB[BˆY[]^ -   L[HJNˆBY]Y]\BˆY[]^ - -[X܈OH -K K LK[NJNˆY[]^ - -[X܈OH -K  LK\ȋ][][]\K[YJNˆY[]^ -  K YNJNˆY[]^ -   Y][][]\KYJNˆY[]^ -  K K][JNˆY[]^ -   KY][][]\K][ -NˆY[]^ -  K ܙY]ΈJN‚Y\J^ˆY[]^ -   Y Y Y Y][][]\KܙY]K][][]\KܙY]WK][][]\KܙY]̗K][][]\KܙY]JNˆH[HˆY[]^ -   Y][][]\KܙY]NˆBY[]^ -  K ^Y\]\ΈJNˆY[]^ -   Y Y Y Y][][]\K]\K][][]\K]\WK][][]\K]\̗K][][]\K]\JNˆBY[]^J -[X܈OH JK  XȊJNˆB\]J  -N‚Y]^\ QTBˆ]Z]H NˆBY[X܈OH  -]^\ QSՑSQ -JBˆ[J JBˆ K\]\ˆY]\ -Bˆ]\HYX[Y\ H NˆBY][][]\KY ][][]\K][ -BˆXZˆBB[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY[X܈OH  -]^\ QSՑTQ -JBˆ[J JBˆ -]\ˆY]\YX[Y\ H JBˆ]\H ˆBY][][]\KY ][][]\K][ -BˆXZˆBB[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY]^\ QSՑUT -Bˆ K\[X܎ˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY]^\ QSՑQӊBˆ -[X܎ˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY]Y]\BˆY[X܈ -Bˆ[X܈H NˆBY[X܈ JBˆ[X܈H ˆBB[Bˆ[X܈H NˆBY -]^\ QSPUӊJBˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -Nˆ] -[X܊Bˆ\H ]\]\ˆXZˆ\H N]Z]H NˆXZˆBBB]^\H ˆܙY[]\ HSԑQSQSQWQSNˆ]\ LNŸB[W[J[ -^Y\Bˆ[]Z]H ˆ[[XH ˆ[[X܈H ˆ[]\H ‚ܙY[]\HSԑQSSQWTQSNˆ]^\H ‚[J\]Z] -BˆY[]^J  K H[HJNˆY[]^J -[X܈OH -K  ][YHJNˆY[]^J -[X܈OH JK  Y[YHJNˆY[]^J -[X܈OH K  XȊJN‚\]J  -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY[X܈ -Bˆ[X܈H ˆBY[X܈ Bˆ[X܈H ˆBY]^\ QSPUӊBˆYؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB] -[X܊Bˆ\H ]\HY[WYX[J -NˆY]\OH LJBˆ^Y[YJ^Y\]\ -Nˆ[XH Nˆ]Z]H NˆBXZˆ\H N]\HY]Y[YJ -NˆY]\OH LJBˆ^Y[YJ^Y\]\ JNˆ[XH Nˆ]Z]H NˆBXZˆY][]Z]H NˆXZˆBBB]^\H ˆܙY[]\ HSԑQSSQWTQSNˆ]\[XŸBY\WݚY[[\ -BˆY[[\˚\H ˆY[[\˝\H ˆY[][JY[[\NˆY\[\OHS -BˆYJ\[\NˆB\[\HSˆY\ܙOHS -BˆYJ\ܙNˆB\ܙHSˆY\][OHS -BˆYJ\][NˆB\][HSˆY\[[OHS -BˆYJ\[[NˆB\[[HSŸBYY[[HH[BY[]ݚY[[\[Bˆ\ -[[[YHH]KݚY[˝ˆ[\ˆY[ˆ^W^Nˆ\ -YHSˆ\ -[X[HSˆ\ -[YHHS  -[YLˆ\\\\ˆ\\؝YPVTS - WHH‚ ‚YBˆ[[]X[^[Y[ˋNˆB \H[[\]]HY[˝Y\H\ۙKYHو\H\Hۙ[[[Y\ܙX]H[\R]ܜZ[[IH[KY[HY[J -HY -\[[Xٚ[J Xٚ[JJHOKLJH\Xٚ[J\ -N[[[YOVXY[NBYSSVY[J]KݚY[˝Nˆ[Y[YY[BXY[N XY[BYY\Zٚ[J[[[YK Y ^JHOH JBˆY[[HH ˆ[\[ [[[YJNˆQSSTˆB[XY[Y[][H \˗[[[YJN‚ [\]H۝[وY[HH[BH ˆ[J^JBˆ\P\ \\ Y -\؝YNˆ[X[HUT -N‚Y[X[ [X[JBˆYX\ -[X[ Y[ȊHOH -Bˆ[YHHUT JNˆY -[YLH[YK JJBˆY[[\˚\H]J[YJNˆY[[\˝\H]J[YL - JNˆY[[HH MNˆB[BˆY[[HHUST JNˆBB[HYX\ -[X[ [\ȊHOH -Bˆ[H[UT JJNˆ\[\HX[[ - JNˆJ\[\UT JJNˆ\[\[HH ˆB[HYX\ -[X[ Xܛ[ȊHOH -Bˆ[H[UT JJNˆ\ܙHX[[ - JNˆJ\ܙUT JJNˆ\ܙ[HH ˆB[HYX\ -[X[ ][ȊHOH -Bˆ[H[UT JJNˆ\][HX[[ - JNˆJ\][UT JJNˆ\][[HH ˆB[HYX\ -[X[ [[ȊHOH -Bˆ[H[UT JJNˆ\[[HX[[ - JNˆJ\[[UT JJNˆ\[[[HH ˆB[HYX\ -[X[ \\HOH -Bˆ[ܙ\\\ܝY[[[ܙK[[[\\H\^YY]H ̘]܈ܙY[NˆB[HYX\ -[X[ ܘ[[HHOH -HB[HY[X[ [X[JBˆ[[X[ \[\[[H \W[X[ [[[YJNˆBB ^[B -H]][T\ -Y -NˆBYYOHS -BˆYJYNˆYHSˆBQSST΂Y[[\˛[HHY[[NˆY[[\˙[\H]Y]Kٚ[\ˆ] -Y[[JBˆ ̌  HUB\H Y[[\˚\H ̌ˆY[[\˝\H ˆY[[\˚[HH NˆY[[\˝[HH NˆY[[\˚YH ˆY[[\˝YH ˆY[[\˙ٙ]H NˆVQTRSֈH MˆVQTPVֈH ̎ˆRQH MˆXZ‚   ̈ HUB\H NY[[\˚\H  ˆY[[\˝\H ̎ˆY[[\˚[HH -] -LKNˆY[[\˝[HH -] -LKLˆY[[\˚YH ˆY[[\˝YH ˆY[[\˙ٙ]H ˆVQTRSֈH N ˆVQTPVֈH ˆRQH N ˆXZ‚    HB\H Y[[\˚\H ˆY[[\˝\H  ˆY[[\˚[HH ˆY[[\˝[HH ˆY[[\˚YH MˆY[[\˝YH NˆY[[\˙ٙ]H ˆVQTRSֈH ̌NˆVQTPVֈH NˆRQH ̌NˆXZ‚ ̌   H\H ΂Y[[\˚\H ̌ˆY[[\˝\H  ˆY[[\˚[HH NˆY[[\˝[HH ˆY[[\˚YH ˆY[[\˝YH NˆY[[\˙ٙ]H ˆVQTRSֈH ̌NˆVQTPVֈH NˆRQH ̌NˆXZ‚     HՑB\H Y[[\˚\H ˆY[[\˝\H  ˆY[[\˚[HH NˆY[[\˝[HH ˆY[[\˚YH ˆY[[\˝YH NˆY[[\˙ٙ]H ˆVQTRSֈH ̌NˆVQTPVֈH NˆRQH ̌NˆXZ‚    HՑB\H NY[[\˚\H ˆY[[\˝\H ˆY[[\˚[HH NˆY[[\˝[HH NˆY[[\˚YH ˆY[[\˝YH ˆY[[\˙ٙ]H N ˆVQTRSֈH NˆVQTPVֈH N ˆRQH NˆXZ‚ M M  HR\H Y[[\˚\HMˆY[[\˝\H M ˆY[[\˚[HH ˆY[[\˝[HH NˆY[[\˚YH ̌ˆY[[\˝YH ˆY[[\˙ٙ]H LˆVQTRSֈH ͌ˆVQTPVֈH LˆRQH ͌ˆXZ‚ \HY[[B\H MNY[[\˙ٙ]HY[[\˝\ - MNˆ[\[XYY[[N Y YY[[\˚\Y[[\˝\NˆXZˆY][ܔ]ۊ K[[YY[[N Y[ ]KݚY[˝ \ܝY[\Η H ̌ H H   ̗ H    H ̌   H   H H   HM M Y[[JNˆXZˆBY[] -]Y]K] -N‚Y -ܙY[H[ܙY[Y[[\˚\Y[[\˝\VS̊JHOHS -Bˆܔ]ۊ K[YY[[ܞHWNˆBY[[\˜^[H^[]\[ -]ܙY[O^[ܛX]Nˆ ݚY[][JY[[\NˆX\ܙY[ܙY[N‚YBˆ[[]X[^YY[ˋ Y Y -[N Y -WY[[\˚\Y[[\˝\Y[[JNˆBB KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKB]^H܈]ۈY[H -]][BYYW] -[ -\[[^ []^K[^JBˆ[Nˆ܊HH H LJBˆY\WHOH]^JBˆ\WHH^NˆBB\[^HH]^NŸBY^X\]\ -[^Y\Bˆ[]Z]H [YH ˆ[[X܈H ˆ[][H LNˆ[HH ˆ[H ˆ[H ˆ[\XY^VPVЕӕSWHH             HNˆ[ HH Nˆ[ H ‚Yٙ]Y‚\Yˆ\[X[ˆ\[[[YHH[][ۋY[Kˆ\]ۛ[Y\PVЕӕSWV̗Nˆ^W^Nˆ\\\\ˆ\\؝YPVTS - WHHˆ[SӔӕSHHPVЕӕSH - ‚ܙY[]\HSԑQSЕUӗӑQQSN‚[Y[۝][ˋN‚J]ۛ[Y\QSՑUTK[ݙH\NˆJ]ۛ[Y\QSՑQӗK[ݙHۈNˆJ]ۛ[Y\QSՑSQK[ݙHYNˆJ]ۛ[Y\QSՑTQK[ݙHYNˆJ]ۛ[Y\QUPK]X HNˆJ]ۛ[Y\QUP̗K]X NˆJ]ۛ[Y\QUPK]X ȊNˆJ]ۛ[Y\QUPK]X NˆJ]ۛ[Y\QҕSTK[\NˆJ]ۛ[Y\QPPSKXX[NˆJ]ۛ[Y\QTK\NˆJ]ۛ[Y\QԑQSKܙY[NˆJ]ۛ[Y\QTK^]N‚]\][ -Nˆ]^\H ‚ ʂܘ]\ - L L JHYY[[\]]H][ۈ܈H[][ۈ[K] XH\H[[^\[\H[\[Y^ܝY[][ۈ[\H\[[\X[Hܚ\[[ۜˆ\Y[܈ܙX][\H[][ۜ]][XH[YBHY][[[H[][ۈ][ۈ[HXZ[Z[Y܈X\\]X[]Bܘ]\ - LKL JH[\YH][ܚ]KH^\[[H[ݙ\YHH[\[[B\Y[XZ[Z[H[\[][ۈ[X[YHHZ[HY\[XYH[H\[[H^\[]\\H[H[YYXH[\[H]\H[YH[\[XYH\\Y[[[[ݙY\\][ۈ\YYYۛHYH[\[][ۈ[H\\YH\HY[H^܈[\[XYHˆ -ˆYY\Zٚ[J[[[YK Y ^JHOH JBˆY][ٚ[NˆB[BˆYYˆBY][ٚ[NYY\Zٚ[J]KY[K Y ^JHOH JBˆ[\ˆB[BˆYYˆBYY XY[B [\]H۝[وY[HH[BH ˆ[J^JBˆ\P\ \\ Y -\؝YNˆ[X[HUT -NˆY[X[JBˆYX\ -[X[ \XZ^HHOH -BˆYH[]WQ -UT JJNˆYYH -Bˆ\XY^VYHH NˆBB[HYX\ -[X[ [[YZ^HHOH -BˆYH[]WQ -UT JJNˆYYH -BˆJ]ۛ[Y\YKUT JNˆBBB ^[B -H]][T\ -Y -NˆBYYOHS -BˆYJYNˆYHSˆB[\[J\XY^V[XܗJHY -[X܈PVЕӕSH H JHXZ‚[J\]Z] -Bˆٙ]H MˆY[]^J  N  ^Y\ ZHK^Y\ - JNˆ܊HH HPVЕӕSNJBˆYY\XY^VWJBˆY[]^ - -[X܈OHJK Kٙ] \ȋ]ۛ[Y\WJNˆY[]^ - -[X܈OHJK ٙ] \ȋ۝]^[[YJ]Y]K^\^Y\VWJJNˆٙ] -ˆBB -ݛٙ]ˆY]Y]K\[XV^Y\JBˆY[]^ - -[X܈OHSӔӕSH H K Kٙ] -[XH[XYJNˆB[BˆY[]^ - -[X܈OHSӔӕSH H K Kٙ] -[XH\XYJNˆBY[]^J -[X܈OHSӔӕSH H K -ݛٙ]  ȊJNˆY[]^J -[X܈OHSӔӕSH H JK -ݛٙ]  [[JNˆY[]^J -[X܈OHSӔӕSJK -ݛٙ]  Y][JNˆ\]J -][OHS -K -N‚Y][ LJBˆY]^\ QTBˆ]Y]K^\^Y\V][HHˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -Nˆ][H LNˆBY][ LJBˆH۝[^J -NˆYBˆYW] -]Y]K^\^Y\K][Nˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -Nˆ][H LNˆ ][XY[[ܙY[]^\H ˆBBB[BˆY]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -BˆˆˆY K\[X܈ -BˆXZˆBB[J[X܈PVЕӕSH \XY^V[XܗJNˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY]^\ QSՑQӊBˆˆˆY -[X܈PVЕӕSH H JHXZˆB[J\XY^V[XܗJNˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY[X܈ -Bˆ[X܈HSӔӕSNˆBY[X܈SӔӕSJBˆ[X܈H ˆ[J\XY^V[XܗJHY -[X܈PVЕӕSH H JHXZˆBY]^\ -QSՑSQQSՑTQQSPUӊJBˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -N‚Y -[X܈OHSӔӕSH H ]^\ -QSՑSQQSՑTQ -JH۝[YN‚Y[X܈OHSӔӕSH H Bˆ]Y]K\[XV^Y\HH NˆB[HY[X܈OHSӔӕSH H H ˆˆ]Z]H ˆB[HY[X܈OHSӔӕSH H JH [[ˆ]Z]H NˆB[HY[X܈OHSӔӕSJH Y][ˆX\]ۜ^Y\NˆB[Bˆ][H[X܎ˆH]Y]K^\^Y\V][Nˆ]Y]K^\^Y\V][HH ˆ^X\]\^J -NˆBBBBY]Z]OH Bˆ\W۝ -Nˆ]\][ -NˆB[BˆY][ -NˆBܙY[]\ HSԑQSЕUӗӑQQSN‚\]J  -Nˆ]^\H ˆ[ۙHWNŸBYY[W[ۜ[] - -Bˆ[]Z]H ˆ[[X܈H N [H MˆYSQ[SӔӕSHH ˆ[B[SӔӕSHH Nˆ[YܙY[]\HSԑQSӕSӔQSNˆ]^\H ‚ ܘ]\ - L L JHYYHXۙ[[HوH۝[][[ۈ[H[H۝[ۜˆ \Y[Y\YH^[][ۈYH[XYH\[Yۋ]KYH[KY]X[X]H۝ˆ۝[] -]Y]K\ZJN‚[J\]Z] -BˆY[]^J LK ۝[ۜȊJNˆY]Y]K\ZJBˆY[]^ - -[X܈OH -K L[YTY[XYJNˆYX۝]Y[XY - -JBˆY[]^ - -[X܈OH -KLK L H]XHXYHJNˆBB[BˆY[]^ - -[X܈OH -K L[YTY\XYJNˆBY[]^ - -[X܈OH JK LK]\^Y\ KJNˆY[]^ - -[X܈OH K ]\^Y\ JNˆY[]^ - -[X܈OH K K]\^Y\ ˋJNˆY[]^ - -[X܈OH -K ]\^Y\ JNˆYSQY]Y]K\XYݚX][ۗ[XY -BˆY[]^J -[X܈OH JK  XYX][ۈ[XYJNˆB[BˆY[]^J -[X܈OH JK  XYX][ۈ\XYJNˆBY[]^J -[X܈OH K  XȊJNˆ[BY[]^J -[X܈OH JK K XȊJNˆ[Y\]J -][OHS -K -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY[X܈ -Bˆ[X܈HSӔӕSNˆBY[X܈SӔӕSJBˆ[X܈H ˆBY]^\ -QSՑSQQSՑTQQSPUӊJB‚Yؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB] -[X܊Bˆ\H ۝\ZJ -]Y]K\ZHH JJNˆXZˆ\H N^X\]\ - -NˆXZˆ\H ^X\]\ - JNˆXZˆ\H ΂^X\]\ - NˆXZˆ\H ^X\]\ - NˆXZˆYSQ\H N]Y]K\XYݚX][ۗ[XYH NˆXZˆ[YY][]Z]H -]^\ QSPUӊNˆBBB]\][ -Nˆ]^\H ˆܙY[]\ HSԑQSӕSӔQSNŸBʂܘ]\ - L HXY\YHX\\ YX ]\Xݛ[H[[ܙ[Y[[[Y\ZH L HY][XZH[ܙH[H[YHZH LH[ٙ\YH\Y[YHY\Y[H[Z^H[XYو[[HY][[Y\ˆX\\\H  L [Y][ L YX -[\\H\H  L [Y][ L ]\X\H  [Y][ L YY[W[ۜ[ - -Bˆ[]Z]H ˆ[[X܈H ˆ[\ˆ[ HH Nˆ[ H ‚ܙY[]\HSԑQSSSӔQSNˆ]^\H ‚[J\]Z] -BˆY[]^J  MK [[ۜȊJNˆY[]^ - -[X܈OH -K K LX\\[YNJN ܘ]\ - L H[[YYH[X\\[YBY[]^ - -[X܈OH -K  LZH]Y]K[ -NˆY[]^ - -[X܈OH JK K LKYX[YNJN ܘ]\ - L H[[YYHіYX[YBY[]^ - -[X܈OH JK  LKZH]Y]KYX -NˆY[]^ - -[X܈OH K K ]\X[YNJNˆY[]^ - -[X܈OH K  ZH]Y]K]\Xݛ -NˆY[]^ - -[X܈OH K K KNJNˆY[]^ - -[X܈OH K  K -]Y]K\[]\X[XYH\XYJJNˆY[]^ - -[X܈OH -K K ]\ΈJNˆY[]^ - -[X܈OH -K   -]Y]K]\Y\ȊHȊJJNˆY[]^J -[X܈OH JK K XȊJN‚\]J -][OHS -K -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎‚Yؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎‚Yؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY[X܈ -Bˆ[X܈H NˆBY[X܈ JBˆ[X܈H ˆBY]^\ -QSՑSQQSՑTQQSPUӊJBˆ\H ‚Y]^\ QSՑSQ -Bˆ\H LNˆB[HY]^\ QSՑTQ -Bˆ\H NˆBYؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB ܘ]\ - L H]ܚYH[[\Y[[X\HX\\[YH܈[ ]\Xˆ] -[X܊Bˆ\H ]Y]K[ -H H -\ˆY]Y]K[ -Bˆ]Y]K[H ˆBY]Y]K[ L -Bˆ]Y]K[H L ˆBЗ][YJЗՓPU ]Y]K[ -N‚ ܘ]\ - L H[ۚ^H[ ]\X[Y\X\\]Y]KYXH]Y]K[ˆ]Y]K]\XݛH]Y]K[ˆXZˆ\H N]Y]KYX -H H -\ˆY]Y]KYX -Bˆ]Y]KYXH ˆBY]Y]KYX L -Bˆ]Y]KYXH L ˆBXZˆ\H ΂YY\BˆXZˆBY\]Y]K\[]\XBˆ]Y]K\[]\XH Nˆ]\X]K]\Xܙ[Z^ K -NˆB[Bˆ]Y]K\[]\XH ˆ[W]\X -NˆBXZˆ\H ]Y]K]\Xݛ -H H -\ˆY]Y]K]\Xݛ -Bˆ]Y]K]\XݛH ˆBY]Y]K]\Xݛ -Bˆ]Y]K]\XݛH ˆB[ݛ[YW]\X]Y]K]\Xݛ ]Y]K]\Xݛ -NˆXZˆ\H ]Y]K]\H\]Y]K]\ˆXZˆY][]Z]H NˆBBB]\][ -Nˆ]^\H ˆܙY[]\ HSԑQSSSӔQSNŸBYY[W[ۜۙY -H  YH ]HY][ ٙˈ\ܙH[ԈXܞH][˂ˆ[]Z]H ˆ[[X܈H ˆ[]YH ˆ[YYH ˆ[\ܙYH ‚]^\H ‚ ܘ]\ - LKL JH[[ݙYX\ۈHۙHH^^[][ۂ[J\]Z] -BˆY[]^J  MK ۙY\][ۈ][ȊJN‚Y]YOH JBˆY[]^J -[X܈OH -K L ]H][Y][ ٙ\ȊKۙHHJNˆB[BˆY[]^J -[X܈OH -K L ]H][Y][ ٙ\ȊKNˆBYYYOH JBˆY[]^J -[X܈OH JK L Y][HY][ ٙ\ȊKۙHHJNˆB[BˆY[]^J -[X܈OH JK L Y][HY][ ٙ\ȊKNˆBY\ܙYOH JBˆY[]^J -[X܈OH K LK \ܙH[ԈY][\ȊKۙHHJNˆB[BˆY[]^J -[X܈OH K LK \ܙH[ԈY][\ȊKNˆBY[]^J -[X܈OH K  XȊJN‚\]J -][OHS -K -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎‚Yؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎‚Yؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY[X܈ -Bˆ[X܈H ˆBY[X܈ Bˆ[X܈H ˆBY]^\ -QSՑSQQSՑTQQSPUӊJB‚Yؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB] -[X܊Bˆ\H ]X\Y][ - -Nˆ]YH NˆXZ‚\H NYYY][ - -Nˆ ؛ܔ]ۊ ][YYHY][ ٙˈ\\\]Z\Y Nˆ[]ݚY[[\ -NˆY]Y[][JY[[\JBˆܔ]ۊ K[XH]Y[[N Y YWY[[\˚\Y[[\˝\NˆBЗ][YJЗՓPU ]Y]K[ -Nˆ[ݛ[YW]\X]Y]K]\Xݛ ]Y]K]\Xݛ -NˆYYH NˆXZˆ\H X\][ -Nˆ ؛ܔ]ۊ ][YYHY][ ٙˈ\\\]Z\Y Nˆ[]ݚY[[\ -NˆY]Y[][JY[[\JBˆܔ]ۊ K[XH]Y[[N Y YWY[[\˚\Y[[\˝\NˆBЗ][YJЗՓPU ]Y]K[ -Nˆ[ݛ[YW]\X]Y]K]\Xݛ ]Y]K]\Xݛ -Nˆ\ܙYH NˆXZˆY][]Z]H NˆBBB]\][ -Nˆ]^\H ŸBʂ\^K[[ۈ L L ]\Y[H\^H^܈H\[ۈXYŠ\^HZ\œ]X\\[ۗXY\W[WXY\^HXYٚY[ WXY\^H]ؚ] WXY\^HڙXYؚ] -H‚Y - -XYٚY[ ]ؚ] -H -XYٚY[ ڙXYؚ] -JHˆ]\] -ڙXYNˆH[HY -XYٚY[ ]ؚ] -Hˆ]\]NˆH[HY -XYٚY[ ڙXYؚ] -Hˆ]\ڙXYNˆH[Hˆ]\\XYNˆBBʂ\^K[[ۈ L L XH\[ۈXY\^H[H܈ۙH\[ۈ\KXX\[ۈ\H\\XY]΂]ؚ]H]HܛX[ X[Hݙ\^KڙXYؚ]H]HڙXY XHݙ\^KH]X[H[\XH]\΂ HۙB HH] HڙXY H] -ڙXY\X[ۈ۝XHܙ\WTPSӗАPTHXHX\ WTPSӗѓԕTHXHܝ\ ]\[YH\H\]YXY]Y[ œ]XWXY\^H\[ۗXY\WXJۜWXY\^HXYٚY[ ۜWXY\^H]ؚ] ۜWXY\^HڙXYؚ] ۜWY[WW\X[ۈW\X[ۊH‚ ʂ -[ۛKXX[]H\۝YB -H]Y]KXY[]Y[ \\ -]\\H[\H[X\[YHܚ] -܈X[HYYHX\]HY[B -Z[ -ˆY[HTSӗPQTVWӓӑH Y[HTSӗPQTVWѓU BY[HTSӗPQTVWґPQ Y[HTSӗPQTVWГ  ʂ -[ܘ]Yˈ\H\H[[H[Y\]\[\ -[H]YHH\H[H[\][ۜˆ -]]\H[\X][Y\[[ۋ -ˆ[]Nˆ[XYٛY‚ ʂ -ܚ[[[ܘ][YHX]\H[[H[Y\\B -[]Y[[]\H\]ܜ[H[B -[[]^K -ˆXYٛYHXYٚY[‚ ʂ -۝\\[]Y[]H[H\X -\^H[H[YK - -] H]\^H[XY  -] HHڙXY\^H[XY  -ˆ]HHTSӗPQTVWӓӑN‚Y -XYٛY ]ؚ] -Hˆ]HHTSӗPQTVWѓUˆBY -XYٛY ڙXYؚ] -Hˆ]HHTSӗPQTVWґPQˆB ʂ -\YH\\^H[\˂ - -X\ -ۙH H] HڙXY H HۙB - -ܝ\ -ۙH O] OڙXY O OۙB -ˆ] -W\X[ۊHˆ\HWTPSӗАPT]KKN‚Y -]HTSӗPQTVWӓӑJHˆ]HHTSӗPQTVWГˆBXZ‚\HWTPSӗѓԕTY][]J‚Y -]HTSӗPQTVWГ -Hˆ]HHTSӗPQTVWӓӑNˆBXZˆB ʂ -X\ۛHH]X[YYH\\[ۂ -XY[ۋX]H[\XYY[XY  -ˆXYٛY H]ؚ]ڙXYؚ] -N‚ ʂ -^[\X]HX[HXY]Y[  -ˆY -]H TSӗPQTVWѓU -HˆXYٛYH]ؚ]ˆBY -]H TSӗPQTVWґPQ -HˆXYٛYHڙXYؚ]ˆB]\ -WXY\^JYXYٛY‚[YTSӗPQTVWӓӑB[YTSӗPQTVWѓU[YTSӗPQTVWґPQ[YTSӗPQTVWГBYY[W[ۜXY -HˆY[HQSWH MY[HQSWUSTPTSH Y[HSSW LLBY[HSS̗SSW - MY[HQSWUSWђTSV  [X[ۜ[[Y\]܋[ [X[ۈ][\[HXY \H\ \YY[[H‚ \][H[B ]]\HZK ]]]\H] HQSWUSWђTSV ۜ[ USWTԓPSHHQSWUSWђTSV  ][\]Y[H\ [\[[[B ܙ\USWUSӋUSWUPUSWГKUSWPKUSWԐSK \\HXȂ [X[ۈ[[ [^\H\ USWVUHW[X[ۜ‚[Nˆ[]Z]H ˆW[X[ۜ[X܈H ˆ]^\H ˆWY[WW\X[ۈW\X[ۈHWTPSӗѓԕT‚[J\]Z] -H‚ \^HY[H]KY[]^J QSWK XY][ȊJN‚ Y[H][\˂ H][ۈ\۝YHH[ܙ[Y[Y[Y\ [Y\\H\H[YHوHY[H]HB \]Xٙ] [XX][K\H[YB [ܙ[Y[HۙKH[[Y܈[[ݙB Y[H][\\H[HۈܙY[][ۈ[ ZH\Hو][]]\YY[Y\ˆ ]H[و\ۜ[˂ \]Y[H][H][ۈKHHQSWH -QSWUSTPTSN‚Y[]^ - -[X܈OHUSWTԓPSJKSSW K\ܛX[NJNˆY[]^ - -[X܈OHUSWTԓPSJKSS̗ K -]Y]KXY[ PQTVWTԓPSH[XYH\XYJJNˆJ‚Y[]^ - -[X܈OHUSWUSӊKSSW K\X\Y\ΈJNˆY[]^ - -[X܈OHUSWUSӊKSS̗ K -]Y]KXY[ PQTVWTQT[XYH\XYJJNˆJY[]^ - -[X܈OHUSWUPKSSW K\[ۈ]XΈJNˆY[]^ - -[X܈OHUSWUPKSS̗ K\[ۗXY\W[]Y]KXY[PQTVWTSӗUP̑ PQTVWTSӗUP -JNˆJ‚Y[]^ - -[X܈OHUSWГJKSSW K\[ۈNJNˆY[]^ - -[X܈OHUSWГJKSS̗ K\[ۗXY\W[]Y]KXY[PQTVWTSӗГW̑ PQTVWTSӗГW -JNˆJ‚Y[]^ - -[X܈OHUSWPJKSSW K\[ۈXNJNˆY[]^ - -[X܈OHUSWPJKSS̗ K\[ۗXY\W[]Y]KXY[PQTVWTSӗPW̑ PQTVWTSӗPW -JNˆJ‚Y[]^ - -[X܈OHUSWԐSJKSSW K[NJNˆY[]^ - -[X܈OHUSWԐSJKSS̗ K -]Y]KXY[ PQTVWԐSH[XYH\XYJJNˆJ‚ \^H^]]BY[]^J -[X܈OHUSWVU -KH - -QSWUSTPTSJK XȊJN‚ [[[[H\]K\]J -][OHS -K -N‚ Y\\\\\ ۈ܈\] XXܙ[KY]^\ -QSՑUTQSՑQӈQTJH‚ Y\\\\\\K[]]Z] Y[[YYX][K[H\K[ܙ[Y[ ܈Xܙ[Y[[X܈\YYY Y]^\ QTHˆ]Z]H NˆH[HY]^\ QSՑUT -Hˆ ^HY\Y]Z[XK ܘ]\ - L H[ݙYHQT[ܚۛH]T ӈ^\ˆYؘ[[\W\ Y\H -Hˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆB YH\H]H][K \ \\K[ݙHۙH\ Y[X܈HQSWUSWђTSV -Hˆ[X܈HUSWVUˆH[Hˆ K\[X܎ˆBH[HY]^\ QSՑQӊH‚ ^HY\Y]Z[XK ܘ]\ - L H[ݙYHQT[ܚۛH]T ӈ^\ˆYؘ[[\W\ Y\H -Hˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆB YH\H]H\][B -X[HXȊK[ X\ \\B [ݙHۙHۋY[X܈HUSWVU -Hˆ[X܈HQSWUSWђTSVˆH[Hˆ -[X܎ˆBBB H[X[ۈ[YHۈY ܚY܂ Y\]ۈ\˂Y]^\ -QSՑSQQSՑTQQSPUӊJHˆYؘ[[\W\ Y\̈H -Hˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆBW\X[ۈH -]^\ QSՑSQ -HWTPSӗАPTWTPSӗѓԕTˆ \\\HY[H][\\H^X]Y ] -[X܊Hˆ\HUSWTԓPSN]Y]KXY[HPQTVWTԓPSNˆXZˆ\HUSWUSӎ]Y]KXY[HPQTVWTQTˆXZ\HUSWUP΂]Y]KXY[H\[ۗXY\WXJ]Y]KXY[PQTVWTSӗUP̑ PQTVWTSӗUP W\X[ۊNˆXZˆ\HUSWГN]Y]KXY[H\[ۗXY\WXJ]Y]KXY[PQTVWTSӗГW̑ PQTVWTSӗГW W\X[ۊNˆXZˆ\HUSWPN]Y]KXY[H\[ۗXY\WXJ]Y]KXY[PQTVWTSӗPW̑ PQTVWTSӗPW W\X[ۊNˆXZˆ\HUSWԐSN]Y]KXY[HPQTVWԐSNˆXZˆ\HUSWVU]Z]H NˆBBB]\][ -Nˆ]^\H ‚[YQSWB[YQSWUSTPTSB[YSSW[YSS̗[YQSWUSWђTSVBʂ\^K[[ۈ L KL B\^HX][ۜY[H[\H^Y\[X[ۜ˂YY[W[ۜX] -BˆY[HQSWH MY[HQSWUSTPTSH Y[HSSW LLBY[HSS̗SSW - M\YYX[ۗ\ˆWX][ۜX]NˆWX][ۜY[Nˆ\X[̌NˆH[ۗ\‚[[ۗ\[H ˆ[ۗ\[ۗ\HHˆ˘X]HHPUSӔSTPPWPUK Y[HHPUSӔSTPPWQSK X[H[\XXHX\K˘X]HHPUSӔԑQUPUK Y[HHPUSӔԑQUQSK X[H[[]HܙY]ΈK˘X]HHPUSӔSTWPUK Y[HHPUSӔSTWQSK X[H[[]H[\NK˘X]HHPUSӔPSPUK Y[HHPUSӔPSQSK X[H[[]HX[K˘X]HHPUSӔUTPUK Y[HHPUSӔUTQSK X[H[[]H]\ΈK˘X]HHPUSӔUSRUPUK Y[HHPUSӔUSRUQSK X[H][Z]]K˘X]HHPUSӔPUK Y[HHPUSӔQSK X[HXوX]BNˆ[[ۗ\\܈H ˆ[[ۗ]Z[XW[H ˆ[[ۗ]Z[XWٚ\H ˆ[HH ˆ[]Z]H ˆ[[X܈H ˆ]^\H ‚ܙY[]\HSԑQSPUSӔQSN [Y[W[ۜX] -HN‚[H -\]Z] -Bˆ ʈ\^HY[H]K -ˆY[]^J QSWK X][ۜȊJNˆ ʂ -\]Y[H][H][ۈH[ -[YY[H][H[  -ˆ[ۗ]Z[XW[H ˆ[ۗ]Z[XWٚ\H ˆHHQSWH -QSWUSTPTSN‚ ʂ -]\]HYH[ۈ\ -\^H[\^H]Z[XH][\˂ - -]XX[Y[ۋ[ܙ[Y[ -[ۈ[[H][ۋ -‚܈ -[ۗ\\܈H [ۗ\\܈[ۗ\[[ۗ\\܊BY -ؘ[ۙY˘X] [ۗ\[ۗ\\ܗKY[JB ʈ -Y[ۈ]Z[XH[\[ \ˆ -\H\]Z[XH[ۋXܙB -[^܈\HۜX[K -‚Y -[[ۗ]Z[XW[ -Bˆ[ۗ]Z[XWٚ\H[ۗ\\܎ˆB ʈ[HY[H^[ۋٙ]\ˈ -ˆY[]^ - -[X܈OH[ۗ\\܊KSSW K[ۗ\[ۗ\\ܗKX[ -JNˆY[]^ - -[X܈OH[ۗ\\܊KSS̗ K -ؘ[ۙY˘X] [ۗ\[ۗ\\ܗKX]HۈHٙJJNˆ[ۗ]Z[XW[ -ˆJˆHB ʈ][\]ZX[K[\^Y\ -ˆY -[[ۗ]Z[XW[ -BˆY[]^J K X]]Z[XKJNˆH ʂ -YH^][ۋH[\HH\^H^H -܈H[X܈[^YH [^[˂ -ˆJY[]^J -[X܈OH[ۗ\[ -KK XȊJN‚ ʈ[[[[H\]K -ˆ\]J -][OHS -K -Nˆ ʈ -[H\\[][[]H[X܈ˆ -\X]H[YK - -\H][X܈\][H[\H -H\]Z[XI[^\  - -^ [H]ۜˈT]Z]HY[H -[[K\ ۈ[X\]][K -Y ԚY X[ۈ]ۜH[YK -‚Y -\[X܈ [ۗ]Z[XWٚ\ -Bˆ[X܈H[ۗ]Z[XWٚ\ˆBY -]^\ QTBˆ]Z]H NˆBY -]^\ QSՑUT -Bˆ ʈ^HY\Y]Z[XK -ˆY -ؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆB ʈܘ\\[YYYY -ˆY -[X܈H[ۗ]Z[XWٚ\ -Bˆ[X܈H[ۗ\[ˆB[Bˆ[X܋KNˆB ʈ\\XY][\ˈ -ˆ[H -Jؘ[ۙY˘X] [ۗ\[XܗKY[JH [X܈[ۗ]Z[XWٚ\ -B[X܋KNˆHBY -]^\ QSՑQӊBˆ ʈ^HY\Y]Z[XK -ˆY -ؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆB ʈܘ\\[YYYY -ˆY -[X܈H[ۗ\[ -Bˆ[X܈H[ۗ]Z[XWٚ\ˆB[Bˆ[X܊ˆB ʈ\\XY][\ˈ -ˆ[H -Jؘ[ۙY˘X] [ۗ\[XܗKY[JH [X܈[ۗ\[ -Bˆ[X܊ˆBH ʈ -H[X[ۈ[YHۈY ܚY܂ -Y\]ۈ\˂ -ˆY -]^\ -QSՑSQQSՑTQQSPUӊJBˆY -ؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB ʂ -ZHX[ۈ\Yۈ[X܋ - -H\[ۈ\H^]][KY] ˆ -\[X܈[YHH^]\Y[K - -\\H\H[X܈\\^H^H]H -]H[H[\\][YK -‚Y -[X܈[ۗ\[ -Bˆؘ[ۙY˘X]H[ۗ\[XܗKX]NˆB[Bˆ]Z]H NˆHBB ]\][ -Nˆ]^\H ˆܙY[]\ HSԑQSPUSӔQSN‚[YQSWB[YQSWUSTPTSB[YSSW[YSS̗BYY[W[ۜ\[J -BˆY[HTW M[[HˆTTՔSPQKTPUTPQTӑQTАPˆN‚[]Z]H ˆ[[X܈H ˆ[ HH LLNˆ[ H JMˆ[^X[H ˆ[UHTАPˆ[[HH ‚ܙY[]\HSԑQSTSWSӔQSNˆ]^\H ˆY -XY[ۜH^X[H NˆU OH^X[ˆ[J\]Z] -Bˆ[HH ‚Y[]^J TWL \[H[ۜȊJN‚Y[]^ -  KTW -[K[SNJNˆY[]^ -  TW -[K\ЈK[X\[ -]\[T[JЖUTJJNˆ[JˆY[]^ -  KTW -[K\YSNJNˆY[]^ -  TW -[K\ЈK[X\[ -]\Y[JЖUTJJNˆ[J‚Y[]^ -  KTW -[KX^^Y\ΈJNˆY[]^ -  TW -[KZHK][]\[]KX^^Y\Nˆ[J‚Y[]^ - -[X܈OHTK KTW -[K[H[ΈJNˆY[]^ - -[X܈OHTK TW -[K -]Y]K\[[XYH\XYJJNˆ[J‚Y[]^ - -[X܈OHTՔSPQJK KTW -[K\\[XYNK -NˆY\\[XYHOH -BˆY[]^ - -[X܈OHTՔSPQJK TW -[K\XYH[[HJNˆB[HY\\[XYHOH JBˆY[]^ - -[X܈OHTՔSPQJK TW -[K[XYH[[HJNˆB[BˆY]Y]K[JBˆY[]^ - -[X܈OHTՔSPQJK TW -[K\XYJN [H H H^Y\S]XXX\B[BˆY[]^ - -[X܈OHTՔSPQJK TW -[K[XYJN [H H^Y\S]XXX\BB[JˆY -ؘ[ۙY˘X] PUSӔPTTQSJBˆY[]^ - -[X܈OHTPUK KTW -[KX][ۜˋJNˆ[JˆBY -[XY[ۜBˆY[]^ - -[X܈OHTPQK KTW -[KXY][ˋJNˆ[JˆBY[]^ - -[X܈OHTӑQK KTW -[KۙY][ˋJN‚ ʈ^H[\܈X[ˈ -ˆ[H -H ‚Y[]^J -[X܈OHU -KTW -[K XȊJN‚\]J -][OHS -K -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎‚ ʈ\\XY][\ˈ -‚Y -[X܈OHTPU Jؘ[ۙY˘X] PUSӔPTTQSJJBˆ K\[X܎ˆBY -[X܈OHTPQ XY[ۜBˆ K\[X܎ˆB[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY]^\ QSՑQӊBˆ -[X܎‚ ʈ\\XY][\ˈ -‚Y -[X܈OHTPU Jؘ[ۙY˘X] PUSӔPTTQSJJBˆ -[X܎ˆBY -[X܈OHTPQ XY[ۜBˆ -[X܎ˆH[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBY[X܈ -Bˆ[X܈HUˆBY[X܈U -Bˆ[X܈H ˆBY]^\ -QSՑSQQSՑTQQSPUӊJBˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -N‚Y -[X܈OHU -H]Z]H Nˆ[HY -[X܈OHTH]Y]K\[H\]Y]K\[ˆ[HY -[X܈OHTՔSPQJBˆY -\\[XYH JBˆY -]Y]K[JBˆ]Y]K[HH ˆB[Bˆ]Y]K[HH NˆBBB[HY -[X܈OHTPUBˆY[W[ۜX] -NˆB[HY -[X܈OHTPQ [XY[ۜBˆY[W[ۜXY -NˆB[HY -[X܈OHTPUBˆY[W[ۜX] -NˆB[HY -[X܈OHTPQ [XY[ۜHY[W[ۜXY -Nˆ[HY -[X܏OTTӑQHY[W[ۜۙY -Nˆ[H]Z]H NˆBB]\][ -Nˆ]^\H ˆܙY[]\ HSԑQSTSWSӔQSN‚[YTWŸBYY[W[ۜݚY[ -Bˆ[]Z]H ˆ[[X܈H ˆ[\ˆ[ HH LMK H N‚ܙY[]\HSԑQSՒQSSӔQSNˆ]^\H ‚[J\]Z] -BˆY[]^J  MK Y[[ۜȊJNˆY[]^ - -[X܈OH -K K LY\ΈJNˆY[]^ - -[X܈OH -K  LZH]Y]KY\NˆY[]^ - -[X܈OH JK K L[[XNJNˆY[]^ - -[X܈OH JK  LZH]Y]K[[XJNˆY[]^ - -[X܈OH K K LK[ٙ]JNˆY[]^ - -[X܈OH K  LKZH]Y]K[N‚YY[]^ - -[X܈OH K K \^H[NJNˆY[]^ - -[X܈OH K  ]Y]K[ܙY[[H[ȊJN‚Y[]^ - -[X܈OH -K K KY[X[JNˆY[]^ - -[X܈OH -K  K -[[HJJN‚Y[]^ - -[X܈OH JK K [NJNˆYYSQY]Y]K[HOH -B[BBZY]Y]K[ܙY[B[YˆY[]^ - -[X܈OH JK  ]]X]XȊJNˆB[BˆY[]^ - -[X܈OH JK  M  H Z^ ZH]Y]K[K -[ -JY[[\˚\ -]Y]K[JK -[ -JY[[\˝\ -]Y]K[JJNˆBY[]^ - -[X܈OH K K \\H[\JNˆˆ\ -[\[YNˆY -]Y]K[HOH K \]Y]K[ܙY[B[\[YHH\XYˆ[HY -[ -B[\[YHHY]X[]Hˆ[HY -]Y]Kٚ[\B[\[YHH[\Hˆ[B[\[YHH[[X\ˆY[]^ - -[X܈OH K  [\[YJJNˆBY[]^ - -[X܈OH K K ٝ\H[\JNˆY[]^ - -[X܈OH K   - -]Y]K[HH ]Y]K[ܙY[Hٞ]\[Y\]Y]Kٚ[\JH\XYJJN‚\[Z]^̗Nˆ] -]Y]K[Z] -Bˆ\H ۜ[[Z]^ ^[ي[Z]^ -K\ȋ\XYJNˆXZˆ\H Nۜ[[Z]^ ^[ي[Z]^ -KZH -[HY[\[ܙY\ܘ]J -JNˆXZˆ\H ۜ[[Z]^ ^[ي[Z]^ -KZH -NˆXZˆ\H ΂ۜ[[Z]^ ^[ي[Z]^ -KZH L -NˆXZˆY][ۜ[[Z]^ ^[ي[Z]^ -K\ȋ[ۛۈJNˆXZˆBY[]^ - -[X܈OH -K K K[Z]JNˆY[]^ - -[X܈OH -K  K[Z]^ -N‚Y]Y]K[ܙY[BˆY[]^ - -[X܈OHJK K [ܙY[\NJNˆY[]^ - -[X܈OHJK   -]Y]K]]ܙY[H\\H\X][ȊJJNˆB[HY[X܈OHJBˆ[X܈H -]^\ QSՑUT -H LˆBY[]^J -[X܈OH L -KK XȊJNˆY[X܈ -Bˆ[X܈H LˆBY[X܈ L -Bˆ[X܈H ˆB[Y\]J -][OHS -K -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -Bˆ K\[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ -QSՑSQQSՑTQQSPUӊJBˆ\H ‚Y]^\ QSՑSQ -Bˆ\H LNˆB[HY]^\ QSՑTQ -Bˆ\H NˆBYؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB] -[X܊Bˆ\H ]Y]KY\ -H -\ˆY]Y]KY\ LMBˆ]Y]KY\H LMˆBY]Y]KY\ MBˆ]Y]KY\H MˆBWݝZ] - -Nˆ]ܗܜX[ۊ]Y]K[[XK]Y]KY\NˆXZˆ\H N]Y]K[[XH -H -\ˆY]Y]K[[XH LMBˆ]Y]K[[XHH LMˆBY]Y]K[[XH MBˆ]Y]K[[XHH MˆBWݝZ] - -Nˆ]ܗܜX[ۊ]Y]K[[XK]Y]KY\NˆXZˆ\H ]Y]K[ -H\ˆY]Y]K[ LBˆ]Y]K[H LˆBY]Y]K[ -Bˆ]Y]K[H ˆBXZˆY\H ΂Y[ٝ[ܙY[ٛ\ - -NˆXZˆ\H ]Y]K\YH\]Y]K\YˆY[][JY[[\Nˆ]ܗܜX[ۊ]Y]K[[XK]Y]KY\NˆXZˆ\H NYYSQY]Y]K[ܙY[BˆXZˆB]Y]K[H -H\ - NˆY]Y]K[H JBˆ]Y]K[HH NˆBY]Y]K[H -Bˆ]Y]K[HH ˆBY[][JY[[\Nˆ[B]Y]K[H -H\ - NˆY]Y]K[H -Bˆ]Y]K[HH ˆBY]Y]K[H -Bˆ]Y]K[HH ˆB[Y\H YYSQY -[ -\]Y]K[ܙY[ ]Y]K[HOH K -JBˆXZˆB[Y]Y]Kٚ[\ -H\ˆY]Y]Kٚ[\ -Bˆ]Y]Kٚ[\H NˆBY]Y]Kٚ[\ JBˆ]Y]Kٚ[\H ˆBY[][JY[[\N‚BBBXXZˆ\H ΂Y\]Y]K[ܙY[ ]Y]K[H -BˆXZˆBY[[\˙[\ -H\ˆYY[[\˙[\UTPV H JBˆY[[\˙[\H ˆBYY[[\˙[\ -BˆY[[\˙[\HUTPV H NˆB]Y]Kٚ[\HY[[\˙[\ˆY[\] -[PY\   L M -N‚BBB]Y[][JY[[\NˆXZˆ\H]Y]K[Z]H -]Y]K[Z] -\H H ˆY -]Y]K[Z] -H]Y]K[Z] -H ˆY[][JY[[\NˆXZˆ\HNY[] - -]Y]K]H JJNˆXZˆ[YY][]Z]H NˆBBB]\][ -Nˆ]^\H ˆܙY[]\ HSԑQSՒQSSӔQSNŸBYY[W[ۜ -BˆY[HW LBY[H Mˆ\YY[[HˆQSSӋSSӋӕSӋTSWSӋSSӂHW[X܎‚[]Z]H ˆ[Wٙ]HWˆ[PSӈHSSӎˆW[X܈[X܈HQSSӎ‚ܙY[]\HSԑQSSӔQSNˆ]^\H [J\]Z] -BY[]^J -[X܈OHQSSӊKWٙ] -ՒQSSӋ Y[[ۜˋJNˆY[]^J -[X܈OHSSӊKWٙ] -SSӋ [[ۜˋJNˆY[]^J -[X܈OHӕSӊKWٙ] -ӕSӋ ۝[ۜˋJNˆY[]^J -[X܈OHTSWSӊKWٙ] -TSWSӋ \[H[ۜˋJNˆY[]^J -[X܈OHPSӊKWٙ] -АPSӊ̋ XȊJN‚\]J -][OHS -K -N‚Y]^\ QTBˆ]Z]H NˆBY]^\ QSՑUT -BˆY[X܈HQSSӊBˆ[X܈HPSӎˆB[H K\[X܎‚Yؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎ˆY[X܈PSӊBˆ[X܈HQSSӎˆBYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ -QSՑSQQSՑTQQSPUӊJB‚Yؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆBY[X܏OPPSӊH]Z]H Nˆ[HY[X܏OUQSSӊHY[W[ۜݚY[ -Nˆ[HY[X܏OTSSӊHY[W[ۜ[ - -Nˆ[HY[X܏OPӕSӊHY[W[ۜ[] - -Nˆ[HY[X܏OTTSWSӊBˆY[W[ۜ\[J -NB[H]Z]H NˆBB]\][ -NˆY]\HOH JBˆ]\HH ˆB]^\H ˆܙY[]\ HSԑQSSӔQSN‚[YPUˆ[YWˆ[Yˆ[YPUUTWBB KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKBY[ܓXZ[[\\ -\݊Bˆ]WX\HSˆ[]Z]H ˆ[[XH Nˆ[[X܈H ˆL̈[[YHH ˆ[\YH ˆ\\YPVЕQTSHHȈNˆ[^Y\PVVQTHH    Nˆ[Nˆ[\‚[[Ԉ \\[H]NUWTSӊN‚Y\ JBˆ\H[\ݖWJNˆY\ M [Y[X\ -\ݖWKٙܙY[[H M -JBˆQUSёԑQSSH][Y[ - -\ -X\ݖWH - M NˆBY\ M [Y[X\ -\ݖWKٚ[\\YH M -JBˆ[[U\YT]\XH][Y[ - -\ -X\ݖWH - M NˆBB[[Y\HܙX]S[[[X[\ - -Nˆ[[Y\HܙX]S[[[X[\ - -Nˆ][Y\HܙX]S][[X[\ - -Nˆ][ܙ\Y\HܙX]S][ܙ\[X[\ - -NˆܙX]S[[\ - -N‚ YX\\H\ۙ[˂[[YH[XY \Xٚ[JNˆY][ -Nˆ\\ - -N‚X]^\H ‚Y\] -B‚ ][\]]HXܛ[] Y\ܙOHS -BˆJ\Y\ܙNˆ] -\YȊNˆYؘXܛ[ -\YNˆB[BˆYXYؘXܛ[ -]KؙȊNˆB[J[YHؘ[ۙY˙[YWYY - J]^\ -QSPUӈQTJJBˆ\]J  -NˆB]\X]K]\Xܙ[Z^ K -N‚ ][\]]H[H] Y\[\OHS -BˆJ\Y\[\Nˆ] -\Y˝Nˆ^\[J\YNˆB[Bˆ^\[J]K[\˝NˆBBX\ܙY[Xܛ[ -N‚[J\]Z] -BˆY\]  JXZ[Y[WٛYɎ -JBˆY[YHH[[YJBˆ ][\]]H[H] Y\[\OHS -BˆJ\Y\[\Nˆ] -\Y[˝Nˆ^\[J\YNˆB[Bˆ^\[J]K[\[˝NˆB\]J  -Nˆ[[YHH[YH -ؘ[ۙY˙[YWYY - ˆ[XH Nˆ\YH ˆBY]^\ QTBˆ]Z]H NˆBB[Bˆ\YH Nˆ[XH ˆBY -XZ[Y[WٛYOH -HXZ[Y[WٛYH ˆY\\Y -BˆY -[YH Hؘ[ۙY˙[YWYY -H -ؘ[ۙY˙[YWYY JBˆY[]^J   TTJNˆBY]^\ -QSPUӊJBˆ\YH Nˆ[XH NˆBB[HY\]H -BˆY[YQ[J -Nˆ^Y[YJ^Y\\T]H \T]\] \T]JNˆB[BˆY[]^J -[X܈OH -K  \[YHJNˆY[]^J -[X܈OH JK  [ۜȊJNˆY[]^J -[X܈OH K  ^HJNˆY[]^J -[X܈OH K K [و[YHJNˆY[]^J -[X܈OH -K  ]Z]JNˆY[X܈ -Bˆ[X܈H ˆBY[X܈ -Bˆ[X܈H ˆBY]^\Bˆ[[YHH[YH -ؘ[ۙY˙[YWYY - ˆBY]^\ QSՑUT -Bˆ K\[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ QSՑQӊBˆ -[X܎ˆYؘ[[\W\ Y\H -Bˆ[^W[\Jؘ[[\W\ Y\  ]Y]KYX ]Y]KYX  L -NˆBBY]^\ -QSPUӊJBˆYؘ[[\W\ Y\̈H -Bˆ[^W[\Jؘ[[\W\ Y\̋ ]Y]KYX ]Y]KYX  L -NˆB] -[X܊Bˆ\H ܊HH HPVVQTJBˆ^Y\WHH^Y\WK]^\ -QSPUӊNˆB[XHW[J^Y\NˆY[XBˆ\YH ˆBXZˆ\H NY[W[ۜ -NˆXZˆ\H ˆ[][\H]\Xˆ\][\]\X^[ي\[]\XWN‚Y[\] -][\]\X ^[ي][\]\XJNˆJ][\]\X\[]\XN‚Y\[\OHS -BˆJ\Y\[\Nˆ] -\Y˝Nˆ^\[J\YNˆB[Bˆ^\[J]K[\˝NˆBYX\ -][\]\X\[]\XHOH -Bˆ]\X][\]\X][\  -NˆB[XH NˆXZˆB\H ΂[[YJ -Nˆ[XH NˆXZˆY][]Z]H NˆXZˆB[[YHH[YH -ؘ[ۙY˙[YWYY - ˆBBY[XBˆY\Y -Bˆ ʈܘ]\ - L L JHYY[Y][ۘ[[[HوH[][ۈ[[ۈ]Y[HܙY[\YY\[^]]H[[[H[[Bܘ]\ - L HYY[Y][ۘ[[[HوHY[[H[[ۈ]Y[HܙY[\YY\HXܙY[\Y\ۈ[Y]]\\[ˆ -ˆY[][JY[[\Nˆؗ[][ -NˆܙY[]\HSԑQSQSNˆܙY[]\ HSԑQSUN‚Y\ܙOHS -BˆJ\Y\ܙNˆ] -\Y]XNˆYؘXܛ[ -\YNˆB[BˆYXYؘXܛ[ -]Kؙ]XNˆBB[BˆܙY[]\ HSԑQSQSNˆܙY[]\HSԑQSUN‚Y\ܙOHS -BˆJ\Y\ܙNˆ] -\Y]HNˆYؘXܛ[ -\YNˆB[BˆYXYؘXܛ[ -]Kؙ]HNˆBBY\[]Y\W]\XS S -JBˆ]\X]K]\Xܙ[Z^ K -NˆB[XH ˆB\]J  -NˆBܔ]ۊ QUSUӗQTQJNŸB[YUTˆ[YUTS[YUT[YUTS[YUSTˆ[YUѓUTˆ[YUST[YUѓUT \ No newline at end of file + newchar->move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + } + else if(stricmp(value, "panel") == 0) // NPC type + { + newchar->type = TYPE_PANEL; + newchar->antigravity = 1.0; //float type + newchar->move_config_flags |= (MOVE_CONFIG_NO_ADJUST_BASE | MOVE_CONFIG_SUBJECT_TO_GRAVITY); + } + else + { + borShutdown(1, "Model '%s' has invalid type: '%s'", filename, value); + } +} + +void lcmHandleCommandSubtype(ArgList *arglist, s_model *newchar, char *filename) +{ + char *value = GET_ARGP(1); + int i; + if(stricmp(value, "biker") == 0) + { + newchar->subtype = SUBTYPE_BIKER; + if(newchar->aimove == AIMOVE1_NONE) + { + newchar->aimove = AIMOVE1_NORMAL; + } + newchar->aimove |= AIMOVE1_BIKER; + if(!newchar->offscreenkill) + { + newchar->offscreenkill = 300; + } + + /* Bikers deault to taking double damage. */ + for(i = 0; i < max_attack_types; i++) + { + newchar->defense[i].factor = 2.f; + } + + newchar->move_config_flags |= (MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_MAX_Z | MOVE_CONFIG_SUBJECT_TO_MIN_Z); + newchar->move_config_flags &= ~(MOVE_CONFIG_NO_ADJUST_BASE | MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_SCREEN | MOVE_CONFIG_SUBJECT_TO_WALL); + } + else if(stricmp(value, "arrow") == 0) // 7-1-2005 Arrow type + { + newchar->subtype = SUBTYPE_ARROW; // 7-1-2005 Arrow type + if(newchar->aimove == AIMOVE1_NONE) + { + newchar->aimove = AIMOVE1_NORMAL; + } + newchar->aimove |= AIMOVE1_ARROW; + if(!newchar->offscreenkill) + { + newchar->offscreenkill = 200; + } + + newchar->move_config_flags |= (MOVE_CONFIG_NO_ADJUST_BASE | MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_MAX_Z | MOVE_CONFIG_SUBJECT_TO_MIN_Z); + newchar->move_config_flags &= ~(MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_SCREEN | MOVE_CONFIG_SUBJECT_TO_WALL); + } + else if(stricmp(value, "notgrab") == 0) + { + newchar->subtype = SUBTYPE_NOTGRAB; + } + // ltb 1-18-05 Item Subtype + else if(stricmp(value, "touch") == 0) + { + newchar->subtype = SUBTYPE_TOUCH; + } + else if(stricmp(value, "weapon") == 0) + { + newchar->subtype = SUBTYPE_WEAPON; + } + else if(stricmp(value, "noskip") == 0) // Text animation cannot be skipped if subtype noskip + { + newchar->subtype = SUBTYPE_NOSKIP; + } + else if(stricmp(value, "flydie") == 0) // Obstacle will fly across the screen when hit if subtype flydie + { + newchar->subtype = SUBTYPE_FLYDIE; + } + else if(stricmp(value, "both") == 0) + { + newchar->subtype = SUBTYPE_BOTH; + } + else if(stricmp(value, "project") == 0) + { + newchar->subtype = SUBTYPE_PROJECTILE; + } + else if(stricmp(value, "follow") == 0) + { + newchar->subtype = SUBTYPE_FOLLOW; + child_follow_getsert_property(&newchar->child_follow); + } + else if(stricmp(value, "chase") == 0) + { + newchar->subtype = SUBTYPE_CHASE; + } + // end new subtype + else + { + borShutdown(1, "Model '%s' has invalid subtype: '%s'", filename, value); + } +} + +void lcmHandleCommandSmartbomb(ArgList *arglist, s_model *newchar, char *filename) +{ + //smartbomb now use a normal attack box + if(!newchar->smartbomb) + { + newchar->smartbomb = attack_allocate_object(); + } + else + { + borShutdown(1, "Model '%s' has multiple smartbomb commands defined.", filename); + } + + newchar->smartbomb->attack_force = atoi(GET_ARGP(1)); // Special force + newchar->smartbomb->attack_type = atoi(GET_ARGP(2)); // Special attack type + newchar->smartbomb->attack_drop = 1; //by default + newchar->smartbomb->dropv.y = default_model_dropv.y; + + if(newchar->smartbomb->attack_type == ATK_BLAST) + { + newchar->smartbomb->blast = 1; + newchar->smartbomb->dropv.x = default_model_dropv.x * 2.083f; + } + else + { + newchar->smartbomb->dropv.x = default_model_dropv.x; + } + + if(newchar->smartbomb->attack_type == ATK_FREEZE) + { + newchar->smartbomb->freeze = 1; + newchar->smartbomb->forcemap = MAP_TYPE_FREEZE; + newchar->smartbomb->attack_drop = 0; + } + else if(newchar->smartbomb->attack_type == ATK_STEAL) + { + newchar->smartbomb->steal = 1; + } + + if(newchar->type == TYPE_ITEM) + { + newchar->dofreeze = 0; // Items don't animate + newchar->smartbomb->freezetime = atoi(GET_ARGP(3)) * global_config.game_speed; + } + else + { + newchar->dofreeze = atoi(GET_ARGP(3)); // Are all animations frozen during special + newchar->smartbomb->freezetime = atoi(GET_ARGP(4)) * global_config.game_speed; + } +} + +/* +* Caskey, Damon V. +* 2019-11-22 +* +* Return type flag from string input. +*/ +e_entity_type get_type_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_entity_type flag; + } item_lookup_table[] = { + {"end_level", TYPE_ENDLEVEL}, + {"enemy", TYPE_ENEMY}, + {"item", TYPE_ITEM}, + {"no_copy", TYPE_NO_COPY}, + {"none", TYPE_NONE}, + {"npc", TYPE_NPC}, + {"obstacle", TYPE_OBSTACLE}, + {"playa", TYPE_PLAYER}, // :) + {"player", TYPE_PLAYER}, + {"projectile", TYPE_PROJECTILE}, + {"shot", TYPE_SHOT}, + {"steamer", TYPE_STEAMER}, + {"text_box", TYPE_TEXTBOX}, + {"trap", TYPE_TRAP}, + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown type (%s). \n", value); + return TYPE_UNKNOWN; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read entity type arguments directly from the source line + and combine their corresponding type flags. +*/ +e_entity_type get_type_from_command_line(const char* command_line) +{ + const char* value; + s_command_argument_reader reader; + e_entity_type result = TYPE_UNDECLARED; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= get_type_from_string(value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Backport weapon loss conditions values +* to legacy weapon loss for backward +* compatability. +*/ +e_weapon_loss_condition_legacy weapon_loss_condition_interpret_to_legacy(e_weapon_loss_condition weapon_loss_condition_value) +{ + e_weapon_loss_condition_legacy result = WEAPLOSS_TYPE_ANY; + + if ((weapon_loss_condition_value & WEAPON_LOSS_CONDITION_DEFAULT) == WEAPON_LOSS_CONDITION_DEFAULT) + { + result |= WEAPLOSS_TYPE_ANY; + return result; + } + + if (weapon_loss_condition_value & WEAPON_LOSS_CONDITION_DEATH) + { + result |= WEAPLOSS_TYPE_DEATH; + return result; + } + + if (weapon_loss_condition_value & WEAPLOSS_TYPE_KNOCKDOWN) + { + result |= WEAPON_LOSS_CONDITION_FALL; + return result; + } + + if (weapon_loss_condition_value & WEAPLOSS_TYPE_CHANGE) + { + result |= WEAPON_LOSS_CONDITION_STAGE; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Interpret legacy weaploss commands into +* weapon loss bits per orginal documentation. +*/ +e_weapon_loss_condition weapon_loss_condition_interpret_from_legacy_weaploss(e_weapon_loss_condition weapon_loss_condition_value, e_weapon_loss_condition_legacy legacy_value) +{ + switch (legacy_value) + { + case WEAPLOSS_TYPE_ANY: + + weapon_loss_condition_value |= WEAPON_LOSS_CONDITION_DEFAULT; + break; + + case WEAPLOSS_TYPE_KNOCKDOWN: + + weapon_loss_condition_value |= WEAPON_LOSS_CONDITION_FALL; + break; + + case WEAPLOSS_TYPE_DEATH: + + weapon_loss_condition_value |= WEAPON_LOSS_CONDITION_PAIN; + break; + + case WEAPLOSS_TYPE_CHANGE: + + weapon_loss_condition_value |= WEAPON_LOSS_CONDITION_STAGE; + break; + + default: + + weapon_loss_condition_value |= WEAPON_LOSS_CONDITION_DEFAULT; + + break; + } + + return weapon_loss_condition_value; +} + +/* +* Caskey, Damon V. +* 2022-05-02 +* +* Accept string input and return +* matching constant. +*/ +e_weapon_loss_condition get_weapon_loss_from_argument(const char* value) +{ + e_weapon_loss_condition result; + + if (stricmp(value, "none") == 0) + { + result = WEAPON_LOSS_CONDITION_NONE; + } + if (stricmp(value, "damage") == 0) + { + result = WEAPON_LOSS_CONDITION_DAMAGE; + } + else if (stricmp(value, "death") == 0) + { + result = WEAPON_LOSS_CONDITION_DEATH; + } + else if (stricmp(value, "fall") == 0) + { + result = WEAPON_LOSS_CONDITION_FALL; + } + else if (stricmp(value, "grabbed") == 0) + { + result = WEAPON_LOSS_CONDITION_GRABBED; + } + else if (stricmp(value, "grabbing") == 0) + { + result = WEAPON_LOSS_CONDITION_GRABBING; + } + else if (stricmp(value, "land_damage") == 0) + { + result = WEAPON_LOSS_CONDITION_LAND_DAMAGE; + } + else if (stricmp(value, "pain") == 0) + { + result = WEAPON_LOSS_CONDITION_PAIN; + } + else if (stricmp(value, "stage") == 0) + { + result = WEAPON_LOSS_CONDITION_STAGE; + } + else if (stricmp(value, "default") == 0) + { + result = WEAPON_LOSS_CONDITION_DEFAULT; + } + else + { + result = WEAPON_LOSS_CONDITION_DEFAULT; + printf("\n\n Unknown weapon loss config value (%s), using 'default'. \n", value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-05-02 +* +* Populate weapon loss model property +* from text arguments. +*/ +void lcmHandleCommandWeaponLossCondition( + const char* command_line, + s_model* newchar +) +{ + const char* value; + s_command_argument_reader reader; + + newchar->weapon_properties.loss_condition = WEAPON_LOSS_CONDITION_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + newchar->weapon_properties.loss_condition |= get_weapon_loss_from_argument(value); + } + +} + +/* +* Caskey, Damon V. +* 2022-05-24 +* +* Read a text argument for model copy flag +* and output appropriate constant. If input +* is legacy integer, we just pass it on. +*/ +e_model_copy get_model_flag_from_argument( + const char* filename, + const char* command, + const char* value +) +{ + e_model_copy result = MODEL_COPY_FLAG_NONE; + + if (stricmp(value, "none") == 0) + { + result = MODEL_COPY_FLAG_NONE; + } + else if (stricmp(value, "no_basic") == 0) + { + result = MODEL_COPY_FLAG_NO_BASIC; + } + else if (stricmp(value, "no_weapon") == 0) + { + result = MODEL_COPY_FLAG_NO_WEAPON; + } + else if (stricmp(value, "no_script") == 0) + { + result = MODEL_COPY_FLAG_NO_SCRIPT; + } + else + { + /* + * For legacy compatability. Get integer + * value and then change it to current + * constants. + */ + + result = getValidInt(value, filename, command); + result = get_model_flag_from_legacy_int(result); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-01-30 +* +* Accept legacy integer model flag int +* and output current constant. +*/ +e_model_copy get_model_flag_from_legacy_int(int legacy_int) +{ + e_model_copy result = MODEL_COPY_FLAG_NONE; + + switch (legacy_int) + { + case 0: + default: + result = MODEL_COPY_FLAG_NONE; + case 1: + result = (MODEL_COPY_FLAG_NO_BASIC); + break; + case 3: + result = (MODEL_COPY_FLAG_NO_BASIC | MODEL_COPY_FLAG_NO_WEAPON); + break; + case 4: + result = (MODEL_COPY_FLAG_NO_BASIC | MODEL_COPY_FLAG_NO_WEAPON | MODEL_COPY_FLAG_NO_SCRIPT); + break; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-05-24 +* +* Populate model flag property +* from text arguments. +*/ +void lcmHandleCommandModelFlag( + char* filename, + char* command, + const char* command_line, + s_model* newchar +) +{ + const char* value; + s_command_argument_reader reader; + + newchar->model_flag = MODEL_COPY_FLAG_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + newchar->model_flag |= get_model_flag_from_argument(filename, command, value); + } + +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Backport air control values to legacy +* jumpmove for backward compatability. +*/ +e_air_control_legacy_x air_control_interpret_to_legacy_jumpmove_x(e_air_control air_control_value) +{ + e_air_control_legacy_x result = AIR_CONTROL_LEGACY_X_NONE; + + if (air_control_value & AIR_CONTROL_JUMP_TURN) + { + result |= AIR_CONTROL_LEGACY_X_FLIP; + } + + if (air_control_value & AIR_CONTROL_JUMP_X_ADJUST) + { + result |= AIR_CONTROL_LEGACY_X_ADJUST; + } + + if (air_control_value & AIR_CONTROL_JUMP_X_MOVE) + { + result |= AIR_CONTROL_LEGACY_X_MOVE; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Backport air control values to legacy +* jumpmove for backward compatability. +*/ +e_air_control_legacy_z air_control_interpret_to_legacy_jumpmove_z(e_air_control air_control_value) +{ + e_air_control_legacy_z result = AIR_CONTROL_LEGACY_Z_NONE; + + if (air_control_value & AIR_CONTROL_JUMP_Z_INITIAL) + { + result |= AIR_CONTROL_LEGACY_Z_MOMENTUM; + } + + if (air_control_value & AIR_CONTROL_JUMP_Z_ADJUST) + { + result |= AIR_CONTROL_LEGACY_Z_ADJUST; + } + + if (air_control_value & AIR_CONTROL_JUMP_Z_INITIAL) + { + result |= AIR_CONTROL_LEGACY_Z_MOMENTUM; + } + + if (air_control_value & AIR_CONTROL_JUMP_TURN && air_control_value & AIR_CONTROL_JUMP_Z_INITIAL) + { + result = AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_FLIP; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Backport air control values to legacy +* jumpmove for backward compatability. +*/ +e_air_control_legacy_x air_control_interpret_to_legacy_walkoffmove_x(e_air_control air_control_value) +{ + e_air_control_legacy_x result = AIR_CONTROL_LEGACY_X_NONE; + + if (air_control_value & AIR_CONTROL_WALKOFF_TURN) + { + result |= AIR_CONTROL_LEGACY_X_FLIP; + } + + if (air_control_value & AIR_CONTROL_WALKOFF_X_ADJUST) + { + result |= AIR_CONTROL_LEGACY_X_ADJUST; + } + + if (air_control_value & AIR_CONTROL_WALKOFF_X_MOVE) + { + result |= AIR_CONTROL_LEGACY_X_MOVE; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Backport air control values to legacy +* jumpmove for backward compatability. +*/ +e_air_control_legacy_z air_control_interpret_to_legacy_walkoffmove_z(e_air_control air_control_value) +{ + e_air_control_legacy_z result = AIR_CONTROL_LEGACY_Z_NONE; + + if (air_control_value & AIR_CONTROL_JUMP_Z_INITIAL) + { + result |= AIR_CONTROL_LEGACY_Z_MOMENTUM; + } + + if (air_control_value & AIR_CONTROL_JUMP_Z_ADJUST) + { + result |= AIR_CONTROL_LEGACY_Z_ADJUST; + } + + if (air_control_value & AIR_CONTROL_JUMP_Z_INITIAL) + { + result |= AIR_CONTROL_LEGACY_Z_MOMENTUM; + } + + if (air_control_value & AIR_CONTROL_JUMP_TURN && air_control_value & AIR_CONTROL_JUMP_Z_INITIAL) + { + result = AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_FLIP; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Interpret legacy Jumpmove commands into +* air control bits per orginal documentaiton. +* +* low byte: 0 default 1 flip in air, 2 move in air, 3 flip and move +*/ +e_air_control air_control_interpret_from_legacy_jumpmove_x(e_air_control air_control_value, e_air_control_legacy_x legacy_value) +{ + switch (legacy_value) + { + case AIR_CONTROL_LEGACY_X_NONE: + + air_control_value &= ~(AIR_CONTROL_JUMP_TURN | AIR_CONTROL_JUMP_X_ADJUST | AIR_CONTROL_JUMP_X_MOVE); + break; + + case AIR_CONTROL_LEGACY_X_FLIP: + + air_control_value |= AIR_CONTROL_JUMP_TURN; + break; + + case AIR_CONTROL_LEGACY_X_ADJUST: + + air_control_value |= AIR_CONTROL_JUMP_X_ADJUST; + break; + + case AIR_CONTROL_LEGACY_X_ADJUST_AND_FLIP: + + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_JUMP_X_ADJUST; + break; + + case AIR_CONTROL_LEGACY_X_MOVE: + case AIR_CONTROL_LEGACY_X_MOVE_ALT: + + air_control_value |= AIR_CONTROL_JUMP_X_MOVE; + break; + + case AIR_CONTROL_LEGACY_X_MOVE_AND_FLIP: + + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_JUMP_X_MOVE; + break; + + default: + + /* + * Handle non-existent duplicate options + * listed in the legacy manual. + */ + + if (legacy_value > AIR_CONTROL_LEGACY_X_MOVE_ALT) + { + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_JUMP_X_MOVE; + } + + break; + } + + return air_control_value; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* See interpret_legacy_jumpmove_x(); +*/ +e_air_control air_control_interpret_from_legacy_jumpmove_z(e_air_control air_control_value, e_air_control_legacy_z legacy_value) +{ + switch (legacy_value) + { + case AIR_CONTROL_LEGACY_Z_NONE: + + air_control_value &= ~(AIR_CONTROL_JUMP_TURN | AIR_CONTROL_JUMP_Z_ADJUST | AIR_CONTROL_JUMP_Z_INITIAL); + break; + + case AIR_CONTROL_LEGACY_Z_MOMENTUM: + + air_control_value |= AIR_CONTROL_JUMP_Z_INITIAL; + break; + + case AIR_CONTROL_LEGACY_Z_ADJUST: + + air_control_value |= AIR_CONTROL_JUMP_Z_INITIAL; + air_control_value |= AIR_CONTROL_JUMP_Z_ADJUST; + break; + + case AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_ADJUST: + + air_control_value |= AIR_CONTROL_JUMP_Z_INITIAL; + air_control_value |= AIR_CONTROL_JUMP_Z_ADJUST; + break; + + case AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_FLIP: + + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_JUMP_Z_MOVE; + + break; + + default: + + /* + * Handle non-existent duplicate options + * listed in the legacy manual. + */ + + if (legacy_value > AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_FLIP) + { + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_JUMP_Z_MOVE; + } + + break; + + } + + return air_control_value; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Interpret legacy walkmove commands into +* air control bits per orginal documentaiton. +* +* low byte: 0 default 1 flip in air, 2 move in air, 3 flip and move +*/ +e_air_control air_control_interpret_from_legacy_walkoffmove_x(e_air_control air_control_value, e_air_control_legacy_x legacy_value) +{ + switch (legacy_value) + { + case AIR_CONTROL_LEGACY_X_NONE: + + air_control_value &= ~(AIR_CONTROL_WALKOFF_TURN | AIR_CONTROL_WALKOFF_X_ADJUST); + break; + + case AIR_CONTROL_LEGACY_X_FLIP: + + air_control_value |= AIR_CONTROL_WALKOFF_TURN; + break; + + case AIR_CONTROL_LEGACY_X_ADJUST: + + air_control_value |= AIR_CONTROL_WALKOFF_X_ADJUST; + break; + + case AIR_CONTROL_LEGACY_X_ADJUST_AND_FLIP: + case AIR_CONTROL_LEGACY_X_MOVE_AND_FLIP: + + air_control_value |= AIR_CONTROL_WALKOFF_TURN; + air_control_value |= AIR_CONTROL_WALKOFF_X_ADJUST; + break; + + case AIR_CONTROL_LEGACY_X_MOVE: + case AIR_CONTROL_LEGACY_X_MOVE_ALT: + + air_control_value |= AIR_CONTROL_WALKOFF_X_ADJUST; + break; + + default: + + /* + * Handle non-existent duplicate options + * listed in the legacy manual. + */ + + if (legacy_value > AIR_CONTROL_LEGACY_X_MOVE_ALT) + { + air_control_value |= AIR_CONTROL_WALKOFF_TURN; + air_control_value |= AIR_CONTROL_WALKOFF_X_ADJUST; + } + + break; + } + + return air_control_value; +} + +/* +* Caskey, Damon V. +* 2022-04-26 +* +* Interpret legacy walkmove commands into +* air control bits per orginal documentaiton. +* +* low byte: 0 default 1 flip in air, 2 move in air, 3 flip and move +*/ +e_air_control air_control_interpret_from_legacy_walkoffmove_z(e_air_control air_control_value, e_air_control_legacy_z legacy_value) +{ + switch (legacy_value) + { + case AIR_CONTROL_LEGACY_Z_NONE: + + air_control_value &= ~AIR_CONTROL_WALKOFF_Z_ADJUST; + break; + + case AIR_CONTROL_LEGACY_Z_MOMENTUM: + + air_control_value |= AIR_CONTROL_WALKOFF_Z_ADJUST; + break; + + case AIR_CONTROL_LEGACY_Z_ADJUST: + + air_control_value |= AIR_CONTROL_WALKOFF_Z_ADJUST; + break; + + case AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_ADJUST: + + air_control_value |= AIR_CONTROL_WALKOFF_Z_ADJUST; + break; + + case AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_FLIP: + + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_WALKOFF_Z_ADJUST; + + break; + + default: + + /* + * Handle non-existent duplicate options + * listed in the legacy manual. + */ + + if (legacy_value > AIR_CONTROL_LEGACY_Z_MOMENTUM_AND_FLIP) + { + air_control_value |= AIR_CONTROL_JUMP_TURN; + air_control_value |= AIR_CONTROL_JUMP_Z_MOVE; + } + + break; + + } + + return air_control_value; +} + +/* +* Caskey, Damon V. +* 2022-04-28 +* +* Accept string input and return +* matching constant. +*/ +e_air_control find_air_control_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_air_control flag; + } item_lookup_table[] = { + {"none", AIR_CONTROL_NONE}, + {"jump_disable", AIR_CONTROL_JUMP_DISABLE}, + {"jump_turn", AIR_CONTROL_JUMP_TURN}, + {"jump_x_adjust", AIR_CONTROL_JUMP_X_ADJUST}, + {"jump_x_move", AIR_CONTROL_JUMP_X_MOVE}, + {"jump_x_stop", AIR_CONTROL_JUMP_X_STOP}, + {"jump_y_stop", AIR_CONTROL_JUMP_Y_STOP}, + {"jump_z_adjust", AIR_CONTROL_JUMP_Z_ADJUST}, + {"jump_z_initial", AIR_CONTROL_JUMP_Z_INITIAL}, + {"jump_z_move", AIR_CONTROL_JUMP_Z_MOVE}, + {"jump_z_stop", AIR_CONTROL_JUMP_Z_STOP}, + {"walkoff_turn", AIR_CONTROL_WALKOFF_TURN}, + {"walkoff_x_adjust", AIR_CONTROL_WALKOFF_X_ADJUST}, + {"walkoff_x_move", AIR_CONTROL_WALKOFF_X_MOVE}, + {"walkoff_x_stop", AIR_CONTROL_WALKOFF_X_STOP}, + {"walkoff_z_adjust", AIR_CONTROL_WALKOFF_Z_ADJUST}, + {"walkoff_z_move", AIR_CONTROL_WALKOFF_Z_MOVE}, + {"walkoff_z_stop", AIR_CONTROL_WALKOFF_Z_STOP}, + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown air control flag (%s). \n", value); + return AIR_CONTROL_NONE; +} + +/* +* Caskey, Damon V. +* 2022-04-28 +* +* Populate air control model property +* from text arguments. +*/ +void lcmHandleCommandAirControl( + const char* command_line, + s_model* newchar +) +{ + const char* value; + s_command_argument_reader reader; + + newchar->air_control = AIR_CONTROL_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + newchar->air_control |= find_air_control_from_string(value); + } + +} + +/* +* Caskey, Damon V. +* 2019-11-22 +* +* Accept string input and return +* matching constant. +*/ +e_move_config_flags find_move_config_flags_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_move_config_flags flag; + } item_lookup_table[] = { + {"none", MOVE_CONFIG_NONE}, + {"no_adjust_base", MOVE_CONFIG_NO_ADJUST_BASE}, + {"no_flip", MOVE_CONFIG_NO_FLIP}, + {"no_hit_head", MOVE_CONFIG_NO_HIT_HEAD}, + {"no_move", MOVE_CONFIG_NO_MOVE}, + {"projectile_base_die", MOVE_CONFIG_PROJECTILE_BASE_DIE}, + {"projectile_wall_bounce", MOVE_CONFIG_PROJECTILE_WALL_BOUNCE}, + {"subject_to_basemap", MOVE_CONFIG_SUBJECT_TO_BASEMAP}, + {"subject_to_gravity", MOVE_CONFIG_SUBJECT_TO_GRAVITY}, + {"subject_to_hole", MOVE_CONFIG_SUBJECT_TO_HOLE}, + {"subject_to_max_z", MOVE_CONFIG_SUBJECT_TO_MAX_Z}, + {"subject_to_min_z", MOVE_CONFIG_SUBJECT_TO_MIN_Z}, + {"subject_to_obstacle", MOVE_CONFIG_SUBJECT_TO_OBSTACLE}, + {"subject_to_platform", MOVE_CONFIG_SUBJECT_TO_PLATFORM}, + {"subject_to_screen", MOVE_CONFIG_SUBJECT_TO_SCREEN}, + {"subject_to_wall", MOVE_CONFIG_SUBJECT_TO_WALL} + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown move config flag (%s). \n", value); + return MOVE_CONFIG_NONE; +} + +/* +* Caskey, Damon V. +* 2021-08-24 +* +* Read a text argument for ko map type and +* output appropriate constant. If input is +* legacy integer, we just pass it on. +*/ +e_ko_colorset_config komap_type_get_value_from_argument(char* filename, char* command, char* value) +{ + e_ko_colorset_config result = KO_COLORSET_CONFIG_INSTANT; + + if (stricmp(value, "instant") == 0) + { + result = KO_COLORSET_CONFIG_INSTANT; + } + else if (stricmp(value, "finish") == 0) + { + result = KO_COLORSET_CONFIG_COMPLETE; + } + else + { + result = getValidInt(value, filename, command); + } + + return result; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read movement configuration arguments directly from the + source line and combine their corresponding behavior flags. +*/ +e_move_config_flags get_move_config_flags_from_command_line( + const char* command_line +) +{ + const char* value; + s_command_argument_reader reader; + e_move_config_flags result = MOVE_CONFIG_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= find_move_config_flags_from_string(value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2022-04-28 +* +* Accept string input and return +* matching constant. +*/ +e_cheat_options find_cheat_options_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_cheat_options flag; + } item_lookup_table[] = { + {"none", CHEAT_OPTIONS_NONE}, + {"credits_active", CHEAT_OPTIONS_CREDITS_ACTIVE}, + {"credits_menu", CHEAT_OPTIONS_CREDITS_MENU}, + {"energy_active", CHEAT_OPTIONS_ENERGY_ACTIVE}, + {"energy_menu", CHEAT_OPTIONS_ENERGY_MENU}, + {"health_active", CHEAT_OPTIONS_HEALTH_ACTIVE}, + {"health_menu", CHEAT_OPTIONS_HEALTH_MENU}, + {"implacable_active", CHEAT_OPTIONS_IMPLACABLE_ACTIVE}, + {"implacable_menu", CHEAT_OPTIONS_IMPLACABLE_MENU}, + {"master_menu", CHEAT_OPTIONS_MASTER_MENU}, + {"lives_active", CHEAT_OPTIONS_LIVES_ACTIVE}, + {"lives_menu", CHEAT_OPTIONS_LIVES_MENU}, + {"multihit_active", CHEAT_OPTIONS_MULTIHIT_ACTIVE}, + {"multihit_menu", CHEAT_OPTIONS_MULTIHIT_MENU}, + {"touch_of_death_active", CHEAT_OPTIONS_TOD_ACTIVE}, + {"touch_of_death_menu", CHEAT_OPTIONS_TOD_MENU} + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown cheat option (%s). \n", value); + return CHEAT_OPTIONS_NONE; + +} + +/* +* Caskey, Damon V. +* 2022-04-28 +* +* Populate global config cheats +* property from text arguments. +*/ +void lcmHandleCommandGlobalConfigCheats(const char* command_line) +{ + const char* value; + s_command_argument_reader reader; + + global_config.cheats = CHEAT_OPTIONS_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + global_config.cheats |= find_cheat_options_from_string(value); + } + +} + +/* +* Caskey, Damon V. +* 2022-06-08 +* +* Accept string input and return +* matching constant. +*/ +e_aimove get_aimove_constant_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_aimove flag; + } item_lookup_table[] = { + {"none", AIMOVE1_NONE}, + {"default", AIMOVE_SPECIAL_DEFAULT}, + {"chase", AIMOVE1_CHASE}, + {"chasez", AIMOVE1_CHASEZ}, + {"chasex", AIMOVE1_CHASEX}, + {"avoid", AIMOVE1_AVOID}, + {"avoidz", AIMOVE1_AVOIDZ}, + {"avoidx", AIMOVE1_AVOIDX}, + {"wander", AIMOVE1_WANDER}, + {"biker", AIMOVE1_BIKER}, + {"arrow", AIMOVE1_ARROW}, + {"star", AIMOVE1_STAR}, + {"bomb", AIMOVE1_BOMB}, + {"nomove", AIMOVE1_NOMOVE}, + {"ignoreholes", AIMOVE2_IGNOREHOLES}, + {"notargetidle", AIMOVE2_NOTARGETIDLE} + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown AIMove flag (%s). \n", value); + return AIMOVE1_NONE; + +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read AI movement arguments directly from the source line + and combine them with the supplied default behavior flags. +*/ +e_aimove get_aimove_from_command_line( + const char* command_line, + e_aimove default_value +) +{ + const char* value; + s_command_argument_reader reader; + e_aimove result = default_value; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= get_aimove_constant_from_string(value); + } + + return result; +} + +void lcmHandleCommandAiattack(ArgList *arglist, s_model *newchar, int *aiattackset, char *filename) +{ + char *value = GET_ARGP(1); + if(!*aiattackset) + { + newchar->aiattack = 0; + *aiattackset = 1; + } + + //main A.I. move switches + if(value && value[0]) + { + if(stricmp(value, "normal") == 0) + { + newchar->aiattack |= AIATTACK1_NORMAL; + } + else if(stricmp(value, "always") == 0) + { + newchar->aiattack |= AIATTACK1_ALWAYS; + } + else if(stricmp(value, "noattack") == 0) + { + newchar->aiattack |= AIATTACK1_NOATTACK; + } + else + { + printf("Model '%s' has invalid A.I. attack switch: '%s'\n", filename, value); + } + } + /* + value = GET_ARGP(2); + //sub A.I. move switches + if(value && value[0]) + { + + }*/ +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read weapon model names directly from the source line, + allocate an exact-sized list, and safely replace any list + owned by the model without modifying inherited storage. +*/ +void lcmHandleCommandWeapons( + const char* command_line, + s_model* newchar +) +{ + const char* value; + s_command_argument_reader reader; + s_command_token token; + s_command_token_reader count_reader = { + .cursor = command_line + }; + int* weapon_list; + size_t weapon_count = 0; + size_t weapon_index = 0; + + /* Skip the command name before counting its values. */ + command_token_reader_next(&count_reader, &token); + + while(command_token_reader_next(&count_reader, &token)) { + if(weapon_count == INT_MAX) { + borShutdown( + 1, + "Weapon list exceeds the supported integer count range.\n" + ); + } + + weapon_count++; + } + + if(!weapon_count) { + return; + } + + if(weapon_count > SIZE_MAX / sizeof(*weapon_list)) { + borShutdown(1, E_OUT_OF_MEMORY); + } + + weapon_list = malloc(sizeof(*weapon_list) * weapon_count); + + if(!weapon_list) { + borShutdown(1, E_OUT_OF_MEMORY); + } + + /* + * Weapon list arguments left to right, until we + * reach this model's number of weapons. If none, + * populate with "none" index. Otherwise we find + * a model index to populate with. + */ + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + weapon_list[weapon_index] = stricmp(value, "none") != 0 + ? get_cached_model_index(value) + : MODEL_INDEX_NONE; + + weapon_index++; + } + + if(hasFreetype(newchar, MF_WEAPONS) + && newchar->weapon_properties.weapon_list) { + free(newchar->weapon_properties.weapon_list); + } + + newchar->weapon_properties.weapon_list = weapon_list; + newchar->weapon_properties.weapon_count = (int)weapon_count; + newchar->weapon_properties.weapon_state |= WEAPON_STATE_HAS_LIST; + newchar->freetypes |= MF_WEAPONS; +} + +//fetch string between next @script and @end_script +//return end position of @end_script, count from current position +static size_t fetchInlineScript(char *buf, char **scriptbuf, ptrdiff_t *ppos, size_t *plen) +{ + ptrdiff_t pos = *ppos; + size_t len; + while(!starts_with(buf + pos, "@script")) + { + pos++; + } + pos += strclen("@script"); + len = 0; + while(!starts_with(buf + pos, "@end_script")) + { + len++; + pos++; + } + *scriptbuf = malloc(sizeof(**scriptbuf) * len + 1); + strncpy(*scriptbuf, buf + pos - len, len); + (*scriptbuf)[len] = 0; + pos += strclen("@end_script"); + + *ppos = pos; + *plen = len; + return pos; +} + +size_t lcmHandleCommandScripts(ArgList *arglist, char *buf, Script *script, char *scriptname, char *filename, int compile, int first) +{ + ptrdiff_t pos = 0; + size_t len = 0; + int result = 0; + char *scriptbuf = NULL; + Script_Init(script, scriptname, filename, first); + if(stricmp(GET_ARGP(1), "@script") == 0) + { + fetchInlineScript(buf, &scriptbuf, &pos, &len); + if(scriptbuf) + { + result = Script_AppendText(script, scriptbuf, filename); + free(scriptbuf); + } + } + else + { + result = load_script(script, GET_ARGP(1)); + } + if(result) + { + if(compile) + { + Script_Compile(script); + } + } + else + { + borShutdown(1, "Unable to load %s '%s' in file '%s'.\n", scriptname, GET_ARGP(1), filename); + } + return pos; +} + +ptrdiff_t lcmScriptAvoidComment(char *buf, size_t buf_len, ptrdiff_t pos) +{ + if ( buf && buf[0] ) + { + unsigned char c = '\0'; + ptrdiff_t pre_pos = pos; + + c = buf[pos]; + if (c == '/') + { + ++pos; + if ( pos < buf_len-1 ) + { + c = buf[pos]; + if (c == '/') + { + while( pos < buf_len && c != 0x0D && c != 0x0A ) + { + ++pos; + c = buf[pos]; + } + if (pos < buf_len) ++pos; + pos = lcmScriptAvoidComment(buf,buf_len,pos); + return pos; + } + else if (c == '*') + { + ++pos; + if ( pos >= buf_len ) return pos; + c = buf[pos]; + while( pos+1 < buf_len ) + { + if ( c == '*' ) + { + unsigned char c2 = buf[pos+1]; + + if ( c2 == '/' ) + { + pos += 2; + pos = lcmScriptAvoidComment(buf,buf_len,pos); + return pos; + } + } + ++pos; + c = buf[pos]; + } + } + else + { + return pre_pos; + } + } + } else return pre_pos; + } + + return pos; +} + +ptrdiff_t lcmScriptGetMainPos(char *buf, size_t *buf_len) +{ + if ( buf && buf[0] ) + { + size_t len = *buf_len; + ptrdiff_t pos = 0; + enum {START,PRE0,PRE1,PRE2,PRE3,M0,M1,M2,M3,P0,P1,END} current_state = START; + unsigned char c = '\0'; + int index_res = -1; + + pos = lcmScriptAvoidComment(buf,len,pos); + c = (unsigned char)tolower((int)buf[pos]); + while ( pos < len && current_state != END ) + { + switch(current_state) + { + case START: + { + if ( c == 'v' ) + { + index_res = pos; // store void main() start pos + current_state = PRE0; + } + else if ( c == ' ' || c == '\n' || c == '\r' || c == 0x0D || c == 0x0A || c == '\t' ) current_state = START; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case PRE0: + { + if ( c == 'o' ) current_state = PRE1; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case PRE1: + { + if ( c == 'i' ) current_state = PRE2; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case PRE2: + { + if ( c == 'd' ) current_state = PRE3; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case PRE3: + { + if ( c == 'm' ) current_state = M0; + else if ( c == ' ' || c == '\n' || c == '\r' || c == 0x0D || c == 0x0A || c == '\t' ) current_state = PRE3; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case M0: + { + if ( c == 'a' ) current_state = M1; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case M1: + { + if ( c == 'i' ) current_state = M2; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case M2: + { + if ( c == 'n' ) current_state = M3; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case M3: + { + if ( c == '(' ) current_state = P0; + else if ( c == ' ' || c == '\n' || c == '\r' || c == 0x0D || c == 0x0A || c == '\t' ) current_state = M3; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case P0: + { + if ( c == ')' ) current_state = P1; + else if ( c == ' ' || c == '\n' || c == '\r' || c == 0x0D || c == 0x0A || c == '\t' ) current_state = P0; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case P1: + { + if ( c == '{' ) + { + current_state = END; + if (++pos < len) + { + *buf_len = pos-index_res; + return index_res; + } + else return -1; + } + else if ( c == ' ' || c == '\n' || c == '\r' || c == 0x0D || c == 0x0A || c == '\t' ) current_state = P1; + else if ( c == '\0' ) return -1; + else current_state = START; + break; + } + case END: + default: + break; + } + ++pos; // at the end position after the '{' + if (current_state == END) + { + if (pos < len) + { + *buf_len = pos-index_res; + return index_res; + } + else return -1; + } + pos = lcmScriptAvoidComment(buf,len,pos); + c = (unsigned char)tolower((int)buf[pos]); + } // end while loop + + if (current_state == END) + { + if (pos < len) + { + *buf_len = pos-index_res; + return index_res; + } + else return -1; + } else return -1; + } + + return -1; +} + +// add main (or add vars in main) - used for animationscript file +size_t lcmScriptAddMain(char **buf) +{ + size_t len = 0, len2 = 0, buf_len = 0; + ptrdiff_t pos = 0; + char* newbuf = NULL; + + if ( (*buf) && (*buf)[0] ) + { + buf_len = len = strlen(*buf); + + pos = lcmScriptGetMainPos(*buf,&buf_len); + if ( pos == -1 ) // main() not found! + { + char mtxt[] = "\n\nvoid main()\n{\n int frame = getlocalvar(\"frame\");\n int animhandle = getlocalvar(\"animhandle\");\n\n}\n\n"; + + pos += buf_len; + pos = len; // pos before '\0' (at last char) + len2 = strlen(mtxt); + newbuf = calloc(sizeof(**buf)*len + sizeof(mtxt)*len2 + 1, sizeof(char)); + strncpy(newbuf, *buf, pos); + strcpy(newbuf+pos, mtxt); + newbuf[len+len2] = '\0'; + + free( (*buf) ); + (*buf) = newbuf; + + //printf("written main in buffer\n%s\n",newbuf); + } + else + { + int pos2 = 0; + char mtxt[] = "\n\nvoid main()\n{\n int frame = getlocalvar(\"frame\");\n int animhandle = getlocalvar(\"animhandle\");\n\n"; + + pos2 = pos + buf_len; + len2 = strlen(mtxt); + + newbuf = calloc(sizeof(**buf)*pos + sizeof(mtxt)*len2 + sizeof(**buf)*(len-pos2) + 1, sizeof(char)); + strncpy(newbuf, *buf, pos); + strcpy(newbuf+pos, mtxt); + strncpy(newbuf+pos+len2, *buf+pos2, len-pos2); + newbuf[pos+len2+len-pos2] = '\0'; + + free( (*buf) ); + (*buf) = newbuf; + + //printf("search for main in buffer\n%s pos:%d\n",*buf,pos); + } + + //printf("search for main in buffer\n%s pos:%d\n",*buf,pos); + } + + return len; +} + +// used to join animationscript @script/@cmd width animationscript file main() +size_t lcmScriptJoinMain(char **buf, char *first_buf) +{ + size_t len = 0, len2 = 0, buf_len = 0; + ptrdiff_t pos = 0; + int pcount = 0; + char* newbuf = NULL; + + if ( (*buf) && first_buf && (*buf)[0] && first_buf[0] ) + { + buf_len = len = strlen(*buf); + len2 = strlen(first_buf); + + pos = lcmScriptGetMainPos(*buf,&buf_len); + pos += buf_len; + + pcount = 1; + while(pcount > 0) + { + if( (*buf)[pos] == '{' ) ++pcount; + else if( (*buf)[pos] == '}' ) --pcount; + pos++; + } + --pos; // back to last '}' of main() + + newbuf = calloc(sizeof(**buf)*len + sizeof(*first_buf)*len2 + 1,sizeof(char)); + strncpy(newbuf, *buf, pos); + strcpy(newbuf+pos, first_buf); + strncpy(newbuf+pos+len2, *buf+pos, len-pos); + newbuf[len+len2] = '\0'; + + free( (*buf) ); + (*buf) = newbuf; + + //printf("test joined buffer\n%s\n",*buf); + } + + return len; +} + +size_t lcmScriptCopyBuffer(ArgList *arglist, char *buf, char **script_buffer) +{ + ptrdiff_t pos = 0; + size_t len = 0; + + if(stricmp(GET_ARGP(1), "@script") == 0) + { + fetchInlineScript(buf, script_buffer, &pos, &len); + } + else + { + buffer_pakfile(GET_ARGP(1), script_buffer, &len); + } + + //printf("test buffer\n%s\n",*script_buffer); + return pos; +} + +size_t lcmScriptDeleteMain(char **buf) +{ + size_t len = 0, i = 0; + ptrdiff_t pos = 0; + char *newbuf = NULL; + + if ((*buf) && (*buf)[0]) + { + len = strlen(*buf); + + while(!starts_with((*buf) + pos, "main()")) pos++; + pos += strclen("main()"); + while(!starts_with(*buf + pos, "{")) pos++; + pos += strclen("{"); + while(!starts_with(*buf + pos, "int frame = getlocalvar(\"frame\");")) pos++; + pos += strclen("int frame = getlocalvar(\"frame\");"); + while(!starts_with(*buf + pos, "int animhandle = getlocalvar(\"animhandle\");\n")) pos++; + pos += strclen("int animhandle = getlocalvar(\"animhandle\");\n"); + + for(i = len-1; ; i--) + { + if ( (*buf)[i] == '}' ) + { + len = i; + break; + } else continue; + //if (i <= 0) break; + } + + len = len-pos; + newbuf = malloc(sizeof(newbuf) * (len) + 1); + strncpy(newbuf, *buf+pos, len); + newbuf[len] = '\0'; + + free( (*buf) ); + (*buf) = newbuf; + + //printf("test delete main\n%s\n",newbuf); + } + + return len; +} + +//alloc a new model, and everything thats required, +//set all values to defaults +s_model *init_model(const int cacheindex, const int unload) +{ + //to free: newchar, newchar->offense_factors, newchar->special, newchar->animation - OK + int i; + + s_model* const newchar = calloc(1, sizeof(*newchar)); + if(!newchar) + { + borShutdown(1, (char *)E_OUT_OF_MEMORY); + } + newchar->object_type = OBJECT_TYPE_MODEL; + newchar->test_pointer = model_cache[cacheindex].name; + strcpy(newchar->test_fixed, model_cache[cacheindex].name); + + newchar->name = model_cache[cacheindex].name; // well give it a name for sort method + newchar->index = cacheindex; + newchar->isSubclassed = 0; + newchar->freetypes = MF_ALL; + + newchar->priority = 1; + + newchar->defense = defense_allocate_object(); + newchar->offense = offense_allocate_object(); + + newchar->special = calloc(1, sizeof(s_com)); + + alloc_all_scripts(&newchar->scripts); + + + + newchar->death_config_flags = DEATH_CONFIG_MACRO_DEFAULT; + + newchar->edelay = (s_edelay){ + .cap = { + .max = MAX_INT, + .min = 0 + }, + .range = { + .max = MAX_INT, + .min = 0 + }, + .factor = 1.0f + }; + + newchar->unload = unload; + newchar->jumpspecial = 0; // Kratus (10-2021) Added new property to kill or not the default jumpspecial movement + newchar->jumpspeed = default_model_jumpspeed; + newchar->jumpheight = default_model_jumpheight; // 28-12-2004 Set default jump height to 4, if not specified + newchar->runjumpheight = default_model_jumpheight; // Default jump height if a player is running + newchar->runjumpdist = 1; // Default jump distane if a player is running + newchar->grabdistance = default_model_grabdistance; // 30-12-2004 Default grabdistance is same as originally set + newchar->grabflip = 3; + newchar->throwdamage = 21; //21 // default throw damage + + newchar->icon = (s_icon){ + .def = ICON_NONE, + .die = ICON_NONE, + .get = ICON_NONE, + .mphigh = ICON_NONE, + .mplow = ICON_NONE, + .mpmax = ICON_NONE, + .mpmed = ICON_NONE, + .mpnone = ICON_NONE, + .pain = ICON_NONE, + .weapon = ICON_NONE + }; + + newchar->diesound = SAMPLE_ID_NONE; + newchar->nolife = 0; // default show life = 1 (yes) + newchar->shadow_config_flags = SHADOW_CONFIG_DEFAULT; + newchar->remove_config = REMOVE_CONFIG_HIT; // Flag set to projectiles are removed upon hitting an opponent + newchar->throwdist = default_model_jumpheight * 0.625f; + newchar->aimove = AIMOVE1_NONE; + newchar->aiattack = -1; + newchar->throwframewait = FRAME_NONE; // makes sure throw animations run normally unless throwfram is specified, added by kbandressen 10/20/06 + newchar->path = model_cache[cacheindex].path; // Record path, so script can get it without looping the whole model collection. + newchar->edgerange.x = 0; + newchar->edgerange.z = 0; + + newchar->colorsets = (s_colorset){ + .burn = COLORSET_INDEX_NONE, + .frozen = COLORSET_INDEX_NONE, + .hide_end = COLORSET_INDEX_NONE, + .hide_start = COLORSET_INDEX_NONE, + .ko = COLORSET_INDEX_NONE, + .kotype = KO_COLORSET_CONFIG_INSTANT, + .shock = COLORSET_INDEX_NONE + }; + + // Default Attack1 in chain must be referenced if not used. + for(i = 0; i < MAX_ATCHAIN; i++) + { + newchar->atchain[i] = 1; + } + newchar->chainlength = 1; + + if(magic_type == 1) + { + newchar->mprate = 1; + } + else + { + newchar->mprate = 2; + } + newchar->chargerate = newchar->guardrate = 2; + newchar->risetime.rise = -1; + newchar->sleepwait = 1000; + + newchar->guardpoints = 0; + newchar->jugglepoints = 0; + + newchar->mpswitch = -1; // switch between reduce mp or gain mp for mpstabletype 4 + + newchar->weapon_properties = (s_weapon){ + .loss_condition = WEAPON_LOSS_CONDITION_DEFAULT, + .loss_count = 3, + .loss_index = MODEL_INDEX_NONE + }; + + newchar->lifespan = LIFESPAN_DEFAULT; + newchar->summonkill = 1; + + /* + * Faction data. Faction type properties + * get defaults set downstream depending + * on the model's own type. + */ + + newchar->faction = (s_faction){ + .damage_direct = FACTION_GROUP_DEFAULT, + .damage_indirect = FACTION_GROUP_DEFAULT, + .hostile = FACTION_GROUP_DEFAULT, + .member = FACTION_GROUP_DEFAULT, + .type_damage_direct = TYPE_UNDECLARED, + .type_damage_indirect = TYPE_UNDECLARED, + .type_hostile = TYPE_UNDECLARED, + .object_type = OBJECT_TYPE_FACTION + }; + + newchar->move_config_flags = MOVE_CONFIG_NONE; + newchar->pshotno = MODEL_INDEX_NONE; + newchar->project = MODEL_INDEX_NONE; + + newchar->dust = (s_dust){ + .fall_land = MODEL_INDEX_NONE, + .jump_land = MODEL_INDEX_NONE, + .jump_start = MODEL_INDEX_NONE + }; + + newchar->bomb = MODEL_INDEX_NONE; + newchar->star = MODEL_INDEX_NONE; + newchar->knife = MODEL_INDEX_NONE; + newchar->stealth.hide = 0; + newchar->stealth.detect = 0; + newchar->attackthrottle = 0.0f; + newchar->attackthrottletime = noatk_duration * global_config.game_speed; + + /* + * max_animations originates in data/models.txt. Check + * the per-model table multiplication before allocating. + */ + if(max_animations <= 0 + || (size_t)max_animations + > SIZE_MAX / sizeof(*newchar->animation)) { + borShutdown( + 1, + "Invalid per-model animation table size (%d). " + "Check animation limits in data/models.txt.\n", + max_animations + ); + } + + newchar->animation = calloc( + (size_t)max_animations, + sizeof(*newchar->animation) + ); + if(!newchar->animation) + { + borShutdown(1, (char *)E_OUT_OF_MEMORY); + } + + // default string value, only by reference + newchar->rider = get_cached_model_index("K'"); + newchar->flash.model_hit = newchar->flash.model_block = get_cached_model_index("flash"); + + //Default sight ranges. + newchar->sight = (s_sight){ + .max = {.x = MAX_INT, .y = MAX_INT, .z = MAX_INT }, + .min = {.x = MIN_INT, .y = MIN_INT, .z = MIN_INT } + }; + + return newchar; +} + +void update_model_loadflag(s_model *model, char unload) +{ + model->unload = unload; +} + +s_model *load_cached_model(char *name, char *owner, char unload) +{ + #define LOG_CMD_TITLE "%-20s" + + s_model* newchar = NULL; + s_model* tempmodel = NULL; + + s_anim *newanim = NULL; + + char* filename = NULL; + char* buf = NULL; + char* animscriptbuf = NULL; + char* scriptbuf = NULL; + char* command = NULL; + char* value = NULL; + char* value2 = NULL; + + char fnbuf[MAX_BUFFER_LEN] = { "" }; + char namebuf[MAX_BUFFER_LEN] = { "" }; + char argbuf[MAX_ARG_LEN + 1] = { "" }; + + ArgList arglist; + + int ani_id = ANI_NONE; + int script_id = -1; + int frm_id = -1; + bool at_cmd_mergeable = false; + int i = 0; + int tempInt = 0; + int framecount = 0; + int frameset = 0; + int peek = 0; + int cacheindex = 0; + int curframe = 0; + int errorVal = 0; + int shadow_set = 0; + int idle = 0; + int frameshadow = FRAME_SHADOW_NONE; // FRAME_SHADOW_NONE will use default shadow for this entity, otherwise will use this value. + int temp_frame_sound_index = 0; + int aiattackset = 0; + int maskindex = -1; + int nopalette = 0; + + size_t size = 0; + size_t line = 0; + size_t len = 0; + size_t sbsize = 0; + size_t scriptlen = 0; + + uint64_t delay = 0; + + e_delay_unit delay_mode = DELAY_UNIT_GLOBAL; + + ptrdiff_t pos = 0; + ptrdiff_t index = 0; + + s_addframe_data add_frame_data; + + s_axis_plane_vertical_int offset = { .x = 0, + .y = 0 }; + int shadow_xz[2] = {0, 0}; + int shadow_coords[2] = {0, 0}; + + float platform[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }; + float platform_con[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }; + + s_move move = { { .x = 0, + .y = 0, + .z = 0}, + .base = -1 //-1 = Disabled, 0+ base set + }; + + s_drawmethod drawmethod; + s_drawmethod dm; + + s_frame_sound_collection* temp_frame_sound = NULL; + + /* + * Caskey, Damon V. + * 2026-06-28 (updated from 2021 node header) + * + * Temporary collision collections. As we parse the + * model file, we will build a temporary collection + * of collision data, then clone it into the model's + * target animation frame, and the discard the temporary + * collection. + * + * Index tells us which collision index to target. Any + * time we are updating a collision box, we pass the index + * to the update functions. The parse for index must + * therefore appear before any other collision parsing + * in order, so it modifies the index before we call the + * collision update functions. + */ + int temp_collision_index = 0; + s_collision_collection* temp_collision_attack = NULL; + s_collision_collection* temp_collision_body = NULL; + s_collision_collection* temp_collision_space = NULL; + + /* + * Temp pointer to make adding several collision + * coordinates in one command a little cleaner. + */ + s_hitbox* temp_collision_coordinates = NULL; + + int temp_child_spawn_index = 0; + s_child_spawn* temp_child_spawn_head = NULL; // Spawning sub entities. + + const char *shutdownmessage = NULL; + + unsigned* mapflag = NULL; // in 24bit mode, we need to know whether a colourmap is a common map or a palette + + char alert_buffer[256] = { 0 }; // So we can concatenate specifics *like range max/min* into alert messages. + + const char pre_text[] = // this is the skeleton of frame function + { + "void main()\n" + "{\n" + " int frame = getlocalvar(\"frame\");\n" + " int animhandle = getlocalvar(\"animhandle\");\n" + "\n}\n" + }; + + const char sur_text[] = // end of function text + { + "\n}\n" + }; + + const char ifid_text[] = // if expression to check animation id + { + " if(animhandle==%" PRId64 ")\n" + " {\n" + " return;\n" + " }\n" + }; + + const char endifid_text[] = // end of if + { + " return;\n" + " }\n" + }; + + const char if_text[] = // this is the if expression of frame function + { + " if(frame==%d)\n" + " {\n" + }; + + const char endif_return_text[] = //return to reduce unecessary checks + { + " return;\n" + }; + + const char endif_text[] = // end of if + { + " }\n" + } ; + + const char comma_text[] = // arguments separator + { + ", " + }; + + const char call_indent_text[] = //begin of function call + { + " " + }; + + const char call_open_text[] = + { + "(" + }; + + const char endcall_text[] = //end of function call + { + ");\n" + }; + + modelCommands cmd; + s_scripts* tempscripts; + +#ifdef DEBUG + printf("load_cached_model: %s, unload: %d\n", name, unload); +#endif + + // Start up the standard log entry. + printf("Loading '%s'", name); + + // Model already loaded but we might want to unload after level is completed. + if((tempmodel = findmodel(name)) != NULL) + { + update_model_loadflag(tempmodel, unload); + cache_model_sprites(tempmodel, 1); + return tempmodel; + } + + cacheindex = get_cached_model_index(name); + if(cacheindex < 0) + { + borShutdown(1, "Fatal: No cache entry for '%s' within '%s'\n\n", name, owner); + } + + model_cache[cacheindex].lifecycle = MODEL_LIFECYCLE_LOADING; + + // Get the text file name of model. + filename = model_cache[cacheindex].path; + printf(" from %s \n", filename); + + if(buffer_pakfile(filename, &buf, &size) != 1) + { + borShutdown(1, "Unable to open file '%s'\n\n", filename); + } + + sbsize = size + 1; + scriptbuf = (char *)malloc(sbsize); + + if(scriptbuf == NULL) + { + borShutdown(1, "Unable to create script buffer for file '%s' (%i bytes)", filename, size * 2); + } + scriptbuf[0] = 0; + + //_peek_model_name(cacheindex); + newchar = init_model(cacheindex, unload); + //newchar->name = name; + + //attention, we increase models_loaded here, this can be dangerous if we access that value later on, + //since recursive calls will change it! + models_loaded++; + addModel(newchar); + + drawmethod = plainmethod; // better than memset it to 0 + + newchar->hitwalltype = -1; // init to -1 + + //char* test = "load knife 0"; + //ParseArgs(&arglist,test,argbuf); + + // Now interpret the contents of buf line by line + while(pos < size) + { + //command = GET_ARG(0); + line++; + if(ParseArgs(&arglist, buf + pos, argbuf)) + { + command = GET_ARG(0); + cmd = getModelCommand(modelcmdlist, command); + + //if (cmd != CMD_MODEL_FRAME) framenum = 0; + + switch(cmd) + { + case CMD_MODEL_SUBCLASS: + //inherit everything from an existing, cached model + tempmodel = findmodel(GET_ARG(1)); + if (!tempmodel) + { + shutdownmessage = "tried to subclass a non-existing/not previously loaded model!"; + goto lCleanup; + } + tempscripts = newchar->scripts; + *newchar = *tempmodel; + newchar->scripts = tempscripts; + copy_all_scripts(tempmodel->scripts, newchar->scripts, 1); + newchar->isSubclassed = 1; + newchar->freetypes = MF_SCRIPTS; + break; + case CMD_MODEL_NAME: + lcmHandleCommandName(&arglist, newchar, cacheindex); + break; + case CMD_MODEL_TYPE: + lcmHandleCommandType(&arglist, newchar, filename); + break; + case CMD_MODEL_SUBTYPE: + lcmHandleCommandSubtype(&arglist, newchar, filename); + break; + case CMD_MODEL_HEALTH: + value = GET_ARG(1); + newchar->health = atoi(value); + break; + case CMD_MODEL_PRIORITY: + value = GET_ARG(1); + newchar->priority = atoi(value); + break; + case CMD_MODEL_SCROLL: + value = GET_ARG(1); + newchar->scroll = atof(value); + break; + case CMD_MODEL_MP: //Left for backward compatability. See mpset. // mp values to put max mp for player by tails + value = GET_ARG(1); + newchar->mp = atoi(value); + break; + case CMD_MODEL_NOLIFE: // Feb 25, 2005 - Flag to display enemy life or not + newchar->nolife = GET_INT_ARG(1); + break; + case CMD_MODEL_MAKEINV: // Mar 12, 2005 - If a value is supplied, corresponds to amount of time the player spawns invincible + newchar->makeinv = GET_FLOAT_ARG(1) * global_config.game_speed; + if(GET_INT_ARG(2)) + { + newchar->makeinv = -newchar->makeinv; + } + break; + case CMD_MODEL_RISEINV: + newchar->riseinv = GET_FLOAT_ARG(1) * global_config.game_speed; + if(GET_INT_ARG(2)) + { + newchar->riseinv = -newchar->riseinv; + } + break; + case CMD_MODEL_LOAD: + value = GET_ARG(1); + tempmodel = findmodel(value); + if(!tempmodel) + { + load_cached_model(value, name, GET_INT_ARG(2)); + } + else + { + update_model_loadflag(tempmodel, GET_INT_ARG(2)); + } + break; + case CMD_MODEL_SCORE: + if(!command_argument_get_int64(GET_ARG(1), &newchar->score)) + { + borShutdown( + 1, + "Invalid signed 64-bit score '%s' in %s, line %zu.\n", + GET_ARG(1), + filename, + line + ); + } + newchar->multiple = GET_INT_ARG(2); // New var multiple for force/scoring + break; + case CMD_MODEL_SMARTBOMB: + lcmHandleCommandSmartbomb(&arglist, newchar, filename); + break; + case CMD_MODEL_BOUNCE: + newchar->bounce = GET_INT_ARG(1); + break; + case CMD_MODEL_NOQUAKE: // Mar 12, 2005 - Flag to determine if entity shakes screen + newchar->quake_config |= GET_INT_ARG(1) ? QUAKE_CONFIG_DISABLE_SCREEN : 0; + newchar->quake_config |= GET_INT_ARG(2) ? QUAKE_CONFIG_DISABLE_SELF : 0; + break; + case CMD_MODEL_BLOCK_CONFIG: + + newchar->block_config_flags = block_get_config_flags_from_command_line(buf + pos); + break; + + case CMD_MODEL_BLOCKBACK: + + /* Legacy value to bitmask. */ + + tempInt = GET_INT_ARG(1); + + if (tempInt) + { + newchar->block_config_flags |= BLOCK_CONFIG_BACK; + } + else + { + newchar->block_config_flags &= ~BLOCK_CONFIG_BACK; + } + + break; + + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_CONFIG: + + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_config = direction_get_adjustment_from_argument(filename, command, GET_ARG(1)); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_BASE_MAX: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.base.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_BASE_MIN: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.base.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_X_MAX: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.x.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_X_MIN: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.x.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_Y_MAX: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.y.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_Y_MIN: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.y.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_Z_MAX: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.z.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_DIRECTION_ADJUST_RANGE_Z_MIN: + child_follow_getsert_property(&newchar->child_follow)->direction_adjust_range.z.min = GET_INT_ARG(1); + break; + + case CMD_MODEL_CHILD_FOLLOW_OFFSET_X: + + child_follow_getsert_property(&newchar->child_follow)->follow_offset.x = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_OFFSET_Y: + child_follow_getsert_property(&newchar->child_follow)->follow_offset.y = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_OFFSET_Z: + child_follow_getsert_property(&newchar->child_follow)->follow_offset.z = GET_INT_ARG(1); + break; + + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_BASE_MAX: + child_follow_getsert_property(&newchar->child_follow)->recall_range.base.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_BASE_MIN: + child_follow_getsert_property(&newchar->child_follow)->recall_range.base.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_X_MAX: + child_follow_getsert_property(&newchar->child_follow)->recall_range.x.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_X_MIN: + child_follow_getsert_property(&newchar->child_follow)->recall_range.x.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_Y_MAX: + child_follow_getsert_property(&newchar->child_follow)->recall_range.y.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_Y_MIN: + child_follow_getsert_property(&newchar->child_follow)->recall_range.y.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_Z_MAX: + child_follow_getsert_property(&newchar->child_follow)->recall_range.z.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RECALL_Z_MIN: + child_follow_getsert_property(&newchar->child_follow)->recall_range.z.min = GET_INT_ARG(1); + break; + + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_BASE_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.base.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_BASE_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.base.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_X_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.x.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_X_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.x.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_Y_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.y.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_Y_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.y.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_Z_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.z.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_RUN_Z_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_run_range.z.min = GET_INT_ARG(1); + break; + + case CMD_MODEL_CHILD_FOLLOW_RANGE_BASE_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_range.base.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_BASE_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_range.base.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_X_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_range.x.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_X_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_range.x.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_Y_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_range.y.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_Y_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_range.y.min = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_Z_MAX: + child_follow_getsert_property(&newchar->child_follow)->follow_range.z.max = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RANGE_Z_MIN: + child_follow_getsert_property(&newchar->child_follow)->follow_range.z.min = GET_INT_ARG(1); + break; + + case CMD_MODEL_CHILD_FOLLOW_RECALL_OFFSET_X: + + child_follow_getsert_property(&newchar->child_follow)->recall_offset.x = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RECALL_OFFSET_Y: + child_follow_getsert_property(&newchar->child_follow)->recall_offset.y = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_FOLLOW_RECALL_OFFSET_Z: + child_follow_getsert_property(&newchar->child_follow)->recall_offset.z = GET_INT_ARG(1); + break; + + case CMD_MODEL_HITENEMY: // Flag to determine if an enemy projectile will hit enemies + value = GET_ARG(1); + if(atoi(value) == 1) + { + newchar->faction.type_damage_direct = newchar->faction.type_hostile = TYPE_PLAYER | TYPE_ENEMY; + } + else if(atoi(value) == 2) + { + newchar->faction.type_damage_direct = newchar->faction.type_hostile = TYPE_PLAYER; + } + + newchar->ground = GET_INT_ARG(2); // Added to determine if enemies are damaged with mid air projectiles or ground only + break; + + /* Faction set up. */ + case CMD_MODEL_FACTION_GROUP_DAMAGE_DIRECT: + newchar->faction.damage_direct = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_MODEL_FACTION_GROUP_DAMAGE_INDIRECT: + newchar->faction.damage_indirect = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_MODEL_FACTION_GROUP_HOSTILE: + newchar->faction.hostile = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_MODEL_FACTION_GROUP_MEMBER: + newchar->faction.member = faction_get_flags_from_command_line(buf + pos); + break; + + /* Legacy type based faction */ + case CMD_MODEL_FACTION_TYPE_HOSTILE: + case CMD_MODEL_HOSTILE: + newchar->faction.type_hostile = get_type_from_command_line(buf + pos); + break; + + case CMD_MODEL_FACTION_TYPE_DAMAGE_DIRECT: + case CMD_MODEL_CANDAMAGE: + newchar->faction.type_damage_direct = get_type_from_command_line(buf + pos); + break; + + case CMD_MODEL_FACTION_TYPE_DAMAGE_INDIRECT: + case CMD_MODEL_PROJECTILEHIT: + newchar->faction.type_damage_indirect = get_type_from_command_line(buf + pos); + break; + + case CMD_MODEL_AIMOVE: + newchar->aimove = get_aimove_from_command_line(buf + pos, AIMOVE1_NORMAL); + break; + case CMD_MODEL_AIATTACK: + lcmHandleCommandAiattack(&arglist, newchar, &aiattackset, filename); + break; + case CMD_MODEL_MOVE_CONFIG: + newchar->move_config_flags = get_move_config_flags_from_command_line(buf + pos); + break; + case CMD_MODEL_SUBJECT_TO_BASEMAP: + + /* Legacy code allowed -1 or 0 for False. */ + if (GET_INT_ARG(1) > 0) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_BASEMAP; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_BASEMAP; + } + + break; + case CMD_MODEL_SUBJECT_TO_WALL: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_WALL; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_WALL; + } + + break; + case CMD_MODEL_SUBJECT_TO_HOLE: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_HOLE; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_HOLE; + } + + break; + case CMD_MODEL_SUBJECT_TO_PLATFORM: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_PLATFORM; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_PLATFORM; + } + + break; + case CMD_MODEL_SUBJECT_TO_OBSTACLE: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_OBSTACLE; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_OBSTACLE; + } + + break; + case CMD_MODEL_SUBJECT_TO_GRAVITY: + + /* Legacy code allowed -1 or 0 for False. */ + if (GET_INT_ARG(1) > 0) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_GRAVITY; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + } + + break; + case CMD_MODEL_SUBJECT_TO_SCREEN: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_SCREEN; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_SCREEN; + } + + break; + case CMD_MODEL_SUBJECT_TO_MINZ: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_MIN_Z; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_MIN_Z; + } + + break; + case CMD_MODEL_SUBJECT_TO_MAXZ: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_MAX_Z; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_MAX_Z; + } + + break; + case CMD_MODEL_NO_ADJUST_BASE: + + /* Legacy code allowed -1 or 0 for False. */ + if (GET_INT_ARG(1) > 0) + { + newchar->move_config_flags |= MOVE_CONFIG_NO_ADJUST_BASE; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + } + + break; + case CMD_MODEL_INSTANTITEMDEATH: + newchar->instantitemdeath = GET_INT_ARG(1); + break; + case CMD_MODEL_SECRET: + newchar->secret = GET_INT_ARG(1); + newchar->clearcount = GET_INT_ARG(2); + break; + case CMD_MODEL_MODELFLAG: // Legacy model copy flag. + + + lcmHandleCommandModelFlag(filename, command, buf + pos, newchar); + + break; + // weapons + case CMD_MODEL_WEAPLOSS: + + /* Legacy weapon loss. */ + + newchar->weapon_properties.loss_condition = weapon_loss_condition_interpret_from_legacy_weaploss(WEAPON_LOSS_CONDITION_NONE, GET_INT_ARG(1)); + newchar->weapon_properties.loss_index = GET_INT_ARG(2); + break; + + case CMD_MODEL_WEAPON_LOSS_CONFIG: + + lcmHandleCommandWeaponLossCondition(buf + pos, newchar); + break; + + case CMD_MODEL_WEAPON_LOSS_INDEX: + + /* Weapon list entry we revert to when losing weapon. */ + + newchar->weapon_properties.loss_index = GET_INT_ARG(1); + + break; + + case CMD_MODEL_WEAPNUM: + newchar->weapon_properties.weapon_index = GET_INT_ARG(1); + break; + case CMD_MODEL_PROJECT: // New projectile subtype + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->project = MODEL_INDEX_NONE; + } + else + { + newchar->project = get_cached_model_index(value); + } + break; + case CMD_MODEL_WEAPONS: + lcmHandleCommandWeapons(buf + pos, newchar); + break; + case CMD_MODEL_SHOOTNUM: + newchar->weapon_properties.use_count = GET_INT_ARG(1); + break; + case CMD_MODEL_RELOAD: + newchar->weapon_properties.use_add = GET_INT_ARG(1); + break; + case CMD_MODEL_TYPESHOT: + if (GET_INT_ARG(1)) + { + newchar->weapon_properties.weapon_state |= WEAPON_STATE_LIMITED_USE; + } + + break; + case CMD_MODEL_COUNTER: + newchar->weapon_properties.loss_count = GET_INT_ARG(1); + break; + case CMD_MODEL_ANIMAL: + if (GET_INT_ARG(1)) + { + newchar->weapon_properties.weapon_state |= WEAPON_STATE_ANIMAL; + } + break; + case CMD_MODEL_RIDER: + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->rider = MODEL_INDEX_NONE; + } + else + { + newchar->rider = get_cached_model_index(value); + } + break; + case CMD_MODEL_KNIFE: + case CMD_MODEL_FIREB: + case CMD_MODEL_PLAYSHOT: + case CMD_MODEL_PLAYSHOTW: + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->knife = MODEL_INDEX_NONE; + } + else + { + newchar->knife = get_cached_model_index(value); + } + break; + case CMD_MODEL_PLAYSHOTNO: + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->pshotno = MODEL_INDEX_NONE; + } + else + { + newchar->pshotno = get_cached_model_index(value); + } + break; + case CMD_MODEL_STAR: + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->star = MODEL_INDEX_NONE; + } + else + { + newchar->star = get_cached_model_index(value); + } + break; + case CMD_MODEL_BOMB: + case CMD_MODEL_PLAYBOMB: + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->bomb = MODEL_INDEX_NONE; + } + else + { + newchar->bomb = get_cached_model_index(value); + } + break; + case CMD_MODEL_FLASH: // Now all characters can have their own flash - even projectiles (useful for blood) + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->flash.model_hit = MODEL_INDEX_NONE; + } + else + { + newchar->flash.model_hit = get_cached_model_index(value); + } + break; + case CMD_MODEL_BFLASH: // Flash that is spawned if an attack is blocked + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->flash.model_block = MODEL_INDEX_NONE; + } + else + { + newchar->flash.model_block = get_cached_model_index(value); + } + break; + case CMD_MODEL_DUST: // Spawned when hitting the ground to "kick up dust" + value = GET_ARG(1); + if(stricmp(value, "none") == 0) + { + newchar->dust.fall_land = MODEL_INDEX_NONE; + } + else + { + newchar->dust.fall_land = get_cached_model_index(value); + } + value = GET_ARG(2); + if(stricmp(value, "none") == 0) + { + newchar->dust.jump_land = MODEL_INDEX_NONE; + } + else + { + newchar->dust.jump_land = get_cached_model_index(value); + } + value = GET_ARG(3); + if(stricmp(value, "none") == 0) + { + newchar->dust.jump_start = MODEL_INDEX_NONE; + } + else + { + newchar->dust.jump_start = get_cached_model_index(value); + } + break; + case CMD_MODEL_BRANCH: // for endlevel item's level branch + value = GET_ARG(1); + if(!newchar->branch) + { + newchar->branch = malloc(MAX_NAME_LEN + 1); + newchar->branch[0] = 0; + } + strncpy(newchar->branch, value, MAX_NAME_LEN); + break; + case CMD_MODEL_CANTGRAB: + case CMD_MODEL_NOTGRAB: + tempInt = GET_INT_ARG(1); + if(tempInt == 2) + { + newchar->grab_force = -999999; + } + else + { + newchar->grab_resistance = 1; + } + break; + case CMD_MODEL_ANTIGRAB: // a can grab b: a->grab_resistance - b->grab_force <=0 + newchar->grab_resistance = GET_INT_ARG(1); + break; + case CMD_MODEL_GRABFORCE: + newchar->grab_force = GET_INT_ARG(1); + break; + case CMD_MODEL_GRABBACK: + newchar->grabback = GET_INT_ARG(1); + break; + case CMD_MODEL_OFFSCREENKILL: + newchar->offscreenkill = GET_INT_ARG(1); + break; + case CMD_MODEL_ONAF: + newchar->offscreen_noatk_factor = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_FALLDIE: + case CMD_MODEL_DEATH: + + tempInt = GET_INT_ARG(1); + + newchar->death_config_flags = death_config_get_value_from_falldie(newchar->death_config_flags, tempInt); + + break; + + case CMD_MODEL_DEATH_CONFIG: + + newchar->death_config_flags = death_get_config_flags_from_command_line(buf + pos, 1); + break; + + case CMD_MODEL_SPEED: + value = GET_ARG(1); + newchar->speed.x = atof(value); + newchar->speed.x /= 10; + if(newchar->speed.x < 0.5) + { + newchar->speed.x = 0.5; + } + if(newchar->speed.x > 30) + { + newchar->speed.x = 30; + } + break; + case CMD_MODEL_SPEEDF: + value = GET_ARG(1); + newchar->speed.x = atof(value); + break; + case CMD_MODEL_JUMPSPECIAL: // Kratus (10-2021) Added new jumpspecial property + newchar->jumpspecial = GET_INT_ARG(1); + break; + case CMD_MODEL_JUMPSPEED: + value = GET_ARG(1); + newchar->jumpspeed = atof(value); + newchar->jumpspeed /= 10; + break; + case CMD_MODEL_JUMPSPEEDF: + value = GET_ARG(1); + newchar->jumpspeed = atof(value); + break; + case CMD_MODEL_ANTIGRAVITY: + value = GET_ARG(1); + newchar->antigravity = atof(value); + newchar->antigravity /= 100; + break; + case CMD_MODEL_STEALTH: + newchar->stealth.hide = GET_INT_ARG(1); + newchar->stealth.detect = GET_INT_ARG(2); + break; + case CMD_MODEL_JUGGLEPOINTS: + value = GET_ARG(1); + newchar->jugglepoints = atoi(value); + break; + case CMD_MODEL_RISEATTACKTYPE: + value = GET_ARG(1); + newchar->riseattacktype = atoi(value); + break; + case CMD_MODEL_GUARDPOINTS: + value = GET_ARG(1); + newchar->guardpoints = atoi(value); + break; + case CMD_MODEL_DEFENSE: + + /* + * DEFENSE_PARAMETER_LEGACY triggers muti-parameter read + * from 3.0 builds. See function for details. + */ + + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_LEGACY); + break; + case CMD_MODEL_DEFENSE_BLOCK_DAMAGE_ADJUST: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_DAMAGE_ADJUST); + break; + case CMD_MODEL_DEFENSE_BLOCK_DAMAGE_MAX: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_DAMAGE_MAX); + break; + case CMD_MODEL_DEFENSE_BLOCK_DAMAGE_MIN: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_DAMAGE_MIN); + break; + case CMD_MODEL_DEFENSE_BLOCK_POWER: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_POWER); + break; + case CMD_MODEL_DEFENSE_BLOCK_RATIO: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_RATIO); + break; + case CMD_MODEL_DEFENSE_BLOCK_THRESHOLD: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_THRESHOLD); + break; + case CMD_MODEL_DEFENSE_BLOCK_TYPE: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_BLOCK_TYPE); + break; + case CMD_MODEL_DEFENSE_DAMAGE_ADJUST: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_DAMAGE_ADJUST); + break; + case CMD_MODEL_DEFENSE_DAMAGE_MAX: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_DAMAGE_MAX); + break; + case CMD_MODEL_DEFENSE_DAMAGE_MIN: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_DAMAGE_MIN); + break; + case CMD_MODEL_DEFENSE_DEATH_CONFIG: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_DEATH_CONFIG); + break; + case CMD_MODEL_DEFENSE_FACTOR: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_FACTOR); + break; + case CMD_MODEL_DEFENSE_KNOCKDOWN: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_KNOCKDOWN); + break; + case CMD_MODEL_DEFENSE_PAIN: + defense_setup_from_arg(filename, command, buf + pos, newchar->defense, &arglist, DEFENSE_PARAMETER_PAIN); + break; + case CMD_MODEL_OFFENSE: + offense_setup_from_arg(filename, command, newchar->offense, &arglist, OFFENSE_PARAMETER_LEGACY); + break; + case CMD_MODEL_OFFENSE_DAMAGE_ADJUST: + offense_setup_from_arg(filename, command, newchar->offense, &arglist, OFFENSE_PARAMETER_DAMAGE_ADJUST); + break; + case CMD_MODEL_OFFENSE_DAMAGE_MAX: + offense_setup_from_arg(filename, command, newchar->offense, &arglist, OFFENSE_PARAMETER_DAMAGE_MAX); + break; + case CMD_MODEL_OFFENSE_DAMAGE_MIN: + offense_setup_from_arg(filename, command, newchar->offense, &arglist, OFFENSE_PARAMETER_DAMAGE_MIN); + break; + case CMD_MODEL_OFFENSE_FACTOR: + offense_setup_from_arg(filename, command, newchar->offense, &arglist, OFFENSE_PARAMETER_FACTOR); + break; + + case CMD_MODEL_HEIGHT: + newchar->size.y = GET_INT_ARG(1); + break; + case CMD_MODEL_JUMPHEIGHT: + newchar->jumpheight = GET_FLOAT_ARG(1); + break; + + case CMD_MODEL_AIR_CONTROL: + + lcmHandleCommandAirControl(buf + pos, newchar); + break; + + case CMD_MODEL_JUMPMOVE: + + newchar->air_control = air_control_interpret_from_legacy_jumpmove_x(newchar->air_control, GET_INT_ARG(1)); + newchar->air_control = air_control_interpret_from_legacy_jumpmove_z(newchar->air_control, GET_INT_ARG(2)); + break; + + case CMD_MODEL_WALKOFFMOVE: + + newchar->air_control = air_control_interpret_from_legacy_walkoffmove_x(newchar->air_control, GET_INT_ARG(1)); + newchar->air_control = air_control_interpret_from_legacy_walkoffmove_z(newchar->air_control, GET_INT_ARG(2));; + break; + + case CMD_MODEL_KNOCKDOWNCOUNT: + newchar->knockdowncount = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_GRABDISTANCE: + newchar->grabdistance = GET_FLOAT_ARG(1); // 30-12-2004 and store for character + break; + case CMD_MODEL_GRABFLIP: + newchar->grabflip = GET_INT_ARG(1); + break; + case CMD_MODEL_GRABFINISH: + newchar->grabfinish = GET_INT_ARG(1); + break; + case CMD_MODEL_THROWDAMAGE: + newchar->throwdamage = GET_INT_ARG(1); + break; + case CMD_MODEL_SHADOW: + newchar->shadow = GET_INT_ARG(1); + + tempInt= GET_INT_ARG(2); + + newchar->shadow_config_flags = shadow_get_config_from_legacy_shadowbase(newchar->shadow_config_flags, tempInt); + + break; + case CMD_MODEL_SHADOW_CONFIG: + + newchar->shadow_config_flags = shadow_get_config_flags_from_command_line(buf + pos); + + break; + case CMD_MODEL_GFXSHADOW: + + /* Gfxshadow. */ + tempInt = GET_INT_ARG(1); + newchar->shadow_config_flags = shadow_get_config_from_legacy_gfxshadow(newchar->shadow_config_flags, tempInt); + + /* Shadowbase. */ + tempInt = GET_INT_ARG(2); + newchar->shadow_config_flags = shadow_get_config_from_legacy_shadowbase(newchar->shadow_config_flags, tempInt); + + break; + + case CMD_MODEL_AIRONLY: // Shadows display in air only? + + tempInt = GET_INT_ARG(1); + + newchar->shadow_config_flags = shadow_get_config_from_legacy_aironly(newchar->shadow_config_flags, tempInt); + + break; + case CMD_MODEL_FMAP: // Map that corresponds with the remap when a character is frozen + newchar->colorsets.frozen = GET_INT_ARG(1); + break; + case CMD_MODEL_KOMAP: + newchar->colorsets.ko = GET_INT_ARG(1); //Remap. + newchar->colorsets.kotype = komap_type_get_value_from_argument(filename, command, GET_ARG(2)); + break; + case CMD_MODEL_MAP_BURN_INDEX: + newchar->colorsets.burn = GET_INT_ARG(1); + break; + case CMD_MODEL_MAP_KO_INDEX: + newchar->colorsets.ko = GET_INT_ARG(1); + break; + case CMD_MODEL_MAP_KO_TYPE: + newchar->colorsets.kotype = komap_type_get_value_from_argument(filename, command, GET_ARG(1)); + break; + case CMD_MODEL_MAP_FREEZE_INDEX: + newchar->colorsets.frozen = GET_INT_ARG(1); + break; + case CMD_MODEL_MAP_SHOCK_INDEX: + newchar->colorsets.shock = GET_INT_ARG(1); + break; + case CMD_MODEL_HMAP: // Maps range unavailable to player in select screen. + newchar->colorsets.hide_start = GET_INT_ARG(1); //First unavailable map. + newchar->colorsets.hide_end = GET_INT_ARG(2); //Last unavailable map. + break; + case CMD_MODEL_SETLAYER: + newchar->setlayer = GET_INT_ARG(1); + break; + case CMD_MODEL_TOFLIP: // Flag to determine if flashes images will be flipped or not + newchar->toflip = GET_INT_ARG(1); + break; + case CMD_MODEL_NODIEBLINK: + // Added to determine if dying animation blinks or not + + tempInt = GET_INT_ARG(1); + + newchar->death_config_flags = death_config_get_value_from_nodieblink(newchar->death_config_flags, tempInt); + + break; + case CMD_MODEL_NOATFLASH: // Flag to determine if an opponents attack spawns their flash or not + newchar->noatflash = GET_INT_ARG(1); + break; + case CMD_MODEL_NOMOVE: + + /* + * Legacy no move. Set move constraint flags + * to match the old nomove parameters. + */ + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_NO_MOVE; + newchar->pain_config_flags |= PAIN_CONFIG_FALL_DISABLE; + } + + if (GET_INT_ARG(2)) + { + newchar->move_config_flags |= MOVE_CONFIG_NO_FLIP; + } + + break; + case CMD_MODEL_NODROP: + + tempInt = GET_INT_ARG(1); + + newchar->pain_config_flags &= ~(PAIN_CONFIG_FALL_DISABLE | PAIN_CONFIG_FALL_DISABLE_AIR); + + switch (tempInt) + { + default: + case 0: + break; + case 1: + newchar->pain_config_flags |= PAIN_CONFIG_FALL_DISABLE; + break; + case 2: + newchar->pain_config_flags |= (PAIN_CONFIG_FALL_DISABLE | PAIN_CONFIG_FALL_DISABLE_AIR); + break; + } + + break; + case CMD_MODEL_THOLD: + // Threshold for enemies/players block + newchar->thold = GET_INT_ARG(1); + break; + + case CMD_MODEL_RUN_CONFIG: + newchar->run_config_flags = run_get_config_flags_from_command_line(buf + pos, 1); + break; + case CMD_MODEL_RUNNING: + // The speed at which the player runs + newchar->runspeed = GET_FLOAT_ARG(1); + newchar->runspeed /= 10; + newchar->runjumpheight = GET_FLOAT_ARG(2); // The height at which a player jumps when running + newchar->runjumpdist = GET_FLOAT_ARG(3); // The distance a player jumps when running + + tempInt = GET_INT_ARG(4); + + newchar->run_config_flags |= (RUN_CONFIG_X_LEFT_ENABLED | RUN_CONFIG_X_LEFT_INITIAL | RUN_CONFIG_X_RIGHT_ENABLED | RUN_CONFIG_X_RIGHT_INITIAL); + + if (tempInt) + { + newchar->run_config_flags |= (RUN_CONFIG_Z_DOWN_ENABLED | RUN_CONFIG_Z_UP_ENABLED); + } + else + { + newchar->run_config_flags &= ~(RUN_CONFIG_Z_DOWN_ENABLED | RUN_CONFIG_Z_UP_ENABLED); + } + + tempInt = GET_INT_ARG(5); + + if (tempInt) + { + newchar->run_config_flags |= RUN_CONFIG_LAND; + } + else + { + newchar->run_config_flags &= ~RUN_CONFIG_LAND; + } + + break; + case CMD_MODEL_RUNNING_CONTINUE: + tempInt = GET_INT_ARG(1); + + if (tempInt) + { + newchar->run_config_flags |= RUN_CONFIG_LAND; + } + else + { + newchar->run_config_flags &= ~RUN_CONFIG_LAND; + } + break; + case CMD_MODEL_RUNNING_JUMP_VELOCITY_X: + newchar->runjumpdist = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_RUNNING_JUMP_VELOCITY_Y: + newchar->runjumpheight = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_RUNNING_SPEED: + newchar->runspeed = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_RUNNING_Z_MOVE: + tempInt = GET_INT_ARG(1); + + if (tempInt) + { + newchar->run_config_flags |= (RUN_CONFIG_Z_DOWN_ENABLED | RUN_CONFIG_Z_UP_ENABLED); + } + else + { + newchar->run_config_flags &= ~(RUN_CONFIG_Z_DOWN_ENABLED | RUN_CONFIG_Z_UP_ENABLED); + } + + break; + case CMD_MODEL_BLOCKODDS: + // Odds that an attack will hit an enemy (1 : blockodds) + newchar->blockodds = GET_INT_ARG(1); + break; + case CMD_MODEL_HOLDBLOCK: + + tempInt = GET_INT_ARG(1); + + newchar->block_config_flags &= ~(BLOCK_CONFIG_HOLD_IMPACT | BLOCK_CONFIG_HOLD_INFINITE); + + switch (tempInt) + { + default: + case 0: + /* Do nothing. */ + break; + case 1: + newchar->block_config_flags |= BLOCK_CONFIG_HOLD_IMPACT; + break; + case 2: + newchar->block_config_flags |= (BLOCK_CONFIG_HOLD_IMPACT | BLOCK_CONFIG_HOLD_INFINITE); + break; + } + + break; + case CMD_MODEL_BLOCKPAIN: + newchar->blockpain = GET_INT_ARG(1); + break; + case CMD_MODEL_NOPASSIVEBLOCK: + tempInt = GET_INT_ARG(1); + + if (tempInt) + { + newchar->block_config_flags |= BLOCK_CONFIG_ACTIVE; + } + else + { + newchar->block_config_flags &= ~BLOCK_CONFIG_ACTIVE; + } + + break; + case CMD_MODEL_EDELAY: + tempInt = GET_INT_ARG(1); + + if (tempInt == EDELAY_MODE_MULTIPLY) + { + newchar->edelay.factor = GET_FLOAT_ARG(2); + } + else + { + newchar->edelay.modifier = GET_INT_ARG(2); + } + + newchar->edelay.cap.min = GET_INT_ARG(3); + newchar->edelay.cap.max = GET_INT_ARG(4); + newchar->edelay.range.min = GET_INT_ARG(5); + newchar->edelay.range.max = GET_INT_ARG(6); + break; + + case CMD_MODEL_ENHANCED_DELAY_CAP_MAX: + + newchar->edelay.cap.max = GET_INT_ARG(1); + break; + + case CMD_MODEL_ENHANCED_DELAY_CAP_MIN: + + newchar->edelay.cap.min = GET_INT_ARG(1); + break; + + case CMD_MODEL_ENHANCED_DELAY_MODIFIER: + + newchar->edelay.modifier = GET_INT_ARG(1); + break; + + case CMD_MODEL_ENHANCED_DELAY_MULTIPLIER: + + newchar->edelay.factor = GET_FLOAT_ARG(1); + break; + + case CMD_MODEL_ENHANCED_DELAY_RANGE_MAX: + + newchar->edelay.range.max = GET_INT_ARG(1); + break; + + case CMD_MODEL_ENHANCED_DELAY_RANGE_MIN: + + newchar->edelay.range.min = GET_INT_ARG(1); + break; + + case CMD_MODEL_PAIN_BACK: + + tempInt = GET_INT_ARG(1); + + if (tempInt) + { + newchar->pain_config_flags |= PAIN_CONFIG_BACK_PAIN; + } + else + { + newchar->pain_config_flags &= ~PAIN_CONFIG_BACK_PAIN; + } + + break; + case CMD_MODEL_PAIN_CONFIG: + + tempInt = GET_INT_ARG(1); + + newchar->pain_config_flags = pain_get_config_flags_from_command_line(buf + pos); + + break; + + case CMD_MODEL_PAINGRAB: + newchar->paingrab = GET_INT_ARG(1); + break; + case CMD_MODEL_THROW: + newchar->throwdist = GET_FLOAT_ARG(1); + newchar->throwheight = GET_FLOAT_ARG(2); + break; + case CMD_MODEL_EDGERANGE: + newchar->edgerange.x = GET_FLOAT_ARG(1); + newchar->edgerange.z = GET_FLOAT_ARG(2); + break; + case CMD_MODEL_ENTITYPUSHING: + newchar->entitypushing = GET_INT_ARG(1); + break; + case CMD_MODEL_PUSHINGFACTOR: + newchar->pushingfactor = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_GRABWALK: + newchar->grabwalkspeed = GET_FLOAT_ARG(1); + newchar->grabwalkspeed /= 10; + if(newchar->grabwalkspeed < 0.5) + { + newchar->grabwalkspeed = 0.5; + } + break; + case CMD_MODEL_GRABTURN: + newchar->grabturn = GET_INT_ARG(1); + break; + case CMD_MODEL_THROWFRAMEWAIT: + newchar->throwframewait = GET_INT_ARG(1); + break; + case CMD_MODEL_DIESOUND: + newchar->diesound = sound_load_sample(GET_ARG(1), packfile, 1, 0); + break; + case CMD_MODEL_ICON: + value = GET_ARG(1); + if(newchar->icon.def > -1) + { + shutdownmessage = "model has multiple icons defined"; + goto lCleanup; + } + newchar->icon.def = loadsprite(value, 0, 0, pixelformat); //use same palette as the owner + newchar->icon.pain = newchar->icon.def; + newchar->icon.die = newchar->icon.def; + newchar->icon.get = newchar->icon.def; + newchar->icon.usemap = GET_INT_ARG(2); //be more friendly to some old mods which don't care about icon remap + break; + case CMD_MODEL_ICONPAIN: + value = GET_ARG(1); + newchar->icon.pain = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONDIE: + value = GET_ARG(1); + newchar->icon.die = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONGET: + value = GET_ARG(1); + newchar->icon.get = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONW: + value = GET_ARG(1); + newchar->icon.weapon = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONMPHALF: + value = GET_ARG(1); + newchar->icon.mpmed = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONMPHIGH: + value = GET_ARG(1); + newchar->icon.mphigh = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONMPLOW: + value = GET_ARG(1); + newchar->icon.mplow = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONMPMAX: + value = GET_ARG(1); + newchar->icon.mpmax = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_ICONMPNONE: + value = GET_ARG(1); + newchar->icon.mpnone = loadsprite(value, 0, 0, pixelformat); + break; + case CMD_MODEL_PARROW: + // Image that is displayed when player 1 spawns invincible + value = GET_ARG(1); + newchar->player_arrow[0].sprite = loadsprite(value, 0, 0, pixelformat); + newchar->player_arrow[0].position.x = GET_INT_ARG(2); + newchar->player_arrow[0].position.y = GET_INT_ARG(3); + break; + case CMD_MODEL_PARROW2: + // Image that is displayed when player 2 spawns invincible + value = GET_ARG(1); + newchar->player_arrow[1].sprite = loadsprite(value, 0, 0, pixelformat); + newchar->player_arrow[1].position.x = GET_INT_ARG(2); + newchar->player_arrow[1].position.y = GET_INT_ARG(3); + break; + case CMD_MODEL_PARROW3: + value = GET_ARG(1); + newchar->player_arrow[2].sprite = loadsprite(value, 0, 0, pixelformat); + newchar->player_arrow[2].position.x = GET_INT_ARG(2); + newchar->player_arrow[2].position.y = GET_INT_ARG(3); + break; + case CMD_MODEL_PARROW4: + value = GET_ARG(1); + newchar->player_arrow[3].sprite = loadsprite(value, 0, 0, pixelformat); + newchar->player_arrow[3].position.x = GET_INT_ARG(2); + newchar->player_arrow[3].position.y = GET_INT_ARG(3); + break; + case CMD_MODEL_ATCHAIN: + newchar->chainlength = 0; + for(i = 0; i < MAX_ATCHAIN; i++) + { + newchar->atchain[i] = GET_INT_ARG(i + 1); + if(newchar->atchain[i] < 0) + { + newchar->atchain[i] = 0; + } + if(newchar->atchain[i] > max_attacks) + { + newchar->atchain[i] = max_attacks; + } + if(newchar->atchain[i]) + { + newchar->chainlength = i + 1; + } + } + break; + case CMD_MODEL_COMBOSTYLE: + newchar->combostyle = GET_INT_ARG(1); + break; + case CMD_MODEL_CREDIT: + newchar->credit = GET_INT_ARG(1); + break; + case CMD_MODEL_NOPAIN: + tempInt = GET_INT_ARG(1); + + if (tempInt) + { + newchar->pain_config_flags |= PAIN_CONFIG_PAIN_DISABLE; + } + else + { + newchar->pain_config_flags &= ~PAIN_CONFIG_PAIN_DISABLE; + } + + break; + case CMD_MODEL_ESCAPEHITS: + // How many times an enemy can be hit before retaliating + newchar->escapehits = GET_INT_ARG(1); + break; + case CMD_MODEL_CHARGERATE: + // How much mp does this character gain while recharging? + newchar->chargerate = GET_INT_ARG(1); + break; + case CMD_MODEL_MPRATE: + newchar->mprate = GET_INT_ARG(1); + break; + case CMD_MODEL_MPSET: + // Mp bar wax/wane. + newchar->mp = GET_INT_ARG(1); //Max MP. + newchar->mpstable = GET_INT_ARG(2); //MP stable setting. + newchar->mpstableval = GET_INT_ARG(3); //MP stable value (% Mp bar will try and maintain). + newchar->mprate = GET_INT_ARG(4); //Rate MP value rises over time. + newchar->mpdroprate = GET_INT_ARG(5); //Rate MP value drops over time. + newchar->chargerate = GET_INT_ARG(6); //MP Chargerate. + break; + case CMD_MODEL_SLEEPWAIT: + newchar->sleepwait = GET_INT_ARG(1); + break; + case CMD_MODEL_GUARDRATE: + newchar->guardrate = GET_INT_ARG(1); + break; + case CMD_MODEL_AGGRESSION: + newchar->aggression = GET_INT_ARG(1); + break; + case CMD_MODEL_ATTACKTHROTTLE: + newchar->attackthrottle = GET_FLOAT_ARG(1); + if(arglist.count >= 2) + { + newchar->attackthrottletime = GET_FLOAT_ARG(2) * global_config.game_speed; + } + break; + case CMD_MODEL_RISETIME: + newchar->risetime.rise = GET_INT_ARG(1); + newchar->risetime.riseattack = GET_INT_ARG(2); + break; + case CMD_MODEL_FACING: + newchar->facing = GET_INT_ARG(1); + break; + case CMD_MODEL_TURNDELAY: + newchar->turndelay = GET_INT_ARG(1); + break; + case CMD_MODEL_LIFESPAN: + newchar->lifespan = GET_FLOAT_ARG(1) * global_config.game_speed; + break; + case CMD_MODEL_SUMMONKILL: + newchar->summonkill = GET_INT_ARG(1); + break; + case CMD_MODEL_LIFEPOSITION: + + /* + * Allocate object if we need it first. + */ + + if (!newchar->hud_popup) + { + newchar->hud_popup = bar_status_allocate_object(); + } + + if ((value = GET_ARG(1))[0]) + { + newchar->hud_popup->graph_position.x = atoi(value); + } + if ((value = GET_ARG(2))[0]) + { + newchar->hud_popup->graph_position.y = atoi(value); + } + + break; + case CMD_MODEL_LIFEBARSTATUS: + + /* + * Allocate object if we need it first. + */ + + if (!newchar->hud_popup) + { + newchar->hud_popup = bar_status_allocate_object(); + } + + _readbarstatus(buf + pos, newchar->hud_popup); + newchar->hud_popup->colourtable = &hpcolourtable; + break; + case CMD_MODEL_ICONPOSITION: + if((value = GET_ARG(1))[0]) + { + newchar->icon.position.x = atoi(value); + } + if((value = GET_ARG(2))[0]) + { + newchar->icon.position.y = atoi(value); + } + break; + case CMD_MODEL_NAMEPOSITION: + + /* + * Allocate object if we need it first. + */ + + if (!newchar->hud_popup) + { + newchar->hud_popup = bar_status_allocate_object(); + } + + if((value = GET_ARG(1))[0]) + { + newchar->hud_popup->name_position.x = atoi(value); + } + if((value = GET_ARG(2))[0]) + { + newchar->hud_popup->name_position.y = atoi(value); + } + break; + + case CMD_MODEL_COM: + { + s_command_token_reader token_reader = { + .cursor = buf + pos + }; + + s_command_token token; + + /* + * Parse into a temporary command first. This prevents + * a malformed line from partially modifying the model. + */ + s_com parsed_special = {0}; + + const char* parse_error; + + int freespecial_number; + + /* + * Consume and verify the command-name token. + */ + if(!command_token_reader_next(&token_reader, &token) || !command_token_equals(&token, "com")) { + shutdownmessage = "Invalid freespecial command name.\n"; + goto lCleanup; + } + + /* + * Parse all sequence tokens through the destination + * freespecial animation. + */ + parse_error = special_command_parse_sequence( + &token_reader, + &parsed_special, + &freespecial_number, + alert_buffer, + sizeof(alert_buffer) + ); + + if(parse_error) { + shutdownmessage = parse_error; + goto lCleanup; + } + + parsed_special.anim = animspecials[freespecial_number - 1]; + + if(!alloc_specials(newchar)) { + shutdownmessage = E_OUT_OF_MEMORY; + goto lCleanup; + } + + newchar->special[newchar->specials_loaded] = parsed_special; + newchar->specials_loaded++; + } + break; + + case CMD_MODEL_REMAP: + { + // This command should not be used under 24bit mode, but for old mods, just give it a default palette + value = GET_ARG(1); + value2 = GET_ARG(2); + __realloc(mapflag, newchar->maps_loaded); + errorVal = load_colourmap(newchar, value, value2); + + if(0 >= errorVal) + { + switch(errorVal) + { + case 0: // uhm wait, we just tested for !errorVal... + value2 = "Failed to create colourmap. Image Used Twice!"; + break; + case -1: //should not happen now + value2 = "Failed to create colourmap. Color maps full error (color maps are unlimited by engine - check memory limits of console)!"; + break; + case -2: + value2 = "Failed to create colourmap. Failed to allocate memory!"; + break; + case -3: + value2 = "Failed to create colourmap. Failed to load file 1"; + break; + case -4: + value2 = "Failed to create colourmap. Failed to load file 2"; + break; + } + printf("Warning: %s\n", value2); + } + else + { + if(pixelformat == PIXEL_x8 && newchar->palette == NULL) + { + newchar->palette = malloc(PAL_BYTES); + if(loadimagepalette(value, packfile, newchar->palette) == 0) + { + shutdownmessage = "Failed to load palette!"; + goto lCleanup; + } + } + mapflag[newchar->maps_loaded - 1] = 1; + } + } + break; + case CMD_MODEL_PALETTE: + + if(newchar->palette == NULL) + { + + // Command title for log. Details will be added below accordingly. + // Forced character length is to line up with Alternatepal logs. + //printf("\t\t\tPalette: \t"); + + // Get argument. + value = GET_ARG(1); + + // If "none" then set nopalette, meaning each + // frame retains its own color table as is. + // Otherwise we will set up the model level + // color table. + if(stricmp(value, "none") == 0) + { + nopalette = 1; + + //printf("%s\n", "'None' option active. All sprites for this model will be loaded with independent color tables."); + } + else + { + // Set up the model level color table. + // We can load either directly from + // an .act file or read the color table + // from an image. + + // Allocate space for the color table. + newchar->palette = malloc(PAL_BYTES); + + if(load_palette(newchar->palette, value) == 0) + { + printf("\n%s%s\n", "Failed to load color table from file: ", value); + shutdownmessage = "Failed to load color table from file."; + goto lCleanup; + } + + //printf("%s%s\n", "Loaded color selection 0: ", value); + } + } + + break; + case CMD_MODEL_ALTERNATEPAL: + + // Command title for log. Details will be added blow accordingly. + //printf("\t"LOG_CMD_TITLE"%s", "Alternatepal", " - "); + + __realloc(mapflag, newchar->maps_loaded); + __realloc(newchar->colourmap, newchar->maps_loaded); + value = GET_ARG(1); + + newchar->colourmap[newchar->maps_loaded] = malloc(PAL_BYTES); + + if(load_palette(newchar->colourmap[newchar->maps_loaded], value) == 0) + { + printf("\n%s%s\n", "Failed to load color table from file: ", value); + shutdownmessage = "Failed to load color table from file."; + goto lCleanup; + } + + newchar->maps_loaded++; + + //printf("Loaded color selection %i: %s", newchar->maps_loaded, value); + + break; + case CMD_MODEL_GLOBALMAP: + + // Command title for log. Details will be added blow accordingly. + //printf("\t"LOG_CMD_TITLE"%s", "Globalmap", " - "); + + // use global palette under 24bit mode, so some entity/panel/bg can still use palette feature, that saves some memory + newchar->globalmap = GET_INT_ARG(1); + + //printf("%i: %s\n", newchar->globalmap, value); + + break; + case CMD_MODEL_ALPHA: + newchar->alpha = GET_INT_ARG(1); + break; + case CMD_MODEL_REMOVE: + value = GET_ARG(1); + + newchar->remove_config = get_remove_config_from_string(value); + + break; + case CMD_MODEL_SCRIPT: + //load the update script + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->update_script, "updateentityscript", filename, 1, 0); + break; + case CMD_MODEL_THINKSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->think_script, "thinkscript", filename, 1, 0); + break; + case CMD_MODEL_TAKEDAMAGESCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->takedamage_script, "takedamagescript", filename, 1, 0); + break; + case CMD_MODEL_ON_BIND_UPDATE_OTHER_TO_SELF_SCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->on_bind_update_other_to_self_script, "on_bind_update_other_to_self_script", filename, 1, 0); + break; + case CMD_MODEL_ON_BIND_UPDATE_SELF_TO_OTHER_SCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->on_bind_update_self_to_other_script, "on_bind_update_self_to_other_script", filename, 1, 0); + break; + case CMD_MODEL_ONFALLSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onfall_script, "onfallscript", filename, 1, 0); + break; + case CMD_MODEL_ONPAINSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onpain_script, "onpainscript", filename, 1, 0); + break; + case CMD_MODEL_INHOLESCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->inhole_script, "inholescript", filename, 1, 0); + break; + case CMD_MODEL_ONBLOCKSSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onblocks_script, "onblocksscript", filename, 1, 0); + break; + case CMD_MODEL_ONBLOCKWSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onblockw_script, "onblockwscript", filename, 1, 0); + break; + case CMD_MODEL_ONBLOCKPSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onblockp_script, "onblockpscript", filename, 1, 0); + break; + case CMD_MODEL_ONBLOCKOSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onblocko_script, "onblockoscript", filename, 1, 0); + break; + case CMD_MODEL_ONBLOCKZSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onblockz_script, "onblockzscript", filename, 1, 0); + break; + case CMD_MODEL_ONBLOCKYSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onblocky_script, "onblockyscript", filename, 1, 0); + break; + case CMD_MODEL_ONMOVEXSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onmovex_script, "onmovexscript", filename, 1, 0); + break; + case CMD_MODEL_ONMOVEZSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onmovez_script, "onmovezscript", filename, 1, 0); + break; + case CMD_MODEL_ONMOVEYSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onmovea_script, "onmoveyscript", filename, 1, 0); + break; + case CMD_MODEL_ONDEATHSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->ondeath_script, "ondeathscript", filename, 1, 0); + break; + case CMD_MODEL_ONENTITYCOLLISIONSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onentitycollision_script, "onentitycollisionscript", filename, 1, 0); + break; + case CMD_MODEL_ONKILLSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onkill_script, "onkillscript", filename, 1, 0); + break; + case CMD_MODEL_MODELLOADSCRIPT: + if(Script_IsInitialized(model_cache[cacheindex].load_script)) + { + Script_Clear(model_cache[cacheindex].load_script, 1); + } + pos += lcmHandleCommandScripts( + &arglist, + buf + pos, + model_cache[cacheindex].load_script, + "modelloadscript", + filename, + 1, + 0 + ); + break; + case CMD_MODEL_MODELUNLOADSCRIPT: + if(Script_IsInitialized(model_cache[cacheindex].unload_script)) + { + Script_Clear(model_cache[cacheindex].unload_script, 1); + } + pos += lcmHandleCommandScripts( + &arglist, + buf + pos, + model_cache[cacheindex].unload_script, + "modelunloadscript", + filename, + 1, + 0 + ); + break; + case CMD_MODEL_DIDBLOCKSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->didblock_script, "didblockscript", filename, 1, 0); + break; + case CMD_MODEL_ONDOATTACKSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->ondoattack_script, "ondoattackscript", filename, 1, 0); + break; + case CMD_MODEL_DIDHITSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->didhit_script, "didhitscript", filename, 1, 0); + break; + case CMD_MODEL_ONSPAWNSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onspawn_script, "onspawnscript", filename, 1, 0); + break; + case CMD_MODEL_ONMODELCOPYSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->onmodelcopy_script, "onmodelcopyscript", filename, 1, 0); + break; + case CMD_MODEL_ONDRAWSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->ondraw_script, "ondrawscript", filename, 1, 0); + break; + case CMD_MODEL_ANIMATIONSCRIPT: + //pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->animation_script, "animationscript", filename, 0, 0); + pos += lcmScriptCopyBuffer(&arglist, buf + pos, &animscriptbuf); + //dont compile, until at end of this function + break; + case CMD_MODEL_KEYSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, newchar->scripts->key_script, "entitykeyscript", filename, 1, 0); + break; + case CMD_MODEL_ANIM: + { + bool freespecial_recognized; + + int freespecial_number; + + s_command_token animation_name_token; + + const char* freespecial_error; + + value = GET_ARG(1); + + /* + * Parse numbered freespecial animations before any + * allocation or animation-table indexing takes place. + */ + animation_name_token.text = value; + animation_name_token.length = strlen(value); + + freespecial_error = command_token_get_freespecial_number( + &animation_name_token, + &freespecial_recognized, + &freespecial_number, + alert_buffer, + sizeof(alert_buffer) + ); + + if(freespecial_error) { + shutdownmessage = freespecial_error; + goto lCleanup; + } + + frameset = 0; + framecount = 0; + // Create new animation + newanim = alloc_anim(); + if(!newanim) + { + shutdownmessage = "Not enough memory for animations!"; + goto lCleanup; + } + newanim->model_index = newchar->index; + // Reset vars + curframe = 0; + at_cmd_mergeable = false; + + /* + * Caskey, Damon V. + * 2021-08-23 + * + * Prepare temporary lists for input. + */ + collision_collection_free(temp_collision_attack); + collision_collection_free(temp_collision_body); + collision_collection_free(temp_collision_space); + temp_collision_attack = NULL; + temp_collision_body = NULL; + temp_collision_space = NULL; + temp_collision_index = 0; + + frame_sound_collection_free(temp_frame_sound); + temp_frame_sound = NULL; + temp_frame_sound_index = 0; + + child_spawn_free_list(temp_child_spawn_head); + temp_child_spawn_head = NULL; + temp_child_spawn_index = 0; + + //printf("\n\n anim: %p", newanim); + //child_spawn_dump_list(temp_child_spawn_head); + + memset(&offset, 0, sizeof(offset)); + memset(shadow_coords, 0, sizeof(shadow_coords)); + memset(shadow_xz, 0, sizeof(shadow_xz)); + memset(platform, 0, sizeof(platform)); + + shadow_set = 0; + drawmethod = plainmethod; + idle = 0; + move.base = -1; + move.axis.x = 0; + move.axis.y = 0; + move.axis.z = 0; + frameshadow = FRAME_SHADOW_NONE; + + /* + * Other than Min X, default ranges are + * based on jump height or grabdistance. + * This is partialy for legacy compatability. + * It works well enough that beginners won't + * know the difference and advanced creators + * will always want to adjust for their specfic + * needs. + */ + + const int range_default_grabdistance = (int)newchar->grabdistance / 3; + const int range_default_jumpheight_max = (int)newchar->jumpheight * 20; + const int range_default_jumpheight_min = (int)newchar->jumpheight * 10; + + newanim->range = (s_range){ + .base = {.max = range_default_jumpheight_max, .min = -range_default_jumpheight_min }, + .x = {.max = range_default_jumpheight_max, .min = (newanim->range.x.min) ? newanim->range.x.min : -10 }, + .y = {.max = range_default_jumpheight_max, .min = -range_default_jumpheight_min }, + .z = {.max = range_default_grabdistance, .min = -range_default_grabdistance } + }; + + + newanim->energy_cost.cost = 0; + newanim->energy_cost.disable = 0; + newanim->energy_cost.mponly = COST_TYPE_MP_THEN_HP; + newanim->charge_time = ANIMATION_CHARGE_TIME_DEFAULT; + newanim->projectile = NULL; + newanim->flipframe = FRAME_NONE; + newanim->attack_one = 0; + newanim->move_config_flags |= MOVE_CONFIG_SUBJECT_TO_GRAVITY; + newanim->followup.animation = 0; // Default disabled + newanim->followup.condition = FOLLOW_CONDITION_NONE; + newanim->sub_entity_unsummon = FRAME_NONE; + newanim->landframe.frame = FRAME_NONE; + newanim->landframe.model_index = FRAME_SET_MODEL_INDEX_DEFAULT; + + newanim->jumpframe = (s_onframe_move){ + .frame = FRAME_NONE, + .model_index = MODEL_INDEX_NONE, + .velocity = default_model_dropv + }; + + newanim->dropframe.frame = FRAME_NONE; + newanim->dropframe.model_index = FRAME_SET_MODEL_INDEX_DEFAULT; + newanim->cancel = ANIMATION_CANCEL_DISABLED; // OX. For cancelling anims into a freespecial. + newanim->hit_count = 0; //OX counts hits on a per anim basis for cancels. + newanim->sub_entity_model_index = MODEL_INDEX_NONE; + newanim->sub_entity_spawn = NULL; + newanim->sub_entity_summon = NULL; + newanim->quakeframe.framestart = 0; + newanim->sync = FRAME_NONE; + + if(freespecial_recognized) { + ani_id = animspecials[freespecial_number - 1]; + + } else { + ani_id = translate_ani_id(value, newchar, newanim); + } + + if(ani_id < 0) + { + shutdownmessage = "Invalid animation name!"; + goto lCleanup; + } + + newchar->animation[ani_id] = newanim; + } + break; + case CMD_MODEL_LOOP: + if(!newanim) + { + shutdownmessage = "Can't set loop: no animation specified!"; + goto lCleanup; + } + newanim->loop.mode = GET_INT_ARG(1); //0 = Off, 1 = on. + newanim->loop.frame.min = GET_INT_ARG(2); //Loop to frame. + newanim->loop.frame.max = GET_INT_ARG(3); //Loop end frame. + break; + case CMD_MODEL_ANIMHEIGHT: + newanim->size.y = GET_INT_ARG(1); + break; + case CMD_MODEL_SYNC: + { + bool freespecial_recognized; + + int freespecial_number; + + s_command_token animation_name_token; + + const char* freespecial_error; + + value = GET_ARG(1); + + animation_name_token.text = value; + animation_name_token.length = strlen(value); + + freespecial_error = command_token_get_freespecial_number( + &animation_name_token, + &freespecial_recognized, + &freespecial_number, + alert_buffer, + sizeof(alert_buffer) + ); + + if(freespecial_error) { + shutdownmessage = freespecial_error; + goto lCleanup; + } + + /* + * "none" intentionally translates to FRAME_NONE and + * continues to disable the default synchronization. + */ + newanim->sync = freespecial_recognized + ? animspecials[freespecial_number - 1] + : translate_ani_id(value, NULL, NULL); + } + break; + case CMD_MODEL_DELAY: + { + const char* delay_error = command_token_get_delay( + GET_ARG(1), + GET_ARG(2), + &delay, + &delay_mode + ); + + if(delay_error) { + shutdownmessage = delay_error; + goto lCleanup; + } + + break; + } + case CMD_MODEL_OFFSET: + offset.x = GET_INT_ARG(1); + offset.y = GET_INT_ARG(2); + break; + case CMD_MODEL_SHADOWCOORDS: + shadow_xz[0] = GET_INT_ARG(1); + shadow_xz[1] = GET_INT_ARG(2); + shadow_set = 1; + break; + case CMD_MODEL_ENERGY_COST: + case CMD_MODEL_MPCOST: + + newanim->energy_cost.cost = GET_INT_ARG(1); + newanim->energy_cost.mponly = GET_INT_ARG(2); + newanim->energy_cost.disable = GET_INT_ARG(3); + + // Caskey, Damon V. + // 2019-11-22 + // + // Convert the idiotic arbitrary numeric value in text into bitwise + // logic with entity types. I was a buffoon when I first coded this + // feature and should have used bitwise logic to begin with. + switch (newanim->energy_cost.disable) + { + case 1: + newanim->energy_cost.disable |= TYPE_ENEMY; + newanim->energy_cost.disable |= TYPE_NPC; + newanim->energy_cost.disable |= TYPE_PLAYER; + break; + case 2: + newanim->energy_cost.disable |= TYPE_ENEMY; + newanim->energy_cost.disable |= TYPE_NPC; + break; + case 3: + newanim->energy_cost.disable |= TYPE_NPC; + newanim->energy_cost.disable |= TYPE_PLAYER; + break; + case 4: + newanim->energy_cost.disable |= TYPE_ENEMY; + newanim->energy_cost.disable |= TYPE_PLAYER; + break; + } + + break; + case CMD_MODEL_MPONLY: + newanim->energy_cost.mponly = GET_INT_ARG(1); + break; + case CMD_MODEL_CHARGETIME: + newanim->charge_time = GET_INT_ARG(1); + break; + + /* 2022-05-27 + * Caskey, Damon V. + * + * Index needs to come before any other child spawn + * read in command so we know which object index + * we want the child spawn commands to affect. + * + * The next in order are presets, so the creator + * can use a preset, then customize individual + * settings downstream. + */ + case CMD_MODEL_CHILD_SPAWN_INDEX: + temp_child_spawn_index = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_SPAWN_PRESET_BOMB: + + /* + * Shortcut for creator to set up a bomb projectile. + */ + + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->config = (CHILD_SPAWN_CONFIG_AUTOKILL_HIT | CHILD_SPAWN_CONFIG_BEHAVIOR_BOMB | CHILD_SPAWN_CONFIG_FACTION_DAMAGE_PARENT | CHILD_SPAWN_CONFIG_FACTION_HOSTILE_PARENT | CHILD_SPAWN_CONFIG_FACTION_INDIRECT_PARENT | CHILD_SPAWN_CONFIG_LAUNCH_TOSS | CHILD_SPAWN_CONFIG_MOVE_CONFIG_PARAMETER | CHILD_SPAWN_CONFIG_RELATIONSHIP_OWNER); + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->aimove = AIMOVE1_BOMB; + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->direction_adjust = DIRECTION_ADJUST_SAME; + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->move_config_flags = (MOVE_CONFIG_NO_ADJUST_BASE | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL | MOVE_CONFIG_SUBJECT_TO_MAX_Z | MOVE_CONFIG_SUBJECT_TO_MIN_Z); + + break; + + case CMD_MODEL_CHILD_SPAWN_PRESET_SHOT: + + /* + * Shortcut for creator to set up a shot projectile. + */ + + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->config = (CHILD_SPAWN_CONFIG_AUTOKILL_HIT | CHILD_SPAWN_CONFIG_BEHAVIOR_SHOT | CHILD_SPAWN_CONFIG_FACTION_DAMAGE_PARENT | CHILD_SPAWN_CONFIG_FACTION_HOSTILE_PARENT | CHILD_SPAWN_CONFIG_FACTION_INDIRECT_PARENT | CHILD_SPAWN_CONFIG_GRAVITY_OFF | CHILD_SPAWN_CONFIG_LAUNCH_THROW | CHILD_SPAWN_CONFIG_MOVE_CONFIG_PARAMETER | CHILD_SPAWN_CONFIG_RELATIONSHIP_OWNER); + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->aimove = AIMOVE1_ARROW; + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->direction_adjust = DIRECTION_ADJUST_SAME; + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->move_config_flags = (MOVE_CONFIG_NO_ADJUST_BASE | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL | MOVE_CONFIG_SUBJECT_TO_MAX_Z | MOVE_CONFIG_SUBJECT_TO_MIN_Z); + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->takedamage = arrow_takedamage; + + break; + + case CMD_MODEL_CHILD_SPAWN_AIMOVE: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->aimove = get_aimove_from_command_line(buf + pos, AIMOVE1_NONE); + break; + case CMD_MODEL_CHILD_SPAWN_CANDAMAGE: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->candamage = get_type_from_command_line(buf + pos); + break; + case CMD_MODEL_CHILD_SPAWN_COLOR: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->color = child_spawn_get_color_from_argument(filename, command, GET_ARG(1)); + break; + case CMD_MODEL_CHILD_SPAWN_CONFIG: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->config = child_spawn_get_config_argument(buf + pos, 0); + break; + case CMD_MODEL_CHILD_SPAWN_DIRECTION_ADJUST: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->direction_adjust = direction_get_adjustment_from_argument(filename, command, GET_ARG(1)); + break; + case CMD_MODEL_CHILD_SPAWN_HOSTILE: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->hostile = get_type_from_command_line(buf + pos); + break; + case CMD_MODEL_CHILD_SPAWN_MODEL: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->model_index = get_cached_model_index(GET_ARG(1)); + break; + case CMD_MODEL_CHILD_SPAWN_MOVE_CONSTRAINT: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->move_config_flags = get_move_config_flags_from_command_line(buf + pos); + break; + case CMD_MODEL_CHILD_SPAWN_OFFSET_X: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->position.x = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_SPAWN_OFFSET_Y: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->position.y = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_SPAWN_OFFSET_Z: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->position.z = GET_INT_ARG(1); + break; + case CMD_MODEL_CHILD_SPAWN_PROJECTILEHIT: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->projectilehit = get_type_from_command_line(buf + pos); + break; + case CMD_MODEL_CHILD_SPAWN_TAKEDAMAGE: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->takedamage = takedamage_get_reference_from_argument(GET_ARG(1)); + break; + case CMD_MODEL_CHILD_SPAWN_VELOCITY_X: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->velocity.x = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_CHILD_SPAWN_VELOCITY_Y: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->velocity.y = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_CHILD_SPAWN_VELOCITY_Z: + child_spawn_upsert_property(&temp_child_spawn_head, temp_child_spawn_index)->velocity.z = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_COLLISIONONE: + newanim->attack_one = GET_INT_ARG(1); + break; + + /* 2020-03-02 + * Caskey, Damon V. + * + * This needs to come before any other collision + * parse command so we know which collision index + * we want the collision commands to affect. + */ + case CMD_MODEL_COLLISION_INDEX: + tempInt = GET_INT_ARG(1); + + if(!collision_validate_slot_index(tempInt)) { + snprintf(alert_buffer, sizeof(alert_buffer), + "Collision index (%d) out of range (0 to %d).", tempInt, MAX_COLLISION_BOXES_PER_FRAME - 1); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + temp_collision_index = tempInt; + break; + case CMD_MODEL_COUNTERATTACK: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->counterattack = GET_INT_ARG(1); + + break; + case CMD_MODEL_THROWFRAME: + case CMD_MODEL_PSHOTFRAME: + case CMD_MODEL_PSHOTFRAMEW: + case CMD_MODEL_PSHOTFRAMENO: + + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->throwframe = GET_FRAME_ARG(1); + + if (GET_INT_ARG(2)) + { + newanim->projectile->position.y = GET_INT_ARG(2); + } + break; + + + case CMD_MODEL_SHOOTFRAME: + + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->shootframe = GET_FRAME_ARG(1); + + if (GET_INT_ARG(2)) + { + newanim->projectile->position.y = GET_INT_ARG(2); + } + break; + + case CMD_MODEL_TOSSFRAME: + case CMD_MODEL_PBOMBFRAME: + + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->tossframe = GET_FRAME_ARG(1); + + if (GET_INT_ARG(2)) + { + newanim->projectile->position.y = GET_INT_ARG(2); + } + + // For legacy compatability. See bomb_spawn() for details. + newanim->projectile->velocity.y = MODEL_SPEED_NONE; + break; + case CMD_MODEL_CUSTKNIFE: + case CMD_MODEL_CUSTPSHOT: + case CMD_MODEL_CUSTPSHOTW: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->knife = get_cached_model_index(GET_ARG(1)); + break; + case CMD_MODEL_CUSTPSHOTNO: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->flash = get_cached_model_index(GET_ARG(1)); + break; + case CMD_MODEL_CUSTBOMB: + case CMD_MODEL_CUSTPBOMB: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->bomb = get_cached_model_index(GET_ARG(1)); + + break; + case CMD_MODEL_CUSTSTAR: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->star = get_cached_model_index(GET_ARG(1)); + break; + case CMD_MODEL_PROJECTILE_COLOR_SET_ADJUST: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + value = GET_ARG(1); + + if (stricmp(value, "none") == 0) + { + tempInt = COLORSET_ADJUST_NONE; + } + else if (stricmp(value, "parent_index") == 0) + { + tempInt = COLORSET_ADJUST_PARENT_INDEX; + } + else if (stricmp(value, "parent_table") == 0) + { + tempInt = COLORSET_ADJUST_PARENT_TABLE; + } + else + { + tempInt = GET_INT_ARG(1); + } + + newanim->projectile->color_set_adjust = tempInt; + break; + case CMD_MODEL_PROJECTILE_DIRECTION_ADJUST: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + tempInt = direction_get_adjustment_from_argument(filename, command, GET_ARG(1)); + + newanim->projectile->direction_adjust = tempInt; + break; + case CMD_MODEL_PROJECTILE_OFFENSE: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + value = GET_ARG(1); + + if (stricmp(value, "parent") == 0) + { + tempInt = PROJECTILE_OFFENSE_PARENT; + } + else if (stricmp(value, "self") == 0) + { + tempInt = PROJECTILE_OFFENSE_SELF; + } + + newanim->projectile->offense = tempInt; + break; + case CMD_MODEL_PROJECTILE_POSITION_X: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->position.x = GET_INT_ARG(1); + break; + case CMD_MODEL_PROJECTILE_POSITION_Y: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->position.y = GET_INT_ARG(1); + break; + case CMD_MODEL_PROJECTILE_POSITION_Z: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->position.z = GET_INT_ARG(1); + break; + case CMD_MODEL_PROJECTILE_VELOCITY_X: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->velocity.x = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_PROJECTILE_VELOCITY_Y: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->velocity.y = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_PROJECTILE_VELOCITY_Z: + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->velocity.z = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_STAR_VELOCITY: + + // If we don't have a projectile allcated, do it now. + if (!newanim->projectile) + { + newanim->projectile = allocate_projectile(); + } + + newanim->projectile->star_velocity[0] = GET_FLOAT_ARG(1); + newanim->projectile->star_velocity[1] = GET_FLOAT_ARG(2); + newanim->projectile->star_velocity[2] = GET_FLOAT_ARG(3); + break; + + // Legacy dive attacks. Turn off animation level subject_to_gravity + // and then use jumpframe to fly down at an angle. + case CMD_MODEL_DIVE: + newanim->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + + newanim->jumpframe = (s_onframe_move){ + .frame = 0, + .model_index = MODEL_INDEX_NONE, + .velocity = {.x = GET_FLOAT_ARG(1), .y = -GET_FLOAT_ARG(2), .z = 0 } + }; + break; + + case CMD_MODEL_DIVE1: + newanim->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + + newanim->jumpframe = (s_onframe_move){ + .frame = 0, + .model_index = MODEL_INDEX_NONE, + .velocity = {.x = GET_FLOAT_ARG(1), .y = 0, .z = 0 } + }; + break; + case CMD_MODEL_DIVE2: + newanim->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + + newanim->jumpframe = (s_onframe_move){ + .frame = 0, + .model_index = MODEL_INDEX_NONE, + .velocity = {.x = 0, .y = -GET_FLOAT_ARG(2), .z = 0 } + }; + break; + case CMD_MODEL_JUMPFRAME: + { + memset(&newanim->jumpframe.velocity, 0, sizeof(s_axis_principal_float)); + + newanim->jumpframe.frame = GET_FRAME_ARG(1); + newanim->jumpframe.velocity.y = GET_FLOAT_ARG(2); + + value = GET_ARG(3); + if(value[0]) + { + newanim->jumpframe.velocity.x = GET_FLOAT_ARG(3); + newanim->jumpframe.velocity.z = GET_FLOAT_ARG(4); + } + else // k, only for backward compatibility :(((((((((((((((( + { + if(newanim->jumpframe.velocity.y <= 0) + { + if(newchar->type == TYPE_PLAYER) + { + newanim->jumpframe.velocity.y = newchar->jumpheight / 2; + newanim->jumpframe.velocity.z = 0; + newanim->jumpframe.velocity.x = 2; + } + else + { + newanim->jumpframe.velocity.y = newchar->jumpheight; + newanim->jumpframe.velocity.z = newanim->jumpframe.velocity.x = 0; + } + } + else + { + if(newchar->type != TYPE_ENEMY && newchar->type != TYPE_NPC) + { + newanim->jumpframe.velocity.z = newanim->jumpframe.velocity.x = 0; + } + else + { + newanim->jumpframe.velocity.z = 0; + newanim->jumpframe.velocity.x = (float)1.3; + } + } + } + + value = GET_ARG(5); + if(value[0]) + { + newanim->jumpframe.model_index = get_cached_model_index(value); + } + else + { + newanim->jumpframe.model_index = MODEL_INDEX_NONE; + } + } + break; + case CMD_MODEL_BOUNCEFACTOR: + newanim->bounce_factor = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_LANDFRAME: + // Landing frame. + newanim->landframe.frame = GET_FRAME_ARG(1); + + // Entity to spawn when land frame triggers. + value = GET_ARG(2); + if(value[0]) + { + newanim->landframe.model_index = get_cached_model_index(value); + } + + break; + case CMD_MODEL_DROPFRAME: + + newanim->dropframe.frame = GET_FRAME_ARG(1); + + // Entity to spawn when drop frame triggers. + value = GET_ARG(2); + if (value[0]) + { + newanim->dropframe.model_index = get_cached_model_index(value); + } + + break; + case CMD_MODEL_CANCEL: + { + s_command_token_reader token_reader = { + .cursor = buf + pos + }; + + s_command_token token; + + /* + * Parse into a temporary command first. This prevents + * a malformed line from partially modifying the model. + */ + s_com parsed_special = {0}; + + const char* parse_error; + + int64_t frame_min; + int64_t frame_max; + int64_t required_hits; + int freespecial_number; + + /* + * Cancel belongs to the currently active animation. + */ + if(!newanim || ani_id < 0) { + shutdownmessage = + "Cannot add cancel command: animation not specified.\n"; + + goto lCleanup; + } + + /* + * Consume and verify the command-name token. + */ + if(!command_token_reader_next(&token_reader, &token) || !command_token_equals(&token, "cancel")) { + shutdownmessage = "Invalid cancel command name.\n"; + goto lCleanup; + } + + /* + * Fixed cancel parameters precede the input sequence. + */ + if(!command_token_reader_next_int64(&token_reader, &frame_min)) { + shutdownmessage = + "Cancel command requires an integer start frame.\n"; + + goto lCleanup; + } + + if(!command_token_reader_next_int64(&token_reader, &frame_max)) { + shutdownmessage = + "Cancel command requires an integer end frame.\n"; + + goto lCleanup; + } + + if(!command_token_reader_next_int64(&token_reader, &required_hits)) { + shutdownmessage = + "Cancel command requires an integer hit count. " + "0 means no hit requirement.\n"; + + goto lCleanup; + } + + if(required_hits < 0) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Cancel command hit count (%" PRId64 ") cannot be negative.\n", + required_hits + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + /* + * Parse the variable-length input sequence. The + * freespecial token terminates the sequence. + */ + parse_error = special_command_parse_sequence( + &token_reader, + &parsed_special, + &freespecial_number, + alert_buffer, + sizeof(alert_buffer) + ); + + if(parse_error) { + shutdownmessage = parse_error; + goto lCleanup; + } + + /* + * Complete cancel-specific command properties. + */ + parsed_special.anim = animspecials[freespecial_number - 1]; + + parsed_special.frame.min = frame_min; + parsed_special.frame.max = frame_max; + parsed_special.cancel = ani_id; + parsed_special.hits = (uint64_t)required_hits; + + /* + * Commit only after the complete command has parsed + * and validated successfully. + */ + if(!alloc_specials(newchar)) { + shutdownmessage = E_OUT_OF_MEMORY; + goto lCleanup; + } + + newchar->special[newchar->specials_loaded] = parsed_special; + newanim->cancel = ANIMATION_CANCEL_ENABLED; + + newchar->specials_loaded++; + } + break; + + case CMD_MODEL_SOUND_INDEX: + tempInt = GET_INT_ARG(1); + + if (!frame_sound_validate_slot_index(tempInt)) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound index (%d) out of range (0 to %d).", + tempInt, + MAX_FRAME_SOUNDS_PER_FRAME - 1 + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + temp_frame_sound_index = tempInt; + break; + case CMD_MODEL_SOUND_CHANNEL_OFFSET: + { + s_command_token offset_token; + s_frame_sound_action* action; + uint64_t channel_offset; + int channel; + + if (!frame_sound_parse_channel(GET_ARG(1), &channel)) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound channel '%s' invalid. Expected an integer from 0 to %u.", + GET_ARG(1), + SOUND_CHANNEL_COUNT_MAX - 1U + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + offset_token.text = GET_ARG(2); + offset_token.length = strlen(offset_token.text); + + if (!command_token_get_uint64( + &offset_token, + &channel_offset + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound channel offset '%s'. Expected an unsigned PCM frame.", + offset_token.text + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + action = frame_sound_action_append( + &temp_frame_sound, + FRAME_SOUND_CHANNEL_ACTION_OFFSET + ); + action->channel = channel; + action->offset = channel_offset; + break; + } + case CMD_MODEL_SOUND_CHANNEL_PAUSE: + case CMD_MODEL_SOUND_CHANNEL_RESUME: + case CMD_MODEL_SOUND_CHANNEL_STOP: + { + s_frame_sound_action* action; + e_frame_sound_action action_type; + int channel; + + if (!frame_sound_parse_channel(GET_ARG(1), &channel)) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound channel '%s' invalid. Expected an integer from 0 to %u.", + GET_ARG(1), + SOUND_CHANNEL_COUNT_MAX - 1U + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + action_type = cmd == CMD_MODEL_SOUND_CHANNEL_PAUSE + ? FRAME_SOUND_CHANNEL_ACTION_PAUSE + : cmd == CMD_MODEL_SOUND_CHANNEL_RESUME + ? FRAME_SOUND_CHANNEL_ACTION_RESUME + : FRAME_SOUND_CHANNEL_ACTION_STOP; + + action = frame_sound_action_append( + &temp_frame_sound, + action_type + ); + action->channel = channel; + break; + } + case CMD_MODEL_SOUND_CHANNEL_PRIORITY: + { + s_command_token priority_token; + uint64_t priority; + + priority_token.text = GET_ARG(1); + priority_token.length = strlen(priority_token.text); + + if (!command_token_get_uint64( + &priority_token, + &priority + ) || priority > UINT_MAX) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound channel priority '%s'. Expected an unsigned integer from 0 to %u.", + priority_token.text, + UINT_MAX + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->priority = (unsigned int)priority; + break; + } + case CMD_MODEL_SOUND_CHANNEL_SET: + { + int channel; + + value = GET_ARG(1); + + if (stricmp(value, "auto") == 0) { + channel = -1; + } else if (!frame_sound_parse_channel(value, &channel)) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound channel '%s' invalid. Expected 'auto' or an integer from 0 to %u.", + value, + SOUND_CHANNEL_COUNT_MAX - 1U + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->channel = channel; + break; + } + case CMD_MODEL_SOUND_CHANCE: + tempInt = GET_INT_ARG(1); + + if (tempInt < 0 || tempInt > 100) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound chance (%d) out of range (0 to 100).", + tempInt + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->chance = (unsigned)tempInt; + break; + case CMD_MODEL_SOUND_DELAY: + { + s_command_token delay_token; + uint64_t sound_delay; + + delay_token.text = GET_ARG(1); + delay_token.length = strlen(delay_token.text); + + if (!command_token_get_uint64(&delay_token, &sound_delay)) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound delay '%s'. Expected an unsigned logical tick count.", + delay_token.text + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->delay = sound_delay; + break; + } + case CMD_MODEL_SOUND_GROUP: + { + const char* invalid_group; + sound_group_mask_t sound_group; + + if (!sound_group_get_flags_from_arglist( + &arglist, + &sound_group, + &invalid_group + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound group '%s' invalid. Expected none, all, all0, all1, a-z, or a1-z1.", + invalid_group + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->group = sound_group; + break; + } + case CMD_MODEL_SOUND_GROUP_OFFSET: + { + s_command_token offset_token; + s_frame_sound_action* action; + const char* invalid_group; + sound_group_mask_t sound_group; + uint64_t group_offset; + size_t offset_argument; + + if (arglist.count < 3) { + shutdownmessage = + "Sound group offset requires one or more groups followed by an unsigned PCM frame."; + goto lCleanup; + } + + offset_argument = arglist.count - 1U; + offset_token.text = GET_ARG(offset_argument); + offset_token.length = strlen(offset_token.text); + + if (!command_token_get_uint64( + &offset_token, + &group_offset + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound group offset '%s'. Expected an unsigned PCM frame.", + offset_token.text + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + if (!sound_group_get_flags_from_arglist_range( + &arglist, + 1, + offset_argument, + &sound_group, + &invalid_group + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound group '%s' invalid. Expected none, all, all0, all1, a-z, or a1-z1.", + invalid_group + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + action = frame_sound_action_append( + &temp_frame_sound, + FRAME_SOUND_GROUP_ACTION_OFFSET + ); + action->group = sound_group; + action->offset = group_offset; + break; + } + case CMD_MODEL_SOUND_GROUP_PAUSE: + case CMD_MODEL_SOUND_GROUP_RESUME: + case CMD_MODEL_SOUND_GROUP_STOP: + { + s_frame_sound_action* action; + e_frame_sound_action action_type; + const char* invalid_group; + sound_group_mask_t sound_group; + + if (!sound_group_get_flags_from_arglist( + &arglist, + &sound_group, + &invalid_group + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound group '%s' invalid. Expected none, all, all0, all1, a-z, or a1-z1.", + invalid_group + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + action_type = cmd == CMD_MODEL_SOUND_GROUP_PAUSE + ? FRAME_SOUND_GROUP_ACTION_PAUSE + : cmd == CMD_MODEL_SOUND_GROUP_RESUME + ? FRAME_SOUND_GROUP_ACTION_RESUME + : FRAME_SOUND_GROUP_ACTION_STOP; + + action = frame_sound_action_append( + &temp_frame_sound, + action_type + ); + action->group = sound_group; + break; + } + case CMD_MODEL_SOUND_LOADING: + { + bool stream; + + value = GET_ARG(1); + + if (stricmp(value, "cache") == 0) { + stream = false; + } else if (stricmp(value, "stream") == 0) { + stream = true; + } else { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound loading mode '%s' invalid. Expected 'cache' or 'stream'.", + value + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->stream = stream; + break; + } + case CMD_MODEL_SOUND_LOOP: + { + s_command_token loop_token; + uint64_t loop; + + loop_token.text = GET_ARG(1); + loop_token.length = strlen(loop_token.text); + + if (!command_token_get_uint64(&loop_token, &loop) + || loop > 1U) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound loop '%s'. Expected 0 or 1.", + loop_token.text + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->loop = loop != 0; + break; + } + case CMD_MODEL_SOUND_LOOP_OFFSET: + { + s_command_token loop_offset_token; + uint64_t loop_offset; + + loop_offset_token.text = GET_ARG(1); + loop_offset_token.length = strlen(loop_offset_token.text); + + if (!command_token_get_uint64( + &loop_offset_token, + &loop_offset + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound loop offset '%s'. Expected an unsigned PCM frame.", + loop_offset_token.text + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + )->loop_offset = loop_offset; + break; + } + case CMD_MODEL_SOUND_RANDOM: + { + const int random_min = GET_INT_ARG(1); + const int random_max = GET_INT_ARG(2); + + if (!frame_sound_validate_slot_index(random_min) + || !frame_sound_validate_slot_index(random_max) + || random_min > random_max) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Sound random range (%d to %d) invalid. Expected an ascending range from 0 to %d.", + random_min, + random_max, + MAX_FRAME_SOUNDS_PER_FRAME - 1 + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + if (!temp_frame_sound) { + temp_frame_sound = frame_sound_collection_allocate(); + } + + temp_frame_sound->random_status = + frame_sound_get_slot_range_mask(random_min, random_max); + break; + } + case CMD_MODEL_SOUND_START_OFFSET: + { + s_command_token start_offset_token; + s_frame_sound* frame_sound; + uint64_t start_offset; + + start_offset_token.text = GET_ARG(1); + start_offset_token.length = strlen(start_offset_token.text); + + if (stricmp(start_offset_token.text, "auto") == 0) { + frame_sound = frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + ); + frame_sound->start_offset = 0; + frame_sound->start_offset_supplied = false; + break; + } + + if (!command_token_get_uint64( + &start_offset_token, + &start_offset + )) { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Invalid sound start offset '%s'. Expected 'auto' or an unsigned PCM frame.", + start_offset_token.text + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + frame_sound = frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + ); + frame_sound->start_offset = start_offset; + frame_sound->start_offset_supplied = true; + break; + } + case CMD_MODEL_SOUND: + { + s_frame_sound* frame_sound = frame_sound_upsert_index( + &temp_frame_sound, + temp_frame_sound_index + ); + + value = GET_ARG(1); + if (stricmp(value, "none") == 0) { + frame_sound_set_source(frame_sound, NULL); + } else { + frame_sound_set_source(frame_sound, value); + } + + temp_frame_sound->active_status |= + frame_sound_get_slot_mask(temp_frame_sound_index); + break; + } + case CMD_MODEL_HITFX: + + value = GET_ARG(1); + + if(stricmp(value, "none") == 0) + { + tempInt = SAMPLE_ID_NONE; + } + else + { + tempInt = sound_load_sample(value, packfile, 1, 0); + } + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->hitsound = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_HITFLASH: + + /* First find out which flash model index (if any). */ + + value = GET_ARG(1); + + if (stricmp(value, "none") == 0) + { + tempInt = MODEL_INDEX_NONE; + } + else + { + tempInt = get_cached_model_index(value); + } + + /* Apply model index to frame attack box or smartbomb? */ + + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->flash.model_hit = tempInt; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_hit = tempInt; + } + + break; + + case CMD_MODEL_BLOCKFLASH: + + value = GET_ARG(1); + + if (stricmp(value, "none") == 0) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_block = MODEL_INDEX_NONE; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_block = get_cached_model_index(value); + } + + break; + + case CMD_MODEL_BLOCKFX: + + value = GET_ARG(1); + + if (stricmp(value, "none") == 0) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blocksound = SAMPLE_ID_NONE; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blocksound = sound_load_sample(value, packfile, 1, 0); + } + + break; + + case CMD_MODEL_FASTATTACK: + + if(GET_INT_ARG(1)) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->next_hit_time = global_config.game_speed / 20; + } + + break; + + case CMD_MODEL_IGNOREATTACKID: + + if(GET_INT_ARG(1)) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->ignore_attack_id = 1; + } + + break; + + case CMD_MODEL_BBOX: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + + value = GET_ARG(1); + if (stricmp(value, "none") == 0) { + + *temp_collision_coordinates = (s_hitbox){ 0 }; + break; + } + + temp_collision_coordinates->x = GET_INT_ARG(1); + temp_collision_coordinates->y = GET_INT_ARG(2); + temp_collision_coordinates->width = GET_INT_ARG(3); + temp_collision_coordinates->height = GET_INT_ARG(4); + + /* + * 2023-01-13: If only the first Z depth provided, + * use it for both directions. We verify a numeric + * instead of checking for empty because the creator + * might intentionally apply a 0 value to foreground + * depth and a simple empty check would override it. + */ + + tempInt = GET_INT_ARG(5); + + temp_collision_coordinates->z_background = tempInt; + + value = GET_ARG(6); + + if (isNumeric(value)) { + tempInt = GET_INT_ARG(6); + } + + temp_collision_coordinates->z_foreground = tempInt; + + break; + case CMD_MODEL_BBOX_COORDINATES: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + + temp_collision_coordinates->x = GET_INT_ARG(1); + temp_collision_coordinates->y = GET_INT_ARG(2); + temp_collision_coordinates->width = GET_INT_ARG(3); + temp_collision_coordinates->height = GET_INT_ARG(4); + temp_collision_coordinates->z_background = GET_INT_ARG(5); + temp_collision_coordinates->z_foreground = GET_INT_ARG(6); + + break; + case CMD_MODEL_BBOX_INDEX: + // Does nothing. Do not modify. + break; + case CMD_MODEL_BBOX_EFFECT_HIT_FLASH_LAYER_ADJUST: + collision_body_upsert_property(&temp_collision_body, temp_collision_index)->flash.layer_adjust = GET_INT_ARG(1); + break; + case CMD_MODEL_BBOX_EFFECT_HIT_FLASH_LAYER_SOURCE: + collision_body_upsert_property(&temp_collision_body, temp_collision_index)->flash.layer_source = GET_INT_ARG(1); + break; + case CMD_MODEL_BBOX_EFFECT_HIT_FLASH_Z_SOURCE: + collision_body_upsert_property(&temp_collision_body, temp_collision_index)->flash.z_source = GET_INT_ARG(1); + break; + case CMD_MODEL_BBOX_POSITION_X: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->x = GET_INT_ARG(1); + + break; + case CMD_MODEL_BBOX_POSITION_Y: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->y = GET_INT_ARG(1); + + break; + case CMD_MODEL_BBOX_SIZE_X: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->width = GET_INT_ARG(1); + + break; + case CMD_MODEL_BBOX_SIZE_Y: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->height = GET_INT_ARG(1); + + break; + case CMD_MODEL_BBOX_SIZE_Z_1: + case CMD_MODEL_BBOX_SIZE_Z_BACKGROUND: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->z_background = GET_INT_ARG(1); + + break; + case CMD_MODEL_BBOX_SIZE_Z_2: + case CMD_MODEL_BBOX_SIZE_Z_FOREGROUND: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->z_foreground = GET_INT_ARG(1); + + break; + case CMD_MODEL_BBOXZ: + + collision_body_upsert_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates = collision_body_upsert_coordinates_property(&temp_collision_body, temp_collision_index); + temp_collision_coordinates->z_background = GET_INT_ARG(1); + temp_collision_coordinates->z_foreground = GET_INT_ARG(2); + + break; + case CMD_MODEL_PLATFORM: + newchar->hasPlatforms = 1; + for(i = 0; i < arglist.count && arglist.args[i] && arglist.args[i][0]; i++); + if(i < 8) + { + for(i = 0; i < 6; i++) + { + platform[i + 2] = GET_FLOAT_ARG(i + 1); + } + platform[PLATFORM_X] = PLATFORM_DEFAULT_X; + } + else for(i = 0; i < 8; i++) + { + platform[i] = GET_FLOAT_ARG(i + 1); + } + break; + case CMD_MODEL_DRAWMETHOD: + value = GET_ARG(1); + if(isNumeric(value)) + { + // special effects + drawmethod.scalex = GET_INT_ARG(1); + drawmethod.scaley = GET_INT_ARG(2); + drawmethod.config = GET_INT_ARG(3) ? (drawmethod.config | DRAWMETHOD_CONFIG_FLIP_X) : (drawmethod.config & ~DRAWMETHOD_CONFIG_FLIP_X); + drawmethod.config = GET_INT_ARG(4) ? (drawmethod.config | DRAWMETHOD_CONFIG_FLIP_Y) : (drawmethod.config & ~DRAWMETHOD_CONFIG_FLIP_Y); + drawmethod.shiftx = GET_INT_ARG(5); + drawmethod.alpha = GET_INT_ARG(6); + drawmethod.remap = GET_INT_ARG(7); + drawmethod.fillcolor = parsecolor(GET_ARG(8)); + drawmethod.rotate = GET_INT_ARG(9); + drawmethod.config = GET_INT_ARG(10) ? (drawmethod.config | DRAWMETHOD_CONFIG_FLIP_ROTATE) : (drawmethod.config & ~DRAWMETHOD_CONFIG_FLIP_ROTATE); + } + else if (0 == stricmp(value, "scale")) + { + drawmethod.scalex = GET_FLOAT_ARG(2) * 256; + drawmethod.scaley = arglist.count > 3 ? GET_FLOAT_ARG(3) * 256 : drawmethod.scalex; + } + else if (0 == stricmp(value, "scalex")) + { + drawmethod.scalex = GET_FLOAT_ARG(2) * 256; + } + else if (0 == stricmp(value, "scaley")) + { + drawmethod.scaley = GET_FLOAT_ARG(2) * 256; + } + else if (0 == stricmp(value, "xrepeat")) + { + drawmethod.xrepeat = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "yrepeat")) + { + drawmethod.yrepeat = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "xspan")) + { + drawmethod.xspan = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "yspan")) + { + drawmethod.yspan = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "flipx")) + { + drawmethod.config = GET_INT_ARG(2) ? (drawmethod.config | DRAWMETHOD_CONFIG_FLIP_X) : (drawmethod.config & ~DRAWMETHOD_CONFIG_FLIP_X); + } + else if (0 == stricmp(value, "flipy")) + { + drawmethod.config = GET_INT_ARG(2) ? (drawmethod.config | DRAWMETHOD_CONFIG_FLIP_Y) : (drawmethod.config & ~DRAWMETHOD_CONFIG_FLIP_Y); + } + else if (0 == stricmp(value, "shiftx")) + { + drawmethod.shiftx = GET_FLOAT_ARG(2) * 256; + } + else if (0 == stricmp(value, "rotate")) + { + drawmethod.rotate = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "fliprotate")) + { + drawmethod.config = GET_INT_ARG(2) ? (drawmethod.config | DRAWMETHOD_CONFIG_FLIP_ROTATE) : (drawmethod.config & ~DRAWMETHOD_CONFIG_FLIP_ROTATE); + } + else if (0 == stricmp(value, "fillcolor")) + { + drawmethod.fillcolor = parsecolor(GET_ARG(2)); + } + else if (0 == stricmp(value, "remap")) + { + drawmethod.remap = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "channel")) + { + drawmethod.channelr = GET_FLOAT_ARG(2) * 255; + drawmethod.channelg = arglist.count > 3 ? GET_FLOAT_ARG(3) * 255 : drawmethod.channelr; + drawmethod.channelb = arglist.count > 4 ? GET_FLOAT_ARG(4) * 255 : drawmethod.channelr; + } + else if (0 == stricmp(value, "channelr")) + { + drawmethod.channelr = GET_FLOAT_ARG(2) * 255; + } + else if (0 == stricmp(value, "channelg")) + { + drawmethod.channelg = GET_FLOAT_ARG(2) * 255; + } + else if (0 == stricmp(value, "channelb")) + { + drawmethod.channelb = GET_FLOAT_ARG(2) * 255; + } + else if (0 == stricmp(value, "tintmode")) + { + drawmethod.tintmode = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "tintcolor")) + { + drawmethod.tintcolor = parsecolor(GET_ARG(2)); + } + else if (0 == stricmp(value, "alpha")) + { + drawmethod.alpha = GET_INT_ARG(2); + } + else if (0 == stricmp(value, "clip")) + { + drawmethod.clipx = GET_INT_ARG(2); + drawmethod.clipy = GET_INT_ARG(3); + drawmethod.clipw = GET_INT_ARG(4); + drawmethod.cliph = GET_INT_ARG(5); + } + if(drawmethod.scalex < 0) + { + drawmethod.scalex = -drawmethod.scalex; + drawmethod.config ^= DRAWMETHOD_CONFIG_FLIP_X; + } + if(drawmethod.scaley < 0) + { + drawmethod.scaley = -drawmethod.scaley; + drawmethod.config ^= DRAWMETHOD_CONFIG_FLIP_Y; + } + if(drawmethod.rotate) + { + drawmethod.rotate = ((int)drawmethod.rotate % 360 + 360) % 360; + } + if(!blendfx_is_set) + { + if(drawmethod.alpha > 0 && drawmethod.alpha <= MAX_BLENDINGS) + { + blendfx[drawmethod.alpha - 1] = 1; + } + } + drawmethod.config |= DRAWMETHOD_CONFIG_ENABLED; + break; + case CMD_MODEL_NODRAWMETHOD: + //disable special effects + drawmethod.config &= ~DRAWMETHOD_CONFIG_ENABLED; + break; + + // 2016-10-11 + // Caskey, Damon + // Broken down attack commands. + case CMD_MODEL_COLLISION_BLOCK_COST: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->guardcost = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_BLOCK_PENETRATE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_block = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_COORDINATES: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + + temp_collision_coordinates->x = GET_INT_ARG(1); + temp_collision_coordinates->y = GET_INT_ARG(2); + temp_collision_coordinates->width = GET_INT_ARG(3); + temp_collision_coordinates->height = GET_INT_ARG(4); + temp_collision_coordinates->z_background = GET_INT_ARG(5); + temp_collision_coordinates->z_foreground = GET_INT_ARG(6); + + break; + + case CMD_MODEL_COLLISION_COUNTER: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->counterattack = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_FORCE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_force = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_LAND_FORCE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->damage_on_landing.attack_force = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_LAND_MODE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blast = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_LETHAL_DISABLE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_kill = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_STEAL: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->steal = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_TYPE: + + value = GET_ARG(1); + + tempInt = get_attack_type_from_string(value, filename); + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_FORCE: + + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->force = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_INDEX: + + tempInt = GET_INT_ARG(1); + + if(tempInt < 0 || tempInt >= MAX_RECURSIVE_EFFECTS) { + + snprintf(alert_buffer, sizeof(alert_buffer), "Recursive index (%d) out of range (0 - %d).", + tempInt, MAX_RECURSIVE_EFFECTS - 1); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->index = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_MODE: + + /* + * Caskey, Damon V. + * 2021-08-24 + * + * For legacy support of mode, we have to handle + * integer values differently because like a bonehead, + * I didn't originally set them up with bitwise + * logic in mind. + */ + + value = GET_ARG(1); + + if (isNumeric(value)) + { + /* + * Numeric is legacy. Interpret the number as + * a list of modes. + */ + + tempInt = GET_INT_ARG(1); + + tempInt = recursive_effect_get_mode_setup_from_legacy_argument(tempInt); + } + else + { + /* + * Toggle bits based on items provided in argument list. + */ + + tempInt = recursive_effect_get_mode_setup_from_command_line(buf + pos); + } + + + /* Send resulting bitwise integer to mode value. */ + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->mode = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_TAG: + + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->meta_tag = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_TYPE: + + value = GET_ARG(1); + + tempInt = get_attack_type_from_string(value, filename); + + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->type = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_TIME_RATE: + + tempInt = GET_INT_ARG(1); + + if (tempInt < 0) { + snprintf(alert_buffer, sizeof(alert_buffer), + "Recursive rate (%d) cannot be negative.", tempInt); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->rate = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_DAMAGE_RECURSIVE_TIME_EXPIRE: + + tempInt = GET_INT_ARG(1); + + if (tempInt < 0) { + snprintf(alert_buffer, sizeof(alert_buffer), + "Recursive time expire (%d) cannot be negative.", tempInt); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + collision_attack_upsert_recursive_property(&temp_collision_attack, temp_collision_index)->time = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_REACTION_FALL_FORCE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_drop = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_FALL_VELOCITY_X: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.x = GET_FLOAT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_FALL_VELOCITY_Y: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.y = GET_FLOAT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_FALL_VELOCITY_Z: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.z = GET_FLOAT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_REPOSITION_DIRECTION: + + tempInt = direction_get_adjustment_from_argument(filename, command, GET_ARG(1)); + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->force_direction = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_EFFECT_BLOCK_FLASH: + + value = GET_ARG(1); + + if(stricmp(value, "none") == 0 || value == 0) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_block = MODEL_INDEX_NONE; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_block = get_cached_model_index(value); + } + + break; + + case CMD_MODEL_COLLISION_EFFECT_BLOCK_SOUND: + + value = GET_ARG(1); + + if(stricmp(value, "none") == 0) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blocksound = SAMPLE_ID_NONE; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blocksound = sound_load_sample(value, packfile, 1, 0); + } + + break; + + case CMD_MODEL_COLLISION_EFFECT_HIT_FLASH: + + value = GET_ARG(1); + + if(stricmp(value, "none") == 0 || value == 0) + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_hit = MODEL_INDEX_NONE; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.model_hit = get_cached_model_index(value); + } + break; + + case CMD_MODEL_COLLISION_EFFECT_HIT_FLASH_DISABLE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_flash = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_EFFECT_HIT_FLASH_LAYER_ADJUST: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.layer_adjust = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_EFFECT_HIT_FLASH_LAYER_SOURCE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.layer_source = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_EFFECT_HIT_FLASH_Z_SOURCE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->flash.z_source = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_EFFECT_HIT_SOUND: + + value = GET_ARG(1); + + if (stricmp(value, "none") == 0) + { + tempInt = SAMPLE_ID_NONE; + } + else + { + tempInt = sound_load_sample(value, packfile, 1, 0); + } + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->hitsound = tempInt; + + tempInt = 0; + + break; + + case CMD_MODEL_COLLISION_GROUND: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->otg = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_MAP_INDEX: + + /* + * Translate text value into a pre-defined forcemap constant. + * When applying a pre-defined forcemap, we'll look at the model + * and try to find its appropriate index. For example, if the + * pre-defined BURN is used, forcemap will apply the model's + * designated burn. This allows use of effect maps without the + * need to match all model palettes up (i.e. all having their + * second palette a burn palette). + * + * If the creator provides a numeric value, pass it straight + * through. + */ + + value = GET_ARG(1); + if (stricmp(value, "none") == 0) + { + tempInt = MAP_TYPE_NONE; + } + else if (stricmp(value, "burn") == 0) + { + tempInt = MAP_TYPE_BURN; + } + else if (stricmp(value, "freeze") == 0) + { + tempInt = MAP_TYPE_FREEZE; + } + else if (stricmp(value, "ko") == 0) + { + tempInt = MAP_TYPE_SHOCK; + } + else if (stricmp(value, "shock") == 0) + { + tempInt = MAP_TYPE_SHOCK; + } + else + { + tempInt = GET_INT_ARG(1); + } + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->forcemap = tempInt; + + break; + + case CMD_MODEL_COLLISION_MAP_TIME: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->maptime = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_POSITION_X: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->x = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_POSITION_Y: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->y = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_FREEZE_MODE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->freeze = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_FREEZE_TIME: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->freezetime = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_INVINCIBLE_TIME: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->next_hit_time = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_REPOSITION_DISTANCE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->grab_distance = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_REPOSITION_MODE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->grab = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_PAIN_SKIP: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_pain = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_REACTION_PAUSE_TIME: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->pause_add = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_SEAL_COST: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->seal = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_SEAL_TIME: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->sealtime = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_SIZE_X: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->width = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_SIZE_Y: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->height = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_SIZE_Z_1: + case CMD_MODEL_COLLISION_SIZE_Z_BACKGROUND: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->z_background = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_SIZE_Z_2: + case CMD_MODEL_COLLISION_SIZE_Z_FOREGROUND: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->z_foreground = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_STAYDOWN_RISE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->staydown.rise = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_STAYDOWN_RISEATTACK: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->staydown.riseattack = GET_INT_ARG(1); + + break; + + case CMD_MODEL_COLLISION_TAG: + + // To do - Add tag system. + + break; + + case CMD_MODEL_COLLISION: + case CMD_MODEL_COLLISION1: + case CMD_MODEL_COLLISION2: + case CMD_MODEL_COLLISION3: + case CMD_MODEL_COLLISION4: + case CMD_MODEL_COLLISION5: + case CMD_MODEL_COLLISION6: + case CMD_MODEL_COLLISION7: + case CMD_MODEL_COLLISION8: + case CMD_MODEL_COLLISION9: + case CMD_MODEL_COLLISION10: + case CMD_MODEL_SHOCK: + case CMD_MODEL_BURN: + case CMD_MODEL_STEAL: + case CMD_MODEL_FREEZE: + case CMD_MODEL_ITEMBOX: + case CMD_MODEL_LOSE: + case CMD_MODEL_COLLISION_ETC: + + // 2020-03-08, + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + + /* + * "none" deactivates attack on this and subsequent frames. + * The attack loading system interprets 0 for all coordinates + * as no attack and will not load to memory. + */ + value = GET_ARG(1); + if (stricmp(value, "none") == 0) { + + *temp_collision_coordinates = (s_hitbox){0}; + + break; + } + + temp_collision_coordinates->x = GET_INT_ARG(1); + temp_collision_coordinates->y = GET_INT_ARG(2); + temp_collision_coordinates->width = GET_INT_ARG(3); + temp_collision_coordinates->height = GET_INT_ARG(4); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_force = GET_INT_ARG(5); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_drop = GET_INT_ARG(6); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_block = GET_INT_ARG(7); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_flash = GET_INT_ARG(8); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->pause_add = GET_INT_ARG(9); + + // -- Not a typo - legacy Z sets identical value to back/fore depth. + temp_collision_coordinates->z_background = GET_INT_ARG(10); + temp_collision_coordinates->z_foreground = GET_INT_ARG(10); + + switch(cmd) + { + case CMD_MODEL_COLLISION: + case CMD_MODEL_COLLISION1: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL; + + break; + + case CMD_MODEL_COLLISION2: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL2; + + break; + + case CMD_MODEL_COLLISION3: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL3; + + break; + + case CMD_MODEL_COLLISION4: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL4; + + break; + + case CMD_MODEL_COLLISION5: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL5; + + break; + + case CMD_MODEL_COLLISION6: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL6; + + break; + + case CMD_MODEL_COLLISION7: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL7; + + break; + + case CMD_MODEL_COLLISION8: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL8; + + break; + + case CMD_MODEL_COLLISION9: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL9; + + break; + + case CMD_MODEL_COLLISION10: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_NORMAL10; + + break; + + case CMD_MODEL_SHOCK: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_SHOCK; + + break; + + case CMD_MODEL_BURN: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_BURN; + + break; + + case CMD_MODEL_STEAL: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->steal = 1; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_STEAL; + + break; + + case CMD_MODEL_FREEZE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_FREEZE; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->freeze = 1; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->freezetime = GET_FLOAT_ARG(6) * global_config.game_speed; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->forcemap = MAP_TYPE_FREEZE; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_drop = 0; + + break; + + case CMD_MODEL_ITEMBOX: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_ITEM; + + break; + + case CMD_MODEL_LOSE: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_LOSE; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_drop = 0; + + break; + + default: + + //value = GET_ARG(1); + + tempInt = get_attack_type_from_string(command, filename); + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = tempInt; + + break; + } + break; + + + + case CMD_MODEL_HITWALLTYPE: + value = GET_ARG(1); + newchar->hitwalltype = atoi(value); + break; + case CMD_MODEL_COLLISIONZ: + case CMD_MODEL_HITZ: + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->z_background = GET_INT_ARG(1); + temp_collision_coordinates->z_foreground = GET_INT_ARG(2); + + break; + + case CMD_MODEL_BLAST: + + // 2020-03-08, + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates = collision_attack_upsert_coordinates_property(&temp_collision_attack, temp_collision_index); + temp_collision_coordinates->x = GET_INT_ARG(1); + temp_collision_coordinates->y = GET_INT_ARG(2); + temp_collision_coordinates->width = GET_INT_ARG(3); + temp_collision_coordinates->height = GET_INT_ARG(4); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_force = GET_INT_ARG(5); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_block = GET_INT_ARG(6); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_flash = GET_INT_ARG(7); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->pause_add = GET_INT_ARG(8); + + // -- Not a typo - legacy Z sets identical value to back/fore depth. + temp_collision_coordinates->z_background = GET_INT_ARG(9); + temp_collision_coordinates->z_foreground = GET_INT_ARG(9); + + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_drop = 1; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_type = ATK_BLAST; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blast = 1; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.x = default_model_dropv.x * 2.083f; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.y = default_model_dropv.y; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.z = default_model_dropv.z; + + break; + + case CMD_MODEL_DROPV: + + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->dropv.y = GET_FLOAT_ARG(1); + newchar->smartbomb->dropv.x = GET_FLOAT_ARG(2); + newchar->smartbomb->dropv.z = GET_FLOAT_ARG(3); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.y = GET_FLOAT_ARG(1); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.x = GET_FLOAT_ARG(2); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->dropv.z = GET_FLOAT_ARG(3); + } + + break; + + case CMD_MODEL_OTG: + // Over The Ground hit. + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->otg = GET_INT_ARG(1); + + break; + + case CMD_MODEL_JUGGLECOST: + + // if cost >= opponents jugglepoints , we can juggle + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->jugglecost = GET_INT_ARG(1); + + break; + + case CMD_MODEL_GUARDCOST: + + // if cost >= opponents guardpoints , opponent will play guardcrush anim + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->guardcost = GET_INT_ARG(1); + + break; + + case CMD_MODEL_STUN: + + //Like Freeze, but no auto remap. + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->freeze = 1; + newchar->smartbomb->freezetime = GET_FLOAT_ARG(1) * global_config.game_speed; + newchar->smartbomb->attack_drop = 0; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->freeze = 1; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->freezetime = GET_FLOAT_ARG(1) * global_config.game_speed; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->attack_drop = 0; + } + + break; + + case CMD_MODEL_GRABIN: + + // fake grab distanse efffect, not link + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->grab = GET_INT_ARG(1); + newchar->smartbomb->grab_distance = GET_FLOAT_ARG(2); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->grab = GET_INT_ARG(1); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->grab_distance = GET_FLOAT_ARG(2); + } + + break; + + case CMD_MODEL_NOREFLECT: + + // only cost target's hp, don't knock down or cause pain, unless the target is killed + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->no_pain = GET_INT_ARG(1); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_pain = GET_INT_ARG(1); + } + + break; + + case CMD_MODEL_NOKILL: + + // don't kill the target, leave 1 hp + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->no_kill = GET_INT_ARG(1); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->no_kill = GET_INT_ARG(1); + } + + break; + + case CMD_MODEL_FORCEDIRECTION: + + tempInt = direction_get_adjustment_from_argument(filename, command, GET_ARG(1)); + + // the attack direction + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->force_direction = tempInt; + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->force_direction = tempInt; + } + + tempInt = 0; + + break; + + case CMD_MODEL_DAMAGEONLANDING: + + // fake throw damage on landing + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->damage_on_landing.attack_force = GET_INT_ARG(1); + newchar->smartbomb->blast = GET_INT_ARG(2); + newchar->smartbomb->damage_on_landing.attack_type = translate_attack_type(GET_ARG(3), filename); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->damage_on_landing.attack_force = GET_INT_ARG(1); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->blast = GET_INT_ARG(2); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->damage_on_landing.attack_type = translate_attack_type(GET_ARG(3), filename); + } + + break; + + case CMD_MODEL_SEAL: + + // Disable special moves for specified time. + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->sealtime = GET_INT_ARG(1) * (global_config.game_speed / 100); + newchar->smartbomb->seal = GET_INT_ARG(2); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->sealtime = GET_INT_ARG(1) * (global_config.game_speed / 100); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->seal = GET_INT_ARG(2); + } + + break; + + case CMD_MODEL_STAYDOWN: + + // Disable special moves for specified time. + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->staydown.rise = GET_INT_ARG(1); + newchar->smartbomb->staydown.riseattack = GET_INT_ARG(2); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->staydown.rise = GET_INT_ARG(1); + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->staydown.riseattack = GET_INT_ARG(2); + } + + break; + + case CMD_MODEL_FORCEMAP: + + /* + * Translate text value into a pre-defined forcemap constant. + * When applying a pre-defined forcemap, we'll look at the model + * and try to find its appropriate index. For example, if the + * pre-defined BURN is used, forcemap will apply the model's + * designated burn. This allows use of effect maps without the + * need to match all model palettes up (i.e. all having their + * second palette a burn palette). + * + * If the creator provides a numeric value, pass it straight + * through. + */ + + value = GET_ARG(1); + + if (stricmp(value, "none") == 0) + { + tempInt = MAP_TYPE_NONE; + } + else if (stricmp(value, "burn") == 0) + { + tempInt = MAP_TYPE_BURN; + } + else if (stricmp(value, "freeze") == 0) + { + tempInt = MAP_TYPE_FREEZE; + } + else if (stricmp(value, "ko") == 0) + { + tempInt = MAP_TYPE_SHOCK; + } + else if (stricmp(value, "shock") == 0) + { + tempInt = MAP_TYPE_SHOCK; + } + else + { + tempInt = GET_INT_ARG(1); + } + + // force color map change for specified time + if (!newanim && newchar->smartbomb) + { + newchar->smartbomb->forcemap = tempInt; + newchar->smartbomb->maptime = GET_FLOAT_ARG(2) * (global_config.game_speed / 100); + } + else + { + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->forcemap = tempInt; + collision_attack_upsert_property(&temp_collision_attack, temp_collision_index)->maptime = GET_FLOAT_ARG(2) * (global_config.game_speed / 100); + } + + break; + + case CMD_MODEL_IDLE: + idle = GET_INT_ARG(1); + break; + case CMD_MODEL_SETA: + move.base = GET_INT_ARG(1); + break; + case CMD_MODEL_MOVE: + move.axis.x = GET_INT_ARG(1); + break; + case CMD_MODEL_MOVEA: + move.axis.y = GET_INT_ARG(1); + break; + case CMD_MODEL_MOVEZ: + move.axis.z = GET_INT_ARG(1); + break; + case CMD_MODEL_FSHADOW: + + value = GET_ARG(1); + if (stricmp(value, "none") == 0) { + tempInt = FRAME_SHADOW_NONE; + + } else { + tempInt = GET_INT_ARG(1); + } + frameshadow = tempInt; + break; + case CMD_MODEL_RANGE: + if(!newanim) { + shutdownmessage = "Cannot set range: no animation!"; + goto lCleanup; + } + newanim->range.x.min = GET_INT_ARG(1); + newanim->range.x.max = GET_INT_ARG(2); + if(newanim->range.x.min == newanim->range.x.max) { + newanim->range.x.min--; + } + break; + case CMD_MODEL_RANGEZ: + if(!newanim) { + shutdownmessage = "Cannot set rangez: no animation!"; + goto lCleanup; + } + newanim->range.z.min = GET_INT_ARG(1); + newanim->range.z.max = GET_INT_ARG(2); + break; + case CMD_MODEL_RANGEA: + if(!newanim) { + shutdownmessage = "Cannot set rangea: no animation!"; + goto lCleanup; + } + newanim->range.y.min = GET_INT_ARG(1); + newanim->range.y.max = GET_INT_ARG(2); + break; + case CMD_MODEL_RANGEB: + if(!newanim) { + shutdownmessage = "Cannot set rangeb: no animation!"; + goto lCleanup; + } + newanim->range.base.min = GET_INT_ARG(1); + newanim->range.base.max = GET_INT_ARG(2); + break; + case CMD_MODEL_PATHFINDSTEP: + newchar->pathfindstep = GET_FLOAT_ARG(1); + break; + case CMD_MODEL_FRAME: + { + s_command_token frame_token; + s_command_token_reader frame_reader; + + // Command title for log. Details will be added blow accordingly. + //printf("\t\t\tFrame: "); + + if(!newanim) { + shutdownmessage = "Cannot add frame: animation not specified!"; + goto lCleanup; + } + + peek = 0; + if(frameset && framecount >= 0) { + framecount = -framecount; + } + + while(!frameset) { + frame_reader.cursor = buf + pos + peek; + + if(command_token_reader_next( + &frame_reader, + &frame_token + )) { + if(command_token_equals(&frame_token, "frame")) { + framecount++; + } + + if(command_token_equals(&frame_token, "anim")) { + frameset = 1; + } + } + + if(pos + peek >= size) { + frameset = 1; + } + + // Go to next line + while(buf[pos + peek] && buf[pos + peek] != '\n' && buf[pos + peek] != '\r') { + ++peek; + } + + while(buf[pos + peek] == '\n' || buf[pos + peek] == '\r') { + ++peek; + } + } + value = GET_ARG(1); + + // Log info. + //printf("%d", ++framenum); + //printf("\tSprite Path: %s\n", value); + + index = stricmp(value, "none") == 0 ? -1 : loadsprite(value, offset.x, offset.y, nopalette ? PIXEL_x8 : PIXEL_8); //don't use palette for the sprite since it will one palette from the entity's remap list in 24bit mode + + if(index >= 0) { + + // If the model does not have a designated palette + // yet and the creator did not specify palette none + // or global palette, then we will use this frame's + // sprite to load a color table. Effectively the first + // frame of a model becomes its palette base. + if(pixelformat == PIXEL_x8 && !nopalette) { + + // No master color table assigned yet? + if(newchar->palette == NULL) { + //printf("\t\t\tAuto Palette - 'Palette' not defined. Attempting to load color table from this frame: "); + + // Allocate memory for color table. + newchar->palette = malloc(PAL_BYTES); + // + if(loadimagepalette(value, packfile, newchar->palette) == 0) { + //printf("\t\t\t%s%s\n", "Failed to load color table from image: ", value); + goto lCleanup; + } + } + + //printf("\t\t\t%s\n", "Success. Loaded color selection 0 from frame."); + + // Assign the color table to sprite. + if(!nopalette) { + sprite_map[index].node->sprite->palette = newchar->palette; + sprite_map[index].node->sprite->pixelformat = pixelformat; + } + } + + if(maskindex >= 0) { + sprite_map[index].node->sprite->mask = sprite_map[maskindex].node->sprite; + maskindex = -1; + } + } + + if(platform[PLATFORM_X] == PLATFORM_DEFAULT_X) { // old style + platform_con[PLATFORM_X] = 0; + platform_con[PLATFORM_Z] = 3; + platform_con[PLATFORM_UPPERLEFT] = platform[PLATFORM_UPPERLEFT] - offset.x; + platform_con[PLATFORM_LOWERLEFT] = platform[PLATFORM_LOWERLEFT] - offset.x; + platform_con[PLATFORM_UPPERRIGHT] = platform[PLATFORM_UPPERRIGHT] - offset.x; + platform_con[PLATFORM_LOWERRIGHT] = platform[PLATFORM_LOWERRIGHT] - offset.x; + platform_con[PLATFORM_DEPTH] = platform[PLATFORM_DEPTH] + 3; + + } else { // wall style + platform_con[PLATFORM_X] = platform[PLATFORM_X] - offset.x; + platform_con[PLATFORM_Z] = platform[PLATFORM_Z] - offset.y; + platform_con[PLATFORM_UPPERLEFT] = platform[PLATFORM_UPPERLEFT]; + platform_con[PLATFORM_LOWERLEFT] = platform[PLATFORM_LOWERLEFT]; + platform_con[PLATFORM_UPPERRIGHT] = platform[PLATFORM_UPPERRIGHT]; + platform_con[PLATFORM_LOWERRIGHT] = platform[PLATFORM_LOWERRIGHT]; + platform_con[PLATFORM_DEPTH] = platform[PLATFORM_DEPTH]; + } + platform_con[PLATFORM_HEIGHT] = platform[PLATFORM_HEIGHT]; + + if(shadow_set) { + shadow_coords[0] = shadow_xz[0] - offset.x; + shadow_coords[1] = shadow_xz[1] - offset.y; + + } else { + shadow_coords[0] = shadow_coords[1] = 0; + } + + if(drawmethod.config & DRAWMETHOD_CONFIG_ENABLED) { + dm = drawmethod; + if(dm.clipw) { + dm.clipx -= offset.x; + dm.clipy -= offset.y; + } + + } else { + dm.config &= ~DRAWMETHOD_CONFIG_ENABLED; + } + + frame_sound_load_collection(temp_frame_sound, packfile); + + add_frame_data.animation = newanim; + add_frame_data.spriteindex = index; + add_frame_data.framecount = framecount; + add_frame_data.delay = delay; + add_frame_data.delay_mode = delay_mode; + add_frame_data.idle = idle; + add_frame_data.move = &move; + add_frame_data.platform = platform_con; + add_frame_data.frameshadow = frameshadow; + add_frame_data.shadow_coords = shadow_coords; + add_frame_data.sound = temp_frame_sound; + add_frame_data.drawmethod = &dm; + add_frame_data.offset = &offset; + + add_frame_data.model = newchar; + + /* + * Delete nodes from frame object lists + * that don't have valid data (i.e. no + * coordinates defined at all or the + * coordinates X/Y/H/W are all 0). + * + * 2023-01-09 - Disabled. Clone functions now + * verify coordinates before copying temp + * to frame. This is to preserve legacy behavior + * of keeping the read in values frame to frame + * even after a collision box is closed. + */ + //collision_attack_remove_undefined_coordinates(&temp_collision_attack); + //collision_body_remove_undefined_coordinates(&temp_collision_body); + + /* + * Multiple per frame object heads may have + * changed, so this needs to be right before + * addframe function. + */ + add_frame_data.collision_attack = temp_collision_attack; + add_frame_data.collision_body = temp_collision_body; + add_frame_data.collision_space = temp_collision_space; + add_frame_data.child_spawn = temp_child_spawn_head; + + /* + * Send data to frame function so it + * can build a new animation frame. + */ + curframe = addframe(&add_frame_data); + + /* + * Clear any data tha we don't want + * retained for the next frame. Also + * reset temp indexes. + */ + + temp_collision_index = 0; + + frame_sound_collection_free(temp_frame_sound); + temp_frame_sound = NULL; + temp_frame_sound_index = 0; + + child_spawn_free_list(temp_child_spawn_head); + temp_child_spawn_head = NULL; + temp_child_spawn_index = 0; + + frm_id = -1; + at_cmd_mergeable = false; + } + break; + case CMD_MODEL_ALPHAMASK: + if(!newanim) + { + shutdownmessage = "Cannot add alpha mask: animation not specified!"; + goto lCleanup; + } + if(maskindex >= 0) + { + shutdownmessage = "Cannot add alpha mask: a mask has already been specified for this frame!"; + goto lCleanup; + } + value = GET_ARG(1); + //printf("frame count: %d\n",framecount); + //printf("Load sprite '%s'...\n", value); + index = loadsprite(value, offset.x, offset.y, PIXEL_8); //don't use palette for the mask + maskindex = index; + break; + case CMD_MODEL_FLIPFRAME: + newanim->flipframe = GET_FRAME_ARG(1); + break; + case CMD_MODEL_FOLLOWANIM: + newanim->followup.animation = GET_INT_ARG(1); + if(newanim->followup.animation > max_follows) + { + newanim->followup.animation = max_follows; + } + break; + case CMD_MODEL_FOLLOWCOND: + + // 2019-11-24 + // Caskey, Damon V. + // + // Follow up condition is now handled by bitwise logic. + // We need to set up our bit flags based on the old int + // arg for backward compatability. + + // Get legacy style condition arg. + tempInt = GET_INT_ARG(1); + + // Make sure condition is reset. + newanim->followup.condition = FOLLOW_CONDITION_NONE; + + switch (tempInt) + { + default: + case FOLLOW_CONDITION_CMD_READ_ALWAYS: + newanim->followup.condition |= FOLLOW_CONDITION_ANY; + break; + case FOLLOW_CONDITION_CMD_READ_HOSTILE: + newanim->followup.condition |= FOLLOW_CONDITION_HOSTILE_TARGET_TRUE; + break; + case FOLLOW_CONDITION_CMD_READ_HOSTILE_NOKILL_NOBLOCK: + newanim->followup.condition |= FOLLOW_CONDITION_HOSTILE_TARGET_TRUE; + newanim->followup.condition |= FOLLOW_CONDITION_BLOCK_FALSE; + newanim->followup.condition |= FOLLOW_CONDITION_LETHAL_FALSE; + break; + case FOLLOW_CONDITION_CMD_READ_HOSTILE_NOKILL_NOBLOCK_NOGRAB: + newanim->followup.condition |= FOLLOW_CONDITION_HOSTILE_TARGET_TRUE; + newanim->followup.condition |= FOLLOW_CONDITION_BLOCK_FALSE; + newanim->followup.condition |= FOLLOW_CONDITION_GRAB_TRUE; + newanim->followup.condition |= FOLLOW_CONDITION_LETHAL_FALSE; + break; + case FOLLOW_CONDITION_CMD_READ_HOSTILE_NOKILL_BLOCK: + newanim->followup.condition |= FOLLOW_CONDITION_HOSTILE_TARGET_TRUE; + newanim->followup.condition |= FOLLOW_CONDITION_BLOCK_TRUE; + newanim->followup.condition |= FOLLOW_CONDITION_LETHAL_FALSE; + break; + } + + case CMD_MODEL_COUNTERRANGE: + newanim->counter_action.frame.min = GET_FRAME_ARG(1); + newanim->counter_action.frame.max = GET_FRAME_ARG(2); + + // 2019-12-04 + // Caskey, Damon V. + // + // Counter action condition is now handled by bitwise logic. + // We need to set up our bit flags based on the old int + // arg for backward compatability. + + // Get legacy style condition arg. + tempInt = GET_INT_ARG(3); + + // Make sure condition is reset. + newanim->counter_action.condition = COUNTER_ACTION_CONDITION_NONE; + + switch (tempInt) + { + default: + case COUNTER_ACTION_CONDITION_CMD_READ_ALWAYS: + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_DAMAGE_LETHAL_FALSE; + break; + case COUNTER_ACTION_CONDITION_CMD_READ_HOSTILE: + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_DAMAGE_LETHAL_FALSE; + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_HOSTILE_TARGET_TRUE; + break; + case COUNTER_ACTION_CONDITION_CMD_READ_HOSTILE_FRONT_NOFREEZE: + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_BACK_TRUE; + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_BLOCK_TRUE; + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_DAMAGE_LETHAL_FALSE; + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_FREEZE_FALSE; + newanim->counter_action.condition |= COUNTER_ACTION_CONDITION_HOSTILE_TARGET_TRUE; + break; + case COUNTER_ACTION_CONDITION_CMD_READ_ALWAYS_RAGE: + newanim->counter_action.condition ^= FOLLOW_CONDITION_ANY; + break; + } + + newanim->counter_action.damaged = GET_INT_ARG(4); + break; + case CMD_MODEL_WEAPONFRAME: + if(!newanim->weaponframe) + { + newanim->weaponframe = malloc(sizeof(*newanim->weaponframe) * 3); + } + newanim->weaponframe[0] = GET_FRAME_ARG(1); + newanim->weaponframe[1] = GET_INT_ARG(2); + newanim->weaponframe[2] = GET_INT_ARG(3); + break; + case CMD_MODEL_QUAKEFRAME: + newanim->quakeframe.framestart = GET_FRAME_ARG(1); + newanim->quakeframe.repeat = GET_INT_ARG(2); + newanim->quakeframe.v = GET_INT_ARG(3); + newanim->quakeframe.cnt = 0; + break; + case CMD_MODEL_SUBENTITY: + case CMD_MODEL_CUSTENTITY: + value = GET_ARG(1); + if(value[0]) + { + newanim->sub_entity_model_index = get_cached_model_index(value); + } + break; + case CMD_MODEL_SPAWNFRAME: + + newanim->sub_entity_spawn = allocate_sub_entity(); + + newanim->sub_entity_spawn->frame = GET_FRAME_ARG(1); + newanim->sub_entity_spawn->position.x = GET_FLOAT_ARG(2); + newanim->sub_entity_spawn->position.z = GET_FLOAT_ARG(3); + newanim->sub_entity_spawn->position.y = GET_FLOAT_ARG(4); + newanim->sub_entity_spawn->placement = GET_INT_ARG(5); + break; + + case CMD_MODEL_SUMMONFRAME: + + newanim->sub_entity_summon = allocate_sub_entity(); + + newanim->sub_entity_summon->frame = GET_FRAME_ARG(1); + newanim->sub_entity_summon->position.x = GET_FLOAT_ARG(2); + newanim->sub_entity_summon->position.z = GET_FLOAT_ARG(3); + newanim->sub_entity_summon->position.y = GET_FLOAT_ARG(4); + newanim->sub_entity_summon->placement = GET_INT_ARG(5); + break; + + + case CMD_MODEL_UNSUMMONFRAME: + newanim->sub_entity_unsummon = GET_FRAME_ARG(1); + break; + case CMD_MODEL_NOHITHEAD: + + if (GET_INT_ARG(1)) + { + newchar->move_config_flags |= MOVE_CONFIG_NO_HIT_HEAD; + } + else + { + newchar->move_config_flags &= ~MOVE_CONFIG_NO_HIT_HEAD; + } + + break; + case CMD_MODEL_AT_SCRIPT: + at_cmd_mergeable = false; + + if(!scriptbuf[0]) // if empty, paste the main function text here + { + buffer_append(&scriptbuf, pre_text, 0xffffff, &sbsize, &scriptlen); + } + scriptbuf[scriptlen - strclen(sur_text)] = 0; // cut last chars + scriptlen = strlen(scriptbuf); + if(ani_id >= 0) + { + if(script_id != ani_id) // if expression 1 + { + sprintf(namebuf, ifid_text, newanim->index); + buffer_append(&scriptbuf, namebuf, 0xffffff, &sbsize, &scriptlen); + script_id = ani_id; + } + scriptbuf[scriptlen - strclen(endifid_text)] = 0; // cut last chars + scriptlen = strlen(scriptbuf); + } + while(!starts_with(buf + pos, "@script")) + { + pos++; + } + pos += strclen("@script"); + len = 0; + while(!starts_with(buf + pos, "@end_script")) + { + len++; + pos++; + } + buffer_append(&scriptbuf, buf + pos - len, len, &sbsize, &scriptlen); + pos += strclen("@end_script"); + + if(ani_id >= 0) + { + buffer_append(&scriptbuf, endifid_text, 0xffffff, &sbsize, &scriptlen);// put back last chars + } + buffer_append(&scriptbuf, sur_text, 0xffffff, &sbsize, &scriptlen);// put back last chars + break; + case CMD_MODEL_AT_CMD: + { + s_command_token command_token; + s_command_token_reader command_token_reader; + bool command_emitted = false; + bool first_command_argument; + + //translate @cmd into script function call + if(ani_id < 0) + { + shutdownmessage = "command '@cmd' must follow an animation!"; + goto lCleanup; + } + if(!scriptbuf[0]) // if empty, paste the main function text here + { + buffer_append(&scriptbuf, pre_text, 0xffffff, &sbsize, &scriptlen); + } + scriptbuf[scriptlen - strclen(sur_text)] = 0; // cut last chars + scriptlen = strlen(scriptbuf); + if(script_id != ani_id) // if expression 1 + { + at_cmd_mergeable = false; + sprintf(namebuf, ifid_text, newanim->index); + buffer_append(&scriptbuf, namebuf, 0xffffff, &sbsize, &scriptlen); + script_id = ani_id; + } + scriptbuf[scriptlen - strclen(endifid_text)] = 0; // cut last chars + scriptlen = strlen(scriptbuf); + command_token_reader = (s_command_token_reader){ + .cursor = buf + pos + }; + + /* Skip @cmd, then read the function name. */ + if(command_token_reader_next(&command_token_reader, &command_token) + && command_token_reader_next(&command_token_reader, &command_token)) + { + /* + //no_cmd_compatible will try to optimize if(frame==n) + //which means merging extra if statements within the same frame + //some old mod will have problem if this is enabled, however. + // + // @cmd f + // @cmd f + // frame + // + // When no_cmd_compatible is 1 + // + // if(frame==n) { + // f(); + // f(); + // return; + // } + // + // When no_cmd_compatible is 0 + // + // if(frame==n) { + // f(); + // } + // if(frame==n) { + // f(); + // } + */ + /* + - Caskey, Damon V. + - 2026-08-12 + - + - Merge same-frame @cmd calls only when the + previous generated section is an eligible + @cmd block with the exact expected suffix. + Otherwise, open a new frame condition without + removing any existing script text. + */ + const size_t frame_close_length = strclen(endif_text); + const size_t frame_return_length = strclen(endif_return_text); + + bool merge_previous_command = + no_cmd_compatible + && at_cmd_mergeable + && frm_id == curframe; + + if(merge_previous_command) + { + merge_previous_command = buffer_remove_suffix_pair( + scriptbuf, + &scriptlen, + endif_return_text, + frame_return_length, + endif_text, + frame_close_length + ); + } + + if(!merge_previous_command) + { + sprintf(namebuf, if_text, curframe);//only execute in current frame + buffer_append(&scriptbuf, namebuf, 0xffffff, &sbsize, &scriptlen); + frm_id = curframe; + } + buffer_append(&scriptbuf, call_indent_text, 0xffffff, &sbsize, &scriptlen); + buffer_append( + &scriptbuf, + command_token.text, + command_token.length, + &sbsize, + &scriptlen + ); + buffer_append(&scriptbuf, call_open_text, 0xffffff, &sbsize, &scriptlen); + + first_command_argument = true; + while(command_token_reader_next( + &command_token_reader, + &command_token + )) + { + if(!first_command_argument) + { + buffer_append(&scriptbuf, comma_text, 0xffffff, &sbsize, &scriptlen); + } + buffer_append( + &scriptbuf, + command_token.text, + command_token.length, + &sbsize, + &scriptlen + ); + first_command_argument = false; + } + + command_emitted = true; + } + + if(command_token_reader.unterminated_quote) + { + snprintf( + alert_buffer, + sizeof(alert_buffer), + "Command '@cmd' has an unterminated %c quote.\n", + command_token_reader.unterminated_quote + ); + + shutdownmessage = alert_buffer; + goto lCleanup; + } + + buffer_append(&scriptbuf, endcall_text, 0xffffff, &sbsize, &scriptlen); + if(no_cmd_compatible) + { + buffer_append(&scriptbuf, endif_return_text, 0xffffff, &sbsize, &scriptlen); //return + } + buffer_append(&scriptbuf, endif_text, 0xffffff, &sbsize, &scriptlen);//end of if + buffer_append(&scriptbuf, endifid_text, 0xffffff, &sbsize, &scriptlen); // put back last chars + buffer_append(&scriptbuf, sur_text, 0xffffff, &sbsize, &scriptlen); // put back last chars + at_cmd_mergeable = no_cmd_compatible && command_emitted; + break; + } + default: + if(command && command[0]) + { + if(!handle_txt_include(command, &arglist, &filename, fnbuf, &buf, &pos, &size)) + { + printf("Command '%s' not understood in file '%s'!\n", command, filename); + } + } + } + + } + // Go to next line + pos += getNewLineStart(buf + pos); + } + + + tempInt = 1; + + if(scriptbuf && animscriptbuf && scriptbuf[0] && animscriptbuf[0]) + { + writeToScriptLog("\n#### animationscript function main #####\n# "); + writeToScriptLog(filename); + writeToScriptLog("\n########################################\n"); + writeToScriptLog(scriptbuf); + + lcmScriptDeleteMain(&scriptbuf); + lcmScriptAddMain(&animscriptbuf); + lcmScriptJoinMain(&animscriptbuf,scriptbuf); + + if(!Script_IsInitialized(newchar->scripts->animation_script)) + { + Script_Init(newchar->scripts->animation_script, newchar->name, filename, 0); + } + tempInt = Script_AppendText(newchar->scripts->animation_script, animscriptbuf, filename); + } + else if(animscriptbuf && animscriptbuf[0]) + { + lcmScriptAddMain(&animscriptbuf); + + if(!Script_IsInitialized(newchar->scripts->animation_script)) + { + Script_Init(newchar->scripts->animation_script, newchar->name, filename, 0); + } + tempInt = Script_AppendText(newchar->scripts->animation_script, animscriptbuf, filename); + } + else if(scriptbuf && scriptbuf[0]) + { + //printf("\n%s\n", scriptbuf); + if(!Script_IsInitialized(newchar->scripts->animation_script)) + { + Script_Init(newchar->scripts->animation_script, newchar->name, filename, 0); + } + tempInt = Script_AppendText(newchar->scripts->animation_script, scriptbuf, filename); + //Interpreter_OutputPCode(newchar->scripts->animation_script.pinterpreter, "code"); + writeToScriptLog("\n#### animationscript function main #####\n# "); + writeToScriptLog(filename); + writeToScriptLog("\n########################################\n"); + writeToScriptLog(scriptbuf); + } + + if(!newchar->isSubclassed) + { + Script_Compile(newchar->scripts->animation_script); + } + + if(!tempInt)// parse script failed + { + shutdownmessage = "Error parsing function main of animation script in file '%s'!"; + goto lCleanup; + } + + // We need a little more work to initialize the new A.I. types if they are not loaded from file + if(newchar->aiattack == -1) + { + newchar->aiattack = 0; + } + if(newchar->aimove == AIMOVE1_NONE) + { + newchar->aimove = AIMOVE1_NORMAL; + } + //if(!newchar->offscreenkill) newchar->offscreenkill = 1000; + + //temporary patch for conflicting moves + if(newchar->animation[ANI_FREESPECIAL] && !is_set(newchar, ANI_FREESPECIAL)) + { + if(!alloc_specials(newchar)) + { + shutdownmessage = E_OUT_OF_MEMORY; + goto lCleanup; + } + + newchar->special[newchar->specials_loaded].input[0].press = FLAG_FORWARD; + newchar->special[newchar->specials_loaded].input[1].press = FLAG_FORWARD; + newchar->special[newchar->specials_loaded].input[2].press = FLAG_ATTACK; + newchar->special[newchar->specials_loaded].anim = ANI_FREESPECIAL; + newchar->special[newchar->specials_loaded].steps = 3; + newchar->specials_loaded++; + } + if(newchar->animation[ANI_FREESPECIAL2] && !is_set(newchar, ANI_FREESPECIAL2)) + { + if(!alloc_specials(newchar)) + { + shutdownmessage = E_OUT_OF_MEMORY; + goto lCleanup; + } + + newchar->special[newchar->specials_loaded].input[0].press = FLAG_MOVEDOWN; + newchar->special[newchar->specials_loaded].input[1].press = FLAG_MOVEDOWN; + newchar->special[newchar->specials_loaded].input[2].press = FLAG_ATTACK; + newchar->special[newchar->specials_loaded].anim = ANI_FREESPECIAL2; + newchar->special[newchar->specials_loaded].steps = 3; + newchar->specials_loaded++; + } + if(newchar->animation[ANI_FREESPECIAL3] && !is_set(newchar, ANI_FREESPECIAL3)) + { + if(!alloc_specials(newchar)) + { + shutdownmessage = E_OUT_OF_MEMORY; + goto lCleanup; + } + + newchar->special[newchar->specials_loaded].input[0].press = FLAG_MOVEUP; + newchar->special[newchar->specials_loaded].input[1].press = FLAG_MOVEUP; + newchar->special[newchar->specials_loaded].input[2].press = FLAG_ATTACK; + newchar->special[newchar->specials_loaded].anim = ANI_FREESPECIAL3; + newchar->special[newchar->specials_loaded].steps = 3; + newchar->specials_loaded++; + } + + if(newchar->risetime.rise == -1) + { + if(newchar->type == TYPE_PLAYER) + { + if(newchar->animation[ANI_RISEATTACK]) + { + newchar->risetime.rise = global_config.game_speed / 2; + } + else + { + newchar->risetime.rise = global_config.game_speed; + } + } + else if(newchar->type == TYPE_ENEMY || newchar->type == TYPE_NPC) + { + newchar->risetime.rise = 0; + } + } + + if(newchar->faction.type_hostile == TYPE_UNDECLARED) // not been initialized, so initialize it + { + switch (newchar->type) + { + default: + //Do nothing. + break; + case TYPE_ENEMY: + newchar->faction.type_hostile = TYPE_PLAYER; + break; + case TYPE_PLAYER: // dont really needed, since you don't need A.I. control for players + newchar->faction.type_hostile = TYPE_PLAYER | TYPE_ENEMY | TYPE_OBSTACLE; + break; + case TYPE_TRAP: + newchar->faction.type_hostile = TYPE_ENEMY | TYPE_PLAYER; + case TYPE_OBSTACLE: + newchar->faction.type_hostile = TYPE_UNDECLARED; + break; + case TYPE_PROJECTILE: + // We want a clean slate so the projectile + // spawn functions will copy owner settings + // by default. + newchar->faction.type_hostile = TYPE_UNDECLARED; + break; + case TYPE_SHOT: // only target enemies + newchar->faction.type_hostile = TYPE_ENEMY ; + break; + case TYPE_NPC: // default npc behivior + newchar->faction.type_hostile = TYPE_ENEMY ; + break; + } + } + + if(newchar->faction.type_damage_direct == TYPE_UNDECLARED) // not been initialized, so initialize it + { + switch (newchar->type) + { + default: + //Do nothing. + break; + case TYPE_ENEMY: + newchar->faction.type_damage_direct = TYPE_PLAYER | TYPE_SHOT; + if(newchar->subtype == SUBTYPE_ARROW) + { + newchar->faction.type_damage_direct |= TYPE_OBSTACLE; + } + break; + case TYPE_PLAYER: + newchar->faction.type_damage_direct = TYPE_PLAYER | TYPE_ENEMY | TYPE_OBSTACLE; + break; + case TYPE_TRAP: + newchar->faction.type_damage_direct = TYPE_ENEMY | TYPE_PLAYER | TYPE_OBSTACLE; + case TYPE_OBSTACLE: + newchar->faction.type_damage_direct = TYPE_PLAYER | TYPE_ENEMY | TYPE_OBSTACLE; + break; + case TYPE_PROJECTILE: + // We want a clean slate so the projectile + // spawn functions will copy owner settings + // by default. + newchar->faction.type_damage_direct = TYPE_UNDECLARED; + break; + case TYPE_SHOT: + newchar->faction.type_damage_direct = TYPE_ENEMY | TYPE_PLAYER | TYPE_OBSTACLE; + break; + case TYPE_NPC: + newchar->faction.type_damage_direct = TYPE_ENEMY | TYPE_OBSTACLE; + break; + case TYPE_ITEM: + newchar->faction.type_damage_direct = TYPE_PLAYER; + break; + } + } + + if(newchar->faction.type_damage_indirect == TYPE_UNDECLARED) // not been initialized, so initialize it + { + switch (newchar->type) + { + default: + //Do nothing. + break; + case TYPE_ENEMY: + newchar->faction.type_damage_indirect = TYPE_ENEMY | TYPE_OBSTACLE; + break; + case TYPE_PLAYER: + newchar->faction.type_damage_indirect = TYPE_PLAYER | TYPE_OBSTACLE; + break; + case TYPE_TRAP: // hmm, don't really needed + newchar->faction.type_damage_indirect = TYPE_ENEMY | TYPE_PLAYER | TYPE_OBSTACLE; + case TYPE_OBSTACLE: // hmm, don't really needed + newchar->faction.type_damage_indirect = TYPE_ENEMY | TYPE_PLAYER | TYPE_OBSTACLE; + break; + case TYPE_PROJECTILE: + // We want a clean slate so the projectile + // spawn functions will copy owner settings + // by default. + newchar->faction.type_damage_indirect = TYPE_UNDECLARED; + break; + case TYPE_SHOT: // hmm, don't really needed + newchar->faction.type_damage_indirect = TYPE_ENEMY | TYPE_PLAYER | TYPE_OBSTACLE; + break; + case TYPE_NPC: + newchar->faction.type_damage_indirect = TYPE_ENEMY | TYPE_PLAYER | TYPE_OBSTACLE; + break; + } + } + + if(newchar->jumpspeed < 0) + { + newchar->jumpspeed = MAX(newchar->speed.x, 1); + } + + if(blendfx_is_set == 0) + { + if(newchar->alpha) + { + blendfx[newchar->alpha - 1] = 1; + } + if(newchar->shadow_config_flags & SHADOW_CONFIG_GRAPHIC_ALL || newchar->shadow) + { + blendfx[BLEND_MULTIPLY] = 1; + } + } + + // we need to convert 8bit colourmap into 32bit palette + if(pixelformat == PIXEL_x8) + { + convert_map_to_palette(newchar, mapflag); + } + +lCleanup: + + if(buf != NULL) + { + free(buf); + buf = NULL; + } + if(scriptbuf) + { + free(scriptbuf); + scriptbuf = NULL; + } + if(animscriptbuf) + { + free(animscriptbuf); + animscriptbuf = NULL; + } + if(mapflag) + { + free(mapflag); + mapflag = NULL; + } + + /* + * Free parser scratch collision collections. + * + * These collections are temporary carry-forward state + * used while reading model commands. Real animation + * frames receive cloned collections when frames are + * added, so the parser scratch collections should not + * survive model loading. + */ + collision_collection_free(temp_collision_attack); + temp_collision_attack = NULL; + + collision_collection_free(temp_collision_body); + temp_collision_body = NULL; + + collision_collection_free(temp_collision_space); + temp_collision_space = NULL; + + frame_sound_collection_free(temp_frame_sound); + temp_frame_sound = NULL; + + child_spawn_free_list(temp_child_spawn_head); + temp_child_spawn_head = NULL; + + if(!shutdownmessage) + { + model_cache[cacheindex].lifecycle = MODEL_LIFECYCLE_LOAD_EVENT; + execute_model_load_scripts(newchar); + model_cache[cacheindex].lifecycle = MODEL_LIFECYCLE_LOADED; + printf(" ...done!\n"); + return newchar; + } + + borShutdown(1, "Fatal Error in load_cached_model, file: %s, line %d, message: %s\n", filename, line, shutdownmessage); + return NULL; + + #undef LOG_CMD_TITLE +} + + + +int is_set(s_model *model, int m) // New function to determine if a freespecial has been set +{ + int i; + + for(i = 0; i < model->specials_loaded; i++) + { + if(model->special[i].anim == m) + { + return 1; + } + } + + return 0; +} + +int load_script_setting() +{ + char *filename = "data/script.txt"; + char *buf, *command; + ptrdiff_t pos = 0; + size_t size = 0; + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + + if(buffer_pakfile(filename, &buf, &size) != 1) + { + return 0; + } + + while(pos < size) + { + if(ParseArgs(&arglist, buf + pos, argbuf)) + { + command = GET_ARG(0); + if(command && command[0]) + { + if(stricmp(command, "maxscriptvars") == 0) // each script can have a variable list that can be accessed by index + { + max_script_vars = GET_INT_ARG(1) ; + if(max_script_vars < 0) + { + max_script_vars = 0; + } + } + else if(stricmp(command, "maxentityvars") == 0) // each entity can have a variable list that can be accessed by index + { + max_entity_vars = GET_INT_ARG(1) ; + if(max_entity_vars < 0) + { + max_entity_vars = 0; + } + } + else if(stricmp(command, "maxindexedvars") == 0) // a global variable list that can be accessed by index + { + max_indexed_vars = GET_INT_ARG(1); + if(max_indexed_vars < 0) + { + max_indexed_vars = 0; + } + } + else if(stricmp(command, "keyscriptrate") == 0) // Rate that keyscripts fire when holding a key. + { + keyscriptrate = GET_INT_ARG(1); + } + else if(stricmp(command, "alwaysupdate") == 0) //execute update script whenever update() is called + { + alwaysupdate = GET_INT_ARG(1); + } + else if(stricmp(command, "nonestedscript") == 0) // don't call a script if it is being executed + { + no_nested_script = GET_INT_ARG(1); + } + else if(stricmp(command, "nocmdcompatible") == 0) // don't call a script if it is being executed + { + no_cmd_compatible = GET_INT_ARG(1); + } + } + } + // Go to next line + pos += getNewLineStart(buf + pos); + } + + if(buf != NULL) + { + free(buf); + buf = NULL; + } + return 1; +} + +/* +* Convert one models.txt limit to an int without signed +* overflow or partial numeric conversion. +*/ +static bool model_constant_get_unsigned_int(const char* text, int* result) +{ + s_command_token token; + uint64_t parsed_value; + + assert(text); + assert(result); + + token.text = text; + token.length = strlen(text); + + if(!command_token_get_uint64(&token, &parsed_value) + || parsed_value > (uint64_t)INT_MAX) { + return false; + } + + *result = (int)parsed_value; + + return true; +} + +/* +* Allocate a models.txt-driven table only after checking +* its multiplication. Allocation failure is fatal because +* model loading cannot safely continue with a missing table. +*/ +static void* model_constant_array_allocate( + const size_t element_count, + const size_t element_size, + const char* table_name, + const char* filename +) { + void* result; + + assert(table_name); + assert(filename); + + if(element_count == 0 + || element_size == 0 + || element_count > SIZE_MAX / element_size) { + borShutdown( + 1, + "Invalid allocation size for %s while loading %s.\n", + table_name, + filename + ); + + return NULL; + } + + result = malloc(element_count * element_size); + + if(!result) { + borShutdown( + 1, + "Unable to allocate %zu entries for %s while loading %s.\n", + element_count, + table_name, + filename + ); + + return NULL; + } + + return result; +} + +void load_model_constants() +{ + char filename[MAX_BUFFER_LEN] = "data/models.txt"; + int i; + int64_t calculated_max_animations; + char *buf; + size_t size; + ptrdiff_t pos; + char *command; + int line = 0; + int maxanim = MAX_ANIS; // temporary counter + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + modelstxtCommands cmd; + + // reload default values + max_idles = MAX_IDLES; + max_walks = MAX_WALKS; + max_ups = MAX_UPS; + max_downs = MAX_DOWNS; + max_backwalks = MAX_BACKWALKS; + max_attack_types = MAX_ATKS; + max_freespecials = MAX_SPECIALS; + max_follows = MAX_FOLLOWS; + max_attacks = MAX_ATTACKS; + max_animations = MAX_ANIS; + + max_collisons = MAX_COLLISIONS; + + // free old values + if(animspecials) + { + free(animspecials); + animspecials = NULL; + } + if(animattacks) + { + free(animattacks); + animattacks = NULL; + } + if(animfollows) + { + free(animfollows); + animfollows = NULL; + } + if(animpains) + { + free(animpains); + animpains = NULL; + } + if(animbackpains) + { + free(animbackpains); + animbackpains = NULL; + } + if(animfalls) + { + free(animfalls); + animfalls = NULL; + } + if(animbackfalls) + { + free(animbackfalls); + animbackfalls = NULL; + } + if(animrises) + { + free(animrises); + animrises = NULL; + } + if(animbackrises) + { + free(animbackrises); + animbackrises = NULL; + } + if(animriseattacks) + { + free(animriseattacks); + animriseattacks = NULL; + } + if(animbackriseattacks) + { + free(animbackriseattacks); + animbackriseattacks = NULL; + } + if(animblkpains) + { + free(animblkpains); + animblkpains = NULL; + } + if(animbackblkpains) + { + free(animbackblkpains); + animbackblkpains = NULL; + } + if(animdies) + { + free(animdies); + animdies = NULL; + } + if(animbackdies) + { + free(animbackdies); + animbackdies = NULL; + } + if(animwalks) + { + free(animwalks); + animwalks = NULL; + } + if(animbackwalks) + { + free(animbackwalks); + animbackwalks = NULL; + } + if(animidles) + { + free(animidles); + animidles = NULL; + } + if(animups) + { + free(animups); + animups = NULL; + } + if(animdowns) + { + free(animdowns); + animdowns = NULL; + } + if(ai_attack_choices) + { + free(ai_attack_choices); + ai_attack_choices = NULL; + ai_attack_choice_capacity = 0; + } + + // Read file + if(buffer_pakfile(filename, &buf, &size) != 1) + { + borShutdown(1, "Error loading model list from %s", filename); + } + + pos = 0; + while(pos < size) // peek global settings + { + line++; + if(ParseArgs(&arglist, buf + pos, argbuf)) + { + command = GET_ARG(0); + cmd = (modelstxtCommands)getModelCommand(modelstxtcmdlist, command); + switch(cmd) + { + case CMD_MODELSTXT_MAX_COLLISIONS: + // max collision_attack boxes. + max_collisons = GET_INT_ARG(1); + if(max_collisons < MAX_COLLISIONS) + { + max_collisons = MAX_COLLISIONS; + } + break; + case CMD_MODELSTXT_MAXIDLES: + // max idle stances + max_idles = GET_INT_ARG(1); + if(max_idles < MAX_IDLES) + { + max_idles = MAX_IDLES; + } + break; + case CMD_MODELSTXT_MAXWALKS: + max_walks = GET_INT_ARG(1); + if(max_walks < MAX_WALKS) + { + max_walks = MAX_WALKS; + } + break; + case CMD_MODELSTXT_MAXBACKWALKS: + // max backward walks + max_backwalks = GET_INT_ARG(1); + if(max_backwalks < MAX_BACKWALKS) + { + max_backwalks = MAX_BACKWALKS; + } + break; + case CMD_MODELSTXT_MAXUPS: + // max up walks + max_ups = GET_INT_ARG(1); + if(max_ups < MAX_UPS) + { + max_ups = MAX_UPS; + } + break; + case CMD_MODELSTXT_MAXDOWNS: + // max down walks + max_downs = GET_INT_ARG(1); + if(max_downs < MAX_DOWNS) + { + max_downs = MAX_DOWNS; + } + break; + case CMD_MODELSTXT_MAXATTACKTYPES: + // max attacktype/pain/fall/die + max_attack_types = GET_INT_ARG(1) + STA_ATKS; + if(max_attack_types < MAX_ATKS) + { + max_attack_types = MAX_ATKS; + } + break; + case CMD_MODELSTXT_MAXFOLLOWS: + // max follow-ups + max_follows = GET_INT_ARG(1); + if(max_follows < MAX_FOLLOWS) + { + max_follows = MAX_FOLLOWS; + } + break; + case CMD_MODELSTXT_MAXFREESPECIALS: + // max freespecials + if(!model_constant_get_unsigned_int( + GET_ARG(1), + &max_freespecials + )) { + borShutdown( + 1, + "Invalid maxfreespecials value '%s' in %s, line %d. " + "Expected an unsigned integer no greater than %d.\n", + GET_ARG(1), + filename, + line, + INT_MAX + ); + } + + if(max_freespecials < MAX_SPECIALS) + { + max_freespecials = MAX_SPECIALS; + } + break; + case CMD_MODELSTXT_MAXATTACKS: + max_attacks = GET_INT_ARG(1); + if(max_attacks < MAX_ATTACKS) + { + max_attacks = MAX_ATTACKS; + } + break; + default: + if(cmd >= CMD_MODELSTXT_THE_END) + { + printf("command %s not understood in %s, line %d\n", command, filename, line); + } + break; + } + } + + // Go to next line + pos += getNewLineStart(buf + pos); + } + + /* + * Calculate in a wider type before assigning the int + * animation identifiers used throughout the engine. + */ + calculated_max_animations = + (int64_t)MAX_ANIS + + ((int64_t)max_attack_types - MAX_ATKS) * INT64_C(12) + + ((int64_t)max_follows - MAX_FOLLOWS) + + ((int64_t)max_freespecials - MAX_SPECIALS) + + ((int64_t)max_attacks - MAX_ATTACKS) + + ((int64_t)max_idles - MAX_IDLES) + + ((int64_t)max_walks - MAX_WALKS) + + ((int64_t)max_ups - MAX_UPS) + + ((int64_t)max_downs - MAX_DOWNS) + + ((int64_t)max_backwalks - MAX_BACKWALKS); + + if(calculated_max_animations < MAX_ANIS + || calculated_max_animations > INT_MAX) { + borShutdown( + 1, + "Configured model animation limits require %" PRId64 + " animation identifiers, but the supported maximum is %d " + "while loading %s.\n", + calculated_max_animations, + INT_MAX, + filename + ); + } + + max_animations = (int)calculated_max_animations; + + // alloc indexed animation ids + animdowns = model_constant_array_allocate((size_t)max_downs, sizeof(*animdowns), "down animation identifiers", filename); + animups = model_constant_array_allocate((size_t)max_ups, sizeof(*animups), "up animation identifiers", filename); + animbackwalks = model_constant_array_allocate((size_t)max_backwalks, sizeof(*animbackwalks), "backwalk animation identifiers", filename); + animwalks = model_constant_array_allocate((size_t)max_walks, sizeof(*animwalks), "walk animation identifiers", filename); + animidles = model_constant_array_allocate((size_t)max_idles, sizeof(*animidles), "idle animation identifiers", filename); + animpains = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animpains), "pain animation identifiers", filename); + animbackpains = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animbackpains), "back-pain animation identifiers", filename); + animdies = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animdies), "death animation identifiers", filename); + animbackdies = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animbackdies), "back-death animation identifiers", filename); + animfalls = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animfalls), "fall animation identifiers", filename); + animbackfalls = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animbackfalls), "back-fall animation identifiers", filename); + animrises = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animrises), "rise animation identifiers", filename); + animbackrises = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animbackrises), "back-rise animation identifiers", filename); + animriseattacks = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animriseattacks), "rise-attack animation identifiers", filename); + animbackriseattacks = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animbackriseattacks), "back-rise-attack animation identifiers", filename); + animblkpains = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animblkpains), "block-pain animation identifiers", filename); + animbackblkpains = model_constant_array_allocate((size_t)max_attack_types, sizeof(*animbackblkpains), "back-block-pain animation identifiers", filename); + animattacks = model_constant_array_allocate((size_t)max_attacks, sizeof(*animattacks), "attack animation identifiers", filename); + animfollows = model_constant_array_allocate((size_t)max_follows, sizeof(*animfollows), "follow animation identifiers", filename); + animspecials = model_constant_array_allocate((size_t)max_freespecials, sizeof(*animspecials), "freespecial animation identifiers", filename); + ai_attack_choice_capacity = (size_t)max_animations; + ai_attack_choices = model_constant_array_allocate(ai_attack_choice_capacity, sizeof(*ai_attack_choices), "AI attack-choice table", filename); + + // copy default values and new animation ids + memcpy(animdowns, downs, sizeof(*animdowns)*MAX_DOWNS); + for(i = MAX_DOWNS; i < max_downs; i++) + { + animdowns[i] = maxanim++; + } + memcpy(animups, ups, sizeof(*animups)*MAX_UPS); + for(i = MAX_UPS; i < max_ups; i++) + { + animups[i] = maxanim++; + } + memcpy(animbackwalks, backwalks, sizeof(*animbackwalks)*MAX_BACKWALKS); + for(i = MAX_BACKWALKS; i < max_backwalks; i++) + { + animbackwalks[i] = maxanim++; + } + memcpy(animwalks, walks, sizeof(*animwalks)*MAX_WALKS); + for(i = MAX_WALKS; i < max_walks; i++) + { + animwalks[i] = maxanim++; + } + memcpy(animidles, idles, sizeof(*animidles)*MAX_IDLES); + for(i = MAX_IDLES; i < max_idles; i++) + { + animidles[i] = maxanim++; + } + memcpy(animspecials, freespecials, sizeof(*animspecials)*MAX_SPECIALS); + for(i = MAX_SPECIALS; i < max_freespecials; i++) + { + animspecials[i] = maxanim++; + } + memcpy(animattacks, normal_attacks, sizeof(*animattacks)*MAX_ATTACKS); + for(i = MAX_ATTACKS; i < max_attacks; i++) + { + animattacks[i] = maxanim++; + } + memcpy(animfollows, follows, sizeof(*animfollows)*MAX_FOLLOWS); + for(i = MAX_FOLLOWS; i < max_follows; i++) + { + animfollows[i] = maxanim++; + } + memcpy(animpains, pains, sizeof(*animpains)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + //printf("\nInitializing animpains[%d]: setting to new anim ID %d", i, maxanim); + animpains[i] = maxanim++; + } + memcpy(animbackpains, backpains, sizeof(*animbackpains)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animbackpains[i] = maxanim++; + } + memcpy(animfalls, falls, sizeof(*animfalls)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animfalls[i] = maxanim++; + } + memcpy(animbackfalls, backfalls, sizeof(*animbackfalls)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animbackfalls[i] = maxanim++; + } + memcpy(animrises, rises, sizeof(*animrises)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animrises[i] = maxanim++; + } + memcpy(animbackrises, backrises, sizeof(*animbackrises)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animbackrises[i] = maxanim++; + } + memcpy(animriseattacks, riseattacks, sizeof(*animriseattacks)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animriseattacks[i] = maxanim++; + } + memcpy(animbackriseattacks, backriseattacks, sizeof(*animbackriseattacks)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animbackriseattacks[i] = maxanim++; + } + memcpy(animblkpains, blkpains, sizeof(*animblkpains)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animblkpains[i] = maxanim++; + } + memcpy(animbackblkpains, backblkpains, sizeof(*animbackblkpains)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animbackblkpains[i] = maxanim++; + } + memcpy(animdies, deaths, sizeof(*animdies)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animdies[i] = maxanim++; + } + memcpy(animbackdies, backdeaths, sizeof(*animbackdies)*MAX_ATKS); + for(i = MAX_ATKS; i < max_attack_types; i++) + { + animbackdies[i] = maxanim++; + } + + if(buf) + { + free(buf); + } +} + +// Load / cache all models +int load_models() +{ + char filename[MAX_BUFFER_LEN] = "data/models.txt"; + int i; + char *buf; + size_t size; + ptrdiff_t pos; + char *command; + int line = 0; + + char tmpBuff[MAX_BUFFER_LEN] = {""}; + + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + modelstxtCommands cmd; + int modelLoadCount = 0; + + char* value = NULL; + int tempInt = 0; + + const char* delay_mode_error; + + free_modelcache(); + + /* + * Reset load-only configuration before reading models.txt + * so a reload cannot retain a setting that was removed. + */ + global_config.delay_unit = DELAY_UNIT_CENTISECOND; + + if(isLoadingScreenTypeBg(loadingbg[0].set)) + { + // New alternative background path. + if(custBkgrds != NULL) + { + strcpy(tmpBuff, custBkgrds); + strcat(tmpBuff, "loading"); + load_background(tmpBuff); + } + else + { + load_background("data/bgs/loading"); + } + standard_palette(1); + } + if(isLoadingScreenTypeBar(loadingbg[0].set)) + { + lifebar_colors(); + init_colourtable(); + } + + update_loading(&loadingbg[0], -1, 1); // initialize the update screen + + if(custModels != NULL) + { + strcpy(filename, "data/"); + strcat(filename, custModels); + } + + // Read file + if(buffer_pakfile(filename, &buf, &size) != 1) + { + borShutdown(1, "Error loading model list from %s", filename); + } + + pos = 0; + while(pos < size) // peek global settings + { + line++; + if(ParseArgs(&arglist, buf + pos, argbuf)) + { + command = GET_ARG(0); + cmd = (modelstxtCommands)getModelCommand(modelstxtcmdlist, command); + switch(cmd) + { + case CMD_MODELSTXT_COMBODELAY: + combodelay = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_MUSIC: + music(GET_ARG(1), 1, atol(GET_ARG(2))); + break; + case CMD_MODELSTXT_LOAD: + // Add path to cache list + modelLoadCount++; + cache_model(GET_ARG(1), GET_ARG(2), 1); + break; + case CMD_MODELSTXT_COLOURSELECT: + // 6-2-2005 if string for colourselect found + colourselect = GET_INT_ARG(1); // 6-2-2005 + break; + case CMD_MODELSTXT_SPDIRECTION: + // Select Player Direction for select player screen + spdirection[0] = direction_get_direction_from_argument(filename, command, GET_ARG(1)); + spdirection[1] = direction_get_direction_from_argument(filename, command, GET_ARG(2)); + spdirection[2] = direction_get_direction_from_argument(filename, command, GET_ARG(3)); + spdirection[3] = direction_get_direction_from_argument(filename, command, GET_ARG(4)); + break; + case CMD_MODELSTXT_AUTOLAND: + // New flag to determine if a player auto lands when thrown by another player (2 completely disables the ability to land) + autoland = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_NOLOST: + // this is use for dont lost your weapon if you grab a enemy flag it to 1 to no drop by tails + nolost = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_AJSPECIAL: + + value = GET_ARG(1); + + if (stricmp(value, "special") == 0) + { + tempInt = AJSPECIAL_KEY_SPECIAL; + } + else if (stricmp(value, "double") == 0) + { + tempInt = AJSPECIAL_KEY_DOUBLE; + } + else if (stricmp(value, "attack2") == 0) + { + tempInt = AJSPECIAL_KEY_ATTACK2; + } + else if (stricmp(value, "attack3") == 0) + { + tempInt = AJSPECIAL_KEY_ATTACK3; + } + else if (stricmp(value, "attack4") == 0) + { + tempInt = AJSPECIAL_KEY_ATTACK4; + } + else + { + tempInt = GET_INT_ARG(1); + } + + global_config.ajspecial = tempInt; + + break; + case CMD_MODELSTXT_NOCOST: + // Nocost set in models.txt + nocost = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_NOCHEATS: + + /* Disable access to cheats menu. */ + + if (GET_INT_ARG(1)) + { + global_config.cheats &= ~CHEAT_OPTIONS_MASTER_MENU; + } + + break; + + case CMD_MODELSTXT_NODEBUG: + //disable debug option in menu + nodebugoptions = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_NODROPEN: + nodropen = 1; + break; + case CMD_MODELSTXT_NODROPSPAWN: + nodropspawn = 1; + break; + case CMD_MODELSTXT_KNOW: + // Just add path to cache list + cache_model(GET_ARG(1), GET_ARG(2), 0); + break; + case CMD_MODELSTXT_NOAIRCANCEL: + noaircancel = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_NOMAXRUSHRESET: + nomaxrushreset[4] = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_MPBLOCK: + // Take from MP first? + global_config.block_type = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_BLOCKRATIO: + global_config.block_ratio = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_NOCHIPDEATH: + nochipdeath = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_LIFESCORE: + lifescore = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_CREDSCORE: + // Number of points needed to earn a 1-up + credscore = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_GLOBAL_CONFIG_DELAY_UNIT: + delay_mode_error = delay_unit_from_text( + GET_ARG(1), + false, + &global_config.delay_unit + ); + + if(delay_mode_error) { + borShutdown( + 1, + "%s Invalid value '%s' in %s, line %d.\n", + delay_mode_error, + GET_ARG(1), + filename, + line + ); + } + break; + case CMD_MODELSTXT_VERSUSDAMAGE: + // Number of points needed to earn a credit + versusdamage = GET_INT_ARG(1); + if(versusdamage == 0 || versusdamage == 1) + { + savedata.mode = versusdamage ^ 1; + } + break; + case CMD_MODELSTXT_DROPV: + default_model_dropv.y = GET_FLOAT_ARG(1); + default_model_dropv.x = GET_FLOAT_ARG(2); + default_model_dropv.z = GET_FLOAT_ARG(3); + break; + case CMD_MODELSTXT_JUMPSPEED: + default_model_jumpspeed = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_JUMPHEIGHT: + default_model_jumpheight = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_GLOBAL_CONFIG_CHEATS: + + lcmHandleCommandGlobalConfigCheats(buf + pos); + break; + case CMD_MODELSTXT_GLOBAL_CONFIG_FLASH_LAYER_ADJUST: + global_config.flash.layer_adjust = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_GLOBAL_CONFIG_FLASH_LAYER_SOURCE: + global_config.flash.layer_source = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_GLOBAL_CONFIG_FLASH_Z_SOURCE: + global_config.flash.z_source = GET_INT_ARG(1); + break; + case CMD_MODELSTXT_GLOBAL_CONFIG_GAME_SPEED: + + tempInt = GET_INT_ARG(1); + if (tempInt < 1) { + printf("\nCommand %s %d in %s, line %d value(%d) out of bounds, using default %d.\n", command, tempInt, filename, line, tempInt, GAME_SPEED_DEFAULT); + tempInt = 1; + } + + global_config.game_speed = tempInt; + break; + case CMD_MODELSTXT_GRABDISTANCE: + default_model_grabdistance = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_MNAF: + move_noatk_factor = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_GNAF: + group_noatk_factor = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_ANAF: + agg_noatk_factor = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_MINNA: + min_noatk_chance = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_MAXNA: + max_noatk_chance = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_OSNAF: + offscreen_noatk_factor = GET_FLOAT_ARG(1); + break; + case CMD_MODELSTXT_DEBUG_NAD: + noatk_duration = GET_FLOAT_ARG(1); + break; + default: + if(cmd >= CMD_MODELSTXT_THE_END) + { + printf("command %s not understood in %s, line %d\n", command, filename, line); + } + break; + } + } + + // Go to next line + pos += getNewLineStart(buf + pos); + } + + // Defer load_cached_model, so you can define models after their nested model. + printf("\n"); + + for(i = 0, pos = 0; i < models_cached; i++) + { + //printf("Checking '%s' '%s'\n", model_cache[i].name, model_cache[i].path); + if(stricmp(model_cache[i].name, "global_model") == 0) + { + global_model = i; + } + if(model_cache[i].loadflag) + { + load_cached_model(model_cache[i].name, "models.txt", 0); + update_loading(&loadingbg[0], ++pos, modelLoadCount); + } + } + printf("\nLoading models...............\tDone!\n"); + + + if(buf) + { + free(buf); + } + + return 1; +} + + + + +void unload_levelorder() +{ + int i, j, t; + s_level_entry *le; + s_set_entry *se; + + if(levelsets) + { + for(i = 0; i < num_difficulties; i++) + { + se = levelsets + i; + if(se->name) + { + free(se->name); + } + if(se->numlevels) + { + for(j = 0; j < se->numlevels; j++) + { + le = se->levelorder + j; + if(le->branchname) + { + free(le->branchname); + } + if(le->filename) + { + free(le->filename); + } + //if(le->skipselect) + //{ + for(t = 0; t < MAX_PLAYERS; t++) + { + if(le->skipselect[t]) + { + free(le->skipselect[t]); + } + } + //} + } + free(se->levelorder); + } + } + + free(levelsets); + levelsets = NULL; + } + + num_difficulties = 0; +} + + + +// Add a level to the level order +s_level_entry *add_level(char *filename, s_set_entry *set) +{ + s_level_entry *le = NULL; + int Zs[3] = {0, 0, 0}; + + if(z_coords[0] > 0) + { + Zs[0] = z_coords[0]; + } + else + { + Zs[0] = PLAYER_MIN_Z; + } + + if(z_coords[1] > 0) + { + Zs[1] = z_coords[1]; + } + else + { + Zs[1] = PLAYER_MAX_Z; + } + + if(z_coords[2] > 0) + { + Zs[2] = z_coords[2]; + } + else + { + Zs[2] = PLAYER_MIN_Z; + } + + set->levelorder = realloc(set->levelorder, (++set->numlevels) * sizeof(*set->levelorder)); + le = set->levelorder + set->numlevels - 1; + memset(le, 0, sizeof(*le)); + if(branch_name[0]) + { + le->branchname = NAME(branch_name); + } + le->filename = NAME(filename); + le->z_coords[0] = Zs[0]; + le->z_coords[1] = Zs[1]; + le->z_coords[2] = Zs[2]; + + return le; +} + + + +// Add a scene to the level order +s_level_entry *add_scene(char *filename, s_set_entry *set) +{ + s_level_entry *le = NULL; + + set->levelorder = realloc(set->levelorder, (++set->numlevels) * sizeof(*set->levelorder)); + le = set->levelorder + set->numlevels - 1; + memset(le, 0, sizeof(*le)); + if(branch_name[0]) + { + le->branchname = NAME(branch_name); + } + le->filename = NAME(filename); + le->type = LE_TYPE_CUT_SCENE; + return le; +} + +// Add a select screen file to the level order +s_level_entry *add_select(char *filename, s_set_entry *set) +{ + s_level_entry *le = NULL; + + set->levelorder = realloc(set->levelorder, (++set->numlevels) * sizeof(*set->levelorder)); + le = set->levelorder + set->numlevels - 1; + memset(le, 0, sizeof(*le)); + if(branch_name[0]) + { + le->branchname = NAME(branch_name); + } + le->filename = NAME(filename); + le->type = LE_TYPE_SELECT_SCREEN; + return le; +} + +s_level_entry *add_skipselect(ArgList arglist, s_set_entry *set) +{ + s_level_entry *le = NULL; + char *arg; + int i = 0; + + set->levelorder = realloc(set->levelorder, (++set->numlevels) * sizeof(*set->levelorder)); + le = set->levelorder + set->numlevels - 1; + memset(le, 0, sizeof(*le)); + if(branch_name[0]) + { + le->branchname = NAME(branch_name); + } + + if(arglist.count == 1) + { + le->noselect = 1; + } + else + { + for(i = 0; i < MAX_PLAYERS; i++) + { + if((arg = GET_ARG(i + 1))[0]) + { + le->skipselect[i] = NAME(arg); + } + } + } + + le->type = LE_TYPE_SKIP_SELECT; + return le; +} + +s_level_entry *load_skipselect(char *buf, s_set_entry *set) +{ + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1]; + + ParseArgs(&arglist, buf, argbuf); + + return add_skipselect(arglist, set); +} + +void save_skipselect(char *buf, char skipselect[MAX_PLAYERS][MAX_NAME_LEN]) +{ + int i = 0; + + strcpy(buf,"skipselect"); + + for (i = 0; i < MAX_PLAYERS; i++) + { + strcat(buf," "); strcat(buf,skipselect[i]); + } + + return; +} + +static void _readbarstatus(char *buf, s_barstatus *pstatus) +{ + char *value; + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + + ParseArgs(&arglist, buf, argbuf); + if((value = GET_ARG(1))[0]) + { + pstatus->size.x = atoi(value); + } + else + { + return; + } + if((value = GET_ARG(2))[0]) + { + pstatus->size.y = atoi(value); + } + else + { + return; + } + if((value = GET_ARG(3))[0]) + { + if (atoi(value)) + { + pstatus->config_flags |= STATUS_CONFIG_BORDER_DISABLE; + } + } + else + { + return; + } + if((value = GET_ARG(4))[0]) + { + if (atoi(value)) + { + pstatus->config_flags |= STATUS_CONFIG_GRAPH_RATIO; + } + } + else + { + return; + } + if((value = GET_ARG(5))[0]) + { + if (atoi(value)) + { + pstatus->config_flags |= STATUS_CONFIG_GRAPH_VERTICAL; + } + } + else + { + return; + } + if((value = GET_ARG(6))[0]) + { + pstatus->borderlayer = atoi(value); + } + else + { + return; + } + if((value = GET_ARG(7))[0]) + { + pstatus->shadowlayer = atoi(value); + } + else + { + return; + } + if((value = GET_ARG(8))[0]) + { + pstatus->barlayer = atoi(value); + } + else + { + return; + } + if((value = GET_ARG(9))[0]) + { + pstatus->backlayer = atoi(value); + } + else + { + return; + } +} + +s_set_entry *add_set() +{ + s_set_entry *set = NULL; + ++num_difficulties; + if(levelsets) + { + levelsets = realloc(levelsets, sizeof(*levelsets) * num_difficulties); + } + else + { + levelsets = calloc(1, sizeof(*levelsets)); + } + set = levelsets + num_difficulties - 1; + memset(set, 0, sizeof(*set)); + set->maxplayers = defaultmaxplayers; + return set; +} + +// Load list of levels +void load_levelorder() +{ + const char *defaulterr = "Error in level order: a set must be specified."; +#define CHKDEF if(!set) { errormessage = (char*) defaulterr; goto lCleanup; } + char filename[MAX_BUFFER_LEN] = ""; + int i = 0, j = 0, err = 0; + char *buf; + size_t size; + int pos; + s_set_entry *set = NULL; + s_level_entry *le = NULL; + char *command; + char *arg; + char *errormessage = NULL; + int plifeUsed[2] = {0, 0}; + int elifeUsed[2] = {0, 0}; + int piconUsed[2] = {0, 0}; + int piconwUsed[2] = {0, 0}; + int eiconUsed[4] = {0, 0, 0, 0}; + int pmpUsed[4] = {0, 0, 0, 0}; + int plifeXused[4] = {0, 0, 0, 0}; // 4-7-2006 New custimizable variable for players 'x' + int plifeNused[4] = {0, 0, 0, 0}; // 4-7-2006 New custimizable variable for players 'lives' + int enameused[4] = {0, 0, 0, 0}; // 4-7-2006 New custimizable variable for enemy names + int pnameJused[4] = {0, 0, 0, 0}; // 1-8-2006 New custimizable variable for players name Select Hero + int pscoreUsed[4] = {0, 0, 0, 0}; // 1-8-2006 New custimizable variable for players name Select Hero + + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + levelOrderCommands cmd; + int line = 0; + + unload_levelorder(); + + if(custLevels != NULL) + { + strcpy(filename, "data/"); + strcat(filename, custLevels); + } + else + { + strcpy(filename, "data/levels.txt"); + } + + // Read file + + if(buffer_pakfile(filename, &buf, &size) != 1) + { + borShutdown(1, "Error loading level list from %s", filename); + } + + // Now interpret the contents of buf line by line + pos = 0; + + // Custom lifebar/timebox/icon positioning and size + picon[0][0] = piconw[0][0] = picon[2][0] = piconw[2][0] = eicon[0][0] = eicon[2][0] = 2; + picon[1][0] = piconw[1][0] = picon[3][0] = piconw[3][0] = eicon[1][0] = eicon[3][0] = 2 + P2_STATS_DIST; + picon[0][1] = piconw[0][1] = picon[1][1] = piconw[1][1] = 2; + picon[2][1] = piconw[2][1] = picon[3][1] = piconw[3][1] = 202; + plife[0][0] = pmp[0][0] = plife[2][0] = pmp[2][0] = elife[0][0] = elife[2][0] = 20; + plife[1][0] = pmp[1][0] = plife[3][0] = pmp[3][0] = elife[1][0] = elife[3][0] = 20 + P2_STATS_DIST; + plife[0][1] = plife[1][1] = 10; + plife[2][1] = plife[3][1] = 210; + pmp[0][1] = pmp[1][1] = 18; + pmp[2][1] = pmp[3][1] = 218; + + memset(psmenu, 0, sizeof(psmenu)); + + eicon[0][1] = eicon[1][1] = 19; + eicon[2][1] = eicon[3][1] = 220; + elife[0][1] = elife[1][1] = 27; + elife[2][1] = elife[3][1] = 227; + + timeloc[0] = 149; + timeloc[1] = 4; + timeloc[2] = 21; + timeloc[3] = 20; + timeloc[4] = 0; + + lbarstatus.size.x = mpbarstatus.size.x = 100; + lbarstatus.size.y = 5; + mpbarstatus.size.y = 3; + lbarstatus.config_flags = STATUS_CONFIG_DEFAULT; + mpbarstatus.config_flags = STATUS_CONFIG_DEFAULT; + + // Show Complete Default Values + scomplete[0] = 75; + scomplete[1] = 60; + scomplete[2] = 0; + scomplete[3] = 0; + scomplete[4] = 0; + scomplete[5] = 0; + + // Show Complete Y Values + cbonus[0] = lbonus[0] = rbonus[0] = tscore[0] = 10; + cbonus[1] = cbonus[3] = cbonus[5] = cbonus[7] = cbonus[9] = 100; + lbonus[1] = lbonus[3] = lbonus[5] = lbonus[7] = lbonus[9] = 120; + rbonus[1] = rbonus[3] = rbonus[5] = rbonus[7] = rbonus[9] = 140; + tscore[1] = tscore[3] = tscore[5] = tscore[7] = tscore[9] = 160; + + // Show Complete X Values + cbonus[2] = lbonus[2] = rbonus[2] = tscore[2] = 100; + cbonus[4] = lbonus[4] = rbonus[4] = tscore[4] = 155; + cbonus[6] = lbonus[6] = rbonus[6] = tscore[6] = 210; + cbonus[8] = lbonus[8] = rbonus[8] = tscore[8] = 265; + + while(pos < size) + { + line++; + ParseArgs(&arglist, buf + pos, argbuf); + command = GET_ARG(0); + cmd = getLevelOrderCommand(levelordercmdlist, command); + switch(cmd) + { + case CMD_LEVELORDER_BLENDFX: + for(i = 0; i < MAX_BLENDINGS; i++) + { + if(GET_INT_ARG(i + 1)) + { + blendfx[i] = 1; + } + else + { + blendfx[i] = 0; + } + } + blendfx_is_set = 1; + break; + case CMD_LEVELORDER_SET: + set = add_set(); + set->name = NAME(GET_ARG(1)); + set->ifcomplete = 0; + set->saveflag = 1; // default to 1, so the level can be saved + branch_name[0] = 0; + le = NULL; + break; + case CMD_LEVELORDER_IFCOMPLETE: + CHKDEF; + set->ifcomplete = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_SKIPSELECT: + CHKDEF; + le = add_skipselect(arglist, set); + break; + case CMD_LEVELORDER_FILE: + CHKDEF; + le = add_level(GET_ARG(1), set); + break; + case CMD_LEVELORDER_SCENE: + CHKDEF; + le = add_scene(GET_ARG(1), set); + break; + case CMD_LEVELORDER_SELECT: + CHKDEF; + le = add_select(GET_ARG(1), set); + break; + case CMD_LEVELORDER_NEXT: + CHKDEF; + // Set 'gonext' flag of last loaded level + if(le) + { + le->gonext = 1; + } + break; + case CMD_LEVELORDER_END: + CHKDEF; + // Set endgame flag of last loaded level + if(le) + { + le->gonext = 2; + } + break; + case CMD_LEVELORDER_LIVES: + // 7-1-2005 credits/lives/singleplayer start here + // used to read the new # of lives/credits from the levels.txt + CHKDEF; + set->lives = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_DISABLEHOF: + CHKDEF; + set->noshowhof = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_DISABLEGAMEOVER: + CHKDEF; + set->noshowgameover = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_CANSAVE: + // 07-12-31 + // 0 this set can't be saved + // 1 save level only + // 2 save player info and level, can't choose player in select menu + CHKDEF; + set->saveflag = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_Z: + // 2-10-05 adjust the walkable coordinates + CHKDEF; + z_coords[0] = GET_INT_ARG(1); + z_coords[1] = GET_INT_ARG(2); + z_coords[2] = GET_INT_ARG(3); + break; + case CMD_LEVELORDER_BRANCH: + // 2007-2-22 level branch name + CHKDEF; + strncpy(branch_name, GET_ARG(1), MAX_NAME_LEN); + break; + case CMD_LEVELORDER_P1LIFE: + case CMD_LEVELORDER_P2LIFE: + case CMD_LEVELORDER_P3LIFE: + case CMD_LEVELORDER_P4LIFE: + switch(cmd) + { + case CMD_LEVELORDER_P1LIFE: + i = 0; + break; + case CMD_LEVELORDER_P2LIFE: + i = 1; + break; + case CMD_LEVELORDER_P3LIFE: + i = 2; + plifeUsed[0] = 1; + break; + case CMD_LEVELORDER_P4LIFE: + i = 3; + plifeUsed[1] = 1; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + plife[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + plife[i][1] = atoi(arg); + } + break; + case CMD_LEVELORDER_P1MP: + case CMD_LEVELORDER_P2MP: + case CMD_LEVELORDER_P3MP: + case CMD_LEVELORDER_P4MP: + switch(cmd) + { + case CMD_LEVELORDER_P1MP: + i = 0; + break; + case CMD_LEVELORDER_P2MP: + i = 1; + break; + case CMD_LEVELORDER_P3MP: + i = 2; + break; + case CMD_LEVELORDER_P4MP: + i = 3; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + pmp[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + pmp[i][1] = atoi(arg); + } + pmpUsed[i] = 1; + break; + case CMD_LEVELORDER_P1LIFEX: + case CMD_LEVELORDER_P2LIFEX: + case CMD_LEVELORDER_P3LIFEX: + case CMD_LEVELORDER_P4LIFEX: + switch(cmd) + { + case CMD_LEVELORDER_P1LIFEX: + j = 0; + break; + case CMD_LEVELORDER_P2LIFEX: + j = 1; + break; + case CMD_LEVELORDER_P3LIFEX: + j = 2; + break; + case CMD_LEVELORDER_P4LIFEX: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 3; i++) + if((arg = GET_ARG(i + 1))[0]) + { + plifeX[j][i] = atoi(arg); + } + plifeXused[j] = 1; + break; + case CMD_LEVELORDER_P1LIFEN: + case CMD_LEVELORDER_P2LIFEN: + case CMD_LEVELORDER_P3LIFEN: + case CMD_LEVELORDER_P4LIFEN: + switch(cmd) + { + case CMD_LEVELORDER_P1LIFEN: + j = 0; + break; + case CMD_LEVELORDER_P2LIFEN: + j = 1; + break; + case CMD_LEVELORDER_P3LIFEN: + j = 2; + break; + case CMD_LEVELORDER_P4LIFEN: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 3; i++) + if((arg = GET_ARG(i + 1))[0]) + { + plifeN[j][i] = atoi(arg); + } + plifeNused[j] = 1; + break; + case CMD_LEVELORDER_E1LIFE: + case CMD_LEVELORDER_E2LIFE: + case CMD_LEVELORDER_E3LIFE: + case CMD_LEVELORDER_E4LIFE: + switch(cmd) + { + case CMD_LEVELORDER_E1LIFE: + i = 0; + break; + case CMD_LEVELORDER_E2LIFE: + i = 1; + break; + case CMD_LEVELORDER_E3LIFE: + i = 2; + elifeUsed[0] = 1; + break; + case CMD_LEVELORDER_E4LIFE: + i = 3; + elifeUsed[1] = 1; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + elife[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + elife[i][1] = atoi(arg); + } + break; + case CMD_LEVELORDER_P1ICON: + case CMD_LEVELORDER_P2ICON: + case CMD_LEVELORDER_P3ICON: + case CMD_LEVELORDER_P4ICON: + switch(cmd) + { + case CMD_LEVELORDER_P1ICON: + i = 0; + break; + case CMD_LEVELORDER_P2ICON: + i = 1; + break; + case CMD_LEVELORDER_P3ICON: + i = 2; + piconUsed[0] = 1; + break; + case CMD_LEVELORDER_P4ICON: + i = 3; + piconUsed[1] = 1; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + picon[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + picon[i][1] = atoi(arg); + } + break; + case CMD_LEVELORDER_P1ICONW: + case CMD_LEVELORDER_P2ICONW: + case CMD_LEVELORDER_P3ICONW: + case CMD_LEVELORDER_P4ICONW: + switch(cmd) + { + case CMD_LEVELORDER_P1ICONW: + i = 0; + break; + case CMD_LEVELORDER_P2ICONW: + i = 1; + break; + case CMD_LEVELORDER_P3ICONW: + i = 2; + piconwUsed[0] = 1; + break; + case CMD_LEVELORDER_P4ICONW: + i = 3; + piconwUsed[1] = 1; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + piconw[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + piconw[i][1] = atoi(arg); + } + break; + case CMD_LEVELORDER_MP1ICON: + case CMD_LEVELORDER_MP2ICON: + case CMD_LEVELORDER_MP3ICON: + case CMD_LEVELORDER_MP4ICON: + switch(cmd) + { + case CMD_LEVELORDER_MP1ICON: + i = 0; + break; + case CMD_LEVELORDER_MP2ICON: + i = 1; + break; + case CMD_LEVELORDER_MP3ICON: + i = 2; + break; + case CMD_LEVELORDER_MP4ICON: + i = 3; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + mpicon[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + mpicon[i][1] = atoi(arg); + } + break; + case CMD_LEVELORDER_P1NAMEJ: + case CMD_LEVELORDER_P2NAMEJ: + case CMD_LEVELORDER_P3NAMEJ: + case CMD_LEVELORDER_P4NAMEJ: + switch(cmd) + { + case CMD_LEVELORDER_P1NAMEJ: + j = 0; + break; + case CMD_LEVELORDER_P2NAMEJ: + j = 1; + break; + case CMD_LEVELORDER_P3NAMEJ: + j = 2; + break; + case CMD_LEVELORDER_P4NAMEJ: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 7; i++) + if((arg = GET_ARG(i + 1))[0]) + { + pnameJ[j][i] = atoi(arg); + } + pnameJused[j] = 1; + break; + case CMD_LEVELORDER_P1SCORE: + case CMD_LEVELORDER_P2SCORE: + case CMD_LEVELORDER_P3SCORE: + case CMD_LEVELORDER_P4SCORE: + switch(cmd) + { + case CMD_LEVELORDER_P1SCORE: + j = 0; + break; + case CMD_LEVELORDER_P2SCORE: + j = 1; + break; + case CMD_LEVELORDER_P3SCORE: + j = 2; + break; + case CMD_LEVELORDER_P4SCORE: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 7; i++) + if((arg = GET_ARG(i + 1))[0]) + { + pscore[j][i] = atoi(arg); + } + pscoreUsed[j] = 1; + break; + case CMD_LEVELORDER_P1SHOOT: + case CMD_LEVELORDER_P2SHOOT: + case CMD_LEVELORDER_P3SHOOT: + case CMD_LEVELORDER_P4SHOOT: + switch(cmd) + { + case CMD_LEVELORDER_P1SHOOT: + j = 0; + break; + case CMD_LEVELORDER_P2SHOOT: + j = 1; + break; + case CMD_LEVELORDER_P3SHOOT: + j = 2; + break; + case CMD_LEVELORDER_P4SHOOT: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 3; i++) + if((arg = GET_ARG(i + 1))[0]) + { + pshoot[j][i] = atoi(arg); + } + break; + case CMD_LEVELORDER_P1RUSH: + case CMD_LEVELORDER_P2RUSH: + case CMD_LEVELORDER_P3RUSH: + case CMD_LEVELORDER_P4RUSH: + switch(cmd) + { + case CMD_LEVELORDER_P1RUSH: + j = 0; + break; + case CMD_LEVELORDER_P2RUSH: + j = 1; + break; + case CMD_LEVELORDER_P3RUSH: + j = 2; + break; + case CMD_LEVELORDER_P4RUSH: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 8; i++) + if((arg = GET_ARG(i + 1))[0]) + { + prush[j][i] = atoi(arg); + } + break; + case CMD_LEVELORDER_E1ICON: + case CMD_LEVELORDER_E2ICON: + case CMD_LEVELORDER_E3ICON: + case CMD_LEVELORDER_E4ICON: + switch(cmd) + { + case CMD_LEVELORDER_E1ICON: + i = 0; + break; + case CMD_LEVELORDER_E2ICON: + i = 1; + break; + case CMD_LEVELORDER_E3ICON: + i = 2; + eiconUsed[0] = 1; + break; + case CMD_LEVELORDER_E4ICON: + i = 3; + eiconUsed[1] = 1; + break; + default: + assert(0); + } + if((arg = GET_ARG(1))[0]) + { + eicon[i][0] = atoi(arg); + } + if((arg = GET_ARG(2))[0]) + { + eicon[i][1] = atoi(arg); + } + break; + case CMD_LEVELORDER_E1NAME: + case CMD_LEVELORDER_E2NAME: + case CMD_LEVELORDER_E3NAME: + case CMD_LEVELORDER_E4NAME: + switch(cmd) + { + case CMD_LEVELORDER_E1NAME: + j = 0; + break; + case CMD_LEVELORDER_E2NAME: + j = 1; + break; + case CMD_LEVELORDER_E3NAME: + j = 2; + break; + case CMD_LEVELORDER_E4NAME: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < 3; i++) + if((arg = GET_ARG(i + 1))[0]) + { + ename[j][i] = atoi(arg); + } + enameused[j] = 1; + break; + case CMD_LEVELORDER_P1SMENU: + case CMD_LEVELORDER_P2SMENU: + case CMD_LEVELORDER_P3SMENU: + case CMD_LEVELORDER_P4SMENU: + switch(cmd) + { + case CMD_LEVELORDER_P1SMENU: + j = 0; + break; + case CMD_LEVELORDER_P2SMENU: + j = 1; + break; + case CMD_LEVELORDER_P3SMENU: + j = 2; + break; + case CMD_LEVELORDER_P4SMENU: + j = 3; + break; + default: + assert(0); + } + for(i = 0; i < MAX_PLAYERS; i++) + if((arg = GET_ARG(i + 1))[0]) + { + psmenu[j][i] = atoi(arg); + } + break; + case CMD_LEVELORDER_TIMEICON: + strncpy(timeicon_path, GET_ARG(1), 127); + timeicon = loadsprite(timeicon_path, 0, 0, pixelformat); + if((arg = GET_ARG(2))[0]) + { + timeicon_offsets[0] = atoi(arg); + } + if((arg = GET_ARG(3))[0]) + { + timeicon_offsets[1] = atoi(arg); + } + break; + case CMD_LEVELORDER_BGICON: + strncpy(bgicon_path, GET_ARG(1), 127); + bgicon = loadsprite(bgicon_path, 0, 0, pixelformat); + if((arg = GET_ARG(2))[0]) + { + bgicon_offsets[0] = atoi(arg); + } + if((arg = GET_ARG(3))[0]) + { + bgicon_offsets[1] = atoi(arg); + } + if((arg = GET_ARG(4))[0]) + { + bgicon_offsets[2] = atoi(arg); + } + else + { + bgicon_offsets[2] = HUD_Z / 2; + } + break; + case CMD_LEVELORDER_OLICON: + strncpy(olicon_path, GET_ARG(1), 127); + olicon = loadsprite(olicon_path, 0, 0, pixelformat); + if((arg = GET_ARG(2))[0]) + { + olicon_offsets[0] = atoi(arg); + } + if((arg = GET_ARG(3))[0]) + { + olicon_offsets[1] = atoi(arg); + } + if((arg = GET_ARG(4))[0]) + { + olicon_offsets[2] = atoi(arg); + } + else + { + olicon_offsets[2] = HUD_Z * 3; + } + break; + case CMD_LEVELORDER_TIMELOC: + for(i = 0; i < 6; i++) + if((arg = GET_ARG(i + 1))[0]) + { + timeloc[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_PAUSEOFFSET: + for(i = 0; i < 7; i++) + if((arg = GET_ARG(i + 1))[0]) + { + pauseoffset[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_LBARSIZE: + _readbarstatus(buf + pos, &lbarstatus); + break; + case CMD_LEVELORDER_OLBARSIZE: + _readbarstatus(buf + pos, &olbarstatus); + break; + case CMD_LEVELORDER_MPBARSIZE: + _readbarstatus(buf + pos, &mpbarstatus); + break; + case CMD_LEVELORDER_LBARTEXT: + for(i = 0; i < 4; i++) + if((arg = GET_ARG(i + 1))[0]) + { + lbartext[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_MPBARTEXT: + for(i = 0; i < 4; i++) + if((arg = GET_ARG(i + 1))[0]) + { + mpbartext[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_SHOWCOMPLETE: + for(i = 0; i < 6; i++) + if((arg = GET_ARG(i + 1))[0]) + { + scomplete[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_CLEARBONUS: + for(i = 0; i < 10; i++) + if((arg = GET_ARG(i + 1))[0]) + { + cbonus[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_RUSHBONUS: + for(i = 0; i < 10; i++) + if((arg = GET_ARG(i + 1))[0]) + { + rbonus[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_LIFEBONUS: + for(i = 0; i < 10; i++) + if((arg = GET_ARG(i + 1))[0]) + { + lbonus[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_SCBONUSES: + for(i = 0; i < 4; i++) + if((arg = GET_ARG(i + 1))[0]) + { + scbonuses[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_TOTALSCORE: + for(i = 0; i < 10; i++) + if((arg = GET_ARG(i + 1))[0]) + { + tscore[i] = atoi(arg); + } + break; + case CMD_LEVELORDER_MUSICOVERLAP: + CHKDEF; + set->musicoverlap = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_SHOWRUSHBONUS: + showrushbonus = 1; + break; + case CMD_LEVELORDER_NOSLOWFX: + noslowfx = 1; + break; + case CMD_LEVELORDER_EQUALAIRPAUSE: + equalairpause = 1; + break; + case CMD_LEVELORDER_HISCOREBG: + hiscorebg = 1; + break; + case CMD_LEVELORDER_COMPLETEBG: + completebg = 1; + break; + case CMD_LEVELORDER_LOADINGBG: + errormessage = fill_s_loadingbar(&loadingbg[0], GET_INT_ARG(1), GET_INT_ARG(2), GET_INT_ARG(3), GET_INT_ARG(4), GET_INT_ARG(5), GET_INT_ARG(6), GET_INT_ARG(7), GET_INT_ARG(8)); + if(errormessage) + { + goto lCleanup; + } + break; + case CMD_LEVELORDER_LOADINGBG2: + errormessage = fill_s_loadingbar(&loadingbg[1], GET_INT_ARG(1), GET_INT_ARG(2), GET_INT_ARG(3), GET_INT_ARG(4), GET_INT_ARG(5), GET_INT_ARG(6), GET_INT_ARG(7), GET_INT_ARG(8)); + if(errormessage) + { + goto lCleanup; + } + break; + case CMD_LEVELORDER_LOADINGMUSIC: + loadingmusic = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_UNLOCKBG: + unlockbg = 1; + break; + case CMD_LEVELORDER_NOSHARE: + noshare = 1; + break; + case CMD_LEVELORDER_CUSTFADE: + //8-2-2005 custom fade + CHKDEF; + set->custfade = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_CONTINUESCORE: + //8-2-2005 custom fade end + //continuescore + CHKDEF; + set->continuescore = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_CREDITS: + CHKDEF; + set->credits = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_TYPEMP: + //typemp for change for mp restored by time (0) to by enemys (1) or no restore (2) by tails + CHKDEF; + set->typemp = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_SINGLE: + if(set) + { + set->maxplayers = 1; + } + else + { + defaultmaxplayers = 1; + } + break; + case CMD_LEVELORDER_MAXPLAYERS: + if(set) + { + set->maxplayers = GET_INT_ARG(1); + } + else + { + defaultmaxplayers = GET_INT_ARG(1); + } + break; + case CMD_LEVELORDER_NOSAME: + CHKDEF; + set->nosame |= GET_INT_ARG(1) != 0; + set->nosame |= GET_INT_ARG(2) != 0 ? 2 : 0; + break; + case CMD_LEVELORDER_RUSH: + rush[0] = GET_INT_ARG(1); + rush[1] = GET_INT_ARG(2); + strncpy(rush_names[0], GET_ARG(3), MAX_NAME_LEN - 1); + rush[2] = GET_INT_ARG(4); + rush[3] = GET_INT_ARG(5); + strncpy(rush_names[1], GET_ARG(6), MAX_NAME_LEN - 1); + rush[4] = GET_INT_ARG(7); + rush[5] = GET_INT_ARG(8); + break; + case CMD_LEVELORDER_MAXWALLHEIGHT: + MAX_WALL_HEIGHT = GET_INT_ARG(1); + if(MAX_WALL_HEIGHT < 0) + { + MAX_WALL_HEIGHT = 1000; + } + break; + case CMD_LEVELORDER_SCOREFORMAT: + scoreformat = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_GRAVITY: + default_level_gravity = GET_FLOAT_ARG(1); + default_level_maxfallspeed = GET_FLOAT_ARG(2); + default_level_maxtossspeed = GET_FLOAT_ARG(3); + break; + case CMD_LEVELORDER_SKIPTOSET: + skiptoset = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_NOSHOWCOMPLETE: + CHKDEF; + set->noshowcomplete = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_SPAWNOVERRIDE: + spawnoverride = GET_INT_ARG(1); + break; + case CMD_LEVELORDER_MAXENTITIES: + maxentities = GET_INT_ARG(1); + break; + default: + if (command && command[0]) + { + if (err <= 0) printf("\n"); + ++err; + printf("Command '%s' not understood in level order!\n", command); + } + } + + // Go to next line + pos += getNewLineStart(buf + pos); + } + +#undef CHKDEF + + // Variables without defaults will be auto populated. + if(olbarstatus.size.x == 0) + { + olbarstatus = lbarstatus; + } + + if(!plifeUsed[0]) + { + plife[2][0] = plife[0][0]; + plife[2][1] = plife[2][1] + (plife[0][1] - 10); + } + if(!plifeUsed[1]) + { + plife[3][0] = plife[1][0]; + plife[3][1] = plife[3][1] + (plife[1][1] - 10); + } + + if(!elifeUsed[0]) + { + elife[2][0] = elife[0][0]; + elife[2][1] = elife[2][1] + (elife[0][1] - 27); + } + if(!elifeUsed[1]) + { + elife[3][0] = elife[1][0]; + elife[3][1] = elife[3][1] + (elife[1][1] - 27); + } + + if(!piconUsed[0]) + { + picon[2][0] = picon[0][0]; + picon[2][1] = picon[2][1] + (picon[0][1] - 2); + } + if(!piconUsed[1]) + { + picon[3][0] = picon[1][0]; + picon[3][1] = picon[3][1] + (picon[1][1] - 2); + } + + if(!piconwUsed[0]) + { + piconw[2][0] = piconw[0][0]; + piconw[2][1] = piconw[2][1] + (piconw[0][1] - 2); + } + if(!piconwUsed[1]) + { + piconw[3][0] = piconw[1][0]; + piconw[3][1] = piconw[3][1] + (piconw[1][1] - 2); + } + + if(!eiconUsed[0]) + { + eicon[2][0] = eicon[0][0]; + eicon[2][1] = eicon[2][1] + (eicon[0][1] - 19); + } + if(!eiconUsed[1]) + { + eicon[3][0] = eicon[1][0]; + eicon[3][1] = eicon[3][1] + (eicon[1][1] - 19); + } + + if(!pmpUsed[0]) + { + pmp[0][0] = plife[0][0]; + pmp[0][1] = plife[0][1] + 8; + } + if(!pmpUsed[1]) + { + pmp[1][0] = plife[1][0]; + pmp[1][1] = plife[1][1] + 8; + } + if(!pmpUsed[2]) + { + pmp[2][0] = pmp[0][0]; + pmp[2][1] = pmp[2][1] + (pmp[0][1] - 18); + } + if(!pmpUsed[3]) + { + pmp[3][0] = pmp[1][0]; + pmp[3][1] = pmp[1][1] + (pmp[1][1] - 18); + } + + if(!plifeXused[0]) + { + plifeX[0][0] = plife[0][0] + lbarstatus.size.x + 4; + plifeX[0][1] = picon[0][1] + 7; + } + if(!plifeXused[1]) + { + plifeX[1][0] = plife[1][0] + lbarstatus.size.x + 4; + plifeX[1][1] = picon[1][1] + 7; + } + if(!plifeXused[2]) + { + plifeX[2][0] = plife[2][0] + lbarstatus.size.x + 4; + plifeX[2][1] = picon[2][1] + 7; + } + if(!plifeXused[3]) + { + plifeX[3][0] = plife[3][0] + lbarstatus.size.x + 4; + plifeX[3][1] = picon[3][1] + 7; + } + for(i = 0; i < MAX_PLAYERS; i++) if(plifeX[i][2] == -1) + { + plifeX[i][2] = 0; + } + + if(!plifeNused[0]) + { + plifeN[0][0] = plife[0][0] + lbarstatus.size.x + 11; + plifeN[0][1] = picon[0][1]; + } + if(!plifeNused[1]) + { + plifeN[1][0] = plife[1][0] + lbarstatus.size.x + 11; + plifeN[1][1] = picon[1][1]; + } + if(!plifeNused[2]) + { + plifeN[2][0] = plifeN[0][0]; + plifeN[2][1] = picon[2][1]; + } + if(!plifeNused[3]) + { + plifeN[3][0] = plifeN[1][0]; + plifeN[3][1] = picon[3][1]; + } + for(i = 0; i < MAX_PLAYERS; i++) if(plifeN[i][2] == -1) + { + plifeN[i][2] = 3; + } + + if(!pnameJused[0]) + { + pnameJ[0][2] = pnameJ[0][4] = pnameJ[0][0] = plife[0][0] + 1; + pnameJ[0][5] = pnameJ[0][1] = picon[0][1]; + pnameJ[0][3] = 10 + pnameJ[0][5]; + } + if(!pnameJused[1]) + { + pnameJ[1][2] = pnameJ[1][4] = pnameJ[1][0] = plife[1][0] + 1; + pnameJ[1][5] = pnameJ[1][1] = picon[1][1]; + pnameJ[1][3] = 10 + pnameJ[1][5]; + } + if(!pnameJused[2]) + { + pnameJ[2][2] = pnameJ[2][4] = pnameJ[2][0] = plife[2][0] + 1; + pnameJ[2][5] = pnameJ[2][1] = picon[2][1]; + pnameJ[2][3] = 10 + pnameJ[2][5]; + } + if(!pnameJused[3]) + { + pnameJ[3][2] = pnameJ[3][4] = pnameJ[3][0] = plife[3][0] + 1; + pnameJ[3][5] = pnameJ[3][1] = picon[3][1]; + pnameJ[3][3] = 10 + pnameJ[3][5]; + } + for(i = 0; i < MAX_PLAYERS; i++) if(pnameJ[i][6] == -1) + { + pnameJ[i][6] = 0; + } + + if(!pscoreUsed[0]) + { + pscore[0][0] = plife[0][0] + 1; + pscore[0][1] = picon[0][1]; + } + if(!pscoreUsed[1]) + { + pscore[1][0] = plife[1][0] + 1; + pscore[1][1] = picon[1][1]; + } + if(!pscoreUsed[2]) + { + pscore[2][0] = plife[2][0] + 1; + pscore[2][1] = picon[2][1]; + } + if(!pscoreUsed[3]) + { + pscore[3][0] = plife[3][0] + 1; + pscore[3][1] = picon[3][1]; + } + for(i = 0; i < MAX_PLAYERS; i++) if(pscore[i][6] == -1) + { + pscore[i][6] = 0; + } + + if(!enameused[0]) + { + ename[0][0] = elife[0][0] + 1; + ename[0][1] = eicon[0][1]; + } + if(!enameused[1]) + { + ename[1][0] = elife[1][0] + 1; + ename[1][1] = eicon[1][1]; + } + if(!enameused[2]) + { + ename[2][0] = ename[0][0]; + ename[2][1] = eicon[2][1]; + } + if(!enameused[3]) + { + ename[3][0] = ename[1][0]; + ename[3][1] = eicon[3][1]; + } + for(i = 0; i < MAX_PLAYERS; i++) if(ename[i][2] == -1) + { + ename[i][2] = 0; + } + + branch_name[0] = 0; //clear up branch name, so we can use it in game + + for(i = 0; i < MAX_PLAYERS; i++) if(pshoot[i][2] == -1) + { + pshoot[i][2] = 2; + } + if(timeloc[5] == -1) + { + timeloc[5] = 3; + } + + if(!set) + { + errormessage = "No levels were loaded!"; + } + + //assume old mods have same maxplayers for all sets + else if(!psmenu[0][0] && !psmenu[0][1]) + { + for(i = 0; i < set->maxplayers; i++) + { + psmenu[i][0] = (set->maxplayers > 2) ? ((111 - (set->maxplayers * 14)) + ((i * (320 - (166 / set->maxplayers)) / set->maxplayers) + videomodes.hShift)) : + (83 + (videomodes.hShift / 2) + (i * (155 + videomodes.hShift))); + psmenu[i][1] = 230 + videomodes.vShift; + psmenu[i][2] = (set->maxplayers > 2) ? ((95 - (set->maxplayers * 14)) + ((i * (320 - (166 / set->maxplayers)) / set->maxplayers) + videomodes.hShift)) : + (67 + (videomodes.hShift / 2) + (i * (155 + videomodes.hShift))); + psmenu[i][3] = 225 + videomodes.vShift; + } + } + +lCleanup: + + if(buf) + { + free(buf); + } + + if(!savelevel || savelevel_count != (size_t)num_difficulties) + { + clear_saved_allowselect_arguments(); + free(savelevel_allowselect_args); + free(savelevel); + + savelevel_count = (size_t)num_difficulties; + savelevel = calloc(savelevel_count, sizeof(*savelevel)); + savelevel_allowselect_args = calloc( + savelevel_count, + sizeof(*savelevel_allowselect_args) + ); + } + else if(!savelevel_allowselect_args) + { + savelevel_allowselect_args = calloc( + savelevel_count, + sizeof(*savelevel_allowselect_args) + ); + } + + if(errormessage) + { + borShutdown(1, "load_levelorder ERROR in %s at %d, msg: %s\n", filename, line, errormessage); + } +} + + +void free_level(s_level *lv) +{ + int i; + + if(!lv) + { + return; + } + + //offload layers + for(i = 1; i < lv->numlayers; i++) + { + if(lv->layers[i].gfx.handle && lv->layers[i].gfx.handle != background) + { + if(lv->layers[i].gfx.sprite->magic == sprite_magic && + lv->layers[i].gfx.sprite->mask != NULL) + { + free(lv->layers[i].gfx.sprite->mask); + } + free(lv->layers[i].gfx.handle); + lv->layers[i].gfx.handle = NULL; + } + } + + //offload textobjs + for(i = 0; i < lv->numtextobjs; i++) + { + if(lv->textobjs[i].text) + { + free(lv->textobjs[i].text); + lv->textobjs[i].text = NULL; + } + } + + //offload basemaps + for(i = 0; i < lv->numbasemaps; i++) + { + if(lv->basemaps[i].map) + { + free(lv->basemaps[i].map); + } + } + + //offload scripts + Script_Clear(&(lv->update_script), 2); + Script_Clear(&(lv->updated_script), 2); + Script_Clear(&(lv->update_logic_script), 2); + Script_Clear(&(lv->updated_logic_script), 2); + Script_Clear(&(lv->key_script), 2); + Script_Clear(&(lv->level_script), 2); + Script_Clear(&(lv->endlevel_script), 2); + + for(i = 0; i < lv->numspawns; i++) + { + Script_Clear(&(lv->spawnpoints[i].spawnscript), 2); + } + + if(lv->spawnpoints) + { + free(lv->spawnpoints); + } + if(lv->layers) + { + free(lv->layers); + } + if(lv->layersref) + { + free(lv->layersref); + } + if(lv->panels) + { + free(lv->panels); + } + if(lv->frontpanels) + { + free(lv->frontpanels); + } + if(lv->bglayers) + { + free(lv->bglayers); + } + if(lv->fglayers) + { + free(lv->fglayers); + } + if(lv->genericlayers) + { + free(lv->genericlayers); + } + if(lv->waters) + { + free(lv->waters); + } + if(lv->textobjs) + { + free(lv->textobjs); + } + if(lv->holes) + { + free(lv->holes); + } + if(lv->spawn) + { + free(lv->spawn); + } + if(lv->walls) + { + free(lv->walls); + } + if(lv->basemaps) + { + free(lv->basemaps); + } + if(lv->palettes) + { + free(lv->palettes); + } + + free(lv); + lv = NULL; +} + +/* +* Caskey, Damon V. +* 2026-08-09 +* +* Accept model pointer and check if it +* is the model of an active player. If so, +* return true; otherwise, return false. +*/ +static bool model_is_active_player(const s_model *model) { + int i; + + if(!model || !model->name) { + return false; + } + + for(i = 0; i < MAX_PLAYERS; i++) { + if(player[i].lives > 0 + && player[i].name[0] + && stricmp(player[i].name, model->name) == 0) { + return true; + } + } + + return false; +} + + +void unload_level() +{ + s_model *temp; + int i; + + kill_all(); + unload_background(); + + if(level) + { + + level->pos = 0; + level->advancetime = 0; + level->quake = 0; + level->quaketime = 0; + level->waiting = 0; + + printf("Level Unloading: '%s'\n", level->name); + getRamStatus(BYTES); + free(level->name); + level->name = NULL; + free_level(level); + level = NULL; + temp = getFirstModel(); + do + { + if(!temp) + { + break; + } + + // Players carry their model choice into the next level. Keep the + // corresponding model and sprites resident while the player is + // alive, even when the model was loaded with an unload flag. + if(model_is_active_player(temp)) + { + temp = getNextModel(); + continue; + } + + if((temp->unload & 2)) + { + cache_model_sprites(temp, 0); + } + if((temp->unload & 1)) + { + free_model(temp); + temp = getCurrentModel(); + } + else + { + temp = getNextModel(); + } + } + while(temp); + printf("RAM Status:\n"); + getRamStatus(BYTES); + + + } + + advancex = 0; + advancey = 0; + nojoin = 0; + is_total_timeover = 0; + current_spawn = 0; + groupmin = 100; + groupmax = 100; + scrollminz = 0; + scrollmaxz = 0; + scrollminx = 0; + scrollmaxx = 0; + blockade = 0; + level_completed = 0; + level_completed_defeating_boss = 0; + tospeedup = 0; // Reset so it sets to normal speed for the next level + + for (i = 0; i < MAX_PLAYERS; i++){ + reached[i] = false; // TYPE_ENDLEVEL values reset after level completed //4player + } + + showtimeover = 0; + _pause = 0; + endgame = 0; + go_time = 0; + debug_time = 0; + debug_xy_msg.x = -1; + debug_xy_msg.y = -1; + neon_time = 0; + _time = 0; + cameratype = 0; + light.x = 128; + light.y = 64; + gfx_y_offset = gfx_x_offset = gfx_y_offset_adj = 0; // Added so select screen graphics display correctly +} + + +static void addhole(float x, float z, float x1, float x2, float x3, float x4, float depth, float alt, int type) +{ + __realloc(level->holes, level->numholes); + level->holes[level->numholes].x = x; + level->holes[level->numholes].z = z; + level->holes[level->numholes].upperleft = x1; + level->holes[level->numholes].lowerleft = x2; + level->holes[level->numholes].upperright = x3; + level->holes[level->numholes].lowerright = x4; + level->holes[level->numholes].depth = depth; + level->holes[level->numholes].height = alt; + level->holes[level->numholes].type = type; + + level->numholes++; +} + +static void addwall(float x, float z, float x1, float x2, float x3, float x4, float depth, float alt, int type) +{ + __realloc(level->walls, level->numwalls); + level->walls[level->numwalls].x = x; + level->walls[level->numwalls].z = z; + level->walls[level->numwalls].upperleft = x1; + level->walls[level->numwalls].lowerleft = x2; + level->walls[level->numwalls].upperright = x3; + level->walls[level->numwalls].lowerright = x4; + level->walls[level->numwalls].depth = depth; + level->walls[level->numwalls].height = alt; + level->walls[level->numwalls].type = type; + + level->numwalls++; +} + +static void addbasemap(float rx, float rz, float x_size, float z_size, float min_y, float max_y, int x_cont) +{ + __realloc(level->basemaps, level->numbasemaps); + level->numbasemaps++; + generate_basemap(level->numbasemaps-1, rx, rz, x_size, z_size, min_y, max_y, x_cont); +} + +void generate_basemap(int map_index, float rx, float rz, float x_size, float z_size, float min_y, float max_y, int x_cont) { + float x, z; + float delta, y, tmp; + int dir = 0; + + if(map_index >= level->numbasemaps) + { + __reallocto(level->basemaps, level->numbasemaps, map_index + 1); + level->numbasemaps = map_index + 1; + } + + level->basemaps[map_index].position.x = rx; + level->basemaps[map_index].position.z = rz-z_size; + level->basemaps[map_index].size.x = x_size; + level->basemaps[map_index].size.z = z_size; + + if(!level->basemaps[map_index].map) + { + level->basemaps[map_index].map = calloc( 1, (int)(sizeof(*(level->basemaps[map_index].map)) * (x_size+1)*(z_size+1)) ); + } + + if (min_y <= max_y) dir = 1; + else + { + dir = 0; + tmp = min_y; + min_y = max_y; + max_y = tmp; + } + + delta = (max_y - min_y) / ( (x_size <= 0) ? 1 : (x_size-1) ); + + for( x = 0; x < x_size; x++) + { + if ( dir ) + { + if ( x == x_size-1 ) y = max_y; + else y = x*delta + min_y; + } + else + { + y = max_y - (x*delta); + } + + if ( x_cont != 0 ) + { + if ( dir > 0 ) + { + if ( x+rx >= x_cont ) y = max_y; // connect with the wall more smoothly + } + else + { + if ( x+rx <= x_cont ) y = max_y; + } + } + + for ( z = 0; z < z_size; z++) + { + level->basemaps[map_index].map[(int)(x + z*x_size)] = y; + //printf("map[%d] = %f\n",(int)(x + z*x_size),y); + } + //printf("x:%f y:%f delta:%f\n",x,y,delta); + //printf("y: %f\n",y); + } + + return; +} + +void load_level(char *filename) +{ + char *buf = NULL; + size_t size, len, sblen; + ptrdiff_t pos, oldpos; + char *command; + char *value; + char *scriptbuf = NULL; + char string[MAX_BUFFER_LEN] = {""}; + s_spawn_entry next; + s_model *tempmodel, *cached_model; + + int i = 0, j = 0, crlf = 0; + int player_max = MAX_PLAYERS; + char bgPath[MAX_BUFFER_LEN] = {""}, fnbuf[MAX_BUFFER_LEN]; + s_loadingbar bgPosi = {0, 0, {0,0}, {0,0}, 0, 0}; + char musicPath[MAX_BUFFER_LEN] = {""}; + u32 musicOffset = 0; + + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + + ArgList arglist2; + char argbuf2[MAX_ARG_LEN + 1] = ""; + + levelCommands cmd; + levelCommands cmd2; + int line = 0; + char *errormessage = NULL; + char *scriptname = NULL; + Script *tempscript = NULL; + s_drawmethod *dm; + s_layer *bgl; + int (*panels)[3] = NULL; + int *order = NULL; + int panelcount = 0; + int exit_blocked = 0, exit_hole = 0; + char maskPath[MAX_BUFFER_LEN] = {""}; + + unload_level(); + + printf("Level Loading: '%s'\n", filename); + + + + getRamStatus(BYTES); + + if(isLoadingScreenTypeBg(loadingbg[1].set)) + { + if(custBkgrds) + { + strcpy(string, custBkgrds); + strcat(string, "loading2"); + load_background(string); + } + else + { + load_cached_background("data/bgs/loading2"); + } + clearscreen(vscreen); + spriteq_clear(); + standard_palette(1); + } + + if(isLoadingScreenTypeBar(loadingbg[1].set)) + { + lifebar_colors(); + init_colourtable(); + } + + update_loading(&loadingbg[1], -1, 1); // initialize the update screen + + memset(&next, 0, sizeof(next)); + + level = calloc(1, sizeof(*level)); + if(!level) + { + errormessage = "load_level() #1 FATAL: Out of memory!"; + goto lCleanup; + } + len = strlen(filename); + level->name = malloc(len + 1); + + if(!level->name) + { + errormessage = "load_level() #1 FATAL: Out of memory!"; + goto lCleanup; + } + strcpy(level->name, filename); + + // Allocate memory for player spawn - only as much as we need. + player_max = levelsets[current_set].maxplayers; + level->spawn = calloc(player_max, sizeof(*level->spawn)); + + // Default player spawn Y position just above the screen top. + for(i = 0; i < player_max && level->spawn; i++) + { + level->spawn[i].y = videomodes.vRes + 60; + } + + if(buffer_pakfile(filename, &buf, &size) != 1) + { + errormessage = "Unable to load level file!"; + goto lCleanup; + } + + level->settime = 100; // Feb 25, 2005 - Default time limit set to 100 + level->nospecial = 0; // Default set to specials can be used during bonus levels + level->nohurt = DAMAGE_FROM_ENEMY_ON; + level->nohit = DAMAGE_FROM_PLAYER_ON; // Default able to hit the other player + level->setweap = 0; + level->maxtossspeed = default_level_maxtossspeed; + level->maxfallspeed = default_level_maxfallspeed; + level->gravity = default_level_gravity; + level->scrolldir = SCROLL_RIGHT; + level->scrollspeed = 1; + level->cameraxoffset = 0; + level->camerazoffset = 0; + level->boss_slow = BOSS_SLOW_ON; + level->bossescount = 0; + level->numbosses = 0; + blendfx[BLEND_MULTIPLY] = 1; + bgtravelled = 0; + vbgtravelled = 0; + traveltime = 0; + texttime = 0; + nopause = 0; + nofadeout = 0; + noscreenshot = 0; + + panel_width = panel_height = frontpanels_loaded = 0; + + //reset_playable_list(1); + + // Now interpret the contents of buf line by line + pos = 0; + while(pos < size) + { + line++; + ParseArgs(&arglist, buf + pos, argbuf); + command = GET_ARG(0); + cmd = getLevelCommand(levelcmdlist, command); + switch(cmd) + { + case CMD_LEVEL_LOADINGBG: + load_background(GET_ARG(1)); + errormessage = fill_s_loadingbar(&bgPosi, GET_INT_ARG(2), GET_INT_ARG(3), GET_INT_ARG(4), GET_INT_ARG(5), GET_INT_ARG(6), GET_INT_ARG(7), GET_INT_ARG(8), GET_INT_ARG(9)); + if (errormessage) + { + goto lCleanup; + } + standard_palette(1); + lifebar_colors(); + init_colourtable(); + update_loading(&bgPosi, -1, 1); // initialize the update screen + break; + case CMD_LEVEL_MUSICFADE: + memset(&next, 0, sizeof(next)); + next.musicfade = GET_FLOAT_ARG(1); + break; + case CMD_LEVEL_MUSIC: + value = GET_ARG(1); + strncpy(string, value, MAX_BUFFER_LEN - 1); + musicOffset = atol(GET_ARG(2)); + if(loadingmusic) + { + music(string, 1, musicOffset); + musicPath[0] = 0; + } + else + { + oldpos = pos; + // Go to next line + pos += getNewLineStart(buf + pos); +#define GET_ARG2(z) arglist2.count > z ? arglist2.args[z] : "" + if(pos < size) + { + ParseArgs(&arglist2, buf + pos, argbuf2); + command = GET_ARG2(0); + cmd2 = getLevelCommand(levelcmdlist, command); + } + else + { + cmd2 = (levelCommands) 0; + } + + if(cmd2 == CMD_LEVEL_AT) + { + if(next.musicfade == 0) + { + memset(&next, 0, sizeof(next)); + } + strncpy(next.music, string, MAX_BUFFER_LEN); + next.musicoffset = musicOffset; + } + else + { + strncpy(musicPath, string, MAX_BUFFER_LEN); + } + pos = oldpos; +#undef GET_ARG2 + } + break; + case CMD_LEVEL_ALLOWSELECT: + load_playable_list(buf + pos); + break; + case CMD_LEVEL_LOAD: +#ifdef DEBUG + printf("load_level: load %s, %s\n", GET_ARG(1), filename); +#endif + tempmodel = findmodel(GET_ARG(1)); + if (!tempmodel) + { + load_cached_model(GET_ARG(1), filename, GET_INT_ARG(2)); + } + else + { + update_model_loadflag(tempmodel, GET_INT_ARG(2)); + } + break; + case CMD_LEVEL_ALPHAMASK: + strncpy(maskPath, GET_ARG(1), MAX_BUFFER_LEN - 1); + break; + case CMD_LEVEL_BACKGROUND: + case CMD_LEVEL_BGLAYER: + case CMD_LEVEL_LAYER: + case CMD_LEVEL_FGLAYER: + __realloc(level->layers, level->numlayers); + bgl = &(level->layers[level->numlayers]); + + if(cmd == CMD_LEVEL_BACKGROUND || cmd == CMD_LEVEL_BGLAYER) + { + i = 0; + bgl->z = MIN_INT; + } + else + { + i = 1; + bgl->z = GET_FLOAT_ARG(2); + if(cmd == CMD_LEVEL_FGLAYER) + { + bgl->z += FRONTPANEL_Z; + } + } + + if(cmd == CMD_LEVEL_BACKGROUND) + { + if(bgPath[0]) + { + errormessage = "Background is already defined!"; + goto lCleanup; + } + value = GET_ARG(1); + strcpy(bgPath, value); + bgl->oldtype = BGT_BACKGROUND; + } + else if(cmd == CMD_LEVEL_BGLAYER) + { + bgl->oldtype = BGT_BGLAYER; + } + else if(cmd == CMD_LEVEL_FGLAYER) + { + bgl->oldtype = BGT_FGLAYER; + } + else if(cmd == CMD_LEVEL_LAYER) + { + bgl->oldtype = BGT_GENERIC; + } + + dm = &(bgl->drawmethod); + *dm = plainmethod; + + bgl->ratio.x = GET_FLOAT_ARG(i + 2); // x ratio + bgl->ratio.z = GET_FLOAT_ARG(i + 3); // z ratio + bgl->offset.x = GET_INT_ARG(i + 4); // x start + bgl->offset.z = GET_INT_ARG(i + 5); // z start + bgl->spacing.x = GET_INT_ARG(i + 6); // x spacing + bgl->spacing.z = GET_INT_ARG(i + 7); // z spacing + dm->xrepeat = GET_INT_ARG(i + 8); // x repeat + dm->yrepeat = GET_INT_ARG(i + 9); // z repeat + + dm->config = GET_INT_ARG(i + 10) ? (dm->config | DRAWMETHOD_CONFIG_BACKGROUND_TRANSPARENCY) : (dm->config & ~DRAWMETHOD_CONFIG_BACKGROUND_TRANSPARENCY); + + + dm->alpha = GET_INT_ARG(i + 11); // alpha + dm->water.watermode = GET_INT_ARG(i + 12); // water + if(dm->water.watermode == WATER_MODE_SHEAR) + { + dm->water.beginsize = GET_FLOAT_ARG(i + 13); // beginsize + dm->water.endsize = GET_FLOAT_ARG(i + 14); // endsize + dm->water.perspective = GET_INT_ARG(i + 15); // perspective + } + else + { + dm->water.amplitude = GET_INT_ARG(i + 13); // amplitude + dm->water.wavelength = GET_FLOAT_ARG(i + 14); // wavelength + dm->water.wavespeed = GET_FLOAT_ARG(i + 15); // waterspeed + } + bgl->bgspeedratio = GET_FLOAT_ARG(i + 16); // moving + bgl->quake = GET_INT_ARG(i + 17); // quake + bgl->neon = GET_INT_ARG(i + 18); // neon + bgl->enabled = 1; // enabled + + if((GET_ARG(i + 2))[0] == 0) + { + bgl->ratio.x = (cmd == CMD_LEVEL_FGLAYER ? 1.5 : 0.5); + } + if((GET_ARG(i + 3))[0] == 0) + { + bgl->ratio.z = (cmd == CMD_LEVEL_FGLAYER ? 1.5 : 0.5); + } + + if((GET_ARG(i + 8))[0] == 0) + { + dm->xrepeat = -1; + } + if((GET_ARG(i + 9))[0] == 0) + { + dm->yrepeat = -1; + } + if(cmd == CMD_LEVEL_BACKGROUND && (GET_ARG(i + 16))[0] == 0) + { + bgl->bgspeedratio = 1.0; + } + + if(blendfx_is_set == 0 && dm->alpha) + { + blendfx[dm->alpha - 1] = 1; + } + + if(cmd != CMD_LEVEL_BACKGROUND) + { + load_layer(GET_ARG(1), maskPath, level->numlayers); + } + level->numlayers++; + break; + case CMD_LEVEL_WATER: + __realloc(level->layers, level->numlayers); + bgl = &(level->layers[level->numlayers]); + dm = &(bgl->drawmethod); + *dm = plainmethod; + + bgl->oldtype = BGT_WATER; + bgl->z = MIN_INT + 1; + + bgl->ratio.x = 0.5; // x ratio + bgl->ratio.z = 0.5; // z ratio + bgl->offset.x = 0; // x start + bgl->offset.z = NaN; // z start + bgl->spacing.x = 0; // x spacing + bgl->spacing.z = 0; // z spacing + dm->xrepeat = -1; // x repeat + dm->yrepeat = 1; // z repeat + dm->config &= ~DRAWMETHOD_CONFIG_BACKGROUND_TRANSPARENCY; // transparency + dm->alpha = BLEND_MODE_NONE; // alpha + dm->water.watermode = WATER_MODE_SINE; + dm->water.amplitude = GET_INT_ARG(2); // amplitude + dm->water.wavelength = 40; // wavelength + dm->water.wavespeed = 1.0; // waterspeed + bgl->bgspeedratio = 0; // moving + bgl->enabled = 1; // enabled + + if(dm->water.amplitude < 1) + { + dm->water.amplitude = 1; + } + + load_layer(GET_ARG(1), maskPath, level->numlayers); + level->numlayers++; + break; + case CMD_LEVEL_DIRECTION: + value = GET_ARG(1); + if(stricmp(value, "up") == 0) + { + level->scrolldir = SCROLL_UP; + } + else if(stricmp(value, "down") == 0) + { + level->scrolldir = SCROLL_DOWN; + } + else if(stricmp(value, "left") == 0) + { + level->scrolldir = SCROLL_LEFT; + } + else if(stricmp(value, "both") == 0 || stricmp(value, "rightleft") == 0) + { + level->scrolldir = SCROLL_BOTH; + } + else if(stricmp(value, "leftright") == 0) + { + level->scrolldir = SCROLL_LEFTRIGHT; + } + else if(stricmp(value, "right") == 0) + { + level->scrolldir = SCROLL_RIGHT; + } + else if(stricmp(value, "in") == 0) + { + level->scrolldir = SCROLL_INWARD; + } + else if(stricmp(value, "out") == 0) + { + level->scrolldir = SCROLL_OUTWARD; + } + else if(stricmp(value, "inout") == 0) + { + level->scrolldir = SCROLL_INOUT; + } + else if(stricmp(value, "outin") == 0) + { + level->scrolldir = SCROLL_OUTIN; + } + break; + case CMD_LEVEL_FACING: + level->facing = GET_INT_ARG(1); + break; + + case CMD_LEVEL_ROCK: + level->rocking = GET_INT_ARG(1); + break; + case CMD_LEVEL_BGSPEED: + level->bgspeed = GET_FLOAT_ARG(1); + if(GET_INT_ARG(2)) + { + level->bgspeed *= -1; + } + break; + case CMD_LEVEL_VBGSPEED: + level->vbgspeed = GET_FLOAT_ARG(1); + if(GET_INT_ARG(2)) + { + level->vbgspeed *= -1; + } + break; + case CMD_LEVEL_SCROLLSPEED: + level->scrollspeed = GET_FLOAT_ARG(1); + break; + case CMD_LEVEL_MIRROR: + level->mirror = GET_INT_ARG(1); + break; + case CMD_LEVEL_BOSSMUSIC: + strncpy(level->bossmusic, GET_ARG(1), 255); + level->bossmusic_offset = atol(GET_ARG(2)); + break; + case CMD_LEVEL_NOSAVE: + nosave = GET_INT_ARG(1); + break; + case CMD_LEVEL_NOFADEOUT: + nofadeout = GET_INT_ARG(1); + break; + case CMD_LEVEL_NOPAUSE: + nopause = GET_INT_ARG(1); + break; + case CMD_LEVEL_NOSCREENSHOT: + noscreenshot = GET_INT_ARG(1); + break; + case CMD_LEVEL_SETTIME: + // If settime is found, overwrite the default 100 for time limit + level->settime = GET_INT_ARG(1); + if(level->settime > 100 || level->settime < 0) + { + level->settime = 100; + } + // Feb 25, 2005 - time limit loaded from individual .txt file + break; + case CMD_LEVEL_SETWEAP: + // Specify a weapon for each level + level->setweap = GET_INT_ARG(1); + break; + case CMD_LEVEL_NOTIME: + // Flag to if the time should be displayed 1 = no, else yes + level->notime = GET_INT_ARG(1); + break; + case CMD_LEVEL_NORESET: + // Flag to if the time should be reset when players respawn 1 = no, else yes + level->noreset = GET_INT_ARG(1); + break; + case CMD_LEVEL_NOSLOW: + + if(GET_INT_ARG(1)) + { + level->boss_slow = BOSS_SLOW_OFF; + } + + break; + case CMD_LEVEL_TYPE: + level->type = GET_INT_ARG(1); // Level type - 1 = bonus, else regular + level->nospecial = GET_INT_ARG(2); // Can use specials during bonus levels (default 0 - yes) + + if(GET_INT_ARG(3)) + { + level->nohurt = DAMAGE_FROM_ENEMY_OFF; + } + + break; + case CMD_LEVEL_NOHIT: + + if(GET_INT_ARG(1)) + { + level->nohit = DAMAGE_FROM_PLAYER_OFF; + } + + break; + case CMD_LEVEL_GRAVITY: + level->gravity = GET_FLOAT_ARG(1); + level->gravity /= 100; + break; + case CMD_LEVEL_MAXFALLSPEED: + level->maxfallspeed = GET_FLOAT_ARG(1); + level->maxfallspeed /= 10; + break; + case CMD_LEVEL_MAXTOSSSPEED: + level->maxtossspeed = GET_FLOAT_ARG(1); + level->maxtossspeed /= 10; + break; + case CMD_LEVEL_CAMERATYPE: + cameratype = GET_INT_ARG(1); + break; + case CMD_LEVEL_CAMERAOFFSET: + level->cameraxoffset = GET_INT_ARG(1); + level->camerazoffset = GET_INT_ARG(2); + break; + case CMD_LEVEL_SPAWN1: + case CMD_LEVEL_SPAWN2: + case CMD_LEVEL_SPAWN3: + case CMD_LEVEL_SPAWN4: + switch(cmd) + { + case CMD_LEVEL_SPAWN1: + i = 0; + break; + case CMD_LEVEL_SPAWN2: + i = 1; + break; + case CMD_LEVEL_SPAWN3: + i = 2; + break; + case CMD_LEVEL_SPAWN4: + i = 3; + break; + default: + assert(0); + } + + // Verify specified player index exists, + // then set values. + if(level->spawn && i < player_max) + { + level->spawn[i].x = GET_INT_ARG(1); + level->spawn[i].z = GET_INT_ARG(2); + level->spawn[i].y = GET_INT_ARG(3); + + if(level->spawn[i].y < 0) level->spawn[i].y = videomodes.vRes + 60; + } + + break; + case CMD_LEVEL_FRONTPANEL: + case CMD_LEVEL_PANEL: + if(level->numlayers == 0) + { + __realloc(level->layers, level->numlayers); + level->numlayers = 1; // reserve for background + } + + __realloc(level->layers, level->numlayers); + bgl = &(level->layers[level->numlayers]); + dm = &(bgl->drawmethod); + *dm = plainmethod; + + bgl->oldtype = (cmd == CMD_LEVEL_FRONTPANEL ? BGT_FRONTPANEL : BGT_PANEL); + + if(bgl->oldtype == BGT_PANEL) + { + bgl->order = panelcount + 1; + __realloc(panels, panelcount); + panels[panelcount++][0] = level->numlayers; + bgl->z = PANEL_Z; + bgl->ratio.x = 0; // x ratio + bgl->ratio.z = 0; // z ratio + dm->xrepeat = 1; // x repeat + } + else + { + frontpanels_loaded++; + bgl->z = FRONTPANEL_Z; + bgl->ratio.x = -0.4; // x ratio + bgl->ratio.z = 1; // z ratio + dm->xrepeat = -1; // x repeat + } + + bgl->bgspeedratio = 0; + bgl->offset.z = 0; + dm->yrepeat = 1; // z repeat + dm->config |= DRAWMETHOD_CONFIG_BACKGROUND_TRANSPARENCY; // transparency + bgl->enabled = 1; // enabled + bgl->quake = 1; // accept quake and rock + + load_layer(GET_ARG(1), maskPath, level->numlayers); + level->numlayers++; + + if(stricmp(GET_ARG(2), "none") != 0 && GET_ARG(2)[0]) + { + __realloc(level->layers, level->numlayers); + bgl = &(level->layers[level->numlayers]); + *bgl = *(bgl - 1); + panels[panelcount - 1][1] = level->numlayers; + + bgl->z = NEONPANEL_Z; + bgl->neon = 1; + bgl->gfx.handle = NULL; + load_layer(GET_ARG(2), maskPath, level->numlayers); + level->numlayers++; + } + + if(stricmp(GET_ARG(3), "none") != 0 && GET_ARG(3)[0]) + { + __realloc(level->layers, level->numlayers); + bgl = &(level->layers[level->numlayers]); + *bgl = *(bgl - 1); + panels[panelcount - 1][2] = level->numlayers; + dm = &(bgl->drawmethod); + + bgl->z = SCREENPANEL_Z; + bgl->neon = 0; + dm->alpha = BLEND_MODE_ALPHA; + bgl->gfx.handle = NULL; + load_layer(GET_ARG(3), maskPath, level->numlayers); + level->numlayers++; + } + break; + case CMD_LEVEL_STAGENUMBER: + current_stage = GET_INT_ARG(1); + break; + case CMD_LEVEL_ORDER: + // Append to order + value = GET_ARG(1); + i = 0; + while(value[i] ) + { + j = value[i]; + // WTF ? + if(j >= 'A' && j <= 'Z') + { + j -= 'A'; + } + else if(j >= 'a' && j <= 'z') + { + j -= 'a'; + } + else + { + errormessage = "Illegal character in panel order!"; + goto lCleanup; + } + __realloc(order, level->numpanels); + __realloc(level->panels, level->numpanels); + order[level->numpanels] = j; + level->numpanels++; + i++; + } + break; + case CMD_LEVEL_HOLE: + /*value = GET_ARG(1); // ltb 1-18-05 adjustable hole sprites + + if(holesprite < 0) + { + if(testpackfile(value, packfile) >= 0) + { + holesprite = loadsprite(value, 0, 0, pixelformat); // ltb 1-18-05 load new hole sprite + } + else + { + holesprite = loadsprite("data/sprites/hole", 0, 0, pixelformat); // ltb 1-18-05 no new sprite load the default + } + }*/ + + addhole(GET_FLOAT_ARG(1), GET_FLOAT_ARG(2), GET_FLOAT_ARG(3), GET_FLOAT_ARG(4), GET_FLOAT_ARG(5), GET_FLOAT_ARG(6), GET_FLOAT_ARG(7), GET_FLOAT_ARG(8), GET_FLOAT_ARG(9)); + break; + case CMD_LEVEL_WALL: + addwall(GET_FLOAT_ARG(1), GET_FLOAT_ARG(2), GET_FLOAT_ARG(3), GET_FLOAT_ARG(4), GET_FLOAT_ARG(5), GET_FLOAT_ARG(6), GET_FLOAT_ARG(7), GET_FLOAT_ARG(8), GET_FLOAT_ARG(9)); + break; + case CMD_LEVEL_BASEMAP: + addbasemap(GET_FLOAT_ARG(1), GET_FLOAT_ARG(2), GET_FLOAT_ARG(3), GET_FLOAT_ARG(4), GET_FLOAT_ARG(5), GET_FLOAT_ARG(6), GET_FLOAT_ARG(7)); + break; + case CMD_LEVEL_PALETTE: + __realloc(level->palettes, level->numpalettes); + if(!load_palette(level->palettes[level->numpalettes], GET_ARG(1))) + { + errormessage = "Failed to create colour conversion tables for level! (Out of memory?)"; + goto lCleanup; + } + level->numpalettes++; + break; + case CMD_LEVEL_UPDATESCRIPT: + case CMD_LEVEL_UPDATEDSCRIPT: + case CMD_LEVEL_UPDATELOGICSCRIPT: + case CMD_LEVEL_UPDATEDLOGICSCRIPT: + case CMD_LEVEL_KEYSCRIPT: + case CMD_LEVEL_LEVELSCRIPT: + case CMD_LEVEL_ENDLEVELSCRIPT: + switch(cmd) + { + case CMD_LEVEL_UPDATESCRIPT: + tempscript = &(level->update_script); + scriptname = "levelupdatescript"; + break; + case CMD_LEVEL_UPDATEDSCRIPT: + tempscript = &(level->updated_script); + scriptname = "levelupdatedscript"; + break; + case CMD_LEVEL_UPDATELOGICSCRIPT: + tempscript = &(level->update_logic_script); + scriptname = "levelupdatelogicscript"; + break; + case CMD_LEVEL_UPDATEDLOGICSCRIPT: + tempscript = &(level->updated_logic_script); + scriptname = "levelupdatedlogicscript"; + break; + case CMD_LEVEL_KEYSCRIPT: + tempscript = &(level->key_script); + scriptname = "levelkeyscript"; + break; + case CMD_LEVEL_LEVELSCRIPT: + tempscript = &(level->level_script); + scriptname = "levelscript"; + break; + case CMD_LEVEL_ENDLEVELSCRIPT: + tempscript = &(level->endlevel_script); + scriptname = "endlevelscript"; + break; + default: + assert(0); + + } + // this function is for model script, but it is OK for now + pos += lcmHandleCommandScripts(&arglist, buf + pos, tempscript, scriptname, filename, 1, 1); + break; + case CMD_LEVEL_BLOCKED: + exit_blocked = GET_INT_ARG(1); + break; + case CMD_LEVEL_ENDHOLE: + exit_hole = GET_INT_ARG(1); + break; + case CMD_LEVEL_WAIT: + // Clear spawn thing, set wait state instead + memset(&next, 0, sizeof(next)); + next.wait = 1; + break; + case CMD_LEVEL_NOJOIN: + // Clear spawn thing, set nojoin state instead + memset(&next, 0, sizeof(next)); + next.nojoin = 1; + break; + case CMD_LEVEL_CANJOIN: + memset(&next, 0, sizeof(next)); + next.nojoin = -1; + break; + case CMD_LEVEL_SHADOWCOLOR: + memset(&next, 0, sizeof(next)); + next.shadowcolor = parsecolor(GET_ARG(1)); + break; + case CMD_LEVEL_SHADOWALPHA: + memset(&next, 0, sizeof(next)); + next.shadowalpha = GET_INT_ARG(1); + if(blendfx_is_set == 0 && next.shadowalpha > 0) + { + blendfx[next.shadowalpha - 1] = 1; + } + break; + case CMD_LEVEL_SHADOWOPACITY: + memset(&next, 0, sizeof(next)); + next.shadowopacity = GET_INT_ARG(1); + break; + case CMD_LEVEL_LIGHT: + memset(&next, 0, sizeof(next)); + next.light.x = GET_INT_ARG(1); + next.light.y = GET_INT_ARG(2); + if(next.light.y == 0) + { + next.light.y = 64; + } + break; + case CMD_LEVEL_SCROLLZ: + memset(&next, 0, sizeof(next)); + next.scrollminz = GET_INT_ARG(1); + next.scrollmaxz = GET_INT_ARG(2); + next.scrollminz |= 0x80000000; + break; + case CMD_LEVEL_SCROLLX: + //shall we keep blockade? + memset(&next, 0, sizeof(next)); + next.scrollminx = GET_INT_ARG(1); + next.scrollmaxx = GET_INT_ARG(2); + next.scrollminx |= 0x80000000; + break; + case CMD_LEVEL_BLOCKADE: + // now x scroll can be limited by this + memset(&next, 0, sizeof(next)); + next.blockade = GET_INT_ARG(1); + if(next.blockade == 0) + { + next.blockade = -1; + } + break; + case CMD_LEVEL_SETPALETTE: + // change system palette + memset(&next, 0, sizeof(next)); + next.palette = GET_INT_ARG(1); + break; + case CMD_LEVEL_GROUP: + // Clear spawn thing, set group instead + memset(&next, 0, sizeof(next)); + next.groupmin = GET_INT_ARG(1); + next.groupmax = GET_INT_ARG(2); + if(next.groupmax < 1) + { + next.groupmax = 1; + } + if(next.groupmin < 1) + { + next.groupmin = 100; + } + break; + case CMD_LEVEL_SPAWN: + // Back to defaults + next.spawnplayer_count = 0; + memset(&next, 0, sizeof(next)); + next.index = next.item_properties.index = next.weaponindex = -1; + // Name of entry to be spawned + // Load model (if not loaded already) + cached_model = findmodel(GET_ARG(1)); +#ifdef DEBUG + printf("load_level: spawn %s, %s, cached: %p\n", GET_ARG(1), filename, cached_model); +#endif + if(cached_model) + { + tempmodel = cached_model; + } + else + { + tempmodel = load_cached_model(GET_ARG(1), filename, 0); + } + if(tempmodel) + { + next.name = tempmodel->name; + next.index = get_cached_model_index(next.name); + next.spawntype = SPAWN_TYPE_LEVEL; //2011_03_23, DC; Spawntype SPAWN_TYPE_LEVEL. + + crlf = 1; + } + break; + case CMD_LEVEL_2PSPAWN: + // Entity only for 2p game + next.spawnplayer_count = 1; + break; + case CMD_LEVEL_3PSPAWN: + // Entity only for 3p game + next.spawnplayer_count = 2; + break; + case CMD_LEVEL_4PSPAWN: + // Entity only for 4p game + next.spawnplayer_count = 3; + break; + case CMD_LEVEL_BOSS: + next.boss = GET_INT_ARG(1); + level->bossescount += next.boss ? 1 : 0; + level->numbosses = level->bossescount; + break; + + case CMD_LEVEL_FACTION_GROUP_DAMAGE_DIRECT: + + next.faction.damage_direct = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FACTION_GROUP_DAMAGE_INDIRECT: + + next.faction.damage_indirect = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FACTION_GROUP_HOSTILE: + + next.faction.hostile = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FACTION_GROUP_MEMBER: + + next.faction.member = faction_get_flags_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FACTION_TYPE_DAMAGE_DIRECT: + + next.faction.type_damage_direct = get_type_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FACTION_TYPE_DAMAGE_INDIRECT: + + next.faction.type_damage_indirect = get_type_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FACTION_TYPE_HOSTILE: + + next.faction.type_hostile = get_type_from_command_line(buf + pos); + break; + + case CMD_LEVEL_FLIP: + next.flip = GET_INT_ARG(1); + break; + case CMD_LEVEL_HEALTH: + next.health[0] = next.health[1] = next.health[2] = next.health[3] = GET_INT_ARG(1); + break; + case CMD_LEVEL_2PHEALTH: + // Health the spawned entity will have if 2 people are playing + next.health[1] = next.health[2] = next.health[3] = GET_INT_ARG(1); + break; + case CMD_LEVEL_3PHEALTH: + // Health the spawned entity will have if 2 people are playing + next.health[2] = next.health[3] = GET_INT_ARG(1); //4player + break; + case CMD_LEVEL_4PHEALTH: + // Health the spawned entity will have if 2 people are playing + next.health[3] = GET_INT_ARG(1); //4player + break; + case CMD_LEVEL_MP: + // mp values to put max mp for player by tails + next.mp = GET_INT_ARG(1); + break; + case CMD_LEVEL_SCORE: + // So score can be overriden in the levels .txt file + if(!command_argument_get_int64(GET_ARG(1), &next.score)) + { + borShutdown( + 1, + "Invalid signed 64-bit score '%s' in %s, line %d.\n", + GET_ARG(1), + filename, + line + ); + } + next.multiple = GET_INT_ARG(2); + if(next.multiple == -1) + { + next.multiple = 0; // So negative values cannot be added + } + break; + case CMD_LEVEL_NOLIFE: + // Flag to determine if entity life is shown when hit + next.nolife = GET_INT_ARG(1); + break; + case CMD_LEVEL_ALIAS: + // Alias (name displayed) of entry to be spawned + strncpy(next.alias, GET_ARG(1), MAX_NAME_LEN - 1); + break; + case CMD_LEVEL_MAP: + // Colourmap for new entry + next.colourmap = GET_INT_ARG(1); + break; + case CMD_LEVEL_ALPHA: + // Item to be contained by new entry + next.alpha = GET_INT_ARG(1); + if(blendfx_is_set == 0 && next.alpha) + { + blendfx[next.alpha - 1] = 1; + } + break; + case CMD_LEVEL_DYING: + // Used to store which remake corresponds with the dying flash + next.dying = GET_INT_ARG(1); + next.per1 = GET_INT_ARG(2); + next.per2 = GET_INT_ARG(3); + next.dying2 = GET_INT_ARG(4); + break; + case CMD_LEVEL_ITEM: + case CMD_LEVEL_2PITEM: + case CMD_LEVEL_3PITEM: + case CMD_LEVEL_4PITEM: + switch(cmd) + { + // Item to be contained by new entry + case CMD_LEVEL_ITEM: + next.item_properties.player_count = 0; + break; + case CMD_LEVEL_2PITEM: + next.item_properties.player_count = 1; + break; + case CMD_LEVEL_3PITEM: + next.item_properties.player_count = 2; + break; + case CMD_LEVEL_4PITEM: + next.item_properties.player_count = 3; + break; + default: + assert(0); + } + // Load model (if not loaded already) + cached_model = findmodel(GET_ARG(1)); + if(cached_model) + { + tempmodel = cached_model; + } + else + { + tempmodel = load_cached_model(GET_ARG(1), filename, 0); + } + if(tempmodel) + { + next.item = tempmodel->name; + next.item_properties.index = get_cached_model_index(next.item); + } + break; + case CMD_LEVEL_ITEMMAP: + next.item_properties.colorset = GET_INT_ARG(1); + break; + case CMD_LEVEL_ITEMHEALTH: + next.item_properties.health = GET_INT_ARG(1); + break; + case CMD_LEVEL_ITEMALIAS: + strncpy(next.item_properties.alias, GET_ARG(1), MAX_NAME_LEN - 1); + break; + case CMD_LEVEL_WEAPON: + //spawn with a weapon 2007-2-12 by UTunnels + // Load model (if not loaded already) + cached_model = findmodel(GET_ARG(1)); + if(cached_model) + { + tempmodel = cached_model; + } + else + { + tempmodel = load_cached_model(GET_ARG(1), filename, 0); + } + if(tempmodel) + { + next.weapon = tempmodel->name; + next.weaponindex = get_cached_model_index(next.weapon); + } + break; + case CMD_LEVEL_AGGRESSION: + // Aggression can be set per spawn. + next.aggression = GET_INT_ARG(1); + break; + case CMD_LEVEL_CREDIT: + next.credit = GET_INT_ARG(1); + break; + case CMD_LEVEL_ITEMTRANS: + case CMD_LEVEL_ITEMALPHA: + next.item_properties.alpha = GET_INT_ARG(1); + break; + case CMD_LEVEL_COORDS: + next.position.x = GET_FLOAT_ARG(1); + next.position.z = GET_FLOAT_ARG(2); + next.position.y = GET_FLOAT_ARG(3); + break; + case CMD_LEVEL_SPAWNSCRIPT: + pos += lcmHandleCommandScripts(&arglist, buf + pos, &next.spawnscript, "Level spawn entry script", filename, 0, 1); + break; + case CMD_LEVEL_AT_SCRIPT: + if(!Script_IsInitialized(&next.spawnscript)) + { + Script_Init(&next.spawnscript, "Level spawn entry script", filename, 1); + } + fetchInlineScript(buf, &scriptbuf, &pos, &sblen); + if(!Script_AppendText(&next.spawnscript, scriptbuf, filename)) + { + errormessage = "Unable to parse level spawn entry script.\n"; + goto lCleanup; + } + free(scriptbuf); + scriptbuf = NULL; + break; + case CMD_LEVEL_AT: + // Place entry on queue + next.at = GET_INT_ARG(1); + + if(Script_IsInitialized(&next.spawnscript)) + { + Script_Compile(&next.spawnscript); + } + + __realloc(level->spawnpoints, level->numspawns); + memcpy(&level->spawnpoints[level->numspawns], &next, sizeof(next)); + level->numspawns++; + + // And clear... + memset(&next, 0, sizeof(next)); + break; + default: + if(command && command[0]) + { + if(!handle_txt_include(command, &arglist, &filename, fnbuf, &buf, &pos, &size)) + { + printf("Command '%s' not understood in file '%s'!\n", command, filename); + } + } + } + + // Go to next line + pos += getNewLineStart(buf + pos); + + if(isLoadingScreenTypeBar(bgPosi.set) || isLoadingScreenTypeBg(bgPosi.set)) + { + update_loading(&bgPosi, pos, size); + } + //update_loading(bgPosi[0]+videomodes.hShift, bgPosi[1]+videomodes.vShift, bgPosi[2], bgPosi[3]+videomodes.hShift, bgPosi[4]+videomodes.vShift, pos, size, bgPosi[5]); + else + { + update_loading(&loadingbg[1], pos, size); + } + } + + if(level->numpanels < 1) + { + errormessage = "Level error: level has no panels"; + goto lCleanup; + } + + if(bgPath[0]) + { + clearscreen(vscreen); + spriteq_clear(); + load_background(bgPath); + } + else if(background) + { + unload_background(); + } + + if(level->numlayers) + { + + for(i = 0; i < level->numlayers; i++) + { + bgl = &(level->layers[i]); + switch(bgl->oldtype) + { + case BGT_WATER: // default water hack + bgl->offset.z = background ? background->height : level->layers[0].size.y; + dm = &(bgl->drawmethod); + if(level->rocking) + { + dm->water.watermode = WATER_MODE_SHEAR; + dm->water.beginsize = 1.0; + dm->water.endsize = 1 + bgl->size.y / 11.0; + dm->water.perspective = WATER_PERSPECTIVE_NONE; + bgl->bgspeedratio = 2; + } + break; + case BGT_PANEL: + panel_width = bgl->size.x; + panel_height = bgl->size.y; + case BGT_FRONTPANEL: + if(level->scrolldir & (SCROLL_UP | SCROLL_DOWN)) + { + bgl->ratio.z = 1; + } + break; + case BGT_BACKGROUND: + bgl->gfx.screen = background; + bgl->size.x = background->width; + bgl->size.y = background->height; + level->background = bgl; + break; + default: + break; + } + load_layer(NULL, NULL, i); + } + + if(level->background) + { + __realloc(level->layersref, level->numlayersref); + level->layersref[level->numlayersref] = *(level->background); + level->background = (s_layer *)(size_t)level->numlayersref++; + } + + + // non-panel type layers + for(i = 0; i < level->numlayers; i++) + { + bgl = &(level->layers[i]); + if(bgl->oldtype != BGT_PANEL && bgl->oldtype != BGT_BACKGROUND) + { + __realloc(level->layersref, level->numlayersref); + level->layersref[level->numlayersref] = *bgl; + bgl = &(level->layersref[level->numlayersref]); + switch(bgl->oldtype) + { + case BGT_BGLAYER: + __realloc(level->bglayers, level->numbglayers); + level->bglayers[level->numbglayers++] = (s_layer *)(size_t)level->numlayersref; + break; + case BGT_FGLAYER: + __realloc(level->fglayers, level->numfglayers); + level->fglayers[level->numfglayers++] = (s_layer *)(size_t)level->numlayersref; + break; + case BGT_WATER: + __realloc(level->waters, level->numwaters); + level->waters[level->numwaters++] = (s_layer *)(size_t)level->numlayersref; + break; + case BGT_GENERIC: + __realloc(level->genericlayers, level->numgenericlayers); + level->genericlayers[level->numgenericlayers++] = (s_layer *)(size_t)level->numlayersref; + break; + case BGT_FRONTPANEL: + bgl->offset.x = level->numfrontpanels * bgl->size.x; + bgl->spacing.x = (frontpanels_loaded - 1) * bgl->size.x; + __realloc(level->frontpanels, level->numfrontpanels); + level->frontpanels[level->numfrontpanels++] = (s_layer *)(size_t)level->numlayersref; + break; + default: + break; + } + level->numlayersref++; + } + } + + //panels, normal neon screen + for(i = 0; i < level->numpanels; i++) + { + for(j = 0; j < 3; j++) + { + if(panels[order[i]][j]) + { + __realloc(level->layersref, level->numlayersref); + level->layersref[level->numlayersref] = level->layers[panels[order[i]][j]]; + bgl = &(level->layersref[level->numlayersref]); + bgl->offset.x = panel_width * i; + level->panels[i][j] = (s_layer *)(size_t)level->numlayersref; + level->numlayersref++; + } + } + } + + //fix realloc junk pointers + bgl = level->layersref; + level->background = bgl + (size_t)level->background; + for(i = 0; i < level->numpanels; i++) + for(j = 0; j < 3; j++) + { + level->panels[i][j] = bgl + (size_t)level->panels[i][j]; + } + for(i = 0; i < level->numfrontpanels; i++) + { + level->frontpanels[i] = bgl + (size_t)level->frontpanels[i]; + } + for(i = 0; i < level->numbglayers; i++) + { + level->bglayers[i] = bgl + (size_t)level->bglayers[i]; + } + for(i = 0; i < level->numfglayers; i++) + { + level->fglayers[i] = bgl + (size_t)level->fglayers[i]; + } + for(i = 0; i < level->numgenericlayers; i++) + { + level->genericlayers[i] = bgl + (size_t)level->genericlayers[i]; + } + for(i = 0; i < level->numwaters; i++) + { + level->waters[i] = bgl + (size_t)level->waters[i]; + } + + } + + if(musicPath[0]) + { + music(musicPath, 1, musicOffset); + } + + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + level->width = level->numpanels * panel_width; + + if(level->width < videomodes.hRes) + { + level->width = videomodes.hRes; + } + + scrollmaxx = level->width - videomodes.hRes; + scrollmaxz = panel_height; + + if(level->scrolldir & SCROLL_LEFT) + { + advancex = (float)(level->width - videomodes.hRes); + } + else if(level->scrolldir & SCROLL_INWARD) + { + advancey = (float)(panel_height - videomodes.vRes); + } + + if(exit_blocked) + { + addwall(level->width - 30, PLAYER_MAX_Z, -panel_height, 0, 1000, 1000, panel_height, MAX_WALL_HEIGHT + 1, 0); + } + if(exit_hole) + { + addhole(level->width, PLAYER_MAX_Z, -panel_height, 0, 1000, 1000, panel_height, 0, 0); + } + + if(crlf) + { + printf("\n"); + } + printf("Level Loaded: '%s'\n", level->name); + totalram = getSystemRam(BYTES); + freeram = getFreeRam(BYTES); + usedram = getUsedRam(BYTES); + printf("Total Ram: %11"PRIu64" Bytes ( %5"PRIu64" MB )\n Free Ram: %11"PRIu64" Bytes ( %5"PRIu64" MB )\n Used Ram: %11"PRIu64" Bytes ( %5"PRIu64" MB )\n", + totalram, + totalram >> 20, + freeram, + freeram >> 20, + usedram, + usedram >> 20); + printf("Total sprites mapped: %d\n\n", sprites_loaded); + +lCleanup: + + if (panels) + { + free(panels); + } + if (order) + { + free(order); + } + + if(buf) + { + free(buf); + } + if(scriptbuf) + { + free(scriptbuf); + } + + if(errormessage) + { + borShutdown(1, "ERROR: load_level, file %s, line %d, message: %s", filename, line, errormessage); + } +} + + + + + +///////////////////////////////////////////////////////////////////////////// +// Status // +///////////////////////////////////////////////////////////////////////////// +void bar(int x, int y, int value, int maxvalue, s_barstatus *pstatus) +{ + int max = 100; + int len; + int alphabg = 0; + int bgindex; + int colourindex; + int forex; + int forey; + int forew; + int foreh; + int bkw; + int bkh; + s_drawmethod dm = plainmethod; + + if(pstatus->config_flags & STATUS_CONFIG_GRAPH_VERTICAL) + { + max = pstatus->size.y; + } + else + { + max = pstatus->size.x; + } + + if (value > maxvalue) + { + value = maxvalue; + } + + if(pstatus->config_flags & STATUS_CONFIG_GRAPH_RATIO) + { + colourindex = colorbars ? (value * 5 / maxvalue + 1) : 2; + bgindex = colorbars ? 8 : 1; + len = value * max / maxvalue; + if (!len && value) + { + len = 1; + } + alphabg = BLEND_MULTIPLY + 1; + } + else + { + if (max > maxvalue) + { + max = maxvalue; + } + if (colorbars) + { + if (value <= max / 4) + { + bgindex = 0; + colourindex = 1; + } + else if (value <= max / 2) + { + bgindex = 0; + colourindex = 2; + } + else if (value <= max) + { + bgindex = 0; + colourindex = 3; + } + else + { + colourindex = value / (max + 1) + 3; + bgindex = colourindex - 1; + } + if (colourindex > 10) + { + colourindex = bgindex = 10; + } + } + else + { + colourindex = 2; + bgindex = value > max ? 5 : 1; + } + + len = value % max; + if (!len && value) + { + len = max; + } + alphabg = value > max ? 0 : (BLEND_MULTIPLY + 1); + } + + if(pstatus->config_flags & STATUS_CONFIG_GRAPH_VERTICAL) + { + forex = x; + forey = pstatus->config_flags & STATUS_CONFIG_GRAPH_INVERT ? y : (y + max - len); + bkw = forew = pstatus->size.x; + foreh = len; + bkh = max; + } + else + { + forex = pstatus->config_flags & STATUS_CONFIG_GRAPH_INVERT ? (x + max - len) : x; + forey = y; + forew = len; + bkw = max; + bkh = foreh = pstatus->size.y; + } + + if(!pstatus->colourtable) + { + pstatus->colourtable = &hpcolourtable; + } + + dm.alpha = alphabg; + spriteq_add_box(x + 1, y + 1, bkw, bkh, HUD_Z + 1 + pstatus->backlayer, (*pstatus->colourtable)[bgindex], &dm); + spriteq_add_box(forex + 1, forey + 1, forew, foreh, HUD_Z + 2 + pstatus->barlayer, (*pstatus->colourtable)[colourindex], NULL); + + if(!(pstatus->config_flags & STATUS_CONFIG_BORDER_DISABLE)) + { + spriteq_add_line(x, y, x + bkw + 1, y, HUD_Z + 3 + pstatus->borderlayer, color_white, NULL); //Top border. + spriteq_add_line(x, y + bkh + 1, x + bkw + 1, y + bkh + 1, HUD_Z + 3 + pstatus->borderlayer, color_white, NULL); //Bottom border. + spriteq_add_line(x, y + 1, x, y + bkh, HUD_Z + 3 + pstatus->borderlayer, color_white, NULL); //Left border. + spriteq_add_line(x + bkw + 1, y + 1, x + bkw + 1, y + bkh, HUD_Z + 3 + pstatus->borderlayer, color_white, NULL); //Right border. + spriteq_add_line(x, y + bkh + 2, x + bkw + 1, y + bkh + 2, HUD_Z + pstatus->borderlayer, color_black, NULL); //Bottom shadow. + spriteq_add_line(x + bkw + 2, y + 1, x + bkw + 2, y + bkh + 2, HUD_Z + pstatus->borderlayer, color_black, NULL); //Right shadow. + } +} + +void goto_mainmenu(int flag) +{ + goto_mainmenu_flag = 1|(flag<<1); + escape_flag = flag; //Kratus (20-04-21) Added the new "escape" flag in the select screen, has the same effect as the esc key but now accessible by the "gotomainmenu" function +} + +void static backto_mainmenu() +{ + int i = 0; + s_screen *pausebuffer = allocscreen(videomodes.hRes, videomodes.vRes, PIXEL_32); + + copyscreen(pausebuffer, vscreen); + spriteq_draw(pausebuffer, 0, MIN_INT, MAX_INT, 0, 0); + spriteq_clear(); + spriteq_add_screen(0, 0, MIN_INT, pausebuffer, NULL, 0); + spriteq_lock(); + + sound_pause_music(1); + sound_pause_sample(1); + _pause = 2; + + if ( (goto_mainmenu_flag&1) ) goto_mainmenu_flag -= 1; + + update(1, 0); + + for(i = 0; i < MAX_PLAYERS; i++) + { + player[i].lives = 0; + } + endgame = 2; + //sound_pause_music(0); + //sound_pause_sample(0); + + _pause = 0; + bothnewkeys = 0; + spriteq_unlock(); + spriteq_clear(); + freescreen(&pausebuffer); + + return; +} + +void pausemenu() +{ + int pauselector = 0; + int quit = 0; + int controlp = 0, i; + key_mask_t newkeys; + s_set_entry *set = levelsets + current_set; + s_screen *pausebuffer = allocscreen(videomodes.hRes, videomodes.vRes, PIXEL_32); + + copyscreen(pausebuffer, vscreen); + spriteq_draw(pausebuffer, 0, MIN_INT, MAX_INT, 0, 0); + spriteq_clear(); + spriteq_add_screen(0, 0, MIN_INT, pausebuffer, NULL, 0); + spriteq_lock(); + + for(i = 0; i < set->maxplayers; i++) + { + if(player[i].ent && (player[i].newkeys & FLAG_START)) + { + controlp = i; + break; + } + } + + _pause = 2; + bothnewkeys = 0; + while(!quit) + { + _menutextmshift(pauseoffset[4], -2, 0, pauseoffset[5], pauseoffset[6], Tr("Pause")); + _menutextmshift((pauselector == 0)?pauseoffset[1]:pauseoffset[0], -1, 0, pauseoffset[2], pauseoffset[3], Tr("Continue")); + _menutextmshift((pauselector == 1)?pauseoffset[1]:pauseoffset[0], 0, 0, pauseoffset[2], pauseoffset[3], Tr("End Game")); + + update(1, 0); + + newkeys = player[controlp].newkeys; + + if(newkeys & (FLAG_MOVEUP | FLAG_MOVEDOWN)) + { + pauselector ^= 1; + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(newkeys & FLAG_START) + { + if(pauselector) + { + for(i = 0; i < MAX_PLAYERS; i++) + { + player[i].lives = 0; + } + endgame = 2; + } + quit = 1; + sound_pause_music(0); + sound_pause_sample(0); + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + pauselector = 0; + } + if(newkeys & FLAG_ESC) + { + quit = 1; + sound_pause_music(0); + sound_pause_sample(0); + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + pauselector = 0; + } + if(newkeys & FLAG_SCREENSHOT) + { + _pause = 1; + sound_pause_music(1); + sound_pause_sample(1); + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + menu_options(); + } + } + _pause = 0; + bothnewkeys = 0; + spriteq_unlock(); + spriteq_clear(); + freescreen(&pausebuffer); +} + +unsigned getFPS(void) +{ + static u64 lasttick = 0, framerate = 0; + u64 curtick = timer_uticks(); + if(lasttick > curtick) + { + lasttick = curtick; + } + framerate = (framerate + (curtick - lasttick)) / 2; + lasttick = curtick; + if(!framerate) + { + // if the frame took 0 ms, act like it was 1 ms instead + return 1000; + } + + return round(1.0e6 / framerate); + +} + +void updatestatus() { + + uint64_t display_time; + uint64_t go_phase; + uint64_t i; + s_model *model = NULL; + s_set_entry *set = levelsets + current_set; + + for(i = 0; i < set->maxplayers; i++) { + + /* + * If the player is already in the game, do nothing. + */ + if(player[i].ent) { + continue; + } + + if(player[i].joining && player[i].name[0]) { + model = findmodel(player[i].name); + + if((player[i].playkeys & FLAG_ANYBUTTON || skipselect[i][0]) && !freezeall && !nojoin) { // Can't join while animations are frozen + player[i].lives = PLAYER_LIVES; // to address new lives settings + player[i].joining = 0; + player[i].hasplayed = 1; + player[i].spawnhealth = model->health; + player[i].spawnmp = model->mp; + + spawnplayer(i); + + execute_join_script(i); + + player[i].disablekeys = player[i].playkeys = player[i].newkeys = player[i].releasekeys = 0; + + if(!nodropen) { + drop_all_enemies(); //27-12-2004 If drop enemies is on, drop all enemies + } + + if(!level->noreset) { + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + } + + } else if(player[i].playkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT)) { + + /* PLayer model selection. */ + + model = ((player[i].playkeys & FLAG_MOVELEFT) ? prevplayermodeln : nextplayermodeln)(model, i); + strcpy(player[i].name, model->name); + + player[i].colourmap = (colourselect && (set->nosame & 2)) ? nextcolourmapn(model, -1, i) : 0; + + player[i].playkeys = 0; + + } else if(player[i].playkeys & (FLAG_MOVEUP | FLAG_MOVEDOWN) && colourselect) { + + /* Player color seleciton. */ + + player[i].colourmap = ((player[i].playkeys & FLAG_MOVEUP) ? nextcolourmapn : prevcolourmapn)(model, player[i].colourmap, i); + + player[i].playkeys = 0; + } + + /* + * Player already joining. No reason to process + * any downstream logic in the scan. + */ + continue; + } + + /* + * Begin joining when the player has access to a credit. + */ + if( !nojoin && (player[i].credits || credits || (!player[i].hasplayed && noshare))) { + + if(player[i].playkeys & FLAG_START) { + player[i].lives = 0; + model = skipselect[i][0] ? findmodel(skipselect[i]) : nextplayermodeln(NULL, i); + strncpy(player[i].name, model->name, MAX_NAME_LEN); + + player[i].colourmap = (colourselect && (set->nosame & 2)) ? nextcolourmapn(model, -1, i) : 0; + + player[i].joining = 1; + player[i].disablekeys = player[i].playkeys = player[i].newkeys = player[i].releasekeys = 0; + + if(!level->noreset) { + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + } + + /* + * Player joining active game for first time + * and no credit sharing enabled. Start them + * with default number of continues before + * we deduct a credit from the player or global + * pool. + */ + if(!player[i].hasplayed && noshare) { + player[i].credits = CONTINUES; + } + + /* + * Subtract a credit from the player or global + * pool if cheats are not enabled. + */ + if(!(global_config.cheats & CHEAT_OPTIONS_CREDITS_ACTIVE)) { + + /* + * If credit sharing, deduct from the global + * pool, otherwise deduct from the player. + */ + if(noshare) { + --player[i].credits; + } else { + --credits; + } + + /* + * If continuescore is set to 1, reset the + * player's score to 0, otherwise if set to 2, + * increment the player's score by 1. + */ + if(set->continuescore == 1) { + player[i].score = 0; + } + + if(set->continuescore == 2) { + if(player[i].score < UINT64_MAX) { + player[i].score++; + } + } + } + } + } + } + + /* Get display time from time remaining and cap to 0 - 99 */ + display_time = (timeleft / global_config.counter_speed); + + if(display_time >= 99) { + display_time = 99; + oldtime = 99; + } + if(display_time <= 0) + { + display_time = 0; + oldtime = 99; + } + + if (is_total_timeover){ + timetoshow = 0; + } else { + timetoshow = display_time; + } + + if(timetoshow < oldtime || oldtime == 0) { + execute_timetick_script(timetoshow, go_time); + oldtime = timetoshow; + } + + if(display_time > 0 && !is_total_timeover) { + showtimeover = 0; + } + + + + if(go_time > _time) { + go_phase = (go_time - _time) % global_config.game_speed; + + if(go_phase < global_config.game_speed / 2) { + global_config.showgo = 1; + screen_status |= IN_SCREEN_SHOW_GO_ARROW; //Kratus (04-2022) Added the "showgo" event accessible by script + + if(gosound == 0 ) { + + if(global_sample_list.go >= 0) { + sound_play_sample(global_sample_list.go, 0, savedata.effectvol, savedata.effectvol, 100); // 26-12-2004 Play go sample as arrow flashes + } + + gosound = 1; // 26-12-2004 Sets sample as already played - stops sample repeating too much + } + + } else { + global_config.showgo = gosound = 0; //26-12-2004 Resets go sample after loop so it can be played again next time + screen_status &= ~IN_SCREEN_SHOW_GO_ARROW; //Kratus (04-2022) Added the "showgo" event accessible by script + } + + } else { + global_config.showgo = 0; + screen_status &= ~IN_SCREEN_SHOW_GO_ARROW; //Kratus (04-2022) Added the "showgo" event accessible by script + } +} + + +// Caskey, Damon V. +// 2016-11-16 +// +// Draw dot onto screen to indicate actual entity position, +// with text readout of Base, X, Y, and Z coordinates directly below. +void draw_properties_entity(entity *entity, int offset_z, int color, s_drawmethod *drawmethod) +{ + #define FONT_LABEL 1 + #define FONT_VALUE 0 + #define TEXT_MARGIN_Y 1 + #define OFFSET_LAYER -2 + + // Array keys for the list of items + // we want to display + enum + { + DRAW_PROPERTIES_KEY_NAME, + DRAW_PROPERTIES_KEY_BASE, + DRAW_PROPERTIES_KEY_POS, + DRAW_PROPERTIES_KEY_STATUS, + DRAW_PROPERTIES_ARRAY_SIZE // Array size, so always last. + }; + + typedef struct + { + s_axis_principal_int position; + s_axis_plane_vertical_int size; + } draw_coords; + + s_axis_plane_vertical_int screen_offset; // Base location calculated from screen offsets. + s_axis_plane_vertical_int base_pos; // Entity position with screen offsets applied. + draw_coords box; // On screen coords for display elements. + + int i; // Counter. + int str_offset_x; // Calculated offset of text for centering. + int label_width_max; + int str_width_max; // largest string width. + int str_height_max; // Largest string height. + size_t str_size; // Memory size of string. + + char *output_label[DRAW_PROPERTIES_ARRAY_SIZE]; + const char *output_format[DRAW_PROPERTIES_ARRAY_SIZE]; // Format ("%d, %s .."). + char *output_value[DRAW_PROPERTIES_ARRAY_SIZE]; // Final string to display position. + + // Let's build the format for information + // we want to display. + output_format[DRAW_PROPERTIES_KEY_NAME] = "%s"; + output_format[DRAW_PROPERTIES_KEY_BASE] = "%d"; + output_format[DRAW_PROPERTIES_KEY_POS] = "%d, %d, %d"; + output_format[DRAW_PROPERTIES_KEY_STATUS] = "%d, %d"; + + // Double pass method for unknown string size. + // + // 1. Build the label. + // + // 2. Attempt to copy 0 chars to unallocated + // buffer and record how many characters + // would be needed, plus 1 for the NULL terminator + // and record as a string_size. + // + // 3. Allocate memory using the string size. + // + // 4. Copy formatted string to allocated buffer + // for real. + // + // Repeat for each line item we want to display. + // + // TO: Work this into a loop. Main obstacle is + // the number of format string inputs vary depending + // on type of property. + + // Name + output_label[DRAW_PROPERTIES_KEY_NAME] = "Name: "; + output_value[DRAW_PROPERTIES_KEY_NAME] = NULL; + str_size = snprintf(output_value[DRAW_PROPERTIES_KEY_NAME], 0, output_format[DRAW_PROPERTIES_KEY_NAME], entity->model->name) + 1; + output_value[DRAW_PROPERTIES_KEY_NAME] = malloc(str_size); + snprintf(output_value[DRAW_PROPERTIES_KEY_NAME], str_size, output_format[DRAW_PROPERTIES_KEY_NAME], entity->model->name); + + // Base + output_label[DRAW_PROPERTIES_KEY_BASE] = "Base: "; + output_value[DRAW_PROPERTIES_KEY_BASE] = NULL; + str_size = snprintf(output_value[DRAW_PROPERTIES_KEY_BASE], 0, output_format[DRAW_PROPERTIES_KEY_BASE], (int)entity->base) + 1; + output_value[DRAW_PROPERTIES_KEY_BASE] = malloc(str_size); + snprintf(output_value[DRAW_PROPERTIES_KEY_BASE], str_size, output_format[DRAW_PROPERTIES_KEY_BASE], (int)entity->base); + + // XYZ + output_label[DRAW_PROPERTIES_KEY_POS] = "X,Y,Z: "; + output_value[DRAW_PROPERTIES_KEY_POS] = NULL; + str_size = snprintf(output_value[DRAW_PROPERTIES_KEY_POS], 0, output_format[DRAW_PROPERTIES_KEY_POS], (int)entity->position.x, (int)entity->position.y, (int)entity->position.z) + 1; + output_value[DRAW_PROPERTIES_KEY_POS] = malloc(str_size); + snprintf(output_value[DRAW_PROPERTIES_KEY_POS], str_size, output_format[DRAW_PROPERTIES_KEY_POS], (int)entity->position.x, (int)entity->position.y, (int)entity->position.z); + + // HP & MP + output_label[DRAW_PROPERTIES_KEY_STATUS] = "HP, MP: "; + output_value[DRAW_PROPERTIES_KEY_STATUS] = NULL; + str_size = snprintf(output_value[DRAW_PROPERTIES_KEY_STATUS], 0, output_format[DRAW_PROPERTIES_KEY_STATUS], (int)entity->energy_state.health_current, (int)entity->energy_state.mp_current) + 1; + output_value[DRAW_PROPERTIES_KEY_STATUS] = malloc(str_size); + snprintf(output_value[DRAW_PROPERTIES_KEY_STATUS], str_size, output_format[DRAW_PROPERTIES_KEY_STATUS], (int)entity->energy_state.health_current, (int)entity->energy_state.mp_current); + + + // Get the largest string X and Y space. For X find the largest + // label and value, then add them. For Y, just get height of + // largest font. + label_width_max = font_string_width_max(output_label, DRAW_PROPERTIES_ARRAY_SIZE, FONT_LABEL); + str_width_max = label_width_max + font_string_width_max(output_value, DRAW_PROPERTIES_ARRAY_SIZE, FONT_VALUE); + + if (fontheight(FONT_LABEL) > fontheight(FONT_VALUE)) + { + str_height_max = fontheight(FONT_LABEL); + } + else + { + str_height_max = fontheight(FONT_VALUE); + } + + // Get our base offsets from screen vs. location. + screen_offset.x = screenx - ((entity->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SELF) ? 0 : gfx_x_offset); + screen_offset.y = screeny - ((entity->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SELF) ? 0 : gfx_y_offset); + + // Get entity position with screen offsets. + base_pos.x = entity->position.x - screen_offset.x; + base_pos.y = (entity->position.z - offset_z) - entity->position.y - screen_offset.y; + + // Get a value of half the text width. + // We can use this to center our text + // on the entity. + str_offset_x = str_width_max / 2; + + // Apply text offset. + box.position.x = base_pos.x - str_offset_x; + + box.position.y = base_pos.y; + box.position.z = entity->position.z + offset_z; + + // Draw position dot. + // The +1 to Z is a quick fix - offset_z + // distorts the dot's vertical position + // instead of just adjusting Z. + spriteq_add_dot(base_pos.x, base_pos.y, box.position.z+1, color, drawmethod); + + // Print each item text. + for(i = 0; i < DRAW_PROPERTIES_ARRAY_SIZE; i++) + { + // If the item string exists then + // we can find a position, print it to + // the screen, and free up allocated memory. + if(output_value[i]) + { + // Add font height and margin to Y position. + base_pos.y += (str_height_max + TEXT_MARGIN_Y); + + // Print label to the screen. The value X + // position adds maximum label width, plus + // 25% the width a single value character. + font_printf(box.position.x, base_pos.y, FONT_LABEL, OFFSET_LAYER, output_label[i]); + font_printf(box.position.x + label_width_max + (fontmonowidth(FONT_VALUE) * 0.25), base_pos.y, FONT_VALUE, OFFSET_LAYER, output_value[i]); + + // Release memory allocated for the value strings. + free(output_value[i]); + } + } + + return; + + // Remove local constants. + #undef FONT + #undef TEXT_MARGIN_Y + #undef OFFSET_LAYER +} + +/* +* Caskey, Damon V. +* 2026-07-02 +* +* Screen-space debug box coordinates. +*/ +typedef struct s_debug_draw_box { + s_axis_principal_int position; + s_axis_plane_vertical_int size; +} s_debug_draw_box; + +/* +* Caskey, Damon V. +* 2026-07-02 +* +* Convert an entity-relative box into screen-space +* draw coordinates. +*/ +static void debug_box_get_screen_coordinates(entity* const target_entity, + const int pos_x, + const int pos_y, + const int pos_z, + const int size_w, + const int size_h, + const int offset_z, + s_debug_draw_box* const box) { + + s_axis_plane_vertical_int screen_offset; + s_axis_plane_vertical_int base_pos; + + /* + * Guard against invalid targets. The caller should + * already validate these, but keep this helper safe. + */ + if (!target_entity || !box) { + return; + } + + /* + * Get our base offsets from screen vs. world location. + */ + screen_offset.x = screenx - ((target_entity->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SELF) ? 0 : gfx_x_offset); + screen_offset.y = screeny - ((target_entity->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SELF) ? 0 : gfx_y_offset); + + /* + * Convert entity world position to screen position. + */ + base_pos.x = target_entity->position.x - screen_offset.x; + base_pos.y = (target_entity->position.z - offset_z) - target_entity->position.y - screen_offset.y; + + /* + * Apply box coordinates. + */ + box->size.x = size_w - pos_x; + + /* + * Accommodate entity direction. + */ + if (target_entity->direction == DIRECTION_RIGHT) { + box->position.x = base_pos.x + pos_x; + } + else { + box->position.x = base_pos.x - (box->size.x + pos_x); + } + + box->position.y = base_pos.y + pos_y; + box->size.y = (base_pos.y + size_h) - box->position.y; + box->position.z = pos_z + offset_z; +} + +/* +* Convert an entity-relative box into screen-space coordinates, +* then apply visual-only perspective offset while preserving +* the requested draw layer. +*/ +static void debug_box_get_screen_coordinates_at_layer(entity* const target_entity, + const int pos_x, + const int pos_y, + const int draw_layer, + const int size_w, + const int size_h, + const int visual_offset_x, + const int visual_offset_y, + s_debug_draw_box* const box) { + + if (!box) { + return; + } + + debug_box_get_screen_coordinates( + target_entity, + pos_x, + pos_y, + draw_layer, + size_w, + size_h, + 0, + box); + + box->position.x += visual_offset_x; + box->position.y += visual_offset_y; + box->position.z = draw_layer; +} + +/* +* Caskey, Damon V. +* 2026-07-02 +* +* Draw a filled transparent debug box with a hard +* one-pixel border in the same color. +*/ +static void debug_box_draw_filled_with_border(const s_debug_draw_box* const box, const int color, s_drawmethod* const drawmethod) { + int far_x; + int far_y; + + if (!box) { + return; + } + + /* + * Draw the transparent fill first. + */ + spriteq_add_box( + box->position.x, + box->position.y, + box->size.x, + box->size.y, + box->position.z, + color, + drawmethod); + + /* + * Then draw a hard outline over the fill. + */ + far_x = box->position.x + (box->size.x - 1); + far_y = box->position.y + box->size.y; + + spriteq_add_line(box->position.x, box->position.y, far_x, box->position.y, box->position.z, color, NULL); /* Top. */ + spriteq_add_line(box->position.x, far_y, far_x, far_y, box->position.z, color, NULL); /* Bottom. */ + spriteq_add_line(box->position.x, box->position.y, box->position.x, far_y, box->position.z, color, NULL); /* Left. */ + spriteq_add_line(far_x, box->position.y, far_x, far_y, box->position.z, color, NULL); /* Right. */ +} + +/* +* Caskey, Damon V. +* 2016-11-16 +* +* Convert an entity-relative box to screen-space and +* draw it as a transparent rectangle with a hard border. +*/ +void draw_box_on_entity(entity* entity, int pos_x, int pos_y, int pos_z, int size_w, int size_h, int offset_z, int color, s_drawmethod* drawmethod) { + s_debug_draw_box box = { 0 }; + + debug_box_get_screen_coordinates( + entity, + pos_x, + pos_y, + pos_z, + size_w, + size_h, + offset_z, + &box); + + debug_box_draw_filled_with_border(&box, color, drawmethod); +} + +/* +* Caskey, Damon V. +* 2026-07-06 +* +* Draw a wireframe rectangle from prepared debug box coordinates. +*/ +static void debug_box_draw_wireframe(const s_debug_draw_box* const box, const int color, s_drawmethod* const drawmethod) { + int left; + int right; + int top; + int bottom; + int layer; + + if (!box) { + return; + } + + left = box->position.x; + top = box->position.y; + right = box->position.x + box->size.x - 1; + bottom = box->position.y + box->size.y - 1; + layer = box->position.z; + + spriteq_add_line(left, top, right, top, layer, color, drawmethod); + spriteq_add_line(right, top, right, bottom, layer, color, drawmethod); + spriteq_add_line(right, bottom, left, bottom, layer, color, drawmethod); + spriteq_add_line(left, bottom, left, top, layer, color, drawmethod); +} + +/* +* Caskey, Damon V. +* 2026-07-02 +* +* Draw a collision hitbox as a simple perspective cube. +* +* The entity's own Z position is the visual and draw-layer +* anchor. Higher draw-layer values are closer to the screen. +* +* Background Z is drawn behind the entity's Z layer. +* Foreground Z is drawn in front of the entity's Z layer. +* +* The screen-space perspective offset is intentionally +* illustrative. It keeps the true X/Y extent centered around +* the entity's Z position while making the depth readable. +* +* 2026-07-02: Disabled until debug menu option implemented. +*/ +static void draw_collision_cube_on_entity(entity* const target_entity, + const s_hitbox* const coords, + const int color, + s_drawmethod* const drawmethod) { + + s_debug_draw_box back_box = { 0 }; + s_debug_draw_box front_box = { 0 }; + + int entity_z; + int z_background; + int z_foreground; + int z_depth; + + int perspective_x_sign; + int perspective_offset_back; + int perspective_offset_front; + int back_layer; + int front_layer; + + int back_left; + int back_right; + int back_top; + int back_bottom; + + int front_left; + int front_right; + int front_top; + int front_bottom; + + if (!target_entity || !coords) { + return; + } + + entity_z = target_entity->position.z; + + z_background = coords->z_background; + z_foreground = coords->z_foreground; + + if (z_background < 0) { + z_background = 0; + } + + if (z_foreground < 0) { + z_foreground = 0; + } + + z_depth = z_background + z_foreground; + + back_layer = entity_z - z_background; + front_layer = entity_z + z_foreground; + + /* + * No depth - draw a wireframe rectangle only. + */ + if (z_depth < 1) { + debug_box_get_screen_coordinates_at_layer( + target_entity, + coords->x, + coords->y, + entity_z + 1, + coords->width, + coords->height, + 0, + 0, + &front_box); + + debug_box_draw_wireframe(&front_box, color, NULL); + return; + } + + /* + * Visual-only perspective. Keep this independent from + * the true Z layer. + * + */ + perspective_offset_back = z_background / 4; + perspective_offset_front = z_foreground / 4; + + if (z_background > 0 && perspective_offset_back < 1) { + perspective_offset_back = 1; + } + + if (z_foreground > 0 && perspective_offset_front < 1) { + perspective_offset_front = 1; + } + + /* + * Mirror only the visual perspective X offset. + * The collision box coordinate conversion already handles + * entity direction, so do not modify coords->x or coords->width. + */ + perspective_x_sign = (target_entity->direction == DIRECTION_RIGHT) ? 1 : -1; + + /* + * Back face: projected from entity Z toward background. + * Front face: projected from entity Z toward foreground. + */ + debug_box_get_screen_coordinates_at_layer( + target_entity, + coords->x, + coords->y, + back_layer, + coords->width, + coords->height, + perspective_offset_back * perspective_x_sign, + -perspective_offset_back, + &back_box); + + debug_box_get_screen_coordinates_at_layer( + target_entity, + coords->x, + coords->y, + front_layer, + coords->width, + coords->height, + -perspective_offset_front * perspective_x_sign, + perspective_offset_front, + &front_box); + + debug_box_draw_wireframe(&back_box, color, NULL); + debug_box_draw_wireframe(&front_box, color, NULL); + + back_left = back_box.position.x; + back_top = back_box.position.y; + back_right = back_box.position.x + back_box.size.x - 1; + back_bottom = back_box.position.y + back_box.size.y - 1; + + front_left = front_box.position.x; + front_top = front_box.position.y; + front_right = front_box.position.x + front_box.size.x - 1; + front_bottom = front_box.position.y + front_box.size.y - 1; + + /* + * Connector lines use the front layer so they remain visible. + */ + spriteq_add_line(back_left, back_top, front_left, front_top, front_layer, color, NULL); + spriteq_add_line(back_right, back_top, front_right, front_top, front_layer, color, NULL); + spriteq_add_line(back_left, back_bottom, front_left, front_bottom, front_layer, color, NULL); + spriteq_add_line(back_right, back_bottom, front_right, front_bottom, front_layer, color, NULL); +} + +/* +* Caskey, Damon V. +* 2026-07-02 +* +* Draw every active collision box in a collection +* for visual debug output. +*/ +static void draw_visual_collision_collection(entity* const target_entity, + const s_collision_collection* const collection, + const int color, + s_drawmethod* const drawmethod, + const e_debug_display flat_bit, + const e_debug_display projected_bit) { + + const s_collision_instance* collision = NULL; + const s_hitbox* coords = NULL; + uint64_t active_status; + int collision_index; + + if (!target_entity || !collection || !collection->active_status) { + return; + } + + active_status = collection->active_status; + + while (active_status) { + collision_index = collision_get_lowest_active_index(active_status); + active_status &= active_status - 1; + + collision = collection->slots[collision_index]; + + if (!collision) { + continue; + } + + coords = &collision->coords; + + if (!collision_check_has_coords(coords)) { + continue; + } + + if (savedata.debuginfo & flat_bit) { + draw_box_on_entity( + target_entity, + coords->x, + coords->y, + target_entity->position.z + 1, + coords->width, + coords->height, + 2, + color, + drawmethod); + } + + if (savedata.debuginfo & projected_bit) { + draw_collision_cube_on_entity( + target_entity, + coords, + color, + drawmethod); + } + } +} + +/* +* Caskey, Damon V. +* Unknown date ~2018 +* +* Draw collision on screen as visual boxes. +*/ +void draw_visual_debug(void) { + #define LOCAL_COLOR_BLUE _makecolour(0, 0, 255) + #define LOCAL_COLOR_GREEN _makecolour(0, 255, 0) + #define LOCAL_COLOR_MAGENTA _makecolour(255, 0, 255) + #define LOCAL_COLOR_WHITE _makecolour(255, 255, 255) + + int entity_index; + int range_y_min = 0; + int range_y_max = 0; + int animation_frame = 0; + + s_drawmethod drawmethod = plainmethod; + s_collision_collection* collection = NULL; + entity* target_entity = NULL; + + drawmethod.alpha = BLEND_MODE_ALPHA; + + for (entity_index = 0; entity_index < ent_max; entity_index++) { + target_entity = ent_list[entity_index]; + + /* + * Entity must exist. + */ + if (!target_entity) { + continue; + } + + /* + * Entity must be alive. + */ + if (target_entity->death_state & DEATH_STATE_DEAD) { + continue; + } + + /* + * Most visual debug drawing depends on animation + * frame data. + */ + if (!target_entity->animation) { + continue; + } + + animation_frame = target_entity->animpos; + + /* + * Protect collision frame table lookups. + */ + if (animation_frame < 0 || animation_frame >= target_entity->animation->numframes) { + continue; + } + + /* + * Basic properties: name, position, HP, etc. + */ + if (savedata.debuginfo & DEBUG_DISPLAY_PROPERTIES) { + draw_properties_entity(target_entity, 0, LOCAL_COLOR_WHITE, NULL); + } + + /* + * Range debug requested? + */ + if (savedata.debuginfo & DEBUG_DISPLAY_RANGE) { + + /* + * Range is calculated a bit differently than + * body/attack boxes. For Y axis, invert the + * value and place min/max into the opposite + * drawing parameters. + */ + range_y_min = -target_entity->animation->range.y.min; + range_y_max = -target_entity->animation->range.y.max; + + draw_box_on_entity( + target_entity, + target_entity->animation->range.x.min, + range_y_max, + target_entity->position.z + 1, + target_entity->animation->range.x.max, + range_y_min, + -1, + LOCAL_COLOR_GREEN, + &drawmethod); + } + + /* + * Collision attack debug requested? + */ + if ((savedata.debuginfo & (DEBUG_DISPLAY_COLLISION_ATTACK_2D | DEBUG_DISPLAY_COLLISION_ATTACK_3D)) + && target_entity->animation->collision_attack) { + + collection = target_entity->animation->collision_attack[animation_frame]; + + draw_visual_collision_collection( + target_entity, + collection, + LOCAL_COLOR_MAGENTA, + &drawmethod, + DEBUG_DISPLAY_COLLISION_ATTACK_2D, + DEBUG_DISPLAY_COLLISION_ATTACK_3D); + } + + /* + * Collision body debug requested? + */ + if ((savedata.debuginfo & (DEBUG_DISPLAY_COLLISION_BODY_2D | DEBUG_DISPLAY_COLLISION_BODY_3D)) + && target_entity->animation->collision_body) { + + collection = target_entity->animation->collision_body[animation_frame]; + + draw_visual_collision_collection( + target_entity, + collection, + LOCAL_COLOR_BLUE, + &drawmethod, + DEBUG_DISPLAY_COLLISION_BODY_2D, + DEBUG_DISPLAY_COLLISION_BODY_3D); + } + + if ((savedata.debuginfo & (DEBUG_DISPLAY_COLLISION_SPACE_2D | DEBUG_DISPLAY_COLLISION_SPACE_3D)) + && target_entity->animation->collision_space) { + + collection = target_entity->animation->collision_space[animation_frame]; + + draw_visual_collision_collection( + target_entity, + collection, + LOCAL_COLOR_GREEN, + &drawmethod, + DEBUG_DISPLAY_COLLISION_SPACE_2D, + DEBUG_DISPLAY_COLLISION_SPACE_3D); + } + } + + #undef LOCAL_COLOR_BLUE + #undef LOCAL_COLOR_GREEN + #undef LOCAL_COLOR_MAGENTA + #undef LOCAL_COLOR_WHITE +} + + +void predrawstatus() +{ + + int icon = 0; + int i; + uint64_t tmp; + s_set_entry *set = levelsets + current_set; + s_model *model = NULL; + s_drawmethod drawmethod = plainmethod; + + if(bgicon >= 0) + { + spriteq_add_sprite(videomodes.hShift + bgicon_offsets[0], savedata.windowpos + bgicon_offsets[1], bgicon_offsets[2], bgicon, NULL, 0); + } + if(olicon >= 0) + { + spriteq_add_sprite(videomodes.hShift + olicon_offsets[0], savedata.windowpos + olicon_offsets[1], olicon_offsets[2], olicon, NULL, 0); + } + + for(i = 0; i < set->maxplayers; i++) + { + if(player[i].ent) + { + tmp = player[i].score; //work around issue on 64bit where sizeof(long) != sizeof(int) + if(!pscore[i][2] && !pscore[i][3] && !pscore[i][4] && !pscore[i][5]) + { + font_printf(videomodes.shiftpos[i] + pscore[i][0], savedata.windowpos + pscore[i][1], pscore[i][6], 0, (scoreformat ? "%s - %09" PRIu64 : "%s - %" PRIu64), (char *)(player[i].ent->name), tmp); + } + else + { + font_printf(videomodes.shiftpos[i] + pscore[i][0], savedata.windowpos + pscore[i][1], pscore[i][6], 0, "%s", player[i].ent->name); + font_printf(videomodes.shiftpos[i] + pscore[i][2], savedata.windowpos + pscore[i][3], pscore[i][6], 0, "-"); + font_printf(videomodes.shiftpos[i] + pscore[i][4], savedata.windowpos + pscore[i][5], pscore[i][6], 0, (scoreformat ? "%09" PRIu64 : "%" PRIu64), tmp); + } + + if(player[i].ent->energy_state.health_current <= 0) + { + icon = player[i].ent->modeldata.icon.die; + } + else if(player[i].ent->inpain & IN_PAIN_HIT) + { + icon = player[i].ent->modeldata.icon.pain; + } + else if(player[i].ent->getting) + { + icon = player[i].ent->modeldata.icon.get; + } + else + { + icon = player[i].ent->modeldata.icon.def; + } + + if(icon >= 0) + { + drawmethod.table = player[i].ent->modeldata.icon.usemap ? player[i].ent->colourmap : NULL; + spriteq_add_sprite(videomodes.shiftpos[i] + picon[i][0], savedata.windowpos + picon[i][1], 10000, icon, &drawmethod, 0); + } + + if(player[i].ent->weapent) + { + if(player[i].ent->weapent->modeldata.icon.weapon >= 0) + { + drawmethod.table = player[i].ent->weapent->modeldata.icon.usemap ? player[i].ent->weapent->colourmap : NULL; + spriteq_add_sprite(videomodes.shiftpos[i] + piconw[i][0], savedata.windowpos + piconw[i][1], 10000, player[i].ent->weapent->modeldata.icon.weapon, &drawmethod, 0); + } + + if(player[i].ent->weapent->modeldata.weapon_properties.weapon_state & WEAPON_STATE_LIMITED_USE && player[i].ent->weapent->modeldata.weapon_properties.use_count) + { + font_printf(videomodes.shiftpos[i] + pshoot[i][0], savedata.windowpos + pshoot[i][1], pshoot[i][2], 0, "%u", player[i].ent->weapent->modeldata.weapon_properties.use_count); + } + } + + /* + * If the player has MP, let's try to generate + * icons as well. + */ + + if (player[i].ent->modeldata.mp) { + + drawmethod.table = player[i].ent->modeldata.icon.usemap ? player[i].ent->colourmap : NULL; + + const float mp_percentage = (float)player[i].ent->energy_state.mp_old / player[i].ent->modeldata.mp; + + int mp_icon_sprite = ICON_NONE; + + if (mp_percentage <= 0.0 && player[i].ent->modeldata.icon.mpnone != ICON_NONE){ + mp_icon_sprite = player[i].ent->modeldata.icon.mpnone; + } + else if (mp_percentage < 0.25 && player[i].ent->modeldata.icon.mplow != ICON_NONE){ + mp_icon_sprite = player[i].ent->modeldata.icon.mplow; + } + else if (mp_percentage < 0.75 && player[i].ent->modeldata.icon.mpmed != ICON_NONE){ + mp_icon_sprite = player[i].ent->modeldata.icon.mpmed; + } + else if (mp_percentage < 1.0 && player[i].ent->modeldata.icon.mphigh != ICON_NONE){ + mp_icon_sprite = player[i].ent->modeldata.icon.mphigh; + } + else if (mp_percentage >= 1.0 && player[i].ent->modeldata.icon.mpmax != ICON_NONE){ + mp_icon_sprite = player[i].ent->modeldata.icon.mpmax; + } + + /* + * Draw an icon if we found one. + */ + if (mp_icon_sprite > 0) + { + spriteq_add_sprite(videomodes.shiftpos[i] + mpicon[i][0], savedata.windowpos + mpicon[i][1], 10000, mp_icon_sprite, &drawmethod, 0); + } + } + + font_printf(videomodes.shiftpos[i] + plifeX[i][0], savedata.windowpos + plifeX[i][1], plifeX[i][2], 0, "x"); + font_printf(videomodes.shiftpos[i] + plifeN[i][0], savedata.windowpos + plifeN[i][1], plifeN[i][2], 0, "%i", player[i].lives); + + if(rush[0] && player[i].ent->rush.count > 1 && _time <= player[i].ent->rush.time) + { + font_printf(videomodes.shiftpos[i] + prush[i][0], prush[i][1], rush[2], 0, "%s", rush_names[0]); + font_printf(videomodes.shiftpos[i] + prush[i][2], prush[i][3], rush[3], 0, "%i", player[i].ent->rush.count); + + if(rush[0] != 2) + { + font_printf(videomodes.shiftpos[i] + prush[i][4], prush[i][5], rush[4], 0, "%s", rush_names[1]); + font_printf(videomodes.shiftpos[i] + prush[i][6], prush[i][7], rush[5], 0, "%i", player[i].ent->rush.max); + } + } + + if(rush[0] == 2) + { + font_printf(videomodes.shiftpos[i] + prush[i][4], prush[i][5], rush[4], 0, "%s", rush_names[1]); + font_printf(videomodes.shiftpos[i] + prush[i][6], prush[i][7], rush[5], 0, "%i", player[i].ent->rush.max); + } + + if(player[i].ent->opponent && !player[i].ent->opponent->modeldata.nolife) + { + // Displays life unless overridden by flag + font_printf(videomodes.shiftpos[i] + ename[i][0], savedata.windowpos + ename[i][1], ename[i][2], 0, player[i].ent->opponent->name); + if(player[i].ent->opponent->energy_state.health_current <= 0) + { + icon = player[i].ent->opponent->modeldata.icon.die; + } + else if(player[i].ent->opponent->inpain & IN_PAIN_HIT) + { + icon = player[i].ent->opponent->modeldata.icon.pain; + } + else if(player[i].ent->opponent->getting) + { + icon = player[i].ent->opponent->modeldata.icon.get; + } + else + { + icon = player[i].ent->opponent->modeldata.icon.def; + } + + if(icon >= 0) + { + drawmethod.table = player[i].ent->opponent->modeldata.icon.usemap ? player[i].ent->opponent->colourmap : NULL; + spriteq_add_sprite(videomodes.shiftpos[i] + eicon[i][0], savedata.windowpos + eicon[i][1], 10000, icon, &drawmethod, 0); // Feb 26, 2005 - Changed to opponent->map so icons don't pallete swap with die animation + } + } + } + else if(player[i].joining && player[i].name[0]) + { + model = findmodel(player[i].name); + font_printf(videomodes.shiftpos[i] + pnameJ[i][0], savedata.windowpos + pnameJ[i][1], pnameJ[i][6], 0, player[i].name); + if(nojoin) + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][2], savedata.windowpos + pnameJ[i][3], pnameJ[i][6], 0, Tr("Please Wait")); + } + else + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][2], savedata.windowpos + pnameJ[i][3], pnameJ[i][6], 0, Tr("Select Hero")); + } + icon = model->icon.def; + + if(icon >= 0) + { + drawmethod.table = model->icon.usemap ? model_get_colourmap(model, player[i].colourmap) : NULL; + spriteq_add_sprite(videomodes.shiftpos[i] + picon[i][0], picon[i][1], 10000, icon, &drawmethod, 0); + } + } + else if(player[i].credits || credits || (!player[i].hasplayed && noshare)) + { + if(player[i].credits && ((_time / (global_config.game_speed * 2)) & 1)) + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][4], savedata.windowpos + pnameJ[i][5], pnameJ[i][6], 0, Tr("Credit %i"), player[i].credits); + } + else if(credits && ((_time / (global_config.game_speed * 2)) & 1)) + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][4], savedata.windowpos + pnameJ[i][5], pnameJ[i][6], 0, Tr("Credit %i"), credits); + } + else if(!player[i].hasplayed && ((_time / (global_config.game_speed * 2)) & 1)) + { + int showcredits = (!noshare) ? credits : CONTINUES; + + font_printf(videomodes.shiftpos[i] + pnameJ[i][4], savedata.windowpos + pnameJ[i][5], pnameJ[i][6], 0, Tr("Credit %i"), showcredits); + } + else if(nojoin) + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][4], savedata.windowpos + pnameJ[i][5], pnameJ[i][6], 0, Tr("Please Wait")); + } + else + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][4], savedata.windowpos + pnameJ[i][5], pnameJ[i][6], 0, Tr("Press Start")); + } + } + else + { + font_printf(videomodes.shiftpos[i] + pnameJ[i][4], savedata.windowpos + pnameJ[i][5], pnameJ[i][6], 0, Tr("GAME OVER")); + } + }// end of for + + // If any of the debug flags are enabled, let's + // output debug data to end user. + if(savedata.debuginfo) + { + draw_visual_debug(); + } + + if(timeicon >= 0) + { + spriteq_add_sprite(videomodes.hShift + timeicon_offsets[0], savedata.windowpos + timeicon_offsets[1], 10000, timeicon, NULL, 0); + } + if(!level->notime) + { + font_printf(videomodes.hShift + timeloc[0] + 2, savedata.windowpos + timeloc[1] + 2, timeloc[5], 0, "%02i", timetoshow); + } + if(showtimeover) + { + font_printf(videomodes.hShift + 113, videomodes.vShift + savedata.windowpos + 110, timeloc[5], 0, Tr("TIME OVER")); + } + + if(global_config.showgo) + { + if(level->scrolldir & SCROLL_LEFT) //TODO: upward and downward go + { + + if(golsprite >= 0) + { + spriteq_add_sprite(40, 60 + videomodes.vShift, 10000, golsprite, NULL, 0); // new sprite for left direction + } + else + { + drawmethod.table = 0; + drawmethod.config |= DRAWMETHOD_CONFIG_FLIP_X; + spriteq_add_sprite(40, 60 + videomodes.vShift, 10000, gosprite, &drawmethod, 0); + } + } + else if(level->scrolldir & SCROLL_RIGHT) + { + spriteq_add_sprite(videomodes.hRes - 40, 60 + videomodes.vShift, 10000, gosprite, NULL, 0); + } + } + + // Performance info. + if(savedata.debuginfo & DEBUG_DISPLAY_PERFORMANCE) + { + spriteq_add_box(0, videomodes.dOffset - 12, videomodes.hRes, videomodes.dOffset + 12, LAYER_Z_LIMIT_BOX_MAX, 0, NULL); + font_printf(2, videomodes.dOffset - 10, 0, LAYER_Z_LIMIT_MAX, Tr("FPS: %03d"), getFPS()); + font_printf(videomodes.hRes / 2, videomodes.dOffset - 10, 0, LAYER_Z_LIMIT_MAX, Tr("Free Ram: %s KB"), commaprint(freeram / KBYTES)); + font_printf(2, videomodes.dOffset, 0, LAYER_Z_LIMIT_MAX, Tr("Sprites: %d / %d"), spriteq_get_sprite_count(), spriteq_get_sprite_max()); + font_printf(videomodes.hRes / 2, videomodes.dOffset, 0, LAYER_Z_LIMIT_MAX, Tr("Used Ram: %s KB"), commaprint(usedram / KBYTES)); + } +} + +/* +* Caskey, Damon V. +* 2023-03-08 +* +* Allocate an object. +*/ +s_barstatus* bar_status_allocate_object() +{ + s_barstatus* result; + + /* Allocate memory with 0 values and get the pointer. */ + result = calloc(1, sizeof(*result)); + + return result; +} + +// draw boss status on screen +void drawenemystatus(entity *ent) +{ + s_drawmethod drawmethod; + s_barstatus* status; + int icon; + + status = ent->modeldata.hud_popup; + + if(status->name_position.x > -1000 && status->name_position.y > -1000) + { + font_printf(status->name_position.x, status->name_position.y, 0, 0, "%s", ent->name); + } + + if(ent->modeldata.icon.position.x > -1000 && ent->modeldata.icon.position.y > -1000) + { + if(ent->energy_state.health_current <= 0) + { + icon = ent->modeldata.icon.die; + } + else if(ent->inpain & IN_PAIN_HIT) + { + icon = ent->modeldata.icon.pain; + } + else if(ent->getting) + { + icon = ent->modeldata.icon.get; + } + else + { + icon = ent->modeldata.icon.def; + } + + if(icon >= 0) + { + drawmethod = plainmethod; + drawmethod.table = ent->modeldata.icon.usemap ? ent->colourmap : NULL; + spriteq_add_sprite(ent->modeldata.icon.position.x, ent->modeldata.icon.position.y, HUD_Z, icon, &drawmethod, 0); + } + } + + if(ent->modeldata.health && status->graph_position.x > -1000 && status->graph_position.y > -1000) + { + bar(status->graph_position.x, status->graph_position.y, ent->energy_state.health_old, ent->modeldata.health, status); + } +} + + +void drawstatus() +{ + int i; + + for(i = 0; i < MAX_PLAYERS; i++) + { + if(player[i].ent) + { + // Health bars + bar(videomodes.shiftpos[i] + plife[i][0], savedata.windowpos + plife[i][1], player[i].ent->energy_state.health_old, player[i].ent->modeldata.health, &lbarstatus); + if(player[i].ent->opponent && !player[i].ent->opponent->modeldata.nolife && player[i].ent->opponent->modeldata.health) + { + bar(videomodes.shiftpos[i] + elife[i][0], savedata.windowpos + elife[i][1], player[i].ent->opponent->energy_state.health_old, player[i].ent->opponent->modeldata.health, &olbarstatus); // Tied in with the nolife flag + } + // Draw mpbar + if(player[i].ent->modeldata.mp) + { + bar(videomodes.shiftpos[i] + pmp[i][0], savedata.windowpos + pmp[i][1], player[i].ent->energy_state.mp_old, player[i].ent->modeldata.mp, &mpbarstatus); + } + } + } + + // Time box + if(!level->notime && !timeloc[4]) // Only draw if notime is set to 0 or not specified + { + spriteq_add_line(videomodes.hShift + timeloc[0], savedata.windowpos + timeloc[1], videomodes.hShift + timeloc[0] + timeloc[2], savedata.windowpos + timeloc[1], HUD_Z, color_black, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0], savedata.windowpos + timeloc[1], videomodes.hShift + timeloc[0], savedata.windowpos + timeloc[1] + timeloc[3], HUD_Z, color_black, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0] + timeloc[2], savedata.windowpos + timeloc[1], videomodes.hShift + timeloc[0] + timeloc[2], savedata.windowpos + timeloc[1] + timeloc[3], HUD_Z, color_black, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0], savedata.windowpos + timeloc[1] + timeloc[3], videomodes.hShift + timeloc[0] + timeloc[2], savedata.windowpos + timeloc[1] + timeloc[3], HUD_Z, color_black, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0] - 1, savedata.windowpos + timeloc[1] - 1, videomodes.hShift + timeloc[0] + timeloc[2] - 1, savedata.windowpos + timeloc[1] - 1, HUD_Z + 1, color_white, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0] - 1, savedata.windowpos + timeloc[1] - 1, videomodes.hShift + timeloc[0] - 1, savedata.windowpos + timeloc[1] + timeloc[3] - 1, HUD_Z + 1, color_white, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0] + timeloc[2] - 1, savedata.windowpos + timeloc[1] - 1, videomodes.hShift + timeloc[0] + timeloc[2] - 1, savedata.windowpos + timeloc[1] + timeloc[3] - 1, HUD_Z + 1, color_white, NULL); + spriteq_add_line(videomodes.hShift + timeloc[0] - 1, savedata.windowpos + timeloc[1] + timeloc[3] - 1, videomodes.hShift + timeloc[0] + timeloc[2] - 1, savedata.windowpos + timeloc[1] + timeloc[3] - 1, HUD_Z + 1, color_white, NULL); + } +} + +void update_loading(s_loadingbar *s, int value, int max) +{ + static uint64_t lasttick = 0; + static uint64_t soundtick = 0; + static uint64_t keybtick = 0; + int pos_x = s->bar_position.x + videomodes.hShift; + int pos_y = s->bar_position.y + videomodes.vShift; + int size_x = s->bsize; + int text_x = s->text_position.x + videomodes.hShift; + int text_y = s->text_position.y + videomodes.vShift; + uint64_t ticks = timer_gettick(); + + if(ticks - soundtick > 20) + { + sound_update_music(); + soundtick = ticks; + } + + if(ticks - keybtick > 250) + { + control_update(playercontrolpointers, 1); // Respond to exit and/or fullscreen requests from user/OS + keybtick = ticks; + } + + + if(ticks - lasttick > s->refreshMs || value < 0 || value == max) // Negative value forces a repaint. used when only bg is drawn for the first time + { + spriteq_clear(); + execute_loading_script(value, max); + if(s->set) + { + if (value < 0) + { + value = 0; + } + if(isLoadingScreenTypeBar(s->set)) + { + loadingbarstatus.size.x = size_x; + bar(pos_x, pos_y, value, max, &loadingbarstatus); + } + font_printf(text_x, text_y, s->tf, 0, Tr("Loading...")); + if(isLoadingScreenTypeBg(s->set)) + { + if(background) + { + putscreen(vscreen, background, 0, 0, NULL); + } + else + { + clearscreen(vscreen); + } + } + spriteq_draw(vscreen, 0, MIN_INT, MAX_INT, 0, 0); + video_copy_screen(vscreen); + spriteq_clear(); + } + else if(value < 0) // Original BOR v1.0029 used this method. Since loadingbg is optional, we should print this one again. + { + clearscreen(vscreen); + font_printf(120 + videomodes.hShift, 110 + videomodes.vShift, 0, 0, Tr("Loading...")); + spriteq_draw(vscreen, 0, MIN_INT, MAX_INT, 0, 0); + video_copy_screen(vscreen); + spriteq_clear(); + } + lasttick = ticks; + } +} + +/* +* Caskey, Damon V. +* 2026-08-20 +* +* Apply a signed 64-bit score adjustment to an unsigned +* player score. Saturate at zero or UINT64_MAX, award +* crossed life thresholds without an unbounded loop, and +* execute the player's score script. +*/ +void addscore(int playerindex, int64_t add) +{ + uint64_t add_magnitude = 0; + uint64_t life_awards = 0; + uint64_t old_score = 0; + uint64_t s = 0; + ScriptVariant var; // used for execute script + Script *cs; + + if(playerindex < 0) + { + return; //dont score if <0, e.g., npc damage enemy, enemy damage enemy + } + + playerindex &= 3; + + old_score = player[playerindex].score; + s = old_score; + cs = score_script + playerindex; + + if(add >= 0) + { + add_magnitude = (uint64_t)add; + + if(add_magnitude > UINT64_MAX - s) + { + s = UINT64_MAX; + } + else + { + s += add_magnitude; + } + } + else + { + add_magnitude = add == INT64_MIN + ? (uint64_t)INT64_MAX + UINT64_C(1) + : (uint64_t)-add; + + s = add_magnitude > s ? 0 : s - add_magnitude; + } + + /* + * Preserve the legacy strict threshold comparison: a + * life is awarded only after score exceeds the boundary. + */ + if(lifescore > 0 && s > old_score) + { + life_awards = ((s - 1) / lifescore) - (old_score / lifescore); + } + + if(life_awards > 0) + { + if(global_sample_list.one_up >= 0) + { + sound_play_sample(global_sample_list.one_up, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(life_awards > UINT64_MAX - player[playerindex].lives) + { + player[playerindex].lives = UINT64_MAX; + } + else + { + player[playerindex].lives += life_awards; + } + } + + player[playerindex].score = s; + + //execute a script then + if(Script_IsInitialized(cs)) + { + ScriptVariant_Init(&var); + ScriptVariant_ChangeType(&var, VT_INTEGER64); + var.llVal = add; + Script_Set_Local_Variant(cs, "score", &var); + Script_Execute(cs); + ScriptVariant_Clear(&var); + Script_Set_Local_Variant(cs, "score", &var); + } + + execute_score_script_all(playerindex, add); +} + + + + +// ---------------------------- Object handling ------------------------------ + +void free_ent(entity *e) +{ + if(!e) { + return; + } + + recursive_effect_free_collection(e); + + clear_all_scripts(e->scripts, 2); + free_all_scripts(&e->scripts); + + // Item properties. + if(e->item_properties) { + free(e->item_properties); + e->item_properties = NULL; + } + + if(e->waypoints) { + free(e->waypoints); + e->waypoints = NULL; + } + if(e->defense) { + defense_free_object(e->defense); + e->defense = NULL; + } + if(e->offense) { + offense_free_object(e->offense); + e->offense = NULL; + } + + if (e->drawmethod) { + free(e->drawmethod); + e->drawmethod = NULL; + } + + if(e->varlist) { + // Although free_ent will be only called once when the engine is shutting down, + // just clear those in case we forget something + Varlist_Clear(e->varlist); + free(e->varlist); + e->varlist = NULL; + } + free(e); + e = NULL; +} + +void free_ents() +{ + int i; + if(!ent_list) + { + return; + } + for(i = 0; i < ent_list_size; i++) + { + free_ent(ent_list[i]); + } + free(ent_list); + free(ent_stack); + ent_list = ent_stack = NULL; + ent_list_size = ent_max = ent_count = ent_stack_size = 0; +} + +entity *alloc_ent() +{ + entity *ent = malloc(sizeof(*ent)); + memset(ent, 0, sizeof(*ent)); + + ent->object_type = OBJECT_TYPE_ENTITY; + ent->defense = defense_allocate_object(); + ent->offense = offense_allocate_object(); + + ent->varlist = calloc(1, sizeof(*ent->varlist)); + // memset should be OK by know, because VT_EMPTY is zero by value, or else we should use ScriptVariant_Init + Varlist_Init(ent->varlist, max_entity_vars); + alloc_all_scripts(&ent->scripts); + return ent; +} + + + +int alloc_ents() +{ + int i; + + if(ent_list_size >= maxentities) + { + return 0; + } + + ent_list_size += MAX_ENTS; + + ent_list = realloc(ent_list, sizeof(*ent_list) * ent_list_size); + ent_stack = realloc(ent_stack, sizeof(*ent_list) * ent_list_size); + + for(i = ent_list_size - MAX_ENTS; i < ent_list_size; i++) + { + ent_list[i] = alloc_ent(); + ent_list[i]->sortid = i * 100; + ent_stack[i] = NULL; + } + //ent_count = ent_max = 0; + return 1; +} + +int is_walking(int iAni) +{ + int i; + + for(i = 0; i < max_downs; i++) + { + if (iAni == animdowns[i]) return 1; + } + for(i = 0; i < max_ups; i++) + { + if (iAni == animups[i]) return 1; + } + for(i = 0; i < max_walks; i++) + { + if (iAni == animwalks[i]) return 1; + } + for(i = 0; i < max_backwalks; i++) + { + if (iAni == animbackwalks[i]) return 1; + } + + return 0; +} + +// UT: merged DC's common walk/idle functions +// +// Caskey, Damon V. +// 2019-02-09 +// +// Rewritten for greater readability. +static bool common_anim_series(entity *ent, const animation_id_t *alterates, int max_alternates, int force_mode, animation_id_t default_animation) +{ + int i; // Loop cursor. + int loop_min; + int loop_max; + animation_id_t animation_id; // Animation to apply. + + // If we have a forced mode, we'll use it to constrict + // loop options to just the forced mode. + loop_min = force_mode ? force_mode - 1 : 0; + loop_max = force_mode ? force_mode : max_alternates; + + // Loop through available types of series animations (max idles/walks/etc.). + for (i = loop_min; i < loop_max; i++) + { + // Get animation from array of alternates. + animation_id = alterates[i]; + + // If we don't have the selected animation, just + // get out of this loop iteration. + if (!validanim(ent, animation_id)) + { + continue; + } + + // Can't be the default animation. + if (animation_id == default_animation) + { + continue; + } + + // If there's a target in range of this alternate animation, or + // we're forced to use it, switch animations. + if (force_mode || normal_find_target(animation_id, 0)) + { + ent->ducking = DUCK_NONE; + ent_set_anim(ent, animation_id, 0); + if (is_walking(animation_id)) ent->walking = 1; + + // Return true. + return 1; + } + } + + // No alternates were set. Use default if we have it. + if (validanim(ent, default_animation)) + { + ent->ducking = DUCK_NONE; + ent_set_anim(ent, default_animation, 0); + if (is_walking(default_animation)) ent->walking = 1; + + // Return true. + return 1; + } + + return 0; +} + +int common_idle_anim(entity *ent) +{ + /* + common_idle_anim + Damon Vaughn Caskey + 11012009 + Determine and set appropriate idle animation based on condition and range. + Returns 1 if any animation is set. + */ + entity *tempself = self; + + self = ent; + + self->ducking = DUCK_NONE; + if(self->idling) + { + self->idling |= IDLING_ACTIVE; + } + + if (ent->model->subtype != SUBTYPE_BIKER && ent->model->type != TYPE_NONE) // biker fix by Plombo // type none being "idle" prevented contra locked and loaded from working correctly. fixed by anallyst + { + ent->velocity.x = ent->velocity.z = 0; //Stop movement. + } + + if(validanim(ent, ANI_FAINT) && ent->energy_state.health_current <= ent->modeldata.health / 4) //ANI_FAINT and health at/below 25%? + { + ent_set_anim(ent, ANI_FAINT, 0); //Set ANI_FAINT. + goto found; //Return 1 and exit. + } + else if(validanim(ent, ANI_SLEEP) && _time > ent->sleeptime) //ANI_SLEEP, sleeptime up + { + ent_set_anim(ent, ANI_SLEEP, 0); //Set sleep anim. + goto found; //Return 1 and exit. + } + else if(validanim(ent, ANI_EDGE) && ent->edge && (ent->idling & IDLING_ACTIVE) && ent->ducking == DUCK_NONE) + { + if ( (ent->edge & EDGE_RIGHT) && (ent->edge & EDGE_LEFT) ) + { + ent_set_anim(ent, ANI_EDGE, 0); + } + else if (ent->edge & EDGE_RIGHT) + { + if (ent->direction == DIRECTION_RIGHT) + { + ent_set_anim(ent, ANI_EDGE, 0); + } + else + { + if(validanim(ent, ANI_BACKEDGE)) ent_set_anim(ent, ANI_BACKEDGE, 0); + else ent_set_anim(ent, ANI_EDGE, 0); + } + } + else if (ent->edge & EDGE_LEFT) + { + if (ent->direction == DIRECTION_LEFT) + { + ent_set_anim(ent, ANI_EDGE, 0); + } + else + { + if(validanim(ent, ANI_BACKEDGE)) ent_set_anim(ent, ANI_BACKEDGE, 0); + else ent_set_anim(ent, ANI_EDGE, 0); + } + } + goto found; //Return 1 and exit. + } + else if(common_anim_series(ent, animidles, max_idles, ent->idlemode, ANI_IDLE)) + { + goto found; + } + + self = tempself; + return 0; +found: + self = tempself; + return 1; +} + + +#define common_walk_anim(ent) \ + common_anim_series(ent, animwalks, max_walks, ent->walkmode, ANI_WALK) + +#define common_backwalk_anim(ent) \ + common_anim_series(ent, animbackwalks, max_backwalks, ent->walkmode, ANI_BACKWALK) + +#define common_up_anim(ent) \ + common_anim_series(ent, animups, max_ups, ent->walkmode, ANI_UP) + +#define common_down_anim(ent) \ + common_anim_series(ent, animdowns, max_downs, ent->walkmode, ANI_DOWN) + + +// This function find nearst x escape point from the given position +// It assumes the point is already inside the wall +static float find_nearest_wall_x(int wall, float x, float z) +{ + float x1, x2; + + x1 = level->walls[wall].x + level->walls[wall].lowerleft + (level->walls[wall].z - z) * ((level->walls[wall].upperleft - level->walls[wall].lowerleft) / level->walls[wall].depth); + x2 = level->walls[wall].x + level->walls[wall].lowerright + (level->walls[wall].z - z) * ((level->walls[wall].upperright - level->walls[wall].lowerright) / level->walls[wall].depth); + + if(diff(x1, x) > diff(x2, x)) + { + return x2; + } + else + { + return x1; + } +} + +// this method initialize an entity's A.I. behaviors +void ent_default_init(entity *e) +{ + int dodrop; + int wall; + entity *other; + + if(!e) + { + return; + } + + if((!(screen_status & IN_SCREEN_SELECT) && !_time) || e->modeldata.type != TYPE_PLAYER ) + { + if( validanim(e, ANI_SPAWN)) + { + ent_set_anim(e, ANI_SPAWN, 0); // use new playerselect spawn anim + } + else if( validanim(e, ANI_RESPAWN)) + { + ent_set_anim(e, ANI_RESPAWN, 0); + } + //else set_idle(e); + } + else if(!(screen_status & IN_SCREEN_SELECT) && _time && e->modeldata.type == TYPE_PLAYER) // mid-level respawn + { + if( validanim(e, ANI_RESPAWN)) + { + ent_set_anim(e, ANI_RESPAWN, 0); + } + else if( validanim(e, ANI_SPAWN)) + { + ent_set_anim(e, ANI_SPAWN, 0); + } + //else set_idle(e); + } + else if(screen_status & IN_SCREEN_SELECT && validanim(e, ANI_SELECT)) + { + // Play transition if we have one. Default Select otherwise. + if (validanim(e, ANI_SELECTIN)) + { + ent_set_anim(e, ANI_SELECTIN, 0); + } + else + { + ent_set_anim(e, ANI_SELECT, 0); + } + } + //else set_idle(e); + + if(!level) + { + if(!e->animation) + { + set_idle(e); + } + return; + } + + e->nograb_default = 0; // init all entities to 0 by default + e->guardpoints = e->modeldata.guardpoints; + e->jugglepoints = e->modeldata.jugglepoints; + + e->binding.object_type = OBJECT_TYPE_BIND; + + switch(e->modeldata.type) + { + case TYPE_ANY: + case TYPE_NO_COPY: + case TYPE_RESERVED: + case TYPE_UNDECLARED: + case TYPE_UNKNOWN: + //Do nothing. + break; + case TYPE_ENDLEVEL: + case TYPE_ITEM: + e->nograb = 1; + e->nograb_default = e->nograb; + break; + + case TYPE_PLAYER: + //e->direction = (level->scrolldir != SCROLL_LEFT); + e->takedamage = player_takedamage; + e->think = player_think; + e->trymove = player_trymove; + + if(validanim(e, ANI_SPAWN) || validanim(e, ANI_RESPAWN)) + { + e->takeaction = common_spawn; + } + else if(!e->animation) + { + int player_index = (int)e->playerindex; + + if(player_index < levelsets[current_set].maxplayers && level->spawn && _time && level->spawn[player_index].y > e->position.y) + { + e->takeaction = common_drop; + e->position.y = (float)level->spawn[player_index].y; + if(validanim(e, ANI_JUMP)) + { + ent_set_anim(e, ANI_JUMP, 0); + } + } + } + if(_time && e->modeldata.makeinv) + { + // Spawn invincible code + e->invincible |= INVINCIBLE_INTANGIBLE; + e->blink = (e->modeldata.makeinv > 0); + e->invinctime = _time + ABS(e->modeldata.makeinv); + e->arrowon = 1; // Display the image above the player + } + break; + case TYPE_NPC: // use NPC(or A.I. player) instread of an enemy subtype or trap subtype, for further A.I. use + if(e->modeldata.multiple == 0) + { + e->modeldata.multiple = -1; + } + + case TYPE_ENEMY: + e->think = common_think; + if(e->modeldata.subtype == SUBTYPE_BIKER) + { + e->nograb = 1; + e->nograb_default = e->nograb; + e->attacking = ATTACKING_ACTIVE; + //e->direction = (e->position.x<0); + if(e->modeldata.speed.x) + { + e->velocity.x = (e->direction == DIRECTION_RIGHT) ? (e->modeldata.speed.x) : (-e->modeldata.speed.x); + } + else + { + e->velocity.x = (e->direction == DIRECTION_RIGHT) ? (1.7 + randf((float)0.6)) : (-(1.7 + randf((float)0.6))); + } + e->takedamage = biker_takedamage; + e->speedmul = 2; + break; + } + // define new subtypes + else if(e->modeldata.subtype == SUBTYPE_ARROW) + { + e->energy_state.health_current = 1; + if(!e->modeldata.speed.x && !(e->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE)) + { + e->modeldata.speed.x = 2; // Set default speed to 2 for arrows + } + else if(e->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + e->modeldata.speed.x = 0; + } + if(e->projectile_prime & PROJECTILE_PRIME_BASE_FLOOR) + { + e->base = 0; + } + else + { + e->base = e->position.y; + } + e->nograb = 1; + e->nograb_default = e->nograb; + e->attacking = ATTACKING_ACTIVE; + e->takedamage = arrow_takedamage; + e->speedmul = 2; + break; + } + else + { + e->trymove = common_trymove; + // Must just be a regular enemy, set defaults accordingly + if(!e->modeldata.speed.x && !(e->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE)) + { + e->modeldata.speed.x = 1; + } + else if(e->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + e->modeldata.speed.x = 0; + } + if(e->modeldata.multiple == 0) + { + e->modeldata.multiple = 5; + } + e->takedamage = common_takedamage;//enemy_takedamage; + } + + if(e->modeldata.subtype == SUBTYPE_NOTGRAB) + { + e->nograb = 1; + e->nograb_default = e->nograb; + } + + if(validanim(e, ANI_SPAWN) || validanim(e, ANI_RESPAWN)) + { + e->takeaction = common_spawn; + } + else + { + dodrop = (e->modeldata.subtype != SUBTYPE_ARROW && level && (level->scrolldir == SCROLL_UP || level->scrolldir == SCROLL_DOWN)); + + if(!nodropspawn && (dodrop || (e->position.x > advancex - 30 && e->position.x < advancex + videomodes.hRes + 30 && e->position.y == 0)) ) + { + e->position.y += videomodes.vRes + randf(40); + } + if(inair(e)) + { + e->takeaction = common_drop;//enemy_drop; + if(validanim(e, ANI_JUMP)) + { + ent_set_anim(e, ANI_JUMP, 0); + } + } + } + break; + // define trap type + case TYPE_TRAP: + e->think = trap_think; + e->takedamage = common_takedamage;//enemy_takedamage; + e->speedmul = 2; + break; + case TYPE_OBSTACLE: + e->nograb = 1; + e->nograb_default = e->nograb; + if(e->energy_state.health_current <= 0) + { + e->death_state |= DEATH_STATE_DEAD; // so it won't get hit + } + e->takedamage = obstacle_takedamage;//obstacle_takedamage; + break; + case TYPE_STEAMER: + e->nograb = 1; + e->nograb_default = e->nograb; + e->think = steamer_think; + e->base = e->position.y; + break; + case TYPE_TEXTBOX: // New type for displaying text purposes + e->nograb = 1; + e->nograb_default = e->nograb; + e->think = text_think; + break; + case TYPE_PROJECTILE: + + e->energy_state.health_current = 1; + e->nograb = 1; + e->nograb_default = e->nograb; + e->think = common_think; + e->takedamage = arrow_takedamage; + e->attacking = ATTACKING_ACTIVE; + + if (e->projectile_prime & PROJECTILE_PRIME_BASE_FLOOR) + { + e->base = 0; + } + else + { + e->base = e->position.y; + } + e->speedmul = 2; + e->trymove = common_trymove; + break; + + case TYPE_SHOT: + e->energy_state.health_current = 1; + e->nograb = 1; + e->nograb_default = e->nograb; + e->think = common_think; + e->takedamage = arrow_takedamage; + e->attacking = ATTACKING_ACTIVE; + if(!e->model->speed.x && !(e->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE)) + { + e->modeldata.speed.x = 2; // Set default speed to 2 for arrows + } + else if(e->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + e->modeldata.speed.x = 0; + } + if(e->projectile_prime & PROJECTILE_PRIME_BASE_FLOOR) + { + e->base = 0; + } + else + { + e->base = e->position.y; + } + e->speedmul = 2; + break; + case TYPE_NONE: + e->nograb = 1; + e->nograb_default = e->nograb; + + //e->base=e->position.y; //complained? + //e->modeldata.move_config_flags |= (MOVE_CONFIG_NO_ADJUST_BASE | MOVE_CONFIG_SUBJECT_TO_GRAVITY); + + if(validanim(e, ANI_WALK)) + { + if(e->direction == DIRECTION_RIGHT) + { + e->velocity.x = e->modeldata.speed.x; + } + else + { + e->velocity.x = -(e->modeldata.speed.x); + } + e->think = anything_walk; + + common_walk_anim(e); + //ent_set_anim(e, ANI_WALK, 0); + } + else + { + e->speedmul = 2; + } + e->trymove = common_trymove; + break; + case TYPE_PANEL: + e->nograb = 1; + e->nograb_default = e->nograb; + break; + } + + /* Faction data. */ + faction_copy_data(&e->faction, &e->modeldata.faction); + + if(!e->animation) + { + set_idle(e); + } + + if(e->modeldata.multiple < 0) + { + e->modeldata.multiple = 0; + } + + if(e->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM && (other = check_platform_below(e->position.x, e->position.z, e->position.y, e))) + { + e->base = other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT]; + } + else if(e->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_WALL && (wall = checkwall_below(e->position.x, e->position.z, T_MAX_CHECK_ALTITUDE)) >= 0) + { + if(level->walls[wall].height > MAX_WALL_HEIGHT) + { + e->position.x = find_nearest_wall_x(wall, e->position.x, e->position.z); + } + else + { + e->base = level->walls[wall].height; + } + } +} + +void ent_spawn_ent(entity *ent) +{ + entity *s_ent = NULL; + s_sub_entity *spawnframe = ent->animation->sub_entity_spawn; + float dy = level ? 4.0 : 0.0; + + // spawn point relative to current entity + if(spawnframe->placement == SUB_ENTITY_PLACEMENT_PARENT) + { + s_ent = spawn(ent->position.x + ((ent->direction == DIRECTION_RIGHT) ? spawnframe->position.x : -spawnframe->position.x), ent->position.z + spawnframe->position.z, ent->position.y + spawnframe->position.y, ent->direction, NULL, ent->animation->sub_entity_model_index, NULL); + } + //relative to screen position + else if(spawnframe->placement == SUB_ENTITY_PLACEMENT_SCREEN) + { + if(level && !(level->scrolldir & SCROLL_UP) && !(level->scrolldir & SCROLL_DOWN)) + { + s_ent = spawn(advancex + spawnframe->position.x, advancey + spawnframe->position.z + dy, spawnframe->position.y, 0, NULL, ent->animation->sub_entity_model_index, NULL); + } + else + { + s_ent = spawn(advancex + spawnframe->position.x, spawnframe->position.z + dy, spawnframe->position.y, 0, NULL, ent->animation->sub_entity_model_index, NULL); + } + } + //absolute position in level + else + { + s_ent = spawn(spawnframe->position.x, spawnframe->position.z, spawnframe->position.y + 0.001, 0, NULL, ent->animation->sub_entity_model_index, NULL); + } + + if(s_ent) + { + //ent_default_init(s_ent); + if(s_ent->modeldata.type & TYPE_SHOT) + { + s_ent->playerindex = ent->playerindex; + } + if(s_ent->modeldata.subtype == SUBTYPE_ARROW) + { + s_ent->owner = ent; + } + s_ent->spawntype = SPAWN_TYPE_CMD_SPAWN; + s_ent->parent = ent; //maybe used by A.I. + execute_onspawn_script(s_ent); + } + +} + +void ent_summon_ent(entity *ent) +{ + entity *s_ent = NULL; + s_sub_entity *spawnframe = ent->animation->sub_entity_summon; + float dy = level ? 4.0 : 0.0; + // spawn point relative to current entity + if(spawnframe->placement == SUB_ENTITY_PLACEMENT_PARENT) + { + s_ent = spawn(ent->position.x + ((ent->direction == DIRECTION_RIGHT) ? spawnframe->position.x : -spawnframe->position.x), ent->position.z + spawnframe->position.z, ent->position.y + spawnframe->position.y, ent->direction, NULL, ent->animation->sub_entity_model_index, NULL); + } + //relative to screen position + else if(spawnframe->placement == SUB_ENTITY_PLACEMENT_SCREEN) + { + if(level && !(level->scrolldir & SCROLL_UP) && !(level->scrolldir & SCROLL_DOWN)) + { + s_ent = spawn(advancex + spawnframe->position.x, advancey + spawnframe->position.z + dy, spawnframe->position.y, 0, NULL, ent->animation->sub_entity_model_index, NULL); + } + else + { + s_ent = spawn(advancex + spawnframe->position.x, spawnframe->position.z + dy, spawnframe->position.y, 0, NULL, ent->animation->sub_entity_model_index, NULL); + } + } + //absolute position in level + else + { + s_ent = spawn(spawnframe->position.x, spawnframe->position.z, spawnframe->position.y, 0, NULL, ent->animation->sub_entity_model_index, NULL); + } + + if(s_ent) + { + if(spawnframe->placement == SUB_ENTITY_PLACEMENT_PARENT) + { + s_ent->direction = ent->direction; + } + //ent_default_init(s_ent); + if(s_ent->modeldata.type & TYPE_SHOT) + { + s_ent->playerindex = ent->playerindex; + } + if(s_ent->modeldata.subtype == SUBTYPE_ARROW) + { + s_ent->owner = ent; + } + //maybe used by A.I. + s_ent->spawntype = SPAWN_TYPE_CMD_SUMMON; + s_ent->parent = ent; + ent->subentity = s_ent; + execute_onspawn_script(s_ent); + } +} + +/* +* Caskey, Damon V. +* 2026-08-06 +* +* Add a duration to an animation timestamp without entering +* the bit-63 behavior range. An infinite operand propagates +* the canonical infinite flag. Finite overflow stops at the +* largest timestamp below that flag. +*/ +static uint64_t animation_timestamp_add_bounded( + const uint64_t left, + const uint64_t right +) { + if((left & DELAY_FLAG_INFINITE) + || (right & DELAY_FLAG_INFINITE)) { + return DELAY_INFINITE; + } + + if(left > DELAY_TIMESTAMP_MAX + || right > DELAY_TIMESTAMP_MAX + || right > DELAY_TIMESTAMP_MAX - left) { + return DELAY_TIMESTAMP_MAX; + } + + return left + right; +} + +/* +* Convert an encoded frame delay into its absolute next-frame +* timestamp. Behavior bits do not enter clock arithmetic. +*/ +static uint64_t animation_timestamp_from_delay( + const uint64_t current_time, + const uint64_t encoded_delay +) { + if(encoded_delay & DELAY_FLAG_INFINITE) { + return DELAY_INFINITE; + } + + return animation_timestamp_add_bounded( + current_time, + encoded_delay & DELAY_VALUE_MASK + ); +} + +/* +* Multiply a finite delay without exceeding the reserved +* 32-bit range or creating DELAY_INFINITE by overflow. +*/ +static uint64_t delay_multiply_bounded( + const uint64_t left, + const uint64_t right +) { + if(!left || !right) { + return 0; + } + + if(left > DELAY_FINITE_MAX + || right > DELAY_FINITE_MAX + || right > DELAY_FINITE_MAX / left) { + return DELAY_FINITE_MAX; + } + + return left * right; +} + +/* +* Caskey, Damon V. +* Unknown date (~2008) +* +* Get final delay. Revised 2026-08-06 for unsigned +* 64-bit encoded delays, preserved behavior flags, and +* bounded enhanced-delay arithmetic. +*/ +uint64_t calculate_edelay(const entity* const acting_entity, const uint64_t frame) { + const s_anim* const animation = acting_entity->animation; + const s_edelay* const edelay = &acting_entity->modeldata.edelay; + + const uint64_t encoded_delay = animation->delay[frame]; + + const uint64_t behavior_flags = + encoded_delay & DELAY_BEHAVIOR_MASK; + + const uint64_t delay = + encoded_delay & DELAY_VALUE_MASK; + + long double result; + + /* + * Return delay as-is if it falls outside + * of the range defined in the entity's + * edelay structure. This allows for + * certain frames to be exempt from the + * edelay calculations. + */ + if(edelay->range.max < 0 + || (edelay->range.min > 0 + && delay < (uint64_t)edelay->range.min) + || delay > (uint64_t)edelay->range.max) { + return behavior_flags | delay; + } + + /* + * Apply percentage and static delay + * modifier. + */ + result = (long double)delay + * (long double)edelay->factor + + (long double)edelay->modifier; + + /* + * Preserve the unmodified delay if a script supplied + * a non-number multiplier. + */ + if(result != result) { + return behavior_flags | delay; + } + + /* + * Cap results. + */ + + if(result < (long double)edelay->cap.min) { + result = (long double)edelay->cap.min; + } + + if(result > (long double)edelay->cap.max) { + result = (long double)edelay->cap.max; + } + + /* + * Edelay configuration remains signed so negative + * modifiers and caps retain their legacy meaning. + * Final value bits cannot leave the finite 32-bit + * range. Behavior bits remain unchanged. + */ + if(result <= 0.0L) { + return behavior_flags; + } + + if(result >= (long double)DELAY_FINITE_MAX) { + return behavior_flags | DELAY_FINITE_MAX; + } + + return behavior_flags | (uint64_t)result; +} + +/* +* Caskey, Damon V. +* 2018-04-20 +* +* Set up jumping velocity for an animation +* that has jump frame defined and is at the +* designated jump frame. Also spawns effect +* entity if one is defined. +*/ +bool check_jumpframe(entity * const acting_entity, const uint64_t frame) +{ + if (!acting_entity || !acting_entity->animation) + { + return 0; + } + + const s_onframe_move* jump = &acting_entity->animation->jumpframe; + + // Must have jump frame allocated. + if(jump->frame == FRAME_NONE) + { + return 0; + } + + // Must be on assigned jump frame. + if(jump->frame != frame) + { + return 0; + } + + // Chuck entity into the air. + toss(acting_entity, jump->velocity.y); + + // Set left or right horizontal velocity depending on + // current direction. + if(acting_entity->direction == DIRECTION_RIGHT) + { + acting_entity->velocity.x = jump->velocity.x; + } + else + { + acting_entity->velocity.x = -jump->velocity.x; + } + + // Lateral velocity. + acting_entity->velocity.z = jump->velocity.z; + + // Spawn an effect entity if defined. + if(jump->model_index != MODEL_INDEX_NONE) + { + entity* const effect_entity = spawn(acting_entity->position.x, acting_entity->position.z, acting_entity->position.y, acting_entity->direction, NULL, jump->model_index, NULL); + + if(effect_entity) + { + effect_entity->spawntype = SPAWN_TYPE_DUST_JUMP; + effect_entity->base = acting_entity->position.y; + effect_entity->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(effect_entity); + } + } + + return 1; + +} + +// move here to prevent some duplicated code in ent_sent_anim and update_ents +void update_frame(entity *ent, uint64_t f) +{ + entity *tempself; + s_attack attack = emptyattack; + s_axis_principal_float move; + s_anim *anim = ent->animation; + + if(f >= anim->numframes) // prevent a crash with invalid frame index. + { + return; + } + + //important! + tempself = self; + self = ent; + + self->animpos = f; + //self->currentsprite = self->animation->sprite[f]; + + if(self->animating) + { + self->nextanim = animation_timestamp_from_delay( + _time, + calculate_edelay(self, f) + ); + + self->pausetime = 0; + execute_animation_script(self); + } + + if(ent->animation != anim || ent->animpos != f) + { + goto uf_interrupted; + } + + if(level && (anim->move[f]->axis.x || anim->move[f]->axis.z)) + { + move.x = (float)(anim->move[f]->axis.x ? anim->move[f]->axis.x : 0); + move.z = (float)(anim->move[f]->axis.z ? anim->move[f]->axis.z : 0); + if(self->direction == DIRECTION_LEFT) + { + move.x = -move.x; + } + self->movex += move.x; + self->movez += move.z; + } + + if(anim->move[0]->base && anim->move[0]->base >= 0 && self->base <= 0) + { + ent->base = (float)anim->move[0]->base; + } + else if(!anim->move[0]->base || anim->move[0]->base < 0) + { + + move.y = (float)(anim->move[f]->axis.y ? anim->move[f]->axis.y : 0); + + self->base += move.y; + + if(move.y != 0) + { + self->altbase += move.y; + } + else + { + self->altbase = 0; + } + } + + if(anim->flipframe == f) + { + self->direction = !self->direction; + } + + if(anim->weaponframe && anim->weaponframe[0] == f) + { + dropweapon(self, 2); + set_weapon(self, anim->weaponframe[1], 0); + if(!anim->weaponframe[2]) + { + set_idle(self); + } + } + + if(anim->quakeframe.framestart + anim->quakeframe.cnt == f) + { + if(level) + { + if(anim->quakeframe.cnt % 2 || anim->quakeframe.v > 0) + { + level->quake = anim->quakeframe.v; + } + else + { + level->quake = anim->quakeframe.v * -1; + } + } + if((anim->quakeframe.repeat - anim->quakeframe.cnt) > 1) + { + anim->quakeframe.cnt++; + } + else + { + anim->quakeframe.cnt = 0; + } + } + + if(anim->sub_entity_unsummon == f) + { + if(self->subentity) + { + self = self->subentity; + attack.dropv = default_model_dropv; + attack.attack_force = self->energy_state.health_current; + attack.attack_type = ATK_SUB_ENTITY_UNSUMMON; + + if(self->takedamage) { + const s_defense* defense_object = defense_find_current_object(self, NULL, attack.attack_type); + self->takedamage(self, self, &attack, 0, defense_object); + + } else { + kill_entity(self, KILL_ENTITY_TRIGGER_UNSUMMON); + } + self = ent; // lol ... + self->subentity = NULL; + } + } + + //spawn / summon /unsummon features + if(anim->sub_entity_spawn && anim->sub_entity_spawn->frame == f && anim->sub_entity_model_index >= 0) + { + ent_spawn_ent(self); + } + + if(anim->sub_entity_summon && anim->sub_entity_summon->frame == f && anim->sub_entity_model_index >= 0) + { + //subentity is dead + if(!self->subentity || self->subentity->death_state & DEATH_STATE_DEAD) + { + ent_summon_ent(self); + } + } + + /* Child spawn */ + if (anim->child_spawn && anim->child_spawn[f]) + { + child_spawn_execute_list(anim->child_spawn[f], ent); + } + + if(anim->sound) + { + frame_sound_execute_collection(anim->sound[f], ent->unique_id); + } + + // Perform jumping if on a jumpframe. + check_jumpframe(self, f); + + // This animation have projectile settings? + if (anim->projectile) + { + int position_x = anim->projectile->position.x; + + if (self->direction == DIRECTION_LEFT) + { + position_x = -position_x; + } + + if (anim->projectile->throwframe == f) + { + // For backward compatible thing + // throw stars in the air, hmm, strange + // custstar custknife in animation should be checked first + // then if the entity is jumping, check star first, if failed, try knife instead + // well, try knife at last, if still failed, try star, or just let if shutdown? + +#define __trystar star_spawn(self, anim->projectile) +#define __tryknife knife_spawn(self, anim->projectile) + + if (anim->projectile->knife >= 0 || anim->projectile->flash >= 0) + { + __tryknife; + } + else if (anim->projectile->star >= 0) + { + __trystar; + } + else if (self->jumping) + { + if (!__trystar) + { + __tryknife; + } + } + else if (!__tryknife) + { + __trystar; + } + self->weapon_state |= WEAPON_STATE_DEDUCT_USE; + } + + if (anim->projectile->shootframe == f) + { + knife_spawn(self, anim->projectile); + self->weapon_state |= WEAPON_STATE_DEDUCT_USE; + } + + if (anim->projectile->tossframe == f) + { + bomb_spawn(self, anim->projectile); + self->weapon_state |= WEAPON_STATE_DEDUCT_USE; + } + } + +uf_interrupted: + + //important! + self = tempself; + + #undef __trystar + #undef __tryknife +} + + +void ent_set_anim(entity *acting_entity, animation_id_t aninum, bool resetable) { + + s_anim *ani = NULL; + int animpos; + + if(!acting_entity) { + //printf("FATAL: tried to set animation with invalid address (no such object)"); + return; + } + + if(aninum >= max_animations) { + //printf("FATAL: tried to set animation with invalid index (%s, %i)", ent->name, aninum); + return; + } + + if(!validanim(acting_entity, aninum)) { + //printf("FATAL: tried to set animation with invalid address (%s, %i)", acting_entity->name, aninum); + return; + } + + ani = acting_entity->modeldata.animation[aninum]; + + /* + * If reset flag is not enabled and the entity + * is already on the requested animation, then + * just bail. + */ + if(!resetable && acting_entity->animation == ani) { + return; + } + + if(ani->numframes == 0) { + return; + } + + if(acting_entity->animation && ((resetable & 2) || (ani->sync >= 0 && acting_entity->animation->sync == ani->sync))) { + animpos = acting_entity->animpos; + + if(animpos >= ani->numframes) { + animpos = 0; + } + + acting_entity->animnum_previous = acting_entity->animnum; + acting_entity->animnum = aninum; + acting_entity->animation = ani; + acting_entity->animpos = animpos; + acting_entity->walking = false; + + } else { + acting_entity->animnum_previous = acting_entity->animnum; + acting_entity->animnum = aninum; // Stored for nocost usage + acting_entity->animation = ani; + acting_entity->animation->hit_count = 0; + + acting_entity->animating = ANIMATING_FORWARD; + acting_entity->lasthit = acting_entity->grabbing; + acting_entity->altbase = 0; + acting_entity->walking = false; + + update_frame(acting_entity, 0); + } +} + +unsigned char *model_get_colourmap(s_model *model, unsigned which) +{ + if(which <= 0 || which > model->maps_loaded) + { + return model->palette; + } + else + { + return model->colourmap[which - 1]; + } +} + +// 0 = none, 1+ = alternative +void ent_set_colourmap(entity *ent, uint64_t which) +{ + if(which > ent->modeldata.maps_loaded) + { + which = 0; + } + if(which <= 0) + { + ent->colourmap = ent->modeldata.palette; + } + else + { + ent->colourmap = ent->modeldata.colourmap[which - 1]; + } + ent->map = which; +} + +// used by ent_set_model +void ent_copy_uninit(entity *ent, s_model *oldmodel) +{ + if(ent->modeldata.multiple < 0) + { + ent->modeldata.multiple = oldmodel->multiple; + } + + ent->modeldata.move_config_flags = oldmodel->move_config_flags; + + if(ent->modeldata.aimove == AIMOVE1_NONE) + { + ent->modeldata.aimove = oldmodel->aimove; + } + if (ent->modeldata.aiattack == -1) + { + ent->modeldata.aiattack = oldmodel->aiattack; + } + + faction_copy_data(&ent->modeldata.faction, &oldmodel->faction); + faction_copy_data(&ent->faction, &oldmodel->faction); + + if(!ent->modeldata.health) + { + ent->modeldata.health = oldmodel->health; + } + if(!ent->modeldata.mp) + { + ent->modeldata.mp = oldmodel->mp; + } + if(ent->modeldata.risetime.rise == -1) + { + ent->modeldata.risetime.rise = oldmodel->risetime.rise; + } + /* + if(!ent->modeldata.grab_resistance) + ent->modeldata.grab_resistance = oldmodel->antigrab; + if(!ent->modeldata.grab_force) + ent->modeldata.grab_force = oldmodel->grabforce; + if(!ent->modeldata.paingrab) + ent->modeldata.paingrab = oldmodel->paingrab;*/ + + if(ent->energy_state.health_current > ent->modeldata.health) + { + ent->energy_state.health_current = ent->modeldata.health; + } + if(ent->energy_state.mp_current > ent->modeldata.mp) + { + ent->energy_state.mp_current = ent->modeldata.mp; + } + + ent->shadow_config_flags = ent->modeldata.shadow_config_flags; +} + + +//if syncAnim is set, only change animation reference +void ent_set_model(entity *ent, char *modelname, int syncAnim) +{ + if(ent == NULL) + { + borShutdown(1, "FATAL: tried to change model of invalid object"); + } + + s_model* m = findmodel(modelname); + + if(m == NULL) + { + borShutdown(1, "Model not found: '%s'", modelname); + } + + s_model oldmodel = ent->modeldata; + ent->model = m; + ent->modeldata = *m; + ent_copy_uninit(ent, &oldmodel); + ent_set_colourmap(ent, ent->map); + + if(syncAnim && m->animation[ent->animnum]) + { + ent->animation = m->animation[ent->animnum]; + if(ent->animpos >= ent->animation->numframes) + { + ent->animpos = ent->animation->numframes - 1; + } + + ent->nextanim = animation_timestamp_from_delay( + _time, + calculate_edelay(ent, ent->animpos) + ); + + + //update_frame(ent, ent->animpos); + } + else + { + ent->attacking = ATTACKING_NONE; + + if((!(screen_status & IN_SCREEN_SELECT) && !_time) || !(ent->modeldata.type & TYPE_PLAYER)) + { + // use new playerselect spawn anim + if( validanim(ent, ANI_SPAWN)) + { + ent_set_anim(ent, ANI_SPAWN, 0); + } + else + { + if( validanim(ent, ANI_IDLE)) ent_set_anim(ent, ANI_IDLE, 0); + } + } + else if(!(screen_status & IN_SCREEN_SELECT) && _time && (ent->modeldata.type & TYPE_PLAYER)) + { + // mid-level respawn + if( validanim(ent, ANI_RESPAWN)) + { + ent_set_anim(ent, ANI_RESPAWN, 0); + } + else if( validanim(ent, ANI_SPAWN)) + { + ent_set_anim(ent, ANI_SPAWN, 0); + } + else + { + if( validanim(ent, ANI_IDLE)) ent_set_anim(ent, ANI_IDLE, 0); + } + } + else if(screen_status & IN_SCREEN_SELECT && validanim(ent, ANI_SELECT)) + { + // Play transition if we have one. Default Select otherwise. + if (validanim(ent, ANI_SELECTIN)) + { + ent_set_anim(ent, ANI_SELECTIN, 0); + } + else + { + ent_set_anim(ent, ANI_SELECT, 0); + } + } + else + { + if( validanim(ent, ANI_IDLE)) ent_set_anim(ent, ANI_IDLE, 0); + } + } +} + +// Caskey, Damon V. +// ~2018 +// +// Allocate memory for a drawmethod and return pointer. +s_drawmethod *allocate_drawmethod() +{ + s_drawmethod *result; + + // Allocate memory and get the pointer. + result = malloc(sizeof(*result)); + + // Copy default values into new drawmethod. + memcpy(result, &plainmethod, sizeof(*result)); + + return result; +} + +// Caskey, Damon V. +// 2019-12-13 +// +// Allocate memory for a projectile animation setting and return pointer. +s_projectile* allocate_projectile() +{ + s_projectile* result; + + // Allocate memory and get the pointer. + result = malloc(sizeof(*result)); + + // Copy default values into new projectile setting. + memcpy(result, &projectile_default_config, sizeof(*result)); + + return result; +} + +// Caskey, Damon V. +// 2019-12-11 +// +// Allocate memory for a sub entity command and return pointer. +s_sub_entity *allocate_sub_entity() +{ + s_sub_entity *result; + + // Allocate memory and get the pointer. + result = malloc(sizeof(*result)); + + // Set any default values we need. + result->frame = FRAME_NONE; + + return result; +} + +/* +* Caskey, Damon V. +* 2026-08-08 +* +* Return the next process-lifetime entity instance ID. +* Zero and UINT64_MAX remain reserved for no-owner and +* wildcard selectors respectively. +*/ +static uint64_t entity_unique_id_next(void) { + entity_unique_id_counter++; + + if(entity_unique_id_counter == ENTITY_UNIQUE_ID_ALL) { + entity_unique_id_counter = UINT64_C(1); + } + + return entity_unique_id_counter; +} + +entity *spawn(const float pos_x, const float pos_z, const float pos_y, const e_direction direction, char *model_name, const int model_index, s_model* model_pointer) +{ + entity *acting_entity = NULL; + int i, id; + s_defense *dfs; + s_offense *ofs; + e_object_type object_type; + Varlist *vars; + s_scripts *scripts; + + /* + * Prioritize parameter we use to + * spawn: + * + * 1. model_pointer. + * 2. model_index. + * 3. model_name. + */ + + s_model* spawn_model = model_pointer; + + if(!spawn_model) + { + if(model_index >= 0) + { + spawn_model = model_cache[model_index].model; + } + else if(model_name) + { + spawn_model = findmodel(model_name); + } + } + + if(spawn_model == NULL) + { + return NULL; + } + + if(ent_count >= ent_list_size && !alloc_ents()) + { + return NULL; //out of memory ? + } + + for(i = 0; i < ent_list_size; i++) + { + if(!ent_list[i]->exists || (ent_count >= spawnoverride && ent_list[i]->modeldata.priority < 0 && ent_list[i]->modeldata.priority <= spawn_model->priority)) + { + acting_entity = ent_list[i]; + if(acting_entity->exists) + { + kill_entity(acting_entity, KILL_ENTITY_TRIGGER_SPAWN_OVERRIDE); + } + // save these values, or they will loss when memset called + object_type = acting_entity->object_type; + id = acting_entity->sortid; + dfs = acting_entity->defense; + + ofs = acting_entity->offense; + vars = acting_entity->varlist; + Varlist_Cleanup(vars); + + memcpy(dfs, spawn_model->defense, sizeof(*dfs)*max_attack_types); + memcpy(ofs, spawn_model->offense, sizeof(*ofs)*max_attack_types); + + // clear up + clear_all_scripts(acting_entity->scripts, 1); + if(acting_entity->waypoints) + { + free(acting_entity->waypoints); + } + + /* Just to make the recrusive collection is free. */ + recursive_effect_free_collection(acting_entity); + + scripts = acting_entity->scripts; + memset(acting_entity, 0, sizeof(*acting_entity)); + acting_entity->unique_id = entity_unique_id_next(); + + // e->drawmethod = plainmethod; + acting_entity->drawmethod = allocate_drawmethod(); + + acting_entity->drawmethod->config &= ~DRAWMETHOD_CONFIG_ENABLED; + + // add to list and count current entities + acting_entity->exists = 1; + ent_count++; + + acting_entity->modeldata = *spawn_model; // copy the entir model data here + acting_entity->model = spawn_model; + acting_entity->defaultmodel = spawn_model; + + acting_entity->scripts = scripts; + // copy from model a fresh script + + copy_all_scripts(spawn_model->scripts, acting_entity->scripts, 1); + + if(ent_count > ent_max) + { + ent_max = ent_count; + } + acting_entity->timestamp = _time; // log time so update function will ignore it if it is new + + acting_entity->energy_state.health_current = acting_entity->modeldata.health; + acting_entity->energy_state.mp_current = acting_entity->modeldata.mp; + acting_entity->knockdowncount = acting_entity->modeldata.knockdowncount; + acting_entity->position.x = pos_x; + acting_entity->position.z = pos_z; + acting_entity->position.y = pos_y; + acting_entity->shadow_config_flags = acting_entity->modeldata.shadow_config_flags; + acting_entity->direction = direction; + acting_entity->nextthink = _time + 1; + acting_entity->nextmove = _time + 1; + acting_entity->speedmul = 1; + ent_set_colourmap(acting_entity, 0); + acting_entity->lifespancountdown = spawn_model->lifespan; // new life span countdown + + if((acting_entity->modeldata.type & TYPE_PLAYER) && ((level && level->nohit == DAMAGE_FROM_PLAYER_OFF) || savedata.mode)) + { + acting_entity->faction.type_hostile &= ~TYPE_PLAYER; + acting_entity->faction.type_damage_direct &= ~TYPE_PLAYER; + } + + if(acting_entity->modeldata.type & TYPE_PLAYER) + { + acting_entity->playerindex = currentspawnplayer; + } + + if(acting_entity->modeldata.type & TYPE_TEXTBOX) + { + textbox = acting_entity; + } + + strncpy(acting_entity->name, acting_entity->modeldata.name, MAX_NAME_LEN - 1); + // copy back the value + acting_entity->object_type = object_type; + acting_entity->sortid = id; + acting_entity->defense = dfs; + acting_entity->offense = ofs; + acting_entity->varlist = vars; + + ent_default_init(acting_entity); + return acting_entity; + } + } + return NULL; +} + + + +// Break the link an entity has with another one +void ent_unlink(entity *e) +{ + if(e->link) + { + e->link->link = NULL; + e->link->grabbing = NULL; + } + e->link = NULL; + e->grabbing = NULL; +} + + + +// Link two entities together +void ents_link(entity *e1, entity *e2) +{ + ent_unlink(e1); + ent_unlink(e2); + e1->grabbing = e2; // Added for platform layering + e1->link = e2; + e2->link = e1; +} + + + +void kill_entity(entity *victim, e_kill_entity_trigger trigger) +{ + int i = 0; + s_attack attack = emptyattack; + entity *tempent = self; + + if(victim == NULL || !victim->exists) { + return; + } + + execute_onkill_script(victim, trigger); + + recursive_effect_free_collection(victim); + + ent_unlink(victim); + victim->weapent = NULL; + victim->energy_state.health_current = 0; + victim->exists = 0; + ent_count--; + + //UT: caution, script function killentity calls this + clear_all_scripts(victim->scripts, 1); + + if(victim->parent && victim->parent->subentity == victim) { + victim->parent->subentity = NULL; + } + + victim->parent = NULL; + + if(victim->modeldata.summonkill) { + attack.attack_type = ATK_SUB_ENTITY_PARENT_KILL; + attack.dropv = default_model_dropv; + } + + const s_defense* defense_object = defense_find_current_object(self, NULL, attack.attack_type); + + // kill minions + if(victim->modeldata.summonkill == 1 && victim->subentity) { + // kill only summoned one + victim->subentity->parent = NULL; + self = victim->subentity; + attack.attack_force = self->energy_state.health_current; + + if(self->takedamage && !level_completed) { + self->takedamage(self, self, &attack, 0, defense_object); + + } else { + kill_entity(self, KILL_ENTITY_TRIGGER_PARENT_KILL_SUMMON); + } + } + + victim->subentity = NULL; + + for (i = 0; i < MAX_PLAYERS; i++) { + if(victim == player[i].ent) { + player[i].ent = NULL; + break; + } + } + + if(victim == smartbomber) { + smartbomber = NULL; + } + + if(victim == textbox) { + textbox = NULL; + } + + for(i = 0; i < ent_max; i++) { + if(ent_list[i]->exists) { + // kill all minions + self = ent_list[i]; + if(self->parent == victim) { + self->parent = NULL; + if(victim->modeldata.summonkill == 2) { + + attack.attack_force = self->energy_state.health_current; + + if(self->takedamage && !level_completed) { + self->takedamage(self, self, &attack, 0, defense_object); + } else { + kill_entity(self, KILL_ENTITY_TRIGGER_PARENT_KILL_ALL); + } + } + } + + if(self->owner == victim) { + self->owner = victim->owner; + } + + if(self->opponent == victim) { + self->opponent = NULL; + } + + if(self->binding.target == victim) { + self->binding.target = NULL; + } + + if(self->landed_on_platform == victim) { + self->landed_on_platform = NULL; + } + + if(self->hithead == victim) { + self->hithead = NULL; + } + + if(self->lasthit == victim) { + self->lasthit = NULL; + } + + if(!textbox && (self->modeldata.type & TYPE_TEXTBOX)) { + textbox = self; + } + } + } + + victim = NULL; + + //free_ent(victim); + //victim = alloc_ent(); + + self = tempent; +} + + +void kill_all(){ + + int i; + entity *e = NULL; + + for(i = 0; i < ent_max; i++) { + e = ent_list[i]; + if (e && e->exists) { + execute_onkill_script(e, KILL_ENTITY_TRIGGER_ALL); + + recursive_effect_free_collection(e); + ent_unlink(e); + + clear_all_scripts(e->scripts, 1); + } + e->exists = 0; // well, no need to use kill function + } + textbox = smartbomber = NULL; + _time = 0; + ent_count = ent_max = ent_stack_size = 0; + if(ent_list_size > MAX_ENTS) {//shrinking... + free_ents(); + alloc_ents(); //this shouldn't return 0, because the list shrinks... + } +} + +/* +* Caskey, Damon V. +* 2022-04-20 +* +* Replacement for legacy canbegrabbed +* macro. Return true if target entity +* is eligible for grabbing. +*/ +int check_canbegrabbed(entity* acting_entity, entity* target_entity) +{ + if (!target_entity->animation->vulnerable[target_entity->animpos]) + { + return 0; + } + + /* + * Note move refers to "move animation + * commands, not if entity has velocity. + */ + + if (acting_entity->animation->move) + { + if (acting_entity->animation->move[acting_entity->animpos]->axis.x != 0) + { + return 0; + } + + if (acting_entity->animation->move[acting_entity->animpos]->axis.z != 0) + { + return 0; + } + } + + if (target_entity->nograb) + { + return 0; + } + + if (target_entity->invincible & INVINCIBLE_INTANGIBLE) + { + return 0; + } + + if (target_entity->link) + { + return 0; + } + + if (target_entity->model->weapon_properties.weapon_state & WEAPON_STATE_ANIMAL) + { + return 0; + } + + if (inair(target_entity)) + { + return 0; + } + + /* + * DC 2022-04-20. + * + * This check seems very open-ended. I would + * think savedata.mode should equal something + * specific and not just "true". Will need to + * look over the menu options code to make + * sure this is behaving as intended. + */ + + if (acting_entity->modeldata.type & TYPE_PLAYER && target_entity->modeldata.type & TYPE_PLAYER) + { + if (savedata.mode) + { + return 0; + } + } + + return 1; +} + +/* +* Caskey, Damon V. +* 2022-04-09 +* +* Replacement for legacy cangrab +* macro. Return true if acting +* entity can grab target entity. +*/ +int check_cangrab(entity* acting_entity, entity* target_entity) +{ + int grab_resistance = 0; + + if (!check_canbegrabbed(acting_entity, target_entity)) + { + return 0; + } + + if (inair_range(acting_entity)) + { + return 0; + } + + if (diff(target_entity->position.y, acting_entity->position.y) > T_WALKOFF) + { + return 0; + } + + /* + * Grab resistance. Acting entity's grab force + * must exceed target's total grab resistance. + * + * If the target as paingrab property, we add + * its value to grab resistance property if + * the target's pain flag is not active. + */ + + grab_resistance = target_entity->modeldata.grab_resistance; + + if (target_entity->modeldata.paingrab) + { + if ((target_entity->inpain & IN_PAIN_HIT) == 0) + { + grab_resistance += target_entity->modeldata.paingrab; + } + } + + if (grab_resistance > acting_entity->modeldata.grab_force) + { + return 0; + } + + return 1; +} + +/* +* Caskey, Damon V. +* 2020-02-04 +* +* Test collision between two boxes. If any overlap is found, +* populates collision_check_data->return_overlap with overlap +* position and returns true. +*/ +int check_collision(s_collision_check_data* collision_data) +{ + s_box seek_pos; + s_box detect_pos; + + /* + * X axis. + * + * Before we can check X positions, we need to + * accomidate handle left/right flipping of + * both the seeker and target. + */ + + if (collision_data->seeker_direction == DIRECTION_LEFT) + { + seek_pos.left = collision_data->seeker_pos->x - collision_data->seeker_coords->width; + seek_pos.right = collision_data->seeker_pos->x - collision_data->seeker_coords->x; + } + else + { + seek_pos.left = collision_data->seeker_pos->x + collision_data->seeker_coords->x; + seek_pos.right = collision_data->seeker_pos->x + collision_data->seeker_coords->width; + } + + if (collision_data->target_direction == DIRECTION_LEFT) + { + detect_pos.left = collision_data->target_pos->x - collision_data->target_coords->width; + detect_pos.right = collision_data->target_pos->x - collision_data->target_coords->x; + } + else + { + detect_pos.left = collision_data->target_pos->x + collision_data->target_coords->x; + detect_pos.right = collision_data->target_pos->x + collision_data->target_coords->width; + } + + // If we are out of bounds, there's no collision. + if (seek_pos.left > detect_pos.right || seek_pos.right < detect_pos.left) + { + return 0; + } + + /* + * Y axis. + * + * This looks backwards, but we're not crazy. + * + * The text input treats box as starting from + * a Y position with a Y size that proceeds + * downward, but when checking for collision + * we do the opposite. So here the Y position + * is our lower coordinate and Y size is the + * top coordinate. + */ + + seek_pos.bottom = collision_data->seeker_pos->y + -(collision_data->seeker_coords->height); + seek_pos.top = collision_data->seeker_pos->y + - (collision_data->seeker_coords->y); + + detect_pos.bottom = collision_data->target_pos->y + -(collision_data->target_coords->height); + detect_pos.top = collision_data->target_pos->y + - (collision_data->target_coords->y); + + // If we are out of bounds, there's no collision. + if (seek_pos.bottom > detect_pos.top || seek_pos.top < detect_pos.bottom) + { + return 0; + } + + /* + * Z axis. + * + * Same principal as the left and right sides of X + * axis, except we don't have to worry about flipping + * direction. + */ + + seek_pos.background = collision_data->seeker_pos->z - collision_data->seeker_coords->z_background; + seek_pos.foreground = collision_data->seeker_pos->z + collision_data->seeker_coords->z_foreground; + + detect_pos.background = collision_data->target_pos->z - collision_data->target_coords->z_background; + detect_pos.foreground = collision_data->target_pos->z + collision_data->target_coords->z_foreground; + + // If we are out of bounds, there's no collision. + if (seek_pos.background > detect_pos.foreground || seek_pos.foreground < detect_pos.background) + { + return 0; + } + + /* + * If we got this far, find the collision area and apply + * values to collision area box supplied by parent function. + * + * We do this by treating the collision area as a third + * box set of coordinates between the attack and detect + * boxes. Then we find the center of our third box. This + * gives us a calculated center of the collision detection + * point. + */ + + collision_data->return_overlap->left = seek_pos.left < detect_pos.left ? detect_pos.left : seek_pos.left; + collision_data->return_overlap->right = seek_pos.right > detect_pos.right ? detect_pos.right : seek_pos.right; + collision_data->return_overlap->center_x = (collision_data->return_overlap->left + collision_data->return_overlap->right) / 2; + + collision_data->return_overlap->bottom = seek_pos.bottom < detect_pos.bottom ? detect_pos.bottom : seek_pos.bottom; + collision_data->return_overlap->top = seek_pos.top > detect_pos.top ? detect_pos.top : seek_pos.top; + collision_data->return_overlap->center_y = (collision_data->return_overlap->top + collision_data->return_overlap->bottom) / 2; + + collision_data->return_overlap->background = seek_pos.background < detect_pos.background ? detect_pos.background : seek_pos.background; + collision_data->return_overlap->foreground = seek_pos.foreground > detect_pos.foreground ? detect_pos.foreground : seek_pos.foreground; + collision_data->return_overlap->center_z = (collision_data->return_overlap->background + collision_data->return_overlap->foreground) / 2; + + return 1; +} + +/* +* Caskey, Damon V. +* 2020-02-04 +* +* Send collision and entity data to last hit structure. +* This data is vital for checking hit reactions, spawning +* flash effects, performing hit overrides, populating +* script variables and other post hit functionality. +*/ +void populate_lasthit(const s_collision_check_data* const collision_data, s_collision_instance* const collision_attack, s_collision_instance* const detect_collision_body, s_collision_instance* const detect_collision_attack) { + + /* + * Why have both attack and collision_attack when + * attack is a member of collision_attack? + * + * There are times (like damage on landing) where + * the lasthit structure is populated manually + * and we don't have a collision container, only + * the property object. + */ + lasthit.collision_attack = collision_attack; + lasthit.attack = collision_attack ? collision_attack->attack : NULL; + + lasthit.detect_collision_body = detect_collision_body; + lasthit.detect_body = detect_collision_body ? detect_collision_body->body : NULL; + + lasthit.detect_collision_attack = detect_collision_attack; + + lasthit.position.x = collision_data->return_overlap->center_x; + lasthit.position.y = collision_data->return_overlap->center_y; + lasthit.position.z = collision_data->return_overlap->center_z; + + lasthit.target = collision_data->target_ent; + lasthit.attacker = collision_data->seeker_ent; + lasthit.confirm = 1; +} + +/* +* Caskey, Damon V. +* 2026-07-01 +* +* Check one seeking collision box against all active +* body collision boxes on the target's current frame. +* +* This replaces the old linked-list walk with an active +* mask scan. The function only visits slots marked active +* in the target frame's body collision collection. +* +* Returns: +* - Pointer to the body collision instance that was hit. +* - NULL if no body collision is found. +*/ +s_collision_instance* check_collision_vs_body(s_collision_check_data* const collision_check_data) { + s_anim* animation = NULL; + s_collision_collection* collection = NULL; + s_collision_instance* detect_collision = NULL; + uint64_t active_status; + int frame; + int collision_index; + + /* + * No collision check data means there is nothing + * meaningful to evaluate. + */ + if (!collision_check_data) { + return NULL; + } + + animation = collision_check_data->target_animation; + frame = collision_check_data->target_frame; + + /* + * Guard the animation and frame table lookup. + */ + if (!animation || frame < 0 || frame >= animation->numframes) { + return NULL; + } + + /* + * If the animation has no body collision frame + * table, then there are no body boxes to check. + */ + if (!animation->collision_body) { + return NULL; + } + + /* + * Get the body collision collection for the requested + * target frame. + */ + collection = animation->collision_body[frame]; + + /* + * No collection, or no active slots in the collection, + * means there are no target body boxes on this frame. + */ + if (!collection || !collection->active_status) { + return NULL; + } + + /* + * Work from a local copy of the active mask. + * + * The frame collection itself must not be modified by + * collision checks. Each loop consumes one active bit + * from this local copy. + */ + active_status = collection->active_status; + + while (active_status) { + + /* + * Get the lowest active slot index from the local + * active mask copy. + */ + collision_index = collision_get_lowest_active_index(active_status); + + /* + * Clear the lowest active bit so the next loop + * moves to the next active body slot. + */ + active_status &= active_status - 1; + + /* + * Active mask and pointer slots should agree, but + * guard against damaged or script-modified data. + */ + detect_collision = collection->slots[collision_index]; + + if (!detect_collision) { + continue; + } + + /* + * Empty coordinates mean this slot does not have + * a usable collision box for this frame. + */ + if (!collision_check_has_coords(&detect_collision->coords)) { + continue; + } + + /* + * Populate the target coordinate pointer and run + * the shared collision test. + * + * Coordinates live inline on the collision instance, + * so pass the address of the embedded coords member. + */ + collision_check_data->target_coords = &detect_collision->coords; + + if (check_collision(collision_check_data)) { + return detect_collision; + } + } + + /* + * No active target body slot collided with the seeker. + */ + return NULL; +} + +/* +* Caskey, Damon V. +* 2026-07-01 +* +* Check one seeking collision box against all active +* attack collision boxes on the target's current frame. +* +* This replaces the old linked-list walk with an active +* mask scan. The function only visits slots marked active +* in the target frame's attack collision collection. +* +* Returns: +* - Pointer to the attack collision instance that was hit. +* - NULL if no attack collision is found. +*/ +s_collision_instance* check_collision_vs_attack(s_collision_check_data* const collision_check_data) { + s_anim* animation = NULL; + s_collision_collection* collection = NULL; + s_collision_instance* detect_collision = NULL; + uint64_t active_status; + int frame; + int collision_index; + + /* + * No collision check data means there is nothing + * meaningful to evaluate. + */ + if (!collision_check_data) { + return NULL; + } + + animation = collision_check_data->target_animation; + frame = collision_check_data->target_frame; + + /* + * Guard the animation and frame table lookup. + */ + if (!animation || frame < 0 || frame >= animation->numframes) { + return NULL; + } + + /* + * If the animation has no attack collision + * frame table, then there are no attack boxes + * to check. + */ + if (!animation->collision_attack) { + return NULL; + } + + /* + * Get the attack collision collection for the requested + * target frame. + */ + collection = animation->collision_attack[frame]; + + /* + * No collection, or no active slots in the collection, + * means there are no target attack boxes on this frame. + */ + if (!collection || !collection->active_status) { + return NULL; + } + + /* + * Work from a local copy of the active mask. + * + * The frame collection itself must not be modified by + * collision checks. Each loop consumes one active bit + * from this local copy. + */ + active_status = collection->active_status; + + while (active_status) { + + /* + * Get the lowest active slot index from the local + * active mask copy. + */ + collision_index = collision_get_lowest_active_index(active_status); + + /* + * Clear the lowest active bit so the next loop + * moves to the next active attack slot. + */ + active_status &= active_status - 1; + + /* + * Active mask and pointer slots should agree, but + * guard against damaged or script-modified data. + */ + detect_collision = collection->slots[collision_index]; + + if (!detect_collision) { + continue; + } + + /* + * Empty coordinates mean this slot does not have + * a usable collision box for this frame. + */ + if (!collision_check_has_coords(&detect_collision->coords)) { + continue; + } + + /* + * An attack collision scan should only report + * instances that actually carry attack data. + */ + if (!detect_collision->attack) { + continue; + } + + /* + * Populate the target coordinate pointer and run + * the shared collision test. + * + * Coordinates live inline on the collision instance, + * so pass the address of the embedded coords member. + */ + collision_check_data->target_coords = &detect_collision->coords; + + if (check_collision(collision_check_data)) { + return detect_collision; + } + } + + /* + * No active target attack slot collided with the seeker. + */ + return NULL; +} + +/* +* Caskey, Damon V. +* 2026-07-02 +* +* Check whether an attacker's active attack collision +* boxes hit a target's active body collision boxes. +* +* This replaces the old linked-list walk with an active +* mask scan over the attacker's current frame attack +* collision collection. +*/ +int checkhit(entity* attacker, entity* target) { + s_collision_collection* seek_collection = NULL; + s_collision_instance* seek_collision = NULL; + s_collision_instance* detect_collision_attack = NULL; + s_collision_instance* detect_collision_body = NULL; + s_collision_check_data collision_check_data; + s_axis_principal_int seeker_pos; + s_axis_principal_int target_pos; + s_box return_overlap; + uint64_t active_status; + int collision_index; + + int attacker_frame; + int target_frame; + + /* + * Basic guards. + * + * Do not touch animation frame tables until both + * animation pointers and frame indexes are valid. + */ + if (!attacker + || !target + || attacker == target + || !attacker->animation + || !target->animation) { + return FALSE; + } + + attacker_frame = attacker->animpos; + target_frame = target->animpos; + + /* + * Guard animation frame table lookups. + */ + if (attacker_frame < 0 + || attacker_frame >= attacker->animation->numframes + || target_frame < 0 + || target_frame >= target->animation->numframes) { + return FALSE; + } + + /* + * Now it is safe to inspect per-frame animation tables. + */ + if (!attacker->animation->collision_attack + || !target->animation->collision_body + || !target->animation->vulnerable + || !target->animation->vulnerable[target_frame]) { + return FALSE; + } + + /* + * Get the attacker's attack collision collection for + * the current animation frame. + */ + seek_collection = attacker->animation->collision_attack[attacker_frame]; + + /* + * No collection, or no active slots, means the attacker + * has no attack boxes to test on this frame. + */ + if (!seek_collection || !seek_collection->active_status) { + return FALSE; + } + + /* + * We'll use these in collision check data structure + * in lieu of memory allocations. + */ + seeker_pos.x = (int)attacker->position.x; + seeker_pos.y = (int)attacker->position.y; + seeker_pos.z = (int)attacker->position.z; + + target_pos.x = (int)target->position.x; + target_pos.y = (int)target->position.y; + target_pos.z = (int)target->position.z; + + /* + * Populate collision check data with everything + * that does not change during the active-slot scan. + */ + collision_check_data.seeker_pos = &seeker_pos; + collision_check_data.target_pos = &target_pos; + collision_check_data.return_overlap = &return_overlap; + + collision_check_data.seeker_ent = attacker; + collision_check_data.target_ent = target; + collision_check_data.target_animation = target->animation; + collision_check_data.target_frame = target_frame; + + collision_check_data.seeker_direction = attacker->direction; + collision_check_data.target_direction = target->direction; + + /* + * Work from a local copy of the active mask. + * + * Collision checks must not modify the animation frame's + * collision collection. Each loop consumes one active bit + * from this local mask copy. + */ + active_status = seek_collection->active_status; + + while (active_status) { + + /* + * Get the lowest active attack slot index from the + * local active mask copy. + */ + collision_index = collision_get_lowest_active_index(active_status); + + /* + * Clear the lowest active bit so the next loop + * moves to the next active attack slot. + */ + active_status &= active_status - 1; + + /* + * Active mask and pointer slots should agree, but + * guard against damaged or script-modified data. + */ + seek_collision = seek_collection->slots[collision_index]; + + if (!seek_collision) { + continue; + } + + /* + * The seeker side must have both usable coordinates + * and an attack property. Coordinates live inline on + * the collision instance. + */ + if (!seek_collision->attack + || !collision_check_has_coords(&seek_collision->coords)) { + continue; + } + + /* + * Populate the seeker coordinate pointer for this + * active attack slot. + */ + collision_check_data.seeker_coords = &seek_collision->coords; + + /* + * Reset per-slot detection outputs before checking. + */ + detect_collision_attack = NULL; + detect_collision_body = NULL; + + /* + * Check this attack box against the target's active + * body boxes. + */ + detect_collision_body = check_collision_vs_body(&collision_check_data); + + if (detect_collision_body) { + populate_lasthit( + &collision_check_data, + seek_collision, + detect_collision_body, + detect_collision_attack); + + return TRUE; + } + + /* + * Counterattack collision checks are disabled + * pending a rewrite of the old linked-list walk + * to the new active-mask scan pattern. + * + * If/when this path is restored, check_collision_vs_attack() + * now returns s_collision_instance* and already uses the + * active-mask scan pattern. + */ + /* + detect_collision_attack = check_collision_vs_attack(&collision_check_data); + + if (detect_collision_attack) { + populate_lasthit( + &collision_check_data, + seek_collision, + detect_collision_body, + detect_collision_attack); + + return TRUE; + } + */ + } + + /* + * No active attacker attack slot collided with any + * active target collision slot. + */ + return FALSE; +} + + +/* +* Calculates the coef relative to the bottom left +* point. This is done by figuring out how far the +* entity is from the bottom of the platform and +* multiplying the result by the difference of the +* bottom left point and the top left point divided +* by depth of the platform. The same is done for +* the right side, and checks to see if they are +* within the bottom/top and the left/right area. +*/ +int testhole(int hole, float x, float z) +{ + float coef1, coef2; + if(z <= level->holes[hole].z && z >= level->holes[hole].z - level->holes[hole].depth) + { + coef1 = (level->holes[hole].z - z) * ((level->holes[hole].upperleft - level->holes[hole].lowerleft) / level->holes[hole].depth); + coef2 = (level->holes[hole].z - z) * ((level->holes[hole].upperright - level->holes[hole].lowerright) / level->holes[hole].depth); + if(x >= level->holes[hole].x + level->holes[hole].lowerleft + coef1 && x <= level->holes[hole].x + level->holes[hole].lowerright + coef2) + { + return 1; + } + } + return 0; +} + +// find all holes here and return the count +int checkholes(float x, float z) +{ + int i, c; + + for(i = 0, c = 0; i < level->numholes; i++) + { + c += testhole(i, x, z); + } + + return c; +} + +// find the 1st hole here +int checkhole(float x, float z) +{ + int i; + + if(level == NULL) + { + return 0; + } + + for(i = 0; i < level->numholes; i++) + { + if(testhole(i, x, z)) + { + holez = i; + return 1; + } + } + return 0; +} + +// find all holes here within altitude1 and 2, return the count +int checkhole_between(float x, float z, float a1, float a2) +{ + int i, c; + + for(i = 0, c = 0; i < level->numholes; i++) + { + c += (testhole(i, x, z) && level->holes[i].height >= a1 && level->holes[i].height <= a2); + } + + return c; +} + +// get a highest hole below this altitude +int checkhole_in(float x, float z, float a) +{ + float maxa; + int i, ind; + + if(level == NULL) + { + return 0; + } + + maxa = -1; + ind = -1; + for(i = 0; i < level->numholes; i++) + { + if(testhole(i, x, z) && level->holes[i].height+T_WALKOFF >= a && level->holes[i].height > maxa) // && level->holes[i].height+T_WALKOFF >= a + { + maxa = level->holes[i].height; + ind = i; + } + } + + if ( ind >= 0 ) { + holez = ind; + return 1; + } else return 0; +} + +// find the hole id for highest hole +int checkholeindex_in(float x, float z, float a) +{ + float maxa; + int i, ind; + + if(level == NULL) + { + return -1; + } + + maxa = -1; + ind = -1; + for(i = 0; i < level->numholes; i++) + { + if(testhole(i, x, z) && level->holes[i].height+T_WALKOFF >= a && level->holes[i].height > maxa) // && level->holes[i].height+T_WALKOFF >= a + { + maxa = level->holes[i].height; + ind = i; + } + } + + return ind; +} + +// find the 1st hole id here +int checkhole_index(float x, float z) +{ + int i; + + if(level == NULL) + { + return -1; + } + + for(i = 0; i < level->numholes; i++) + { + if(testhole(i, x, z)) + { + //holez = i; + return i; + } + } + return -1; +} + +/* +Calculates the coef relative to the bottom left point. This is done by figuring out how far the entity is from +the bottom of the platform and multiplying the result by the difference of the bottom left point and the top +left point divided by depth of the platform. The same is done for the right side, and checks to see if they are +within the bottom/top and the left/right area. +*/ +int testwall(int wall, float x, float z) +{ + float coef1, coef2; + + //if(wall >= level->numwalls || wall < 0) return 0; + if(z <= level->walls[wall].z && z >= level->walls[wall].z - level->walls[wall].depth) + { + coef1 = (level->walls[wall].z - z) * ((level->walls[wall].upperleft - level->walls[wall].lowerleft) / level->walls[wall].depth); + coef2 = (level->walls[wall].z - z) * ((level->walls[wall].upperright - level->walls[wall].lowerright) / level->walls[wall].depth); + if(x >= level->walls[wall].x + level->walls[wall].lowerleft + coef1 && x <= level->walls[wall].x + level->walls[wall].lowerright + coef2) + { + return 1; + } + } + + return 0; +} + +// find all walls here within altitude1 and 2, return the count +int checkwalls(float x, float z, float a1, float a2) +{ + int i, c; + + for(i = 0, c = 0; i < level->numwalls; i++) + { + c += (testwall(i, x, z) && level->walls[i].height >= a1 && level->walls[i].height <= a2); + } + + return c; +} + +// get a highest wall below this altitude +int checkwall_below(float x, float z, float a) +{ + float maxa; + int i, ind; + + if(level == NULL) + { + return -1; + } + + maxa = 0; + ind = -1; + for(i = 0; i < level->numwalls; i++) + { + if(testwall(i, x, z) && level->walls[i].height <= a && level->walls[i].height > maxa) + { + maxa = level->walls[i].height; + ind = i; + } + } + + return ind; +} + +// return the 1st wall found here +int checkwall_index(float x, float z) +{ + int i; + if(level == NULL) + { + return WALL_INDEX_NONE; + } + + for (i = 0; i < level->numwalls; i++) + { + if (testwall(i, x, z)) + { + return i; + } + } + + return WALL_INDEX_NONE; +} + +/* +Calculates the coef relative to the bottom left point. This is done by figuring out how far the entity is from +the bottom of the platform and multiplying the result by the difference of the bottom left point and the top +left point divided by depth of the platform. The same is done for the right side, and checks to see if they are +within the bottom/top and the left/right area. +*/ +int testplatform(entity *plat, float x, float z, entity *exclude) +{ + float coef1, coef2; + float offz, offx; + if(plat == exclude) + { + return 0; + } + if(!plat->animation || !plat->animation->platform || !plat->animation->platform[plat->animpos][PLATFORM_HEIGHT]) + { + return 0; + } + offz = plat->position.z + plat->animation->platform[plat->animpos][PLATFORM_Z]; + offx = plat->position.x + plat->animation->platform[plat->animpos][PLATFORM_X]; + if(z <= offz && z >= offz - plat->animation->platform[plat->animpos][PLATFORM_DEPTH]) + { + coef1 = (offz - z) * ((plat->animation->platform[plat->animpos][PLATFORM_UPPERLEFT] - + plat->animation->platform[plat->animpos][PLATFORM_LOWERLEFT]) / plat->animation->platform[plat->animpos][PLATFORM_DEPTH]); + coef2 = (offz - z) * ((plat->animation->platform[plat->animpos][PLATFORM_UPPERRIGHT] - + plat->animation->platform[plat->animpos][PLATFORM_LOWERRIGHT]) / plat->animation->platform[plat->animpos][PLATFORM_DEPTH]); + + if(x >= offx + plat->animation->platform[plat->animpos][PLATFORM_LOWERLEFT] + coef1 && + x <= offx + plat->animation->platform[plat->animpos][PLATFORM_LOWERRIGHT] + coef2) + { + return 1; + } + } + return 0; +} + +//find the first platform between these 2 altitudes +entity *check_platform_between(float x, float z, float amin, float amax, entity *exclude) +{ + entity *plat = NULL; + int i; + + if(level == NULL) + { + return NULL; + } + + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && testplatform(ent_list[i], x, z, exclude) ) + { + plat = ent_list[i]; + if(plat->position.y <= amax && plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT] > amin) + { + return plat; + } + } + } + return NULL; +} + +//find a lowest platform above this altitude +entity *check_platform_above(float x, float z, float a, entity *exclude) +{ + float mina; + entity *plat = NULL; + int i, ind; + + if(level == NULL) + { + return NULL; + } + + mina = 9999999; + ind = -1; + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && testplatform(ent_list[i], x, z, exclude) ) + { + plat = ent_list[i]; + if(plat->position.y >= a && plat->position.y < mina) + { + mina = plat->position.y; + ind = i; + } + } + } + return (ind >= 0) ? ent_list[ind] : NULL; +} + +//find a highest platform below this altitude +entity *check_platform_below(float x, float z, float a, entity *exclude) +{ + float maxa; + entity *plat = NULL; + int i, ind; + + if(level == NULL) + { + return NULL; + } + + maxa = MIN_INT; + ind = -1; + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && testplatform(ent_list[i], x, z, exclude) ) + { + plat = ent_list[i]; + if(plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT] <= a && + plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT] > maxa) + { + maxa = plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT]; + ind = i; + } + } + } + return (ind >= 0) ? ent_list[ind] : NULL; +} + +entity *check_platform_above_entity(entity *e) +{ + float mina; + int heightvar; + entity *plat = NULL; + int i, ind; + + if(level == NULL) + { + return NULL; + } + if(e->animation->size.y) + { + heightvar = e->animation->size.y; + } + else + { + heightvar = e->modeldata.size.y; + } + + mina = T_MAX_CHECK_ALTITUDE; + ind = -1; + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && testplatform(ent_list[i], e->position.x, e->position.z, e) ) + { + plat = ent_list[i]; + if(plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT] > e->position.y + heightvar && plat->position.y < mina) + { + mina = plat->position.y; + ind = i; + } + } + } + return (ind >= 0) ? ent_list[ind] : NULL; +} + +entity *check_platform_below_entity(entity *e) +{ + float maxa, a; + entity *plat = NULL; + int i, ind; + + if(level == NULL) + { + return NULL; + } + + maxa = MIN_INT; + ind = -1; + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && testplatform(ent_list[i], e->position.x, e->position.z, e) ) + { + plat = ent_list[i]; + a = plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT]; + if(a < e->position.y + T_WALKOFF && plat->position.y < e->position.y && a > maxa) + { + maxa = a; + ind = i; + } + } + } + return (ind >= 0) ? ent_list[ind] : NULL; +} + +float checkbase(float x, float z, float y, entity *ent) +{ + float maxbase = -1.0f, base = -1.0f; + int index = -1; + entity *platform = NULL; + + base = (checkhole(self->position.x, self->position.z)) ? -1.0f : 0.0f; + if (base > maxbase) maxbase = base; + + base = check_basemap(self->position.x, self->position.z); + if (base > maxbase) maxbase = base; + + base = -1.0f; + if((index = checkwall_below(x, z, T_MAX_CHECK_ALTITUDE)) >= 0) + { + base = level->walls[index].height; + if (base > maxbase) maxbase = base; + } + + base = -1.0f; + platform = check_platform_below(x, z, y, ent); + if (platform != NULL) + { + base = get_platform_base(platform); + if (base > maxbase) maxbase = base; + } + + return maxbase; +} + +// find the 1st platform entity here +entity *check_platform(float x, float z, entity *exclude) +{ + int i; + if(level == NULL) + { + return NULL; + } + + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && testplatform(ent_list[i], x, z, exclude)) + { + return ent_list[i]; + } + } + return NULL; +} + +float get_platform_base(entity *plat) +{ + float alt = 0; + + alt = plat->position.y; + alt += plat->animation->platform[plat->animpos][PLATFORM_HEIGHT]; + + return alt; +} + +int is_on_platform(entity *ent) +{ + entity *plat = check_platform_below(ent->position.x,ent->position.z,ent->position.y+T_WALKOFF,ent); + if (plat) + { + if ( diff(ent->base,get_platform_base(plat)) <= T_WALKOFF ) return 1; + } + + return 0; +} + +entity *get_platform_on(entity *ent) +{ + entity *plat = check_platform_below(ent->position.x,ent->position.z,ent->position.y+T_WALKOFF,ent); + if (plat) + { + if ( diff(ent->base,get_platform_base(plat)) <= T_WALKOFF ) return plat; + } + + return NULL; +} + +// for adjust grab position function, test if an entity can move from a to b +// TODO: check points between the two pionts, if necessary +// special return values: +// -1: ent can jump over walls, for jump check +// -2: for hole ai reaction check +int testmove(entity *ent, float sx, float sz, float x, float z) +{ + entity *other = NULL, *platbelow = NULL; + int wall, heightvar; + float xdir, zdir; + + xdir = x - sx; + zdir = z - sz; + + if(!xdir && !zdir) + { + return 1; + } + + // -----------bounds checking--------------- + // Subjec to Z and out of bounds? Return to level! + if (ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MIN_Z) + { + if(zdir && z < PLAYER_MIN_Z) + { + return 0; + } + } + + if (ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MAX_Z) + { + if(zdir && z > PLAYER_MAX_Z) + { + return 0; + } + } + + // screen checking + // Kratus (29-04-21) Reduced the "screen checking" range from 10 to 5 to avoid the entities to stuck in the edge of the screen + // This change was made because the "common_trymove" function also has another "screen checking" with a range of 10 too + // If the "testmove" function has a equal or bigger range than the "common_trymove" function, sometimes the entities will stuck + if(ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_SCREEN) + { + if(x < advancex + 5) + { + return 0; + } + else if(x > advancex + (videomodes.hRes - 5)) + { + return 0; + } + } + //-----------end of bounds checking----------- + + //-------------hole checking --------------------- + if(ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_HOLE) + { + if(checkhole(x, z) && checkwall_index(x, z) < 0 && !check_platform_below(x, z, ent->position.y, ent)) + { + return -2; + } + } + //-----------end of hole checking--------------- + + //--------------obstacle checking ------------------ + if(ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_OBSTACLE) + { + if((other = find_ent_here(ent, x, z, (TYPE_OBSTACLE | TYPE_TRAP), NULL)) && + (!other->animation->platform || !other->animation->platform[other->animpos][PLATFORM_HEIGHT])) + { + return 0; + } + } + //-----------end of obstacle checking-------------- + + // ---------------- platform checking---------------- + + if(ent->animation->size.y) + { + heightvar = ent->animation->size.y; + } + else + { + heightvar = ent->modeldata.size.y; + } + + // Check for obstacles with platform code and adjust base accordingly + if(ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM && (other = check_platform_between(x, z, ent->position.y, ent->position.y + heightvar, ent)) ) + { + platbelow = check_platform_below(x, z, ent->position.y+T_WALKOFF, ent); + if ( !platbelow ) return 0; + else + { + float palt = get_platform_base(platbelow); + if ( other != platbelow && diff(ent->position.y,palt) > T_WALKOFF ) return 0; + } + } + //-----------end of platform checking------------------ + + // ------------------ wall checking --------------------- + if(ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_WALL && (wall = checkwall_below(x, z, T_MAX_CHECK_ALTITUDE)) >= 0 && level->walls[wall].height > ent->position.y) + { + if(validanim(ent, ANI_JUMP) && sz < level->walls[wall].z && sz > level->walls[wall].z - level->walls[wall].depth) //Can jump? + { + //rmin = (float)ent->modeldata.animation[ANI_JUMP]->range.x.min; + //rmax = (float)ent->modeldata.animation[ANI_JUMP]->range.x.max; + if(level->walls[wall].height < ent->position.y + ent->modeldata.animation[ANI_JUMP]->range.x.max) + { + return -1; + } + } + return 0; + } + //----------------end of wall checking-------------- + + return 1; + +} + +// find real opponent +void set_opponent(entity *ent, entity *other) +{ + entity *realself, *realother; + + if(!ent) + { + return; + } + + realself = ent; + while(realself->owner) + { + realself = realself->owner; + } + + realother = other; + while(realother && realother->owner) + { + realother = realother->owner; + } + + realself->opponent = ent->opponent = realother; + if(realother) + { + realother->opponent = other->opponent = realself; + } + +} + +/* +* Caskey, Damon V. +* 2023-04-10 +* +* Accept string input and return +* matching constant. +*/ +e_pain_config_flags pain_get_config_flag_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_pain_config_flags flag; + } item_lookup_table[] = { + {"none", PAIN_CONFIG_NONE}, + {"back_pain", PAIN_CONFIG_BACK_PAIN}, + {"fall_disable", PAIN_CONFIG_FALL_DISABLE}, + {"fall_disable_air", PAIN_CONFIG_FALL_DISABLE_AIR}, + {"pain_disable", PAIN_CONFIG_PAIN_DISABLE} + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown pain config flag (%s). \n", value); + return PAIN_CONFIG_NONE; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read pain configuration arguments directly from the source + line and combine their corresponding behavior flags. +*/ +e_pain_config_flags pain_get_config_flags_from_command_line( + const char* command_line +) +{ + const char* value; + s_command_argument_reader reader; + e_pain_config_flags result = PAIN_CONFIG_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= pain_get_config_flag_from_string(value); + } + + return result; +} + + +/* +* Caskey, Damon V. +* 2023-04-05 +* +* Accept string input and return +* matching constant. +*/ +e_block_config_flags block_get_config_flag_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_block_config_flags flag; + } item_lookup_table[] = { + {"none", BLOCK_CONFIG_NONE}, + {"active", BLOCK_CONFIG_ACTIVE}, + {"back", BLOCK_CONFIG_BACK}, + {"disabled", BLOCK_CONFIG_DISABLED}, + {"hold_impact", BLOCK_CONFIG_HOLD_IMPACT}, + {"hold_infinite", BLOCK_CONFIG_HOLD_INFINITE} + }; + + const size_t list_count = sizeof(item_lookup_table) / sizeof(*item_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, item_lookup_table[i].text_name) == 0) + { + return item_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * unknown flag. + */ + + printf("\n\n Unknown block config flag (%s). \n", value); + return BLOCK_CONFIG_NONE; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read blocking configuration arguments directly from the + source line and combine their corresponding behavior flags. +*/ +e_block_config_flags block_get_config_flags_from_command_line( + const char* command_line +) +{ + const char* value; + s_command_argument_reader reader; + e_block_config_flags result = BLOCK_CONFIG_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= block_get_config_flag_from_string(value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2018-12-31 +* +* Initialize appropriate block animation and flags. Called when +* entity blocks actively (blocking before attack hits). Used +* by all player controlled entities or AI controlled entities +* with active block enabled. +*/ +void do_active_block(entity *ent) +{ + /* Run blocking action. */ + ent->takeaction = common_block; + + /* Stop movement. */ + ent->velocity.x = 0; + ent->velocity.z = 0; + + /* Set flags. */ + set_blocking(ent); + + /* End combo. */ + ent->combostep[0] = 0; + + /* + * If we have a block tranisiton animation, use it. Otherwise + * go right to block. + */ + if (validanim(ent, ANI_BLOCKSTART)) + { + ent_set_anim(ent, ANI_BLOCKSTART, 0); + } + else + { + ent_set_anim(ent, ANI_BLOCK, 0); + } +} + +/* +* Caskey, Damon V. +* 2018-09-16 +* +* Find out if attack can be blocked by entity. +* This function is concerned with the attack +* vs. entity in terms of game mechanics like +* guard break, attack type vs. defense, and +* so on. It does not handle rules for AI blocking. +*/ +bool check_blocking_eligible(entity *ent, entity *other, s_attack *attack, s_body *body, e_block_state_flags block_state) { + int temp_block_threshold = 0; + + /* Blocking must be active regardless of behavior overrides. */ + if (!(block_state & BLOCK_STATE_ACTIVE)) { + return false; + } + + /* Guard points only limit native blocking unless explicitly ignored. */ + if ((block_state & BLOCK_STATE_NATIVE) + && !(block_state & BLOCK_STATE_IGNORE_GUARD_POINTS) + && ent->modeldata.guardpoints > 0 + && ent->guardpoints <= 0) { + return false; + } + + /* Attack from behind? Can't block without an applicable override. */ + if (!(block_state & BLOCK_STATE_IGNORE_DIRECTION) + && ent->direction == other->direction + && !(ent->modeldata.block_config_flags & BLOCK_CONFIG_BACK)) { + return false; + } + + /* + * Attack eligibility consists of penetration vs. power and the + * combined model plus defense threshold. Direction and guard + * points have independent override flags above. + */ + if (!(block_state & BLOCK_STATE_IGNORE_ATTACK_ELIGIBILITY)) { + const s_defense* defense_object = defense_find_current_object(ent, body, attack->attack_type); + + if ((attack->no_block || defense_object->blockpower) + && attack->no_block >= defense_object->blockpower) { + return false; + } + + temp_block_threshold = ent->modeldata.thold + defense_object->blockthreshold; + + if (temp_block_threshold > attack->attack_force) { + return false; + } + } + + return true; +} + +// Caskey, Damon V. +// 2018-09-19 +// +// Mandatory conditions the AI must pass before it +// can decide to block. These are not rules for +// blocking in general. +bool check_blocking_rules(entity *ent) { + // If already blocking we can + // forget the rest and return + // true right away. + if (ent->blocking & BLOCK_STATE_ACTIVE) { + return true; + } + + // No blocking animation? + if (!validanim(ent, ANI_BLOCK)) { + return false; + } + + // Have to be idle. + if (!ent->idling) { + return false; + } + + // AI can't be attacking. + if (ent->attacking == ATTACKING_ACTIVE) { + return false; + } + + // Grappling? + if (ent->link) { + return false; + } + + // Airborne? + if (inair(ent)) { + return false; + } + + // Frozen? + if (ent->frozen) { + return false; + } + + // Falling? + if (ent->falling) { + return false; + } + + return true; +} + +// Caskey, Damon V. +// 2018-09-17 +// +// AI blocking decision. Handles AI's chances +// to block. Returns true if AI chooses to attempt +// a block. +bool check_blocking_decision(entity *ent) { + /* Per-instance override supplied through the blocking state. */ + if (ent->blocking & BLOCK_STATE_IGNORE_CHANCE) { + return true; + } + + // If we have active block enabled and we're + // already blocking, then we want the AI to + // keep blocking (like most players would). + if (ent->modeldata.block_config_flags & BLOCK_CONFIG_ACTIVE) { + if (ent->blocking & BLOCK_STATE_ACTIVE) { + return true; + } + } + + // Kratus (10-2021) Fixed the random blocking chance according with the "blockodds" value defined by the modder + // Now it works as intended (1 = block all / 2147483647 = never block) + // Run random chance against blockodds. If it + // passes, AI will block. + if ((rand32()&ent->modeldata.blockodds) == 0) { + return true; + } + + // If we got this far, we never decided to + // block, so return false. + return false; +} + +// Caskey, Damon V. +// 2018-09-17 +// +// Runs all blocking conditions and returns the active +// blocking state, or BLOCK_STATE_NONE if the attack +// should not be blocked. +e_block_state_flags check_blocking_master(entity *ent, entity *other, s_attack *attack, s_body *body) { + e_entity_type entity_type; + e_block_state_flags block_state; + + entity_type = ent->modeldata.type; + block_state = ent->blocking; + + if (ent->modeldata.block_config_flags & BLOCK_CONFIG_DISABLED) { + return BLOCK_STATE_NONE; + } + + /* + * Script-controlled blocking is already an explicit choice. It + * bypasses native initiation rules and chance while retaining + * common attack eligibility unless its individual bits disable it. + */ + if ((block_state & BLOCK_STATE_ACTIVE) + && !(block_state & BLOCK_STATE_NATIVE)) { + if (!check_blocking_eligible(ent, other, attack, body, block_state)) { + return BLOCK_STATE_NONE; + } + + return block_state; + } + + /* Players must have entered native blocking before impact. */ + if (entity_type & TYPE_PLAYER) { + if (!(block_state & BLOCK_STATE_ACTIVE)) { + return BLOCK_STATE_NONE; + } + } else { + /* AI either continues native blocking or chooses it on impact. */ + if (!check_blocking_rules(ent) || !check_blocking_decision(ent)) { + return BLOCK_STATE_NONE; + } + + block_state |= BLOCK_STATE_ACTIVE | BLOCK_STATE_NATIVE; + } + + if (!check_blocking_eligible(ent, other, attack, body, block_state)) { + return BLOCK_STATE_NONE; + } + + return block_state; +} + +/* +* Caskey, Damon V. +* 2018-09-18 +* +* Apply primary block settings, animations, +* actions, and scripts. +*/ +void set_blocking_action(entity *ent, entity *other, s_attack *attack, e_block_state_flags block_state) +{ + /* Execute the attacker's didhit script with blocked flag. */ + execute_didhit_script(other, ent, attack, 1); + + /* Native blocking owns the action, movement, and guard system. */ + if (block_state & BLOCK_STATE_NATIVE) { + ent->blocking |= block_state; + set_blocking(ent); + block_state = ent->blocking; + ent->takeaction = common_block; + + ent->velocity.x = 0; + ent->velocity.z = 0; + + if (!(block_state & BLOCK_STATE_IGNORE_GUARD_POINTS) + && ent->modeldata.guardpoints > 0) { + ent->guardpoints -= attack->guardcost; + } + } + + /* + * Blocked hit is still a hit, so + * increment the attacker's hit counter. + */ + ++other->animation->hit_count; + + /* Execute our block script. */ + execute_didblock_script(ent, other, attack); +} + +/* +* Caskey, Damon V. +* 2018-09-18 +* +* Return true if attack force is sufficient +* to cause blocking pain. Otherwise return false. +*/ +bool check_blocking_pain(const entity *ent, const s_attack *attack) { + + if (attack->attack_force >= ent->modeldata.blockpain) { + return true; + } + + return false; +} + +// Caskey, Damon V. +// 2018-09-21 +// +// Place entity into appropriate blocking animation. +void set_blocking_animation(entity *acting_entity, s_attack *attack, e_block_state_flags block_state) { + + /* + * Entity must have a valid blockpain and + * attack must meet or exceed the blockpain + * threshold. Otherwise, we just go to the + * normal block animation. + */ + + if(!(block_state & BLOCK_STATE_IGNORE_BLOCKPAIN) + && check_blocking_pain(acting_entity, attack) + && set_blockpain(acting_entity, attack->attack_type, 1)) { + return; + } + + ent_set_anim(acting_entity, ANI_BLOCK, 0); +} + +// Caskey, Damon V. +// 2018-09-21 +// +// Perform a block. +void do_passive_block(entity *ent, entity *other, s_attack *attack, e_block_state_flags block_state) +{ + /* Script-controlled blocks preserve the creator-controlled action. */ + if (block_state & BLOCK_STATE_NATIVE) { + set_blocking_animation(ent, attack, block_state); + } + + // Spawn the blocking flash. + spawn_attack_flash(ent, attack, attack->flash.model_block, ent->modeldata.flash.model_block); + + // Run blocking actions and scripts. + set_blocking_action(ent, other, attack, block_state); +} + +/* +* Caskey, Damon V. +* 2018-09-18 +* +* Handle flash spawning for hits. If conditions +* are met, spawns and prepares an appropriate +* flash effect entity at hit location. +* +* Returns pointer to flash entity if spawned, +* or NULL if not. +*/ +entity *spawn_attack_flash(entity *ent, s_attack *attack, int attack_flash, int model_flash) +{ + //printf("\n\n spawn_attack_flash(%p, %p, %d, %d)", ent, attack, attack_flash, model_flash); + + int model_index = MODEL_INDEX_NONE; // THe model we will spawn as flash entity. + entity *flash = NULL; // Flash entity pointer. + float attacker_position_z = lasthit.position.z; + float target_position_z = lasthit.position.z; + int set_layer = 0; + float position_z = 0.0; + int flash_layer_source = 0; + int flash_z_source = 0; + + /* + * Flash disabled by attack? + * We're done. Do nothing and exit. + */ + + if (attack->no_flash) + { + return NULL; + } + + /* + * If the model doesn't allow incoming custom + * flash effects, default to the model's global + * flash. + * + * Otherwise we need to see if the custom + * attack flash index is valid. If it is, then + * we will use it to spawn a flash effect. + */ + + if (!ent->modeldata.noatflash) + { + /* Valid custom flash index ? */ + if (attack_flash >= 0) + { + model_index = attack_flash; + } + else + { + model_index = model_flash; + } + } + else + { + model_index = model_flash; + } + + /* + * Get the attacker and target Z position. + * We are using local variables here just + * in case the attacker or target are not + * populated with valid entities. + */ + + if (lasthit.attacker) + { + attacker_position_z = lasthit.attacker->position.z; + } + + if (ent) + { + target_position_z = ent->position.z; + } + + /* + * Base Z position. This is the starting Z location + * to spawn flash. Start with global config value + * then apply adjustments (if any) from collison + * objects. Then we determine source for base Z + * using the total. + */ + + flash_z_source = global_config.flash.z_source; + flash_z_source += lasthit.attack ? lasthit.attack->flash.z_source : 0; + flash_z_source += lasthit.detect_body ? lasthit.detect_body->flash.z_source : 0; + + if (!flash_z_source) + { + position_z = lasthit.position.z; + } + else if (flash_z_source <= -255) + { + position_z = attacker_position_z < target_position_z ? attacker_position_z : target_position_z; + } + else if (flash_z_source > -255 && flash_z_source < 0) + { + position_z = attacker_position_z; + } + else if (flash_z_source > 0 && flash_z_source < 255) + { + position_z = target_position_z; + } + else // >= 255 + { + position_z = attacker_position_z > target_position_z ? attacker_position_z : target_position_z; + } + + flash = spawn(lasthit.position.x, position_z, lasthit.position.y, DIRECTION_LEFT, NULL, model_index, NULL); + + if (!flash) + { + return NULL; + } + + /* + * Adjust the layer (sort id). Combine values + * from attack, defense and global adjustment. + * + * Then we decide what to do from the total: + * + * 0: Use highest Z (attacker vs. recipient). + * <0: Use attacker. + * >0: Use defender. + * + * Then we combine all static adjustments and + * apply to flash model's sort ID. + */ + + //printf("\n\t global_config.flash_layer_source: %d", global_config.flash_layer_source); + + flash_layer_source = global_config.flash.layer_source; + flash_layer_source += lasthit.attack ? lasthit.attack->flash.layer_source : 0; + flash_layer_source += lasthit.detect_body ? lasthit.detect_body->flash.layer_source : 0; + + //printf("\n\t flash_layer_source: %d", flash_layer_source); + + if (!flash_layer_source) + { + set_layer = position_z; + } + else if (flash_layer_source <= -255) + { + set_layer = attacker_position_z < target_position_z ? attacker_position_z : target_position_z; + } + else if (flash_layer_source > -255 && flash_layer_source < 0) + { + set_layer = attacker_position_z; + } + else if (flash_layer_source > 0 && flash_layer_source < 255) + { + set_layer = target_position_z; + } + else // >= 255 + { + set_layer = attacker_position_z > target_position_z ? attacker_position_z : target_position_z; + } + + //printf("\n\t set_layer: %d", set_layer); + + set_layer += global_config.flash.layer_adjust + lasthit.attack->flash.layer_adjust + lasthit.detect_body->flash.layer_adjust; + + //printf("\n\t set_layer (adjusted): %d", set_layer); + + flash->modeldata.setlayer = set_layer; + + //printf("\n\t flash->modeldata.setlayer: %d", flash->modeldata.setlayer); + + /* + * We have a valid flash entity, let's + * set up its basic properties. + */ + + flash->spawntype = SPAWN_TYPE_FLASH; + flash->base = lasthit.position.y; + flash->autokill |= AUTOKILL_ANIMATION_COMPLETE; + + /* + * If flipping enabled, flip the flash right + * if hit is to right of target entity's + * position. + */ + + if (flash->modeldata.toflip) + { + if (lasthit.position.x > ent->position.x) + { + flash->direction = DIRECTION_RIGHT; + } + } + else + { + /* + * Kratus (10-2021) If the flag is 0, the flash will get the same direction as the defender + * This change was made to avoid the "random" direction applied by "toflip 1", because it depends on the "lasthit" position + * Without this line, the flash will never change the direction according to the defender's facing when "toflip" is 0 + */ + + flash->direction = (ent->direction); + } + + /* + * Run flash's spawn script and + * return the flash pointer. + */ + + execute_onspawn_script(flash); + + return flash; +} + +/* +* Caskey, Damon V. +* 2019-11-24 +* +* Check follow up conditions. Return true +* if all conditions pass, false otherwise. +*/ +int check_follow_up_condition(entity *ent, entity *target, s_anim *animation, int blocked) +{ + if (!animation->followup.animation) + { + return 0; + } + + /* No follow up allowed. */ + + if (animation->followup.condition & FOLLOW_CONDITION_NONE) + { + return 0; + } + + /* Always do follow up. */ + + if (animation->followup.condition & FOLLOW_CONDITION_ANY) + { + return 1; + } + + /* Block attack. */ + + if (animation->followup.condition & FOLLOW_CONDITION_BLOCK_FALSE) + { + if (blocked) + { + return 0; + } + } + + if (animation->followup.condition & FOLLOW_CONDITION_BLOCK_TRUE) + { + if (!blocked) + { + return 0; + } + } + + /* Possible to grab target. */ + + if (animation->followup.condition & FOLLOW_CONDITION_GRAB_FALSE) + { + if (check_cangrab(ent, target)) + { + return 0; + } + } + + if (animation->followup.condition & FOLLOW_CONDITION_GRAB_TRUE) + { + if (!check_cangrab(ent, target)) + { + return 0; + } + } + + /* We are hostile toward target. */ + + if (animation->followup.condition & FOLLOW_CONDITION_HOSTILE_ATTACKER_FALSE) + { + if (faction_check_is_hostile(ent, target)) + { + return 0; + } + } + + if (animation->followup.condition & FOLLOW_CONDITION_HOSTILE_ATTACKER_TRUE) + { + if (!faction_check_is_hostile(ent, target)) + { + return 0; + } + } + + /* Target is hostile toward us. */ + + if (animation->followup.condition & FOLLOW_CONDITION_HOSTILE_TARGET_FALSE) + { + if (faction_check_is_hostile(target, ent)) + { + return 0; + } + } + + if (animation->followup.condition & FOLLOW_CONDITION_HOSTILE_TARGET_TRUE) + { + if (!faction_check_is_hostile(target, ent)) + { + return 0; + } + } + + /* Lethal damage. */ + + if (animation->followup.condition & FOLLOW_CONDITION_LETHAL_FALSE) + { + if (target->energy_state.health_current <= 0) + { + return 0; + } + } + + if (animation->followup.condition & FOLLOW_CONDITION_LETHAL_TRUE) + { + if (target->energy_state.health_current > 0) + { + return 0; + } + } + + /* If all checks passed, return true. */ + + return 1; +} + +/* +* Caskey, Damon V. +* 2019-11-24 +* +* Attempt to perform follow up animation. +* If successful, sets entity animation to +* appropriate follow up and returns true. +*/ +int try_follow_up(entity *ent, entity *target, s_anim *animation, int didblock) +{ + animation_id_t animation_id = ANI_NONE; + + /* If we don't have a follow action, get out. */ + + if (!animation->followup.animation) + { + return 0; + } + + /* Must meet follow up conditions. */ + + if (!check_follow_up_condition(ent, target, animation, didblock)) + { + return 0; + } + + /* If we have the animation, then execute it now. */ + + animation_id = animfollows[animation->followup.animation - 1]; + + if (validanim(ent, animation_id)) + { + ent_set_anim(ent, animation_id, 1); + + return 1; + } + + return 0; +} + +/* +* Caskey, Damon V. +* 2019-12-03 +* +* Verify an attack meets conditions to trigger a counter action. +*/ +bool check_counter_condition(entity* target, entity* attacker, s_attack* attack_object, s_body* body_object) { + + s_counter_action* counter = &target->animation->counter_action; + int64_t force = 0; + + /* If there's no condition, get out now. */ + if (!counter->condition) { + return false; + } + + /* Verify in the frame range. */ + if (target->animpos < counter->frame.min || target->animpos > counter->frame.max) { + return false; + } + + /* Now we verify condition flags. */ + + /* Always is always... */ + if (counter->condition == COUNTER_ACTION_CONDITION_ANY) { + return true; + } + + /* In the back ? */ + if (counter->condition & COUNTER_ACTION_CONDITION_BACK_FALSE) { + if (target->direction == attacker->direction) { + return false; + } + } + + if (counter->condition & COUNTER_ACTION_CONDITION_BACK_TRUE) { + if (target->direction != attacker->direction) { + return false; + } + } + + /* We need defense object for subsequent checks. */ + const s_defense* defense_object = defense_find_current_object(target, body_object, attack_object->attack_type); + + /* Blockable ? */ + if (counter->condition & COUNTER_ACTION_CONDITION_BLOCK_FALSE) { + if (attack_object->no_block <= defense_object->blockpower) { + return false; + } + } + + if (counter->condition & COUNTER_ACTION_CONDITION_BLOCK_TRUE) { + if (attack_object->no_block > defense_object->blockpower) { + return false; + } + } + + /* Vs.lethal / non - lethal damage. */ + force = calculate_force_damage(target, attacker, attack_object, defense_object, FALSE); + + if (counter->condition & COUNTER_ACTION_CONDITION_DAMAGE_LETHAL_FALSE) { + if (target->energy_state.health_current <= force) { + return false; + } + } + + if (counter->condition & COUNTER_ACTION_CONDITION_DAMAGE_LETHAL_TRUE) { + if (target->energy_state.health_current > force) { + return false; + } + } + + /* Freeze attack ? */ + if (counter->condition & COUNTER_ACTION_CONDITION_FREEZE_FALSE) { + if (attack_object->freeze) { + return false; + } + } + + if (counter->condition & COUNTER_ACTION_CONDITION_FREEZE_TRUE) { + if (!attack_object->freeze) { + return false; + } + } + + /* Attacker hostile to us ? */ + if (counter->condition == COUNTER_ACTION_CONDITION_HOSTILE_ATTACKER_FALSE) { + if (faction_check_is_hostile(attacker, target)) { + return false; + } + } + + if (counter->condition == COUNTER_ACTION_CONDITION_HOSTILE_ATTACKER_TRUE) { + if (!faction_check_is_hostile(attacker, target)) { + return false; + } + } + + /* Hostile to attacker ? */ + if (counter->condition == COUNTER_ACTION_CONDITION_HOSTILE_TARGET_FALSE) { + if (faction_check_is_hostile(target, attacker)) { + return false; + } + } + + if (counter->condition == COUNTER_ACTION_CONDITION_HOSTILE_TARGET_TRUE) { + if (!faction_check_is_hostile(target, attacker)) { + return false; + } + } + + /* Passed all checks. We can return true. */ + return true; +} + +/* +* Caskey, Damon V. +* 2019-12-04 +* +* Attempt to perform counter action animation. +* If successful, sets entity animation to +* appropriate counter and returns true. +*/ +bool try_counter_action(entity* target, entity* attacker, s_attack* attack_object, s_body* body_object) { + + /* + * If we don't have a follow animation to use + * for counter, get out. + */ + + if (!target->animation->followup.animation) { + return false; + } + + /* Must meet counter action conditions. */ + + if (!check_counter_condition(target, attacker, attack_object, body_object)) { + return false; + } + + /* Take damage from attack ? */ + + if (target->animation->counter_action.damaged == COUNTER_ACTION_TAKE_DAMAGE_NORMAL) { + + /* We need the real damage. */ + const s_defense* defense_object = defense_find_current_object(target, body_object, attack_object->attack_type); + + const int64_t force = calculate_force_damage(target, attacker, attack_object, defense_object, FALSE); + + /* Revert lethal damage to 1. */ + if (target->energy_state.health_current - force <= 0) { + target->energy_state.health_current = 1; + + } else { + target->energy_state.health_current -= force; + } + } + + /* Set counter animation if we can. */ + + const animation_id_t current_follow_id = animfollows[target->animation->followup.animation - 1]; + + if (validanim(target, current_follow_id)) { + if (!target->modeldata.animation[current_follow_id]->attack_one) { + target->modeldata.animation[current_follow_id]->attack_one = target->animation->attack_one; + } + ent_set_anim(target, current_follow_id, 0); + } + + /* Flash spawn. */ + spawn_attack_flash(target, attack_object, attack_object->flash.model_block, target->modeldata.flash.model_block); + + return true; +} + +/* +* Caskey, Damon V. +* 2021-09-04 +* +* Update attack IDs to avoid single attack +* hitting on every update. Original concept +* of multiple attack IDs by Kratus. Migrated +* to array and encapsulated into function +* by DC. +*/ +void attack_update_id(entity* acting_entity, int attack_id) +{ + int i = 0; + int i_source = 0; + + /* + * Loop backward from highest element to second lowest. + * At each iteration, update the current attack ID + * element in array with value from element one lower + * in order. + * + * Ex: array[4] = array[3] + */ + for(i = MAX_ATTACK_IDS-1; i > 0; i--) + { + i_source = i - 1; + + acting_entity->attack_id_incoming[i] = acting_entity->attack_id_incoming[i_source]; + } + + /* Update element 0 with supplied ID. */ + acting_entity->attack_id_incoming[0] = attack_id; +} + +/* +* Caskey, Damon V. +* 2021-09-04 +* +* Compare supplied attack ID with existing +* attack IDs. Returns true if any match or +* if rule exceptions from attack or multihit +* are enabled. +*/ +int attack_id_check_match(entity* acting_entity, s_attack* attack_object, int attack_id, int multihit) +{ + int i = 0; + int max_id = MAX_ATTACK_IDS; + + /* + * Attack is allowed to ignore ID checks, so + * just return true now. + */ + if (attack_object->ignore_attack_id) + { + return 1; + } + + /* + * If mutihit is enabled, we only want + * check the first ID. Set our max to 1 + * so loop only runs for element 0. + */ + if (multihit) + { + max_id = 1; + } + + /* + * If any array element value matches supplied + * attack ID, we return true. + */ + for (i = 0; i < max_id; i++) + { + if (acting_entity->attack_id_incoming[i] == attack_id) + { + return 1; + } + } + + /* Couldn't find any match or exception. Return false. */ + return 0; +} + +/* +* Caskey, Damon V. +* 2026-07-23 +* +* Invoke legacy item collection with the +* collecting entity as self. +* +* didfind_item() does not yet accept the +* collector explicitly. Isolate that compatibility +*requirement here instead of exposing do_attack() to self. +*/ +static void do_attack_invoke_didfind_item(entity* target_entity, entity* item_entity) { + entity* previous_self = self; + + self = target_entity; + didfind_item(item_entity); + self = previous_self; +} + +void do_attack(entity *attacking_entity) { + int i = 0; + int64_t force = 0; + e_blocktype blocktype = BLOCK_TYPE_MP_FIRST; + entity* def = NULL; + entity* topowner = NULL; + entity* otherowner = NULL; + entity* target = NULL; + s_anim* current_anim = NULL; + s_attack* attack = NULL; + s_body* target_body_object = NULL; + const s_defense* defense_object = NULL; + bool didhit = false; // So a different sound effect can be played when an attack hits + bool didblock = false; // So a different sound effect can be played when an attack is blocked + e_block_state_flags block_state = BLOCK_STATE_NONE; + uint64_t current_attack_id = 0; + //int hit_detected = 0; // Has a hit been detected? + + +#define followed (current_anim!=attacking_entity->animation) + static uint64_t new_attack_id = 1; + + // Can't get hit after this + if(level_completed) { + return; + } + + topowner = attacking_entity; // trace the top owner, for projectile combo checking :) + while(topowner->owner) { + topowner = topowner->owner; + } + + // If any blast active, use indirect damage downstream. + const bool indirect = attacking_entity->projectile != BLAST_NONE ? true : false; + + // Every attack gets a unique ID to make sure no one + // gets hit more than once by the same attack + current_attack_id = attacking_entity->attack_id_outgoing; + + if(!current_attack_id) { + ++new_attack_id; + if(new_attack_id == 0) { + new_attack_id = 1; + } + attacking_entity->attack_id_outgoing = current_attack_id = new_attack_id; + } + + + current_anim = attacking_entity->animation; + + for(i = 0; i < ent_max && !followed; i++) { + target = ent_list[i]; + + if(!target->exists) { + continue; + } + + // Check collision. If a collision + // is found, the impacting + // collision pointers are also + // populated into lasthit, which + // we will use below. + if(!checkhit(attacking_entity, target)) { + continue; + } + + attack = lasthit.attack; + force = attack->attack_force; + target_body_object = lasthit.detect_collision_body->body; + defense_object = defense_find_current_object(target, target_body_object, attack->attack_type); + + // Verify target is alive. + if(target->death_state & DEATH_STATE_DEAD) { + continue; + } + + // Verify target is invincible, + // or attack type is an item. + // This is to allow item collection + // even while invincible. + if(target->invincible & INVINCIBLE_INTANGIBLE) { + if(attack->attack_type != ATK_ITEM) { + continue; + } + } + + // If attack is set to only hit + // one entity at a time (attack_one), + // we verify last hit (lasthit) is + // set. If last hit is set and + // differs from current target, + // then we are trying to hit + // another entity and should exit. + if(current_anim->attack_one) { + if(attacking_entity->lasthit) { + if(target != attacking_entity->lasthit) { + continue; + } + } + } + + /* + * Verify this is a faction we + * can hit. + */ + if (!faction_check_can_damage(attacking_entity, target, indirect)) { + continue; + } + + /* + * Pain time must have expired. + * This is to allow reasonable delay + * between hits so engine will not + * run hit on every update. + */ + if(target->next_hit_time >= _time) { + continue; + } + + // Target takedamage flag + // must be set. + if(!target->takedamage) { + continue; + } + + /* + * Avoid mutiple hits per update for a single collision. + * If any last incoming attack IDs match current attack ID + * then we exit iteration. + * + * Note that function includes exceptions for an attacks + * that ignore IDs and the global mutlihit cheat. + */ + const bool multihit_enabled = (global_config.cheats & CHEAT_OPTIONS_MULTIHIT_ACTIVE) != 0; + const bool attack_id_match = attack_id_check_match(target, attack, current_attack_id, multihit_enabled); + + if(attack_id_match) { + continue; + } + + // Target laying down? Exit if + // attack only hits standing targets. + // Otherwise exit if attack only hits + // grounded targets. + if(target->takeaction == common_lie) { + if(attack->otg == OTG_NONE) { + continue; + } + + } else { + if(attack->otg == OTG_GROUND_ONLY) { + continue; + } + } + + //printf("\n\n Check"); + + if(inair(target)) { + //printf("\n\n In air. \n\t Jugglecost: %d \n\t Jugglepoints: %d", attack->jugglecost, target->jugglepoints); + + if(attack->jugglecost > target->jugglepoints) { + //printf("\n\n Continue."); + continue; + } + } + + // Execute the doattack scripts so author can set take action + // before the hit code below does. + execute_ondoattack_script(target, attacking_entity, attack, EXCHANGE_RECIPIANT, current_attack_id); + execute_ondoattack_script(attacking_entity, target, attack, EXCHANGE_CONFERRER, current_attack_id); + + // 2010-12-31 + // Damon V. Caskey + + // If lasthit.confirm is not true, it must have been turned off by the author; almost + // certainly with the ondoattack event scripts above. Skip the engine's + // default hit handling below. Useful for scripting parry systems, alternate blocking, + // or other custom collision events. + if(lasthit.confirm) { + didhit = true; + + } else { + continue; + } + + otherowner = target; // trace top owner for opponent + while(otherowner->owner) { + otherowner = otherowner->owner; + } + + // Ensure projectile can't hit its owner. Important since projectile attack + // boxes usualy overlap owner's body boxes as the projectile is first thrown. + // Note if an author wants to add projectile reflection feature, they need to + // change the projectile's owner when reflect effect occurs, or the reflected + // projectile won't be able to hit its original owner. If they need to know the + // original owner after changing the owner property, they can check the parent + // property. + if(topowner == otherowner) { + didhit = false; + } + + //Ground missle checking, and bullets wont hit each other + + const bool both_owners_exist = attacking_entity->owner && target->owner; + const bool ground_attack_is_airborne = attacking_entity->modeldata.ground && inair(attacking_entity); + + if(both_owners_exist || ground_attack_is_airborne) { + didhit = false; + } + + // Blocking code section. + if(didhit) { + if(attack->attack_type == ATK_ITEM) { + do_item_script(target, attacking_entity); + + do_attack_invoke_didfind_item(target, attacking_entity); + return; + } + + /* + * Set bomb projectile to detonate status if it + * hits. Set to detonate if it takes a hit and + * has the "take hit" detonate animation. + * + * Bombs that don't have detonate animation take + * hits normally. + */ + + if(target->toexplode & EXPLODE_PREPARE_TOUCH) { + if (validanim(target, ANI_ATTACK2)) { + target->toexplode |= EXPLODE_DETONATE_DAMAGED; + } + } + + if(attacking_entity->toexplode & EXPLODE_PREPARE_TOUCH) { + attacking_entity->toexplode |= EXPLODE_DETONATE_HIT; + } + + /* + * Reduce available juggle points. + */ + if(inair(target)) { + target->jugglepoints -= attack->jugglecost; + } + + block_state = check_blocking_master(target, attacking_entity, attack, target_body_object); + didblock = (block_state & BLOCK_STATE_ACTIVE) != 0; + + // Blocking the attack? + if(didblock) { + // Perform the blocking actions. + do_passive_block(target, attacking_entity, attack, block_state); + + } else if(try_counter_action(target, attacking_entity, attack, target_body_object)) { // Counter action? + + /* Kratus(20 - 04 - 21) used by the multihit glitch memorization. */ + attack_update_id(target, current_attack_id); + + } else if(target->takedamage(target, attacking_entity, attack, 0, defense_object)) { + + + // This is the code block for normal hits. + // The hit was not blocked, countered, or + // otherwise nullified, and this entity + // has takedamage() function. Let's + // process the hit. + + execute_didhit_script(attacking_entity, target, attack, 0); + ++attacking_entity->animation->hit_count; + + attacking_entity->lasthit = target; + + // Flash spawn. + spawn_attack_flash(target, attack, attack->flash.model_hit, target->modeldata.flash.model_hit); + + // Add to owner's combo time. + topowner->combotime = _time + combodelay; + + // If equalairpause is set, inair(attacking_entity) is nolonger a condition for extra pausetime. + if(attacking_entity->pausetime < _time || (inair(attacking_entity) && !equalairpause)) { + // Adds pause to the current animation + attacking_entity->toss_time += attack->pause_add; // So jump height pauses in midair + attacking_entity->nextmove += attack->pause_add; // xdir, zdir + + attacking_entity->nextanim = animation_timestamp_add_bounded( + attacking_entity->nextanim, + attack->pause_add + ); + + attacking_entity->nextthink += attack->pause_add; // So anything that auto moves will pause + attacking_entity->pausetime = _time + attack->pause_add ; //UT: temporary solution + } + + target->toss_time += attack->pause_add; // So jump height pauses in midair + target->nextmove += attack->pause_add; // xdir, zdir + target->nextanim = animation_timestamp_add_bounded( + target->nextanim, + attack->pause_add + ); // Pause animation for a bit. + target->nextthink += attack->pause_add; // So anything that auto moves will pause + + } else { + // If we made it to this block the hit was + // not countered or blocked, but the entity + // does not have a takedamage() function. It + // therefore must be a type that is meant + // to ignore hits. + + didhit = false; + continue; + } + + // 2007 3 24, hmm, def should be like this + if(didblock && !def) { + def = target; + } + + // Attacker executes a follow up animation if it can. + try_follow_up(attacking_entity, target, attacking_entity->animation, didblock); + + /* Kratus(20 - 04 - 21) used by the multihit glitch memorization. */ + attack_update_id(target, current_attack_id); + + /* + * Utunnels + * 2011-11-24 UT + * + * Move the next_hit_time logic here, because block needs this + * as well. Otherwise, blockratio causes instant death + */ + target->next_hit_time = _time + (attack->next_hit_time ? attack->next_hit_time : (global_config.game_speed / 5)); + target->nextattack = 0; // reset this, make it easier to fight back + } + + } + + + // Did we get a hit? let's process it. + if(didhit) { + // Handle energy cost if attacking animation has any. + + // Caskey, Damon V. + // 2020-01-22 + // + // I'm honestly not sure how the legacy logic works. Will need to spend + // some more time breaking it down. + + if(current_anim->energy_cost.cost > 0) { + + // well, dont check player or not - UTunnels. TODO: take care of that health cheat + if(attacking_entity == topowner && nocost && !(global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE)) { + attacking_entity->tocost = 1; // Set flag so life is subtracted when animation is finished + + } else if(attacking_entity != topowner && nocost && !(global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE) && !attacking_entity->tocost) { // if it is not top, then must be a shot. + + if(current_anim->energy_cost.mponly != COST_TYPE_MP_THEN_HP && topowner->energy_state.mp_current > 0) { + + topowner->energy_state.mp_current -= current_anim->energy_cost.cost; + if(topowner->energy_state.mp_current < 0) { + topowner->energy_state.mp_current = 0; + } + + } else { + topowner->energy_state.health_current -= current_anim->energy_cost.cost; + + if(topowner->energy_state.health_current <= 0) { + topowner->energy_state.health_current = 1; + } + } + + // Little backwards, but set to 1 so cost doesn't get subtracted multiple times. + attacking_entity->tocost = 1; + } + } + + /* + * Caskey, Damon V. + * 2008-04-27 + * + * Added checks for defense property specific blockratio and type. + * Could probably use some cleaning. + */ + if(didblock && level->nohurt == DAMAGE_FROM_ENEMY_ON) { + + /* Gets total force after offense and defense adjustments. */ + force = calculate_force_damage(def, attacking_entity, attack, defense_object, true); + + /* + * Handle block type. Global blocktype is a + * legacy true/false set by "mpblock", so If + * our defense object defaults to global we + * will need to get the correct constant + * before we run downstream switch statement. + * + * True = MP then HP. + * False = HP. + */ + + if (defense_object->blocktype == BLOCK_TYPE_GLOBAL) { + blocktype = global_config.block_type ? BLOCK_TYPE_MP_FIRST : BLOCK_TYPE_HP; + + } else { + blocktype = defense_object->blocktype; + } + + switch (blocktype) { + case BLOCK_TYPE_GLOBAL: + case BLOCK_TYPE_HP: + /* + * Do nothing. This allows creators to overidde energy_cost + * mponly 1 with health only. + */ + break; + + case BLOCK_TYPE_MP_ONLY: + + def->energy_state.mp_current -= force; + force = 0; + + if(def->energy_state.mp_current < 0) { + def->energy_state.mp_current = 0; + } + + break; + + case BLOCK_TYPE_MP_FIRST: + + def->energy_state.mp_current -= force; + + /* + * If there isn't enough MP to cover force, subtract remaining + * MP from force and set MP to 0. + */ + if(def->energy_state.mp_current < 0) { + force = -def->energy_state.mp_current; + def->energy_state.mp_current = 0; + + } else { + force = 0; + } + + break; + + case BLOCK_TYPE_BOTH: + + def->energy_state.mp_current -= force; + + if(def->energy_state.mp_current < 0) { + def->energy_state.mp_current = 0; + } + + break; + } + + // Apply remaining damage force to HP after blocking calculations. + // + // 1. Damage force < HP: Subtract directly - Don't use take + // damage because we don't want a visible reaction in game. + // + // 2. Damage force > HP, but nochipdeath is enabled (meaning + // chip death is not allowed) - Set HP to 1. Again, we don't + // want a reaction. + // + // 3. Damage force > HP, chip death is allowed - Set take + // damage so engine will apply damage normally and KO the + // entity. + if(force < def->energy_state.health_current) { + def->energy_state.health_current -= force; + } else if(nochipdeath) { + def->energy_state.health_current = 1; + } else { + def->takedamage(def, attacking_entity, attack, 0, defense_object); + } + } + + // If the attack was not blocked, let's increment the + // attacker's combo counter and time. + if(!didblock) { + + topowner->rush.time = _time + (global_config.game_speed * rush[1]); + topowner->rush.count++; + + if(topowner->rush.count > topowner->rush.max && topowner->rush.count > 1) { + topowner->rush.max = topowner->rush.count; + } + } + + /* Choose the sound and playback speed for hit. */ + play_hit_impact_sound(attack, attacking_entity, didblock); + + /* + * If the auto kill flag is set, attacker + * kills itself instantly. Used mainly for + * projectiles. + */ + if(attacking_entity->autokill & AUTOKILL_ATTACK_HIT) { + kill_entity(attacking_entity, KILL_ENTITY_TRIGGER_AUTOKILL_ATTACK_HIT); + } + } +#undef followed +} + +/* +* Caskey, Damon V +* 2021-11-16 +* +* Play appropriate hit impact sound +* based on hit/block, attack force, +* and defined samples. +*/ +int play_hit_impact_sound(s_attack* attack_object, entity* attacking_entity, int attack_blocked) +{ +#define PLAYBACK_PRIORITY 0 +#define PLAYBACK_SPEED_MIN 60 +#define PLAYBACK_SPEED_MAX 100 +#define PLAYBACK_SPEED_MODIFIER 5 + + int sound_index = SAMPLE_ID_NONE; + int playback_speed = PLAYBACK_SPEED_MAX; + + /* + * Play the impact sound effect. + * + * 1. Attack blocked. + * a) Attack has block sound - play attack block sound. + * b) Attack does not have block sound - play global block sound. + * + * 2. Attacker is actually a "projectile" (as in, thrown or knocked + * through the air by a blasting attack) - play global indirect sound. + * + * 3. Typical attack hit. + * a) Attack has hit sound - play attack hit sound. + * b) Attack does not have hit sound - play global hit sound. + */ + + if (attack_blocked) + { + if (attack_object->blocksound >= 0) + { + sound_index = attack_object->blocksound; + } + else if (global_sample_list.block >= 0) + { + sound_index = global_sample_list.block; + } + } + else if (attacking_entity->projectile != BLAST_NONE && global_sample_list.indirect >= 0) + { + sound_index = global_sample_list.indirect; + } + else if (attack_object->hitsound >= 0) + { + sound_index = attack_object->hitsound; + + /* + * If noslofx is enabled, then just play sound at default speed. + * Otherwise, subtract 5 from damage force, and then subtract + * that result from default play speed. + * + * This has the effect of slowing down the sound playback as damage + * increases to give it a slightly lower tone and more impact. + */ + + playback_speed = PLAYBACK_SPEED_MAX - (noslowfx ? 0 : (attack_object->attack_force - PLAYBACK_SPEED_MODIFIER)); + + if (playback_speed > PLAYBACK_SPEED_MAX) + { + playback_speed = PLAYBACK_SPEED_MAX; + } + else if (playback_speed < PLAYBACK_SPEED_MIN) + { + playback_speed = PLAYBACK_SPEED_MIN; + } + } + + if (sound_index != SAMPLE_ID_NONE) + { + sound_play_sample(sound_index, PLAYBACK_PRIORITY, savedata.effectvol, savedata.effectvol, playback_speed); + } + + return sound_index; + +#undef PLAYBACK_PRIORITY +#undef PLAYBACK_SPEED_MIN +#undef PLAYBACK_SPEED_MAX +#undef PLAYBACK_SPEED_MODIFIER +} + +// it can be useful for next changes +/*static int is_obstacle_around(entity* ent, float threshold) +{ + int i, j; + int heightvar; + + if(ent->animation->size.y) + { + heightvar = ent->animation->size.y; + } + else + { + heightvar = ent->modeldata.size.y; + } + + for(i = -1; i <= 1; i++ ) + { + for(j = -1; j <= 1; j++ ) + { + int w; + entity *hito = find_ent_here(ent, ent->position.x+(i*threshold), ent->position.z+(j*threshold), (TYPE_OBSTACLE | TYPE_TRAP), NULL); + entity *hitp = check_platform_between(ent->position.x+(i*threshold), ent->position.z+(j*threshold), ent->position.y, ent->position.y + heightvar, ent); + int hitw = (int)( (w = checkwall_below(ent->position.x+(i*threshold), ent->position.z+(j*threshold), T_MAX_CHECK_ALTITUDE)) >= 0 && level->walls[w].height > ent->position.y ); + + if ( hito || hitp || hitw ) return 1; + } + } + + return 0; +}*/ + +// Caskey, Damon V. +// 2018-04-20 +// +// Go to landing frame if available. Also spawns an effect ("dust") entity if set. +bool check_landframe(entity *ent) +{ + entity *effect; + + s_onframe_set* land; + + land = &ent->animation->landframe; + + // Must have a landframe. + if(land->frame == FRAME_NONE) + { + return 0; + } + + // Can't be bound with a landframe override. + if(check_bind_override(ent, BIND_CONFIG_OVERRIDE_LANDFRAME)) + { + return 0; + } + + // Can't be passed over current animation's frame count. + if(land->frame > ent->animation->numframes) + { + return 0; + } + + // Can't be already at or passed land frame. + if(ent->animpos >= land->frame) + { + return 0; + } + + // If a land frame dust effect entity is set, let's spawn it here. + if(land->model_index >= 0) + { + effect = spawn(ent->position.x, ent->position.z, ent->position.y, ent->direction, NULL, land->model_index, NULL); + + if(effect) + { + effect->spawntype = SPAWN_TYPE_DUST_LAND; + effect->base = ent->position.y; + effect->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(effect); + } + } + + update_frame(ent, land->frame); + + return 1; +} + +// Caskey, Damon V. +// 2018-04-20 +// +// Go to landing frame if available. Also spawns an effect ("dust") entity if set. +bool check_frame_set_drop(entity* ent) +{ + entity* effect; + + s_onframe_set* drop; + + drop = &ent->animation->dropframe; + + // Dropframe set? + if (drop->frame == FRAME_NONE) + { + return 0; + } + + // Falling? + if (ent->velocity.y > 0) + { + return 0; + } + + /* Can't be bound with a drop frame override. */ + if (check_bind_override(ent, BIND_CONFIG_OVERRIDE_DROPFRAME)) + { + return 0; + } + + // Can't be passed over current animation's frame count. + if (drop->frame > ent->animation->numframes) + { + return 0; + } + + // Can't be already at or passed drop frame. + if (ent->animpos >= drop->frame) + { + return 0; + } + + // Passed all checks. Let's update frame and spawn model (if available). + + update_frame(ent, drop->frame); + + // If a frame set effect entity is set, let's spawn it here. + if (drop->model_index != MODEL_INDEX_NONE) + { + effect = spawn(ent->position.x, ent->position.z, ent->position.y, ent->direction, NULL, drop->model_index, NULL); + + if (effect) + { + effect->spawntype = SPAWN_TYPE_DUST_DROP; + effect->base = ent->position.y; + effect->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(effect); + } + } + + return 1; +} + + +int check_edge(entity *ent) +{ + float x = ent->position.x; + float z = ent->position.z; + float y = ent->position.y; + e_direction dir = ent->direction; + float height = 0.0f; + float t_alt = 1.0f, t_walkoff = 1.0f, t_edge_default = 8.0f; + float t_edge_x = t_edge_default, t_edge_z = t_edge_default / 2; + + if (ent->modeldata.edgerange.x > t_edge_x) t_edge_x = ent->modeldata.edgerange.x; + if (ent->modeldata.edgerange.z > t_edge_z) t_edge_z = ent->modeldata.edgerange.z; + + if(ent->animation->size.y) height = ent->animation->size.y; + else height = ent->modeldata.size.y; + + //test base + float base_left = checkbase(x - t_edge_x, z, y + t_walkoff, ent); + float base_right = checkbase(x + t_edge_x, z, y + t_walkoff, ent); + float base_up = checkbase(x, z - t_edge_z, y + t_walkoff, ent); + float base_down = checkbase(x, z + t_edge_z, y + t_walkoff, ent); + + entity *plat_left = check_platform_between(x - t_edge_x, z, y + t_walkoff, y + height, ent); + entity *plat_right = check_platform_between(x + t_edge_x, z, y + t_walkoff, y + height, ent); + entity *plat_up = check_platform_between(x, z - t_edge_z, y + t_walkoff, y + height, ent); + entity *plat_down = check_platform_between(x, z + t_edge_z, y + t_walkoff, y + height, ent); + + if ( (base_left < y - t_alt) && plat_left == NULL ) return EDGE_LEFT; + else if ( (base_right < y - t_alt) && plat_right == NULL ) return EDGE_RIGHT; + + // priority based on direction check + if (dir == DIRECTION_LEFT) + { + if ( (base_left < y - t_alt) && plat_left == NULL ) return EDGE_LEFT; + else if ( (base_right < y - t_alt) && plat_right == NULL ) return EDGE_RIGHT; + } + else + { + if ( (base_right < y - t_alt) && plat_right == NULL ) return EDGE_RIGHT; + else if ( (base_left < y - t_alt) && plat_left == NULL ) return EDGE_LEFT; + } + + if ( + ((base_up < y - t_alt) && plat_up == NULL) || + ((base_down < y - t_alt) && plat_down == NULL) + ) return EDGE_LEFT + EDGE_RIGHT; + + return EDGE_NONE; +} + +void check_gravity(entity *e) +{ + + int heightvar; + entity *other = NULL, *dust, *tempself, *plat = NULL; + float gravity; + float fmin, fmax; + + if(e->update_mark & UPDATE_MARK_CHECK_GRAVITY) + { + return; + } + + tempself = self; + self = e; + + adjust_base(self, &plat); + if (self->position.y <= self->base) self->edge = check_edge(self); // && self->idling & IDLING_ACTIVE + else self->edge = EDGE_NONE; + + if(!is_frozen(self) )// Incase an entity is in the air, don't update animations + { + if(self->animation->size.y) + { + heightvar = self->animation->size.y; + } + else + { + heightvar = self->modeldata.size.y; + } + + // White Dragon: turn-off the hitwall flag if you're not near a obstacle. this help to avoid a hit loop + /*if( (self->position.y <= self->base || !inair(self)) && self->velocity.y <= 0) + { + if ( self->hitwall && !is_obstacle_around(self,1.0) ) self->hitwall = 0; + }*/ + + if((self->falling || self->velocity.y || self->position.y != self->base) && self->toss_time <= _time) + { + if(heightvar && self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM && self->velocity.y > 0) + { + other = check_platform_above_entity(self); + } + else + { + other = NULL; + } + + if( other && other->position.y <= self->position.y + heightvar && !(other->modeldata.move_config_flags & MOVE_CONFIG_NO_HIT_HEAD)) + { + if(self->hithead == NULL) // bang! Hit the ceiling. + { + self->velocity.y = 0; + self->hithead = other; + execute_onblocky_script(self, other); + } + } + else + { + self->hithead = NULL; + } + + // gravity, antigravity factors + self->position.y += self->velocity.y * 100.0 / global_config.game_speed; + if(!(self->animation->move_config_flags & MOVE_CONFIG_SUBJECT_TO_GRAVITY)) + { + gravity = 0; + } + else + { + gravity = (level ? level->gravity : default_level_gravity) * (1.0 - self->modeldata.antigravity); + } + + if(self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_GRAVITY) + { + self->velocity.y += gravity * 100.0 / global_config.game_speed; + } + + fmin = (level ? level->maxfallspeed : default_level_maxfallspeed); + fmax = (level ? level->maxtossspeed : default_level_maxtossspeed); + + if(self->velocity.y < fmin) + { + self->velocity.y = fmin; + } + else if(self->velocity.y > fmax) + { + self->velocity.y = fmax; + } + + // Evaluate and apply drop frame settings if we have them. + check_frame_set_drop(self); + + if (self->velocity.y) + { + execute_onmovea_script(self); //Move A event. + } + + if( self->idling && validanim(self, ANI_WALKOFF) && diff(self->position.y, self->base) > T_WALKOFF ) + { + entity *cplat = check_platform_below(self->position.x,self->position.z-1.0,self->position.y,self); + + // White Dragon: fix for too low velocityz + if ( !cplat || (cplat && diff(get_platform_base(cplat),self->position.y) > T_WALKOFF) ) + { + self->idling = IDLING_NONE; + self->ducking = DUCK_NONE; + self->takeaction = common_walkoff; + ent_set_anim(self, ANI_WALKOFF, 0); + self->landed_on_platform = plat = NULL; + } + } + + // UTunnels: tossv <= 0 means land, while >0 means still rising, so + // you wont be stopped if you are passing the edge of a wall + if( self->position.y <= self->base || !inair(self)) + { + // 0+ means still rising. We need to be falling. + if(self->velocity.y <=0) + { + // No bind target, or binding set to ignore fall lands. + if(!check_bind_override(self, BIND_CONFIG_OVERRIDE_FALL_LAND)) + { + self->position.y = self->base; + self->falling = 0; + + if ( self->hitwall ) self->hitwall = 0; + + // cust dust entity + if(self->modeldata.dust.fall_land >= 0 && self->velocity.y < -1 && self->drop) + { + dust = spawn(self->position.x, self->position.z, self->position.y, self->direction, NULL, self->modeldata.dust.fall_land, NULL); + if(dust) + { + dust->spawntype = SPAWN_TYPE_DUST_FALL; + dust->base = self->position.y; + dust->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(dust); + } + } + + // bounce/quake + if(tobounce(self) && self->modeldata.bounce) + { + int i; + self->velocity.x /= self->animation->bounce_factor; + self->velocity.z /= self->animation->bounce_factor; + toss(self, (-self->velocity.y) / self->animation->bounce_factor); + if(level && !(self->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SCREEN)) + { + level->quake = 4; // Don't shake if specified + } + if(global_sample_list.fall >= 0) + { + sound_play_sample(global_sample_list.fall, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(self->modeldata.type & TYPE_PLAYER) + { + if (savedata.joyrumble[self->playerindex]) control_rumble(self->playerindex, 1, 100 * (int)self->velocity.y / 2); + } + for(i = 0; i < MAX_PLAYERS; i++) + { + if (savedata.joyrumble[i]) control_rumble(i, 1, 75 * (int)self->velocity.y / 2); + } + } + else if((!self->animation->move[self->animpos]->base || self->animation->move[self->animpos]->base < 0) && + (!self->animation->move[self->animpos]->axis.y || self->animation->move[self->animpos]->axis.y <= 0)) + { + self->velocity.x = 0; + self->velocity.z = 0; + self->velocity.y = 0; + } + else + { + self->velocity.y = 0; + } + + if(plat && !self->landed_on_platform && self->position.y <= plat->position.y + plat->animation->platform[plat->animpos][PLATFORM_HEIGHT]) + { + self->landed_on_platform = plat; + } + + // Set landing frame if we have one. + check_landframe(self); + + // Taking damage on a landing? + // Kratus (01-2024) Now the damage_on_landing is affected by infinite health cheat + // Kratus (02-2024) Minor fix to make health cheat affect players only + if(((self->modeldata.type & TYPE_PLAYER) && !(global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE))|| + !(self->modeldata.type & TYPE_PLAYER)) + { + checkdamageonlanding(self); + } + + // in case landing, set hithead to NULL + self->hithead = NULL; + } + } + }// end of if - land checking + }// end of if - in-air checking + + if(self->toss_time <= _time) + { + self->toss_time = _time + 1; + } + + }//end of if + + self->update_mark |= UPDATE_MARK_CHECK_GRAVITY; + + self = tempself; +} + +bool check_lost() { + + s_attack attack = emptyattack; + int osk = self->modeldata.offscreenkill ? self->modeldata.offscreenkill : DEFAULT_OFFSCREEN_KILL; + + if((self->position.z != ITEM_HIDE_POSITION_Z && (advancex - self->position.x > osk || self->position.x - advancex - videomodes.hRes > osk || + (level->scrolldir != SCROLL_UP && level->scrolldir != SCROLL_DOWN && (advancey - self->position.z + self->position.y > osk || self->position.z - self->position.y - advancey - videomodes.vRes > osk)) || + ((level->scrolldir == SCROLL_UP || level->scrolldir == SCROLL_DOWN) && (self->position.z - self->position.y < -osk || self->position.z - self->position.y > videomodes.vRes + osk)) ) ) + || self->position.y < 2 * PIT_DEPTH) { + + if(self->modeldata.type & TYPE_PLAYER) { + player_die(); + + } else { + kill_entity(self, KILL_ENTITY_TRIGGER_OUT_OF_BOUNDS); + } + return true; + } + + const s_defense* defense_object = defense_find_current_object(self, NULL, attack.attack_type); + + // fall into a pit + if(self->position.y < PIT_DEPTH) { + + if(!self->takedamage) { + kill_entity(self, KILL_ENTITY_TRIGGER_PIT); + + } else { + attack.dropv = default_model_dropv; + attack.attack_force = self->energy_state.health_current; + attack.attack_type = ATK_PIT; + + self->takedamage(self, self, &attack, 0, defense_object); + } + return true; + + } else if(self->lifespancountdown < 0) { //Lifespan expired. + + if(!self->takedamage) { + kill_entity(self, KILL_ENTITY_TRIGGER_LIFESPAN); + + } else { + attack.dropv = default_model_dropv; + attack.attack_force = self->energy_state.health_current; + attack.attack_type = ATK_LIFESPAN; + self->takedamage(self, self, &attack, 0, defense_object); + } + return true; + } + + // Doom count down + if(!is_frozen(self) && self->lifespancountdown != LIFESPAN_DEFAULT) { + self->lifespancountdown--; + } + + return false; +} + +// grab walk check +void check_link_move(float xdir, float zdir) +{ + float x, z, gx, gz; + int tryresult; + entity *tempself = self; + + gx = self->grabbing->position.x; + gz = self->grabbing->position.z; + x = self->position.x; + z = self->position.z; + self = self->grabbing; + tryresult = self->trymove(xdir, zdir); + self = tempself; + + if(tryresult != 1) // changed + { + xdir = self->grabbing->position.x - gx; + zdir = self->grabbing->position.z - gz; + } + tryresult = self->trymove(xdir, zdir); + if(tryresult != 1) + { + self->grabbing->position.x = self->position.x - x + gx; + self->grabbing->position.z = self->position.z - z + gz; + } +} + +/* +* Caskey, Damon V. +* 2022-04-21 +* +* Return true if currently in any +* active game or menu screen. +*/ +int check_in_screen() +{ + /* + * Check the screen status first. + * It should be faster. + */ + + if (screen_status & (IN_SCREEN_BUTTON_CONFIG_MENU | IN_SCREEN_SELECT | IN_SCREEN_TITLE | IN_SCREEN_HALL_OF_FAME | IN_SCREEN_GAME_OVER | IN_SCREEN_SHOW_COMPLETE | IN_SCREEN_SHOW_GO_ARROW | IN_SCREEN_ENGINE_CREDIT | IN_SCREEN_MENU | IN_SCREEN_GAME_START_MENU | IN_SCREEN_NEW_GAME_MENU | IN_SCREEN_LOAD_GAME_MENU | IN_SCREEN_OPTIONS_MENU | IN_SCREEN_CONTROL_OPTIONS_MENU | IN_SCREEN_SOUND_OPTIONS_MENU | IN_SCREEN_VIDEO_OPTIONS_MENU | IN_SCREEN_SYSTEM_OPTIONS_MENU)) + { + return 1; + } + + if (currentScene) + { + return 1; + } + + return 0; + +} + +void check_ai() +{ + if(self->nextthink <= _time && !endgame) + { + self->update_mark |= UPDATE_MARK_CHECK_AI; //mark it + + // take actions + if(self->takeaction) + { + self->takeaction(); + } + + // A.I. think + if(self->think) + { + if(self->nextthink <= _time) + { + self->nextthink = _time + THINK_SPEED; + } + // use noaicontrol flag to turn of A.I. think + if(!self->noaicontrol) + { + self->think(); + } + } + + // Execute think script + execute_think_script(self); + + // Used so all entities can have a spawn animation, and then just changes to the idle animation when done + // move here to so players wont get stuck + if((self->animation == self->modeldata.animation[ANI_SPAWN] || self->animation == self->modeldata.animation[ANI_RESPAWN]) && !self->animating /*&& (!inair(self)||!(self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_GRAVITY))*/) + { + set_idle(self); + } + } +} + +float check_basemap(int x, int z) +{ + float maxbase = 0, base = T_MIN_BASEMAP; + int i; + + if(!level) + { + return 0; + } + + for(i = 0; i < level->numbasemaps; i++) + { + if(x >= level->basemaps[i].position.x && x < level->basemaps[i].position.x + level->basemaps[i].size.x && + z >= level->basemaps[i].position.z && z < level->basemaps[i].position.z + level->basemaps[i].size.z) + { + base = level->basemaps[i].map[x - level->basemaps[i].position.x + level->basemaps[i].size.x * (z - level->basemaps[i].position.z)]; + if(base > maxbase) + { + maxbase = base; + } + } + } + return base == T_MIN_BASEMAP ? base : maxbase; +} + +int check_basemap_index(int x, int z) +{ + float maxbase = 0, base = T_MIN_BASEMAP; + int i, index = -1; + + if(!level) + { + return -1; + } + + for(i = 0; i < level->numbasemaps; i++) + { + if(x >= level->basemaps[i].position.x && x < level->basemaps[i].position.x + level->basemaps[i].size.x && + z >= level->basemaps[i].position.z && z < level->basemaps[i].position.z + level->basemaps[i].size.z) + { + base = level->basemaps[i].map[x - level->basemaps[i].position.x + level->basemaps[i].size.x * (z - level->basemaps[i].position.z)]; + if(base > maxbase) + { + maxbase = base; + index = i; + } + } + } + return base == T_MIN_BASEMAP ? -1 : index; +} + + + +void adjust_base(entity *acting_entity, entity **pla) +{ + int wall = WALL_INDEX_NONE; + int in_hole = 0; + int hole_index = HOLE_INDEX_NONE; + float seta = 0; + float maxbase = 0; + float base_adjust = 0.0; + entity* other = NULL; + entity* platform = NULL; + + if(acting_entity->velocity.y > 0) + { + acting_entity->landed_on_platform = NULL; + } + + /* + * If no platform found below entity + * then clear our local platform and + * the platform argument. + * + * If entity isn't subject to platform + * at all, then clear entity's last + * landed platform, platform parameter, + * and the local other entity. + */ + if(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM) + { + other = check_platform_below_entity(acting_entity); + if(!other && acting_entity->landed_on_platform) + { + *pla = NULL; + acting_entity->landed_on_platform = NULL; + } + } + else + { + *pla = NULL; + other = NULL; + acting_entity->landed_on_platform = NULL; + } + + if(other && !(other->update_mark & UPDATE_MARK_CHECK_GRAVITY)) + { + check_gravity(other); + } + + //no longer underneath? + if(acting_entity->landed_on_platform && !testplatform(acting_entity->landed_on_platform, acting_entity->position.x, acting_entity->position.z, NULL)) + { + *pla = acting_entity->landed_on_platform = NULL; + } + + if(other + && !acting_entity->landed_on_platform + && acting_entity->position.y <= other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT]) + { + acting_entity->landed_on_platform = other; + } + + if( (platform = acting_entity->landed_on_platform) ) + { + if(!(platform->update_mark & UPDATE_MARK_CHECK_GRAVITY)) + { + check_gravity(platform); + } + acting_entity->position.y = acting_entity->base = platform->position.y + platform->animation->platform[platform->animpos][PLATFORM_HEIGHT]; + } + + *pla = other; + + // adjust base + if (acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_ADJUST_BASE) + { + return; + } + + if (acting_entity->animation->move[acting_entity->animpos]->base) + { + seta = (float)acting_entity->animation->move[acting_entity->animpos]->base; + } + else + { + seta = -1; + } + + // Checks to see if entity is over a wall and or obstacle, and adjusts the base accordingly + //wall = checkwall_below(acting_entity->position.x, acting_entity->position.z); + //find a wall below us + if(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_WALL) + { + wall = checkwall_below(acting_entity->position.x, acting_entity->position.z, T_MAX_CHECK_ALTITUDE); + } + else + { + wall = WALL_INDEX_NONE; + } + /* + * If we can't adjust base, nothing downstream + * matters. Just exit. + */ + + if (acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_BASEMAP) + { + maxbase = check_basemap(acting_entity->position.x, acting_entity->position.z); + } + + /* + * Fall into a hole? + */ + + if(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_HOLE && + ((acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_BASEMAP && maxbase == T_MIN_BASEMAP) || !(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_BASEMAP)) + ) + { + in_hole = (wall < 0 && !other) ? checkhole_in(acting_entity->position.x, acting_entity->position.z, acting_entity->position.y) : 0; + + if (in_hole) + { + hole_index = checkholeindex_in(acting_entity->position.x, acting_entity->position.z, acting_entity->position.y); + + if (hole_index >= 0) + { + execute_inhole_script(acting_entity, &level->holes[hole_index], hole_index); + } + } + + if(seta < 0 && in_hole) + { + acting_entity->base = T_MIN_BASEMAP; + ent_unlink(acting_entity); + } + else if(!in_hole && acting_entity->base == T_MIN_BASEMAP) + { + if(acting_entity->position.y >= 0) + { + acting_entity->base = 0; + } + else + { + acting_entity->velocity.x = acting_entity->velocity.z = 0; // hit the hole border + } + } + } + + /* + * Apply platform, wall, and manual base + * adjustments. + */ + + if(acting_entity->base != T_MIN_BASEMAP || wall >= 0) + { + base_adjust = (seta + acting_entity->altbase >= 0) * (seta + acting_entity->altbase); + + /* + * If (wall > position Y) + * Explode. + * Else + * Adjust base. + */ + if(other != NULL && other != acting_entity) + { + acting_entity->base = base_adjust + other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT]; + } + else if(wall >= 0) + { + /* + * Bombs normally need to adjust base to control + * detonation when landing, but this has a side + * effect: Bombs that hit the side of walls or + * platforms instantly warp to the top of wall + * as they detonate. + * + * Legacy projectile wall bounce has a similar + * issue. + * + * To fix this, we check to see if wall is higher + * than current position of entities with their + * detonation flags on. If so, then reset entity + * base. + */ + + if ((acting_entity->toexplode & (EXPLODE_PREPARE_GROUND | EXPLODE_DETONATE_HIT) || acting_entity->modeldata.move_config_flags & MOVE_CONFIG_PROJECTILE_WALL_BOUNCE) && level->walls[wall].height > acting_entity->position.y) + { + acting_entity->base = 0; + } + else + { + acting_entity->base = base_adjust + level->walls[wall].height; + } + } + else if(seta >= 0) + { + acting_entity->base = base_adjust; + } + else if(!acting_entity->animation->move[acting_entity->animpos]->axis.y) + { + // No obstacle/wall or seta, so just set to 0 + acting_entity->base = 0; + } + } + + if(acting_entity->base != T_MIN_BASEMAP && maxbase > acting_entity->base) + { + acting_entity->base = maxbase; + // White Dragon: fix bug for floating entity on basemaps using a threshold + if (acting_entity->velocity.y <= 0 && acting_entity->position.y - acting_entity->base <= T_WALKOFF) + { + acting_entity->position.y = acting_entity->base; + } + //debug_printf("y:%f maxbase:%f",acting_entity->position.y,maxbase); + } +} + +// Caskey Damon V. +// 2018-04-08 +// +// If entity has a timed color set, check +// to see if colorset has expired. If so, +// revert to default colorset and clear +// the timer. +int colorset_timed_expire(entity *ent) +{ + // No color set time? Nothing to do. + if(!ent->maptime) + { + return 0; + } + + // If elapsed time has surpassed color + // set time, then color set time is expired. + // Revert entity back to default color set + // and reset the color set timer. + if(_time >= ent->maptime) + { + ent_set_colourmap(ent, ent->map); + ent->maptime = 0; + + return 1; + } + + // Color set _time was not expired. + return 0; +} + + +void update_animation() +{ + int f; + float scrollv = 0; + + if(level) + { + if(self->modeldata.facing == FACING_ADJUST_RIGHT || level->facing == FACING_ADJUST_RIGHT) + { + self->direction = DIRECTION_RIGHT; + } + else if(self->modeldata.facing == FACING_ADJUST_LEFT || level->facing == FACING_ADJUST_LEFT) + { + self->direction = DIRECTION_LEFT; + } + else if((self->modeldata.facing == FACING_ADJUST_LEVEL || level->facing == FACING_ADJUST_LEVEL) && (level->scrolldir & SCROLL_RIGHT)) + { + self->direction = DIRECTION_RIGHT; + } + else if((self->modeldata.facing == FACING_ADJUST_LEVEL || level->facing == FACING_ADJUST_LEVEL) && (level->scrolldir & SCROLL_LEFT)) + { + self->direction = DIRECTION_LEFT; + } + if(self->modeldata.type & TYPE_PANEL) + { + scrollv += self->modeldata.speed.x; + } + if(self->modeldata.scroll) + { + scrollv += self->modeldata.scroll; + } + if(scrollv) + { + self->position.x += scrolldx * scrollv; + if(level->scrolldir == SCROLL_UP) + { + scrollv = -scrollv; + } + self->position.y -= scrolldy * scrollv; + self->base = -99999; // temporary fix otherwise it won't go underground + } + } + + if(!(self->idling & IDLING_ACTIVE) || (self->animnum == ANI_SLEEP && !self->animating)) + { + self->sleeptime = _time + self->modeldata.sleepwait; + } + + // Invincible time has run out, turn off. + if(self->invincible != INVINCIBLE_NONE && _time >= self->invinctime) + { + self->invincible = INVINCIBLE_NONE; + self->blink = 0; + self->invinctime = 0; + self->arrowon = 0; + } + + if(self->freezetime && _time >= self->freezetime) + { + unfrozen(self); + } + + // Check for forced color set expiring. + colorset_timed_expire(self); + + if(self->sealtime && _time >= self->sealtime) //Remove seal, special moves are available again. + { + self->seal = 0; + } + // Reset their escapecount if they aren't being spammed anymore. + if(self->modeldata.escapehits && self->inpain == IN_PAIN_NONE) + { + self->escapecount = 0; + } + + /* + * Cycle frame if the frame time is not infinite + * and the nextanim time has been reached, or if + * the entity is a textbox and the player has + * pressed a key to skip the text. + */ + if((!(self->nextanim & DELAY_FLAG_INFINITE) + && self->nextanim <= _time) || + ((self->modeldata.type & TYPE_TEXTBOX) + && self->modeldata.subtype != SUBTYPE_NOSKIP + && (bothnewkeys + & (FLAG_JUMP + | FLAG_ATTACK + | FLAG_ATTACK2 + | FLAG_ATTACK3 + | FLAG_ATTACK4 + | FLAG_SPECIAL)))) { + + f = self->animpos + self->animating; + + //Specified loop break frame. + if(self->animation->loop.mode && self->animation->loop.frame.max) + { + if (f == self->animation->loop.frame.max) + { + if(f < 0) + { + f = self->animation->numframes - 1; + } + else + { + f = 0; + } + + if (self->animation->loop.frame.min) + { + f = self->animation->loop.frame.min; + } + } + else if((unsigned)f >= (unsigned)self->animation->numframes) + { + self->animating = ANIMATING_NONE; + + if(self->autokill & AUTOKILL_ANIMATION_COMPLETE) + { + kill_entity(self, KILL_ENTITY_TRIGGER_AUTOKILL_ANIMATION_COMPLETE_DEFINED_LOOP_MAX); + return; + } + } + } + else if((unsigned)f >= (unsigned)self->animation->numframes) + { + if(f < 0) + { + f = self->animation->numframes - 1; + } + else + { + f = 0; + } + + if(!self->animation->loop.mode) + { + self->animating = ANIMATING_NONE; + + if(self->autokill & AUTOKILL_ANIMATION_COMPLETE) + { + kill_entity(self, KILL_ENTITY_TRIGGER_AUTOKILL_ANIMATION_COMPLETE_UNDEFINED_LOOP_MAX); + return; + } + } + else + { + if (self->animation->loop.frame.min) + { + f = self->animation->loop.frame.min; + } + } + } + + if(self->animating) + { + //self->nextanim = _time + (self->animation->delay[f]); + self->update_mark |= UPDATE_MARK_UPDATE_ANIMATION; // frame updated, mark it + // just switch frame to f, if frozen, expand_time will deal with it well + update_frame(self, f); + bothnewkeys = 0; //stop mutiple skips. + } + } + +} + +void check_attack(void) { + s_collision_collection* collision_attack = NULL; + int animation_frame; + + /* + * Basic guards. + */ + if (!self || !self->animation) { + return; + } + + /* + * If falling, we don't attack unless + * in a projectile state (as in, thrown + * or blasted by another entity). This + * is how we handle throwing a guy into + * his buddies. + */ + if (self->falling && self->projectile == BLAST_NONE) { + self->attack_id_outgoing = 0; + return; + } + + /* + * On ground after drop. + */ + if (self->drop && !self->falling) { + self->attack_id_outgoing = 0; + return; + } + + /* + * Can't hit an opponent if frozen. + */ + if (is_frozen(self)) { + self->attack_id_outgoing = 0; + return; + } + + animation_frame = self->animpos; + + /* + * Protect animation frame table lookup. + */ + if (animation_frame < 0 || animation_frame >= self->animation->numframes) { + self->attack_id_outgoing = 0; + return; + } + + /* + * Attack collision table must exist, and this frame + * must have at least one active attack slot. + */ + if (self->animation->collision_attack) { + collision_attack = self->animation->collision_attack[animation_frame]; + + if (collision_attack && collision_attack->active_status) { + do_attack(self); + return; + } + } + + self->attack_id_outgoing = 0; +} + +// Caskey, Damon V. +// 2018-04-08 +// +// If actively charging, add energy to +// entity based on chargerate property +// and elapsed time. Returns 1 if +// energy was added, 0 otherwise. +int do_energy_charge(entity *ent) +{ + #define ENERGY_CHARGE_RATE 0.25 + + // Must be charging. + if (!ent->charging) + { + return 0; + } + + // Must be time for a charge tick. + if (_time < ent->mpchargetime) + { + return 0; + } + + // Add charge rate to current mp. + ent->energy_state.mp_current += ent->modeldata.chargerate; + + // Time for next charge tick. + ent->mpchargetime = _time + (global_config.game_speed * ENERGY_CHARGE_RATE); + + return 1; + + #undef ENERGY_CHARGE_RATE +} + + +void update_health() +{ + /* + * 12/30/2008: Guardrate by OX. Guardpoints increase over time. + * + * 2024-01-08, DC: Split max/current between model and + * entity. Remove some redudant code. + * + * Only bother recovering if guardpoints are set in + * the first place (model has guardpoint value > 0). + */ + if(self->modeldata.guardpoints > 0 && _time >= self->guardtime) + { + /* + * Recover guardpoints. Half rate if + * blocking. + */ + if((self->blocking & (BLOCK_STATE_ACTIVE | BLOCK_STATE_NATIVE)) + == (BLOCK_STATE_ACTIVE | BLOCK_STATE_NATIVE) + && !(self->blocking & BLOCK_STATE_IGNORE_GUARD_POINTS)) + { + self->guardpoints += (self->modeldata.guardrate / 2); + } + else + { + self->guardpoints += self->modeldata.guardrate; + } + + /* Cap to maximum. */ + if (self->guardpoints > self->modeldata.guardpoints) + { + self->guardpoints = self->modeldata.guardpoints; + } + + /* Reset guardtime. */ + self->guardtime = _time + global_config.game_speed; + } + + //Damage over time. + recursive_entity_effect_update(self); + + // this is for restoring mp by _time by tails + // Cleaning and addition of mpstable by DC, 08172008. + // stabletype 4 added by OX 12272008 + + if(magic_type == 0 && !self->charging) + { + if(_time >= self->magictime) + { + + // 1 Only recover MP > mpstableval. + // 2 No recover. Drop MP if MP < mpstableval. + // 3 Both: recover if MP < mpstableval and drop if MP > mpstableval. + // 4 Gain until stable, then fall to stable. + // 0 Default. Recover MP at all times. + + if (self->modeldata.mpstable == 1) + { + if (self->energy_state.mp_current < self->modeldata.mpstableval) + { + self->energy_state.mp_current += self->modeldata.mprate; + } + } + else if(self->modeldata.mpstable == 2) + { + if (self->energy_state.mp_current > self->modeldata.mpstableval) + { + self->energy_state.mp_current -= self->modeldata.mpdroprate; + } + } + else if (self->modeldata.mpstable == 3) + { + if (self->energy_state.mp_current < self->modeldata.mpstableval) + { + + self->energy_state.mp_current += self->modeldata.mprate; + } + else if (self->energy_state.mp_current > self->modeldata.mpstableval) + { + self->energy_state.mp_current -= self->modeldata.mpdroprate; + } + } + + // OX. Stabletype 4. Gain mp until it reaches max. Then it drops down to mpstableval. + else if (self->modeldata.mpstable == 4) + { + if(self->energy_state.mp_current <= self->modeldata.mpstableval) + { + self->modeldata.mpswitch = 0; + } + else if(self->energy_state.mp_current == self->modeldata.mp) + { + self->modeldata.mpswitch = 1; + } + + if(self->modeldata.mpswitch == 1) + { + self->energy_state.mp_current -= self->modeldata.mpdroprate; + } + else if(self->modeldata.mpswitch == 0) + { + self->energy_state.mp_current += self->modeldata.mprate; + } + } + else + { + self->energy_state.mp_current += self->modeldata.mprate; + } + + self->magictime = _time + global_config.game_speed; //Reset magictime. + } + } + + // Active MP charging? + do_energy_charge(self); + + /* Energy cheat keeps MP at maximum. */ + if (global_config.cheats & CHEAT_OPTIONS_ENERGY_ACTIVE && self->modeldata.type & TYPE_PLAYER) + { + self->energy_state.mp_current = self->modeldata.mp; + } + + if(self->energy_state.mp_current > self->modeldata.mp) + { + self->energy_state.mp_current = self->modeldata.mp; // Don't want to add more than the max + } + + if(self->energy_state.health_old < self->energy_state.health_current) + { + self->energy_state.health_old++; + } + else if(self->energy_state.health_old > self->energy_state.health_current) + { + self->energy_state.health_old--; + } + + if(self->energy_state.mp_old < self->energy_state.mp_current) + { + self->energy_state.mp_old++; + } + else if(self->energy_state.mp_old > self->energy_state.mp_current) + { + self->energy_state.mp_old--; + } +} + +/* ***** Binding ***** */ + +/* +* Caskey, Damon V. +* 2022-05-27 +* +* Allocate a bind property structure and return pointer. +*/ +s_bind* bind_allocate_object() +{ + s_bind* result; + size_t alloc_size; + + /* Get amount of memory we'll need. */ + alloc_size = sizeof(*result); + + /* Allocate memory and get pointer. */ + result = malloc(alloc_size); + + /* + * Make sure the data members are + * zero'd out. + */ + + memset(result, 0, alloc_size); + + result->object_type = OBJECT_TYPE_BIND; + + return result; +} + +/* +* Caskey, Damon V. +* 2022-05-27 +* +* Allocate new bind object with same values (but not +* same pointers) as received object. Returns pointer +* to new object. +*/ +s_bind* bind_clone_object(s_bind* source) +{ + s_bind* result = NULL; + + if (!source) + { + return result; + } + + result = bind_allocate_object(); + + /* + * Rather than do everything piecemeal, we'll memcopy + * to get all the basic values, and then overwrite + * members individually as needed. + */ + + memcpy(result, source, sizeof(*result)); + + return result; +} + +/* +* Caskey, Damon V +* 2022-05-27 +* +* Send all bind data to log for debugging. +*/ +void bind_dump_object(s_bind* object) { + + printf("\n\n -- Bind (%p) dump --", object); + + if (object) { + printf("\n\t ->animation: %d", object->animation); + printf("\n\t ->config: %" PRIu64, object->config); + printf("\n\t ->direction_adjust: %d", object->direction_adjust); + printf("\n\t ->frame: %d", object->frame); + printf("\n\t ->meta_data: %p", object->meta_data); + printf("\n\t ->meta_tag: %d", object->meta_tag); + printf("\n\t ->offset.x: %d", object->offset.x); + printf("\n\t ->offset.y: %d", object->offset.y); + printf("\n\t ->offset.z: %d", object->offset.z); + printf("\n\t ->sortid: %d", object->sortid); + printf("\n\t ->target: %p", object->target); + } + + printf("\n\n -- Bind (%p) dump complete... -- \n", object); +} + +/* +* Caskey, Damon V. +* 2022-05-27 +* +* Free bind properties from memory. +*/ +void bind_free_object(s_bind* object) +{ + free(object); +} + +/* +* Caskey, Damon V. +* 2022-05-06 +* +* Full rewrite of orginal function by uTunnels +* and its later modifications by me (Damon). +* +* Acting entity binds itself to a target +* depending on bind property settings. Also +* executes bind scripts for acting and target. +*/ +void adjust_bind(entity* acting_entity) { + + #define ADJUST_BIND_SET_ANIM_RESETABLE 1 + #define ADJUST_BIND_NO_FRAME_MATCH -1 + + int frame = 0; + animation_id_t animation = ANI_NONE; + + s_bind *const acting_bind = &acting_entity->binding; + + if (!acting_bind->target) { + return; + } + + execute_on_bind_update_other_to_self(acting_bind->target, acting_entity, acting_bind); + execute_on_bind_update_self_to_other(acting_entity, acting_bind->target, acting_bind); + + if (!acting_bind->target) { + return; + } + + const bind_config_t bind_config = acting_bind->config; + + /* + * Check config flags for removal. Legacy bindentity() + * used values 4 and 8 for animation and frame removal, + * respectively. These values are now defined as + * BIND_CONFIG_ANIMATION_REMOVE and BIND_CONFIG_ANIMATION_FRAME_REMOVE. + * The removal flags imply target matching for legacy + * bindentity() values 4 and 8, even when no explicit + * matching flag is set. + */ + if (bind_config & (BIND_CONFIG_ANIMATION_DEFINED + | BIND_CONFIG_ANIMATION_TARGET + | BIND_CONFIG_ANIMATION_REMOVE + | BIND_CONFIG_ANIMATION_FRAME_DEFINED + | BIND_CONFIG_ANIMATION_FRAME_TARGET + | BIND_CONFIG_ANIMATION_FRAME_REMOVE)) { + + /* + * If a defined value is requested, + * use the binding member value. + * Otherwise use target's current value. + */ + if (bind_config & BIND_CONFIG_ANIMATION_DEFINED) { + animation = acting_bind->animation; + } else { + animation = acting_bind->target->animnum; + } + + /* Are we NOT currently playing the target animation? */ + if (acting_entity->animnum != animation) { + + /* + * If we don't have the target animation + * and animation kill flag is set, then + * we kill ourselves and exit the function. + */ + if (!validanim(acting_entity, animation)) { + + /* Don't have the animation? Kill self. */ + if (bind_config & BIND_CONFIG_ANIMATION_REMOVE) { + kill_entity(acting_entity, KILL_ENTITY_TRIGGER_BIND_ANIMATION_MATCH); + } + + /* Cancel the bind and exit. */ + acting_entity->binding.target = NULL; + return; + } + + /* + * Made it this far, we must have the target + * animation, so let's apply it. + */ + ent_set_anim(acting_entity, animation, ADJUST_BIND_SET_ANIM_RESETABLE); + } + + + /* + * If a defined value is requested, + * use the binding member value. + * If target value is requested use + * target's current value (duh). + * if no frame match at all requested + * then set ADJUST_BIND_NO_FRAME_MATCH + * so frame matching logic is skipped. + */ + + if (bind_config & BIND_CONFIG_ANIMATION_FRAME_DEFINED) { + frame = acting_bind->frame; + } else if (bind_config & BIND_CONFIG_ANIMATION_FRAME_TARGET) { + frame = acting_bind->target->animpos; + } else { + frame = ADJUST_BIND_NO_FRAME_MATCH; + } + + /* + * Any frame match flag set? + */ + if (frame != ADJUST_BIND_NO_FRAME_MATCH) { + + /* Are we NOT currently playing the target frame ? */ + if (acting_entity->animpos != frame) { + + /* + * If we don't have the frame and frame kill flag is + * set, kill self. + */ + if ((acting_entity->animation->numframes -1) < frame) { + if (bind_config & BIND_CONFIG_ANIMATION_FRAME_REMOVE) { + + kill_entity(acting_entity, KILL_ENTITY_TRIGGER_BIND_FRAME_MATCH); + return; + } + } + + /* + * Made it this far, let's try to + * apply the frame. + */ + update_frame(acting_entity, frame); + } + } + } + + /* Apply sort ID adjustment. */ + acting_entity->sortid = acting_bind->target->sortid + acting_bind->sortid; + + /* Getand apply direction adjustment. */ + acting_entity->direction = direction_get_adjustment_result(acting_entity, acting_bind->target, acting_bind->direction_adjust); + + /* + * Apply positioning based on config. For + * the X axis, we invert adjustment when + * target faces left. + */ + + // X + const int offset_x = acting_bind->offset.x; + + if (bind_config & BIND_CONFIG_AXIS_X_TARGET) { + + const float target_x = acting_bind->target->position.x; + + if (acting_bind->target->direction == DIRECTION_LEFT) { + + acting_entity->position.x = target_x - (float)offset_x; + + } else { + + acting_entity->position.x = target_x + (float)offset_x; + + } + + } else if (bind_config & BIND_CONFIG_AXIS_X_LEVEL) { + + acting_entity->position.x = (float)offset_x; + + } + + // Y + const int offset_y = acting_bind->offset.y; + + if (bind_config & BIND_CONFIG_AXIS_Y_TARGET) { + + acting_entity->position.y = acting_bind->target->position.y + (float)offset_y; + + } else if (bind_config & BIND_CONFIG_AXIS_Y_LEVEL) { + + acting_entity->position.y = (float)offset_y; + + } + + // Z + const int offset_z = acting_bind->offset.z; + + if (bind_config & BIND_CONFIG_AXIS_Z_TARGET) { + + acting_entity->position.z = acting_bind->target->position.z + (float)offset_z; + + } else if (bind_config & BIND_CONFIG_AXIS_Z_LEVEL) { + + acting_entity->position.z = (float)offset_z; + + } + + #undef ADJUST_BIND_SET_ANIM_RESETABLE + #undef ADJUST_BIND_NO_FRAME_MATCH +} + +/* +* Caskey, Damon V. +* 2021-08-24 +* +* Read a text argument for direction and output +* appropriate direction constant. If input is +* legacy integer, we just pass it on. +*/ +e_direction direction_get_direction_from_argument(const char* filename, const char* command, const char* value) { + e_direction result = DIRECTION_NONE; + + if (stricmp(value, "left") == 0) { + result = DIRECTION_LEFT; + } else if (stricmp(value, "right") == 0) { + result = DIRECTION_RIGHT; + } else { + /* Just pass through for legacy integer. */ + result = getValidInt(value, filename, command); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2021-08-24 +* +* Read a text argument for direction and output +* appropriate direction adjustment constant. If +* input is legacy integer, we just pass it on. +*/ +e_direction_adjust direction_get_adjustment_from_argument(const char* filename, const char* command, const char* value) { + e_direction_adjust result = DIRECTION_ADJUST_NONE; + + if (stricmp(value, "left") == 0) { + result = DIRECTION_ADJUST_LEFT; + } else if (stricmp(value, "none") == 0) { + result = DIRECTION_ADJUST_NONE; + } else if (stricmp(value, "opposite") == 0) { + result = DIRECTION_ADJUST_OPPOSITE; + } else if (stricmp(value, "right") == 0) { + result = DIRECTION_ADJUST_RIGHT; + } else if (stricmp(value, "same") == 0) { + result = DIRECTION_ADJUST_SAME; + } else if (stricmp(value, "toward") == 0) { + result = DIRECTION_ADJUST_TOWARD; + } else if (stricmp(value, "away") == 0) { + result = DIRECTION_ADJUST_AWAY; + } else { + result = getValidInt(value, filename, command); + } + + return result; +} + +// Caskey, Damon V. +// 2018-10-13 +// +// Return an adjusted entity direction based +// on original direction, target direction +// and direction adjust setting. +e_direction direction_get_adjustment_result(entity* acting_entity, const entity* target_entity, const e_direction_adjust adjustment) +{ + if (!acting_entity || !target_entity) + { + borShutdown(1, "direction_get_adjustment_result() was passed a NULL pointer."); + } + + const e_direction acting_direction = acting_entity->direction; + const e_direction target_direction = target_entity->direction; + + const float acting_position_x = acting_entity->position.x; + const float target_position_x = target_entity->position.x; + + // Apply direction adjustment. + switch (adjustment) + { + default: + case DIRECTION_ADJUST_NONE: + + // Use original direction. + return acting_direction; + break; + + case DIRECTION_ADJUST_SAME: + + // Same as target direction. + return target_direction; + break; + + case DIRECTION_ADJUST_OPPOSITE: + + // Opposite of target direction. + if (target_direction == DIRECTION_LEFT) + { + return DIRECTION_RIGHT; + } + else + { + return DIRECTION_LEFT; + } + + break; + + case DIRECTION_ADJUST_RIGHT: + + return DIRECTION_RIGHT; + break; + + case DIRECTION_ADJUST_LEFT: + + return DIRECTION_LEFT; + break; + + case DIRECTION_ADJUST_TOWARD: + + if (acting_position_x < target_position_x) + { + return DIRECTION_RIGHT; + } + else if (acting_position_x > target_position_x) + { + return DIRECTION_LEFT; + } + else + { + return acting_direction; + } + + break; + + case DIRECTION_ADJUST_AWAY: + + if (acting_position_x < target_position_x) + { + return DIRECTION_LEFT; + } + else if (acting_position_x > target_position_x) + { + return DIRECTION_RIGHT; + } + else + { + return acting_direction; + } + + break; + } +} + +/* +* Caskey, Damon V. +* 2018-09-08 +* +* Return true if the target entity has a valid +* bind target and match for the override argument. +*/ +bool check_bind_override(entity *ent, bind_config_t bind_config) { + + if(ent->binding.target) { + if(ent->binding.config & bind_config) { + return TRUE; + } + } + + return FALSE; +} + +void check_move(entity *e) +{ + float x, z; + entity *plat, *tempself; + + if((e->update_mark & UPDATE_MARK_CHECK_MOVE)) + { + return; + } + tempself = self; + self = e; + + x = self->position.x; + z = self->position.z; + + // check moving platform + if((plat = self->landed_on_platform) ) // on the platform? + { + //update platform first to get actual movex and movez + if(!(plat->update_mark & UPDATE_MARK_CHECK_MOVE)) + { + check_move(plat); + } + if(plat->movex || plat->movez) + { + if(self->trymove) + { + if(self->grabbing) + { + check_link_move(plat->movex, plat->movez); + } + else if(!self->link) + { + self->trymove(plat->movex, plat->movez); + } + } + else + { + self->position.x += plat->movex; + self->position.z += plat->movez; + } + } + } + if(!is_frozen(self) ) + { + if(self->nextmove <= _time && (self->movex || self->movez) ) + { + if(self->trymove) + { + // only do linked move while grabwalking for now, + // otherwise some grab moves that use move/movez command may act strangely + if(self->grabbing && self->grabwalking) + { + check_link_move(self->movex, self->movez); + } + else// if(!self->link || self->grabbing) + { + if(1 != self->trymove(self->movex, self->movez) && self->idling) + { + self->pathblocked += _time % 2; + } + else + { + self->pathblocked = 0; + } + } + } + else + { + self->position.x += self->movex; + self->position.z += self->movez; + } + } + if(self->nextmove <= _time) + { + self->nextmove = _time + 1; + } + + } + self->movex = self->position.x - x; + self->movez = self->position.z - z; + self->update_mark |= UPDATE_MARK_CHECK_MOVE; + self = tempself; +} + +void ent_post_update(entity *e) { + + check_gravity(e);// check gravity + //check_entity_collision_for(e); + check_move(e); +} + +// arrange the list and reduce its length +void arrange_ents() { + + int i, ind = -1; + entity *temp; + + if(ent_count == 0) { + return; + } + + /* + * Finish movement for every entity before + * resolving binds. Movement may change a + * bind target's animation, such as entering + * ANI_HITWALL, and all bound entities must + * observe the completed target state regardless + * of their order in ent_list. + */ + for(i = 0; i < ent_max; i++) { + if(ent_list[i]->exists) { + ent_post_update(ent_list[i]); + } + } + + /* + * Resolve binding after all target movement + * and animation changes. + */ + for(i = 0; i < ent_max; i++) { + if(ent_list[i]->exists) { + adjust_bind(ent_list[i]); + } + } + + if(ent_max != ent_count) { + + for(i = 0; i < ent_max; i++) { + + if(!ent_list[i]->exists && ind < 0) { + + ind = i; + + } else if(ent_list[i]->exists && ind >= 0) { + temp = ent_list[i]; + ent_list[i] = ent_list[ind]; + ent_list[ind] = temp; + ind++; + } + } + ent_max = ent_count; + } + + for(i = 0; i < ent_max; i++) { + ent_list[i]->movex = ent_list[i]->movez = 0; + } +} + +// Update all entities that wish to think or animate in this cycle. +// All loops are separated because "self" might die during a pass. +void update_ents() +{ + int i; + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && _time != ent_list[i]->timestamp)// dont update fresh entity + { + self = ent_list[i]; + self->update_mark = UPDATE_MARK_NONE; + if(level) + { + check_lost(); // check lost caused by level scrolling or lifespan + } + if(!self->exists) + { + continue; + } + // expand _time incase being frozen + if(is_frozen(self)) + { + expand_time(self); + } + else + { + + execute_updateentity_script(self);// execute a script + if(!self->exists) + { + continue; + } + check_ai();// check ai + if(!self->exists) + { + continue; + } + update_animation(); // if not frozen, update animation + if(!self->exists) + { + continue; + } + check_attack();// Collission detection + if(!self->exists) + { + continue; + } + update_health();// Update displayed health + self->movex += self->velocity.x * self->speedmul * (100.0 / global_config.game_speed); + self->movez += self->velocity.z * self->speedmul * (100.0 / global_config.game_speed); + } + } + }//end of for + arrange_ents(); + /* + if(time>=nextplan){ + plan(); + nextplan = time+global_config.game_speed/2; + }*/ +} + + +void display_ents() +{ + unsigned f; + int i, z, wall = 0, wall2; + entity *e = NULL; + entity *other = NULL; + int qx; + int qy; + int sy; + int sz; + int alty; + int in_air; + int sortid; + float basemap; + float temp1, temp2; + int useshadow = 0; + int can_mirror = 0; + int shadowz; + s_drawmethod *drawmethod = NULL; + s_drawmethod commonmethod; + s_drawmethod shadowmethod; + int use_mirror = (level && level->mirror); + + int o_scrx = screenx, o_scry = screeny, scrx, scry; + + if(level) + { + shadowz = SHADOW_Z; + } + else + { + shadowz = MIN_INT + 100; + } + + for(i = 0; i < ent_max; i++) + { + if(ent_list[i] && ent_list[i]->exists) + { + e = ent_list[i]; + // in a loop need to initialize to reset prev val. to avoid bugs. + z = basemap = qx = qy = sy = sz = alty = sortid = temp1 = temp2 = 0; + + if(Script_IsInitialized(e->scripts->ondraw_script)) + { + ent_stack[ent_stack_size++] = e; + } + //if(!e->exists) continue; // just in case kill is called in the script + + /* + * If we have status, draw to screen (ex. boss life). + */ + + if(e->modeldata.hud_popup) + { + drawenemystatus(e); + } + + sortid = e->sortid; + scrx = o_scrx - ((e->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SELF) ? 0 : gfx_x_offset); + scry = o_scry - ((e->modeldata.quake_config & QUAKE_CONFIG_DISABLE_SELF) ? 0 : gfx_y_offset); + + if(freezeall || !(e->blink && (_time % (global_config.game_speed / 10)) < (global_config.game_speed / 20))) + { + float eheight = T_WALKOFF, eplatheight = 0; + + // get the height of the entity + if ( e->animation->platform ) + { + s_anim *anim = e->animation; + + if (anim->platform[e->animpos][PLATFORM_HEIGHT]) + { + eplatheight += anim->platform[e->animpos][PLATFORM_HEIGHT]; + } + + } + if ( e->modeldata.size.y && eplatheight <= 0 ) eheight += e->modeldata.size.y; + else eheight += eplatheight; + + // If special is being executed, display all entities regardless + f = e->animation->sprite[e->animpos]; + + //other = check_platform(e->position.x, e->position.z, e); + other = check_platform_below(e->position.x, e->position.z, e->position.y+eheight, e); + wall = checkwall_index(e->position.x, e->position.z); + + if (e->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_BASEMAP) + { + basemap = check_basemap(e->position.x, e->position.z); + } + + if(f < sprites_loaded) + { + // var "z" takes into account whether it has a setlayer set, whether there are other entities on + // the same "z", in which case there is a layer offset, whether the entity is on an obstacle, and + // whether the entity is grabbing someone and has grabback set + + z = (int)e->position.z; // Set the layer offset + + if(other && e->position.y >= other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT] && !other->modeldata.setlayer) + { + float zdepth = (float)( (float)e->position.z - (float)other->position.z + + (float)other->animation->platform[other->animpos][PLATFORM_DEPTH] - + (float)other->animation->platform[other->animpos][PLATFORM_Z] ); + + if( + e->link // Linked to entity. + && ((e->modeldata.grabback && !e->grabbing) // Have grab back AND not grabbing. + || (e->link->modeldata.grabback && e->link->grabbing) // Linked has grab back and is grabbing. + || e->grabbing) // Grabbing. + ) + { + + // Make sure entities get displayed in front of obstacle and grabbee + sortid = other->sortid + zdepth + 2; + e->sortid = sortid; + z = (int)( other->position.z + 2 ); + } + + else + { + //if ( e->model->type == TYPE_PLAYER ) debug_printf("zdepth: %f",zdepth); + + // Entity should always display in front of the obstacle + sortid = other->sortid + zdepth + 1; + e->sortid = sortid; + z = (int)( other->position.z + 1 ); + } + + } + + // In most cases we want any spawned entity to + // default in front of owner. + if(e->owner) + { + // If this entity is not an exception to the rule, + // move its display order in front of owner. + if (!(self->modeldata.aimove & AIMOVE1_STAR)) + { + sortid = e->owner->sortid + 1; + } + } + + if(e->modeldata.setlayer) + { + z = HOLE_Z + e->modeldata.setlayer; // Setlayer takes precedence + } + + drawmethod = e->animation->drawmethods ? getDrawMethod(e->animation, e->animpos) : NULL; + + if(e->drawmethod->config & DRAWMETHOD_CONFIG_ENABLED) + { + drawmethod = (e->drawmethod); + } + if(!drawmethod) + { + commonmethod = plainmethod; + } + else + { + commonmethod = *drawmethod; + } + drawmethod = &commonmethod; + + if(e->modeldata.alpha >= 1 && e->modeldata.alpha <= MAX_BLENDINGS) + { + if(drawmethod->alpha == BLEND_MODE_MODEL) + { + drawmethod->alpha = e->modeldata.alpha; + } + } + + // Color selection. If drawmethod does not yet have a color table pointer, then + // we need to find one here. + if(!drawmethod->table) + { + // Drawmethod remap by index. Is there a value? + if(drawmethod->remap >= 1) + { + // Does the value fall within range of tables loaded? If so, use + // value to locate the color table by index, and then populate + // drawmethod table value with the color table pointer. + if (drawmethod->remap <= e->modeldata.maps_loaded) + { + drawmethod->table = model_get_colourmap(&(e->modeldata), drawmethod->remap); + } + } + + // Color selection by entity property. Does it have a value? Note that script functions + // and most text values in OpenBOR give the appearance this property is an integer index. + // In actuality those functions accept an index, but immediately use it to locate a color + // table pointer to populate this property. See ent_set_colourmap. + if(e->colourmap) + { + // We don't want to override drawmethods, so first check drawmethod + // remap to make sure it is disabled (0 = force default, 1+ force alternates). + // If it is (dsiabled) then use property value to populate drawmethod table. + if(drawmethod->remap < 0) + { + drawmethod->table = e->colourmap; + } + } + + // If we haven't populated the drawmethod table yet, use + // model's default color table. + if(!drawmethod->table) + { + drawmethod->table = e->modeldata.palette; + } + + // If globalmap is true, then author wants entity to use the current + // global color table. + if(e->modeldata.globalmap) + { + // If we are in a level and the level has a palette index specified, + // then use that index to find the color table pointer and populate + // drawmethod table. Otherwise, just get the global color table pointer. + if(level && current_palette) + { + drawmethod->table = level->palettes[current_palette - 1]; + } + else + { + drawmethod->table = pal; + } + } + } + + // If we have a dying remap, let's check for the dying flash effect. + if(e->dying) + { + // This checks against both dying percentage thresholds and their associated + // timing. If any pass, then we can move on and apply a flash. + if((e->energy_state.health_current <= e->per1 && e->energy_state.health_current > e->per2 && (_time % (global_config.game_speed / 5)) < (global_config.game_speed / 10)) || + (e->energy_state.health_current <= e->per2 && (_time % (global_config.game_speed / 10)) < (global_config.game_speed / 20))) + { + // Have any HP left? + if(e->energy_state.health_current > 0 ) + { + // Do we have a second dying map? If not, we just use map 1. + if(e->dying2 > 0) + { + // If health is between percentage 1 and 2, use map 1. Otherwise + // use map 2. + if(e->energy_state.health_current <= e->per1 && e->energy_state.health_current > e->per2) + { + drawmethod->table = model_get_colourmap(&(e->modeldata), e->dying); + } + else if(e->energy_state.health_current <= e->per2) + { + drawmethod->table = model_get_colourmap(&(e->modeldata), e->dying2); + } + } + else + { + drawmethod->table = model_get_colourmap(&(e->modeldata), e->dying); + } + } + } + } + + // Draw the entity according to its facing. + if(e->direction == DIRECTION_LEFT) + { + // Reverse the drawmethod flipx. + drawmethod->config ^= DRAWMETHOD_CONFIG_FLIP_X; + + // If the flip rotate is enabled, reverse the + // rotation setting. + if(drawmethod->config & DRAWMETHOD_CONFIG_FLIP_ROTATE && drawmethod->rotate) + { + drawmethod->rotate = 360 - drawmethod->rotate; + } + } + + // don't display if behind the mirror + if(!use_mirror || z > MIRROR_Z) + { + //just a simple check, doesn't work with mirror nor gfxshadow + if(drawmethod->clipw) + { + drawmethod->clipx += (int)(e->position.x - scrx); + drawmethod->clipy += (int)(e->position.z - e->position.y - scry); + } + spriteq_add_sprite((int)(e->position.x - scrx), (int)(e->position.z - e->position.y - scry), z, f, drawmethod, sortid); + } + + can_mirror = (use_mirror && self->position.z > MIRROR_Z); + if(can_mirror) + { + spriteq_add_sprite((int)(e->position.x - scrx), (int)((2 * MIRROR_Z - e->position.z) - e->position.y - scry), 2 * PANEL_Z - z , f, drawmethod, ent_list_size * 100 - sortid); + } + }//end of if(fshadow_config_flags & SHADOW_CONFIG_DISABLED)) + { + if (e->shadow_config_flags & (SHADOW_CONFIG_GRAPHIC_REPLICA_AIR | SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND) && f < sprites_loaded) //gfx shadow + { + useshadow = (e->animation->shadow ? e->animation->shadow[e->animpos] : 1) && shadowcolor && light.y; + //printf("\n %d, %d, %d\n", shadowcolor, light.x, light.y); + + if (useshadow && e->position.y >= 0) + { + in_air = inair(e); + + if ((e->shadow_config_flags & SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND && !in_air) || (e->shadow_config_flags & SHADOW_CONFIG_GRAPHIC_REPLICA_AIR && in_air)) + { + wall = checkwall_below(e->position.x, e->position.z, e->position.y); + if (wall < 0) + { + alty = (int)e->position.y; + temp1 = -1 * e->position.y * light.x / 256; // xshift + temp2 = (float)(-alty * light.y / 256); // zshift + qx = (int)(e->position.x - scrx/* + temp1*/); + qy = (int)(e->position.z - scry/* + temp2*/); + } + else + { + alty = (int)(e->position.y - level->walls[wall].height); + temp1 = -1 * (e->position.y - level->walls[wall].height) * light.x / 256; // xshift + temp2 = (float)(-alty * light.y / 256); // zshift + qx = (int)(e->position.x - scrx/* + temp1*/); + qy = (int)(e->position.z - scry /*+ temp2*/ - level->walls[wall].height); + } + + wall2 = checkwall_below(e->position.x + temp1, e->position.z + temp2, e->position.y); // check if the shadow drop into a hole or fall on another wall + + if (other && other != e && e->position.y >= other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT] && !(e->shadow_config_flags & SHADOW_CONFIG_BASE_STATIC)) + { + alty = (int)(e->position.y - (other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT])); + temp1 = -1 * (e->position.y - (other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT])) * light.x / 256; // xshift + temp2 = -e->position.y * light.y / 256; + + qx = (int)(e->position.x - scrx); + qy = (int)(e->position.z - scry - other->position.y - other->animation->platform[other->animpos][PLATFORM_HEIGHT]); // + (other->animation->platform[other->animpos][PLATFORM_DEPTH]/2) + //qy = (int)( e->position.z - e->position.y - scry + (e->position.y-e->base) ); + } + + if (basemap > 0 && !(e->shadow_config_flags & SHADOW_CONFIG_BASE_STATIC)) + { + alty = (int)(e->position.y - basemap); + temp1 = -1 * (e->position.y - basemap) * light.x / 256; // xshift + temp2 = (float)(-alty * light.y / 256); // zshift + qx = (int)(e->position.x - scrx); + qy = (int)(e->position.z - scry - basemap); + } + + //TODO check platforms, don't want to go through the entity list again right now // && !other after wall2 + if (!(checkhole(e->position.x + temp1, e->position.z + temp2) && wall2 < 0 && !other)) //&& !(wall>=0 && level->walls[wall].height>e->position.y)) + { + if (wall >= 0 && wall2 >= 0) + { + alty += (int)(level->walls[wall].height - level->walls[wall2].height); + /*qx += -1*(level->walls[wall].height-level->walls[wall2].height)*light.x/256; + qy += (level->walls[wall].height-level->walls[wall2].height) - (level->walls[wall].height-level->walls[wall2].height)*light.y/256;*/ + } + else if (wall >= 0) + { + alty += (int)(level->walls[wall].height); + /*qx += -1*level->walls[wall].height*light.x/256; + qy += level->walls[wall].height - level->walls[wall].height*light.y/256;*/ + } + else if (wall2 >= 0) + { + alty -= (int)(level->walls[wall2].height); + /*qx -= -1*level->walls[wall2].height*light.x/256; + qy -= level->walls[wall2].height - level->walls[wall2].height*light.y/256;*/ + } + + /*if (other) + { + alty += (int)(other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT]); + }*/ + + // set 2D-LIKE shadow + if ((e->shadow_config_flags & SHADOW_CONFIG_BASE_PLATFORM)) alty = temp1 = temp2 = 0; + + sy = (2 * MIRROR_Z - qy) - 2 * scry; + + if (other && !(e->shadow_config_flags & SHADOW_CONFIG_BASE_STATIC)) z = other->position.z + 1; + else z = shadowz; + + sz = PANEL_Z - HUD_Z; + + if (e->animation->shadow_coords) + { + if (e->direction == DIRECTION_RIGHT) + { + qx += e->animation->shadow_coords[e->animpos][0]; + } + else + { + qx -= e->animation->shadow_coords[e->animpos][0]; + } + qy += e->animation->shadow_coords[e->animpos][1]; + sy -= e->animation->shadow_coords[e->animpos][1]; + } + shadowmethod = plainmethod; + shadowmethod.fillcolor = (shadowcolor > 0 ? shadowcolor : 0); + shadowmethod.alpha = shadowalpha; + shadowmethod.channelb = shadowmethod.channelg = shadowmethod.channelr = shadowopacity; + shadowmethod.table = drawmethod->table; + shadowmethod.scalex = drawmethod->scalex; + shadowmethod.scaley = light.y * drawmethod->scaley / 256; + shadowmethod.config = (shadowmethod.config & ~DRAWMETHOD_CONFIG_FLIP_X) | (drawmethod->config & DRAWMETHOD_CONFIG_FLIP_X); + shadowmethod.config = (shadowmethod.config & ~DRAWMETHOD_CONFIG_FLIP_Y) | (drawmethod->config & DRAWMETHOD_CONFIG_FLIP_Y); + shadowmethod.centery += alty; + + if (shadowmethod.config & DRAWMETHOD_CONFIG_FLIP_Y) + { + shadowmethod.centery = -shadowmethod.centery; + } + if (shadowmethod.scaley < 0) + { + shadowmethod.scaley = -shadowmethod.scaley; + shadowmethod.config ^= DRAWMETHOD_CONFIG_FLIP_Y; + } + shadowmethod.rotate = drawmethod->rotate; + shadowmethod.shiftx = drawmethod->shiftx + light.x; + + spriteq_add_sprite(qx, qy, z, f, &shadowmethod, 0); + if (use_mirror) + { + shadowmethod.config ^= DRAWMETHOD_CONFIG_FLIP_Y; + + shadowmethod.centery = -shadowmethod.centery; + spriteq_add_sprite(qx, sy, sz, f, &shadowmethod, 0); + } + } + } + }//end of gfxshadow + } + + /* Plain (sprite) shadow. */ + if (e->shadow_config_flags & (SHADOW_CONFIG_GRAPHIC_STATIC_AIR | SHADOW_CONFIG_GRAPHIC_STATIC_GROUND)) + { + useshadow = e->animation->shadow ? e->animation->shadow[e->animpos] : e->modeldata.shadow; + if (useshadow < 0) + { + useshadow = e->modeldata.shadow; + } + if (useshadow && e->position.y >= 0 && !(checkhole(e->position.x, e->position.z) && checkwall_below(e->position.x, e->position.z, e->position.y) < 0)) + { + in_air = inair(e); + + if ((e->shadow_config_flags & SHADOW_CONFIG_GRAPHIC_STATIC_GROUND && !in_air) || (e->shadow_config_flags & SHADOW_CONFIG_GRAPHIC_STATIC_AIR && in_air)) + { + + if (other && other != e && e->position.y >= other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT] && !(e->shadow_config_flags & SHADOW_CONFIG_BASE_STATIC)) + { + qx = (int)(e->position.x - scrx); + qy = (int)(e->position.z - other->position.y - other->animation->platform[other->animpos][PLATFORM_HEIGHT] - scry); + sy = (int)((2 * MIRROR_Z - e->position.z) - other->position.y - other->animation->platform[other->animpos][PLATFORM_HEIGHT] - scry); + + z = (int)(other->position.z + 1); + sz = 2 * PANEL_Z - z; + } + else if (level && wall >= 0)// && e->position.y >= level->walls[wall].height) + { + qx = (int)(e->position.x - scrx); + qy = (int)(e->position.z - level->walls[wall].height - scry); + sy = (int)((2 * MIRROR_Z - e->position.z) - level->walls[wall].height - scry); + z = shadowz; + sz = PANEL_Z - HUD_Z; + } + else if (level && basemap > 0 && !(e->shadow_config_flags & SHADOW_CONFIG_BASE_STATIC)) + { + qx = (int)(e->position.x - scrx); + qy = (int)(e->position.z - basemap - scry); + sy = (int)((2 * MIRROR_Z - e->position.z) - basemap - scry); + z = shadowz; + sz = PANEL_Z - HUD_Z; + } + else + { + qx = (int)(e->position.x - scrx); + qy = (int)(e->position.z - scry); + sy = (int)((2 * MIRROR_Z - e->position.z) - scry); + z = shadowz; + sz = PANEL_Z - HUD_Z; + } + if (e->animation->shadow_coords) + { + if (e->direction == DIRECTION_RIGHT) + { + qx += e->animation->shadow_coords[e->animpos][0]; + } + else + { + qx -= e->animation->shadow_coords[e->animpos][0]; + } + qy += e->animation->shadow_coords[e->animpos][1]; + sy -= e->animation->shadow_coords[e->animpos][1]; + } + + shadowmethod = plainmethod; + shadowmethod.alpha = BLEND_MULTIPLY + 1; + shadowmethod.config = e->direction == DIRECTION_RIGHT ? (shadowmethod.config | DRAWMETHOD_CONFIG_FLIP_X) : (shadowmethod.config & ~DRAWMETHOD_CONFIG_FLIP_X); + + spriteq_add_sprite(qx, qy, z, shadowsprites[useshadow - 1], &shadowmethod, 0); + if (use_mirror) + { + spriteq_add_sprite(qx, sy, sz, shadowsprites[useshadow - 1], &shadowmethod, 0); + } + } + }//end of plan shadow + } + } + + }// end of blink checking + + if(e->arrowon) // Display the players image while invincible to indicate player number + { + if(e->modeldata.player_arrow[(int)e->playerindex].sprite && e->invincible & INVINCIBLE_INTANGIBLE) + { + spriteq_add_sprite((int)(e->position.x - scrx + e->modeldata.player_arrow[(int)e->playerindex].position.x), (int)(e->position.z - e->position.y - scry + e->modeldata.player_arrow[(int)e->playerindex].position.y), (int)e->position.z, e->modeldata.player_arrow[(int)e->playerindex].sprite, NULL, sortid * 2); + } + } + }// end of if(ent_list[i]->exists) + + // reset vars for next loop + + }// end of for + + //defer ondraw script so it can manage spriteq better + for(i = 0; i < ent_stack_size; i++) + { + execute_ondraw_script(ent_stack[i]); + } + ent_stack_size = 0; +} + + + +void toss(entity *ent, float lift) +{ + if(!lift) + { + return; //zero? + } + ent->toss_time = _time + 1; + ent->velocity.y = lift; + ent->position.y += 0.5; // Get some altitude (needed for checks) +} + +entity *findent(int types) +{ + int i; + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists // Must exist. + && (ent_list[i]->modeldata.type & types) // Be a type we are looking for. + && !((ent_list[i]->death_state & (DEATH_STATE_DEAD | DEATH_STATE_CORPSE)) == (DEATH_STATE_DEAD | DEATH_STATE_CORPSE))) // Ignore dead corpses. + { + return ent_list[i]; + } + } + return NULL; +} + + + +int count_ents(int types) +{ + int i; + int count = 0; + for(i = 0; i < ent_max; i++) + { + + count += (ent_list[i]->exists && (ent_list[i]->modeldata.type & types) && !(ent_list[i]->death_state & DEATH_STATE_CORPSE)); + } + return count; +} + +int isItem(entity *e) +{ + return e->modeldata.type & TYPE_ITEM; +} + +int isSubtypeTouch(entity *e) +{ + return e->modeldata.subtype == SUBTYPE_TOUCH; +} + +int isSubtypeWeapon(entity *e) +{ + return e->modeldata.subtype == SUBTYPE_WEAPON; +} + +int isSubtypeProjectile(entity *e) +{ + return e->modeldata.subtype == SUBTYPE_PROJECTILE; +} + +//check if an item is usable by the entity +int normal_test_item(entity *ent, entity *item) +{ + return ( + isItem(item) && + (item->modeldata.stealth.hide <= ent->modeldata.stealth.detect) && + diff(item->position.x, ent->position.x) + diff(item->position.z, ent->position.z) < videomodes.hRes / 2 && + item->animation->vulnerable[item->animpos] && !item->blink && + (validanim(ent, ANI_GET) || (isSubtypeTouch(item) && faction_check_can_damage(item, ent, 0))) && + ( + (isSubtypeWeapon(item) && !ent->weapent && ent->modeldata.weapon_properties.weapon_list && + ent->modeldata.weapon_properties.weapon_count >= item->modeldata.weapon_properties.weapon_index && ent->modeldata.weapon_properties.weapon_list[item->modeldata.weapon_properties.weapon_index - 1] >= 0) + || (isSubtypeProjectile(item) && !ent->weapent) + || (item->energy_state.health_current && (ent->energy_state.health_current < ent->modeldata.health) && ! isSubtypeProjectile(item) && ! isSubtypeWeapon(item)) + ) + ); +} + +int test_item(entity *ent, entity *item) +{ + if (!( + isItem(item) && + item->animation->vulnerable[item->animpos] && !item->blink && + (validanim(ent, ANI_GET) || (isSubtypeTouch(item) && faction_check_can_damage(item, ent, 0))) + )) + { + return 0; + } + if(isSubtypeProjectile(item) && ent->weapent) + { + return 0; + } + if(isSubtypeWeapon(item) && + (ent->weapent || !ent->modeldata.weapon_properties.weapon_list || + ent->modeldata.weapon_properties.weapon_count < item->modeldata.weapon_properties.weapon_index || + ent->modeldata.weapon_properties.weapon_list[item->modeldata.weapon_properties.weapon_index - 1] < 0) + ) + { + return 0; + } + return 1; +} + +int player_test_pickable(entity *ent, entity *item) +{ + if(isSubtypeTouch(item)) + { + return 0; + } + + if(isSubtypeWeapon(item) && ent->modeldata.weapon_properties.weapon_state & WEAPON_STATE_ANIMAL) + { + return 0; + } + + if(diff(ent->base , item->position.y) > 0.1) + { + return 0; + } + + return test_item(ent, item); +} + +int player_test_touch(entity *ent, entity *item) +{ + if(!isSubtypeTouch(item)) + { + return 0; + } + + if(isSubtypeWeapon(item) && ent->modeldata.weapon_properties.weapon_state & WEAPON_STATE_ANIMAL) + { + return 0; + } + + if(diff(ent->base , item->position.y) > 1) + { + return 0; + } + return test_item(ent, item); +} + +entity *find_ent_here(entity *exclude, float x, float z, e_entity_type types, int (*test)(entity *, entity *)) +{ + int i; + for(i = 0; i < ent_max; i++) + { + if( ent_list[i]->exists + && ent_list[i] != exclude + && (ent_list[i]->modeldata.type & types) + && diff(ent_list[i]->position.x, x) < (self->modeldata.grabdistance * 0.83333) + && diff(ent_list[i]->position.z, z) < (self->modeldata.grabdistance / 3) + && ent_list[i]->animation->vulnerable[ent_list[i]->animpos] + && (!test || test(exclude, ent_list[i])) + ) + { + return ent_list[i]; + } + } + return NULL; +} + +int set_idle(entity *ent) +{ + ent->idling = IDLING_PREPARED; + ent->attacking = ATTACKING_NONE; + ent->inpain = IN_PAIN_NONE; + ent->rising = RISING_NONE; + ent->ducking = DUCK_NONE; + ent->inbackpain = 0; + ent->falling = 0; + ent->jumping = 0; + ent->blocking = BLOCK_STATE_NONE; + common_idle_anim(ent); + + /* + Kratus (02-2024) Reset the aiflag running when landing after jumping + Works only if the RUN_CONFIG_LAND is enabled but no directional keys are held + If the RUN_CONFIG_LAND is disabled, the common_jump() function will reset it + */ + if (ent->modeldata.run_config_flags & RUN_CONFIG_LAND) + { + if (!((player[ent->playerindex].keys & FLAG_MOVELEFT) || (player[ent->playerindex].keys & FLAG_MOVERIGHT))) + { + ent->running = RUN_STATE_NONE; + } + } + + return 1; +} + +int set_death(entity *iDie, int type, int reset) +{ + int die = 0; + + //iDie->velocity.x = iDie->velocity.z = iDie->velocity.y = 0; // stop the target + if((iDie->blocking & BLOCK_STATE_ACTIVE) && validanim(iDie, ANI_CHIPDEATH)) + { + ent_set_anim(iDie, ANI_CHIPDEATH, reset); + iDie->idling = IDLING_NONE; + iDie->getting = 0; + iDie->jumping = 0; + iDie->charging = 0; + iDie->attacking = ATTACKING_NONE; + iDie->blocking = BLOCK_STATE_NONE; + iDie->inpain = IN_PAIN_NONE; + iDie->falling = 0; + iDie->rising = RISING_NONE; + iDie->ducking = DUCK_NONE; + return 1; + } + + if(type < 0 || type >= max_attack_types) + { + type = 0; + } + + if ( iDie->inbackpain ) die = animbackdies[type]; + else die = animdies[type]; + + if(validanim(iDie, die)) + { + ent_set_anim(iDie, die, reset); + } + else if( iDie->inbackpain && validanim(iDie, animbackdies[0]) ) + { + ent_set_anim(iDie, animbackdies[0], reset); + } + else if(validanim(iDie, animdies[type])) + { + if ( iDie->inbackpain ) reset_backpain(iDie); + iDie->inbackpain = 0; + ent_set_anim(iDie, animdies[type], reset); + } + else if(validanim(iDie, animdies[0])) + { + if ( iDie->inbackpain ) reset_backpain(iDie); + iDie->inbackpain = 0; + ent_set_anim(iDie, animdies[0], reset); + } + else + { + return 0; + } + + iDie->idling = IDLING_NONE; + iDie->getting = 0; + iDie->jumping = 0; + iDie->charging = 0; + iDie->attacking = ATTACKING_NONE; + iDie->blocking = BLOCK_STATE_NONE; + iDie->inpain = IN_PAIN_NONE; + iDie->falling = 0; + iDie->rising = RISING_NONE; + iDie->ducking = DUCK_NONE; + if(iDie->frozen) + { + unfrozen(iDie); + } + return 1; +} + + +int set_fall(entity *ent, entity *other, s_attack *attack, int reset) +{ + int fall = 0; + + if ( ent->inbackpain ) fall = animbackfalls[attack->attack_type]; + else fall = animfalls[attack->attack_type]; + + if(validanim(ent, fall)) + { + ent_set_anim(ent, fall, reset); + } + else if( ent->inbackpain && validanim(ent, animbackfalls[0]) ) + { + ent_set_anim(ent, animbackfalls[0], reset); + } + else if( validanim(ent, animfalls[attack->attack_type]) ) + { + if ( ent->inbackpain ) reset_backpain(ent); + ent->inbackpain = 0; + ent_set_anim(ent, animfalls[attack->attack_type], reset); + } + else if(validanim(ent, animfalls[0])) + { + if ( ent->inbackpain ) reset_backpain(ent); + ent->inbackpain = 0; + ent_set_anim(ent, animfalls[0], reset); + } + else + { + return 0; + } + + ent->drop = 1; + ent->inpain = IN_PAIN_NONE; + ent->rising = RISING_NONE; + ent->idling = IDLING_NONE; + ent->falling = 1; + ent->jumping = 0; + ent->ducking = DUCK_NONE; + ent->getting = 0; + ent->charging = 0; + ent->attacking = ATTACKING_NONE; + ent->blocking = BLOCK_STATE_NONE; + ent->nograb = 1; + ent->running = RUN_STATE_NONE; //Kratus (01-2024) Resets the aiflag running when falling + + if(ent->frozen) + { + unfrozen(ent); + } + execute_onfall_script(ent, other, attack); + + return 1; +} + +int set_rise(entity *iRise, int type, int reset) +{ + int rise = 0; + + if(type < 0 || type >= max_attack_types) + { + type = 0; + } + + if ( iRise->inbackpain ) rise = animbackrises[type]; + else rise = animrises[type]; + + if(validanim(iRise, rise)) + { + ent_set_anim(iRise, rise, reset); + } + else if( iRise->inbackpain && validanim(iRise, animbackrises[0]) ) + { + ent_set_anim(iRise, animbackrises[0], reset); + } + else if( validanim(iRise, animrises[type]) ) + { + if ( iRise->inbackpain ) reset_backpain(iRise); + iRise->inbackpain = 0; + ent_set_anim(iRise, animrises[type], reset); + } + else if(validanim(iRise, animrises[0])) + { + if ( iRise->inbackpain ) reset_backpain(iRise); + iRise->inbackpain = 0; + ent_set_anim(iRise, animrises[0], reset); + } + else + { + return 0; + } + + iRise->takeaction = common_rise; + // Get up again + iRise->drop = 0; + iRise->falling = 0; + iRise->rising |= RISING_RISE; + iRise->rising &= ~RISING_ATTACK; + iRise->projectile = BLAST_NONE; + iRise->nograb = iRise->nograb_default; //iRise->nograb = 0; + iRise->velocity.x = self->velocity.z = self->velocity.y = 0; + iRise->jugglepoints = iRise->modeldata.jugglepoints; //reset jugglepoints + return 1; +} + +int set_riseattack(entity *iRiseattack, int type, int reset) +{ + int riseattack = 0; + + if( (!validanim(iRiseattack, animriseattacks[type]) || + (iRiseattack->inbackpain && !validanim(iRiseattack, animbackriseattacks[type]) && !validanim(iRiseattack, animriseattacks[type]))) && + iRiseattack->modeldata.riseattacktype == 1 ) + { + type = 0; + } + if(iRiseattack->modeldata.riseattacktype == 0 || type < 0 || type >= max_attack_types) + { + type = 0; + } + + if ( iRiseattack->inbackpain ) riseattack = animbackriseattacks[type]; + else riseattack = animriseattacks[type]; + + if(validanim(iRiseattack, riseattack)) + { + ent_set_anim(iRiseattack, riseattack, reset); + } + else if( iRiseattack->inbackpain && validanim(iRiseattack, animbackriseattacks[0]) ) + { + ent_set_anim(iRiseattack, animbackriseattacks[0], reset); + } + else if( validanim(iRiseattack, animriseattacks[type]) ) + { + if ( iRiseattack->inbackpain ) reset_backpain(iRiseattack); + iRiseattack->inbackpain = 0; + ent_set_anim(iRiseattack, animriseattacks[type], reset); + } + else if(validanim(iRiseattack, animriseattacks[0])) + { + if ( iRiseattack->inbackpain ) reset_backpain(iRiseattack); + iRiseattack->inbackpain = 0; + ent_set_anim(iRiseattack, animriseattacks[0], reset); + } + else + { + return 0; + } + + iRiseattack->takeaction = common_attack_proc; + self->staydown.riseattack_stall = 0; //Reset riseattack delay. + set_attacking(iRiseattack); + iRiseattack->inpain = IN_PAIN_NONE; + iRiseattack->falling = 0; + iRiseattack->ducking = DUCK_NONE; + iRiseattack->rising &= ~RISING_RISE; + iRiseattack->rising |= RISING_ATTACK; + iRiseattack->drop = 0; + iRiseattack->nograb = iRiseattack->nograb_default; //iRiseattack->nograb = 0; + iRiseattack->jugglepoints = iRiseattack->modeldata.jugglepoints; //reset jugglepoints + return 1; +} + +/* +* Caskey, Damon V. +* 2018 +* +* Place entity into appropriate block pain animation +* based on attack type and direction of attack. +* +* Returns true if successful, false if no valid block pain +* animation was found. +*/ +bool set_blockpain(entity *acting_entity, attack_type_t attack_type, int reset) { + animation_id_t animation; + + // If attack type is out of bounds we + // just use normal. + if(attack_type >= max_attack_types) { + attack_type = ATK_NORMAL; + } + + // In front or back? + if (acting_entity->inbackpain) { + animation = animbackblkpains[attack_type]; + + } else { + animation = animblkpains[attack_type]; + } + + if(validanim(acting_entity, animation)) { + ent_set_anim(acting_entity, animation, reset); + + } else if( acting_entity->inbackpain + && validanim(acting_entity, animbackblkpains[ATK_NORMAL]) ) { + + ent_set_anim(acting_entity, animbackblkpains[ATK_NORMAL], reset); + + } else if(validanim(acting_entity, animblkpains[attack_type])) { + + if (acting_entity->inbackpain) { + reset_backpain(acting_entity); + } + + acting_entity->inbackpain = 0; + ent_set_anim(acting_entity, animblkpains[attack_type], reset); + + } else if(validanim(acting_entity, animblkpains[ATK_NORMAL])) { + if (acting_entity->inbackpain) { + reset_backpain(acting_entity); + } + + acting_entity->inbackpain = 0; + ent_set_anim(acting_entity, animblkpains[ATK_NORMAL], reset); + } else { + return false; + } + + acting_entity->takeaction = common_block; + set_blocking(acting_entity); + acting_entity->inpain = IN_PAIN_BLOCK; + acting_entity->rising = RISING_NONE; + acting_entity->ducking = DUCK_NONE; + return true; +} + +int reset_backpain(entity *ent) +{ + if (ent->normaldamageflipdir >= 0) + { + if (ent->normaldamageflipdir == DIRECTION_RIGHT) + { + ent->direction = DIRECTION_RIGHT; + } + else + { + ent->direction = DIRECTION_LEFT; + } + if(ent->direction == DIRECTION_RIGHT) ent->velocity.x = -1*fabsf(ent->velocity.x); + else ent->velocity.x = fabsf(ent->velocity.x); + + return 1; + } + + return 0; +} + +int check_backpain(entity* attacker, entity* defender) { + if ( !(defender->modeldata.pain_config_flags & PAIN_CONFIG_BACK_PAIN)) return 0; + if ( defender->inpain & IN_PAIN_HIT) return 0; + if ( defender->falling ) return 0; + if ( defender->death_state & DEATH_STATE_DEAD) return 0; + if ( ((!defender->direction && attacker->position.x > defender->position.x) || (defender->direction && attacker->position.x < defender->position.x)) ) + { + defender->inbackpain = 1; + return 1; + } else if ( defender->inbackpain ) defender->inbackpain = 0; + + return 0; +} + +int set_pain(entity *iPain, int type, int reset) +{ + int pain = 0; + + iPain->velocity.x = iPain->velocity.z = iPain->velocity.y = 0; // stop the target + if(iPain->modeldata.guardpoints > 0 && iPain->guardpoints <= 0) + { + pain = ANI_GUARDBREAK; + iPain->guardpoints = iPain->modeldata.guardpoints; + } + else if(type == -1 || type >= max_attack_types) + { + pain = ANI_GRABBED; + } + else + { + if ( iPain->inbackpain ) pain = animbackpains[type]; + else pain = animpains[type]; + } + + + if(validanim(iPain, pain)) + { + ent_set_anim(iPain, pain, reset); + } + else if( iPain->inbackpain && validanim(iPain, animbackpains[0]) ) + { + ent_set_anim(iPain, animbackpains[0], reset); + } + else if( (type != -1 && type < max_attack_types) && validanim(iPain, animpains[type]) ) + { + if ( iPain->inbackpain ) reset_backpain(iPain); + iPain->inbackpain = 0; + ent_set_anim(iPain, animpains[type], reset); + } + else if(validanim(iPain, animpains[0])) + { + if ( iPain->inbackpain ) reset_backpain(iPain); + iPain->inbackpain = 0; + ent_set_anim(iPain, animpains[0], reset); + } + else if(validanim(iPain, ANI_IDLE)) + { + if ( iPain->inbackpain ) reset_backpain(iPain); + iPain->inbackpain = 0; + ent_set_anim(iPain, ANI_IDLE, reset); + } + else + { + return 0; + } + + iPain->idling = IDLING_NONE; + iPain->falling = 0; + iPain->rising = RISING_NONE; + iPain->ducking = DUCK_NONE; + iPain->projectile = BLAST_NONE; + iPain->drop = 0; + iPain->attacking = ATTACKING_NONE; + iPain->getting = 0; + iPain->charging = 0; + iPain->jumping = 0; + iPain->blocking = BLOCK_STATE_NONE; + iPain->inpain = IN_PAIN_HIT; + if(iPain->frozen) unfrozen(iPain); + + if(pain == ANI_GRABBED) + { + iPain->inpain = IN_PAIN_NONE; + iPain->rising = RISING_NONE; + iPain->ducking = DUCK_NONE; + if ( iPain->inbackpain ) reset_backpain(iPain); + iPain->inbackpain = 0; + } + + execute_onpain_script(iPain, type, reset); + return 1; +} + +/* + * Copy animations from newmodel to model. If newmodel has anim that is not in model, + * then copy that anim (but no frames with alloc_anim()) from newmodel to model + */ +void normalize_anim_models(s_model *model, s_model *newmodel) +{ + int i = 0; + + for(i = 0; i < max_animations; i++) + { + if(!model->animation[i] && newmodel->animation[i]) + { + model->animation[i] = alloc_anim(); + } + } + + return; +} + +//change model, anim_flag 1: reset animation 0: use original animation +void set_model_ex(entity *ent, char *modelname, int index, s_model *newmodel, int anim_flag) +{ + s_model *model = NULL; + entity tempe; + s_defense *dfs = NULL; + s_offense *ofs = NULL; + int i; + int type = ent->modeldata.type; + + model = ent->model; + tempe.exists = 0; + + if(!newmodel) + { + if(index >= 0) + { + newmodel = model_cache[index].model; + } + else + { + newmodel = findmodel(modelname); + } + } + if(!newmodel) + { + borShutdown(1, "Can't set model for entity '%s', model not found.\n", ent->name); + } + if(newmodel == model) + { + return; + } + + if(!(newmodel->model_flag & MODEL_COPY_FLAG_NO_BASIC)) + { + newmodel->move_config_flags = model->move_config_flags; + + if(!newmodel->speed.x) + { + newmodel->speed.x = model->speed.x; + } + if(!newmodel->runspeed) + { + newmodel->runspeed = model->runspeed; + newmodel->runjumpheight = model->runjumpheight; + newmodel->runjumpdist = model->runjumpdist; + newmodel->run_config_flags = model->run_config_flags; + } + if(newmodel->icon.def < 0) + { + newmodel->icon.def = model->icon.def; + } + if(newmodel->icon.pain < 0) + { + newmodel->icon.pain = model->icon.pain; + } + if(newmodel->icon.get < 0) + { + newmodel->icon.get = model->icon.get; + } + if(newmodel->icon.die < 0) + { + newmodel->icon.die = model->icon.die; + } + if(newmodel->shadow < 0) + { + newmodel->shadow = model->shadow; + } + if(newmodel->knife < 0) + { + newmodel->knife = model->knife; + } + if(newmodel->pshotno < 0) + { + newmodel->pshotno = model->pshotno; + } + if(newmodel->bomb < 0) + { + newmodel->bomb = model->bomb; + } + if(newmodel->star < 0) + { + newmodel->star = model->star; + } + if(newmodel->flash.model_hit < 0) + { + newmodel->flash.model_hit = model->flash.model_hit; + } + if(newmodel->flash.model_block < 0) + { + newmodel->flash.model_block = model->flash.model_block; + } + if(newmodel->dust.fall_land < 0) + { + newmodel->dust.fall_land = model->dust.fall_land; + } + if(newmodel->dust.jump_land < 0) + { + newmodel->dust.jump_land = model->dust.jump_land; + } + if(newmodel->diesound < 0) + { + newmodel->diesound = model->diesound; + } + + for(i = 0; i < max_animations; i++) + { + if(!newmodel->animation[i] && model->animation[i] && model->animation[i]->numframes > 0) + { + newmodel->animation[i] = model->animation[i]; + } + } + //normalize_anim_models(model, newmodel); + } + + // copy the weapon list if model flag is not set to use its own weapon list + if (!(newmodel->model_flag & MODEL_COPY_FLAG_NO_WEAPON)) + { + newmodel->weapon_properties.weapon_index = model->weapon_properties.weapon_index; + if (!newmodel->weapon_properties.weapon_list) + { + newmodel->weapon_properties.weapon_list = model->weapon_properties.weapon_list; + newmodel->weapon_properties.weapon_count = model->weapon_properties.weapon_count; + } + } + + //Make a shallow copy of old entity values, not safe but easy. + //Also copy offense and defense because they are more likely be used by weapons, + //other references are left alone for now + if(Script_IsInitialized(newmodel->scripts->onmodelcopy_script)) + { + tempe = *ent; + dfs = malloc(sizeof(*dfs) * max_attack_types); + ofs = malloc(sizeof(*ofs) * max_attack_types); + + memcpy(dfs, ent->defense, sizeof(*dfs)*max_attack_types); + memcpy(ofs, ent->offense, sizeof(*ofs)*max_attack_types); + + tempe.defense = dfs; + tempe.offense = ofs; + } + + ent_set_model(ent, newmodel->name, anim_flag); + + ent->modeldata.type = type; + + if((newmodel->model_flag & MODEL_COPY_FLAG_NO_SCRIPT)) + { + clear_all_scripts(ent->scripts, 0); + } + + copy_all_scripts(newmodel->scripts, ent->scripts, 0); + + memcpy(ent->defense, ent->modeldata.defense, sizeof(*ent->defense)*max_attack_types); + memcpy(ent->offense, ent->modeldata.offense, sizeof(*ent->offense)*max_attack_types); + + ent_set_colourmap(ent, ent->map); + if(Script_IsInitialized(ent->scripts->onmodelcopy_script)) + { + execute_onmodelcopy_script(ent, &tempe); + if(ofs) + { + free(ofs); + } + if(dfs) + { + free(dfs); + } + } +} + +void set_weapon(entity *ent, int wpnum, int anim_flag) // anim_flag added for scripted midair weapon changing +{ + if(!ent) + { + return; + } +//printf("setweapon: %d \n", wpnum); + + if(ent->modeldata.type & TYPE_PLAYER) // save current weapon for player's weaploss WEAPON_LOSS_CONDITION_STAGE + { + if(ent->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_STAGE) + { + player[(int)ent->playerindex].weapnum = wpnum; + } + else + { + player[(int)ent->playerindex].weapnum = level->setweap; + } + } + + if(ent->modeldata.weapon_properties.weapon_list && wpnum > 0 && wpnum <= ent->modeldata.weapon_properties.weapon_count && ent->modeldata.weapon_properties.weapon_list[wpnum - 1]) + { + set_model_ex(ent, NULL, ent->modeldata.weapon_properties.weapon_list[wpnum - 1], NULL, !anim_flag); + } + else + { + set_model_ex(ent, NULL, -1, ent->defaultmodel, 1); + } +} + +////////////////////////////////////////////////////////////////////////// +// common A.I. code for enemies & NPCs +////////////////////////////////////////////////////////////////////////// + + +entity *melee_find_target() +{ + return NULL; +} + +entity *long_find_target() +{ + return NULL; +} + +entity *block_find_target(int anim, int detect_adj) +{ + int i; + int min; + int max; + int detect; + int index = -1; + min = 0; + max = 9999; + float diffx, diffz, diffd, diffo = 0; + entity *attacker; + + detect = detect_adj + self->modeldata.stealth.detect; + + //find the 'nearest' attacking one + for(i = 0; i < ent_max; i++) + { + attacker = ent_list[i]; + + if (attacker && attacker->exists && attacker != self // Can't target self + && (faction_check_can_damage(attacker, self, 0)) // Type is something attacker can damage. + && (anim < 0 || (anim >= 0 && check_range_target_all(self, attacker, anim, 0, 0))) // Valid animation ID and in range. + && !(attacker->death_state & DEATH_STATE_DEAD) // Must be alive. + && attacker->attacking != ATTACKING_NONE // Must be attacking. + && collision_attack_find_no_block_on_frame(attacker->animation, attacker->animpos, 1) != NULL // Valid blockable attack. + && (diffd = (diffx = diff(attacker->position.x, self->position.x)) + (diffz = diff(attacker->position.z, self->position.z))) >= min + && diffd <= max + && (attacker->modeldata.stealth.hide <= detect) // Stealth factor less then perception factor (allows invisibility). + ) + { + if (index < 0 || diffd < diffo) + { + index = i; + diffo = diffd; + + continue; + } + } + } + if( index >= 0) + { + return ent_list[index]; + } + return NULL; +} + +entity *normal_find_target(int anim, int detect_adj) +{ + + /* + normal_find_target + Author unknown + Date unknown + ~Damon Caskey, 2011_07_22: Add support for detect adjustment. + + int anim: Animation find range will be calculated by. Default to current animation if not passed. + int detect_adj: Local detection adjustment. Allows lesser or greater penetration of target's stealth for location. + */ + + int i; + int min; + int max; + int detect; + int index = -1; + float diffx = 0; + float diffz = 0; + float diffd = 0; + float diffo = 0; + + min = 0; + max = 9999; + + detect = detect_adj + self->modeldata.stealth.detect; + + //find the 'nearest' one + for(i = 0; i < ent_max; i++) + { + // Must exist. + if(!ent_list[i]->exists) + { + continue; + } + + // Can't be self. + if(ent_list[i] == self) + { + continue; + } + + /* Must be hostile toward it. */ + if (!faction_check_is_hostile(self, ent_list[i])) + { + continue; + } + + // If anim is defined, then target must be + // in range of animation. + if(anim >= 0) + { + if(!check_range_target_all(self, ent_list[i], anim, 0, 0)) + { + continue; + } + } + + // Can't be dead. + if(ent_list[i]->death_state & DEATH_STATE_DEAD) + { + continue; + } + + // Get X and Z differences between us and target. We then + // add them up to get a total distance. + diffx = diff(ent_list[i]->position.x, self->position.x); + diffz = diff(ent_list[i]->position.z, self->position.z); + diffd = diffx + diffz; + + // Distance must be within min and max. + if(diffd <= min || diffd >= max) + { + continue; + } + + // Stealth must not be greater than perception. + if(ent_list[i]->modeldata.stealth.hide > detect) + { + continue; + } + + + if(index < 0 + || (index >= 0 && (!ent_list[index]->animation->vulnerable[ent_list[index]->animpos] || ent_list[index]->invincible & INVINCIBLE_INTANGIBLE)) + // don't turn to the one on the back + || ((self->position.x < ent_list[i]->position.x) == (self->direction == DIRECTION_RIGHT) && diffd < diffo) + ) + { + index = i; + diffo = diffd; + } + + + } + + if(index >= 0) + { + return ent_list[index]; + } + return NULL; +} + +//Used by default A.I. pattern +// A.I. characters try to find a pickable item +entity *normal_find_item() +{ + + int i; + int index = -1; + entity *ce = NULL; + //find the 'nearest' one + for(i = 0; i < ent_max; i++) + { + ce = ent_list[i]; + + if( ce->exists && normal_test_item(self, ce) ) + { + if(index < 0 || diff(ce->position.x, self->position.x) + diff(ce->position.z, self->position.z) < diff(ent_list[index]->position.x, self->position.x) + diff(ent_list[index]->position.z, self->position.z)) + { + index = i; + } + } + } + if( index >= 0) + { + return ent_list[index]; + } + return NULL; +} + +int long_attack() +{ + return 0; +} + +int melee_attack() +{ + return 0; +} + +// chose next attack in atchain, if succeeded, return 1, otherwise return 0. +int perform_atchain() +{ + int pickanim = 0; + + if(self->modeldata.chainlength <= 0) { + return 0; + } + + /* + * Even if we miss, cotinue the combo chain + * unless time has expired. + */ + if(self->combotime > _time) { + self->combostep[0]++; + } else { + self->combostep[0] = 1; + } + + if(self->modeldata.atchain[self->combostep[0] - 1] == 0) { // 0 means the chain ends + self->combostep[0] = 1; + } + + if(validanim(self, animattacks[self->modeldata.atchain[self->combostep[0] - 1] - 1]) ) { + if(((self->combostep[0] == 1 || !(self->modeldata.combostyle & 1)) && (self->modeldata.type & TYPE_PLAYER)) || // player should use attack 1st step without checking range + + (!(self->modeldata.combostyle & 1) && normal_find_target(animattacks[self->modeldata.atchain[0] - 1], 0)) || // normal chain just checks the first attack in chain(guess no one like it) + + ((self->modeldata.combostyle & 1) && normal_find_target(animattacks[self->modeldata.atchain[self->combostep[0] - 1] - 1], 0))) { // combostyle 1 checks all anyway. + pickanim = 1; + + } else if((self->modeldata.combostyle & 1) && self->combostep[0] != 1) { // ranged combo? search for a valid attack + + while(++self->combostep[0] <= self->modeldata.chainlength) { + if(self->modeldata.atchain[self->combostep[0] - 1] && + validanim(self, animattacks[self->modeldata.atchain[self->combostep[0] - 1] - 1]) && + (self->combostep[0] == self->modeldata.chainlength || + normal_find_target(animattacks[self->modeldata.atchain[self->combostep[0] - 1] - 1], 0))) { + pickanim = 1; + break; + } + } + } + + } else { + self->combostep[0] = 0; + } + + if(pickanim && validanim(self, animattacks[self->modeldata.atchain[self->combostep[0] - 1] - 1])){ + self->takeaction = common_attack_proc; + set_attacking(self); + ent_set_anim(self, animattacks[self->modeldata.atchain[self->combostep[0] - 1] - 1], 1); + } + + if(!pickanim || self->combostep[0] > self->modeldata.chainlength) { + self->combostep[0] = 0; + } + + if((self->modeldata.combostyle & 2)) { + self->combotime = _time + combodelay; + } + + return pickanim; +} + +void upper_prepare() +{ + int predir = self->direction; + + entity *target = normal_find_target(ANI_UPPER, 0); + + self->velocity.x = self->velocity.z = 0; //stop + + if(!target) + { + self->idling = IDLING_PREPARED; + self->takeaction = NULL; + return; + } + + //check if target is behind, so we can perform a turn back animation + if(!(self->modeldata.move_config_flags & MOVE_CONFIG_NO_FLIP)) + { + self->direction = (self->position.x < target->position.x); + } + if(predir != self->direction && validanim(self, ANI_TURN)) + { + self->takeaction = common_turn; + self->direction = predir; + set_turning(self); + ent_set_anim(self, ANI_TURN, 0); + return; + } + + // Wait... + if(_time < self->stalltime) + { + return; + } + + // Target jumping? Try uppercut! + if(target && target->jumping) + { + self->takeaction = common_attack_proc; + set_attacking(self); + self->velocity.z = self->velocity.x = 0; + // Don't waste any time! + ent_set_anim(self, ANI_UPPER, 0); + return; + } +} + +/* +* Add one animation to the temporary AI attack-choice +* table. A capacity failure is fatal because continuing +* would overwrite unrelated memory. +*/ +static void ai_attack_choice_append(int* choice_count, const int animation) +{ + if(!choice_count + || *choice_count < 0 + || !ai_attack_choices + || (size_t)*choice_count >= ai_attack_choice_capacity) { + borShutdown( + 1, + "AI attack-choice table exceeds its capacity of %zu animations.\n", + ai_attack_choice_capacity + ); + + return; + } + + ai_attack_choices[*choice_count] = animation; + (*choice_count)++; +} + +void normal_prepare() +{ + int i, j; + int found = 0, special = 0; + int predir = self->direction; + + entity *target = normal_find_target(-1, 0); + + self->velocity.x = self->velocity.z = 0; //stop + + if(!target) + { + self->idling = IDLING_PREPARED; + self->takeaction = NULL; + return; + } + + //check if target is behind, so we can perform a turn back animation + if(!(self->modeldata.move_config_flags & MOVE_CONFIG_NO_FLIP)) + { + self->direction = (self->position.x < target->position.x); + } + if(predir != self->direction && validanim(self, ANI_TURN)) + + { + self->takeaction = common_turn; + self->direction = predir; + set_turning(self); + ent_set_anim(self, ANI_TURN, 0); + return; + } + + // Wait... + if(_time < self->stalltime) + { + return; + } + // let go the projectile, well + if( self->weapent && self->weapent->modeldata.subtype == SUBTYPE_PROJECTILE && + validanim(self, ANI_THROWATTACK) && + check_range_target_all(self, target, ANI_THROWATTACK, 0, 0)) + { + self->takeaction = common_attack_proc; + set_attacking(self); + ent_set_anim(self, ANI_THROWATTACK, 0); + return ; + } + + // move freespecial check here + + for(i = 0; i < max_freespecials; i++) + { + if(validanim(self, animspecials[i]) && + (check_energy(ENERGY_TYPE_MP, animspecials[i]) || + check_energy(ENERGY_TYPE_HP, animspecials[i])) && + check_range_target_all(self, target, animspecials[i], 0, 0)) + { + ai_attack_choice_append(&found, animspecials[i]); + } + } + if((rand32() & 7) < 2) + { + if(found && check_costmove(ai_attack_choices[(rand32() & 0xffff) % found], 1, 0) ) + { + return; + } + } + special = found; + + if(self->modeldata.chainlength > 1) // have a chain? + { + if(perform_atchain()) + { + return; + } + } + else if (self->ducking & DUCK_ACTIVE) + { + self->takeaction = common_attack_proc; + set_attacking(self); + ent_set_anim(self, ANI_DUCKATTACK, 0); + return; + } + else // dont have a chain so just select an attack randomly + { + // Pick an attack + for(i = 0; i < max_attacks; i++) + { + if( validanim(self, animattacks[i]) && + check_range_target_all(self, target, animattacks[i], 0, 0)) + { + // a trick to make attack 1 has a greater chance to be chosen + // 6 5 4 3 2 1 1 1 1 1 .... + for(j = ((5 - i) >= 0 ? (5 - i) : 0); j >= 0; j--) + { + ai_attack_choice_append(&found, animattacks[i]); + } + } + } + if(found > special) + { + self->takeaction = common_attack_proc; + set_attacking(self); + ent_set_anim(self, ai_attack_choices[special + (rand32() & 0xffff) % (found - special)], 0); + return; + } + } + + // if no attack was picked, just choose a random one from the valid list + if(special && check_costmove(ai_attack_choices[(rand32() & 0xffff) % special], 1, 0)) + { + return; + } + + // No attack to perform, return to A.I. root + self->idling = IDLING_PREPARED; + self->takeaction = NULL; +} + +void common_jumpland() +{ + if(self->animating) + { + return; + } + self->takeaction = NULL; + set_idle(self); +} + +//A.I characters play the jump animation +void common_jump() +{ + entity *dust; + + if(inair(self)) + { + //printf("%f %f %f %d\n", self->base, self->position.y, self->velocity.y, self->landed_on_platform); + return; + } + + if(self->velocity.y <= 0) // wait if it is still go up + { + self->velocity.y = 0; + self->position.y = self->base; + + self->jumping = 0; + self->ducking = DUCK_NONE; + self->attacking = ATTACKING_NONE; + + if (!(self->modeldata.run_config_flags & RUN_CONFIG_LAND)) + { + self->running = RUN_STATE_NONE; + } + + self->velocity.z = self->velocity.x = 0; + + // check if jumpland animation exists and not using landframe + if(validanim(self, ANI_JUMPLAND) && self->animation->landframe.frame == FRAME_NONE) + { + self->takeaction = common_jumpland; + ent_set_anim(self, ANI_JUMPLAND, 0); + if(self->modeldata.dust.jump_land >= 0) + { + dust = spawn(self->position.x, self->position.z, self->position.y, self->direction, NULL, self->modeldata.dust.jump_land, NULL); + if(dust) + { + dust->spawntype = SPAWN_TYPE_DUST_LAND; + dust->base = self->position.y; + dust->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(dust); + } + } + } + else + { + if(self->modeldata.dust.jump_land >= 0 && self->animation->landframe.frame == FRAME_NONE) + { + dust = spawn(self->position.x, self->position.z, self->position.y, self->direction, NULL, self->modeldata.dust.jump_land, NULL); + if(dust) + { + dust->spawntype = SPAWN_TYPE_DUST_LAND; + dust->base = self->position.y; + dust->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(dust); + } + } + if(self->animation->landframe.frame != FRAME_NONE && self->animating) + { + return; + } + + self->takeaction = NULL; // back to A.I. root + set_idle(self); + } + } +} + +//A.I. characters spawn +void common_spawn() +{ + self->idling = IDLING_NONE; + if(self->animating) + { + return; + } + self->takeaction = NULL; // come to life + set_idle(self); +} + +//A.I. characters drop from the sky +void common_drop() +{ + if(inair(self)) + { + return; + } + self->idling = IDLING_PREPARED; + self->takeaction = NULL; + if(self->energy_state.health_current <= 0) + { + kill_entity(self, KILL_ENTITY_TRIGGER_DROP_NO_HEALTH); + } +} + +//Similar as above, walk off a wall/cliff +void common_walkoff() +{ + if(inair(self) || self->animating) + { + return; + } + self->takeaction = NULL; + set_idle(self); +} + +// play turn animation and then flip +void common_turn() +{ + if(!self->animating) + { + self->takeaction = NULL; + self->velocity.x = self->velocity.z = 0; + self->direction = !self->direction; + set_idle(self); + } +} + +// switch to land animation, land safely +void doland() +{ + self->velocity.x = self->velocity.z = 0; + self->drop = 0; + self->projectile = BLAST_NONE; + self->damage_on_landing.attack_force = 0; + self->damage_on_landing.attack_type = ATK_NONE; + if(validanim(self, ANI_LAND)) + { + self->takeaction = common_land; + self->direction = !self->direction; + ent_set_anim(self, ANI_LAND, 0); + } + else + { + self->takeaction = NULL; + set_idle(self); + } +} + +void common_fall() +{ + // Still falling? + if(self->falling || inair(self) || self->velocity.y) + { + return; + } + + // Landed. Let's see if we could land + // safely. + if(self->projectile != BLAST_NONE) + { + if (self->projectile & BLAST_TOSS) + { + // damage_on_landing.attack_force==-2 means a player has pressed up+jump and has a land animation + if ((autoland == 1 && self->damage_on_landing.attack_force == ATTACK_FORCE_LAND_AUTO) || self->damage_on_landing.attack_force == ATTACK_FORCE_LAND_COMMAND) + { + // Added autoland option for landing + doland(); + return; + } + + self->falling = 0; + } + } + + // Drop Weapon due to Enemy Falling. + //if(self->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_FALL) dropweapon(1); + + if(self->boss && level_completed) + { + tospeedup = 1; + } + + // Pause a bit... + self->takeaction = common_lie; + self->stalltime = _time + MAX(0, (int)(self->staydown.rise + global_config.game_speed - self->modeldata.risetime.rise)); //Set rise delay. + self->staydown.riseattack_stall = _time + MAX(0, (int)(self->staydown.riseattack - self->modeldata.risetime.riseattack)); //Set rise attack delay. + self->staydown.rise = 0; //Reset staydown. + self->staydown.riseattack = 0; //Reset staydown atk. +} + +void common_try_riseattack() +{ + entity *target; + if(!validanim(self, ANI_RISEATTACK)) + { + return; + } + + target = normal_find_target(ANI_RISEATTACK, 0); + if(!target) + { + self->direction = !self->direction; + target = normal_find_target(ANI_RISEATTACK, 0); + self->direction = !self->direction; + } + + if(target) + { + self->direction = (target->position.x > self->position.x); // Stands up and swings in the right direction depending on chosen target + set_riseattack(self, self->last_damage_type, 0); + } +} + +/* +* Caskey, Damon V. +* 2023-03-28 +* +* Run death sequece (if any) for entity. +*/ +int death_try_sequence_damage(entity* acting_entity, e_death_config_flags death_sequence, e_death_sequence_acting_event acting_event) +{ + int result = 0; + attack_type_t attack_type = acting_entity->last_damage_type; + e_death_state death_state = acting_entity->death_state; + + if (death_state & DEATH_STATE_AIR) + { + /* + * Fall first? This works by just turning + * control back over to the damage function + * and letting it handle fall routines. + */ + if ((death_sequence & DEATH_CONFIG_FALL_LAND_AIR && acting_event != DEATH_TRY_SEQUENCE_ACTING_EVENT_LIE) || (death_sequence & DEATH_CONFIG_FALL_LIE_AIR && acting_entity->animating)) + { + /* Turn on blinking? */ + if (death_sequence & DEATH_CONFIG_BLINK_FALL_AIR) + { + acting_entity->blink = 1; + } + + result = 0; + return result; + } + + /* Play death animation? */ + if (death_sequence & DEATH_CONFIG_DEATH_AIR) + { + /* Turn on blinking? */ + if (death_sequence & DEATH_CONFIG_BLINK_DEATH_AIR) + { + acting_entity->blink = 1; + } + + acting_entity->velocity.x = 0; + acting_entity->velocity.y = 0; + acting_entity->velocity.z = 0; + + set_death(acting_entity, attack_type, 0); + + result = 1; + + /* Allow death animation to finish. */ + if (acting_entity->animating) + { + return result; + } + } + + /* + * Remove entity from the screen? + */ + if (death_sequence & DEATH_CONFIG_REMOVE_VANISH_AIR) + { + acting_entity->takeaction = (acting_entity->modeldata.type & TYPE_PLAYER) ? player_blink : suicide; + + /* + * If blink requested, we turn on blink + * effect and set a delay before killing + * self. + */ + if (death_sequence & DEATH_CONFIG_BLINK_REMOVE_AIR) + { + acting_entity->blink = 1; + acting_entity->stalltime = _time + global_config.game_speed * 2; + } + } + else if (death_sequence & DEATH_CONFIG_REMOVE_CORPSE_AIR) + { + /* Turn on blinking? */ + if (death_sequence & DEATH_CONFIG_BLINK_REMOVE_AIR) + { + acting_entity->blink = 1; + } + + /* Set corpse flag and disable AI control. */ + if (acting_entity->modeldata.type & TYPE_PLAYER) + { + acting_entity->takeaction = player_die; + } + else + { + acting_entity->death_state |= DEATH_STATE_CORPSE; + acting_entity->noaicontrol = 1; + } + } + } + else + { + if ((death_sequence & DEATH_CONFIG_FALL_LAND_GROUND && acting_event != DEATH_TRY_SEQUENCE_ACTING_EVENT_LIE) || (death_sequence & DEATH_CONFIG_FALL_LIE_GROUND && acting_entity->animating)) + { + result = 0; + return result; + } + + /* Play death animation? */ + if (death_sequence & DEATH_CONFIG_DEATH_GROUND) + { + /* Turn on blinking? */ + if (death_sequence & DEATH_CONFIG_BLINK_DEATH_GROUND) + { + acting_entity->blink = 1; + } + + acting_entity->velocity.x = 0; + acting_entity->velocity.y = 0; + acting_entity->velocity.z = 0; + + set_death(acting_entity, attack_type, 0); + + result = 1; + + /* Allow death animation to finish. */ + if (acting_entity->animating) + { + return result; + } + } + + /* + * Remove entity from the screen? + */ + if (death_sequence & DEATH_CONFIG_REMOVE_VANISH_GROUND) + { + acting_entity->takeaction = (acting_entity->modeldata.type & TYPE_PLAYER) ? player_blink : suicide; + + /* + * If blink requested, we turn on blink + * effect and set a delay before killing + * self. + */ + if (death_sequence & DEATH_CONFIG_BLINK_REMOVE_GROUND) + { + acting_entity->blink = 1; + acting_entity->stalltime = _time + global_config.game_speed * 2; + } + } + else if (death_sequence & DEATH_CONFIG_REMOVE_CORPSE_GROUND) + { + /* Turn on blinking? */ + if (death_sequence & DEATH_CONFIG_BLINK_REMOVE_GROUND) + { + acting_entity->blink = 1; + } + + /* Set corpse flag and disable AI control. */ + if (acting_entity->modeldata.type & TYPE_PLAYER) + { + acting_entity->takeaction = player_die; + } + else + { + acting_entity->death_state |= DEATH_STATE_CORPSE; + acting_entity->noaicontrol = 1; + } + } + } + + return result; +} + +void common_lie() { + + entity* acting_entity = self; + e_death_config_flags death_config; + + // Died? + if(acting_entity->energy_state.health_current <= 0) { + + const s_defense* defense_object = defense_find_current_object(acting_entity, NULL, acting_entity->last_damage_type); + + death_config = defense_object->death_config_flags; + + if (death_config & DEATH_CONFIG_SOURCE_MODEL) { + death_config = acting_entity->modeldata.death_config_flags; + } + + death_try_sequence_damage(acting_entity, death_config, DEATH_TRY_SEQUENCE_ACTING_EVENT_LIE); + + /* + * Apply KO (death) map if we have one. + */ + if (acting_entity->modeldata.colorsets.ko != COLORSET_INDEX_NONE) { + /* + * Wait for animation to finish unless type is set to + * apply map immediately. + */ + + if (acting_entity->modeldata.colorsets.kotype == KO_COLORSET_CONFIG_INSTANT || !acting_entity->animating) { + acting_entity->colourmap = model_get_colourmap(&(acting_entity->modeldata), acting_entity->modeldata.colorsets.ko); + } + } + + return; + } + + if(_time < acting_entity->stalltime || acting_entity->position.y != acting_entity->base || acting_entity->velocity.y) { + return; + } + + set_rise(acting_entity, acting_entity->last_damage_type, 0); +} + +// rise proc +void common_rise() +{ + if(self->animating) + { + return; + } + self->takeaction = NULL; + self->staydown.riseattack_stall = 0; //Reset riseattack delay. + if(self->modeldata.riseinv) + { + self->blink = self->modeldata.riseinv > 0; + self->invinctime = _time + ABS(self->modeldata.riseinv); + self->invincible |= INVINCIBLE_INTANGIBLE; + } + set_idle(self); +} + +// pain proc +void common_pain() +{ + //self->velocity.x = self->velocity.z = 0; // complained + + if(self->animating || inair(self)) + { + return; + } + + self->inpain = IN_PAIN_HIT; + self->rising = RISING_NONE; + self->ducking = DUCK_NONE; + self->inbackpain = 0; + if(self->link) + { +// set_pain(self, -1, 0); + self->takeaction = common_grabbed; + } + else if((self->blocking & (BLOCK_STATE_ACTIVE | BLOCK_STATE_NATIVE)) + == (BLOCK_STATE_ACTIVE | BLOCK_STATE_NATIVE)) + { + self->inpain = IN_PAIN_BLOCK; + self->takeaction = common_block; + ent_set_anim(self, ANI_BLOCK, 1); + } + else + { + self->takeaction = NULL; + set_idle(self); + } +} + +void doprethrow() +{ + entity *other = self->link; + other->takeaction = common_prethrow; + self->takeaction = common_throw_wait; + self->velocity.x = self->velocity.z = self->velocity.y = other->velocity.x = other->velocity.z = other->velocity.y = 0; + ent_set_anim(self, ANI_THROW, 0); +} + +// 1 grabattack 2 grabforward 3 grabup 4 grabdown 5 grabbackward +// other means grab finisher at once + +// Unknown author (utunnels?). +// +// Retooled by Caskey, Damon V. to use named constants +// for selecting which grab attack. +// 2019-05-31 +// +// Perform a grab attack action depending on request and +// current number already performed for of a given +// grab attack. +void dograbattack(int which) +{ + entity *other = self->link; + self->takeaction = common_grabattack; + self->attacking = ATTACKING_ACTIVE; + other->velocity.x = other->velocity.z = self->velocity.x = self->velocity.z = 0; + + // If we requested finish attack, do it now. Otherwise + // we'll look at current combostep for the selected grab + // attack. If we're at the combo limit, then we finish. + // If not, do the requested attack. + if (which == GRAB_ACTION_SELECT_FINISH) + { + do_grab_attack_finish(self, 0); + } + else + { + ++self->combostep[which]; + if (self->combostep[which] < 3 && validanim(self, grab_attacks[which][0])) + { + ent_set_anim(self, grab_attacks[which][0], 0); + } + else + { + do_grab_attack_finish(self, which); + } + } +} + +// Caskey, Damon V. +// 2018-04-11 +// +// Choose appropriate grab finish animation +// or do nothing if we can't find one. Returns +// selected animation. +animation_id_t do_grab_attack_finish(entity *ent, int which) +{ + animation_id_t animation; + + // Clear out the combostep array since this is + // the finishing attack. + memset(ent->combostep, 0, sizeof(*ent->combostep) * 5); + + // Get the finisher animation. + animation = grab_attacks[which][1]; + + // If selected attack animation exists then + // that's what we use. Otherwise default to + // attack3. If THAT fails, we don't do anything. + // The target entity is already unlinked from + // grab before this function was called, so in + // game they are let go with no finishing attack. + if(validanim(ent, animation)) + { + ent_set_anim(ent, animation, 0); + return animation; + } + else if(validanim(ent, ANI_ATTACK3)) + { + // Get the finisher animation. + ent_set_anim(ent, ANI_ATTACK3, 0); + return ANI_ATTACK3; + } + + // Could not find a valid finisher. Return none. + return ANI_NONE; +} + +void common_grab_check() +{ + int rnum, which; + entity *other = self->link; + + if(other == NULL || (self->modeldata.grabfinish && self->animating && !self->grabwalking)) + { + return; + } + + if(self->base != other->base) + { + // Change this from ->position.y to ->base + self->takeaction = NULL; + ent_unlink(self); + set_idle(self); + return; + } + + if(!nolost && self->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_GRABBING) + { + dropweapon(self, 1); + } + + self->attacking = ATTACKING_NONE; //for checking + + rnum = rand32() & 31; + + if(_time > self->releasetime) + { + if(rnum < 12) + { + // Release + self->takeaction = NULL; + ent_unlink(self); + set_idle(self); + return; + } + else + { + self->releasetime = _time + (global_config.game_speed / 2); + } + } + + if(validanim(self, ANI_THROW) && rnum < 7) + { + if(self->modeldata.throwframewait >= 0) + { + doprethrow(); + } + else + { + dothrow(); + } + return; + } + + // Kratus (04-2023) Implemented vault animation to all A.I. controlled characters + if(validanim(self, ANI_VAULT) && rnum < 6) + { + self->attacking = ATTACKING_ACTIVE; + self->takeaction = common_grabattack; + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + ent_set_anim(self, ANI_VAULT, 0); + return; + } + + //grab finisher + if(rnum < 4) + { + dograbattack(GRAB_ACTION_SELECT_FINISH); + return; + } + which = rnum % GRAB_ACTION_SELECT_MAX; + // grab attacks + if(rnum > 12 && validanim(self, grab_attacks[which][0])) + { + dograbattack(which); + return; + } +} + +//grabbing someone +void common_grab() +{ + // if(self->link) return; + if(self->link || (self->modeldata.grabfinish && self->animating && !self->grabwalking)) + { + return; + } + + self->takeaction = NULL; + self->attacking = ATTACKING_NONE; + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + set_idle(self); +} + +// being grabbed +void common_grabbed() +{ + // Just check if we're still grabbed... + if(self->link) + { + return; + } + + self->stalltime = 0; + self->takeaction = NULL; + set_idle(self); +} + +// picking up something +void common_get() +{ + if(self->animating) + { + return; + } + + self->getting = 0; + self->takeaction = NULL; + set_idle(self); +} + +// Continue or release block. +void common_block() +{ + // Player type with holdblock, also not in pain + // or has post blockpain holdblock ability. + int player_hold_block_eligible = self->modeldata.block_config_flags & (BLOCK_CONFIG_HOLD_IMPACT | BLOCK_CONFIG_HOLD_INFINITE) + && (self->modeldata.type & TYPE_PLAYER) + && (self->inpain == IN_PAIN_NONE || (self->modeldata.block_config_flags & BLOCK_CONFIG_HOLD_INFINITE)); + + // Controlling player is holding special key. + int player_holding_special = ((player + self->playerindex)->keys & FLAG_SPECIAL); + + // If we are in a block transition, let's see if it is finished. + // If it is, apply block animation. + if (self->animnum == ANI_BLOCKSTART && !self->animating) { + ent_set_anim(self, ANI_BLOCK, 0); + } + + /* + * In "Blockstun", at last frame of animation, and + * have holdblock after blockpain ability? Then we + * return to block. + * + * Otherwise, entity is a player with various other + * flags (see player_hold_block_eligible) but not + * holding special key, or the entity has finihsed + * animation and doesn't match any of the player + * holdblock criteria. It could be another entity + * type, doesn't have holdblock ability, or the + * controlling player isn't holding special key. + * + * In any of those cases, we disable blocking flag + * and return to idle. + */ + + if(self->inpain & IN_PAIN_BLOCK + && (self->modeldata.block_config_flags & BLOCK_CONFIG_HOLD_INFINITE) + && !self->animating + && validanim(self, ANI_BLOCK)) { + + self->inpain = IN_PAIN_NONE; + self->rising = RISING_NONE; + self->inbackpain = 0; + ent_set_anim(self, ANI_BLOCK, 0); + + } else if((player_hold_block_eligible && !player_holding_special) + || (!self->animating && (!player_hold_block_eligible || !player_holding_special))) { + + /* + * Is blockstun complete (no blockpain and + * animation finished)? If yes, play the block + * release animation. If we don't have a block + * release or the block release is finished, + * return to idle. + */ + + if (self->inpain == IN_PAIN_NONE || !self->animating) { + + if (self->animnum == ANI_BLOCKRELEASE && !self->animating) { + self->blocking = BLOCK_STATE_NONE; + self->takeaction = NULL; + set_idle(self); + + } else { + + if (validanim(self, ANI_BLOCKRELEASE)) { + + ent_set_anim(self, ANI_BLOCKRELEASE, 0); + + } else { + + self->blocking = BLOCK_STATE_NONE; + self->takeaction = NULL; + set_idle(self); + } + } + } + } +} + + +void common_charge() +{ + if(self->animating) + { + return; + } + + self->charging = 0; + self->takeaction = NULL; + set_idle(self); +} + +// common code for entities hold an item +entity *drop_item(entity *e) +{ + s_spawn_entry p; + entity *item; + memset(&p, 0, sizeof(p)); + + // Just to make sure there is an item so + // we don't look for data on a NULL pointer. + if(!e->item_properties) + { + return NULL; + } + + p.index = e->item_properties->index; + p.item_properties.index = p.weaponindex = -1; + strcpy(p.alias, e->item_properties->alias); + p.position.y = e->position.y + 0.01; // For check, or an enemy "item" will drop from the sky + p.health[0] = e->item_properties->health; + p.alpha = e->item_properties->alpha; + p.colourmap = e->item_properties->colorset; + p.flip = e->direction; + + item = smartspawn(&p); + + if(item) + { + item->spawntype = SPAWN_TYPE_ITEM; + + item->position.x = e->position.x; + item->position.z = e->position.z; + if(item->position.x < advancex) + { + item->position.x = advancex + 10; + } + else if(item->position.x > advancex + videomodes.hRes) + { + item->position.x = advancex + videomodes.hRes - 10; + } + if(!(level->scrolldir & (SCROLL_UP | SCROLL_DOWN))) + { + if(item->position.z - item->position.y < advancey) + { + item->position.z = advancey + 10; + } + else if(item->position.z - item->position.y > advancey + videomodes.vRes) + { + item->position.z = advancey + videomodes.vRes - 10; + } + } + if(e->boss && (item->modeldata.type & TYPE_ENEMY)) + { + item->boss = 1; + } + } + return item; +} + +//drop the driver, just spawn, dont takedamage +// damage will adjust by the biker +entity *drop_driver(entity *e) +{ + int i; + s_spawn_entry p; + entity *driver; + memset(&p, 0, sizeof(p)); + + if(e->modeldata.rider >= 0) + { + p.index = e->modeldata.rider; + } + else + { + return NULL; // should not happen, just in case + } + p.position.y = e->position.y + 10; + p.weaponindex = -1; + strcpy(p.alias, e->name); + + // Carrying an item, so let's transfer that to spawn + // entry for the driver. + if(e->item_properties) + { + strcpy(p.item_properties.alias, e->item_properties->alias); + + p.item_properties.index = e->item_properties->index; + p.item_properties.colorset = e->item_properties->colorset; + p.item_properties.alpha = e->item_properties->alpha; + p.item_properties.health = e->item_properties->health; + p.item_properties.player_count = e->item_properties->player_count; + } + + /* Match driver color to entity color. */ + p.colourmap = e->map; + + for(i = 0; i < MAX_PLAYERS; i++) + { + p.health[i] = e->modeldata.health; + } + p.boss = e->boss; + + driver = smartspawn(&p); + if(driver) + { + driver->spawntype = SPAWN_TYPE_BIKER; + driver->position.x = e->position.x; + driver->position.z = e->position.z; + } + return driver; +} + + +void checkdeath(entity* target_entity) +{ + if(target_entity->energy_state.health_current > 0) + { + return; + } + target_entity->death_state |= DEATH_STATE_DEAD; + + /* Killed in the air? */ + if (inair(target_entity)) + { + target_entity->death_state |= DEATH_STATE_AIR; + } + + /* In the back? D*** move banner! */ + if (target_entity->inbackpain) + { + target_entity->death_state |= DEATH_STATE_BACK; + } + + //be careful, since the opponent can be other types + if(target_entity->opponent && (target_entity->opponent->modeldata.type & TYPE_PLAYER)) + { + addscore(target_entity->opponent->playerindex, target_entity->modeldata.score); // Add score to the player + } + target_entity->nograb = 1; + target_entity->idling = IDLING_NONE; + target_entity->ducking = DUCK_NONE; + + if(target_entity->modeldata.diesound >= 0) + { + sound_play_sample(target_entity->modeldata.diesound, 0, savedata.effectvol, savedata.effectvol, 100); + } + + // Drop an item if we have one. + if(target_entity->item_properties) + { + if(count_ents(TYPE_PLAYER) > target_entity->item_properties->player_count) + { + drop_item(target_entity); + } + } + + + if(target_entity->boss) + { + target_entity->boss = 0; + --level->bossescount; + if(level->bossescount <= 0 && (target_entity->modeldata.type & TYPE_ENEMY)) + { + kill_all_enemies(); + level_completed = 1; + level_completed_defeating_boss |= 1; + } + } +} + +void checkdamageflip(entity* target_entity, entity *other, s_attack *attack_object, const s_defense* defense_object) +{ + /* Debuging info */ + //attack_dump_object(attack_object); + + target_entity->normaldamageflipdir = DIRECTION_RIGHT; + + int pain_check = 0; + + /* + * Check all the following conditions before we + * take further actions. + */ + + /* + * No damage entity source, or we are the + * damage source. + */ + if (other == NULL || other == target_entity) + { + return; + } + + /* + * Attack did not knock down and + * won't put us into a pain reaction. + */ + if(!target_entity->drop) + { + if (attack_object->no_pain) + { + return; + } + + if (target_entity->modeldata.pain_config_flags & PAIN_CONFIG_PAIN_DISABLE) + { + return; + } + + pain_check = defense_result_pain(attack_object, defense_object); + + if (!pain_check) + { + return; + } + } + + /* We're frozen. */ + if (target_entity->frozen) + { + return; + } + + /* We can't turn. */ + if (target_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_FLIP) + { + return; + } + + + /* Apply appropriate direction switch (if any). */ + + //printf("\n\t attack_object->force_direction: %d", attack_object->force_direction); + + switch(attack_object->force_direction) + { + case DIRECTION_ADJUST_TOWARD: + + if (other->position.x < target_entity->position.x) + { + target_entity->direction = DIRECTION_RIGHT; + } + else if (other->position.x > target_entity->position.x) + { + target_entity->direction = DIRECTION_LEFT; + } + else + { + // target_entity->direction = target_entity->direction; + } + + break; + + case DIRECTION_ADJUST_AWAY: + + if (other->position.x < target_entity->position.x) + { + target_entity->direction = DIRECTION_LEFT; + } + else if (other->position.x > target_entity->position.x) + { + target_entity->direction = DIRECTION_RIGHT; + } + else + { + //target_entity->direction = target_entity->direction; + } + + break; + + case DIRECTION_ADJUST_NONE: + + //printf("\n\t DIRECTION_ADJUST_NONE"); + + if(!target_entity->inbackpain ) + { + if(target_entity->position.x < other->position.x) + { + target_entity->direction = DIRECTION_RIGHT; + } + else if(target_entity->position.x > other->position.x) + { + target_entity->direction = DIRECTION_LEFT; + } + } + else + { + if(target_entity->position.x < other->position.x) + { + target_entity->normaldamageflipdir = DIRECTION_RIGHT; + } + else if(target_entity->position.x > other->position.x) + { + target_entity->normaldamageflipdir = DIRECTION_LEFT; + } + } + break; + + case DIRECTION_ADJUST_SAME: + + //printf("\n\t DIRECTION_ADJUST_SAME"); + + target_entity->direction = other->direction; + break; + + case DIRECTION_ADJUST_OPPOSITE: + + //printf("\n\t DIRECTION_ADJUST_OPPOSITE"); + + target_entity->direction = !other->direction; + break; + + case DIRECTION_ADJUST_RIGHT: + + //printf("\n\t DIRECTION_ADJUST_RIGHT"); + + target_entity->direction = DIRECTION_RIGHT; + break; + + case DIRECTION_ADJUST_LEFT: + + //printf("\n\t DIRECTION_ADJUST_LEFT"); + + target_entity->direction = DIRECTION_LEFT; + break; + } + +} + +void checkdamageeffects(entity* target_entity, s_attack* attack) +{ +#define _freeze attack->freeze +#define _maptime attack->maptime +#define _freezetime attack->freezetime +#define _remap attack->forcemap +#define _blast attack->blast +#define _steal attack->steal +#define _seal attack->seal +#define _sealtime attack->sealtime +#define _staydown_rise attack->staydown.rise +#define _staydown_rise_attack attack->staydown.riseattack + + entity *opp = target_entity->opponent; + + // Steal. Take HP from the entity and add it to attacker. + if(_steal && opp && opp != target_entity) + { + // If we have enough HP to withstand the attack, give attacker + // the same amount as attack force. Otherwise just give them + // whatever HP we have left. + if(target_entity->energy_state.health_current >= attack->attack_force) + { + opp->energy_state.health_current += attack->attack_force; + } + else + { + opp->energy_state.health_current += target_entity->energy_state.health_current; + } + + // Cap the effect so attacker doesn't go over their maximum HP. + if(opp->energy_state.health_current > opp->modeldata.health) + { + opp->energy_state.health_current = opp->modeldata.health; + } + } + + // Freeze effect. If this is a freeze attack and we're + // not already frozen, apply a freeze effect and possibly + // remap to freeze palette. If we ARE frozen, then + // unfreeze and knock down instead. + if(_freeze && !target_entity->frozen) + { + + // Set freeze status and expire time. + target_entity->frozen = 1; + if(target_entity->freezetime == 0) + { + target_entity->freezetime = _time + _freezetime; + } + + // 2007-12-14 + // Caskey, Damon V. + // + // If opponents frozen map = -1 or only stun, then don't change the color map. + + if(_remap == -1 && target_entity->modeldata.colorsets.frozen != -1) + { + target_entity->colourmap = model_get_colourmap(&(target_entity->modeldata), target_entity->modeldata.colorsets.frozen); + } + + target_entity->drop = 0; + } + else if(target_entity->frozen) + { + unfrozen(target_entity); + target_entity->drop = 1; + } + + // If we want to apply a remap without freezing (forcemap attack command) then + // set the map and expire time here. + if(_remap != 0 && !_freeze) + { + /* + * Caskey, Damon V. + * 2020-10-20 + * + * Apply named map if available + * or fall back to direct index. + * + * TODO: Code is pretty messy and + * repetitive. Needs some refinement + * and offloading to a function. + */ + switch (_remap) + { + case MAP_TYPE_BURN: + if (target_entity->modeldata.colorsets.burn != COLORSET_INDEX_NONE) + { + target_entity->colourmap = model_get_colourmap(&(target_entity->modeldata), target_entity->modeldata.colorsets.burn); + } + break; + case MAP_TYPE_FREEZE: + if (target_entity->modeldata.colorsets.frozen != COLORSET_INDEX_NONE) + { + target_entity->colourmap = model_get_colourmap(&(target_entity->modeldata), target_entity->modeldata.colorsets.frozen); + } + break; + case MAP_TYPE_KO: + if (target_entity->modeldata.colorsets.ko != COLORSET_INDEX_NONE) + { + target_entity->colourmap = model_get_colourmap(&(target_entity->modeldata), target_entity->modeldata.colorsets.ko); + } + break; + case MAP_TYPE_SHOCK: + if (target_entity->modeldata.colorsets.shock != COLORSET_INDEX_NONE) + { + target_entity->colourmap = model_get_colourmap(&(target_entity->modeldata), target_entity->modeldata.colorsets.shock); + } + break; + default: + target_entity->colourmap = model_get_colourmap(&(target_entity->modeldata), _remap); + break; + } + + target_entity->maptime = _time + _maptime; + } + + // Disable specials. Apply seal (Any animation with + // energy_cost > seal) is disabled and time to expire. + if(_seal) + { + target_entity->sealtime = _time + _sealtime; + target_entity->seal = _seal; + } + + // Apply any recursive (damage over time) effects. + recursive_effect_check_apply(target_entity, opp, attack); + + // Static enemies/nodrop enemies cannot be knocked down + if(target_entity->modeldata.pain_config_flags & PAIN_CONFIG_FALL_DISABLE) + { + target_entity->drop = 0; + } + + // Always knock airborne entities down unless we're freezeing them + // or they are specfically immune to in air knockdowns. + if(inair(target_entity) && !target_entity->frozen && !(target_entity->modeldata.pain_config_flags & PAIN_CONFIG_FALL_DISABLE_AIR)) + { + target_entity->drop = 1; + } + + // Immune to hit stun? No knockdown either. + if(attack->no_pain) + { + target_entity->drop = 0; + } + + // If entity will be knocked down, let's apply knockdown specific effects here. + if(target_entity->drop) + { + target_entity->projectile = _blast; + + target_entity->staydown.rise = _staydown_rise; //Staydown: Add to risetime until next rise. + target_entity->staydown.riseattack = _staydown_rise_attack; + } + +#undef _freeze +#undef _maptime +#undef _freezetime +#undef _remap +#undef _blast +#undef _steal +#undef _seal +#undef _sealtime +#undef _staydown_rise +#undef _staydown_rise_attack +} + +/* +* Orginal author and date unknown. +* +* Determines fall status after taking damage. +* +* Caskey, Damon V. +* 2021-09-08 +* +* Slightly reworked to accept the target entity +* as parameter rather than referencing the +* global "self" variable. +* +* Accepts defense object to pass on into +* total damage calculation functions. +*/ +void checkdamagedrop(entity* target_entity, s_attack* attack_object, const s_defense* defense_object) +{ + int attack_drop = attack_object->attack_drop; + float defense_knockdown = defense_object->knockdown; + + /* + * If already falling or attack is a "no reflect", then + * do nothing and exit. + */ + + if (target_entity->drop || attack_object->no_pain) + { + return; + } + + /* + * Legacy behavior. Always fall if in "animal" mode. + */ + + if(target_entity->modeldata.weapon_properties.weapon_state & WEAPON_STATE_ANIMAL) + { + target_entity->drop = 1; + } + + /* Make sure guard break doesn't knock target down. */ + + if(target_entity->modeldata.guardpoints > 0 && target_entity->guardpoints <= 0) + { + attack_drop = 0; + } + + /* + * Reset knockdown count if the knockdowntime + * is expired. + */ + + if(target_entity->knockdowntime && target_entity->knockdowntime < _time) + { + target_entity->knockdowncount = target_entity->modeldata.knockdowncount; + } + + /* + * Defense knockdown works just like damage. It + * is a mutiplier we apply to the attack's drop + * power. We then subjtract the result from target's + * current knockdowncount. + * + * We also update the expire time for resetting + * target's current knockdown. + * + * If target's knockdown count reaches 0, we + * set target's drop status true, and target + * falls in game. + */ + + target_entity->knockdowncount -= (attack_drop * defense_knockdown); + target_entity->knockdowntime = _time + global_config.game_speed; + + if (target_entity->knockdowncount < 0) + { + target_entity->drop = 1; + } +} + +void checkmpadd(entity* target_entity) +{ + entity *other = target_entity->opponent; + if(other == NULL || other == target_entity) + { + return; + } + + if(magic_type == 1 ) + { + other->energy_state.mp_current += other->modeldata.mprate; + + if(other->energy_state.mp_current > other->modeldata.mp) + { + other->energy_state.mp_current = other->modeldata.mp; + } + else if(other->energy_state.mp_current < 0) + { + other->energy_state.mp_current = 0; + } + } +} + +void checkhitscore(entity* target_entity, entity* attacking_entity, s_attack* attack_object) +{ + entity *opp = target_entity->opponent; + if(!opp) + { + return; + } + if(opp != target_entity && (opp->modeldata.type & TYPE_PLAYER)) + { + // Added obstacle so explosions can hurt enemies + addscore(opp->playerindex, attack_object->attack_force * target_entity->modeldata.multiple); // New multiple variable + if (savedata.joyrumble[opp->playerindex]) control_rumble(opp->playerindex, 1, attack_object->attack_force * 2); + } + // Don't animate or fall if hurt by self, since + // it means self fell to the ground already. :) + // Add throw score to the player + else if(attacking_entity == target_entity && target_entity->damage_on_landing.attack_force > 0) + { + addscore(opp->playerindex, attack_object->attack_force); + } +} + +/* +* Caskey, Damon V. +* 2023-04-03 +* +* Accept string input and return +* matching constant. +*/ +e_death_config_flags death_get_config_flag_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_death_config_flags flag; + } flag_lookup_table[] = { + {"none", DEATH_CONFIG_NONE}, + {"default", DEATH_CONFIG_MACRO_DEFAULT}, + {"blink_death_air", DEATH_CONFIG_BLINK_DEATH_AIR}, + {"blink_death_ground", DEATH_CONFIG_BLINK_DEATH_GROUND}, + {"blink_fall_air", DEATH_CONFIG_BLINK_FALL_AIR}, + {"blink_fall_ground", DEATH_CONFIG_BLINK_FALL_GROUND}, + {"blink_remove_air", DEATH_CONFIG_BLINK_REMOVE_AIR}, + {"blink_remove_ground", DEATH_CONFIG_BLINK_REMOVE_GROUND}, + {"death_air", DEATH_CONFIG_DEATH_AIR}, + {"death_ground", DEATH_CONFIG_DEATH_GROUND}, + {"fall_land_air", DEATH_CONFIG_FALL_LAND_AIR}, + {"fall_land_ground", DEATH_CONFIG_FALL_LAND_GROUND}, + {"fall_lie_air", DEATH_CONFIG_FALL_LIE_AIR}, + {"fall_lie_ground", DEATH_CONFIG_FALL_LIE_GROUND}, + {"remove_corpse_air", DEATH_CONFIG_REMOVE_CORPSE_AIR}, + {"remove_corpse_ground", DEATH_CONFIG_REMOVE_CORPSE_GROUND}, + {"remove_vanish_air", DEATH_CONFIG_REMOVE_VANISH_AIR}, + {"remove_vanish_ground", DEATH_CONFIG_REMOVE_VANISH_GROUND}, + {"source_model", DEATH_CONFIG_SOURCE_MODEL}, + }; + + const size_t list_count = sizeof(flag_lookup_table) / sizeof(*flag_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, flag_lookup_table[i].text_name) == 0) + { + return flag_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * none flag. + */ + + printf("\n\n Unknown death config option (%s). \n", value); + return DEATH_CONFIG_NONE; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read death configuration arguments directly from the source + line, beginning at the requested item, and combine their flags. +*/ +e_death_config_flags death_get_config_flags_from_command_line( + const char* command_line, + const size_t start_position +) +{ + const char* value; + s_command_argument_reader reader; + e_death_config_flags result = DEATH_CONFIG_NONE; + + command_argument_reader_initialize( + &reader, + command_line, + start_position + ); + + while(command_argument_reader_next(&reader, &value)) { + result |= death_get_config_flag_from_string(value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-20 +* +* Accept current value and a legacy falldie. +* Returns appropriate config flags to match +* expected legacy behavior. +*/ +e_death_config_flags death_config_get_value_from_falldie(e_death_config_flags current_value, e_falldie_config acting_value) +{ + //printf("\n\n death_config_get_value_from_falldie(%d, %d)", current_value, acting_value); + + e_death_config_flags result = current_value & ~DEATH_CONFIG_MACRO_DEATH_FALL_ALL; + + switch (acting_value) + { + + case FALLDIE_CONFIG_NONE: + result |= DEATH_CONFIG_MACRO_DEFAULT; + break; + + case FALLDIE_CONFIG_DEATH_INSTANT: + result |= DEATH_CONFIG_MACRO_DEATH | DEATH_CONFIG_SOURCE_MODEL; + break; + + case FALLDIE_CONFIG_DEATH_FALL: + result |= DEATH_CONFIG_MACRO_DEATH_FALL_LAND | DEATH_CONFIG_SOURCE_MODEL; + break; + } + + //printf("\n\t result: %d", result); + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-20 +* +* Accept current value. Returns a legacy +* value based on active flags. +*/ +e_falldie_config death_config_get_falldie_from_value(e_death_config_flags acting_value) +{ + //printf("\n\n death_config_get_falldie_from_value(%d)", acting_value); + e_falldie_config result = FALLDIE_CONFIG_NONE; + + if ((acting_value & DEATH_CONFIG_MACRO_DEATH_FALL_LAND) == DEATH_CONFIG_MACRO_DEATH_FALL_LAND) + { + result = FALLDIE_CONFIG_DEATH_FALL; + } + else if ((acting_value & DEATH_CONFIG_MACRO_DEATH) == DEATH_CONFIG_MACRO_DEATH) + { + result = FALLDIE_CONFIG_DEATH_INSTANT; + } + else if ((acting_value & (DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND)) == (DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND)) + { + result = FALLDIE_CONFIG_NONE; + } + + //printf("\n\t result: %d", result); + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-20 +* +* Accept current value and a legacy falldie. +* Returns appropriate config flags to match +* expected legacy behavior. +*/ +e_death_config_flags death_config_get_value_from_nodieblink(e_death_config_flags current_value, e_nodieblink_config acting_value) +{ + //printf("\n\n death_config_get_value_from_nodieblink(%d, %d)", current_value, acting_value); + + e_death_config_flags result = (current_value &= ~(DEATH_CONFIG_MACRO_BLINK | DEATH_CONFIG_MACRO_FALL | DEATH_CONFIG_MACRO_REMOVE)); + + switch (acting_value) + { + + case NODIEBLINK_CONFIG_NONE: + result |= DEATH_CONFIG_BLINK_REMOVE_AIR | DEATH_CONFIG_BLINK_REMOVE_GROUND | DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND; + break; + + case NODIEBLINK_CONFIG_FALL_LIE_BLINK: + result |= DEATH_CONFIG_BLINK_REMOVE_AIR | DEATH_CONFIG_BLINK_REMOVE_GROUND | DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND; + break; + + case NODIEBLINK_CONFIG_FALL_LIE_CORPSE: + result |= DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_CORPSE_AIR | DEATH_CONFIG_REMOVE_CORPSE_GROUND; + break; + + case NODIEBLINK_CONFIG_FALL_LIE_VANISH: + result |= DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND; + break; + } + + //printf("\n\t result: %d", result); + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-20 +* +* Accept current value. Returns a legacy +* value based on active flags. +*/ +e_nodieblink_config death_config_get_nodieblink_from_value(e_death_config_flags acting_value) +{ + //printf("\n\n death_config_get_falldie_from_value(%d)", acting_value); + e_nodieblink_config result = NODIEBLINK_CONFIG_NONE; + + if ((acting_value & (DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) == (DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) + { + result = NODIEBLINK_CONFIG_FALL_LIE_VANISH; + } + else if ((acting_value & (DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_CORPSE_AIR | DEATH_CONFIG_REMOVE_CORPSE_GROUND)) == (DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_CORPSE_AIR | DEATH_CONFIG_REMOVE_CORPSE_GROUND)) + { + result = NODIEBLINK_CONFIG_FALL_LIE_CORPSE; + } + else if ((acting_value & (DEATH_CONFIG_BLINK_REMOVE_AIR | DEATH_CONFIG_BLINK_REMOVE_GROUND | DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) == (DEATH_CONFIG_BLINK_REMOVE_AIR | DEATH_CONFIG_BLINK_REMOVE_GROUND | DEATH_CONFIG_FALL_LIE_AIR | DEATH_CONFIG_FALL_LIE_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) + { + result = NODIEBLINK_CONFIG_FALL_LIE_BLINK; + } + else if ((acting_value & (DEATH_CONFIG_BLINK_REMOVE_AIR | DEATH_CONFIG_BLINK_REMOVE_GROUND | DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) == (DEATH_CONFIG_BLINK_REMOVE_AIR | DEATH_CONFIG_BLINK_REMOVE_GROUND | DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) + { + result = NODIEBLINK_CONFIG_NONE; + } + + //printf("\n\t result: %d", result); + + return result; +} + +/* +* Caskey, Damon V. +* 2023-04-03 +* +* Accept string input and return +* matching constant. +*/ +e_run_config_flags run_get_config_flag_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_run_config_flags flag; + } flag_lookup_table[] = { + {"none", RUN_CONFIG_NONE}, + {"land", RUN_CONFIG_LAND}, + {"x_left_dash_command", RUN_CONFIG_X_LEFT_DASH_COMMAND}, + {"x_left_dash_fixed", RUN_CONFIG_X_LEFT_DASH_FIXED}, + {"x_left_enabled", RUN_CONFIG_X_LEFT_ENABLED}, + {"x_left_initial", RUN_CONFIG_X_LEFT_INITIAL}, + {"x_right_dash_command", RUN_CONFIG_X_RIGHT_DASH_COMMAND}, + {"x_right_dash_fixed", RUN_CONFIG_X_RIGHT_DASH_FIXED}, + {"x_right_enabled", RUN_CONFIG_X_RIGHT_ENABLED}, + {"x_right_initial", RUN_CONFIG_X_RIGHT_INITIAL}, + {"z_down_dash_command", RUN_CONFIG_Z_DOWN_DASH_COMMAND}, + {"z_down_dash_fixed", RUN_CONFIG_Z_DOWN_DASH_FIXED}, + {"z_down_enabled", RUN_CONFIG_Z_DOWN_ENABLED}, + {"z_down_initial", RUN_CONFIG_Z_DOWN_INITIAL}, + {"z_up_dash_command", RUN_CONFIG_Z_UP_DASH_COMMAND}, + {"z_up_dash_fixed", RUN_CONFIG_Z_UP_DASH_FIXED}, + {"z_up_enabled", RUN_CONFIG_Z_UP_ENABLED}, + {"z_up_initial", RUN_CONFIG_Z_UP_INITIAL}, + }; + + const size_t list_count = sizeof(flag_lookup_table) / sizeof(*flag_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, flag_lookup_table[i].text_name) == 0) + { + return flag_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * none flag. + */ + + printf("\n\n Unknown run config option (%s). \n", value); + return RUN_CONFIG_NONE; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read running configuration arguments directly from the source + line, beginning at the requested item, and combine their flags. +*/ +e_run_config_flags run_get_config_flags_from_command_line( + const char* command_line, + const size_t start_position +) +{ + const char* value; + s_command_argument_reader reader; + e_run_config_flags result = RUN_CONFIG_NONE; + + command_argument_reader_initialize( + &reader, + command_line, + start_position + ); + + while(command_argument_reader_next(&reader, &value)) { + result |= run_get_config_flag_from_string(value); + } + + return result; +} + + +/* +* Caskey, Damon V. +* 2023-03-20 +* +* Accept string input and return +* matching constant. +*/ +e_shadow_config_flags shadow_get_config_flag_from_string(const char* value) +{ + const struct + { + const char* text_name; + e_shadow_config_flags flag; + } flag_lookup_table[] = { + {"none", SHADOW_CONFIG_NONE}, + {"default", SHADOW_CONFIG_DEFAULT}, + {"base_platform", SHADOW_CONFIG_BASE_PLATFORM}, + {"base_static", SHADOW_CONFIG_BASE_STATIC}, + {"disabled", SHADOW_CONFIG_DISABLED}, + {"replica_air", SHADOW_CONFIG_GRAPHIC_REPLICA_AIR}, + {"replica_ground", SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND}, + {"static_air", SHADOW_CONFIG_GRAPHIC_STATIC_AIR}, + {"static_ground", SHADOW_CONFIG_GRAPHIC_STATIC_GROUND} + }; + + const size_t list_count = sizeof(flag_lookup_table) / sizeof(*flag_lookup_table); + + for (size_t i = 0; i < list_count; i++) + { + if (stricmp(value, flag_lookup_table[i].text_name) == 0) + { + return flag_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * none flag. + */ + + printf("\n\n Unknown death config option (%s). \n", value); + return SHADOW_CONFIG_NONE; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read shadow configuration arguments directly from the source + line and combine their corresponding behavior flags. +*/ +e_shadow_config_flags shadow_get_config_flags_from_command_line( + const char* command_line +) +{ + const char* value; + s_command_argument_reader reader; + e_shadow_config_flags result = SHADOW_CONFIG_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= shadow_get_config_flag_from_string(value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-19 +* +* Accept current shadow config +* state and a legacy air only +* property. Returns appropriate +* shadow config value. +*/ +e_shadow_config_flags shadow_get_config_from_legacy_aironly(e_shadow_config_flags shadow_config_flags, int legacy_value) +{ + e_shadow_config_flags result = shadow_config_flags; + + if (!legacy_value) + { + /* + * Don't do anything. Text "aironly 0" doesn't + * mean no air shadows, and fortunatly there + * is no legacy aironly script access, so + * we don't need to worry about that. + */ + + return result; + } + + /* + * If either type of ground shadow is turned on, + * then disable it here. + */ + + if (shadow_config_flags & SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND) + { + result &= ~SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND; + result |= SHADOW_CONFIG_GRAPHIC_REPLICA_AIR; + } + + if (shadow_config_flags & SHADOW_CONFIG_GRAPHIC_STATIC_GROUND) + { + result &= ~SHADOW_CONFIG_GRAPHIC_STATIC_GROUND; + result |= SHADOW_CONFIG_GRAPHIC_STATIC_AIR; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-19 +* +* Accept current shadow config +* state and a legacy gfxshadow +* property. Returns appropriate +* shadow config value. +*/ +e_shadow_config_flags shadow_get_config_from_legacy_gfxshadow(e_shadow_config_flags shadow_config_flags, int legacy_value) +{ + e_shadow_config_flags result = shadow_config_flags; + + /* + * Creator wants to turn off "gfx", so swap any + * existing replica flags for static. + */ + + if (!legacy_value) + { + if (shadow_config_flags & SHADOW_CONFIG_GRAPHIC_REPLICA_AIR) + { + result |= SHADOW_CONFIG_GRAPHIC_STATIC_AIR; + result &= ~SHADOW_CONFIG_GRAPHIC_REPLICA_AIR; + } + + if (shadow_config_flags & SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND) + { + result |= SHADOW_CONFIG_GRAPHIC_STATIC_GROUND; + result &= ~SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND; + } + + /* + * If no shadow at all set, creator expects + * gfxshadow 0 to set up static shadow. Let's + * initialize the flags here. + */ + + if (!(shadow_config_flags & SHADOW_CONFIG_GRAPHIC_ALL)) + { + result |= (SHADOW_CONFIG_GRAPHIC_STATIC_GROUND | SHADOW_CONFIG_GRAPHIC_STATIC_AIR); + } + + return result; + } + + + /* + * Creator wants to turn on "gfx", so swap any + * existing static flags for replica. + */ + + if (shadow_config_flags & SHADOW_CONFIG_GRAPHIC_STATIC_GROUND) + { + result &= ~SHADOW_CONFIG_GRAPHIC_STATIC_GROUND; + result |= SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND; + } + + if (shadow_config_flags & SHADOW_CONFIG_GRAPHIC_STATIC_AIR) + { + result &= ~SHADOW_CONFIG_GRAPHIC_STATIC_AIR; + result |= SHADOW_CONFIG_GRAPHIC_REPLICA_AIR; + } + + /* + * If no shadow at all set, creator expects + * gfxshadow to set up replica shadow. Let's + * initialize the flags here. + */ + if (!(shadow_config_flags & SHADOW_CONFIG_GRAPHIC_ALL)) + { + result |= (SHADOW_CONFIG_GRAPHIC_REPLICA_GROUND | SHADOW_CONFIG_GRAPHIC_REPLICA_AIR); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-03-19 +* +* Accept current shadow config +* state and a legacy property. +* Returns appropriate shadow +* config value. +*/ +e_shadow_config_flags shadow_get_config_from_legacy_shadowbase(e_shadow_config_flags shadow_config_flags, e_shadowbase_config legacy_value) +{ + e_shadow_config_flags result = shadow_config_flags; + + /* Remove all existing base flags.*/ + result &= ~SHADOW_CONFIG_BASE_ALL; + + switch (legacy_value) + { + default: + case SHADOWBASE_CONFIG_NONE: + + /* Do nothing. */ + break; + + case SHADOWBASE_CONFIG_NO_CHANGE: + + result |= SHADOW_CONFIG_BASE_STATIC; + break; + + case SHADOWBASE_CONFIG_PLATFORM: + + result |= SHADOW_CONFIG_BASE_PLATFORM; + break; + + case SHADOWBASE_COMBINE: + + result |= (SHADOW_CONFIG_BASE_STATIC | SHADOW_CONFIG_BASE_PLATFORM); + break; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2025-05-21 +* +* Remove trigger parameter reading. As +* of 2025-05-21, this is a bit much, but +* we may want to expand with more options +* later on. +*/ +static const s_remove_config_map remove_config_map[] = { + { "None", REMOVE_CONFIG_NONE }, + { "Hit", REMOVE_CONFIG_HIT }, +}; + +#define REMOVE_CONFIG_MAP_SIZE (sizeof(remove_config_map) / sizeof(remove_config_map[0])) + +e_remove_config get_remove_config_from_string(const char* value) { + if (!value) return REMOVE_CONFIG_NONE; + + // Try to match string (case-insensitive) + for (size_t i = 0; i < REMOVE_CONFIG_MAP_SIZE; i++) { + if (stricmp(value, remove_config_map[i].name) == 0) { + return remove_config_map[i].trigger; + } + } + + // Try to parse as an integer fallback + char* endptr = NULL; + long val = strtol(value, &endptr, 10); + if (endptr != value && *endptr == '\0' && val >= 0) { + return (e_remove_config)val; + } + + // Default fallback + printf("Warning: Unknown Remove value '%s', defaulting to Hit\n", value); + return REMOVE_CONFIG_HIT; +} + +#undef REMOVE_CONFIG_MAP_SIZE + +/* +* Caskey, Damon V. +* 2021-08-30 +* +* Allocate a defense object and return pointer. +*/ +s_defense* defense_allocate_object(void) { + int attack_type; + s_defense* result = NULL; + + /* + * Allocate one extra slot because several legacy paths + * historically expect max_attack_types + 1 storage. + */ + result = calloc(max_attack_types + 1, sizeof(*result)); + + if (!result) { + borShutdown(1, E_OUT_OF_MEMORY); + } + + for (attack_type = 0; attack_type < max_attack_types + 1; attack_type++) { + result[attack_type] = default_defense; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2021-08-30 +* +* Applies value to an attack type element +* of defense. +*/ +void defense_apply_setup_to_property( + char* filename, + char* command, + const char* command_line, + s_defense* defense, + ArgList* arglist, + e_defense_parameters target_parameter +) +{ + //printf("\n\n defense_apply_setup_to_property(%s, %s, %p, %p, %d)", filename, command, defense, arglist, target_parameter); + //printf("\n\t GET_FLOAT_ARGP(2): %f", GET_FLOAT_ARGP(2)); + + /* + * If a NULL pointer gets through, lets + * get out before we cause a NULL pointer + * error + */ + if (!defense) + { + return; + } + + /* + * As of 2021-08-30, the up to date method + * sets one parameter at a time. This is more + * readable in the model text files. It also + * allows easier debug and expansion in the future. + * + * Defense is a bit clunky since we have to send + * a constant to tell us which parameter to update + * but it still beats the legacy method. + */ + + switch (target_parameter) + { + case DEFENSE_PARAMETER_BLOCK_DAMAGE_ADJUST: + defense->block_damage_adjust = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_BLOCK_DAMAGE_MAX: + defense->block_damage_max = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_BLOCK_DAMAGE_MIN: + defense->block_damage_min = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_BLOCK_POWER: + defense->blockpower = GET_FLOAT_ARGP(2); + break; + + case DEFENSE_PARAMETER_BLOCK_RATIO: + defense->blockratio = GET_FLOAT_ARGP(2); + break; + + case DEFENSE_PARAMETER_BLOCK_THRESHOLD: + defense->blockthreshold = GET_FLOAT_ARGP(2); + break; + + case DEFENSE_PARAMETER_BLOCK_TYPE: + defense->blocktype = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_DAMAGE_ADJUST: + defense->damage_adjust = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_DAMAGE_MAX: + defense->damage_max = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_DAMAGE_MIN: + defense->damage_min = GET_INT_ARGP(2); + break; + + case DEFENSE_PARAMETER_DEATH_CONFIG: + defense->death_config_flags = death_get_config_flags_from_command_line(command_line, 2); + break; + + case DEFENSE_PARAMETER_FACTOR: + defense->factor = GET_FLOAT_ARGP(2); + break; + + case DEFENSE_PARAMETER_KNOCKDOWN: + defense->knockdown = GET_FLOAT_ARGP(2); + break; + + case DEFENSE_PARAMETER_LEGACY: + + /* + * Legacy read. Populate values from single + * line muti-parameter command. + * + * Please do not expand the legacy read. We + * want to encourage creators to use up to + * date methods. + */ + + if (arglist->count >= 2) + { + defense->factor = GET_FLOAT_ARGP(2); + } + if (arglist->count >= 3) + { + defense->pain = GET_FLOAT_ARGP(3); + } + if (arglist->count >= 4) + { + defense->knockdown = GET_FLOAT_ARGP(4); + } + if (arglist->count >= 5) + { + defense->blockpower = GET_FLOAT_ARGP(5); + } + if (arglist->count >= 6) + { + defense->blockthreshold = GET_FLOAT_ARGP(6); + } + if (arglist->count >= 7) + { + defense->blockratio = GET_FLOAT_ARGP(7); + } + if (arglist->count >= 8) + { + defense->blocktype = GET_FLOAT_ARGP(8); + } + break; + + case DEFENSE_PARAMETER_PAIN: + defense->pain = GET_FLOAT_ARGP(2); + break; + } + +} + +/* +* Caskey, Damon V. +* 2021-08-30 +* +* Free defense from memory. +*/ +void defense_free_object(s_defense* target) +{ + if (!target) + { + return; + } + + free(target); +} + +/* +* Caskey, Damon V. +* 2021-09-08 +* +* Accept animation object and frame. Returns +* the defense object from animation frame's +* collision, or NULL if not available. +*/ +//s_defense* defense_get_current_body_defense_from_animation(s_anim* animation_object, int animation_frame) +//{ +// s_collision_body* collision_body_object = NULL; +// s_body* body_object = NULL; +// +// /* Animation frame has a collision body allocated? */ +// +// collision_body_object = animation_object->collision_body[animation_frame]; +// +// if (!collision_body_object) +// { +// return NULL; +// } +// +// /* +// * Collision body should always have body +// * allocated, but let's make certain. +// */ +// +// body_object = collision_body_object->body; +// +// if (!body_object) +// { +// return NULL; +// } +// +// /* +// * Return body's defense property. In most +// * cases there won't be a defense allocated +// * for individual bodies, so this is likely +// * a NULL pointer value. Be very careful +// * when referencing downstream. +// */ +// +// return body_object->defense; +//} +// +///* +//* Caskey, Damon V. +//* 2021-09-08 +//* +//* Accept entity pointer. Returns defense object +//* from current animation frame's collision, or +//* NULL if not available. +//*/ +//s_defense* defense_get_current_body_defense_object_from_entity(entity* target_entity) +//{ +// s_anim* animation_object = NULL; +// +// /* +// * Every entity should have an animation +// * allocated, but let's make certain. +// */ +// +// animation_object = target_entity->animation; +// +// if (!animation_object) +// { +// return NULL; +// } +// +// /* +// * Send animation pointer to the defense get +// * function for animations and return its +// * result. Most animation frames won't have +// * a defense allocated, so this is likely a +// * NULL pointer value. Be very careful +// * when referencing downstream. +// */ +// +// return defense_get_current_body_defense_from_animation(animation_object, target_entity->animpos); +//} + + +/* +* Caskey, Damon V. +* 2023-02-09 +* +* Return final damage output from +* after offense adjustments. +*/ +int offense_result_damage(s_offense* offense_object, int attack_force) +{ + int result = attack_force; + + if (!offense_object) + { + return result; + } + + result = (int)(result * offense_object->factor); + + result += offense_object->damage_adjust; + + if (result < offense_object->damage_min) + { + result = offense_object->damage_min; + } + + if (result > offense_object->damage_max) + { + result = offense_object->damage_max; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2021-09-08 +* +* Return final damage output from +* after defense adjustments. If the attack +* was blocked, then the block ratio and +* block damage adjustments are applied. If +* the attack was not blocked, then the defense +* factor and damage adjustments are applied. +*/ +int64_t defense_result_damage(const s_defense* defense_object, int64_t attack_force, bool blocked) { + const float DEFENSE_GLOBAL_BLOCK_RATIO = 0.25f; + + int64_t result = attack_force; + float ratio = 0.0f; + int64_t damage_adjust = 0; + int64_t damage_min = INT64_MIN; + int64_t damage_max = INT64_MAX; + + /* + * Fall back to global default if defense + * object is NULL. + */ + const s_defense* const defense_object_local = defense_object ? defense_object : &default_defense; + + /* + * Get the ratio and adjustments for a hit + * or successfully blocked attack. + */ + if (blocked) { + if (defense_object_local->blockratio == + DEFENSE_BLOCKRATIO_COMPATABILITY_DEFAULT) { + ratio = global_config.block_ratio + ? DEFENSE_GLOBAL_BLOCK_RATIO + : 0.0f; + } else { + ratio = defense_object_local->blockratio; + } + + damage_adjust = defense_object_local->block_damage_adjust; + damage_min = defense_object_local->block_damage_min; + damage_max = defense_object_local->block_damage_max; + } else { + ratio = defense_object_local->factor; + damage_adjust = defense_object_local->damage_adjust; + damage_min = defense_object_local->damage_min; + damage_max = defense_object_local->damage_max; + } + + /* + * Apply ratio, round to the nearest whole damage + * value, apply adjustment, and enforce bounds. + */ + result = (int64_t)round((double)result * ratio); + result += damage_adjust; + + if (result < damage_min) { + result = damage_min; + } + + if (result > damage_max) { + result = damage_max; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2021-09-08 +* +* Return true if entity should enter pain reaction +* after applying defense pain property. +*/ +int defense_result_pain(s_attack* attack_object, const s_defense* defense_object) +{ + const int attack_force = attack_object->attack_force; + const attack_type_t attack_type = attack_object->attack_type; + + /* + * Make sure attack types are in bounds and defense + * object is valid. + */ + + if (!defense_object) + { + return 1; + } + + if (attack_type >= (attack_type_t)max_attack_types) + { + return 1; + } + + /* + * Defense pain 0 is default, so we don't have any + * resistance to pain. + */ + + if (!defense_object->pain) + { + return 1; + } + + /* + * Attack force meets or beats pain? Then return true + * and downstream functions will set up pain reactions. + */ + if (attack_force >= defense_object->pain) + { + return 1; + } + + /* + * Nothing passed, so defense is available and sufficient + * to resist attack force. Return false. Downstream functions + * can skip pain reaction setup. + */ + + return 0; +} + +/* +* Caskey, Damon V. +* 2021-09-01 +* +* Locate the appropriate pointer for dereferencing +* an "at the moment" defense property. Meant for +* hit logic, so we know which defense value to use. +* Returns one of the following, first to last. +* +* 1. Supplied body object's defense member. +* Presumably the body object that detected +* incoming hit. Return if defense pointer +* is valid. +* +* 2. Target entity's model level defense member. +* Return if pointer is valid. +* +* 3. Global defense_default constant. +*/ +const s_defense* defense_find_current_object(const entity* ent, const s_body* body_object, const attack_type_t attack_type) { + //printf("\n\n defense_find_current_object(%p, %p, %d)", ent, body_object, attack_type); + + /* + * Runtime attack types may include creator-defined + * values, but they must remain within the configured + * defense collection capacity. + */ + if (attack_type >= (attack_type_t)max_attack_types) { + return &default_defense; + } + + /* Supplied body. */ + + if (body_object && body_object->defense) { + //printf("\n\t &body_object->defense[%d]: %p", attack_type, &body_object->defense[attack_type]); + + return &body_object->defense[attack_type]; + } + + /* Entity defense */ + + if (ent && ent->defense) { + //printf("\n\t ent->defense: %p", &ent->defense[attack_type]); + + return &ent->defense[attack_type]; + } + + /* Global default. */ + + //printf("\n\t &default_defense: %p", &default_defense); + + return &default_defense; +} + +// attack_type_map.h + +#ifndef ATTACK_TYPE_MAP_H +#define ATTACK_TYPE_MAP_H + +typedef struct { + const char* name; + attack_type_t attack_type; +} s_attack_type_map; + +static const s_attack_type_map attack_type_map[] = { + { "NORMAL", ATK_NORMAL }, + { "NORMAL0", ATK_NORMAL }, + { "NORMAL1", ATK_NORMAL }, + { "NORMAL2", ATK_NORMAL2 }, + { "NORMAL3", ATK_NORMAL3 }, + { "NORMAL4", ATK_NORMAL4 }, + { "NORMAL5", ATK_NORMAL5 }, + { "NORMAL6", ATK_NORMAL6 }, + { "NORMAL7", ATK_NORMAL7 }, + { "NORMAL8", ATK_NORMAL8 }, + { "NORMAL9", ATK_NORMAL9 }, + { "NORMAL10", ATK_NORMAL10 }, + { "BLAST", ATK_BLAST }, + { "STEAL", ATK_STEAL }, + { "BURN", ATK_BURN }, + { "SHOCK", ATK_SHOCK }, + { "FREEZE", ATK_FREEZE }, + { "BOSS_DEATH", ATK_BOSS_DEATH }, + { "ITEM", ATK_ITEM }, + { "LAND", ATK_LAND }, + { "LIFESPAN", ATK_LIFESPAN }, + { "LOSE", ATK_LOSE }, + { "PIT", ATK_PIT }, + { "SUB_ENTITY_PARENT_KILL", ATK_SUB_ENTITY_PARENT_KILL }, + { "SUB_ENTITY_UNSUMMON", ATK_SUB_ENTITY_UNSUMMON }, + { "TIMEOVER", ATK_TIMEOVER } +}; + +#define ATTACK_TYPE_MAP_SIZE (sizeof(attack_type_map) / sizeof(attack_type_map[0])) + +#endif // ATTACK_TYPE_MAP_H + +/* + * Converts a string into a valid attack type index. + * + * Input formats supported: + * - A case-insensitive match to a predefined attack name in attack_type_map[] + * - A numeric string (e.g., "3"), interpreted as a 1-based index + * - A special case-insensitive prefix format: + * "normal" or "attack", where is an integer value + * + * Behavior: + * - The function first checks against known names in attack_type_map. + * - If not found, it looks for "attack" or "normal" prefixes and parses the suffix. + * - If still unresolved, it attempts to parse the entire input as a numeric string. + * - In all cases, the resulting attack type is adjusted to be 0-based. + * - If the final index exceeds max_attack_types or is invalid, it falls back to 0. + */ +int get_attack_type_from_string(const char* value, const char* filename) +{ + const char* prefixes[] = { "normal", "attack" }; + const size_t num_prefixes = sizeof(prefixes) / sizeof(prefixes[0]); + char normalized_input[64]; + char* endptr = NULL; + long val = -1; + int parsed_type = -1; + const char* input = value; + + //printf("\n\nParsing attack type from string '%s' (file: %s)\n", value, filename); + + // ========================================================================= + // Step 1: Normalize known prefixes OR numeric-only values into "normal" + // ========================================================================= + // This allows "attack3", "normal3", and even just "3" to resolve through LUT + // to entries like "NORMAL3". Special cases like "attack1" now work because + // "NORMAL1" is present in the LUT and maps to ATK_NORMAL. + for (size_t i = 0; i < num_prefixes; i++) { + const char* prefix = prefixes[i]; + size_t prefix_len = strlen(prefix); + + if (strnicmp(value, prefix, prefix_len) == 0) { + if (value[prefix_len] == '\0') { + // Case: "attack" or "normal" with no suffix: treat as "normal1" + snprintf(normalized_input, sizeof(normalized_input), "normal1"); + } + else if (isdigit((unsigned char)value[prefix_len])) { + // Case: "attackX" or "normalX": normalize to "normalX" + snprintf(normalized_input, sizeof(normalized_input), "normal%s", value + prefix_len); + } + else { + continue; + } + + input = normalized_input; + //printf("Normalized prefixed form '%s' to '%s'\n", value, input); + break; + } + } + + // If no prefix match occurred, check for numeric-only input + if (input == value && isdigit((unsigned char)value[0])) { + errno = 0; + val = strtol(value, &endptr, 10); + if (errno == 0 && endptr != value && *endptr == '\0' && val >= 0) { + snprintf(normalized_input, sizeof(normalized_input), "normal%ld", val); + input = normalized_input; + //printf("Normalized numeric-only string '%s' to '%s' for LUT match\n", value, input); + } + } + + // ========================================================================= + // Step 2: Lookup the normalized input in attack_type_map + // ========================================================================= + for (size_t i = 0; i < ATTACK_TYPE_MAP_SIZE; i++) { + if (stricmp(input, attack_type_map[i].name) == 0) { + //printf("Match found in attack_type_map: '%s' => %d\n", input, attack_type_map[i].attack_type); + return attack_type_map[i].attack_type; + } + } + + // ========================================================================= + // Step 3: If no LUT match, attempt to extract a number from: + // - "normal" + // - "attack" + // - plain "" + // ========================================================================= + const char* numeric_ptr = NULL; + + for (size_t i = 0; i < num_prefixes; i++) { + const char* prefix = prefixes[i]; + size_t len = strlen(prefix); + + if (strnicmp(value, prefix, len) == 0 && isdigit((unsigned char)value[len])) { + numeric_ptr = value + len; + break; + } + } + + if (!numeric_ptr && isdigit((unsigned char)value[0])) { + numeric_ptr = value; + } + + if (numeric_ptr) { + errno = 0; + val = strtol(numeric_ptr, &endptr, 10); + if (errno == 0 && endptr != numeric_ptr && *endptr == '\0' && val >= 0) { + parsed_type = (int)val; + //printf("Extracted numeric attack type: %d\n", parsed_type); + } + } + + // ========================================================================= + // Step 4: Fallback if nothing valid could be parsed + // ========================================================================= + if (parsed_type == -1) { + printf("Warning: Could not resolve attack type '%s' in file '%s'. Defaulting to ATK_NORMAL.\n", + value, filename); + return ATK_NORMAL; + } + + // ========================================================================= + // Step 5: Adjust for 1-based indexing used by designers/scripts + // ========================================================================= + if (parsed_type > 0) { + parsed_type--; + //printf("Adjusted for 1-based input: %d\n", parsed_type); + } + else { + parsed_type = 0; + //printf("Clamped type to 0 due to non-positive value.\n"); + } + + // ========================================================================= + // Step 6: Remap into user-defined attack type ID range + // ========================================================================= + const int user_input_cutoff = MAX_ATKS - STA_ATKS + 1; + if (parsed_type < user_input_cutoff) { + parsed_type = user_input_cutoff; + //printf("Input below remap threshold (%d); adjusted to %d\n", user_input_cutoff, parsed_type); + } + + parsed_type += STA_ATKS; + //printf("Remapped to user-defined attack type ID: %d\n", parsed_type); + + // ========================================================================= + // Step 7: Final bounds check against engine maximum + // ========================================================================= + if (parsed_type >= max_attack_types) { + printf("Warning: Attack type ID %d exceeds max (%d) in file '%s'. Using default.\n", + parsed_type, max_attack_types, filename); + return ATK_NORMAL; + } + + // ========================================================================= + // Step 8: Success - return resolved attack type ID + // ========================================================================= + return parsed_type; +} + + + + + +/* +* Caskey, Damon V. +* 2021-08-30 (Original) +* 2025-05-04 (Refactor) +* +* Read first argument in supplied argument list +* for type, and determines which attack type or +* attack types to assign a defense value. +*/ +void defense_setup_from_arg( + char* filename, + char* command, + const char* command_line, + s_defense* target_defense, + ArgList* arglist, + e_defense_parameters target_parameter +) { + int tempInt = 0; + int i = 0; + char* value = GET_ARGP(1); + + /* + * First try to match the value using the attack type map. + */ + for (i = 0; i < ATTACK_TYPE_MAP_SIZE; i++) + { + if (stricmp(value, attack_type_map[i].name) == 0) + { + defense_apply_setup_to_property( + filename, + command, + command_line, + &target_defense[attack_type_map[i].attack_type], + arglist, + target_parameter + ); + return; + } + } + + /* + * If no direct match, check for dynamic "normalN" pattern. + */ + if (starts_with(value, "normal")) + { + get_tail_number(tempInt, value, "normal"); + + defense_apply_setup_to_property( + filename, + command, + command_line, + &target_defense[tempInt + STA_ATKS - 1], + arglist, + target_parameter + ); + } + /* + * Handle "ALL" case - apply to all non-special attack types. + */ + else if (stricmp(value, "ALL") == 0) + { + for (i = 0; i < max_attack_types; i++) + { + if (is_attack_type_special(i)) + { + continue; + } + + defense_apply_setup_to_property( + filename, + command, + command_line, + &target_defense[i], + arglist, + target_parameter + ); + } + } +} + +/* +* Caskey, Damon V. +* 2023-02-07 +* +* Dump object data to log. +*/ +void defense_dump_object(const s_defense* object) +{ + const int space_label = 20; + + printf("\n\n -- Defense dump object (%p) Dump --\n", object); + + if (object) + { + printf("\n\t %-*s %d", space_label, "->block_damage_adjust", object->block_damage_adjust); + printf("\n\t %-*s %d", space_label, "->block_damage_max", object->block_damage_max); + printf("\n\t %-*s %d", space_label, "->block_damage_min", object->block_damage_min); + printf("\n\t %-*s %d", space_label, "->blockpower", object->blockpower); + printf("\n\t %-*s %f", space_label, "->blockratio", object->blockratio); + printf("\n\t %-*s %d", space_label, "->blockthreshold", object->blockthreshold); + printf("\n\t %-*s %d", space_label, "->blocktype", object->blocktype); + printf("\n\t %-*s %d", space_label, "->damage_adjust", object->damage_adjust); + printf("\n\t %-*s %d", space_label, "->damage_max", object->damage_max); + printf("\n\t %-*s %d", space_label, "->damage_min", object->damage_min); + printf("\n\t %-*s %d", space_label, "->death_config_flags", object->death_config_flags); + printf("\n\t %-*s %f", space_label, "->factor", object->factor); + printf("\n\t %-*s %f", space_label, "->knockdown", object->knockdown); + printf("\n\t %-*s %p", space_label, "->meta_data", object->meta_data); + printf("\n\t %-*s %d", space_label, "->meta_tag", object->meta_tag); + printf("\n\t %-*s %d", space_label, "->pain", object->pain); + } + + printf("\n\n -- Defense dump object (%p) dump complete! -- \n", object); +} + +/* +* Caskey, Damon V. +* 2023-02-07 +* +* Allocate an offense object and return pointer. +*/ +s_offense* offense_allocate_object(void) { + int attack_type; + s_offense* result = NULL; + + /* + * Allocate one extra slot because several legacy paths + * historically expect max_attack_types + 1 storage. + */ + result = calloc(max_attack_types + 1, sizeof(*result)); + + if (!result) { + borShutdown(1, E_OUT_OF_MEMORY); + } + + for (attack_type = 0; attack_type < max_attack_types + 1; attack_type++) { + result[attack_type] = default_offense; + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-02-07 +* +* Free offense from memory. +*/ +void offense_free_object(s_offense* target) +{ + if (!target) + { + return; + } + + free(target); +} + +/* +* Caskey, Damon V. +* 2023-02-07 +* +* Read first argument in supplied argument list +* for type, and determines which attack type or +* attack types to assign an offense value. +*/ +void offense_setup_from_arg( + char* filename, + char* command, + s_offense* target_offense, + ArgList* arglist, + e_offense_parameters target_parameter +) { + int tempInt = 0; + int i = 0; + char* value = GET_ARGP(1); + + /* + * First, try to match using the shared attack type map. + */ + for (i = 0; i < ATTACK_TYPE_MAP_SIZE; i++) + { + if (stricmp(value, attack_type_map[i].name) == 0) + { + offense_apply_setup_to_property( + filename, + command, + &target_offense[attack_type_map[i].attack_type], + arglist, + target_parameter + ); + return; + } + } + + /* + * Handle dynamic "normalN" pattern. + */ + if (starts_with(value, "normal")) + { + get_tail_number(tempInt, value, "normal"); + + offense_apply_setup_to_property( + filename, + command, + &target_offense[tempInt + STA_ATKS - 1], + arglist, + target_parameter + ); + } + /* + * Handle "ALL" case - apply to all non-special attack types. + */ + else if (stricmp(value, "ALL") == 0) + { + for (i = 0; i < max_attack_types; i++) + { + if (is_attack_type_special(i)) + { + continue; + } + + offense_apply_setup_to_property( + filename, + command, + &target_offense[i], + arglist, + target_parameter + ); + } + } +} + +/* +* Caskey, Damon V. +* 2023-02-07 +* +* Applies value to an attack type element +* of offense. +*/ +void offense_apply_setup_to_property(char* filename, char* command, s_offense* offense, ArgList* arglist, e_offense_parameters target_parameter) +{ + /* + * If a NULL pointer gets through, lets + * get out before we cause a NULL pointer + * error + */ + if (!offense) { + return; + } + + /* + * As of 2021-08-30, the up to date method + * sets one parameter at a time. This is more + * readable in the model text files. It also + * allows easier debug and expansion in the future. + * + * Offense is a bit clunky since we have to send + * a constant to tell us which parameter to update + * but it still beats the legacy method. + */ + + switch (target_parameter) { + case OFFENSE_PARAMETER_DAMAGE_ADJUST: + offense->damage_adjust = GET_INT_ARGP(2); + break; + + case OFFENSE_PARAMETER_DAMAGE_MAX: + offense->damage_max = GET_INT_ARGP(2); + break; + + case OFFENSE_PARAMETER_DAMAGE_MIN: + offense->damage_min = GET_INT_ARGP(2); + break; + + case OFFENSE_PARAMETER_FACTOR: + case OFFENSE_PARAMETER_LEGACY: + offense->factor = GET_FLOAT_ARGP(2); + break; + } +} + +int calculate_force_damage(entity *target, entity *attacker, s_attack *attack_object, const s_defense* defense_object, const bool blocked) { + //printf("\n\n calculate_force_damage(%p, %p, %p, %p, %d)", target, attacker, attack_object, defense_object, blocked); + + int force = attack_object->attack_force; + int type = attack_object->attack_type; + + /* + * If touch of death cheat is active, boost player damage + * to equal the target's hp. + * + * This is upstream of damage mitigation by design. Some + * games use defense to make entities immortal for special + * uses and we don't want to break that. + */ + if (global_config.cheats & CHEAT_OPTIONS_TOD_ACTIVE && attacker->modeldata.type & TYPE_PLAYER) { + if (force < target->energy_state.health_current) { + force = target->energy_state.health_current; + } + } + + /* + * Guard-break damage paths do not deal damage. This + * matches typical fighting game behavior where guard-breaks + * are meant to open up the opponent for follow-up attacks, + * not to inflict damage directly. + */ + if(!blocked && target->modeldata.guardpoints > 0 && target->guardpoints <= 0){ + return 0; + } + + //printf("\n\t force: %d", force); + + /* + * Apply the attacker's offense first. + */ + if(type >= 0 && type < max_attack_types && attacker->offense) { + force = offense_result_damage(&attacker->offense[type], force); + } + + //printf("\n\t force: %d", force); + //printf("\n\t defense_object: %p", defense_object); + //printf("\n\t defense_object->factor: %f", defense_object->factor); + + /* + * If we are not supplied a defense object, then we will + * use the target's defense property. This allows us to + * use defense from a body object if we have one, or fall + * back to model level defense if we don't. + */ + + if (!defense_object) { + defense_object = defense_find_current_object( + target, + NULL, + attack_object->attack_type + ); + } + + force = defense_result_damage(defense_object, force, blocked); + + //printf("\n\t force: %d", force); + + return force; +} + +void checkdamageonlanding(entity* acting_entity) { + + //printf("\n\n checkdamageonlanding(%p)", acting_entity); + + s_attack attack = emptyattack; + entity* other = NULL; + int didhit = 0; + + if (acting_entity->energy_state.health_current <= 0) { + return; + } + + if((acting_entity->damage_on_landing.attack_force > 0 && !(acting_entity->death_state & DEATH_STATE_DEAD))) { + + //################## + attack.attack_force = acting_entity->damage_on_landing.attack_force; + + /* + * Apply user defined type for damage on landing + * if populated. Usually there won't be one and we + * fall back to ATK_LAND. + */ + + if (attack.damage_on_landing.attack_type >= 0) { + attack.attack_type = acting_entity->damage_on_landing.attack_type; + + } else { + attack.attack_type = ATK_LAND; + } + + /* + * If we have a valid living opponent, that is + * the entity we take consider the attacker. If + * not, we use ourselves. + */ + + if (acting_entity->opponent && acting_entity->opponent->exists && !(acting_entity->opponent->death_state & DEATH_STATE_DEAD) && acting_entity->opponent->energy_state.health_current > 0) { + other = acting_entity->opponent; + + } else { + other = acting_entity; + } + + lasthit.confirm = 1; + lasthit.attack = &attack; + lasthit.position.x = acting_entity->position.x; + lasthit.position.y = acting_entity->position.y; + lasthit.position.z = acting_entity->position.z; + + const s_defense* defense_object = defense_find_current_object(acting_entity, NULL, attack.attack_type); + + //defense_dump_object(defense_object); + + // Execute the doattack functions before damage is + // processed. + execute_ondoattack_script(acting_entity, other, &attack, EXCHANGE_RECIPIANT, other->attack_id_outgoing); + execute_ondoattack_script(other, acting_entity, &attack, EXCHANGE_CONFERRER, other->attack_id_outgoing); + + //printf("\n\tother: %p", other); + //printf("\n\tattack.attack_type: %d", attack.attack_type); + //printf("\n\tattack.attack_force: %d", attack.attack_force); + + if(lasthit.confirm) { + didhit = 1; + } + + /* + * Can't take damage if we're dead. + */ + + if(acting_entity->death_state & DEATH_STATE_DEAD) { + return; + } + + /* + * Bombs detonante with their own logic when + * landing. We don't want them to take damage. + */ + + if(acting_entity->toexplode & (EXPLODE_DETONATE_HIT | EXPLODE_DETONATE_DAMAGED)) { + return; + } + + // fake 'grab', if failed, return as the attack hit nothing + if(!checkgrab(acting_entity, other, &attack)) { + return; // try to grab but failed, so return 0 means attack missed + } + + if(acting_entity != other) { + set_opponent(acting_entity, other); + } + + //################## + + if (didhit) { + + // pre-check drop + checkdamagedrop(acting_entity, &attack, defense_object); + + // Drop Weapon due to being hit. + if(acting_entity->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_LAND_DAMAGE) { + dropweapon(acting_entity, 1); + } + + // check effects, e.g., frozen, blast, steal + if(!(acting_entity->modeldata.guardpoints > 0 && acting_entity->guardpoints <= 0)) { + checkdamageeffects(acting_entity, &attack); + } + + // mprate can also control the MP recovered per hit. + checkmpadd(acting_entity); + //damage score + checkhitscore(acting_entity, other, &attack); + + /* + * Applies the damage. Send NULL as body object so + * we always use model defense or global default + * when calculating final damage. + */ + checkdamage(acting_entity, other, &attack, defense_object); + + // is it dead now? + checkdeath(acting_entity); + + execute_didhit_script(other, acting_entity, &attack, 0); + } + + if (acting_entity->energy_state.health_current <= 0) { + acting_entity->die_on_landing = 1; + } + + acting_entity->damage_on_landing.attack_force = 0; + } + + // takedamage if thrown or basted + //if( (acting_entity->damage_on_landing.attack_force > 0 && !acting_entity->death_state) && + if( (acting_entity->die_on_landing && !(acting_entity->death_state & DEATH_STATE_DEAD)) && + ((!tobounce(acting_entity) && acting_entity->modeldata.bounce) || !acting_entity->modeldata.bounce) && + (acting_entity->velocity.x == 0 && acting_entity->velocity.z == 0 && acting_entity->velocity.y == 0) + ) { + + if(acting_entity->takedamage) { + + //################## + s_attack attack = emptyattack; + entity *other; + + attack.attack_force = acting_entity->damage_on_landing.attack_force; + if (attack.damage_on_landing.attack_type >= 0) { + attack.attack_type = acting_entity->damage_on_landing.attack_type; + + } else { + attack.attack_type = ATK_LAND; + } + + if (acting_entity->opponent && acting_entity->opponent->exists && !(acting_entity->opponent->death_state & DEATH_STATE_DEAD) && acting_entity->opponent->energy_state.health_current > 0) { + other = acting_entity->opponent; + + } else { + other = acting_entity; + } + //################## + + const s_defense* other_defense_object = defense_find_current_object(other, NULL, attack.attack_type); + + acting_entity->takedamage(acting_entity, other, &attack, 1, other_defense_object); + + } else { + kill_entity(acting_entity, KILL_ENTITY_TRIGGER_DAMAGE_ON_LANDING); + } + + if (acting_entity) { + acting_entity->damage_on_landing.attack_force = 0; + acting_entity->damage_on_landing.attack_type = ATK_NONE; + acting_entity->die_on_landing = 0; + } + } + + return; +} + +/* +* Caskey, Damon V. +* 2025-05-09 +* +* LUT of "special" attack types, as +* in, types normally for internal engine +* use only. +*/ +static const int special_attack_table[MAX_ATKS] = { + [ATK_BOSS_DEATH] = 1, + [ATK_ITEM] = 1, + [ATK_LIFESPAN] = 1, + [ATK_LOSE] = 1, + [ATK_SUB_ENTITY_PARENT_KILL] = 1, + [ATK_SUB_ENTITY_UNSUMMON] = 1, + [ATK_TIMEOVER] = 1, + [ATK_PIT] = 1, +}; + +/* +* Caskey, Damon V. +* 2019-12-26 +* +* Return true if attack type is one of the +* types not included in normal use by creators. +*/ +int is_attack_type_special(attack_type_t type) +{ + /* + * Anything outside of bounds is + * user defined and not special. + */ + if (type >= MAX_ATKS) { + return 0; + } + + /* + * Check vs. LUT of special types. + */ + return special_attack_table[type]; +} + +/* +* Original by unknown author, unknown date. +* +* Applies HP damage to target entity. Executes +* appropriate damage and death scripts as needed. +* +* Caskey, Damon V. +* 2021-09-07 +* +* Slightly reworked to accept the target entity +* as parameter rather than referencing the +* global "self" variable. +* +* Accepts defense object to pass on into +* total damage calculation functions. +*/ +void checkdamage(entity* target_entity, entity* attacking_entity, s_attack* attack_object, const s_defense* defense_object) +{ + //printf("\n\n checkdamage(%p, %p, %p, %p)", target_entity, attacking_entity, attack_object, defense_object); + + int64_t force = 0; + + /* Get attack damage force after defense is applied. */ + force = calculate_force_damage(target_entity, attacking_entity, attack_object, defense_object, false); + + /* + * Damage does not return HP and comes from + * a normal source? + */ + const bool normal_damage = (!is_attack_type_special(attack_object->attack_type) && force >= 0) ? true : false; + + /* + * If we're invincible to normal damage + * sources, laugh it off. + */ + if (target_entity->invincible & INVINCIBLE_HP_NULLIFY && normal_damage) { + force = 0; + } + + /* + * Apply the damage. In the case of negative + * damage (IOW, giving back HP), cap at + * maximum health. + * + * If attack has no kill flag enable, don't + * fall below 1 hit point. + */ + + target_entity->energy_state.health_current -= force; + + if (target_entity->energy_state.health_current > target_entity->modeldata.health) { + target_entity->energy_state.health_current = target_entity->modeldata.health; + } + + if(attack_object->no_kill && target_entity->energy_state.health_current <= 0) { + target_entity->energy_state.health_current = 1; + } + + /* Execute the take damage script. */ + execute_takedamage_script(target_entity, attacking_entity, attack_object); + + /* + * Attack meant to put health at 0? We execute + * death script, but may reset HP according + * to invincibility flags. + */ + if (target_entity->energy_state.health_current <= 0) { + + if(normal_damage) { + if (target_entity->invincible & INVINCIBLE_HP_MINIMUM) { + target_entity->energy_state.health_current = 1; + } + + if(target_entity->invincible & INVINCIBLE_HP_RESET) { + target_entity->energy_state.health_current = target_entity->modeldata.health; + } + } + + execute_ondeath_script(target_entity, attacking_entity, attack_object); + } +} + +int checkgrab(entity* target_entity, entity* attacking_entity, s_attack* attack_object) +{ + //if(attack->no_pain) return 0; //no effect, let modders to deside, don't bother check it here + if(target_entity != attacking_entity && attack_object->grab && check_cangrab(attacking_entity, target_entity)) + { + if(adjust_grabposition(attacking_entity, target_entity, attack_object->grab_distance, attack_object->grab)) + { + ents_link(attacking_entity, target_entity); + target_entity->position.y = attacking_entity->position.y; + } + else + { + return 0; + } + } + return 1; +} + +int arrow_takedamage(entity* target_entity, entity* attacking_entity, s_attack* attack_object, int fall_flag, const s_defense* defense_object) +{ + target_entity->modeldata.move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + target_entity->modeldata.move_config_flags |= (MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL); + + if(common_takedamage(target_entity, attacking_entity, attack_object, 0, defense_object) + && target_entity->death_state & DEATH_STATE_DEAD) + { + return 1; + } + return 0; +} + +int common_takedamage(entity* target_entity, entity* attacking_entity, s_attack* attack_object, int fall_flag, const s_defense* defense_object) +{ + int pain_check = 0; // React with pain animations (1) or ignore (0); + e_death_config_flags death_config; + + /* + * Resolve callers that do not supply a body-specific + * defense object through the target's current defense. + */ + if (!defense_object) { + defense_object = defense_find_current_object( + target_entity, + NULL, + attack_object->attack_type + ); + } + + if(target_entity->death_state & DEATH_STATE_DEAD) + { + return 0; + } + + if(target_entity->toexplode & (EXPLODE_DETONATE_HIT | EXPLODE_DETONATE_DAMAGED)) + { + return 0; + } + + // fake 'grab', if failed, return as the attack hit nothing + if(!checkgrab(target_entity, attacking_entity, attack_object)) + { + return 0; // try to grab but failed, so return 0 means attack missed + } + + // set oppoent + if(target_entity != attacking_entity) + { + set_opponent(target_entity, attacking_entity); + } + + // adjust type + if(attack_object->attack_type >= 0 && attack_object->attack_type < max_attack_types) + { + target_entity->last_damage_type = attack_object->attack_type; + } + else + { + target_entity->last_damage_type = ATK_NORMAL; + } + + if (!target_entity->die_on_landing) + { + // pre-check drop + checkdamagedrop(target_entity, attack_object, defense_object); + + // Drop Weapon due to being hit. + if(target_entity->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_DAMAGE) + { + dropweapon(target_entity, 1); + } + // check effects, e.g., frozen, blast, steal + if(!(target_entity->modeldata.guardpoints > 0 && target_entity->guardpoints <= 0)) + { + checkdamageeffects(target_entity, attack_object); + } + } + + // check backpain + check_backpain(attacking_entity, target_entity); + + /* Check and apply direction flip. */ + checkdamageflip(target_entity, attacking_entity, attack_object, defense_object); + + if (!target_entity->die_on_landing) + { + // mprate can also control the MP recovered per hit. + checkmpadd(target_entity); + //damage score + checkhitscore(target_entity, attacking_entity, attack_object); + + // check damage, cost hp. + checkdamage(target_entity, attacking_entity, attack_object, defense_object); + + // is it dead now? + checkdeath(target_entity); + } + + if(target_entity->modeldata.type & TYPE_PLAYER) + { + if (savedata.joyrumble[target_entity->playerindex]) control_rumble(target_entity->playerindex, 1, attack_object->attack_force * 3); + } + if(target_entity->position.y <= PIT_DEPTH && target_entity->death_state & DEATH_STATE_DEAD) + { + if(target_entity->modeldata.type & TYPE_PLAYER) + { + player_die_entity(target_entity); + } + else + { + kill_entity(target_entity, KILL_ENTITY_TRIGGER_TAKE_DAMAGE_COMMON_PIT); + } + return 1; + } + + // fall to the ground so don't fall again + /*if(acting_entity->damage_on_landing.attack_force) + { + acting_entity->damage_on_landing.attack_force = 0; + return 1; + }*/ + // reset damageonlanding + target_entity->damage_on_landing.attack_force = 0; + target_entity->damage_on_landing.attack_type = ATK_NONE; + + // White Dragon: fix damage_on_landing bug + if(target_entity->die_on_landing && target_entity->energy_state.health_current <= 0) + { + target_entity->modeldata.death_config_flags |= DEATH_CONFIG_MACRO_DEATH_FALL_LAND; + } + + // unlink due to being hit + if((target_entity->opponent && target_entity->opponent->grabbing != target_entity) // Have an opponent, but opponent is not grabbing me. + || target_entity->death_state & DEATH_STATE_DEAD // Dead. + || target_entity->frozen // Frozen. + || target_entity->drop) // Knocked down. + { + ent_unlink(target_entity); + } + // Enemies can now use SPECIAL2 to escape cheap attack strings! + if(target_entity->modeldata.escapehits) + { + if(target_entity->drop) + { + target_entity->escapecount = 0; + } + else + { + target_entity->escapecount++; + } + } + + /* + * Handle Pain, fall, and death animations. + * May also not react at all if attack doesn't + * cause pain or defense is enough to ignore it. + */ + pain_check = defense_result_pain(attack_object, defense_object); + + if(target_entity->drop || target_entity->energy_state.health_current <= 0) + { + target_entity->takeaction = common_fall; + + // Drop Weapon due to death. + if(target_entity->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_DEATH && target_entity->energy_state.health_current <= 0) + { + dropweapon(target_entity, 1); + } + else if(target_entity->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_FALL) + { + dropweapon(target_entity, 1); + } + + death_config = defense_object->death_config_flags; + + if (death_config & DEATH_CONFIG_SOURCE_MODEL) + { + death_config = target_entity->modeldata.death_config_flags; + } + + /* We're alive, or death sequence wants us to handle falling. */ + if(target_entity->energy_state.health_current > 0 || !death_try_sequence_damage(target_entity, death_config, DEATH_TRY_SEQUENCE_ACTING_EVENT_DAMAGE)) + { + if (fall_flag >= 1) return 1; + target_entity->velocity.x = attack_object->dropv.x; + target_entity->velocity.z = attack_object->dropv.z; + if(target_entity->direction == DIRECTION_RIGHT) + { + target_entity->velocity.x = -target_entity->velocity.x; + } + if(target_entity->inbackpain) target_entity->velocity.x *= -1; + toss(target_entity, attack_object->dropv.y); + target_entity->damage_on_landing.attack_force = attack_object->damage_on_landing.attack_force; + target_entity->damage_on_landing.attack_type = attack_object->damage_on_landing.attack_type; + target_entity->knockdowncount = target_entity->modeldata.knockdowncount; // reset the knockdowncount + target_entity->knockdowntime = 0; + + // If no fall/die animations exist, entity simply disappears. + if(!set_fall(target_entity, attacking_entity, attack_object, 1)) + { + if(target_entity->modeldata.type & TYPE_PLAYER) + { + player_die_entity(target_entity); + } + else + { + kill_entity(target_entity, KILL_ENTITY_TRIGGER_TAKE_DAMAGE_COMMON_FALL); + } + return 1; + } + } + + if(target_entity->modeldata.type & TYPE_PLAYER) + { + if (savedata.joyrumble[target_entity->playerindex]) control_rumble(target_entity->playerindex, 1, attack_object->attack_force * 3); + } + } + else if(attack_object->grab && !attack_object->no_pain) + { + target_entity->takeaction = common_pain; + attacking_entity->takeaction = common_grabattack; + attacking_entity->stalltime = _time + global_config.grab_stall; + target_entity->releasetime = _time + (global_config.game_speed / 2); + set_pain(target_entity, target_entity->last_damage_type, 0); + } + // Don't change to pain animation if frozen + else if(!target_entity->frozen && !(target_entity->modeldata.pain_config_flags & PAIN_CONFIG_PAIN_DISABLE) && !attack_object->no_pain && pain_check) + { + target_entity->takeaction = common_pain; + set_pain(target_entity, target_entity->last_damage_type, 1); + } + + return 1; +} + +int common_try_runattack(entity *target) +{ + if(!self->running || !validanim(self, ANI_RUNATTACK)) + { + return 0; + } + + + if(!target) + { + target = normal_find_target(ANI_RUNATTACK, 0); + } + + if(target) + { + if(!target->animation->vulnerable[target->animpos] && (target->drop || target->attacking != ATTACKING_NONE)) + { + return 0; + } + self->takeaction = common_attack_proc; + self->velocity.z = self->velocity.x = 0; + set_attacking(self); + ent_set_anim(self, ANI_RUNATTACK, 0); + return 1; + } + return 0; +} + +// Active blocking enabled. +// +// AI can behave more like players when blocking. Normally AI +// blocking is passive. IOW, it can only choose to block attacks +// as they hit. This function allows the AI to initiate blocking +// preemptively the way players have to. +// +// AI blocks if following conditions are met: +// +// 1. Entity has active block enabled. +// 2. Target is within range of BLOCK animation. +// 3. Target is actively attacking. +// 4. Blocking chance passes (same rules as active blocking). +static bool common_try_block(entity *target) { + + /* Only active AI may initiate blocking before impact. */ + if (!(self->modeldata.block_config_flags & BLOCK_CONFIG_ACTIVE) + || (self->modeldata.block_config_flags & BLOCK_CONFIG_DISABLED)) { + return false; + } + + // Must have block animation. + if (!validanim(self, ANI_BLOCK)) { + return false; + } + + // Active blocking is enabled. Exit if the chance roll fails. + if (!check_blocking_decision(self)) { + return false; + } + + // If no current target, use block range. + if(!target) { + target = block_find_target(ANI_BLOCK, 0); + } + + // Still no target? Nothing to do, so exit. + if (!target) { + return false; + } + + // If target is attacking, let's block and return true. + if(target->attacking != ATTACKING_NONE) { + // Set up flags, action, and blocking animations. + do_active_block(self); + + return true; + } + + return false; +} + +// this logic could be used for multiple times, so make a function +// pick a random attack or return the first attacks if testonly is set +// when testonly is set, the function will not check special attacks (upper, jumpattack) +// if target is NULL, ranges are not checked +int pick_random_attack(entity *target, int testonly) +{ + int found = 0, i, j; + + for(i = 0; i < max_attacks; i++) // TODO: recheck range for attacks chains + { + if(validanim(self, animattacks[i]) && + (!target || check_range_target_all(self, target, animattacks[i], 0, 0))) + { + for(j = ((5 - i) >= 0 ? (5 - i) : 0) * 3; j >= 0; j--) + { + ai_attack_choice_append(&found, animattacks[i]); + } + } + } + for(i = 0; i < max_freespecials; i++) + { + if(validanim(self, animspecials[i]) && + (check_energy(ENERGY_TYPE_MP, animspecials[i]) || + check_energy(ENERGY_TYPE_HP, animspecials[i])) && + (!target || check_range_target_all(self, target, animspecials[i], 0, 0))) + { + ai_attack_choice_append(&found, animspecials[i]); + } + } + if( validanim(self, ANI_THROWATTACK) && + self->weapent && self->weapent->modeldata.subtype == SUBTYPE_PROJECTILE && + (!target || check_range_target_all(self, target, ANI_THROWATTACK, 0, 0) )) + { + ai_attack_choice_append(&found, ANI_THROWATTACK); + } + + if(testonly) + { + if(found) + { + return ai_attack_choices[(rand32() & 0xffff) % found]; + } + return -1; + } + + if( validanim(self, ANI_JUMPATTACK) && + (!target || check_range_target_all(self, target, ANI_JUMPATTACK, 0, 0)) ) + { + if(testonly) + { + return ANI_JUMPATTACK; + } + ai_attack_choice_append(&found, ANI_JUMPATTACK); + } + if( validanim(self, ANI_UPPER) && + (!target || check_range_target_all(self, target, ANI_UPPER, 0, 0)) ) + { + if(testonly) + { + return ANI_UPPER; + } + ai_attack_choice_append(&found, ANI_UPPER); + } + + if(found) + { + return ai_attack_choices[(rand32() & 0xffff) % found]; + } + + return -1; +} + + +// code to lower the chance of attacks, may change while testing old mods +// min - min attack chance +// max - max attack chance +int check_attack_chance(entity *target, float min, float max) +{ + + float chance, chance1, chance2;//, aggfix; + + if(self->modeldata.aiattack & AIATTACK1_ALWAYS) + { + return 1; + } + + chance1 = MIN(1.0f, (diff(self->position.x, self->destx) + diff(self->position.z, self->destz)) / (videomodes.hRes + videomodes.vRes) * move_noatk_factor); + chance2 = MIN(1.0f, (count_ents(self->modeldata.type) - 1) * group_noatk_factor); + + chance = (1.0f - chance1) * (1.0f - chance2); + + if(chance > max) + { + chance = max; + } + else if(chance < min) + { + chance = min; + } + + chance *= (1.0 - self->modeldata.attackthrottle); + + if(self->position.x < screenx - 10 || self->position.x > screenx + videomodes.hRes + 10) + { + if (self->modeldata.offscreen_noatk_factor != 0) chance *= (1.0 - self->modeldata.offscreen_noatk_factor); + else chance *= (1.0 - offscreen_noatk_factor); + } + + return (randf(1) <= chance); +} + +//make a function, mostly for debug purpose +//give it a chance to reset current noattack timer +u32 recheck_nextattack(entity *target) +{ + if(target->blocking & BLOCK_STATE_ACTIVE) + { + self->nextattack = 0; + } + else if(target->attacking != ATTACKING_NONE && self->nextattack > 4) + { + self->nextattack -= 4; + } + else if(target->jumping && self->nextattack > 16) + { + self->nextattack -= 16; + } + + return self->nextattack; +} + +int common_try_normalattack(entity *target) +{ + target = normal_find_target(-1, 0); + + if(!target) + { + return 0; + } + + recheck_nextattack(target); + + if(recheck_nextattack(target) > _time) + { + return 0; + } + + if(!target->animation->vulnerable[target->animpos] && (target->drop || target->attacking != ATTACKING_NONE || target->takeaction == common_rise)) + { + return 0; + } + + if(pick_random_attack(target, 1) >= 0) + { + if(self->combostep[0] && self->combotime > _time) + { + self->stalltime = _time + 1; + } + else + { + if(!check_attack_chance(target, 1.0f - min_noatk_chance, 1.0f - min_noatk_chance)) + { + self->nextattack = _time + randf(self->modeldata.attackthrottletime); + return 0; + } + else + { + self->stalltime = _time + (int)randf((float)MAX(1, global_config.game_speed * 3 / 4 - self->modeldata.aggression)); + } + } + + self->takeaction = normal_prepare; + self->velocity.z = self->velocity.x = 0; + set_idle(self); + self->idling = IDLING_NONE; // not really idle, in fact it is thinking + self->attacking = ATTACKING_PREPARED; // pre-attack, for AI-block check + return 1; + } + + return 0; +} + +int common_try_jumpattack(entity *target) +{ + entity *dust; + int rnum, ani = 0; + if((validanim(self, ANI_JUMPATTACK) || validanim(self, ANI_JUMPATTACK2))) + { + if(!validanim(self, ANI_JUMPATTACK)) + { + rnum = 1; + } + else if(validanim(self, ANI_JUMPATTACK2) && (rand32() & 1)) + { + rnum = 1; + } + else + { + rnum = 0; + } + + if(rnum == 0 && + // do a jumpattack + (target || (target = normal_find_target(ANI_JUMPATTACK, 0))) ) + { + if(recheck_nextattack(target) > _time) + { + return 0; + } + + if(!target->animation->vulnerable[target->animpos] && (target->drop || target->attacking != ATTACKING_NONE)) + { + rnum = -1; + } + else + { + if(!check_attack_chance(target, 0.05f, 0.4f)) + { + self->nextattack = _time + randf(self->modeldata.attackthrottletime); + return 0; + } + //ent_set_anim(self, ANI_JUMPATTACK, 0); + ani = ANI_JUMPATTACK; + if(self->direction == DIRECTION_RIGHT) + { + self->velocity.x = (float)1.3; + } + else + { + self->velocity.x = (float) - 1.3; + } + self->velocity.z = 0; + } + } + else if(rnum == 1 && + // do a jumpattack2 + (target || (target = normal_find_target(ANI_JUMPATTACK2, 0))) ) + { + if(recheck_nextattack(target) > _time) + { + return 0; + } + + if(!target->animation->vulnerable[target->animpos] && (target->drop || target->attacking != ATTACKING_NONE)) + { + rnum = -1; + } + else + { + if(!check_attack_chance(target, 0.05f, 0.5f)) + { + self->nextattack = _time + randf(self->modeldata.attackthrottletime); + return 0; + } + //ent_set_anim(self, ANI_JUMPATTACK2, 0); + ani = ANI_JUMPATTACK2; + self->velocity.x = self->velocity.z = 0; + } + } + else + { + rnum = -1; + } + + if(rnum >= 0) + { + + self->takeaction = common_jump; + set_attacking(self); + self->jumping = 1; + toss(self, self->modeldata.jumpheight); + + if(self->modeldata.dust.jump_start >= 0) + { + dust = spawn(self->position.x, self->position.z, self->position.y, self->direction, NULL, self->modeldata.dust.jump_start, NULL); + if(dust) + { + dust->spawntype = SPAWN_TYPE_DUST_JUMP; + dust->base = self->position.y; + dust->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(dust); + } + } + + ent_set_anim(self, ani, 0); + + return 1; + } + } + + return 0; +} + +int common_try_grab(entity *other) +{ + //printf("\n\t common_try_grab(%p)", other); + + int trygrab(entity * t); + + /* + * Note order does matter in the + * checks below. usually we don't + * have an "other" until it is + * populated by find_ent_here. + */ + + // old rand() + if( (rand32() & 7) == 0 && + (validanim(self, ANI_THROW) || validanim(self, ANI_GRAB)) && + self->idling && + (other || (other = find_ent_here(self, self->position.x, self->position.z, TYPE_ANY, NULL))) && + faction_check_is_hostile(self, other) && + trygrab(other)) + { + return 1; + } + + return 0; +} + +// A.I. try upper cut +int common_try_upper(entity *target) +{ + if(!validanim(self, ANI_UPPER)) + { + return 0; + } + + if(!target) + { + target = normal_find_target(ANI_UPPER, 0); + } + + // Target jumping? Try uppercut! + if(target && target->jumping) + { + /*self->takeaction = common_attack_proc; + set_attacking(self); + self->velocity.z = self->velocity.x = 0; + // Don't waste any time! + ent_set_anim(self, ANI_UPPER, 0);*/ + + if(!check_attack_chance(target, 1.0f - min_noatk_chance, 1.0f - min_noatk_chance)) + { + self->nextattack = _time + randf(self->modeldata.attackthrottletime); + return 0; + } + else + { + self->stalltime = _time + (int)randf((float)MAX(1, global_config.game_speed * 3 / 4 - self->modeldata.aggression)); + } + + self->takeaction = upper_prepare; + self->velocity.z = self->velocity.x = 0; + set_idle(self); + self->idling = IDLING_NONE; // not really idle, in fact it is thinking + self->attacking = ATTACKING_PREPARED; // pre-attack, for AI-block check + return 1; + } + + return 0; +} + +int common_try_duckattack(entity *other) +{ + int indirect; + entity *target = NULL; + + if(!validanim(self, ANI_DUCKATTACK) || !(self->ducking & DUCK_ACTIVE)) + { + return 0; + } + + if(_time / THINK_SPEED % 4 == 0) + { + return 0; + } + + if(self->projectile != BLAST_NONE) + { + indirect = 1; + } + + if(self->custom_target == NULL || !self->custom_target->exists ) target = normal_find_target(-1, 0); + else target = self->custom_target; + + if(target && !(faction_check_can_damage(self, target, indirect))) + { + return 0; + } + + if(recheck_nextattack(target) > _time) + { + return 0; + } + + if(!target || !(target->ducking & DUCK_ACTIVE)) + { + return 0; + } + + if(!check_attack_chance(target, 1.0f - min_noatk_chance, 1.0f - min_noatk_chance)) + { + self->nextattack = _time + randf(self->modeldata.attackthrottletime); + return 0; + } + else + { + self->stalltime = _time + (int)randf((float)MAX(1, global_config.game_speed * 3 / 4 - self->modeldata.aggression)); + } + + // finally attack! + self->takeaction = common_attack_proc; + set_attacking(self); + self->velocity.z = self->velocity.x = 0; + // Don't waste any time! + ent_set_anim(self, ANI_DUCKATTACK, 0); + + return 1; +} + +// Normal attack style +// Used by root A.I., what to do if a target is found. +// return 0 if no action is token +// return 1 if an action is token +int normal_attack() +{ + //int rnum; + + //rnum = rand32()&7; + if( common_try_duckattack(NULL) || + common_try_grab(NULL) || + common_try_upper(NULL) || + common_try_block(NULL) || + common_try_runattack(NULL) || + //(rnum < 2 && common_try_freespecial(NULL)) || + common_try_normalattack(NULL) || + common_try_jumpattack(NULL) ) + { + self->running = RUN_STATE_NONE; + return 1; + } + + return 0;// nothing to do? so go to next think step +} + +// A.I. characters do a throw +void common_throw() +{ + if(self->animating) + { + return; // just play the throw animation + } + + // we have done the throw, return to A.I. root + self->takeaction = NULL; + + set_idle(self); +} + +// toss the grabbed one +void dothrow() +{ + s_attack attack = emptyattack; + entity *other; + self->velocity.x = self->velocity.z = 0; + other = self->link; + if(other == NULL) //change back to idle, or we will get stuck here + { + self->takeaction = NULL;// A.I. root again + set_idle(self); + return; + } + + if(other->modeldata.throwheight) + { + toss(other, other->modeldata.throwheight); + } + else + { + toss(other, other->modeldata.jumpheight); + } + + other->direction = self->direction; + other->projectile |= BLAST_TOSS; + other->projectile |= BLAST_ATTACK; + other->velocity.x = (other->direction == DIRECTION_RIGHT) ? (-other->modeldata.throwdist) : (other->modeldata.throwdist); + + if(autoland == 1 && validanim(other, ANI_LAND)) + { + other->damage_on_landing.attack_force = ATTACK_FORCE_LAND_AUTO; + } + else + { + other->damage_on_landing.attack_force = self->modeldata.throwdamage; + } + + ent_unlink(other); + + other->takeaction = common_fall; + self->takeaction = common_throw; + + // Use default attack values. + set_fall(other, self, &attack, 0); + ent_set_anim(self, ANI_THROW, 0); +} + + +// Waiting until throw frame reached +void common_throw_wait() +{ + if(!self->link) + { + self->takeaction = NULL;// A.I. root again + set_idle(self); + return; + } + + self->releasetime += THINK_SPEED; //extend release time + + if(self->animpos != self->modeldata.throwframewait) + { + return; + } + + dothrow(); +} + + +void common_prethrow() +{ + self->running = RUN_STATE_NONE; // Quits running if grabbed by opponent + + // Just check if we're still grabbed... + if(self->link) + { + return; + } + + self->takeaction = NULL;// A.I. root again + + set_idle(self); +} + +/* +* Caskey, Damon V. +* 2023-05-24 (rewrite of orginal function by Utunnels, unknown date) +* +* Reposition entity to its parent's location +* and play appropriate animation. +*/ +void npc_recall() +{ + entity* const acting_entity = self; + + const s_child_follow* const child_follow = acting_entity->modeldata.child_follow; + + if(!child_follow || !acting_entity->parent) + { + return; + } + + acting_entity->base = acting_entity->parent->base; + acting_entity->position.x = acting_entity->parent->position.x + (acting_entity->parent->direction == DIRECTION_RIGHT ? child_follow->follow_offset.x : -child_follow->follow_offset.x); + acting_entity->position.y = acting_entity->parent->position.y + child_follow->recall_offset.y; + acting_entity->position.z = acting_entity->parent->position.z + child_follow->recall_offset.z; + + acting_entity->velocity.x = 0; + acting_entity->velocity.y = 0; + acting_entity->velocity.z = 0; + + if (child_follow->recall_animation != ANI_NONE) + { + if (validanim(acting_entity, child_follow->recall_animation)) + { + acting_entity->takeaction = common_spawn; + ent_set_anim(acting_entity, child_follow->recall_animation, 0); + } + else if (validanim(acting_entity, ANI_SPAWN)) + { + acting_entity->takeaction = common_spawn; + ent_set_anim(acting_entity, ANI_SPAWN, 0); + } + } +} + +int adjust_grabposition(entity *ent, entity *other, float dist, int grabin) +{ + float x1; + float z1; + float x2; + float z2; + float x; + + if(diff(ent->position.y,other->position.y) > T_WALKOFF) + { + return 0; + } + + if(diff(ent->base,other->base) > T_WALKOFF) + { + return 0; + } + + if(grabin == 1) + { + x1 = ent->position.x; + z1 = z2 = ent->position.z; + x2 = ent->position.x + ((other->position.x > ent->position.x) ? dist : -dist); + } + else + { + x = (ent->position.x + other->position.x) / 2; + x1 = x + ((ent->position.x >= other->position.x) ? (dist / 2) : (-dist / 2)); + x2 = x + ((other->position.x > ent->position.x) ? (dist / 2) : (-dist / 2)); + z1 = z2 = (ent->position.z + other->position.z) / 2; + } + + if(0 >= testmove(ent, ent->position.x, ent->position.z, x1, z1) || 0 >= testmove(other, other->position.x, other->position.z, x2, z2)) + { + return 0; + } + + ent->position.x = x1; + ent->position.z = z1; + other->position.x = x2; + other->position.z = z2; + //other->position.y = ent->position.y; + //other->base = ent->base; + + // Sort order control. + // + // If grabback is set (grabback = 1) the grabbed entity's + // sort order is forced 1 greater than grappler so grappler + // appears behind. Otherwise grabbed is moved one lower, + // forcing grappler to appear in front. + if (ent->modeldata.grabback) + { + other->sortid = ent->sortid + 1; + } + else if (!ent->modeldata.grabback) + { + other->sortid = ent->sortid - 1; + } + + + return 1; +} + +int dograb(entity *attacker, entity *target, e_dograb_adjustcheck adjustcheck) +{ + /* + Execute grab action. Added by splitting off trygrab + so entities can be forced to perform grab by script. + Damon V. Caskey + 2013-12-30 + + Attacker: Entity performing grab. + target, entity being grabbed. + */ + + int result = 0; //Output value. + int pass = 1; //Adjust pass/fail. + + /* If an adjust check is needed, make sure adjusting did not fail. */ + if(adjustcheck == DOGRAB_ADJUSTCHECK_TRUE) + { + pass = adjust_grabposition(attacker, target, attacker->modeldata.grabdistance, 0); + } + + /* If adjust_grabposition passed (or wasn't needed) perform grab actions. */ + if(pass) + { + if(attacker->modeldata.grabflip & 1) // Kratus (10-2021) Make grabflip property accessible by script + { + attacker->direction = (attacker->position.x < target->position.x); + } + + /* Set flags. */ + set_opponent(target, attacker); + ents_link(attacker, target); + target->attacking = ATTACKING_NONE; + attacker->idling = IDLING_NONE; + attacker->running = RUN_STATE_NONE; + attacker->ducking = DUCK_NONE; + attacker->inbackpain = 0; + + /* Stop all movement. */ + attacker->velocity.x = 0; + attacker->velocity.z = 0; + target->velocity.x = 0; + target->velocity.z = 0; + + /* Check for grab animation, otherwise use original throwing system. */ + if(validanim(self, ANI_GRAB)) + { + if(attacker->modeldata.grabflip & 2) // Kratus (10-2021) Make grabflip property accessible by script + { + target->direction = !attacker->direction; + } + attacker->attacking = ATTACKING_NONE; + memset(attacker->combostep, 0, 5 * sizeof(*attacker->combostep)); + target->stalltime = _time + global_config.grab_stall; + attacker->releasetime = _time + (global_config.game_speed / 2); + target->takeaction = common_grabbed; + attacker->takeaction = common_grab; + ent_set_anim(attacker, ANI_GRAB, 0); + set_pain(target, -1, 0); //set grabbed animation + } + else + { + /* + If no throwframewait use original throw code immediately. + Otherwise use throwframewait. + */ + if(attacker->modeldata.throwframewait == -1) + { + dothrow(); + } + else + { + if(attacker->modeldata.grabflip & 2) // Kratus (10-2021) Make grabflip property accessible by script + { + target->direction = !attacker->direction; + } + + target->takeaction = common_prethrow; + attacker->takeaction = common_throw_wait; + ent_set_anim(attacker, ANI_THROW, 0); + set_pain(target, -1, 0); // set grabbed animation + } + } + + result = 1; + } + + return result; +} + +int trygrab(entity *other) +{ + /* + Actions after grab possibility check moved to dograb. + Damon V. Caskey + 2013-12-30 + + other: Grab target. + */ + + int result = 0; //return value. + + if(check_cangrab(self, other)) + { + result = dograb(self, other, DOGRAB_ADJUSTCHECK_TRUE); + } + + return result; +} + +int common_trymove(float xdir, float zdir) +{ + entity *other = NULL, *te = NULL; + int wall, heightvar, t, needcheckhole = 0; + float x, z, oxdir, ozdir; + + if(!xdir && !zdir) + { + return 0; + } + + // UT: move player grab logic here to bypass some extra checks + // it used to be at the very end of this function + //------------------ grab/throw checking ------------------ + + //printf("rand(): %d rand32(): %d\n",rand(),rand32()); + // old rand() + if((self->modeldata.type & TYPE_PLAYER) && + (rand32() & 7) == 0 && + (validanim(self, ANI_THROW) || + validanim(self, ANI_GRAB)) && self->idling && + (other = find_ent_here(self, self->position.x, self->position.z, self->faction.type_hostile, NULL))) + { + if(trygrab(other)) + { + return 0; + } + } + // --------------- end of grab/throw checking ------------------------ + + + oxdir = xdir; + ozdir = zdir; + /* + // entity is grabbed by other + if(self->link && self->link->grabbing==self && self->link->grabwalking) + { + return 1; // just return so we don't have to check twice + }*/ + + x = self->position.x + xdir; + z = self->position.z + zdir; + // -----------bounds checking--------------- + // Subjec to Z and out of bounds? Return to level! + if (self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MIN_Z) + { + if(z < PLAYER_MIN_Z) + { + zdir = PLAYER_MIN_Z - self->position.z; + execute_onblockz_script(self); + } + } + + if (self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MAX_Z) + { + if(z > PLAYER_MAX_Z) + { + zdir = PLAYER_MAX_Z - self->position.z; + execute_onblockz_script(self); + } + } + + // screen checking + if(self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_SCREEN) + { + if(x < advancex + 10) + { + xdir = advancex + 10 - self->position.x; + execute_onblocks_script(self); //Screen block event. + } + else if(x > advancex + (videomodes.hRes - 10)) + { + xdir = advancex + (videomodes.hRes - 10) - self->position.x; + execute_onblocks_script(self); //Screen block event. + } + } + + if(!xdir && !zdir) + { + return 0; + } + x = self->position.x + xdir; + z = self->position.z + zdir; + + //-----------end of bounds checking----------- + + //-------------hole checking --------------------- + // Don't walk into a hole or walk off platforms into holes + if( self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_HOLE && !inair(self) && !(self->modeldata.type & TYPE_PLAYER) && self->idling && + (!self->animation->move[self->animpos]->base || self->animation->move[self->animpos]->base < 0) && + !(self->modeldata.aimove & AIMOVE2_IGNOREHOLES)) + { + + needcheckhole = 1; + if(zdir && checkhole(self->position.x, z) && checkwall_index(self->position.x, z) < 0 && !check_platform_below(self->position.x, z, self->position.y, self)) + { + //int holeind = checkholeindex_in(self->position.x, z, self->position.y); + + zdir = 0; + //execute_inhole_script(self, 2, (double)level->holes[holeind].height, holeind); + } + if(xdir && checkhole(x, self->position.z) && checkwall_index(x, self->position.z) < 0 && !check_platform_below(x, self->position.z, self->position.y, self)) + { + //int holeind = checkholeindex_in(x, self->position.z, self->position.y); + + xdir = 0; + //execute_inhole_script(self, 1, (double)level->holes[holeind].height, holeind); + } + } + + if(!xdir && !zdir) + { + return 0; + } + x = self->position.x + xdir; + z = self->position.z + zdir; + //-----------end of hole checking--------------- + + //--------------obstacle checking ------------------ + if(self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_OBSTACLE /*&& !inair(self)*/) + { + int hit = 0; + + //TODO, check once instead of twice + if((other = find_ent_here(self, x, self->position.z, (TYPE_OBSTACLE | TYPE_TRAP), NULL)) && + (xdir > 0 ? other->position.x >= self->position.x : other->position.x <= self->position.x) && + (!other->animation->platform || !other->animation->platform[other->animpos][PLATFORM_HEIGHT])) + { + xdir = 0; + if ( self->falling ) hit |= 1; + te = other; + execute_onblocko_script(self, PLANE_X, other); + } + if((other = find_ent_here(self, self->position.x, z, (TYPE_OBSTACLE | TYPE_TRAP), NULL)) && + (zdir > 0 ? other->position.z >= self->position.z : other->position.z <= self->position.z) && + (!other->animation->platform || !other->animation->platform[other->animpos][PLATFORM_HEIGHT])) + { + zdir = 0; + if ( self->falling ) hit |= 1; + if(te != other) //just in case they are the same obstacle + { + execute_onblocko_script(self, PLANE_Z, other); + } + } + + if ( hit && !self->hitwall && validanim(self, ANI_HITOBSTACLE) ) ent_set_anim(self, ANI_HITOBSTACLE, 0); + if ( hit && !self->hitwall ) self->hitwall = 1; + } + + if(!xdir && !zdir) + { + return 0; + } + x = self->position.x + xdir; + z = self->position.z + zdir; + + //-----------end of obstacle checking-------------- + + // ---------------- platform checking---------------- + + if(self->animation->size.y) + { + heightvar = self->animation->size.y; + } + else + { + heightvar = self->modeldata.size.y; + } + + // Check for obstacles with platform code and adjust base accordingly + if(self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM) + { + int hit = 0; + + //if(xdir>0 ? other->position.x>self->position.x : other->position.xposition.x) {xdir = 0; } + //if(zdir>0 ? other->position.z>self->position.z : other->position.zposition.z) {zdir = 0; } + //temporary fix for thin platforms (i.e, offset is not between left and right side) + // TODO: find the collision position, merge with wall code + if(xdir && (other = check_platform_between(x, self->position.z, self->position.y, self->position.y + heightvar, self)) ) + { + xdir = 0; + if ( self->falling ) hit |= 1; + execute_onblockp_script(self, PLANE_X, other); + } + if(zdir && (other = check_platform_between(self->position.x, z, self->position.y, self->position.y + heightvar, self)) ) + { + zdir = 0; + if ( self->falling ) hit |= 1; + execute_onblockp_script(self, PLANE_Z, other); + } + + if ( hit && !self->hitwall && validanim(self, ANI_HITPLATFORM) ) ent_set_anim(self, ANI_HITPLATFORM, 0); + if ( hit && !self->hitwall ) self->hitwall = 1; + } + + if(!xdir && !zdir) + { + return 0; + } + x = self->position.x + xdir; + z = self->position.z + zdir; + + //-----------end of platform checking------------------ + + // ------------------ wall checking --------------------- + if(self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_WALL) + { + int hit = 0; + + if(xdir && (wall = checkwall_below(x, self->position.z, T_MAX_CHECK_ALTITUDE)) >= 0 && level->walls[wall].height > self->position.y) + { + xdir = 0; + if ( self->falling && (self->modeldata.hitwalltype < 0 || (self->modeldata.hitwalltype >= 0 && level->walls[wall].type == self->modeldata.hitwalltype)) ) hit |= 1; + execute_onblockw_script(self, &level->walls[wall], wall, PLANE_X); + } + if(zdir && (wall = checkwall_below(self->position.x, z, T_MAX_CHECK_ALTITUDE)) >= 0 && level->walls[wall].height > self->position.y) + { + zdir = 0; + if ( self->falling && (self->modeldata.hitwalltype < 0 || (self->modeldata.hitwalltype >= 0 && level->walls[wall].type == self->modeldata.hitwalltype)) ) hit |= 1; + execute_onblockw_script(self, &level->walls[wall], wall, PLANE_Z); + } + + if ( hit && !self->hitwall && validanim(self, ANI_HITWALL) ) ent_set_anim(self, ANI_HITWALL, 0); + if ( hit && !self->hitwall ) self->hitwall = 1; + } + + if(!xdir && !zdir) + { + return 0; + } + x = self->position.x + xdir; + z = self->position.z + zdir; + //----------------end of wall checking-------------- + + /* + // Final check to ensure we don't move into other obstacles. + // The old logic allows xdir if zdir is block and vice versa, + // but has a risk that the new destination is actually blocked + // because of multiple obstacle types. + // + // block old + // | / + // | / + // |/__ new + */ + //xdir = zdir = 0; + // TODO: should we add some checks in testmove to execute those onblockwhatever scripts? + t = testmove(self, self->position.x, self->position.z, x, z); + // extra hole check, only avoid hole while idling + if(t <= 0 && (t != -2 || needcheckhole)) + { + return 0; + } + + // do move and return + self->position.x += xdir; + self->position.z += zdir; + + if(xdir) + { + execute_onmovex_script(self); //X move event. + } + if(zdir) + { + execute_onmovez_script(self); //Z move event. + } + return 2 - (xdir == oxdir && zdir == ozdir); // return 2 for some checks +} + +// enemies run off after attack +void common_runoff() +{ + entity *target = normal_find_target(-1, 0); + + if(target == NULL) //sealth checking + { + self->velocity.z = self->velocity.x = 0; + self->takeaction = NULL; // OK, back to A.I. root + set_idle(self); + return; + } + + if(!(self->modeldata.move_config_flags & MOVE_CONFIG_NO_FLIP)) + { + self->direction = (self->position.x < target->position.x); + } + if(self->direction == DIRECTION_RIGHT) + { + self->velocity.x = -self->modeldata.speed.x / 2; + } + else + { + self->velocity.x = self->modeldata.speed.x / 2; + } + + self->velocity.z = 0; + + if(_time > self->stalltime) + { + self->takeaction = NULL; // OK, back to A.I. root + } + + adjust_walk_animation(target); +} + + +/*void common_stuck_underneath() +{ + int heightvar = self->animation->size.y ? self->animation->size.y : self->modeldata.size.y; + if(!check_platform_between(self->position.x, self->position.z, self->position.y, self->position.y + heightvar, self) ) + { + self->takeaction = NULL; + set_idle(self); + return; + } + if(player[self->playerindex].keys & FLAG_MOVELEFT) + { + self->direction = DIRECTION_LEFT; + } + else if(player[self->playerindex].keys & FLAG_MOVERIGHT) + { + self->direction = DIRECTION_RIGHT; + } + if(player[self->playerindex].playkeys & FLAG_ATTACK && validanim(self, ANI_DUCKATTACK)) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + self->takeaction = common_attack_proc; + set_attacking(self); + self->velocity.x = self->velocity.z = 0; + self->combostep[0] = 0; + self->running = RUN_STATE_NONE; + ent_set_anim(self, ANI_DUCKATTACK, 0); + return; + } + if((player[self->playerindex].keys & FLAG_MOVEDOWN) && (player[self->playerindex].playkeys & FLAG_JUMP) && validanim(self, ANI_SLIDE)) + { + player[self->playerindex].playkeys &= ~FLAG_JUMP; + self->takeaction = common_attack_proc; + set_attacking(self); + self->velocity.x = self->velocity.z = 0; + self->combostep[0] = 0; + self->running = RUN_STATE_NONE; + ent_set_anim(self, ANI_SLIDE, 0); + return; + } +}*/ + + +// finish attacking, do something +void common_attack_finish() +{ + entity *target; + int stall; + + self->velocity.x = self->velocity.z = 0; + + if(self->modeldata.type & TYPE_PLAYER) + { + if (self->ducking & DUCK_ACTIVE) + { + doduck(self); + } + else + { + self->takeaction = NULL; + set_idle(self); + } + return; + } + + target = self->opponent; + + if(target && !(self->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) && self->ducking == DUCK_NONE && diff(self->position.x, target->position.x) < 80 && (rand32() & 3)) + { + self->takeaction = NULL;//common_runoff; + self->destx = self->position.x > target->position.x ? MIN(self->position.x + 40, target->position.x + 80) : MAX(self->position.x - 40, target->position.x - 80); + self->destz = self->position.z; + self->velocity.x = self->position.x > target->position.x ? self->modeldata.speed.x : -self->modeldata.speed.x; + self->velocity.z = 0; + adjust_walk_animation(target); + self->idling = IDLING_PREPARED; + } + else + { + if (self->ducking & DUCK_ACTIVE) + { + doduck(self); + } + else + { + self->takeaction = NULL; + set_idle(self); + } + } + + stall = global_config.game_speed - self->modeldata.aggression; + if (stall < global_config.game_speed / 2) + { + stall = global_config.game_speed / 2; + } + self->stalltime = _time + MAX(0, stall); +} + +//while playing any simple animation +void common_animation_normal() +{ + if(self->animating) + { + return; + } + + self->takeaction = NULL; + set_idle(self); + + return; +} + +//while playing attack animation +void common_attack_proc() +{ + if(self->animating || diff(self->position.y, self->base) >= 4) + { + return; + } + + if(self->tocost) + { + + // Enemy was hit with a special so go ahead and subtract life + if(check_energy(ENERGY_TYPE_MP, self->animnum)) + { + self->energy_state.mp_current -= self->animation->energy_cost.cost; + } + else + { + self->energy_state.health_current -= self->animation->energy_cost.cost; + } + + self->tocost = 0; // Life is subtracted, so go ahead and reset the flag + } + + if(self == smartbomber) + { + // Player is done with the special animation, so unfreeze and execute a smart bomb + smart_bomb(self, self->modeldata.smartbomb); + smartbomber = NULL; + } + if(self->weapon_state & WEAPON_STATE_DEDUCT_USE) + { + subtract_shot(); + self->weapon_state &= ~WEAPON_STATE_DEDUCT_USE; + } + self->attacking = ATTACKING_NONE; + // end of attack proc + common_attack_finish(); +} + + +// dispatch A.I. attack +int common_attack() +{ + int aiattack; + + //if(stalker==self) return 0; + + if(_time / THINK_SPEED % 4 == 0) + { + return 0; + } + + if(self->modeldata.aiattack == -1) + { + return 0; + } + + aiattack = self->modeldata.aiattack & MASK_AIATTACK1; + + switch(aiattack) + { + case AIATTACK1_LONG: + case AIATTACK1_MELEE: + case AIATTACK1_NOATTACK: + return 0; + default: // this is the only available attack style by now + return inair(self) ? 0 : normal_attack(); + } +} + +//maybe used many times, so make a function +// A.I. characters will check if there's a wall infront, and jump onto it if possible +// return 1 if jump +int common_try_jump() +{ + const int COMMON_TRY_JUMP_DEFAULT = 1; + const int COMMON_TRY_JUMP_RUN = 2; + + float xdir = 0.0; + float zdir = 0.0; + int wall = 0; + int to_jump = 0; + float rmin = 0.0; + float rmax = 0.0; + float initial_z_velocity = 0.0; + + animation_id_t jump_animation = ANI_JUMP; + + /* + * If we can't jump at all, return false now. + */ + + if (self->modeldata.air_control & AIR_CONTROL_JUMP_DISABLE) + { + return 0; + } + + if(validanim(self, ANI_JUMP)) + { + xdir = 0; + wall = -1; + rmin = (float)self->modeldata.animation[ANI_JUMP]->range.x.min; + rmax = (float)self->modeldata.animation[ANI_JUMP]->range.x.max; + + if(self->direction == DIRECTION_RIGHT) + { + xdir = self->position.x + rmin; + } + else + { + xdir = self->position.x - rmin; + } + + /* + * If we can Z jump, apply velocity to ZDir. + * This means our checks below will have a + * bit of lateral (z) range. + */ + + if(self->modeldata.air_control & AIR_CONTROL_JUMP_Z_INITIAL) + { + zdir = self->position.z + self->velocity.z; + } + else + { + zdir = self->position.z; + } + + /* Check for obstruction in range of JUMP. */ + + if( (wall = checkwall_below(xdir, zdir, T_MAX_CHECK_ALTITUDE)) >= 0 && + level->walls[wall].height <= self->position.y + rmax && + !inair(self) && self->position.y < level->walls[wall].height ) + { + to_jump = COMMON_TRY_JUMP_DEFAULT; + } + else if(checkhole(self->position.x + (self->direction == DIRECTION_RIGHT ? 2 : -2), zdir) && + checkwall_index(self->position.x + (self->direction == DIRECTION_RIGHT ? 2 : -2), zdir) < 0 && + check_platform (self->position.x + (self->direction == DIRECTION_RIGHT ? 2 : -2), zdir, self) == NULL && + !checkhole(self->position.x + (self->direction == DIRECTION_RIGHT ? rmax : -rmax), zdir)) + { + to_jump = COMMON_TRY_JUMP_DEFAULT; + } + } + + /* + * Caskey, Damon V. + * 2010-03-29 + * + * AI will check its RUNJUMP range if JUMP + * check failed. Code is pretty redundant, + * should probably move to a function later. + */ + + if(!to_jump && validanim(self, ANI_RUNJUMP)) + { + xdir = 0; + wall = -1; + rmin = (float)self->modeldata.animation[ANI_RUNJUMP]->range.x.min; + rmax = (float)self->modeldata.animation[ANI_RUNJUMP]->range.x.max; + + if(self->direction == DIRECTION_RIGHT) + { + xdir = self->position.x + rmin; + } + else + { + xdir = self->position.x - rmin; + } + + /* + * If we can Z jump, apply velocity to ZDir. + * This means our checks below will have a + * bit of lateral (z) range. + */ + + if(self->modeldata.air_control & AIR_CONTROL_JUMP_Z_INITIAL) + { + zdir = self->position.z + self->velocity.z; + } + else + { + zdir = self->position.z; + } + + /* Check for obstruction in range of RUNJUMP. */ + if( (wall = checkwall_below(xdir, zdir, T_MAX_CHECK_ALTITUDE)) >= 0 && + level->walls[wall].height <= self->position.y + rmax && + !inair(self) && self->position.y < level->walls[wall].height ) + { + to_jump = COMMON_TRY_JUMP_RUN; + } + else if(checkhole(self->position.x + (self->direction == DIRECTION_RIGHT ? 2 : -2), zdir) && + checkwall_index(self->position.x + (self->direction == DIRECTION_RIGHT ? 2 : -2), zdir) < 0 && + check_platform (self->position.x + (self->direction == DIRECTION_RIGHT ? 2 : -2), zdir, self) == NULL && + !checkhole(self->position.x + (self->direction == DIRECTION_RIGHT ? rmax : -rmax), zdir)) + { + to_jump = COMMON_TRY_JUMP_RUN; + } + } + + /* + * Now select the appropriate animation + * and send data to tryjump. + */ + + if(to_jump) + { + if(self->running || to_jump == COMMON_TRY_JUMP_RUN) + { + if(validanim(self, ANI_RUNJUMP)) + { + jump_animation = ANI_RUNJUMP; + } + else if(validanim(self, ANI_FORWARDJUMP)) + { + jump_animation = ANI_FORWARDJUMP; + } + else + { + jump_animation = ANI_JUMP; + } + } + else + { + if(validanim(self, ANI_FORWARDJUMP)) + { + jump_animation = ANI_FORWARDJUMP; + } + else + { + jump_animation = ANI_JUMP; + } + } + + if (self->modeldata.air_control & AIR_CONTROL_JUMP_Z_INITIAL) + { + initial_z_velocity = self->velocity.z; + } + else + { + initial_z_velocity = 0.0; + } + + tryjump(self->modeldata.runjumpheight, self->modeldata.jumpspeed* self->modeldata.runjumpdist, initial_z_velocity, jump_animation); + + return 1; + } + return 0; +} + +//test if direction is available for anim_up +static int testup(float xd, float zd) +{ + float f; + if(zd < 0) + { + if(!xd) + { + return 1; + } + f = zd / xd; + return (f > 0.5 || f < -0.5); + } + return 0; +} + +//test if direction is available for anim_down +static int testdown(float xd, float zd) +{ + float f; + if(zd > 0) + { + if(!xd) + { + return 1; + } + f = zd / xd; + return (f > 0.5 || f < -0.5); + } + return 0; +} + +void adjust_walk_animation(entity *other) +{ + int dir = 0; + if(self->running) + { + if (validanim(self, ANI_BACKRUN)) + { + if(is_in_backrun(self)) ent_set_anim(self, ANI_BACKRUN, 0); + else ent_set_anim(self, ANI_RUN, 0); + } + else ent_set_anim(self, ANI_RUN, 0); // Set to run animation if exists + return; + } + + //reset the walk animation + if(validanim(self, ANI_UP) && ((!other && testup(self->velocity.x, self->velocity.z)) || (other && testup(other->position.x - self->position.x, other->position.z - self->position.z)))) + { + common_up_anim(self); //ent_set_anim(self, ANI_UP, 0); + dir = 2; + } + else if(validanim(self, ANI_DOWN) && ((!other && testdown(self->velocity.x, self->velocity.z)) || (other && testdown(other->position.x - self->position.x, other->position.z - self->position.z)))) + { + common_down_anim(self); //ent_set_anim(self, ANI_DOWN, 0); + dir = 3; + } + else if((self->direction == DIRECTION_RIGHT ? self->velocity.x < 0 : self->velocity.x > 0) && validanim(self, ANI_BACKWALK)) + { + common_backwalk_anim(self); //ent_set_anim(self, ANI_BACKWALK, 0); + } + else + { + common_walk_anim(self); //ent_set_anim(self, ANI_WALK, 0); + dir = 1; + } + + if(((self->direction == DIRECTION_RIGHT ? self->velocity.x < 0 : self->velocity.x > 0) && dir == 1) || + (dir == 2 && self->velocity.z > 0) || (dir == 3 && self->velocity.z < 0) ) + { + self->animating = ANIMATING_REVERSE; + } + else + { + self->animating = ANIMATING_FORWARD; + } +} + + +// ai character try to move towards the item +// TODO, check path or entity might get stuck under a wall +int common_try_pick(entity *other) +{ + // if there's an item to pick up, move towards it. + float maxspeed = self->modeldata.speed.x * 1.5; + float dx = diff(self->position.x, other->position.x); + float dz = diff(self->position.z, other->position.z); + + if(other == NULL || self->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + return 0; + } + + if(!dz && !dx) + { + self->velocity.x = self->velocity.z = 0; + self->destz = self->position.z; + self->destx = self->position.x; + } + else + { + self->velocity.x = maxspeed * dx / (dx + dz); + self->velocity.z = maxspeed * dz / (dx + dz); + self->destx = other->position.x; + self->destz = other->position.z; + } + if(self->position.x > other->position.x) + { + self->velocity.x = -self->velocity.x; + } + if(self->position.z > other->position.z) + { + self->velocity.z = -self->velocity.z; + } + + self->running = RUN_STATE_NONE; + + adjust_walk_animation(other); + + return 1; +} + +#define astarw 640 +#define astarh 360 +#define starts (astarw*astarh) + +// not so completed pathfinding logic based on a* +// it should be fairly slow due to the complicacy of terrain checking +// and it doesn't always work since walking from wall to wall +// requires jump. +int astar(entity *ent, float destx, float destz, float step, s_axis_plane_lateral_float **wp) +{ + int (*came_from)[astarw][astarh][2] = malloc(sizeof(*came_from)); + unsigned char (*closed)[astarw][astarh] = malloc(sizeof(*closed)); + int (*openset)[starts][2] = malloc(sizeof(*openset)); + float (*gscore)[astarw][astarh] = malloc(sizeof(*gscore)); + float (*hscore)[astarw][astarh] = malloc(sizeof(*hscore)); + float (*fscore)[astarw][astarh] = malloc(sizeof(*fscore)); + int opensize = 0; + int result = 0, mi = 0; + float tg, minf; + int x, z, i, j, tx, tz, better; + static int vx[8] = {0, 1, 1, 1, 0, -1, -1, -1}, vz[8] = { -1, -1, 0, 1, 1, 1, 0, -1}; + static float score[8] = {1.0, 1.4, 1.0, 1.4, 1.0, 1.4, 1.0, 1.4}; + + int sx = astarw / 2, sz = astarh / 2; + int dx = sx + (destx - ent->position.x) / step, dz = sz + (destz - ent->position.z) / step; + + *wp = NULL; + if(dx < 0 || dx >= astarw || dz < 0 || dz >= astarh) + { + goto pfclearup; + } + memset(closed, 0, sizeof(*closed)); + (*openset)[opensize][0] = sx; + (*openset)[opensize][1] = sz; + opensize++; + memset(came_from, 0, sizeof(*came_from)); + + (*gscore)[sx][sz] = 0; + (*hscore)[sx][sz] = diff(dx, sx) + diff(dz, sz); + (*fscore)[sx][sz] = (*gscore)[sx][sz] + (*hscore)[sx][sz]; + (*came_from)[sx][sz][0] = -1; + + while(opensize > 0) + { + minf = 9999999; + for(j = 0; j < opensize; j++) + { + x = (*openset)[j][0]; + z = (*openset)[j][1]; + if((*fscore)[x][z] < minf) + { + minf = (*fscore)[x][z]; + mi = j; + } + } + + x = (*openset)[mi][0]; + z = (*openset)[mi][1]; + if(x == dx && z == dz) + { + do + { + tx = (*came_from)[x][z][0]; + tz = (*came_from)[x][z][1]; + result++; + x = tx; + z = tz; + } + while(x >= 0); + *wp = malloc(sizeof(*wp) * result); + tx = (*came_from)[dx][dz][0]; + tz = (*came_from)[dx][dz][1]; + j = 0; + while(tx >= 0) + { + (*wp)[j].x = (tx - sx) * step + ent->position.x; + (*wp)[j].z = (tz - sz) * step + ent->position.z; + x = (*came_from)[tx][tz][0]; + z = (*came_from)[tx][tz][1]; + tx = x; + tz = z; + j++; + } + goto pfclearup; + } + + (*openset)[mi][0] = (*openset)[opensize - 1][0]; + (*openset)[mi][1] = (*openset)[opensize - 1][1]; + + opensize--; + (*closed)[x][z] = 1; + + for(i = 0; i < 8; i++) + { + tx = x + vx[i]; + tz = z + vz[i]; + + if(tx < 0 || tx >= astarw || tz < 0 || tz >= astarh) + { + continue; + } + if((*closed)[tx][tz]) + { + continue; + } + + if(!testmove(ent, (x - sx)*step + ent->position.x, (z - sz)*step + ent->position.z, (tx - sx)*step + ent->position.x, (tz - sz)*step + ent->position.z)) + { + // (*closed)[tx][tz] = 1; // don't add that to close list just in case the entity can jump + continue; + } + + tg = (*gscore)[x][z] + score[i]; + + for(j = 0; j < opensize; j++) + { + if((*openset)[j][0] == tx && (*openset)[j][1] == tz) + { + break; + } + } + + if(j == opensize) + { + (*openset)[opensize][0] = tx; + (*openset)[opensize][1] = tz; + opensize++; + better = 1; + } + else if (tg < (*gscore)[tx][tz]) + { + better = 1; + } + else + { + better = 0; + } + + if(better) + { + (*came_from)[tx][tz][0] = x; + (*came_from)[tx][tz][1] = z; + (*gscore)[tx][tz] = tg; + (*hscore)[tx][tz] = diff(tx, dx) + diff(tz, dz); + (*fscore)[tx][tz] = (*gscore)[tx][tz] + (*hscore)[tx][tz]; + } + } + } + +pfclearup: + if(came_from) + { + free(came_from); + } + came_from = NULL; + if(closed) + { + free(closed); + } + closed = NULL; + if(openset) + { + free(openset); + } + openset = NULL; + if(gscore) + { + free(gscore); + } + gscore = NULL; + if(hscore) + { + free(hscore); + } + hscore = NULL; + if(fscore) + { + free(fscore); + } + fscore = NULL; + + return result; +} + + +// use this after a wall checking meets +// wall sliding code +// whichside: +// 0 +// 1 3 +// 2 +int adjustdirection(float coords[], float offx, float offz, float ox, float oz, float xdir, float zdir, float *cxdir, float *czdir) +{ + float x[4], z[4]; + int whichside, i; + float a; + + for(i = 0; i < 4; i++) + { + x[i] = coords[2 + i] + coords[0] + offx; + } + z[1] = z[3] = coords[1] + offz; + z[0] = z[2] = z[1] - coords[6]; + + if(oz <= z[0]) + { + whichside = 0; + } + else if(oz >= z[1]) + { + whichside = 2; + } + else if(ox < x[2]) + { + whichside = 1; + } + else + { + whichside = 3; + } + + if(whichside == 0 || whichside == 2) + { + *cxdir = xdir; + *czdir = 0; + } + else + { + if((x[0] == x[1] && whichside == 1) || (x[2] == x[3] && whichside == 3)) + { + *cxdir = 0; + *czdir = zdir; + } + else + { + if(whichside == 1) + { + a = (z[1] - z[0]) / (x[1] - x[0]); + } + else + { + a = (z[3] - z[2]) / (x[3] - x[2]); + } + + *cxdir = xdir + zdir / a; + *czdir = a * xdir + zdir; + + a = (ABS(xdir) + ABS(zdir)) / (ABS(*cxdir) + ABS(*czdir)) ; + *cxdir *= a; + *czdir *= a; + } + } + //printf("%f, %f, %f, %f, %d\n", xdir, zdir, *cxdir, *czdir, whichside); + return whichside; +} + +// adjust walk speed for entity assuming it walks straight forward +// x, z - current position +// tx, tz - target position +// speed - max speed +// xdir, zdir - return values +void adjustspeed(float speed, float x, float z, float tx, float tz, float *xdir, float *zdir) +{ + float xd, zd; + float dx = diff(tx, x); + float dz = diff(tz, z) * 2; + + if(dx > dz) + { + xd = speed; + zd = xd / dx * dz; + } + else if(dz > dx) + { + zd = speed; + xd = zd / dz * dx; + } + else if(dx) + { + xd = zd = speed; + } + else + { + xd = zd = 0; + } + + if(tx < x) + { + xd = -xd; + } + if(tz < z) + { + zd = -zd; + } + + zd /= 2; + + *xdir = xd; + *zdir = zd; + +} + +int checkpathblocked() +{ + float x, z, r; + int aitype, wpc; + entity *target; + s_axis_plane_lateral_float *wp; + if(self->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + return 0; + } + if(self->stalltime >= _time) + { + aitype = self->modeldata.aimove; + if(self->modeldata.subtype == SUBTYPE_CHASE) + { + aitype |= AIMOVE1_CHASE; + } + + //be moo tolerable to PLAYER_MAX_Z and PLAYER_MIN_Z + if((self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MAX_Z && self->velocity.z > 0 && !self->velocity.x && self->velocity.z + self->position.z > PLAYER_MAX_Z) || + (self->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MIN_Z && self->velocity.z < 0 && !self->velocity.x && self->velocity.z + self->position.z < PLAYER_MIN_Z) ) + { + self->velocity.z = -self->velocity.z; + self->pathblocked = 0; + self->destz = self->velocity.z > 0 ? (PLAYER_MIN_Z + videomodes.vRes / 10) : (PLAYER_MAX_Z - videomodes.vRes / 10); + adjust_walk_animation(NULL); + return 1; + } + + if(self->pathblocked > 40 || (self->pathblocked > 20 && (aitype & (AIMOVE1_CHASEX | AIMOVE1_CHASEZ | AIMOVE1_CHASE)))) + { + if(self->modeldata.pathfindstep > 0) + { + target = normal_find_target(-1, 0); + + if(target) + { + //printf("pathfind: (%f %f)-(%f %f) %d steps\n", self->position.x, self->position.z, self->destx, self->destz, pathfind(self, self->destx, self->destz)); + if((wpc = astar(self, target->position.x, target->position.z, self->modeldata.pathfindstep, &wp)) > 0) + { + //printf("wp %d\n", wp); + self->numwaypoints = wpc; + if(self->waypoints) + { + free(self->waypoints); + } + self->waypoints = wp; + self->destx = self->waypoints[self->numwaypoints - 1].x; + self->destz = self->waypoints[self->numwaypoints - 1].z; + self->numwaypoints--; + self->pathblocked = 0; + return 1; + } + } + } + + x = self->velocity.x; + z = self->velocity.z; + if(x > 0) + { + x = self->modeldata.speed.x; + } + else if(x < 0) + { + x = -self->modeldata.speed.x; + } + if(z > 0) + { + z = self->modeldata.speed.x / 2; + } + else if(z < 0) + { + z = -self->modeldata.speed.x / 2; + } + r = randf(1); + if(r > 0.6f) + { + self->velocity.z = x; + self->velocity.x = -z; + } + else if(r > 0.2f) + { + self->velocity.z = -x; + self->velocity.x = z; + } + else + { + self->velocity.z = (1.0f - randf(2)) * self->modeldata.speed.x / 2; + self->velocity.x = (1.0f - randf(2)) * self->modeldata.speed.x; + } + self->running = RUN_STATE_NONE; // TODO: re-adjust walk speed + self->stalltime = _time + global_config.game_speed / 2; + adjust_walk_animation(NULL); + self->pathblocked = 0; + + if(self->velocity.z > 0) + { + self->destz = self->position.z + 40; + } + else if(self->velocity.z < 0) + { + self->destz = self->position.z - 40; + } + else + { + self->destz = self->position.z; + } + if(self->velocity.x > 0) + { + self->destx = self->position.x + 40; + } + else if(self->velocity.x < 0) + { + self->destx = self->position.x - 40; + } + else + { + self->destx = self->position.x; + } + + return 1; + + } + } + return 0; +} + + +// this is the most aggressive aimove pattern +// the entity will try get in and attack at anytime +// though the range depends on what attack you setup +int common_try_chase(entity* acting_entity, const entity *target, const bool axis_x, const bool axis_z) +{ + // start chasing the target + float dx, dz, range; + int randomatk; + + acting_entity->running = RUN_STATE_NONE; + + //adjustspeed(acting_entity->modeldata.speed.x, acting_entity->position.x, acting_entity->position.z, acting_entity->position.x + acting_entity->velocity.x, acting_entity->position.z + acting_entity->velocity.z, &acting_entity->velocity.x, &acting_entity->velocity.z); + + if(target == NULL || acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + return 0; + } + + randomatk = pick_random_attack(NULL, 0); + + if(randomatk >= 0) + { + range = (acting_entity->modeldata.animation[randomatk]->range.x.min + acting_entity->modeldata.animation[randomatk]->range.x.max) / 2; + //printf("range picked: ani %d, range %f\n", randomatk, range); + if(range < 0) + { + range = acting_entity->modeldata.grabdistance; + } + else if(range > videomodes.hRes / 4) + { + range = videomodes.hRes / 4; + } + } + else + { + range = acting_entity->modeldata.grabdistance; + } + + if(axis_x) + { + if(acting_entity->position.x > target->position.x) + { + acting_entity->destx = target->position.x + range - 1; + } + else + { + acting_entity->destx = target->position.x - range + 1; + } + dx = diff(acting_entity->position.x, acting_entity->destx); + + if(dx > 150 && validanim(acting_entity, ANI_RUN)) + { + acting_entity->velocity.x = acting_entity->modeldata.runspeed; + acting_entity->running &= ~RUN_STATE_START_Z; + acting_entity->running |= RUN_STATE_START_X; + } + else + { + acting_entity->velocity.x = acting_entity->modeldata.speed.x; + } + if(acting_entity->destx < acting_entity->position.x) + { + acting_entity->velocity.x = -acting_entity->velocity.x; + } + + //////////// + } + + if (axis_z) + { + acting_entity->destz = target->position.z; + dz = diff(acting_entity->position.z, acting_entity->destz); + + int going_up = (acting_entity->destz < acting_entity->position.z); + int run_flag_check = 0; + + if (going_up) + { + run_flag_check = + (acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_UP_ENABLED) && + (acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_UP_INITIAL); + } + else + { + run_flag_check = + (acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_DOWN_ENABLED) && + (acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_DOWN_INITIAL); + } + + if (dz > 100 && run_flag_check && validanim(acting_entity, ANI_RUN)) + { + acting_entity->velocity.z = acting_entity->modeldata.runspeed / 2; + acting_entity->running &= ~RUN_STATE_START_X; + acting_entity->running |= RUN_STATE_START_Z; + } + else + { + acting_entity->velocity.z = acting_entity->modeldata.speed.x / 2; + } + + if (going_up) + { + acting_entity->velocity.z = -acting_entity->velocity.z; + } + } + + return 1; +} + +/* +* Caskey, Damon V. +* 2023-05-24 - Rewrite of orginal function by uTunnels, unknown date. +* +* Acting entity attempts to follow +* target entity allong allowed axis. +*/ +int common_try_follow(entity* const acting_entity, const entity *target, const bool axis_x, const bool axis_z) +{ + //printf("\n\n common_try_follow(%p, %p, %d, %d)", acting_entity, target, axis_x, axis_z); + + const s_child_follow* const child_follow = acting_entity->modeldata.child_follow; + + if(acting_entity == NULL || target == NULL || !child_follow || acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + return 0; + } + + enum e_follow_state + { + FOLLOW_STATE_NONE = 0, + FOLLOW_STATE_RUN_X = (1 << 0), + FOLLOW_STATE_RUN_Z = (1 << 1), + FOLLOW_STATE_X = (1 << 2), + FOLLOW_STATE_Z = (1 << 3) + } follow_state = FOLLOW_STATE_NONE; + + float follow_speed = 0; + e_run_state run_state = RUN_STATE_NONE; + + /* + * Target positon, distance to target + * entity, and if acting entity is + * facing the target. + */ + + const s_axis_principal_float target_pos = { + .x = target->position.x + (target->direction == DIRECTION_RIGHT ? child_follow->follow_offset.x : -child_follow->follow_offset.x), + .y = target->position.y + child_follow->follow_offset.y, + .z = target->position.z + child_follow->follow_offset.z + }; + + const float distance_x = diff(acting_entity->position.x, target_pos.x); + const float distance_z = diff(acting_entity->position.z, target_pos.z); + + const int facing_target = (acting_entity->direction == DIRECTION_RIGHT ? acting_entity->position.x < target_pos.x : acting_entity->position.x > target_pos.x); + + /* + * Set up follow/run ranges. The use of + * idle range min value for min/max range + * defaults is for legacy compatability. + */ + + const int valid_idle = validanim(acting_entity, ANI_IDLE); + const int follow_range_default_x = (valid_idle) ? acting_entity->modeldata.animation[ANI_IDLE]->range.x.min : 100; + const int follow_range_default_z = (int)follow_range_default_x * 0.5; + const int follow_range_default_run = follow_range_default_x + 100; + + const s_range follow_range = { + .x = { + .max = (child_follow->follow_range.x.max == MAX_INT && valid_idle) ? follow_range_default_x : child_follow->follow_range.x.max, + .min = (child_follow->follow_range.x.min == MIN_INT && valid_idle) ? -follow_range_default_x : child_follow->follow_range.x.min + }, + .z = { + .max = (child_follow->follow_range.z.max == MAX_INT && valid_idle) ? follow_range_default_z : child_follow->follow_range.z.max, + .min = (child_follow->follow_range.z.min == MIN_INT && valid_idle) ? -follow_range_default_z : child_follow->follow_range.z.min + } + }; + + const s_range follow_run_range = { + .x = { + .max = child_follow->follow_run_range.x.max == MAX_INT ? follow_range_default_run : child_follow->follow_run_range.x.max, + .min = child_follow->follow_run_range.x.min == MIN_INT ? -follow_range_default_run : child_follow->follow_run_range.x.min + }, + + //.y = + // .max = child_follow->follow_run_range.y.max == MAX_INT ? (int)videomodes.vRes * 0.90 : child_follow->follow_run_range.y.max, + // .min = child_follow->follow_run_range.y.min == MIN_INT ? (int)videomodes.vRes * -0.90 : child_follow->follow_run_range.y.min + //}, + + .z = { + .max = child_follow->follow_run_range.z.max == MAX_INT ? follow_range_default_run : child_follow->follow_run_range.z.max, + .min = child_follow->follow_run_range.z.min == MIN_INT ? -follow_range_default_run : child_follow->follow_run_range.z.min + } + }; + + //printf("\n\t follow_range.x.min: %d", follow_range.x.min); + //printf("\n\t follow_range.x.max: %d", follow_range.x.max); + //printf("\n\t follow_range.z.min: %d", follow_range.z.min); + //printf("\n\t follow_range.z.max: %d", follow_range.z.max); + + + /* + * Let's try to follow on each axis. If ranges + * are not reversed, then we check to see if + * target is OUTSIDE the range, and if so, then + * set a flag to run downstream movement logic + * to pursue target. We do this for both walking + * and running. + */ + + if (axis_x) + { + if ((follow_range.x.min <= follow_range.x.max) + && !check_range_target_x(acting_entity, target, NULL, follow_range.x.min, follow_range.x.max)) { + + follow_state |= FOLLOW_STATE_X; + } + + /* Following and able to run? */ + if (follow_state & FOLLOW_STATE_X && validanim(acting_entity, ANI_RUN) + && facing_target + && (follow_run_range.x.min <= follow_run_range.x.max) + && !check_range_target_x(acting_entity, target, NULL, follow_run_range.x.min, follow_run_range.x.max)) { + + follow_state |= FOLLOW_STATE_RUN_X; + } + } + + if (axis_z) + { + if ((follow_range.z.min <= follow_range.z.max) + && !check_range_target_z(acting_entity, target, NULL, follow_range.z.min, follow_range.z.max)) { + + follow_state |= FOLLOW_STATE_Z; + } + + /* Following and able to run? */ + if (follow_state & FOLLOW_STATE_Z && validanim(acting_entity, ANI_RUN) + && facing_target + && (follow_run_range.z.min <= follow_run_range.z.max) + && !check_range_target_z(acting_entity, target, NULL, follow_run_range.z.min, follow_run_range.z.max)) { + + follow_state |= FOLLOW_STATE_RUN_Z; + } + } + + //printf("\n\n acting_entity: %p", acting_entity); + //printf("\n target_pos.x: %f", target_pos.x); + //printf("\n target_pos.z: %f", target_pos.z); + //printf("\n distance_x: %f", distance_x); + //printf("\n distance_max: %f", distance_max); + //printf("\n distance_x: %f", distance_x); + //printf("\n distance_z: %f", distance_z); + + //printf("\n\t follow_state: %d", follow_state); + //printf("\n\t axis_x: %d", axis_x); + //printf("\n\t axis_z: %d", axis_z); + + /* + * If we are farther from target on the + * X axis than the Z axis, we will try + * to initialize running toward target + * on X and veer toward target on Z. If + * we are farther on Z axis, then we'll + * do the opposite. + */ + + if (distance_x > distance_z) { + + if (follow_state & FOLLOW_STATE_X) { + + if (follow_state & FOLLOW_STATE_RUN_X) { + + if (acting_entity->direction == DIRECTION_LEFT + && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_X_LEFT_INITIAL | RUN_CONFIG_X_LEFT_ENABLED)) == (RUN_CONFIG_X_LEFT_INITIAL | RUN_CONFIG_X_LEFT_ENABLED)) { + follow_speed = -acting_entity->modeldata.runspeed; + run_state |= RUN_STATE_START_X; + } + else if (acting_entity->direction == DIRECTION_RIGHT + && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_X_RIGHT_INITIAL | RUN_CONFIG_X_RIGHT_ENABLED)) == (RUN_CONFIG_X_RIGHT_INITIAL | RUN_CONFIG_X_RIGHT_ENABLED)) { + follow_speed = acting_entity->modeldata.runspeed; + run_state |= RUN_STATE_START_X; + } + } + else { + follow_speed = acting_entity->modeldata.speed.x; + } + + /* Reverse speed if target is to our left. */ + if (acting_entity->position.x > target_pos.x) + { + follow_speed = -follow_speed; + } + + acting_entity->velocity.x = follow_speed; + acting_entity->running = run_state; + acting_entity->destx = target_pos.x; + } + + follow_speed = 0; + + if (follow_state & FOLLOW_STATE_Z) { + /* + * If we're running and have Z running enabled, let's + * veer ourselves toward the target. + */ + + if (follow_state & FOLLOW_STATE_RUN_Z) { + + if (acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_DOWN_ENABLED) { + follow_speed = acting_entity->modeldata.runspeed / 2; + } + else if (acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_UP_ENABLED) { + follow_speed = -acting_entity->modeldata.runspeed / 2; + } + } + else { + follow_speed = acting_entity->modeldata.speed.x / 2; + } + + /* Reverse speed if target is behind our Z position. */ + if (acting_entity->position.z > target_pos.z) { + follow_speed = -follow_speed; + } + + acting_entity->velocity.z = follow_speed; + acting_entity->running = run_state; + acting_entity->destz = target_pos.z; + } + } + else { + + if (follow_state & FOLLOW_STATE_Z) + { + if (follow_state & FOLLOW_STATE_RUN_Z) + { + if (acting_entity->position.z < target_pos.z + && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_Z_DOWN_INITIAL | RUN_CONFIG_Z_DOWN_ENABLED)) == (RUN_CONFIG_Z_DOWN_INITIAL | RUN_CONFIG_Z_DOWN_ENABLED)) { + + follow_speed = acting_entity->modeldata.runspeed; + run_state = RUN_STATE_START_Z; + } + else if (acting_entity->position.z > target_pos.z + && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_Z_UP_INITIAL | RUN_CONFIG_Z_UP_ENABLED)) == (RUN_CONFIG_Z_UP_INITIAL | RUN_CONFIG_Z_UP_ENABLED)) { + + follow_speed = -acting_entity->modeldata.runspeed; + run_state = RUN_STATE_START_Z; + } + } + else { + follow_speed = acting_entity->modeldata.speed.x; + } + + acting_entity->velocity.z = follow_speed; + acting_entity->running = run_state; + acting_entity->destz = target_pos.z; + } + + follow_speed = 0; + + if (follow_state & FOLLOW_STATE_X) { + /* + * If we're running and have Z running enabled, let's + * veer ourselves toward the target. + */ + + if (follow_state & FOLLOW_STATE_RUN_X) { + + if (acting_entity->direction == DIRECTION_LEFT + && acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_LEFT_ENABLED) { + follow_speed = -acting_entity->modeldata.runspeed / 2; + } + else if (acting_entity->direction == DIRECTION_RIGHT + && acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_RIGHT_ENABLED) { + follow_speed = acting_entity->modeldata.runspeed / 2; + } + } + else { + follow_speed = acting_entity->modeldata.speed.x / 2; + } + + /* Reverse speed if target is behind our Z position. */ + if (acting_entity->position.z > target_pos.z) { + follow_speed = -follow_speed; + } + + acting_entity->velocity.z = follow_speed; + acting_entity->running = run_state; + acting_entity->destz = target_pos.z; + } + } + + //printf("\n\t acting_entity->running : %d", acting_entity->running); + //printf("\n\t acting_entity->destx: %f", acting_entity->destx); + //printf("\n\t acting_entity->destz: %f", acting_entity->destz); + //printf("\n\t acting_entity->velocity.x: %f", acting_entity->velocity.x); + //printf("\n\t acting_entity->velocity.z: %f", acting_entity->velocity.z); + + return 1; +} + +// try to avoid the target +// used by 'avoid avoidz avoidx +// Basic logic: the entity walk within a min distance and a max distance from the target +int common_try_avoid(entity *target, int dox, int doz) +{ + float dx, dz; + float maxdz, mindz, maxdx, mindx; + int randomatk; + + if(target == NULL || self->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + return 0; + } + + dx = diff(self->position.x, target->position.x); + dz = diff(self->position.z, target->position.z); + + randomatk = pick_random_attack(NULL, 0); + + if((rand32() & 15) < 8 && randomatk >= 0) + { + maxdx = self->modeldata.animation[randomatk]->range.x.max - self->modeldata.speed.x; + if(maxdx < videomodes.hRes / 5) + { + maxdx = videomodes.hRes / 5; + } + mindx = maxdx - 10; + maxdz = self->modeldata.animation[randomatk]->range.z.max - self->modeldata.speed.x; + if(maxdz < videomodes.vRes / 5) + { + maxdz = videomodes.vRes / 5; + } + mindz = maxdz - 10; + } + else + { + mindx = videomodes.hRes / 3; + maxdx = videomodes.hRes / 2; + mindz = videomodes.vRes / 3; + maxdz = videomodes.vRes / 2; + } + + if(dox) + { + if(self->position.x < screenx) + { + self->velocity.x = self->modeldata.speed.x; + self->destx = screenx + videomodes.hRes / 12.0; + } + else if(self->position.x > screenx + videomodes.hRes) + { + self->velocity.x = -self->modeldata.speed.x; + self->destx = screenx + videomodes.hRes * 11.0 / 12.0; + } + else if(dx < mindx) + { + self->velocity.x = (self->position.x < target->position.x) ? (-self->modeldata.speed.x) : self->modeldata.speed.x; + self->destx = (self->position.x < target->position.x) ? (target->position.x - maxdx) : (target->position.x + maxdx); + } + else if (dx > maxdx) + { + self->velocity.x = (self->position.x < target->position.x) ? self->modeldata.speed.x : (-self->modeldata.speed.x); + self->destx = (self->position.x < target->position.x) ? (target->position.x - mindx) : (target->position.x + mindx); + } + else + { + self->velocity.x = 0; + self->destx = self->position.x; + } + } + + if(doz) + { + if(self->position.z < screeny) + { + self->velocity.z = self->modeldata.speed.x / 2; + self->destz = screeny + videomodes.vRes / 12.0; + } + else if(self->position.z > screeny + videomodes.vRes) + { + self->velocity.z = -self->modeldata.speed.x / 2; + self->destz = screeny + videomodes.vRes * 11.0 / 12.0; + } + else if(dz < mindz) + { + self->velocity.z = (self->position.z < target->position.z) ? (-self->modeldata.speed.x / 2) : (self->modeldata.speed.x / 2); + self->destz = (self->position.z < target->position.z) ? (target->position.z - maxdz) : (target->position.z + maxdz); + } + else if(dz > maxdz) + { + self->velocity.z = (self->position.z < target->position.z) ? (self->modeldata.speed.x / 2) : (-self->modeldata.speed.x / 2); + self->destz = (self->position.z < target->position.z) ? (target->position.z - mindz) : (target->position.z + mindz); + } + else + { + self->velocity.z = 0; + self->destz = self->position.z; + } + } + + return 1; +} + +// wander completely and ignore the target +// this ai pattern only works when you use aimove wander, +// if you mix wander with other patterns like chase or avoid +// this pattern is not triggered +int common_try_wandercompletely(int dox, int doz) +{ + int rnum; + + if(self->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + return 0; + } + + if(dox) + { + rnum = rand32() & 15; + if(rnum < 4) + { + self->velocity.x = -self->modeldata.speed.x; + } + else if(rnum > 11) + { + self->velocity.x = self->modeldata.speed.x; + } + else + { + self->velocity.x = 0; + } + if( self->position.x < screenx - 10) + { + self->velocity.x = self->modeldata.speed.x; + } + else if(self->position.x > screenx + videomodes.hRes + 10) + { + self->velocity.x = -self->modeldata.speed.x; + } + + if(self->velocity.x > 0) + { + self->destx = self->position.x + videomodes.hRes / 5; + } + else if(self->velocity.x < 0) + { + self->destx = self->position.x - videomodes.hRes / 5; + } + else + { + self->destx = self->position.x; + } + + } + if(doz) + { + rnum = rand32() & 15; + if(rnum < 4) + { + self->velocity.z = -self->modeldata.speed.x / 2; + } + else if(rnum > 11) + { + self->velocity.z = self->modeldata.speed.x / 2; + } + else + { + self->velocity.z = 0; + } + if(self->position.z < screeny - 10) + { + self->velocity.z = self->modeldata.speed.x / 2; + } + else if(self->position.z > screeny + videomodes.vRes + 10) + { + self->velocity.z = -self->modeldata.speed.x / 2; + } + + if(self->velocity.z > 0) + { + self->destz = self->position.z + videomodes.vRes / 5; + } + else if(self->velocity.z < 0) + { + self->destz = self->position.z - videomodes.vRes / 5; + } + else + { + self->destz = self->position.z; + } + + } + + return 1; + +} +/* +int assume_safe_distance(entity* target, int ani, int* minx, int* maxx, int* minz, int* maxz) +{ + int f, set = 0; + short tminx, tmaxx, tminz, tmaxz; + s_anim* ta; + short* coords; + if(validanim(target, ani)){ + ta = target->modeldata.animation[ani]; + *minx = *minz = 9999; + *maxx = *maxz = -9999; + if(ta->collision_attack){ + for(f=0; fnumframes; f++){ + if(!ta->collision_attack[f]) continue; + coords = ta->collision_attack[f]->coords; + if(target->direction == DIRECTION_RIGHT) { + tminx = coords[0]; + tmaxx = coords[2]; + }else{ + tminx = -coords[2]; + tmaxx = -coords[0]; + } + tminz = -coords[4]; + tmaxz = coords[4]; + if(tminx<*minx) + *minx = tminx; + if(tminz<*minz) + *minz = tminz; + if(tmaxx>*maxx) + *maxx = tmaxx; + if(tmaxz>*maxz) + *maxz = tmaxz; + + set = 1; + } + + if(set && self->animation->collision_body_legacy->coords && self->animation->collision_body_legacy[self->animpos]->coords){ + coords = self->animation->collision_body_legacy[self->animpos]->coords; + *minx -= coords[2] - coords[0]; + *minz -= coords[4]; + *maxx += coords[2] - coords[0]; + *maxz += coords[4]; + } + + return set; + } + } + + return 0; + +} +*/ +// for normal and default ai patttern +// the entity is not actually wandering +// they just go around the target and get close +// occasionally to attack +int common_try_wander(entity *target, int dox, int doz) +{ + int walk = 0, behind, grabd, mod; + + float diffx, diffz, //distance from target + returndx, returndz, //how far should keep from target + borderdx, borderdz, //how far should keep offscreen + mindx, mindz;// don't walk into the target + int rnum = rand32() & 15, t, randomatk; + + if(!target || (self->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE)) + { + return 0; + } + + diffx = diff(self->position.x, target->position.x); + diffz = diff(self->position.z, target->position.z); + behind = ((self->position.x < target->position.x) == target->direction); + grabd = self->modeldata.grabdistance; + //when entity is behind the target, it has a greater chance to go after the target + if(behind && diffx < grabd * 4 && diffz < grabd) //right behind, go for it + { + t = 13; + } + else if(behind) // only behind, half chance + { + t = 7; + } + else // otherwise, 1/8 chance + { + t = 2; + } + + if(behind && target->attacking != ATTACKING_NONE) + { + t += 5; + } + + // could use this to replace the completely wander ai + if(dox != doz) + { + t = 0; + } + + if(rnum < t) //chase target + { + returndx = videomodes.hRes / 4; + returndz = videomodes.vRes / 8; + } + else // only chase when too far away + { + returndx = videomodes.hRes * 0.6; + returndz = videomodes.vRes * 0.4; + } + if(rnum > 7) + { + borderdx = videomodes.hRes / 8; + borderdz = videomodes.vRes / 8; + } + else + { + borderdx = borderdz = 0; + } + + randomatk = pick_random_attack(NULL, 0); + + if(randomatk >= 0) + { + mindx = self->modeldata.animation[randomatk]->range.x.max - (self->modeldata.animation[randomatk]->range.x.max - self->modeldata.animation[randomatk]->range.x.min) / 4 - 1; + } + else + { + mindx = (!behind && target->attacking != ATTACKING_NONE) ? grabd * 3 : grabd * 1.2; + } + mindz = grabd / 4; + + mod = ((int)(_time / (videomodes.hRes / self->modeldata.speed.x)) + 1000 + self->energy_state.health_current / 3 + self->pathblocked + self->modeldata.aggression / 10) % 4; + if(mod < 0) + { + mod = -mod; + } + //if ((self->sortid / 100) % 2) + if (rand32() % 2) + { + mod = 3 - mod; + } + + if(dox) + { + if(self->position.x < screenx - borderdx) + { + self->velocity.x = self->modeldata.speed.x; + self->destx = screenx + videomodes.hRes / 8.0; + walk = 1; + } + else if (self->position.x > screenx + videomodes.hRes + borderdx) + { + self->velocity.x = -self->modeldata.speed.x; + self->destx = screenx + videomodes.hRes * 7.0 / 8.0; + walk = 1; + } + else if(diffx > returndx) + { + self->velocity.x = (self->position.x > target->position.x) ? -self->modeldata.speed.x : self->modeldata.speed.x; + self->destx = (self->position.x > target->position.x) ? (target->position.x + mindx) : (target->position.x - mindx); + walk = 1; + } + else + { + switch(mod) + { + case 0: + self->destx = target->position.x + grabd; + break; + case 2: + self->destx = target->position.x - grabd; + break; + case 1: + self->destx = target->position.x + videomodes.hRes * 0.4 + (self->energy_state.health_current / 3 % 20); + break; + case 3: + self->destx = target->position.x - videomodes.hRes * 0.4 - (self->energy_state.health_current / 3 % 20); + break; + } + self->velocity.x = self->position.x > self->destx ? -self->modeldata.speed.x : self->modeldata.speed.x; + walk = 1; + //printf("mod x %d\n", mod); + } + } + + if(doz) + { + if(self->position.z < screeny - borderdz) + { + self->velocity.z = self->modeldata.speed.x / 2; + self->destz = screeny + videomodes.vRes / 12.0; + walk |= 1; + } + else if (self->position.z > screeny + videomodes.vRes + borderdz) + { + self->velocity.z = -self->modeldata.speed.x / 2; + self->destz = screeny + videomodes.vRes * 11.0 / 12.0; + walk |= 1; + } + else if(diffz > returndz) + { + self->velocity.z = (self->position.z > target->position.z) ? -self->modeldata.speed.x / 2 : self->modeldata.speed.x / 2; + self->destz = (self->position.z > target->position.z) ? (target->position.z + mindz) : (target->position.z - mindz); + walk |= 1; + } + else + { + switch(mod) + { + case 1: + self->destz = target->position.z + grabd / 2; + break; + case 3: + self->destz = target->position.z - grabd / 2; + break; + case 2: + self->destz = target->position.z + MIN((PLAYER_MAX_Z - PLAYER_MIN_Z), videomodes.vRes) * 0.25 + (self->energy_state.health_current / 3 % 5); + break; + case 0: + self->destz = target->position.z - MIN((PLAYER_MAX_Z - PLAYER_MIN_Z), videomodes.vRes) * 0.25 - (self->energy_state.health_current / 3 % 5); + break; + } + self->velocity.z = self->position.z > self->destz ? -self->modeldata.speed.x / 2 : self->modeldata.speed.x / 2; + walk |= 1; + //printf("mod z %d\n", mod); + } + } + + return walk; +} + +// Caskey, Damon V. +// 208-04-09 +// +// Set up attack by item and execute didhit script as if item "hit" collector +// to allow easy item scripting. +void do_item_script(entity *ent, entity *item) +{ + s_attack attack = emptyattack; + attack.attack_type = ATK_ITEM; + + execute_didhit_script(item, ent, &attack, 0); +} + +//A.I chracter pickup an item +void common_pickupitem(entity *other) +{ + int pickup = 0; + //weapons + if(self->weapent == NULL && isSubtypeWeapon(other) && validanim(self, ANI_GET)) + { + self->takeaction = common_get; + dropweapon(self, 0); //don't bother dropping the previous one though, scine it won't pickup another + self->weapent = other; + + set_weapon(self, other->modeldata.weapon_properties.weapon_index, 0); + + set_getting(self); + self->velocity.x = self->velocity.z = 0; //stop moving + + /* Move to weapon location if it's an "animal". */ + if(self->modeldata.weapon_properties.weapon_state & WEAPON_STATE_ANIMAL) + { + self->direction = other->direction; + self->position.x = other->position.x; + self->position.z = other->position.z; + } + + if(!(other->nextanim & DELAY_FLAG_INFINITE)) + { + other->nextanim = animation_timestamp_add_bounded( + _time, + delay_multiply_bounded( + global_config.game_speed, + UINT64_C(999999) + ) + ); + } + + other->nextthink = _time + global_config.game_speed * 999999; + ent_set_anim(self, ANI_GET, 0); + pickup = 1; + } + // projectiles + else if(self->weapent == NULL && isSubtypeProjectile(other) && validanim(self, ANI_GET)) + { + self->takeaction = common_get; + dropweapon(self, 0); + self->weapent = other; + set_getting(self); + self->velocity.x = self->velocity.z = 0; //stop moving + if(!(other->nextanim & DELAY_FLAG_INFINITE)) { + other->nextanim = animation_timestamp_add_bounded( + _time, + delay_multiply_bounded( + global_config.game_speed, + UINT64_C(999999) + ) + ); + } + + + other->nextthink = _time + global_config.game_speed * 999999; + ent_set_anim(self, ANI_GET, 0); + pickup = 1; + } + // other items + else if(! isSubtypeWeapon(other) && ! isSubtypeProjectile(other) ) + { + if(validanim(self, ANI_GET) && !isSubtypeTouch(other)) + { + self->takeaction = common_get; + set_getting(self); + self->velocity.x = self->velocity.z = 0; //stop moving + ent_set_anim(self, ANI_GET, 0); + } + if(other->energy_state.health_current) + { + self->energy_state.health_current += other->energy_state.health_current; + if(self->energy_state.health_current > self->modeldata.health) + { + self->energy_state.health_current = self->modeldata.health; + } + other->energy_state.health_current = 0; + //if(global_sample_list.get >= 0) sound_play_sample(global_sample_list.get, 0, savedata.effectvol,savedata.effectvol, 100); + } + // else if, TODO: other effects + // kill that item + other->takeaction = suicide; + other->nextthink = _time + global_config.game_speed * 3; + pickup = 1; + } + // hide it + if(pickup) + { + do_item_script(self, other); + + other->position.z = ITEM_HIDE_POSITION_Z; + } +} + +// for old bikers +int biker_move() +{ + + if((self->direction == DIRECTION_RIGHT) ? (self->position.x > advancex + (videomodes.hRes + 200)) : (self->position.x < advancex - 200)) + { + self->direction = !self->direction; + self->attack_id_outgoing = 0; + self->position.z = (float)(PLAYER_MIN_Z + randf((float)(PLAYER_MAX_Z - PLAYER_MIN_Z))); + + if(global_sample_list.bike >= 0) + { + sound_play_sample(global_sample_list.bike, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(self->modeldata.speed.x) + { + self->velocity.x = (self->direction == DIRECTION_RIGHT) ? (self->modeldata.speed.x) : (-self->modeldata.speed.x); + } + else + { + self->velocity.x = (self->direction == DIRECTION_RIGHT) ? ((float)1.7 + randf((float)0.6)) : (-((float)1.7 + randf((float)0.6))); + } + } + + return 1; +} + +// for common arrow types +int arrow_move(entity* acting_entity) +{ + float dx; + float dz; + float maxspeed; + entity *target = NULL; + + // new subtype chase + if(acting_entity->modeldata.subtype == SUBTYPE_CHASE || acting_entity->modeldata.aimove & AIMOVE1_CHASE) + { + target = homing_find_target(acting_entity); + + if(target) + { + if(!(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_FLIP)) + { + acting_entity->direction = (target->position.x > acting_entity->position.x); + } + // start chasing the target + dx = diff(acting_entity->position.x, target->position.x); + dz = diff(acting_entity->position.z, target->position.z); + maxspeed = acting_entity->modeldata.speed.x * 1.5; + + if(!dz && !dx) + { + acting_entity->velocity.x = acting_entity->velocity.z = 0; + } + else + { + acting_entity->velocity.x = maxspeed * dx / (dx + dz); + acting_entity->velocity.z = maxspeed * dz / (dx + dz); + } + if(acting_entity->direction == DIRECTION_LEFT) + { + acting_entity->velocity.x = -acting_entity->velocity.x; + } + if(acting_entity->position.z > target->position.z) + { + acting_entity->velocity.z = -acting_entity->velocity.z; + } + } + else + { + if(!acting_entity->velocity.x && !acting_entity->velocity.z) + { + if(acting_entity->direction == DIRECTION_LEFT) + { + acting_entity->velocity.x = -acting_entity->modeldata.speed.x; + } + else if(acting_entity->direction == DIRECTION_RIGHT) + { + acting_entity->velocity.x = acting_entity->modeldata.speed.x; + } + } + } + + if(!(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE)) + { + if(target && acting_entity->position.z > target->position.z && validanim(acting_entity, ANI_UP)) + { + common_up_anim(acting_entity); //ent_set_anim(self, ANI_UP, 0); + } + else if(target && target->position.z > acting_entity->position.z && validanim(acting_entity, ANI_DOWN)) + { + common_down_anim(acting_entity); //ent_set_anim(self, ANI_DOWN, 0); + } + else if(validanim(acting_entity, ANI_WALK)) + { + common_walk_anim(acting_entity); //ent_set_anim(self, ANI_WALK, 0); + } + else + { + if(validanim(acting_entity, ANI_IDLE)) ent_set_anim(acting_entity, ANI_IDLE, 0); + } + } + } + else + { + /* + * Apply speed to velocity. If spawned by legacy + * functions, only apply X axis for backward + * compatability. + */ + + if(acting_entity->direction == DIRECTION_LEFT) + { + acting_entity->velocity.x = -acting_entity->modeldata.speed.x; + } + else if(acting_entity->direction == DIRECTION_RIGHT) + { + acting_entity->velocity.x = acting_entity->modeldata.speed.x; + } + + + if (!(acting_entity->projectile_prime & PROJECTILE_PRIME_INITIALIZE_LEGACY_PROJECTILE_FUNCTION)) + { + acting_entity->velocity.y = acting_entity->modeldata.speed.y; + acting_entity->velocity.z = acting_entity->modeldata.speed.z; + } + } + + if(level) + { + // Bounce off walls or platforms. + projectile_wall_deflect(acting_entity); + + if (acting_entity->modeldata.move_config_flags & MOVE_CONFIG_PROJECTILE_BASE_DIE) + { + if (acting_entity->landed_on_platform || acting_entity->position.y <= acting_entity->base) + { + acting_entity->takeaction = common_fall; + acting_entity->attacking = ATTACKING_NONE; + acting_entity->energy_state.health_current = 0; + acting_entity->projectile = BLAST_NONE; + acting_entity->damage_on_landing.attack_force = 0; + acting_entity->damage_on_landing.attack_type = ATK_NONE; + + /* Use default attack values. */ + s_attack attack = emptyattack; + attack.attack_drop = 10000; + set_fall(acting_entity, acting_entity, &attack, 0); + } + } + } + + if(acting_entity->projectile_prime & PROJECTILE_PRIME_LAUNCH_STATIONARY)// PROJECTILE_PRIME_BASE_FLOOR) + { + acting_entity->autokill |= AUTOKILL_ANIMATION_COMPLETE; + } + + return 1; +} + +/* +* Caskey, Damon V. +* 2022-06-28 +* +* Explode (play attack animation and stop) if detonate +* flag is set and entity meets conditions. +* +* Return 0 if conditions fail. Return 1 if conditions +* pass or detonation in progress. +*/ +int bomb_try_detonate(entity* acting_entity) +{ + //printf("\n %s:", "bomb_try_detonate"); + + /* + * If not already set to detonate, check if + * we are preared for detonation and in air. + */ + + //printf("\n\t %s: %d", "acting_entity->toexplode", acting_entity->toexplode); + + if (!(acting_entity->toexplode & (EXPLODE_DETONATE_HIT | EXPLODE_DETONATE_DAMAGED))) + { + if (!(acting_entity->toexplode & (EXPLODE_PREPARE_TOUCH | EXPLODE_PREPARE_GROUND))) + { + return 0; + } + + //printf("\n\t %s: %d", "inair(acting_entity)", inair(acting_entity)); + + /* + * - Touches a wall. + * - Touches a platform. + * - Touches base 0 and isn't in a hole. + */ + + //printf("\n\t %s: %d", "check_block_wall(acting_entity)", check_block_wall(acting_entity)); + + if (check_block_wall(acting_entity) == WALL_INDEX_NONE && + !check_block_obstacle(acting_entity) + && inair(acting_entity)) + { + return 0; + } + } + + //printf("\n\t %s: %p", "acting_entity->takeaction", acting_entity->takeaction); + //printf("\n\t %s: %p", "bomb_explode", bomb_explode); + //printf("\n\t %s: %f, %f, %f, %f", "Position (x,y,z,b):", acting_entity->position.x, acting_entity->position.y, acting_entity->position.z, acting_entity->base); + + /* Already detonated? */ + if (acting_entity->takeaction == bomb_explode) + { + return 1; + } + + /* + * Set explode action. Entity stays on screen + * until explode animation finishes, then kills + * itself. + */ + acting_entity->takeaction = bomb_explode; + + /* + * Stop movement. + */ + if (!checkhole(acting_entity->position.x, acting_entity->position.z)) + { + acting_entity->base = acting_entity->position.y; + acting_entity->velocity.y = 0; + acting_entity->velocity.x = 0; + acting_entity->velocity.z = 0; + } + + /* + * Play die sound if we have it. This can act as + * the explosion sound. + */ + if (acting_entity->modeldata.diesound >= 0) + { + sound_play_sample(acting_entity->modeldata.diesound, 0, savedata.effectvol, savedata.effectvol, 100); + } + + /* + * If we hit or got hit, then play ATTACK2. + * If we landed first, play ATTACK1. + */ + if (acting_entity->toexplode & (EXPLODE_DETONATE_HIT | EXPLODE_DETONATE_DAMAGED)) + { + /* + * Play explode animation if we have it. + * + * If we do not have explode animation and + * the explode was triggered by hitting, then + * let's behave like a typical projectile and + * check the remove flag. + */ + + if (validanim(acting_entity, ANI_ATTACK2)) + { + ent_set_anim(acting_entity, ANI_ATTACK2, 0); + //acting_entity->animation->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + } + else if(acting_entity->modeldata.remove_config & REMOVE_CONFIG_HIT && acting_entity->toexplode & EXPLODE_DETONATE_HIT) + { + kill_entity(acting_entity, KILL_ENTITY_TRIGGER_BOMB_EXPLODE_ANIMATION_UNAVAILABLE); + } + } + else if (validanim(acting_entity, ANI_ATTACK1)) + { + ent_set_anim(acting_entity, ANI_ATTACK1, 0); + //acting_entity->animation->move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + } + + return 1; +} + +/* +* Caskey, Damon V. +* 2019-12-22 +* +* Original author unknown. Refactored to stop using global self, +* and fix bomb falling after detonation. +*/ +int bomb_move(entity* acting_entity) +{ + /* + * If in air, and prepared to explode (meaning will detonate on contact), + * but NOT yet set to detonate, then we move using velocity (presumably + * we've been tossed and so any Z and Y momentum is already handled). + * + * EXPLODE_DETONATE_HIT status is applied by do_attack() if we touch + * ground or hit another entity. + * + * EXPLODE_DETONATE_DAMAGE set when hit by another entity attack. + * + * In either case case, we "explode" by playing an appropriate animation. + */ + + /* + * Bounce off walls or platforms if there + * is a fall animation. + */ + + if (projectile_wall_deflect(acting_entity)) + { + return 1; + } + + /* + * Check detonation conditions and + * apply accordingly. + */ + + if (bomb_try_detonate(acting_entity)) + { + return 1; + } + + if (acting_entity->direction == DIRECTION_LEFT) + { + acting_entity->velocity.x = -acting_entity->modeldata.speed.x; + } + else if (acting_entity->direction == DIRECTION_RIGHT) + { + acting_entity->velocity.x = acting_entity->modeldata.speed.x; + } + + return 1; +} + +/* +* Caskey, Damon V. +* 2018-04-07 +* +* Find out if there is a wall blocking target entity, and +* if so return its array key. Returns WALL_INDEX_NONE if +* no blocking wall found. +*/ +int check_block_wall(entity *entity) +{ + //printf("\n\n check_block_wall(%p)", entity); + //printf("\n entity->modeldata.move_config_flags: %d", entity->modeldata.move_config_flags); + + int wall = WALL_INDEX_NONE; + + /* Target entity affected by walls? */ + if(entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_WALL) + { + //printf("\n\t Has constraint."); + + /* Get wall number at our Xand Z axis(if any). */ + wall = checkwall_index(entity->position.x, entity->position.z); + + //printf("\n\t wall: %d", wall); + + /* Did we find a wall? */ + if (wall >= 0) + { + /* + * Compare wall height to our current + * Y axis position. If the wall is + * higher, then it's blocking our way. + * We can return the wall number. + */ + + if(entity->position.y < level->walls[wall].height) + { + return wall; + } + } + } + + /* + * Got this far? Then there's no wall blocking our way. + */ + return WALL_INDEX_NONE; +} + +// Caskey, Damon V. +// 2018-04-07 +// +// Return obstacle entity that is blocking target +// entity (if any). Returns NULL if not blocking +// obstacle found. +entity *check_block_obstacle(entity *ent) +{ + entity *obstacle = NULL; + int height; + + // Target entity affected by obstacles? + if(ent->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM) + { + // Get the height. if entity does not have an + // animation height defined, then use its + // the entity height instead. + if(ent->animation->size.y) + { + height = ent->animation->size.y; + } + else + { + height = ent->modeldata.size.y; + } + + // Add Y position to get the exact Y axis + // height of the entity's top edge. + height += ent->position.y; + + // Find obstacle at entitiy's position (if any). + obstacle = check_platform_between(ent->position.x, ent->position.z, ent->position.y, height, ent); + } + + return obstacle; +} + +/* +* Caskey, Damon V +* 2018-04-06 +* +* Ricochet a projectile off of walls and platforms. +* Returns 1 on successful ricochet. 0 otherwise. +*/ +int projectile_wall_deflect(entity *acting_entity) +{ + const int RICHOCHET_FALL_FORCE = 10000; + const float RICHOCHET_VELOCITY_X_FACTOR = 0.25; // This value is multiplied by current velocity to get an X velocity value to bounce off wall.. + const float RICHOCHET_VELOCITY_Y = 2.5; // Base Y velocity applied when projectile bounces off wall. + const int RICHOCHET_VELOCITY_Y_RAND = 1; // Random seed for Y variance added to base Y velocity when bouncing off wall. + + float richochet_velocity_x; + s_attack attack = emptyattack; + + //printf("\n\n projectile_wall_deflect(%p)", acting_entity); + //printf("\n\t model(%s)", acting_entity->model->name); + //printf("\n\t acting_entity->drop: ", acting_entity->drop); + + if(validanim(acting_entity, ANI_FALL) && acting_entity->modeldata.move_config_flags & MOVE_CONFIG_PROJECTILE_WALL_BOUNCE) + { + //printf("\n\t Has Fall"); + //printf("\n\t position: %f, %f, %f", acting_entity->position.x, acting_entity->position.y, acting_entity->position.z); + //printf("\n\t velocity: %f, %f, %f", acting_entity->velocity.x, acting_entity->velocity.y, acting_entity->velocity.z); + + int blocking_wall; + entity *blocking_obstacle = NULL; + + /* + * Blocked by wall or obstacle? Note these + * functions return false if the entity + * is not subject to wall/obstacle. + */ + + blocking_wall = check_block_wall(acting_entity); + blocking_obstacle = check_block_obstacle(acting_entity); + + //printf("\n\t wall(%d), obstacle(%p)", blocking_wall, blocking_obstacle); + + if(blocking_wall >= 0 || blocking_obstacle) + { + //printf("\n\t Is blocked."); + + /* + * Use the projectile's speed and our factor to see + * how hard it will bounce off wall. + */ + richochet_velocity_x = -acting_entity->velocity.x * RICHOCHET_VELOCITY_X_FACTOR; + + //printf("\n\t richochet_velocity_x: %f", richochet_velocity_x); + + acting_entity->takeaction = common_fall; + acting_entity->attacking = ATTACKING_NONE; + acting_entity->energy_state.health_current = 0; + acting_entity->projectile = BLAST_NONE; + + acting_entity->velocity.x = richochet_velocity_x; + + acting_entity->velocity.z = 0.0; + acting_entity->damage_on_landing.attack_force = 0; + acting_entity->damage_on_landing.attack_type = ATK_NONE; + toss(acting_entity, RICHOCHET_VELOCITY_Y + randf(RICHOCHET_VELOCITY_Y_RAND)); + + /* Reset base detection */ + acting_entity->modeldata.move_config_flags |= (MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL); + acting_entity->modeldata.move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + + acting_entity->base = 0; + + /* Use default attack values. */ + attack.attack_drop = RICHOCHET_FALL_FORCE; + set_fall(acting_entity, acting_entity, &attack, 0); + + //printf("\n\t velocity: %f, %f, %f", acting_entity->velocity.x, acting_entity->velocity.y, acting_entity->velocity.z); + + return 1; + } + + //printf("\n\t Not blocked."); + } + + /* Did not ricochet, so return false. */ + return 0; +} + +// Caskey, Damon V. +// 2018-04-06 +// +// Invert current sorting position vs. parent. +void sort_invert_by_parent(entity *ent, entity *parent) +{ + if(ent->sortid <= parent->sortid) + { + ent->sortid = parent->sortid + 1; + } + else + { + ent->sortid = parent->sortid - 1; + } +} + +int star_move() +{ + if(self->position.x < advancex - 80 || self->position.x > advancex + (videomodes.hRes + 80) || (self->position.y <= self->base && (self->modeldata.death_config_flags & DEATH_CONFIG_MACRO_DEATH))) + { + kill_entity(self, KILL_ENTITY_TRIGGER_STAR_OUT_OF_BOUNDS); + return 0; + } + + //self->base -= 4; + //self->position.y = self->base; + + // Bounce off walls or platforms. + projectile_wall_deflect(self); + + if(self->landed_on_platform || self->position.y <= self->base) + { + self->takeaction = common_lie; + self->death_state |= DEATH_STATE_DEAD; + self->energy_state.health_current = 0; + if((self->modeldata.death_config_flags & (DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) == (DEATH_CONFIG_FALL_LAND_AIR | DEATH_CONFIG_FALL_LAND_GROUND | DEATH_CONFIG_REMOVE_VANISH_AIR | DEATH_CONFIG_REMOVE_VANISH_GROUND)) + { + self->animating = ANIMATING_NONE; + } + } + + return 1; +} + + +//dispatch move patterns +//root function for aimove +int common_move() +{ + entity* acting_entity = self; + e_aimove aimove; + int makestop = 0; + int reachx; + int reachz; + int air = inair(acting_entity); + entity *other = NULL; //item + entity *target = NULL;//hostile target + entity *owner = NULL; + entity *ent = NULL; + e_direction predir; + long stall; + int patx[5]; + int pxc; + int px; + int patz[5]; + int pzc; + int pz; + int fz; + + if(acting_entity->modeldata.aimove == -1) + { + return 0; // invalid value + } + + // get move pattern + aimove = acting_entity->modeldata.aimove & MASK_AIMOVE1; + +//if(stricmp(acting_entity->name, "os")==0) printf("%d\n", aimove); + // old and outdated patterns, but MUST be kept anyway + if(aimove & AIMOVE1_BIKER) + { + // for biker subtype + return biker_move(); + } + else if(aimove & AIMOVE1_ARROW) + { + // for common straight-flying arrow + return arrow_move(acting_entity); + } + else if(aimove & AIMOVE1_STAR) + { + // for a star, disappear when hit ground + return star_move(); + } + else if(aimove & AIMOVE1_BOMB) + { + // for a bomb, travel in a arc + return bomb_move(acting_entity); + } + else if(aimove & AIMOVE1_NOMOVE) + { + // no move, just return + return 0; + } + else + { + // all above are special move patterns, real AI goes here: + + // skip if the entity is in air, + // removing this and entity might be spawned walking in air + if (air) + { + return 0; + } + + // store this for turning checking + predir = acting_entity->direction; + + // find all possible entities for target + // bad for optimization, but makes better sense + if (acting_entity->custom_target == NULL || !acting_entity->custom_target->exists) target = normal_find_target(-1, 0); // confirm the target again + else target = acting_entity->custom_target; + + other = ((_time / global_config.game_speed + acting_entity->energy_state.health_current / 3 + 1000) % 15 < 10) ? normal_find_item() : NULL; // find an item + owner = acting_entity->parent; + + // temporary solution to turn off running if xdir is not set + // unless one day vertical running logic is written + if (!acting_entity->velocity.x) + { + acting_entity->running = RUN_STATE_NONE; + } + + // change direction unless the ai pattern ignores target or model has noflip + if (!(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_FLIP) && !acting_entity->running && aimove != AIMOVE1_WANDER) + { + if (other) //try to pick up an item, if possible + { + acting_entity->direction = (acting_entity->position.x < other->position.x) ? DIRECTION_RIGHT : DIRECTION_LEFT; + } + else if (target) + { + acting_entity->direction = (acting_entity->position.x < target->position.x) ? DIRECTION_RIGHT : DIRECTION_LEFT;; + } + else if (owner) + { + /* + * If we're following a parent, then check to see + * if we are in direction adjust range and if so + * we'll apply the direction adjustment. Otherwise + * we just face parent. + * + * Any range with min > max is true. + */ + + const s_child_follow* const child_follow = acting_entity->modeldata.child_follow; + + if (child_follow + && (child_follow->direction_adjust_range.x.min <= child_follow->direction_adjust_range.x.max && check_range_target_x(acting_entity, owner, NULL, child_follow->direction_adjust_range.x.min, child_follow->direction_adjust_range.x.max)) + && (child_follow->direction_adjust_range.z.min <= child_follow->direction_adjust_range.z.max && check_range_target_z(acting_entity, owner, NULL, child_follow->direction_adjust_range.z.min, child_follow->direction_adjust_range.z.max)) + && (child_follow->direction_adjust_range.y.min <= child_follow->direction_adjust_range.y.max && check_range_target_y(acting_entity, owner, NULL, child_follow->direction_adjust_range.y.min, child_follow->direction_adjust_range.y.max))) { + + acting_entity->direction = direction_get_adjustment_result(acting_entity, owner, child_follow->direction_adjust_config); + } + } + } + else if (aimove == AIMOVE1_WANDER) + { + if (acting_entity->velocity.x) + { + acting_entity->direction = (acting_entity->velocity.x > 0) ? DIRECTION_RIGHT : DIRECTION_LEFT; + } + } + + //turn back if we have a turn animation + // TODO, make a function for ai script + if (acting_entity->direction != predir && validanim(acting_entity, ANI_TURN) && acting_entity->ducking == DUCK_NONE) + { + acting_entity->takeaction = common_turn; + acting_entity->direction = (acting_entity->direction == DIRECTION_RIGHT) ? DIRECTION_LEFT : DIRECTION_RIGHT; + acting_entity->velocity.x = 0; + acting_entity->velocity.z = 0; + ent_set_anim(acting_entity, ANI_TURN, 0); + return 1; + } + + //pick up the item if possible + if (other && diff(other->position.x, acting_entity->position.x) < (acting_entity->modeldata.grabdistance * 0.83333) + && diff(other->position.z, acting_entity->position.z) < (acting_entity->modeldata.grabdistance / 3) && + other->animation->vulnerable[other->animpos])//won't pickup an item that is not previous one + { + if (diff(acting_entity->base, other->position.y) < 0.1) + { + common_pickupitem(other); + return 1; + } + } + + if (acting_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + acting_entity->idling = IDLING_PREPARED; + return 1; + } + + if (common_try_jump()) + { + acting_entity->numwaypoints = 0; + return 1; //need to jump? so quit + } + + if (checkpathblocked()) + { + return 1; // handle path blocked logic + } + + // judge next move if stalltime is expired + // skip if waypoints presents (passive move) + if (acting_entity->stalltime < _time && !acting_entity->waypoints) + { + if (other) + { + // try walking to the item + common_try_pick(other); + ent = other; + } + else + { + if (target && (acting_entity->modeldata.subtype == SUBTYPE_CHASE || + ((acting_entity->modeldata.type & TYPE_NPC) && acting_entity->parent))) + // try chase a target + { + aimove |= AIMOVE1_CHASE; + } + + if (aimove & AIMOVE1_CHASE) + { + aimove |= AIMOVE1_CHASEX | AIMOVE1_CHASEZ; + } + if (aimove & AIMOVE1_AVOID) + { + aimove |= AIMOVE1_AVOIDX | AIMOVE1_AVOIDZ; + } + + if (other != ent) + { + acting_entity->velocity.x = acting_entity->velocity.z = 0; + } + + if (!aimove && target) + { + common_try_wander(target, 1, 1); + ent = target; + } + else if (target && (!(acting_entity->modeldata.aimove & AIMOVE2_NOTARGETIDLE) || ((acting_entity->modeldata.aimove & AIMOVE2_NOTARGETIDLE) && target->animnum != ANI_IDLE))) + { + ent = target; + pxc = pzc = 0; + + if (aimove & AIMOVE1_WANDER) + { + patx[pxc++] = AIMOVE1_WANDER; + patx[pxc++] = AIMOVE1_WANDER; + patz[pzc++] = AIMOVE1_WANDER; + patz[pzc++] = AIMOVE1_WANDER; + } + if (aimove & AIMOVE1_CHASEX) + { + patx[pxc++] = AIMOVE1_CHASEX; + } + if (aimove & AIMOVE1_AVOIDX) + { + patx[pxc++] = AIMOVE1_AVOIDX; + } + if (aimove & AIMOVE1_CHASEZ) + { + patz[pzc++] = AIMOVE1_CHASEZ; + } + if (aimove & AIMOVE1_AVOIDZ) + { + patz[pzc++] = AIMOVE1_AVOIDZ; + } + if (!pxc) + { + patx[pxc++] = AIMOVE1_WANDER; + } + if (!pzc) + { + patz[pzc++] = AIMOVE1_WANDER; + } + px = patx[(rand32() & 0xff) % pxc]; + pz = patz[(rand32() & 0xff) % pzc]; + + fz = 0; + + aimove = (acting_entity->modeldata.aimove & MASK_AIMOVE1); + + //valid types: avoidx, aviodz, chasex, chasez, wander + if (px == AIMOVE1_WANDER) + { + if (pz == AIMOVE1_WANDER && aimove == AIMOVE1_WANDER) + { + common_try_wandercompletely(1, 1); + fz = 1; + } + else + { + common_try_wander(target, 1, 0); + } + + } + else if (px == AIMOVE1_CHASEX) + { + common_try_chase(acting_entity, target, 1, (pz == AIMOVE1_CHASEZ)); + fz = (pz == AIMOVE1_CHASEZ); + } + else if (px == AIMOVE1_AVOIDX) + { + common_try_avoid(target, 1, (pz == AIMOVE1_AVOIDZ)); + fz = (pz == AIMOVE1_AVOIDZ); + } + if (!fz) + { + if (pz == AIMOVE1_WANDER) + { + common_try_wander(target, 0, 1); + } + else if (pz == AIMOVE1_CHASEZ) + { + common_try_chase(acting_entity, target, 0, 1); + } + else if (pz == AIMOVE1_AVOIDZ) + { + common_try_avoid(target, 0, 1); + } + } + + } + else if (!common_try_follow(acting_entity, owner, 1, 1) && !(acting_entity->modeldata.aimove & AIMOVE2_NOTARGETIDLE)) + { + common_try_wandercompletely(1, 1); + ent = NULL; + } + else + { + ent = owner; + } + } + //end of if + + }//if(acting_entity->stalltime < _time ) + else + { + ent = other; + if (!ent) + { + ent = target; + } + if (!ent) + { + ent = owner; + } + } + if (acting_entity->numwaypoints == 0 && acting_entity->waypoints) + { + free(acting_entity->waypoints); + acting_entity->waypoints = NULL; + } + + //fix 2d level panic, or should this be moved to the very beginning? + if (acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MIN_Z && acting_entity->destz < PLAYER_MIN_Z) + { + acting_entity->destz = PLAYER_MIN_Z; + } + if (acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_MAX_Z && acting_entity->destz > PLAYER_MAX_Z) + { + acting_entity->destz = PLAYER_MAX_Z; + } + + // don't run in passive move mode. The path could be complex and running may look bad. + if (acting_entity->waypoints) + { + acting_entity->running = RUN_STATE_NONE; + } + + if (acting_entity->direction == (acting_entity->destx < acting_entity->position.x)) + { + acting_entity->running = RUN_STATE_NONE; + } + + // make the entity walks in a straight path instead of flickering here and there + // acceleration can be added easily based on this logic, if necessary + adjustspeed(acting_entity->running ? acting_entity->modeldata.runspeed : acting_entity->modeldata.speed.x, + acting_entity->position.x, acting_entity->position.z, + acting_entity->destx, acting_entity->destz, + &acting_entity->velocity.x, + &acting_entity->velocity.z); + + /* + * If we can't run on a different axis + * then stay on the rails. + */ + + if (acting_entity->running & RUN_STATE_START_X) { + if ((acting_entity->velocity.z < 0 && !(acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_UP_ENABLED)) + || (acting_entity->velocity.z > 0 && !(acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_DOWN_ENABLED)) + || (acting_entity->velocity.x < 0 && acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_LEFT_DASH_FIXED) + || (acting_entity->velocity.x > 0 && acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_RIGHT_DASH_FIXED)) { + acting_entity->velocity.z = 0; + acting_entity->destz = acting_entity->position.z; + } + } + else if (acting_entity->running & RUN_STATE_START_Z) { + if ((acting_entity->velocity.x < 0 && !(acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_LEFT_ENABLED)) + || (acting_entity->velocity.x > 0 && !(acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_RIGHT_ENABLED)) + || (acting_entity->velocity.z < 0 && acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_UP_DASH_FIXED) + || (acting_entity->velocity.z > 0 && acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_DOWN_DASH_FIXED)) { + acting_entity->velocity.x = 0; + acting_entity->destz = acting_entity->position.x; + } + } + + // check destination point to make a stop or pop a waypoint from the stack + reachx = (diff(acting_entity->position.x, acting_entity->destx) < MAX(1, ABS(acting_entity->velocity.x))); + reachz = (diff(acting_entity->position.z, acting_entity->destz) < MAX(1, ABS(acting_entity->velocity.z))); + + // check destination point to make a stop or pop a waypoint from the stack + if(reachx && reachz) + { + if(acting_entity->waypoints && acting_entity->numwaypoints) + { + acting_entity->destx = acting_entity->waypoints[acting_entity->numwaypoints - 1].x; + acting_entity->destz = acting_entity->waypoints[acting_entity->numwaypoints - 1].z; + acting_entity->numwaypoints--; + } + else if(acting_entity->velocity.x || acting_entity->velocity.z) + { + makestop = 1; + } + } + + if(!acting_entity->waypoints || !acting_entity->numwaypoints) + { + if(reachx) + { + acting_entity->velocity.x = 0; + acting_entity->destx = acting_entity->position.x; + } + if(reachz) + { + acting_entity->velocity.z = 0; + acting_entity->destz = acting_entity->position.z; + } + } + + // IMPORTANT: stoped so play idle, preventinng funny stepping bug, but may cause flickering + if(!acting_entity->velocity.x && !acting_entity->velocity.z && !acting_entity->waypoints) + { + set_idle(acting_entity); + if(makestop) + { + stall = (global_config.game_speed - acting_entity->modeldata.aggression) / 2; + if(stall < global_config.game_speed / 5) + { + stall = global_config.game_speed / 5; + } + acting_entity->stalltime = _time + MAX(0, stall); + } + } + else + { + // readjust walk animation + adjust_walk_animation(ent); + // give proper stalltime if destination point is not reached + // if the destination point is not reachable, + // it should be already handled in checkpathblocked + if(_time > acting_entity->stalltime) + { + if(ABS(acting_entity->velocity.x) > ABS(acting_entity->velocity.z)) + { + stall = diff(acting_entity->destx, acting_entity->position.x) / ABS(acting_entity->velocity.x) * 2; + } + else if(acting_entity->velocity.z) + { + stall = diff(acting_entity->destz, acting_entity->position.z) / ABS(acting_entity->velocity.z) * 2; + } + else + { + stall = global_config.game_speed / 2; + } + acting_entity->stalltime = _time + MAX(0, stall); + } + } + + //target is moving? readjust destination sooner + if(aimove != AIMOVE1_WANDER && !acting_entity->waypoints && ent && (acting_entity->velocity.x || acting_entity->velocity.z) && (ent->velocity.x || ent->velocity.z)) + { + if(acting_entity->running && acting_entity->stalltime > _time + global_config.game_speed / 2) + { + acting_entity->stalltime = _time + global_config.game_speed / 2; + } + else if(!acting_entity->running && acting_entity->stalltime > _time + global_config.game_speed / 5) + { + acting_entity->stalltime = _time + global_config.game_speed / 5; + } + } + + return 1; + + } + + return 1; +} + + +void decide_stalker() +{ + entity *ent, *furthest = NULL; + int i; + int l = 0, r = 0; + float maxz = 0.0f, z; + + if(stalker && stalking) + { + return; + } + + firstplayer = NULL; + + for(i = 0; i < MAX_PLAYERS; i++) + { + if(player[i].ent) + { + firstplayer = player[i].ent; + break; + } + } + + if(!firstplayer) + { + return; + } + + for(i = 0; i < ent_max; i++) + { + ent = ent_list[i]; + + if(ent->exists && !(ent->death_state & DEATH_STATE_DEAD) && (ent->modeldata.type & TYPE_ENEMY)) + { + if(ent->position.x > firstplayer->position.x) + { + r++; + } + else + { + l++; + } + + if((z = diff(ent->position.z, firstplayer->position.z)) >= maxz && + (ent->modeldata.aimove == 0 || (ent->modeldata.aimove & AIMOVE1_CHASE))) // 2 mostly used type + { + maxz = z; + furthest = ent; + } + } + } + + if((l > 1 && !r) || (r > 1 && !l)) + { + stalker = furthest; + //printf("** stalker decided: %s @ _time %d\n", stalker->name, _time); + } +} + + +void plan() +{ + decide_stalker(); +} + +void checkstalker() +{ + float maxspeed; + e_run_state running = RUN_STATE_NONE; + + if(self != stalker) + { + return; + } + + if(!firstplayer) + { + stalker = NULL; + return; + } + + if(stalking) + { + if(self->stalltime <= _time) + { + //printf("** stalk _time expired: %s @ _time %d\n", stalker->name, _time); + stalker = NULL; + } + return; + } + + if (validanim(self, ANI_RUN)) + { + running |= RUN_STATE_START_X; + } + + maxspeed = (running & RUN_STATE_START_X) ? self->modeldata.runspeed : self->modeldata.speed.x; + + self->velocity.x = maxspeed; + self->velocity.z = 0; + + if(self->position.x > firstplayer->position.x) + { + self->velocity.x = -self->velocity.x; + } + + self->running = running; + + + self->stalltime = _time + (diff(self->position.x, firstplayer->position.x) + 150) / maxspeed * THINK_SPEED; + + adjust_walk_animation(firstplayer); + + stalking = 1; + //printf("**start stalking: %s @ _time %d till @%d\n", stalker->name, time, self->stalltime); +} + +int checkplanned() +{ + return 0; +} + +/* +* Caskey, Damon V. +* 2023-05-24 (rewrite of orginal function by Utunnels, unknown date) +* +* Check if entity is outside of recall +* location, and if so, trigger the +* recall function. +*/ +int ai_check_recall() +{ + entity* const acting_entity = self; + const s_child_follow* const child_follow = acting_entity->modeldata.child_follow; + + if(!child_follow || acting_entity->link) + { + return 0; + } + + /* + * Set up recall range. X and Z using the + * idle range x max when supplied values + * are MIN/MAX is for legacy compatability. + */ + + const int valid_idle = validanim(acting_entity, ANI_IDLE); + const int default_range = (valid_idle) ? acting_entity->modeldata.animation[ANI_IDLE]->range.x.max : MAX_INT; + + const s_range recall_range = { + .x = { + .max = (child_follow->recall_range.x.max == MAX_INT && valid_idle) ? default_range : child_follow->recall_range.x.max, + .min = (child_follow->recall_range.x.min == MIN_INT && valid_idle) ? -default_range : child_follow->recall_range.x.min + }, + + .y = { + .max = child_follow->recall_range.y.max, + .min = child_follow->recall_range.y.min + }, + + .z = { + .max = (child_follow->recall_range.z.max == MAX_INT && valid_idle) ? default_range : child_follow->recall_range.z.max, + .min = (child_follow->recall_range.z.min == MIN_INT && valid_idle) ? -default_range : child_follow->recall_range.z.min + }, + + .base = { + .max = child_follow->recall_range.base.max, + .min = child_follow->recall_range.base.min + } + }; + + if(acting_entity->modeldata.subtype == SUBTYPE_FOLLOW && acting_entity->parent && + (!check_range_target_x(acting_entity, acting_entity->parent, NULL, recall_range.x.min, recall_range.x.max) || + !check_range_target_z(acting_entity, acting_entity->parent, NULL, recall_range.z.min, recall_range.z.max) || + !check_range_target_y(acting_entity, acting_entity->parent, NULL, recall_range.y.min, recall_range.y.max) || + !check_range_target_base(acting_entity, acting_entity->parent, NULL, recall_range.base.min, recall_range.base.max))) + { + acting_entity->takeaction = npc_recall; + return 1; + } + return 0; +} + +int ai_check_lie() +{ + if(self->drop + && self->position.y == self->base + && !self->velocity.y + && validanim(self, ANI_RISEATTACK) + && ((rand32() % (self->stalltime - _time + 1)) < 3) + && (self->energy_state.health_current > 0 + && _time > self->staydown.riseattack_stall)) + { + common_try_riseattack(); + return 1; + } + return 0; +} + +int ai_check_grabbed() +{ + if (!self->link) + { + return 0; + } + + if (self->grabbing) + { + return 0; + } + + if (self->inpain & ~IN_PAIN_NONE) + { + return 0; + } + + if (self->takeaction == common_prethrow) + { + return 0; + } + + if (inair(self)) + { + return 0; + } + + if (_time < self->stalltime) + { + return 0; + } + + if (!validanim(self, ANI_SPECIAL)) + { + return 0; + } + + check_special(); + + return 1; +} + +int ai_check_grab() +{ + if(self->grabbing && self->attacking == ATTACKING_NONE) + { + common_grab_check(); + return 1; + } + return 0; +} + +int ai_check_escape() +{ + if((self->escapecount > self->modeldata.escapehits) && !inair(self) && validanim(self, ANI_SPECIAL2)) + { + // Counter the player! + check_costmove(ANI_SPECIAL2, 0, 0); + return 1; + } + return 0; +} + +int ai_check_busy() +{ + return self->link || !self->idling; +} + +int ai_check_ducking() +{ + int indirect; + entity *target = NULL; + float t_rangex = 60.0f; + float t_rangez = 30.0f; + + if ((self->ducking & DUCK_PREPARED) || (self->ducking & DUCK_RISE)) + { + return 1; + } + + if(self->link || inair(self)) + { + return 0; + } + + if( !validanim(self, ANI_DUCK) || !validanim(self, ANI_DUCKATTACK) ) + { + return 0; + } + + if(self->projectile & BLAST_ATTACK) + { + indirect = 1; + } + + if(self->custom_target == NULL || !self->custom_target->exists ) target = normal_find_target(-1, 0); + else target = self->custom_target; + + if(target && !(faction_check_can_damage(self, target, indirect))) + { + return 0; + } + + if ((self->ducking & DUCK_ACTIVE) && self->animnum == ANI_DUCK) + { + if ( !target || inair(target) || !(target->ducking & DUCK_ACTIVE) || + (!check_range_target_all(self,target,ANI_DUCK, 0, 0) && + diff(self->position.x, target->position.x) > t_rangex && diff(self->position.z, target->position.z) > t_rangez) ) + { + self->velocity.x = self->velocity.z = 0; + tryduckrise(self); + return 1; + } + } + + if(!target || !(target->ducking & DUCK_ACTIVE)) + { + return 0; + } + else + { + if (self->ducking & DUCK_ACTIVE) + { + return 1; + } + else + { + int range_flag = check_range_target_all(self,target,ANI_DUCK, 0, 0); + if (!range_flag) + { + if ( diff(self->position.x, target->position.x) <= t_rangex && + diff(self->position.z, target->position.z) <= t_rangez) range_flag = 1; + } + if (!range_flag) return 0; + + if(self->ducking == DUCK_NONE) + { + tryduck(self); + } + return 1; + } + } + + return 0; +} + + +// A.I root +void common_think() +{ + + if(self->death_state & DEATH_STATE_DEAD) + { + return; + } + + //if(checkplanned()) return; + + // too far away , do a warp + if(ai_check_recall()) + { + return; + } + + // rise? try rise attack + if(ai_check_lie()) + { + return; + } + + // Escape? + if(ai_check_grabbed()) + { + return; + } + + //grabbing something + if(ai_check_grab()) + { + return; + } + + // Enemies can now escape non-knockdown spammage (What a weird phrase)! + if(ai_check_escape()) + { + return; + } + + // busy right now? + if(ai_check_busy()) + { + return; + } + + // idle, so try to attack or judge next move + // dont move if fall into a hole or off a wall + if(common_attack()) + { + return; + } + + // target is ducking? try to ducking.. + if(ai_check_ducking()) + { + return; + } + + common_move(); +} + +////////////////////////////////////////////////////////////////////////// + +void suicide() +{ + + if(_time < self->stalltime) + { + return; + } + level_completed |= self->boss; + level_completed_defeating_boss |= self->boss; + + kill_entity(self, KILL_ENTITY_TRIGGER_SUICIDE); +} + + + +// Re-enter playfield +// Used by player_fall and player_takedamage +void player_die_entity(entity* acting_entity) +{ + int playerindex = acting_entity->playerindex; + int i = 0; + + if(!(global_config.cheats & CHEAT_OPTIONS_LIVES_ACTIVE)) + { + --player[playerindex].lives; + } + + if(firstplayer == acting_entity) + { + firstplayer = NULL; + } + + execute_pdie_script(playerindex); + + if(nomaxrushreset[4] >= 1) + { + nomaxrushreset[playerindex] = player[playerindex].ent->rush.max; + } + player[playerindex].ent = NULL; + player[playerindex].spawnhealth = acting_entity->modeldata.health; + player[playerindex].spawnmp = acting_entity->modeldata.mp; + + /* + * Handle the body. If any corpse flags + * are set, we leave entity on screen + * and make it inert. Otherwise we can + * just run kill function to remove. + * + * REMOVE_CORPSE_* flags refer to how + * the live entity is removed from the + * game while leaving a corpse behind. + */ + + static const e_death_config_flags leave_corpse = DEATH_CONFIG_REMOVE_CORPSE_AIR | DEATH_CONFIG_REMOVE_CORPSE_GROUND; + + if (acting_entity->modeldata.death_config_flags & leave_corpse) { + acting_entity->think = NULL; + acting_entity->takeaction = NULL; + acting_entity->death_state |= DEATH_STATE_CORPSE; + } else { + kill_entity(acting_entity, KILL_ENTITY_TRIGGER_PLAYER_DEATH); + } + + if(player[playerindex].lives <= 0) + { + int all_p_ko = 0; + + // Count number of KO'd (dead) players, by looping player + // indexes and incrementing when player does not have + // an entity. + for(i = 0; i < MAX_PLAYERS; i++) + { + if (!player[i].ent) + { + ++all_p_ko; + } + } + + // If all players are KO'd, then KO count = 1. + // Otherwise, set it to 0. + all_p_ko = (all_p_ko >= MAX_PLAYERS) ? 1 : 0; + + // All players KO'd? + if(all_p_ko) + { + int all_p_nojoin = 0; + int all_p_nocredits = 0; + + // All players NOT joining? + // Same logic as all player KO. + for(i = 0; i < MAX_PLAYERS; i++) + { + if (!player[i].joining) + { + ++all_p_nojoin; + } + } + + all_p_nojoin = (all_p_nojoin >= MAX_PLAYERS) ? 1 : 0; + + // All players out of credits? + // Same logic as all player KO. + for(i = 0; i < MAX_PLAYERS; i++) + { + if (player[i].credits < 1) + { + ++all_p_nocredits; + } + } + + all_p_nocredits = (all_p_nocredits >= MAX_PLAYERS) ? 1 : 0; + + // Set the timer to a 10 second count down. + timeleft = 10 * global_config.counter_speed; + + // No one joining in? + if(all_p_nojoin) + { + // If the player can't continue, let's set the time over + // to end almost instantly so they won't have to wait. + + // If noshare is enabled, credit shares are not allowed. Verify all + // player individual credit supplies are empty. Otherwise credit + // shares are allowed, so verify pool of credits is empty. + if (noshare) + { + if (all_p_nocredits) + { + timeleft = global_config.counter_speed / 2; + } + } + else + { + if (credits < 1) + { + timeleft = global_config.counter_speed / 2; + } + } + } + } + + if(acting_entity->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_STAGE) + { + player[playerindex].weapnum = level->setweap; + } + + if(nomaxrushreset[4] != 2) + { + nomaxrushreset[playerindex] = 0; + } + + return; + } + else + { + spawnplayer(playerindex); + execute_respawn_script(playerindex); + if(!nodropen) + { + if (savedata.joyrumble[playerindex]) control_rumble(playerindex, 1, 125); + drop_all_enemies(); + } + } + + if(!level->noreset) + { + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + } + +} + +void player_die(void) +{ + player_die_entity(self); +} + + + +int player_trymove(float xdir, float zdir) +{ + return common_trymove(xdir, zdir); +} + +int check_energy(e_cost_check which, int ani) +{ + int result = FALSE; + e_entity_type type; //Entity type. + s_energy_cost energy_cost; + + // Get animation's energy_cost data. + energy_cost.cost = self->modeldata.animation[ani]->energy_cost.cost; + energy_cost.disable = self->modeldata.animation[ani]->energy_cost.disable; + energy_cost.mponly = self->modeldata.animation[ani]->energy_cost.mponly; + + // Get entity type. + type = self->modeldata.type; + + // If we're bind and special is overridden, then + // return false. + if(type & (TYPE_ENEMY | TYPE_NPC)) + { + if(check_bind_override(self, BIND_CONFIG_OVERRIDE_SPECIAL_AI)) + { + return FALSE; + } + } + else if(type & TYPE_PLAYER) + { + if(check_bind_override(self, BIND_CONFIG_OVERRIDE_SPECIAL_PLAYER)) + { + return FALSE; + } + } + + if(validanim(self, ani)) + { + // Caskey, Damon V. + // 2010-05-08 + // + // It is now possible to individually disable specials. In + // many cases (weapons in particular) this can help cut down the need for + // superfluous models when differing abilities are desired for players, + // enemies, or npcs. + // Kratus (10-2021) Fixed the new broken code for "disable" flag check, back to the previous code + if(!(energy_cost.disable == type // Disabled by type? + || (energy_cost.disable == -1) // Disabled for all? + || (energy_cost.disable == -2 && (type & (TYPE_ENEMY | TYPE_NPC))) // Disabled for all AI? + || (energy_cost.disable == -3 && (type & (TYPE_PLAYER | TYPE_NPC))) // Disabled for players & NPCs? + || (energy_cost.disable == -4 && (type & (TYPE_PLAYER | TYPE_ENEMY))))) // Disabled for all AI? + { + // No seal or seal is less/same as energy cost? + if (!self->seal || self->seal >= energy_cost.cost) + { + if((which == ENERGY_TYPE_MP && (energy_cost.mponly != COST_TYPE_HP_ONLY) && (self->energy_state.mp_current >= energy_cost.cost)) + || (which == ENERGY_TYPE_HP && (energy_cost.mponly != COST_TYPE_MP_ONLY) && (self->energy_state.health_current > energy_cost.cost))) + { + result = TRUE; + } + else + { + //DC 2009-01-23 + //Tried putting the CANT animation here to keep code compacted, but won't work. I'll come back to this. + //if (validanim(self,ani)){ + // ent_set_anim(self, ANI_CANT, 0); + // self->takeaction = common_attack_proc; + // player[self->playerindex].playkeys = 0; + //} + } + } + } + } + + return result; +} + +// Caskey Damon V. +// 2018-05-10 +// +// Replaces unreadable check_range() macro. Runs individual +// check range functions for each axis and returns true +// if target is within range of ALL. +bool check_range_target_all(const entity *ent, const entity *target, const animation_id_t animation_id, int64_t range_min, int64_t range_max) +{ + // Must have a valid target entity. + if(!target) + { + return false; + } + + // Get pointer to animation. + const s_anim *animation = ent->modeldata.animation[animation_id]; + + if (!check_range_target_x(ent, target, animation, range_min, range_max)) + { + return false; + } + + if (!check_range_target_y(ent, target, animation, range_min, range_max)) + { + return false; + } + + if (!check_range_target_z(ent, target, animation, range_min, range_max)) + { + return false; + } + + if (!check_range_target_base(ent, target, animation, range_min, range_max)) + { + return false; + } + + return true; +} + +// Caskey, Damon V. +// 2018-05-12 +// +// Return true if target is within Base range +// of entity's animation. +bool check_range_target_base(const entity *acting_entity, const entity *target, const s_anim *animation, int64_t range_min, int64_t range_max) +{ + int ent_base; + int target_base; + + s_metric_range range; + + // Must have a target. + if(!acting_entity || !target) + { + return false; + } + + range.max = range_max; + range.min = range_min; + + if (animation) + { + range.max += animation->range.base.max; + range.min += animation->range.base.min; + } + + // Get positions cast as integers. + ent_base = (int)acting_entity->base; + target_base = (int)target->base; + + // Subtract entity Base position from target position. + target_base -= ent_base; + + // Return true if final target location is + // within range min and max. + return (target_base >= range.min + && target_base <= range.max) ? true : false; +} + +// Caskey, Damon V. +// 2018-05-10 +// +// Return true if target is within X range +// of entity's animation. +bool check_range_target_x(const entity *acting_entity, const entity *target, const s_anim *animation, int64_t range_min, int64_t range_max) +{ + // Must have entities. + if(!acting_entity || !target) + { + return false; + } + + // Get positions cast as integers. + const int ent_x = (int)acting_entity->position.x; + const int target_x = (int)target->position.x; + + s_metric_range range; + + range.max = range_max; + range.min = range_min; + + if (animation) + { + range.max += animation->range.x.max; + range.min += animation->range.x.min; + } + + // Return true if final target location is + // within range X min and max. Range comparison + // is reversed when entity faces left. + if(acting_entity->direction == DIRECTION_RIGHT) + { + // Add range to entity X position + // for final X range coordinates. + range.min = ent_x + range.min; + range.max = ent_x + range.max; + + return (target_x >= range.min + && target_x <= range.max) ? true : false; + } + else + { + // Subtract range from entity X + // position for final X range coordinates. + range.min = ent_x - range.min; + range.max = ent_x - range.max; + + return (target_x <= range.min + && target_x >= range.max) ? true : false; + } +} + +// Caskey, Damon V. +// 2018-05-10 +// +// Return true if target is within Y range +// of entity's animation. +bool check_range_target_y(const entity *acting_entity, const entity *target, const s_anim *animation, int64_t range_min, int64_t range_max) +{ + // Must have a target. + if(!acting_entity || !target) + { + return false; + } + + s_metric_range range; + + range.max = range_max; + range.min = range_min; + + if (animation) + { + range.max += animation->range.y.max; + range.min += animation->range.y.min; + } + + // Get positions cast as integers. + const int ent_y = (int)acting_entity->position.y; + const int target_y = (int)target->position.y - ent_y; + + // Return true if final target location is + // within range min and max. + return (target_y >= range.min + && target_y <= range.max) ? true : false; +} + +// Caskey, Damon V. +// 2018-05-12 +// +// Return true if target is within Z range +// of entity's animation. +bool check_range_target_z(const entity * acting_entity, const entity *target, const s_anim *animation, int64_t range_min, int64_t range_max) +{ + // Must have a target. + if(!acting_entity || !target) + { + return false; + } + + s_metric_range range; + + range.min = range_min; + range.max = range_max; + + if (animation) + { + range.max += animation->range.z.max; + range.min += animation->range.z.min; + } + + // Get positions cast as integers. + const int ent_z = (int)acting_entity->position.z; + const int target_z = (int)target->position.z - ent_z; + + // Return true if final target location is + // within range min and max. + return (target_z >= range.min + && target_z <= range.max) ? true : false; +} + +int check_special() +{ + entity *e; + if((!level->nospecial || level->nospecial == 3) && validanim(self, ANI_SPECIAL) && + (check_energy(ENERGY_TYPE_HP, ANI_SPECIAL) || check_energy(ENERGY_TYPE_MP, ANI_SPECIAL)) + ) + { + self->takeaction = common_attack_proc; + set_attacking(self); + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + + e = self->link; + if(e) + { + e->takeaction = NULL; + ent_unlink(self); + set_idle(e); + } + + if(self->modeldata.smartbomb && !self->modeldata.dofreeze) + { + smart_bomb(self, self->modeldata.smartbomb); // do smartbomb immediately if it doesn't freeze screen + } + + self->running = RUN_STATE_NONE; // If special is executed while running, ceases to run + self->velocity.x = self->velocity.z = 0; + ent_set_anim(self, ANI_SPECIAL, 0); + + if(self->modeldata.dofreeze) + { + smartbomber = self; // Freezes the animations of all enemies/players while special is executed + } + + // Kratus (10-2021) Now the "infinite health cheat" affects players only, not enemies or npc + // And now the "infinite health cheat" will only work when the cost is HEALTH, will not work when the cost is MP anymore + if(self->modeldata.type & TYPE_PLAYER) + { + if(!nocost) + { + if(!(global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE)) + { + if(self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost) + { + if(check_energy(ENERGY_TYPE_MP, ANI_SPECIAL)) + { + self->energy_state.mp_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } + else + { + self->energy_state.health_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } + } + } + else + { + if(self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost) + { + if(check_energy(ENERGY_TYPE_MP, ANI_SPECIAL)) + { + self->energy_state.mp_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } + } + } + } + } + else + { + if(!nocost) + { + if(self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost) + { + if(check_energy(ENERGY_TYPE_MP, ANI_SPECIAL)) + { + self->energy_state.mp_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } + else + { + self->energy_state.health_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } + } + } + } + return 1; + } + return 0; +} + +// Check keys for special move. Used several times, so I func'd it. +// Kratus (10-2021) Added new flags to use with another ATTACK# keys as an new alternative +int player_check_special() +{ + key_mask_t thekey = 0; + key_mask_t player_keys = player[self->playerindex].playkeys; + + switch (global_config.ajspecial) + { + case AJSPECIAL_KEY_SPECIAL: + + if (player_keys & FLAG_SPECIAL) + { + thekey = FLAG_SPECIAL; + } + + break; + + case AJSPECIAL_KEY_DOUBLE: + + if (!validanim(self, ANI_BLOCK) && player_keys & FLAG_SPECIAL) + { + thekey = FLAG_SPECIAL; + } + else if (player_keys & FLAG_JUMP && player_keys & FLAG_ATTACK) + { + thekey = FLAG_JUMP | FLAG_ATTACK; + } + break; + + case AJSPECIAL_KEY_ATTACK2: + + if (player_keys & FLAG_ATTACK2) + { + thekey = FLAG_ATTACK2; + } + break; + + case AJSPECIAL_KEY_ATTACK3: + + if (player_keys & FLAG_ATTACK3) + { + thekey = FLAG_ATTACK3; + } + break; + + case AJSPECIAL_KEY_ATTACK4: + + if (player_keys & FLAG_ATTACK4) + { + thekey = FLAG_ATTACK4; + } + break; + + default: + thekey = 0; + } + + if (!thekey) + { + return 0; + } + + if(check_special()) + { + self->stalltime = 0; + player[self->playerindex].playkeys &= ~thekey; + return 1; + } + else + { + return 0; + } +} + + +void common_land() +{ + self->velocity.x = self->velocity.z = 0; + if(self->animating) + { + return; + } + + self->takeaction = NULL; + set_idle(self); +} + + +//animal run when you lost it 3 times by tails +void runanimal() +{ + common_walk_anim(self); + //ent_set_anim(self, ANI_WALK, 0); + + if(self->position.x < advancex - 80 || self->position.x > advancex + (videomodes.hRes + 80)) + { + kill_entity(self, KILL_ENTITY_TRIGGER_ANIMAL_RUN_OUT_OF_BOUNDS); + return; + } + + if(self->direction == DIRECTION_RIGHT) + { + self->position.x += self->modeldata.speed.x; + } + else + { + self->position.x -= self->modeldata.speed.x; + } +} + + +void player_blink() +{ + self->blink = 1; + if(_time >= self->stalltime) + { + player_die(); + } +} + + +void common_grabattack() +{ + if(self->animating) + { + return; + } + + self->attacking = ATTACKING_NONE; + + if(!(self->combostep[0] || self->combostep[1] || + self->combostep[2] || self->combostep[3] || + self->combostep[4])) + { + ent_unlink(self); + } + + if(self->link) + { + self->takeaction = common_grab; + self->link->takeaction = common_grabbed; + self->attacking = ATTACKING_NONE; + ent_set_anim(self, ANI_GRAB, 0); + set_pain(self->link, -1, 0); + update_frame(self, self->animation->numframes - 1); + update_frame(self->link, self->link->animation->numframes - 1); + } + else + { + self->takeaction = NULL; + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + set_idle(self); + } +} + +// Function that causes the player to continue to move up or down until the animation has finished playing +void common_dodge() // New function so players can dodge with up up or down down +{ + if(self->animating) // Continues to move as long as the player is animating + { + return; + } + else // Once done animating, returns to thinking + { + self->takeaction = NULL; + self->velocity.x = self->velocity.z = 0; + set_idle(self); + } +} + + +void common_preduck() +{ + if(self->animating) + { + return; + } + doduck(self); +} + + +void common_idle() +{ + if(self->animating) + { + return; + } + self->takeaction = NULL; + self->attacking = ATTACKING_NONE; + self->idling = IDLING_PREPARED; + common_idle_anim(self); +} + + +void tryduck(entity *ent) +{ + ent->running = RUN_STATE_NONE; + if(validanim(ent, ANI_DUCKING)) + { + ent->takeaction = common_preduck; + ent->velocity.x = ent->velocity.z = 0; + ent->ducking = DUCK_PREPARED; + ent->idling = IDLING_NONE; + ent_set_anim(ent, ANI_DUCKING, 0); + } + else + { + doduck(ent); + } +} + + +void tryduckrise(entity *ent) +{ + ent->running = RUN_STATE_NONE; + if(validanim(ent, ANI_DUCKRISE)) + { + ent->takeaction = common_idle; + ent->velocity.x = ent->velocity.z = 0; + ent->ducking = DUCK_RISE; + ent->idling = IDLING_NONE; + ent_set_anim(ent, ANI_DUCKRISE, 0); + } + else + { + ent->takeaction = NULL; + ent->idling = IDLING_PREPARED; + common_idle_anim(self); + } +} + + +void doduck(entity *ent) +{ + ent->takeaction = NULL; + ent->velocity.x = ent->velocity.z = 0; + ent->ducking = DUCK_ACTIVE; + ent->idling |= IDLING_PREPARED; + ent_set_anim(ent, ANI_DUCK, 0); +} + + +void common_prejump() +{ + if(self->animating) + { + return; + } + dojump(self->jump.velocity.y, self->jump.velocity.x, self->jump.velocity.z, self->jump.animation_id); +} + + +void tryjump(float jumpv, float jumpx, float jumpz, animation_id_t animation_id) +{ + self->jump.velocity.y = jumpv; + self->jump.velocity.x = jumpx; + self->jump.velocity.z = jumpz; + self->jump.animation_id = animation_id; + + self->ducking = DUCK_NONE; + if(validanim(self, ANI_JUMPDELAY)) + { + self->takeaction = common_prejump; + self->velocity.x = self->velocity.z = 0; + + self->idling = IDLING_NONE; + ent_set_anim(self, ANI_JUMPDELAY, 0); + } + else + { + dojump(jumpv, jumpx, jumpz, animation_id); + } +} + + +void dojump(float jumpv, float jumpx, float jumpz, animation_id_t animation_id) +{ + entity *dust; + + self->takeaction = common_jump; + + if(global_sample_list.jump >= 0) + { + sound_play_sample(global_sample_list.jump, 0, savedata.effectvol, savedata.effectvol, 100); + } + + //Spawn jumpstart dust. + if(self->modeldata.dust.jump_start >= 0) + { + dust = spawn(self->position.x, self->position.z, self->position.y, self->direction, NULL, self->modeldata.dust.jump_start, NULL); + if(dust) + { + dust->spawntype = SPAWN_TYPE_DUST_JUMP; + dust->base = self->position.y; + dust->autokill |= AUTOKILL_ANIMATION_COMPLETE; + execute_onspawn_script(dust); + } + } + + set_jumping(self); + + toss(self, jumpv); + + if(self->direction == DIRECTION_LEFT) + { + self->velocity.x = -jumpx; + } + else + { + self->velocity.x = jumpx; + } + + self->velocity.z = jumpz; + ent_set_anim(self, animation_id, 0); +} + +// Function created to combine the action taken if either picking up an item, or running into an item that is a +// SUBTYPE_TOUCH, executing the appropriate action based on which type of item is picked up +void didfind_item(entity *other) +{ + // Function that takes care of items when picked up + set_opponent(self, other); + + /* + * Legacy limited use replenish. + * + * If item has a use_add value and collecting + * entity has a limited use weapon, we add + * use_add to uses remaining. + */ + + if(other->modeldata.weapon_properties.use_add) + { + if(self->weapent && self->weapent->modeldata.weapon_properties.weapon_state & WEAPON_STATE_LIMITED_USE) + { + self->weapent->modeldata.weapon_properties.use_count += other->modeldata.weapon_properties.use_add; + + if(global_sample_list.get >= 0) + { + sound_play_sample(global_sample_list.get, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else + { + addscore(self->playerindex, other->modeldata.score); + if(global_sample_list.get_2 >= 0) + { + sound_play_sample(global_sample_list.get_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + } + + //end of weapons items section + else if(other->modeldata.score) + { + addscore(self->playerindex, other->modeldata.score); + if(global_sample_list.get_2 >= 0) + { + sound_play_sample(global_sample_list.get_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->energy_state.health_current) + { + self->energy_state.health_current += other->energy_state.health_current; + + if(self->energy_state.health_current > self->modeldata.health) + { + self->energy_state.health_current = self->modeldata.health; + } + + other->energy_state.health_current = 0; + + if(global_sample_list.get >= 0) + { + sound_play_sample(global_sample_list.get, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->modeldata.mp) + { + self->energy_state.mp_current += other->modeldata.mp; + + if(self->energy_state.mp_current > self->modeldata.mp) + { + self->energy_state.mp_current = self->modeldata.mp; + } + + other->energy_state.mp_current = 0; + sound_play_sample(global_sample_list.get, 0, savedata.effectvol, savedata.effectvol, 100); + } + else if(stricmp(other->modeldata.name, "Time") == 0) + { + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + + if(global_sample_list.get_2 >= 0) + { + sound_play_sample(global_sample_list.get_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->modeldata.makeinv) + { + // Mar 2, 2005 - New item makes player invincible + self->invincible |= INVINCIBLE_INTANGIBLE; + self->invinctime = _time + ABS(other->modeldata.makeinv); + self->blink = (other->modeldata.makeinv > 0); + + if(global_sample_list.get_2 >= 0) + { + sound_play_sample(global_sample_list.get_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->modeldata.smartbomb) + { + // Damages everything on the screen + smart_bomb(self, other->modeldata.smartbomb); + + if(global_sample_list.get_2 >= 0) + { + sound_play_sample(global_sample_list.get_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->modeldata.subtype == SUBTYPE_WEAPON) + { + dropweapon(self, 0); + self->weapent = other; + set_weapon(self, other->modeldata.weapon_properties.weapon_index, 0); + + /* Move to weapon location if it's an "animal". */ + if(self->modeldata.weapon_properties.weapon_state & WEAPON_STATE_ANIMAL) + { + self->direction = other->direction; + self->position.x = other->position.x; + self->position.z = other->position.z; + } + + if(!(other->modeldata.weapon_properties.weapon_state & WEAPON_STATE_LIMITED_USE) && self->modeldata.weapon_properties.weapon_state & WEAPON_STATE_LIMITED_USE) + { + other->modeldata.weapon_properties.weapon_state |= WEAPON_STATE_LIMITED_USE; + } + + if(global_sample_list.get >= 0) + { + sound_play_sample(global_sample_list.get, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->modeldata.subtype == SUBTYPE_PROJECTILE) + { + dropweapon(self, 0); + self->weapent = other; + + if(global_sample_list.get >= 0) + { + sound_play_sample(global_sample_list.get, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if(other->modeldata.credit) + { + if(!noshare) + { + credits++; + } + else + { + player[self->playerindex].credits++; + } + + if(global_sample_list.one_up >= 0) + { + sound_play_sample(global_sample_list.one_up, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else + { + // Must be a 1up then. + player[self->playerindex].lives++; + + if(global_sample_list.one_up >= 0) + { + sound_play_sample(global_sample_list.one_up, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + + if(other->modeldata.subtype != SUBTYPE_WEAPON && other->modeldata.subtype != SUBTYPE_PROJECTILE) + { + other->takeaction = suicide; + if(!other->modeldata.instantitemdeath) + { + other->nextthink = _time + global_config.game_speed * 3; + } + } + else + { + if(!(other->nextanim & DELAY_FLAG_INFINITE)) { + other->nextanim = animation_timestamp_add_bounded( + _time, + delay_multiply_bounded( + global_config.game_speed, + UINT64_C(999999) + ) + ); + } + other->nextthink = _time + global_config.game_speed * 999999; + } + other->position.z = ITEM_HIDE_POSITION_Z; +} + +void player_fall_check() +{ + if(autoland != 2 && (player[self->playerindex].keys & (FLAG_MOVEUP | FLAG_JUMP)) == (FLAG_MOVEUP | FLAG_JUMP)) + { + // mark it, so we will play land animation when hit the ground. + self->damage_on_landing.attack_force = ATTACK_FORCE_LAND_COMMAND; + } +} + +void player_grab_check() +{ + entity *other = self->link; + + if(other == NULL || (self->modeldata.grabfinish && self->animating && !self->grabwalking)) + { + return; + } + + if(self->base != other->base) + { + // Change this from ->position.y to ->base + self->takeaction = NULL; + ent_unlink(self); + set_idle(self); + return; + } + + if(player_check_special()) + { + return; + } + + if(!nolost && self->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_GRABBING) + { + dropweapon(self, 1); + } + + // grabturn code + if(self->animation == self->modeldata.animation[ANI_GRABTURN]) + { + // still turning? don't bother with anything else + if(self->animating) + { + return; + } + + // done turning? switch directions and return to grab animation + else + { + if(self->direction == DIRECTION_RIGHT) + { + self->direction = DIRECTION_LEFT; + other->direction = DIRECTION_RIGHT; + } + else + { + self->direction = DIRECTION_RIGHT; + other->direction = DIRECTION_LEFT; + } + other->position.x = self->position.x + (((self->direction * 2) - 1) * self->modeldata.grabdistance); + ent_set_anim(self, ANI_GRAB, 0); + set_pain(other, -1, 0); + update_frame(self, self->animation->numframes - 1); + update_frame(other, other->animation->numframes - 1); + } + } + + self->attacking = ATTACKING_NONE; //for checking + self->grabwalking = 0; + + // Move key opposite vs. dicretion? + if(self->direction == DIRECTION_RIGHT ? (player[self->playerindex].keys & FLAG_MOVELEFT) : (player[self->playerindex].keys & FLAG_MOVERIGHT)) + { + // initiating grabturn + if(self->modeldata.grabturn) + { + // start animation if it exists... + if(validanim(self, ANI_GRABTURN)) + { + ent_set_anim(self, ANI_GRABTURN, 0); + if(validanim(other, ANI_GRABBEDTURN)) + { + ent_set_anim(other, ANI_GRABBEDTURN, 0); + } + else if(validanim(other, ANI_GRABBED)) + { + ent_set_anim(other, ANI_GRABBED, 0); + } + else + { + if ( ((!other->direction && self->position.x > other->position.x) || (other->direction && self->position.x < other->position.x)) && validanim(other, ANI_BACKPAIN) ) ent_set_anim(other, ANI_BACKPAIN, 0); + else ent_set_anim(other, ANI_PAIN, 0); + } + other->velocity.x = other->velocity.z = self->velocity.x = self->velocity.z = 0; + other->position.x = self->position.x; + return; + } + + // otherwise, just turn around + else + { + if(self->direction == DIRECTION_RIGHT) + { + self->direction = DIRECTION_LEFT; + other->direction = DIRECTION_RIGHT; + } + else + { + self->direction = DIRECTION_RIGHT; + other->direction = DIRECTION_LEFT; + } + ent_set_anim(self, ANI_GRAB, 0); + set_pain(other, -1, 0); + update_frame(self, self->animation->numframes - 1); + update_frame(other, other->animation->numframes - 1); + other->position.x = self->position.x + (((self->direction * 2) - 1) * self->modeldata.grabdistance); + } + } + else if(!validanim(self, ANI_GRABWALK) && _time > self->releasetime) + { + // Release + self->takeaction = NULL; + ent_unlink(self); + set_idle(self); + return; + } + } + else + { + self->releasetime = _time + (global_config.game_speed / 2); + } + + if((player[self->playerindex].playkeys & FLAG_ATTACK) && + (self->direction ? + (player[self->playerindex].keys & FLAG_MOVELEFT) : + (player[self->playerindex].keys & FLAG_MOVERIGHT))) + { + player[self->playerindex].playkeys -= FLAG_ATTACK; + if(validanim(self, ANI_GRABBACKWARD)) + { + dograbattack(GRAB_ACTION_SELECT_BACKWARD); + } + else if(validanim(self, ANI_THROW)) + { + if(self->modeldata.throwframewait >= 0) + { + doprethrow(); + } + else + { + dothrow(); + } + } + else + { + dograbattack(GRAB_ACTION_SELECT_ATTACK); + } + } + // grab forward + else if((player[self->playerindex].playkeys & FLAG_ATTACK) && + validanim(self, ANI_GRABFORWARD) && + (!self->direction ? + (player[self->playerindex].keys & FLAG_MOVELEFT) : + (player[self->playerindex].keys & FLAG_MOVERIGHT))) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + dograbattack(GRAB_ACTION_SELECT_FORWARD); + } + // grab up + else if((player[self->playerindex].playkeys & FLAG_ATTACK) && + validanim(self, ANI_GRABUP) && (player[self->playerindex].keys & FLAG_MOVEUP)) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + dograbattack(GRAB_ACTION_SELECT_UP); + } + // grab down + else if((player[self->playerindex].playkeys & FLAG_ATTACK) && + validanim(self, ANI_GRABDOWN) && (player[self->playerindex].keys & FLAG_MOVEDOWN)) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + dograbattack(GRAB_ACTION_SELECT_DOWN); + } + // normal grab attack + else if((player[self->playerindex].playkeys & FLAG_ATTACK) && validanim(self, ANI_GRABATTACK)) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + dograbattack(GRAB_ACTION_SELECT_ATTACK); + } + // Kratus (10-2021) Added the vault animation + else if(player[self->playerindex].playkeys & FLAG_JUMP && validanim(self, ANI_VAULT)) + { + // Kratus (07-2022) Fixed the "3-vaults" loop bug, now will execute once as intended + // Kratus (01-2023) Fixed an issue where grabattack2 animation nullifies vault if both are declared + // Kratus (01-2023) Added some native behaviours + player[self->playerindex].playkeys &= ~FLAG_JUMP; + self->attacking = ATTACKING_ACTIVE; + self->takeaction = common_grabattack; + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + ent_set_anim(self, ANI_VAULT, 0); + } + // grab attack finisher + else if(player[self->playerindex].playkeys & (FLAG_ATTACK | FLAG_JUMP)) + { + player[self->playerindex].playkeys &= ~(FLAG_ATTACK | FLAG_JUMP); + + // Perform final blow + if(validanim(self, ANI_GRABATTACK2) || validanim(self, ANI_ATTACK3)) + { + dograbattack(GRAB_ACTION_SELECT_FINISH); + } + else + { + self->attacking = ATTACKING_ACTIVE; + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + self->takeaction = common_grabattack; + tryjump(self->modeldata.jumpheight, self->modeldata.jumpspeed, 0, ANI_JUMP); + } + } + + // grab walk code + else if(validanim(self, ANI_GRABWALK) // check if grabwalk animation exists + + // if entity is still animating anything besides a grabwalk variant, don't let them move + && (!self->animating || self->animation == self->modeldata.animation[ANI_GRABWALK] + || self->animation == self->modeldata.animation[ANI_GRABWALKUP] + || self->animation == self->modeldata.animation[ANI_GRABWALKDOWN] + || self->animation == self->modeldata.animation[ANI_GRABBACKWALK])) + { + + // z axis movement + if(PLAYER_MIN_Z != PLAYER_MAX_Z) + { + if(player[self->playerindex].keys & FLAG_MOVEUP) + { + if(self->modeldata.grabwalkspeed) + { + self->velocity.z = -self->modeldata.grabwalkspeed / 2; + } + else + { + self->velocity.z = -self->modeldata.speed.x / 2; + } + } + else if(player[self->playerindex].keys & FLAG_MOVEDOWN) + { + if(self->modeldata.grabwalkspeed) + { + self->velocity.z = self->modeldata.grabwalkspeed / 2; + } + else + { + self->velocity.z = self->modeldata.speed.x / 2; + } + } + else if(!(player[self->playerindex].keys & (FLAG_MOVEUP | FLAG_MOVEDOWN))) + { + self->velocity.z = 0; + } + } + + // x axis movement + if(player[self->playerindex].keys & FLAG_MOVELEFT) + { + if(self->modeldata.grabwalkspeed) + { + self->velocity.x = -self->modeldata.grabwalkspeed; + } + else + { + self->velocity.x = -self->modeldata.speed.x; + } + } + + else if(player[self->playerindex].keys & FLAG_MOVERIGHT) + { + if(self->modeldata.grabwalkspeed) + { + self->velocity.x = self->modeldata.grabwalkspeed; + } + else + { + self->velocity.x = self->modeldata.speed.x; + } + } + else if(!((player[self->playerindex].keys & FLAG_MOVELEFT) || (player[self->playerindex].keys & FLAG_MOVERIGHT)) ) + { + self->velocity.x = 0; + } + + // setting the animations based on the velocity set above + if(self->velocity.x || self->velocity.z) + { + if(((self->velocity.x > 0 && self->direction == DIRECTION_LEFT) || (self->velocity.x < 0 && self->direction == DIRECTION_RIGHT)) && validanim(self, ANI_GRABBACKWALK)) + { + ent_set_anim(self, ANI_GRABBACKWALK, 0); + } + else if(self->velocity.z < 0 && validanim(self, ANI_GRABWALKUP)) + { + ent_set_anim(self, ANI_GRABWALKUP, 0); + } + else if(self->velocity.z > 0 && validanim(self, ANI_GRABWALKDOWN)) + { + ent_set_anim(self, ANI_GRABWALKDOWN, 0); + } + else + { + ent_set_anim(self, ANI_GRABWALK, 0); + } + if(self->animation == self->modeldata.animation[ANI_GRABWALKUP] && validanim(other, ANI_GRABBEDWALKUP)) + { + ent_set_anim(other, ANI_GRABBEDWALKUP, 0); + } + else if(self->animation == self->modeldata.animation[ANI_GRABWALKDOWN] && validanim(other, ANI_GRABBEDWALKDOWN)) + { + ent_set_anim(other, ANI_GRABBEDWALKDOWN, 0); + } + else if(self->animation == self->modeldata.animation[ANI_GRABBACKWALK] && validanim(other, ANI_GRABBEDBACKWALK)) + { + ent_set_anim(other, ANI_GRABBEDBACKWALK, 0); + } + else if(validanim(other, ANI_GRABBEDWALK)) + { + ent_set_anim(other, ANI_GRABBEDWALK, 0); + } + else if (validanim(other, ANI_GRABBED)) + { + ent_set_anim(other, ANI_GRABBED, 0); + } + else + { + ent_set_anim(other, ANI_PAIN, 0); + } + } + else + { + ent_set_anim(self, ANI_GRAB, 0); + if (validanim(other, ANI_GRABBED)) + { + ent_set_anim(other, ANI_GRABBED, 0); + } + else + { + ent_set_anim(other, ANI_PAIN, 0); + } + } + // use check_link_move to set velocity, don't change it here + other->velocity.z = other->velocity.x = 0; + self->grabwalking = 1; + } + + if(self->attacking != ATTACKING_NONE) + { + self->releasetime = _time + (global_config.game_speed / 2); // reset releasetime when do collision + } +} + +void player_walkoff_check() +{ + /* + * Turn. + */ + if(self->modeldata.air_control & AIR_CONTROL_WALKOFF_TURN) + { + if((player[self->playerindex].keys & FLAG_MOVELEFT)) + { + self->direction = DIRECTION_LEFT; + } + else if((player[self->playerindex].keys & FLAG_MOVERIGHT)) + { + self->direction = DIRECTION_RIGHT; + } + } + + /* + * X stop. If not holding a Left or + * Right key, kill horizontal momentum. + */ + if (self->modeldata.air_control & AIR_CONTROL_WALKOFF_X_STOP) + { + if (!(player[self->playerindex].keys & (FLAG_MOVELEFT | FLAG_MOVERIGHT))) + { + if (self->velocity.x != 0) + { + self->velocity.x *= AIR_CONTROL_STOP_FACTOR; + } + } + } + + /* + * Z stop. If not holding an Up or + * Down key, kill lateral momentum. + */ + if (self->modeldata.air_control & AIR_CONTROL_WALKOFF_Z_STOP) + { + if (!(player[self->playerindex].keys & (FLAG_MOVEUP | FLAG_MOVEDOWN))) + { + if (self->velocity.z != 0) + { + self->velocity.z *= AIR_CONTROL_STOP_FACTOR; + } + } + } + + /* Horizontal move control (if already moving). */ + if(self->modeldata.air_control & AIR_CONTROL_WALKOFF_X_ADJUST) //move? + { + if(((player[self->playerindex].keys & FLAG_MOVELEFT) && self->velocity.x > 0) || + ((player[self->playerindex].keys & FLAG_MOVERIGHT) && self->velocity.x < 0)) + { + self->velocity.x = -self->velocity.x; + } + } + + /* Horizontal move control (any walkoff). */ + if(self->modeldata.air_control & AIR_CONTROL_WALKOFF_X_MOVE) + { + if(((player[self->playerindex].keys & FLAG_MOVELEFT) && self->velocity.x > 0) || + ((player[self->playerindex].keys & FLAG_MOVERIGHT) && self->velocity.x < 0)) + { + self->velocity.x = -self->velocity.x; + } + + if((player[self->playerindex].keys & FLAG_MOVELEFT) && (!self->velocity.x)) + { + self->velocity.x -= self->modeldata.speed.x; + } + else if((player[self->playerindex].keys & FLAG_MOVERIGHT) && (!self->velocity.x)) + { + self->velocity.x = self->modeldata.speed.x; + } + } + + /* Z move control (if already moving). */ + if(self->modeldata.air_control & AIR_CONTROL_WALKOFF_Z_ADJUST) + { + if(((player[self->playerindex].keys & FLAG_MOVEUP) && self->velocity.z > 0) || + ((player[self->playerindex].keys & FLAG_MOVEDOWN) && self->velocity.z < 0)) + { + self->velocity.z = -self->velocity.z; + } + } + + /* Z move control (any walkoff). */ + if(self->modeldata.air_control & AIR_CONTROL_WALKOFF_Z_MOVE) + { + if((player[self->playerindex].keys & FLAG_MOVEUP) && (!self->velocity.z)) + { + self->velocity.z -= (0.5 * self->modeldata.speed.x); + } + else if((player[self->playerindex].keys & FLAG_MOVEDOWN) && (!self->velocity.z)) + { + self->velocity.z = (0.5 * self->modeldata.speed.x); + } + } + + return; +} + +void player_jump_check() +{ + int candospecial = 0; + + // Kratus (10-2021) Fixed the noaircancel function + // Now the flag "2" works as intended and completely disables the cancelation between all jumping attacks + // In the previous code, both flags 1 and 2 have the same effect and allow the cancelation after last jumpattack is finished + if((!noaircancel) || (noaircancel&1 && !self->animating) || (noaircancel&3 && (self->animnum == self->jump.animation_id))) + { + //air special, copied and changed from Fugue's code + if((!level->nospecial || level->nospecial == 3) && player[self->playerindex].playkeys & FLAG_SPECIAL) + { + if(validanim(self, ANI_JUMPSPECIAL)) + { + // Kratus (10-2021) For safe, added an new step to check if the entity is not in the "jumpspecial" animation + // Fixes the bug that constantly consumes health or mp if the special button is constantly pressed, even if + // the current "jumpspecial" animation cycle is not finished yet + if(self->animnum != ANI_JUMPSPECIAL) + { + if(self->modeldata.animation[ANI_JUMPSPECIAL]->energy_cost.cost && check_energy(ENERGY_TYPE_MP, ANI_JUMPSPECIAL)) + { + // Kratus (10-2021) Now the "infinite health cheat" will only work when the cost is HEALTH, will not work when the cost is MP anymore + self->energy_state.mp_current -= self->modeldata.animation[ANI_JUMPSPECIAL]->energy_cost.cost; + candospecial = 1; + } + else if(self->modeldata.animation[ANI_JUMPSPECIAL]->energy_cost.cost && check_energy(ENERGY_TYPE_HP, ANI_JUMPSPECIAL)) + { + if(!(global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE)) + { + self->energy_state.health_current -= self->modeldata.animation[ANI_JUMPSPECIAL]->energy_cost.cost; + } + candospecial = 1; + } + else if(validanim(self, ANI_JUMPCANT)) + { + ent_set_anim(self, ANI_JUMPCANT, 0); + self->velocity.y = 0; + } + } + + if(candospecial) + { + player[self->playerindex].playkeys &= ~FLAG_SPECIAL; + self->attacking = ATTACKING_ACTIVE; + + // Kratus (10-2021) Add a option to kill or not the xyz movement + // Kratus (04-2022) Minor fix on the jumpspecial code + if(!(self->modeldata.jumpspecial & 1)) + { + self->velocity.x = self->velocity.z = 0; // Kill movement when the special starts + self->velocity.y = 0; + } + + ent_set_anim(self, ANI_JUMPSPECIAL, 0); + } + } + }//end of jumpspecial + + //jumpattacks, up down forward normal....we don't check energy cost + else if(player[self->playerindex].playkeys & FLAG_ATTACK) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + self->attacking = ATTACKING_ACTIVE; + + if((player[self->playerindex].keys & FLAG_MOVEDOWN) && validanim(self, ANI_JUMPATTACK2)) + { + ent_set_anim(self, ANI_JUMPATTACK2, 0); + } + else if((player[self->playerindex].keys & FLAG_MOVEUP) && validanim(self, ANI_JUMPATTACK3)) + { + ent_set_anim(self, ANI_JUMPATTACK3, 0); + } + else if(self->running && validanim(self, ANI_RUNJUMPATTACK)) + { + ent_set_anim(self, ANI_RUNJUMPATTACK, 0); // Added so an extra strong jump attack can be executed + } + else if(self->velocity.x != 0 && validanim(self, ANI_JUMPFORWARD)) + { + ent_set_anim(self, ANI_JUMPFORWARD, 0); // If moving and set, do this attack + } + else if(validanim(self, ANI_JUMPATTACK)) + { + ent_set_anim(self, ANI_JUMPATTACK, 0); + } + }//end of jumpattack + } + + /* + * Jump height control. Stop rising if jump + * key is inactive. + */ + if (self->modeldata.air_control & AIR_CONTROL_JUMP_Y_STOP) + { + if (!(player[self->playerindex].keys & FLAG_JUMP)) + { + if (self->velocity.y > 0) + { + self->velocity.y *= AIR_CONTROL_STOP_FACTOR; + } + } + } + + /* + * Jump X stop. If not holding a Left or + * Right key, kill horizontal momentum. + */ + if (self->modeldata.air_control & AIR_CONTROL_JUMP_X_STOP) + { + if (!(player[self->playerindex].keys & (FLAG_MOVELEFT | FLAG_MOVERIGHT))) + { + if (self->velocity.x != 0) + { + self->velocity.x *= AIR_CONTROL_STOP_FACTOR; + } + } + } + + /* + * Jump Z stop. If not holding an Up or + * Down key, kill lateral momentum. + */ + if (self->modeldata.air_control & AIR_CONTROL_JUMP_Z_STOP) + { + if (!(player[self->playerindex].keys & (FLAG_MOVEUP | FLAG_MOVEDOWN))) + { + if (self->velocity.z != 0) + { + self->velocity.z *= AIR_CONTROL_STOP_FACTOR; + } + } + } + + /* Jump turn control. */ + if(self->modeldata.air_control & AIR_CONTROL_JUMP_TURN) + { + if((player[self->playerindex].keys & FLAG_MOVELEFT)) + { + self->direction = DIRECTION_LEFT; + } + else if((player[self->playerindex].keys & FLAG_MOVERIGHT)) + { + self->direction = DIRECTION_RIGHT; + } + } + + /* Jump horizontal move control (if already moving). */ + if(self->modeldata.air_control & AIR_CONTROL_JUMP_X_ADJUST) + { + if(((player[self->playerindex].keys & FLAG_MOVELEFT) && self->velocity.x > 0 ) || + ((player[self->playerindex].keys & FLAG_MOVERIGHT) && self->velocity.x < 0)) + { + self->velocity.x = -self->velocity.x; + } + } + + /* Jump horizontal move control (any jump). */ + if(self->modeldata.air_control & AIR_CONTROL_JUMP_X_MOVE) + { + if(((player[self->playerindex].keys & FLAG_MOVELEFT) && self->velocity.x > 0) || + ((player[self->playerindex].keys & FLAG_MOVERIGHT) && self->velocity.x < 0)) + { + self->velocity.x = -self->velocity.x; + } + + if((player[self->playerindex].keys & FLAG_MOVELEFT) && (!self->velocity.x)) + { + self->velocity.x -= self->modeldata.speed.x; + } + else if((player[self->playerindex].keys & FLAG_MOVERIGHT) && (!self->velocity.x)) + { + self->velocity.x = self->modeldata.speed.x; + } + } + + /* Jump Z move control (if already moving). */ + if(self->modeldata.air_control & AIR_CONTROL_JUMP_Z_ADJUST) + { + if(((player[self->playerindex].keys & FLAG_MOVEUP) && self->velocity.z > 0) || + ((player[self->playerindex].keys & FLAG_MOVEDOWN) && self->velocity.z < 0)) + { + self->velocity.z = -self->velocity.z; + } + } + + /* Jump Z move control (any jump). */ + if(self->modeldata.air_control & AIR_CONTROL_JUMP_Z_MOVE) + { + if((player[self->playerindex].keys & FLAG_MOVELEFT)) + { + self->direction = DIRECTION_LEFT; + } + else if((player[self->playerindex].keys & FLAG_MOVERIGHT)) + { + self->direction = DIRECTION_RIGHT; + } + + if(((player[self->playerindex].keys & FLAG_MOVEUP) && self->velocity.z > 0) || + ((player[self->playerindex].keys & FLAG_MOVEDOWN) && self->velocity.z < 0)) + { + self->velocity.z = -self->velocity.z; + } + + if((player[self->playerindex].keys & FLAG_MOVEUP) && (!self->velocity.z)) + { + self->velocity.z -= (0.5 * self->modeldata.speed.x); + } + else if((player[self->playerindex].keys & FLAG_MOVEDOWN) && (!self->velocity.z)) + { + self->velocity.z = (0.5 * self->modeldata.speed.x); + } + } + + return; +} + +void player_pain_check() +{ + if(player_check_special()) + { + self->inpain = IN_PAIN_NONE; + self->rising = RISING_NONE; + self->ducking = DUCK_NONE; + self->inbackpain = 0; + } +} + +// check riseattack input up+attack +void player_lie_check() +{ + if(validanim(self, ANI_RISEATTACK) && + (player[self->playerindex].playkeys & FLAG_ATTACK) && + (player[self->playerindex].keys & FLAG_MOVEUP) && + (self->energy_state.health_current > 0 && _time > self->staydown.riseattack_stall)) + { + player[self->playerindex].playkeys &= ~FLAG_ATTACK; + if((player[self->playerindex].keys & FLAG_MOVELEFT)) + { + self->direction = DIRECTION_LEFT; + } + if((player[self->playerindex].keys & FLAG_MOVERIGHT)) + { + self->direction = DIRECTION_RIGHT; + } + self->stalltime = 0; + set_riseattack(self, self->last_damage_type, 0); + } +} + +void player_charge_check() +{ + if(!((player[self->playerindex].keys & FLAG_JUMP) && + (player[self->playerindex].keys & FLAG_SPECIAL))) + { + self->takeaction = NULL; + self->charging = 0; + set_idle(self); + } +} + +// make a function so enemies can use +// UT: jumphack is a temporary fix for jump cancel +int check_costmove(int s, int fs, int jumphack) +{ + if(((fs == 1 && level->nospecial < 2) || (fs == 0 && level->nospecial == 0) || (fs == 0 && level->nospecial == 3)) && + (check_energy(ENERGY_TYPE_HP, s) || + check_energy(ENERGY_TYPE_MP, s)) ) + { + if(!jumphack) + { + self->takeaction = common_attack_proc; + } + // Kratus (10-2021) Now the "infinite health cheat" affects players only, not enemies or npc + // And now the "infinite health cheat" will only work when the cost is HEALTH, will not work when the cost is MP anymore + if(self->modeldata.type & TYPE_PLAYER) + { + if(!nocost) + { + if(!(global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE)) + { + if(self->modeldata.animation[s]->energy_cost.cost) + { + if(check_energy(ENERGY_TYPE_MP, s)) + { + self->energy_state.mp_current -= self->modeldata.animation[s]->energy_cost.cost; + } + else + { + self->energy_state.health_current -= self->modeldata.animation[s]->energy_cost.cost; + } + } + } + else + { + if(self->modeldata.animation[s]->energy_cost.cost) + { + if(check_energy(ENERGY_TYPE_MP, s)) + { + self->energy_state.mp_current -= self->modeldata.animation[s]->energy_cost.cost; + } + } + } + } + } + else + { + if(!nocost) + { + if(self->modeldata.animation[s]->energy_cost.cost) + { + if(check_energy(ENERGY_TYPE_MP, s)) + { + self->energy_state.mp_current -= self->modeldata.animation[s]->energy_cost.cost; + } + else + { + self->energy_state.health_current -= self->modeldata.animation[s]->energy_cost.cost; + } + } + } + } + + self->running = RUN_STATE_NONE; + self->velocity.x = self->velocity.z = 0; + set_attacking(self); + self->inpain = IN_PAIN_NONE; + self->rising = RISING_NONE; + self->inbackpain = 0; + memset(self->combostep, 0, sizeof(*self->combostep) * 5); + ent_unlink(self); + ent_set_anim(self, s, 0); + return 1; + } + return 0; +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Record the starting time for every newly pressed +* command input flag. +* +* Physical and direction-relative flags share the same +* 64-bit namespace. Using the flag's bit index provides +* hold timing without a parallel command-history ring. +*/ +static void command_input_hold_start_update( + s_player* acting_player, + const key_mask_t pressed_flags, + const uint64_t event_time +) { + key_mask_t scan_mask = pressed_flags; + + while(scan_mask) { + const uint64_t input_index = + bitmask64_get_lowest_index(scan_mask); + + const key_mask_t input_flag = + bitmask64_from_index(input_index); + + acting_player->command_input_hold_start_time[ + input_index + ] = event_time; + + acting_player->command_input_hold_start_valid |= + input_flag; + + /* + * A new press begins a new continuous hold. Clear + * the automatic-trigger record so time zero can + * trigger again for the new hold. + */ + acting_player->command_input_hold_trigger_valid &= + ~input_flag; + + scan_mask &= ~input_flag; + } +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Collect automatic held-input edges which reach their +* configured threshold on this logical tick. +* +* Thresholds come from the acting entity's configurable +* special commands. A per-input timestamp prevents a +* second input refresh during the same tick from emitting +* the same edge again. Different thresholds for the same +* input remain independent because each is reached on a +* different logical tick during one continuous hold. +*/ +static key_mask_t command_input_hold_trigger_collect( + s_player* acting_player, + const key_mask_t held_flags, + const uint64_t event_time +) { + const entity* acting_entity; + + key_mask_t collected_flags = 0; + + int special_index; + + if(!acting_player || !acting_player->ent) { + return 0; + } + + acting_entity = acting_player->ent; + + for(special_index = 0; + special_index < acting_entity->modeldata.specials_loaded; + special_index++) { + + const s_com* special_command = + &acting_entity->modeldata.special[special_index]; + + int step_index; + + if(special_command->steps <= 0 + || special_command->steps > MAX_SPECIAL_INPUTS) { + continue; + } + + for(step_index = 0; + step_index < special_command->steps; + step_index++) { + + const s_command_input_step* input_step = + &special_command->input[step_index]; + + key_mask_t scan_mask = + input_step->hold_trigger & held_flags; + + while(scan_mask) { + const uint64_t input_index = + bitmask64_get_lowest_index(scan_mask); + + const key_mask_t input_flag = + bitmask64_from_index(input_index); + + const uint64_t hold_start_time = + acting_player->command_input_hold_start_time[ + input_index + ]; + + const bool already_emitted_this_tick = + (acting_player->command_input_hold_trigger_valid + & input_flag) + && acting_player->command_input_hold_trigger_time[ + input_index + ] == event_time; + + if((acting_player->command_input_hold_start_valid + & input_flag) + && hold_start_time <= event_time + && event_time - hold_start_time + == input_step->hold_time + && !already_emitted_this_tick) { + + collected_flags |= input_flag; + } + + scan_mask &= ~input_flag; + } + } + } + + /* + * Record emitted flags only after scanning every + * command. Commands sharing the same input and + * threshold deliberately share one history edge. + */ + { + key_mask_t scan_mask = collected_flags; + + while(scan_mask) { + const uint64_t input_index = + bitmask64_get_lowest_index(scan_mask); + + const key_mask_t input_flag = + bitmask64_from_index(input_index); + + acting_player->command_input_hold_trigger_time[ + input_index + ] = event_time; + + acting_player->command_input_hold_trigger_valid |= + input_flag; + + scan_mask &= ~input_flag; + } + } + + return collected_flags; +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Append one event to a player's command history. +*/ +static void command_input_history_push(s_player* acting_player, const s_command_input_event* input_event) { + + acting_player->command_input_history[acting_player->command_input_index] = *input_event; + + acting_player->command_input_index = (acting_player->command_input_index + 1) & SPECIAL_INPUT_INDEX_MASK; + + if(acting_player->command_input_count < MAX_SPECIAL_INPUTS) { + acting_player->command_input_count++; + } +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Consume the newest press edge from a player's command +* history. +* +* Several hard-coded movement commands consume their +* triggering press. A combined event may also contain a +* release or automatic hold edge, so only remove the +* complete entry when no other edge remains. +*/ +static void command_input_history_consume_latest_press( + s_player* acting_player +) { + s_command_input_event* input_event; + + uint64_t input_index; + + if(!acting_player || !acting_player->command_input_count) { + return; + } + + input_index = + (acting_player->command_input_index - 1) + & SPECIAL_INPUT_INDEX_MASK; + + input_event = + &acting_player->command_input_history[ + input_index + ]; + + input_event->press = 0; + input_event->press_chord = 0; + + if(input_event->hold || input_event->release) { + return; + } + + acting_player->command_input_index = input_index; + + memset(input_event, 0, sizeof(*input_event)); + + acting_player->command_input_count--; +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Consume selected automatic held-input flags from the +* event which triggered a configurable command. +* +* Other flags remain available when the same history +* entry also contains a press, release, or another held +* edge. Empty non-latest entries stay in place so ring +* order and stored event ages do not need compaction. +*/ +static void command_input_history_consume_hold_trigger( + s_player* acting_player, + const uint64_t event_age, + const key_mask_t trigger_flags +) { + s_command_input_event* input_event; + + uint64_t input_index; + + if(!acting_player + || !trigger_flags + || event_age >= acting_player->command_input_count) { + return; + } + + input_index = + (acting_player->command_input_index - event_age - 1) + & SPECIAL_INPUT_INDEX_MASK; + + input_event = + &acting_player->command_input_history[input_index]; + + input_event->hold &= ~trigger_flags; + + if(input_event->press + || input_event->hold + || input_event->release + || event_age) { + return; + } + + acting_player->command_input_index = input_index; + + memset(input_event, 0, sizeof(*input_event)); + + acting_player->command_input_count--; +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Read the preceding valid event from a player's +* command history. +*/ +static const s_command_input_event* command_input_history_previous( + const s_player* acting_player, + uint64_t* history_index, + uint64_t* remaining_events +) { + if(!*remaining_events) { + return NULL; + } + + *history_index = + (*history_index - 1) & SPECIAL_INPUT_INDEX_MASK; + + (*remaining_events)--; + + return &acting_player->command_input_history[ + *history_index + ]; +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Read the preceding press event from a player's +* command history. +* +* Non-press entries are skipped so release and timed +* hold events can be added without changing legacy +* hard-coded command behavior. +*/ +static const s_command_input_event* command_input_history_previous_press( + const s_player* acting_player, + uint64_t* history_index, + uint64_t* remaining_events +) { + const s_command_input_event* input_event; + + while((input_event = command_input_history_previous( + acting_player, + history_index, + remaining_events + ))) { + + if(input_event->press) { + return input_event; + } + } + + return NULL; +} + +/* +* Check whether the player's most recent press +* events satisfy a hard-coded command sequence. +* +* Each sequence entry is a bit mask of required +* inputs. A recorded press may contain additional +* flags and still match. +* +* Release and timed hold events are deliberately +* ignored so existing hard-coded commands retain +* their positive-edge behavior. +*/ +static bool match_combo(const key_mask_t sequence[], const s_player* acting_player, const uint64_t length) { + const s_command_input_event* input_event; + + uint64_t history_index; + uint64_t newer_event_time; + uint64_t remaining_events; + uint64_t sequence_index; + + if(!sequence + || !acting_player + || !length + || length > MAX_SPECIAL_INPUTS) { + return false; + } + + history_index = acting_player->command_input_index; + newer_event_time = _time; + remaining_events = acting_player->command_input_count; + + for(sequence_index = length; + sequence_index > 0; + sequence_index--) { + + const key_mask_t required_press = + sequence[sequence_index - 1]; + + input_event = command_input_history_previous_press( + acting_player, + &history_index, + &remaining_events + ); + + if(!input_event + || (input_event->press & required_press) + != required_press + || newer_event_time - input_event->time + > global_config.command_time) { + return false; + } + + newer_event_time = input_event->time; + } + + return true; +} + +/* +* Return the grace time used by one configurable command +* sequence. Commands without an explicit override inherit +* the engine-wide setting at match time. +*/ +static uint64_t command_sequence_grace_time_get( + const s_com* special_command +) { + assert(special_command); + + return special_command->sequence_grace_time_override + ? special_command->sequence_grace_time + : global_config.command_time; +} + +/* +* Return the longest grace time needed by the acting +* entity's configurable and hard-coded commands. +* +* Input history is shared by every command. Retaining it +* for the longest configured grace prevents a command +* with a longer local override from losing its earlier +* steps to the global history timeout. +*/ +static uint64_t command_input_history_grace_time_get( + const entity* acting_entity +) { + uint64_t history_grace_time = global_config.command_time; + + int special_index; + + if(!acting_entity) { + return history_grace_time; + } + + for(special_index = 0; + special_index < acting_entity->modeldata.specials_loaded; + special_index++) { + + const s_com* special_command = + &acting_entity->modeldata.special[special_index]; + + const uint64_t sequence_grace_time = + command_sequence_grace_time_get(special_command); + + if(sequence_grace_time > history_grace_time) { + history_grace_time = sequence_grace_time; + } + } + + return history_grace_time; +} + +/* +* Return the absolute logical tick when shared command +* history expires. Saturation preserves extremely large +* creator-defined grace values without wrapping the +* expiration time around to the beginning of the clock. +*/ +static uint64_t command_input_history_expiration_time_get( + const entity* acting_entity, + const uint64_t event_time +) { + const uint64_t history_grace_time = + command_input_history_grace_time_get(acting_entity); + + if(history_grace_time > UINT64_MAX - event_time) { + return UINT64_MAX; + } + + return event_time + history_grace_time; +} + +/* +* Return whether an input event satisfies the positive +* edge requirement for one configurable command step. +* +* Single-key steps retain exact legacy behavior and use +* only the physical press edge. Multi-key steps use the +* chord snapshot and their configured chord_time. Zero +* requires every member to begin on the same logical tick. +* At least one required key must be physically pressed in +* the triggering event, preventing an unrelated third key +* from retriggering a chord which merely remains held. +*/ +static bool command_input_event_matches_press( + const s_command_input_step* input_step, + const s_command_input_event* input_event, + const s_player* acting_player +) { + const key_mask_t required_press = input_step->press; + + key_mask_t scan_mask; + + if(!required_press) { + return true; + } + + /* + * A mask with one active bit has no second bit after + * removing its lowest bit. + */ + if(!(required_press & (required_press - 1))) { + return (input_event->press & required_press) + == required_press; + } + + if(!(input_event->press & required_press) + || (input_event->press_chord & required_press) + != required_press) { + return false; + } + + scan_mask = required_press; + + while(scan_mask) { + const uint64_t input_index = + bitmask64_get_lowest_index(scan_mask); + + const key_mask_t input_flag = + bitmask64_from_index(input_index); + + const uint64_t press_time = + acting_player->command_input_hold_start_time[ + input_index + ]; + + if(!(acting_player->command_input_hold_start_valid + & input_flag) + || press_time > input_event->time + || input_event->time - press_time + > input_step->chord_time) { + return false; + } + + scan_mask &= ~input_flag; + } + + return true; +} + +/* +* Return whether an input event satisfies every passive +* and automatic held requirement for one command step. +*/ +static bool command_input_event_matches_hold( + const s_command_input_step* input_step, + const s_command_input_event* input_event, + const s_player* acting_player +) { + const key_mask_t required_hold_flags = + input_step->hold | input_step->hold_trigger; + + key_mask_t scan_mask; + + if(!required_hold_flags) { + return true; + } + + if((input_event->held & required_hold_flags) + != required_hold_flags) { + return false; + } + + scan_mask = required_hold_flags; + + while(scan_mask) { + const uint64_t input_index = + bitmask64_get_lowest_index(scan_mask); + + const key_mask_t input_flag = + bitmask64_from_index(input_index); + + const uint64_t hold_start_time = + acting_player->command_input_hold_start_time[ + input_index + ]; + + if(!(acting_player->command_input_hold_start_valid + & input_flag) + || hold_start_time > input_event->time) { + return false; + } + + { + const uint64_t held_time = + input_event->time - hold_start_time; + + /* + * Passive holds accept the inclusive minimum + * through the optional inclusive maximum. A + * zero maximum leaves the upper bound open. + * Automatic holds match only their exact + * minimum threshold edge, preventing a later + * threshold for the same key from retriggering + * an earlier automatic command. + */ + if(((input_step->hold & input_flag) + && (held_time < input_step->hold_time + || (input_step->hold_time_maximum + && held_time + > input_step->hold_time_maximum))) + || ((input_step->hold_trigger & input_flag) + && held_time != input_step->hold_time)) { + return false; + } + } + + scan_mask &= ~input_flag; + } + + return true; +} + +/* +* Read the preceding event whose edge type is relevant +* to a configurable command step. +* +* Release-only events do not disturb press-only steps, +* and press-only events do not disturb release-only +* steps. An event of a required type with the wrong key +* is returned so it correctly interrupts the sequence. +*/ +static const s_command_input_event* command_input_history_previous_for_step( + const s_player* acting_player, + const s_command_input_step* input_step, + uint64_t* history_index, + uint64_t* remaining_events +) { + const s_command_input_event* input_event; + + while((input_event = command_input_history_previous( + acting_player, + history_index, + remaining_events + ))) { + + if((input_step->press && input_event->press) + || (input_step->release && input_event->release) + || (input_step->hold_trigger && input_event->hold)) { + return input_event; + } + } + + return NULL; +} + +/* +* Check whether the player's most recent input events +* satisfy a configurable special command. +* +* Press, release, and automatic hold masks are edge +* requirements. Passive hold is a state and minimum +* duration requirement evaluated at the triggering event. +*/ +static bool match_special_command( + const s_command_input_step sequence[], + const s_player* acting_player, + const uint64_t length, + const uint64_t sequence_grace_time, + uint64_t* match_time, + uint64_t* match_age +) { + const s_command_input_event* input_event; + + uint64_t history_index; + uint64_t newer_event_time; + uint64_t remaining_events; + uint64_t sequence_index; + + if(!sequence + || !acting_player + || !match_time + || !match_age + || !length + || length > MAX_SPECIAL_INPUTS) { + return false; + } + + *match_time = 0; + *match_age = UINT64_MAX; + + history_index = acting_player->command_input_index; + newer_event_time = _time; + remaining_events = acting_player->command_input_count; + + for(sequence_index = length; + sequence_index > 0; + sequence_index--) { + + const s_command_input_step* input_step = + &sequence[sequence_index - 1]; + + input_event = command_input_history_previous_for_step( + acting_player, + input_step, + &history_index, + &remaining_events + ); + + if(!input_event + || !command_input_event_matches_press( + input_step, + input_event, + acting_player + ) + || (input_event->release & input_step->release) + != input_step->release + || (input_event->hold & input_step->hold_trigger) + != input_step->hold_trigger + || newer_event_time - input_event->time + > sequence_grace_time + || !command_input_event_matches_hold( + input_step, + input_event, + acting_player + )) { + return false; + } + + if(sequence_index == length) { + *match_time = input_event->time; + *match_age = + acting_player->command_input_count + - remaining_events - 1; + } + + newer_event_time = input_event->time; + } + + return true; +} + +bool check_combo(s_player* acting_player) { + + unsigned int i; + int maxstep = -1; + int maxkeys = -1; + int valid = -1; + + uint64_t min_match_age = UINT64_MAX; + uint64_t max_match_time = 0; + key_mask_t selected_hold_trigger_flags = 0; + + bool match_found = false; + + s_com *com; + + for(i = 0; i < self->modeldata.specials_loaded; i++) { + + com = self->modeldata.special + i; + + if(self->animation->cancel != ANIMATION_CANCEL_DISABLED && + (self->animnum != com->cancel || + com->frame.min > self->animpos || + com->frame.max < self->animpos || + self->animation->hit_count < com->hits)) { + + continue; + + } else if(self->animation->cancel == ANIMATION_CANCEL_DISABLED + && (com->cancel || !player_accepts_idle_input(self) || diff(self->position.y, self->base) > 1)) { + + continue; + } + + { + uint64_t command_match_age; + uint64_t command_match_time; + + const uint64_t sequence_grace_time = + command_sequence_grace_time_get(com); + + if(validanim(self, com->anim) + && (check_energy(ENERGY_TYPE_MP, com->anim) || check_energy(ENERGY_TYPE_HP, com->anim)) + && match_special_command( + com->input, + acting_player, + com->steps, + sequence_grace_time, + &command_match_time, + &command_match_age + )) { + + /* + * Prefer the command triggered by the newest + * input event. Ring age resolves events recorded + * during the same logical tick. Commands sharing + * that event retain the existing longest-sequence, + * then greatest-chord-size ranking. + */ + const bool better_match = + !match_found + || command_match_age < min_match_age + || (command_match_age == min_match_age + && (command_match_time > max_match_time + || (command_match_time == max_match_time + && (com->steps > maxstep + || (com->steps == maxstep + && com->numkeys > maxkeys))))); + + if(!better_match) { + continue; + } + + valid = com->anim; + min_match_age = command_match_age; + max_match_time = command_match_time; + maxstep = com->steps; + maxkeys = com->numkeys; + selected_hold_trigger_flags = + com->input[com->steps - 1].hold_trigger; + match_found = true; + } + } + + } + + if(valid >= 0 && check_costmove(valid, 1, self->jumping)) { + /* + * Automatic held edges are one-shot input events. + * Consume the selected final-step flags only after + * the move starts successfully. Press, release, + * and unrelated automatic flags remain available. + */ + command_input_history_consume_hold_trigger( + acting_player, + min_match_age, + selected_hold_trigger_flags + ); + + return true; + } + + return false; +} + +/* +* Caskey, Damon V. +* 2026-07-26 - Originally written by Fugue (unknown date). +* +* Rework evaluates whether a player +* has a pending command sequence to execute. +*/ +bool player_preinput() { + + s_player *acting_player = player + self->playerindex; + + if(check_combo(acting_player)) { + acting_player->playkeys &= ~FLAG_CONTROLKEYS; + + return true; + } + + return false; +} + + +/* +* Caskey, Damon V. +* 2023-12-29 +* +* Stop running if player +* no longer inputs direction +* that started the run. +*/ +void run_try_runstop_check(entity* acting_entity, const e_RunXDirection movex, const e_RunZDirection movez, const e_RunXDirection running_x, const e_RunZDirection running_z, const int runConfigFlags, const int dashCommandFlag, const int dashFixedFlag, const int enabledFlag, const int stopStateFlag) { + if (!(runConfigFlags & enabledFlag) + || (dashFixedFlag && !acting_entity->animating) + || ((dashCommandFlag && !acting_entity->animating) + || (diff(movex, running_x) && (movez == RUN_DIR_Z_NONE || acting_entity->running & RUN_STATE_START_X)) + || (diff(movez, running_z) && (movex == RUN_DIR_X_NONE || acting_entity->running & RUN_STATE_START_Z)))) { + acting_entity->running = stopStateFlag; + } +} + +/* +* Caskey, Damon V. +* 2023-12-29 +* +* Check player input and run stop +* function if needed. +*/ +void run_try_runstop_player(entity* acting_entity, const s_player* acting_player) +{ + const e_run_state run_state = acting_entity->running; + + if (run_state == RUN_STATE_NONE) + { + return; + } + + /* + * Get player directional input + * from key status. + */ + + const e_RunZDirection movez = (acting_player->keys & FLAG_MOVEUP) ? RUN_DIR_Z_UP : (acting_player->keys & FLAG_MOVEDOWN) ? RUN_DIR_Z_DOWN : RUN_DIR_Z_NONE; + const e_RunXDirection movex = (acting_player->keys & FLAG_MOVELEFT) ? RUN_DIR_X_LEFT : (acting_player->keys & FLAG_MOVERIGHT) ? RUN_DIR_X_RIGHT : RUN_DIR_X_NONE; + + /* + * Get a running direction from + * velocity. + */ + + const e_RunZDirection running_z = run_state ? ((acting_entity->velocity.z < 0) ? RUN_DIR_Z_UP : (acting_entity->velocity.z > 0) ? RUN_DIR_Z_DOWN : RUN_DIR_Z_NONE) : RUN_DIR_Z_NONE; + const e_RunXDirection running_x = run_state ? ((acting_entity->velocity.x < 0) ? RUN_DIR_X_LEFT : (acting_entity->velocity.x > 0) ? RUN_DIR_X_RIGHT : RUN_DIR_X_NONE) : RUN_DIR_X_NONE; + + /* Just for readability below. */ + const e_run_config_flags acting_run_config_flags = acting_entity->modeldata.run_config_flags; + + /* + * Stop running? + * + * 1. X axis direction. + * 2. Able to run in X direction? + * 3. Fixed dash? Fixed dashes stop + * when the animation completes. They + * ignore releasing the key and do not + * stop on a perpendicular axis command + * even if we can't move on the other + * axis. Note the other axis is ignored + * by logic downstream. + * + * 4. Stop on following: + * - No direction command. + * - Direction command opposes current direction. + * - Perpendicular axis command when we don't have the flag enabled. + * + * Repeat check for opposite direction + * and for Z axis. + */ + + switch (running_x) { + case RUN_DIR_X_LEFT: + run_try_runstop_check(acting_entity, movex, movez, running_x, running_z, acting_run_config_flags, RUN_CONFIG_X_LEFT_DASH_COMMAND, RUN_CONFIG_X_LEFT_DASH_FIXED, RUN_CONFIG_X_LEFT_ENABLED, RUN_STATE_NONE); + break; + + case RUN_DIR_X_RIGHT: + run_try_runstop_check(acting_entity, movex, movez, running_x, running_z, acting_run_config_flags, RUN_CONFIG_X_RIGHT_DASH_COMMAND, RUN_CONFIG_X_RIGHT_DASH_FIXED, RUN_CONFIG_X_RIGHT_ENABLED, RUN_STATE_NONE); + break; + + case RUN_DIR_X_NONE: + break; + } + + switch (running_z) { + case RUN_DIR_Z_UP: + run_try_runstop_check(acting_entity, movex, movez, running_x, running_z, acting_run_config_flags, RUN_CONFIG_Z_UP_DASH_COMMAND, RUN_CONFIG_Z_UP_DASH_FIXED, RUN_CONFIG_Z_UP_ENABLED, RUN_STATE_NONE); + break; + + case RUN_DIR_Z_DOWN: + run_try_runstop_check(acting_entity, movex, movez, running_x, running_z, acting_run_config_flags, RUN_CONFIG_Z_DOWN_DASH_COMMAND, RUN_CONFIG_Z_DOWN_DASH_FIXED, RUN_CONFIG_Z_DOWN_ENABLED, RUN_STATE_NONE); + break; + + case RUN_DIR_Z_NONE: + break; + } +} + +/* +* Caskey, Damon V. +* 2026-07-16 +* +* Return true when the entity may +* process ordinary idle-state player +* input. +*/ +bool player_accepts_idle_input(const entity *acting_entity) { + + const s_anim *animation = acting_entity->animation; + + if(acting_entity->idling) { + return true; + } + + if(!animation + || !animation->idle + || animation->numframes <= 0 + || acting_entity->animpos + >= (uint64_t)animation->numframes) { + return false; + } + + return animation->idle[acting_entity->animpos] ? true : false; +} + +void player_think() +{ + typedef enum e_local_action_flags + { + ACTION_NONE, + ACTION_WALK, + ACTION_UP, + ACTION_DOWN, + ACTION_RUN + } e_local_action_flags; + + e_local_action_flags action = 0; + bool back_walk = false; //backwalk + + entity *other = NULL; + float initial_jump_velocity_z = 0.0; + + entity* acting_entity = self; + + const key_mask_t sequence_left_left[] = {FLAG_MOVELEFT, FLAG_MOVELEFT}; + const key_mask_t sequence_right_right[] = {FLAG_MOVERIGHT, FLAG_MOVERIGHT}; + const key_mask_t sequence_up_up[] = {FLAG_MOVEUP, FLAG_MOVEUP}; + const key_mask_t sequence_down_down[] = {FLAG_MOVEDOWN, FLAG_MOVEDOWN}; + + int pli = acting_entity->playerindex; + s_player *acting_player = player + pli; + + if(acting_player->ent != acting_entity || acting_entity->death_state & DEATH_STATE_DEAD) + { + return; + } + + /* + * Are we touching the end level entity? + */ + if((other = find_ent_here(acting_entity, acting_entity->position.x, acting_entity->position.z, TYPE_ENDLEVEL, NULL)) + && diff(acting_entity->position.y, other->position.y) <= 0.1) { + + bool no_player_reached = false; + uint64_t sum_not_reached = 0; + uint64_t sum_reached = 0; + uint64_t i; + + for (i = 0; i < MAX_PLAYERS; i++) { + if (!reached[i]){ + sum_not_reached++; + } + } + no_player_reached = (sum_not_reached >= MAX_PLAYERS) ? true : false; + + if(no_player_reached) { + addscore(pli, other->modeldata.score); + } + reached[pli] = true; + + for (i = 0; i < MAX_PLAYERS; i++) { + sum_reached += reached[i]; + } + + if (!other->modeldata.subtype || (other->modeldata.subtype == SUBTYPE_BOTH && sum_reached >= (count_ents(TYPE_PLAYER)))) { + level_completed = 1; + + if(other->modeldata.branch) { + strncpy( branch_name, other->modeldata.branch, MAX_NAME_LEN); //now, you can branch to another level + } + return; + } + } + + /* + * Reset combo count if time has expired. + */ + if(_time > acting_entity->rush.time) { + acting_entity->rush.count = 0; + acting_entity->rush.time = 0; + } + + if(player_preinput()) { + goto endthinkcheck; + } + + if(acting_entity->charging) { + player_charge_check(); + goto endthinkcheck; + } + + if(acting_entity->inpain & ~IN_PAIN_NONE || (acting_entity->link && !acting_entity->grabbing)) { + player_pain_check(); + goto endthinkcheck; + } + + // falling? check for landing + if(acting_entity->projectile & BLAST_TOSS) { + player_fall_check(); + goto endthinkcheck; + } + + // grab section, dont move if still animating + if(acting_entity->grabbing && acting_entity->attacking == ATTACKING_NONE && acting_entity->takeaction != common_throw_wait) { + player_grab_check(); + goto endthinkcheck; + } + + // jump section + if(acting_entity->jumping) { + player_jump_check(); + goto endthinkcheck; + } + + if(acting_entity->animnum == ANI_WALKOFF) { + player_walkoff_check(); + goto endthinkcheck; + } + + if(acting_entity->drop && acting_entity->position.y == acting_entity->base && !acting_entity->velocity.y) { + player_lie_check(); + goto endthinkcheck; + } + + /* + * Check if player is in a state that allows + * ordinary idle-state input processing. If not, + * skip the rest of the input checks. + */ + if(!player_accepts_idle_input(acting_entity)) { + goto endthinkcheck; + } + + // Check if entity is under a platform + /*if(acting_entity->modeldata.move_config_flags & MOVE_CONFIG_SUBJECT_TO_PLATFORM && (heightvar = acting_entity->animation->size.y ? acting_entity->animation->size.y : acting_entity->modeldata.size.y) && + validanim(acting_entity, ANI_DUCK) && check_platform_between(acting_entity->position.x, acting_entity->position.z, acting_entity->position.y, acting_entity->position.y + heightvar, acting_entity)) + { + acting_entity->idling = IDLING_NONE; + acting_entity->ducking = DUCK_ACTIVE; + acting_entity->takeaction = common_stuck_underneath; + ent_set_anim(acting_entity, ANI_DUCK, 0); + goto endthinkcheck; + }*/ + + const float altdiff = diff(acting_entity->position.y, acting_entity->base); + const bool notinair = (acting_entity->landed_on_platform ? altdiff < 5 : altdiff < 2); + + if(acting_player->playkeys & FLAG_MOVEUP) { + + const bool command_match = (notinair && match_combo(sequence_up_up, acting_player, 2)); + + if(command_match && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_Z_UP_ENABLED | RUN_CONFIG_Z_UP_INITIAL)) == (RUN_CONFIG_Z_UP_ENABLED | RUN_CONFIG_Z_UP_INITIAL) && validanim(acting_entity, ANI_RUN)) { + acting_player->playkeys &= ~FLAG_MOVEUP; + command_input_history_consume_latest_press(acting_player); + acting_entity->running |= RUN_STATE_START_X; // Player begins to run + + } else if(command_match && validanim(acting_entity, ANI_ATTACKUP)) { + + // New u u combo attack + acting_player->playkeys &= ~FLAG_MOVEUP; + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->combostep[0] = 0; + acting_entity->velocity.x = acting_entity->velocity.z = 0; + ent_set_anim(acting_entity, ANI_ATTACKUP, 0); + command_input_history_consume_latest_press(acting_player); // this workaround deals default freespecial2 + goto endthinkcheck; + + } else if(command_match && validanim(acting_entity, ANI_DODGE)) { + // New dodge move like on SOR3 + acting_player->playkeys &= ~FLAG_MOVEUP; + acting_entity->takeaction = common_dodge; + acting_entity->combostep[0] = 0; + acting_entity->idling = IDLING_NONE; + acting_entity->velocity.z = -acting_entity->modeldata.speed.x * 1.75; + acting_entity->velocity.x = 0;// OK you can use jumpframe to modify this anyway + ent_set_anim(acting_entity, ANI_DODGE, 0); + command_input_history_consume_latest_press(acting_player); + goto endthinkcheck; + } + } + + if(acting_player->playkeys & FLAG_MOVEDOWN) { + const bool command_match = (notinair && match_combo(sequence_down_down, acting_player, 2)); + + if(command_match && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_Z_DOWN_ENABLED | RUN_CONFIG_Z_DOWN_INITIAL)) == (RUN_CONFIG_Z_DOWN_ENABLED | RUN_CONFIG_Z_DOWN_INITIAL) && validanim(acting_entity, ANI_RUN)) { + acting_player->playkeys &= ~FLAG_MOVEDOWN; + command_input_history_consume_latest_press(acting_player); + acting_entity->running |= RUN_STATE_START_Z; // Player begins to run + + } else if(command_match && validanim(acting_entity, ANI_ATTACKDOWN)) { + // New d d combo attack + acting_player->playkeys &= ~FLAG_MOVEDOWN; + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + ent_set_anim(acting_entity, ANI_ATTACKDOWN, 0); + command_input_history_consume_latest_press(acting_player); + goto endthinkcheck; + + } else if(command_match && validanim(acting_entity, ANI_DODGE)) { + // New dodge move like on SOR3 + acting_player->playkeys &= ~FLAG_MOVEDOWN; + acting_entity->takeaction = common_dodge; + acting_entity->combostep[0] = 0; + acting_entity->idling = IDLING_NONE; + acting_entity->velocity.z = acting_entity->modeldata.speed.x * 1.75; + acting_entity->velocity.x = 0; + ent_set_anim(acting_entity, ANI_DODGE, 0); + command_input_history_consume_latest_press(acting_player); + goto endthinkcheck; + } + } + + if((acting_player->playkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT))) { + + const bool command_match_left = (notinair && (acting_entity->direction == DIRECTION_LEFT && match_combo(sequence_left_left, acting_player, 2))); + const bool command_match_right = (notinair && (acting_entity->direction == DIRECTION_RIGHT && match_combo(sequence_right_right, acting_player, 2))); + const bool command_match_forward = command_match_left || command_match_right; + const bool command_match_back = notinair + && acting_entity->modeldata.facing + && ((acting_entity->direction == DIRECTION_RIGHT && match_combo(sequence_left_left, acting_player, 2)) + || (acting_entity->direction == DIRECTION_LEFT && match_combo(sequence_right_right, acting_player, 2))); + + if (command_match_left && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_X_LEFT_ENABLED | RUN_CONFIG_X_LEFT_INITIAL)) == (RUN_CONFIG_X_LEFT_ENABLED | RUN_CONFIG_X_LEFT_INITIAL) && validanim(acting_entity, ANI_RUN)) { + + acting_player->playkeys &= ~(FLAG_MOVELEFT | FLAG_MOVERIGHT); // usually left + right is not acceptable, so it is OK to null both + command_input_history_consume_latest_press(acting_player); + acting_entity->running |= RUN_STATE_START_X; // Player begins to run + + } else if(command_match_right && (acting_entity->modeldata.run_config_flags & (RUN_CONFIG_X_RIGHT_ENABLED | RUN_CONFIG_X_RIGHT_INITIAL)) == (RUN_CONFIG_X_RIGHT_ENABLED | RUN_CONFIG_X_RIGHT_INITIAL) && validanim(acting_entity, ANI_RUN)) { + + acting_player->playkeys &= ~(FLAG_MOVELEFT | FLAG_MOVERIGHT); // usually left + right is not acceptable, so it is OK to null both + command_input_history_consume_latest_press(acting_player); + acting_entity->running |= RUN_STATE_START_X; // Player begins to run + + } else if(command_match_back && validanim(acting_entity, ANI_BACKRUN)) { + acting_player->playkeys &= ~(FLAG_MOVELEFT | FLAG_MOVERIGHT); // usually left + right is not acceptable, so it is OK to null both + command_input_history_consume_latest_press(acting_player); + acting_entity->running |= RUN_STATE_START_X; // Player begins to run + + } else if(command_match_forward && validanim(acting_entity, ANI_ATTACKFORWARD)) { + acting_player->playkeys &= ~(FLAG_MOVELEFT | FLAG_MOVERIGHT); + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + ent_set_anim(acting_entity, ANI_ATTACKFORWARD, 0); + command_input_history_consume_latest_press(acting_player); + goto endthinkcheck; + } + } + + /* + * Attack both. Attack + Key mapped + * by ajspecial. + */ + + if( (global_config.ajspecial == AJSPECIAL_KEY_SPECIAL && (acting_player->playkeys & FLAG_JUMP) && validanim(acting_entity, ANI_ATTACKBOTH))|| + (global_config.ajspecial == AJSPECIAL_KEY_ATTACK2 && (acting_player->playkeys & FLAG_JUMP) && validanim(acting_entity, ANI_ATTACKBOTH))|| + (global_config.ajspecial == AJSPECIAL_KEY_ATTACK3 && (acting_player->playkeys & FLAG_JUMP) && validanim(acting_entity, ANI_ATTACKBOTH))|| + (global_config.ajspecial == AJSPECIAL_KEY_ATTACK4 && (acting_player->playkeys & FLAG_JUMP) && validanim(acting_entity, ANI_ATTACKBOTH))) + { + if((acting_player->keys & FLAG_ATTACK) && notinair) + { + acting_player->playkeys &= ~FLAG_JUMP; + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + acting_entity->stalltime = 0; // If attack is pressed, holding down attack to execute attack3 is no longer valid + ent_set_anim(acting_entity, ANI_ATTACKBOTH, 0); + goto endthinkcheck; + } + } + + /* + * Command MP Charge. + */ + + if((acting_player->playkeys & FLAG_JUMP) && validanim(acting_entity, ANI_CHARGE)) + { + if((acting_player->keys & FLAG_SPECIAL) && notinair) + { + acting_player->playkeys &= ~FLAG_JUMP; + acting_entity->takeaction = common_charge; + acting_entity->combostep[0] = 0; + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->stalltime = 0; + set_charging(acting_entity); + ent_set_anim(acting_entity, ANI_CHARGE, 0); + goto endthinkcheck; + } + } + + /* + * Handle special key. Check for part of a + * freespecial command, and then blocking. + */ + + if(acting_player->playkeys & FLAG_SPECIAL) // The special button can now be used for freespecials + { + if( validanim(acting_entity, ANI_SPECIAL2) && notinair && + (acting_entity->direction == DIRECTION_LEFT ? + (acting_player->keys & FLAG_MOVELEFT) : + (acting_player->keys & FLAG_MOVERIGHT)) ) + { + if(check_costmove(ANI_SPECIAL2, 0, 0)) + { + acting_player->playkeys &= ~FLAG_SPECIAL; + goto endthinkcheck; + } + } + + // Blocking. + if(validanim(acting_entity, ANI_BLOCK) && notinair && !(acting_entity->modeldata.block_config_flags & BLOCK_CONFIG_DISABLED)) + { + acting_player->playkeys &= ~FLAG_SPECIAL; + + // Set up flags, action, and block animations. + do_active_block(acting_entity); + + goto endthinkcheck; + } + } + + /* + * Breakout special. + */ + + if(notinair && player_check_special()) + { + goto endthinkcheck; // So you don't perform specials falling off the edge + } + + /* + * Charge attack (hold Attack & release). + */ + + if((acting_player->releasekeys & FLAG_ATTACK)) + { + if(acting_entity->stalltime && notinair && + ((validanim(acting_entity, ANI_CHARGEATTACK) && acting_entity->stalltime + (global_config.game_speed * acting_entity->modeldata.animation[ANI_CHARGEATTACK]->charge_time) < _time) || + (!validanim(acting_entity, ANI_CHARGEATTACK) && validanim(acting_entity, animattacks[acting_entity->modeldata.atchain[acting_entity->modeldata.chainlength - 1] - 1]) + && acting_entity->modeldata.chainlength > 0 && acting_entity->stalltime + (global_config.game_speed * acting_entity->modeldata.animation[animattacks[acting_entity->modeldata.atchain[acting_entity->modeldata.chainlength - 1] - 1]]->charge_time) < _time))) + { + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + + acting_entity->stalltime = 0; + acting_entity->combostep[0] = 0; + + if(global_sample_list.punch >= 0) + { + sound_play_sample(global_sample_list.punch, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(validanim(acting_entity, ANI_CHARGEATTACK)) + { + ent_set_anim(acting_entity, ANI_CHARGEATTACK, 0); + } + else if(validanim(acting_entity, animattacks[acting_entity->modeldata.atchain[acting_entity->modeldata.chainlength - 1] - 1])) + { + ent_set_anim(acting_entity, animattacks[acting_entity->modeldata.atchain[acting_entity->modeldata.chainlength - 1] - 1], 0); + } + goto endthinkcheck; + } + acting_entity->stalltime = 0; + } + + /* + * Attack button. Handle basic attack + * button actions (attack, get, etc.). + */ + + if((acting_player->playkeys & FLAG_ATTACK) && notinair) + { + acting_player->playkeys &= ~FLAG_ATTACK; + acting_entity->stalltime = 0; // Disable the attack3 stalltime + + if((acting_entity->ducking & DUCK_ACTIVE) && validanim(acting_entity, ANI_DUCKATTACK) && PLAYER_MIN_Z == PLAYER_MAX_Z) //acting_player->keys & FLAG_MOVEDOWN + { + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + ent_set_anim(acting_entity, ANI_DUCKATTACK, 0); + goto endthinkcheck; + } + + if(acting_entity->running && validanim(acting_entity, ANI_RUNATTACK)) // New run attack code section + { + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + acting_entity->running = RUN_STATE_NONE; + ent_set_anim(acting_entity, ANI_RUNATTACK, 0); + goto endthinkcheck; + } + + /* + * Back attack. If player's command buffer matches + * the back attack sequence, we'll attempt to do + * a back attack. + */ + const key_mask_t sequence_back_attack[] = {FLAG_BACKWARD, FLAG_ATTACK}; + + if(validanim(acting_entity, ANI_ATTACKBACKWARD) && match_combo(sequence_back_attack, acting_player, 2)) { + const s_command_input_event* attack_input_event; + const s_command_input_event* backward_input_event; + + uint64_t history_index = + acting_player->command_input_index; + + uint64_t remaining_events = + acting_player->command_input_count; + + /* + * Get the last two press events. Reading through + * the compatibility helper prevents future release + * and timed hold events from disturbing back attack. + */ + attack_input_event = command_input_history_previous_press( + acting_player, + &history_index, + &remaining_events + ); + + backward_input_event = command_input_history_previous_press( + acting_player, + &history_index, + &remaining_events + ); + + /* + * Did back attack inputs come within the + * time window? If so, we'll do a back attack. + */ + if(attack_input_event + && backward_input_event + && attack_input_event->time + - backward_input_event->time + < global_config.game_speed / 10) { + + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = 0; + acting_entity->velocity.z = 0; + + if(acting_entity->direction == DIRECTION_LEFT + && (backward_input_event->press & FLAG_MOVELEFT)) { + + acting_entity->direction = DIRECTION_RIGHT; + + } else if(acting_entity->direction == DIRECTION_RIGHT + && (backward_input_event->press & FLAG_MOVERIGHT)) { + acting_entity->direction = DIRECTION_LEFT; + } + + acting_entity->combostep[0] = 0; + ent_set_anim(acting_entity, ANI_ATTACKBACKWARD, 0); + goto endthinkcheck; + } + } + + /* + * Get item. If player is standing on an item + * and the get animation is valid, then + * we'll pick it up and run the get animation. + */ + if(validanim(acting_entity, ANI_GET) + && (other = find_ent_here(acting_entity, acting_entity->position.x, acting_entity->position.z, TYPE_ITEM, player_test_pickable))) { + + acting_entity->velocity.x = acting_entity->velocity.z = 0; + set_getting(acting_entity); + acting_entity->takeaction = common_get; + ent_set_anim(acting_entity, ANI_GET, 0); + + /* + * Item "attacks" collector to make it + * easy to script actions on item pick up. + */ + do_item_script(acting_entity, other); + + didfind_item(other); + goto endthinkcheck; + } + + // Use stalltime to charge end-move + acting_entity->stalltime = _time; + acting_entity->velocity.x = acting_entity->velocity.z = 0; + + if( acting_entity->weapent && + acting_entity->weapent->modeldata.subtype == SUBTYPE_PROJECTILE && + validanim(acting_entity, ANI_THROWATTACK) ) + { + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + ent_set_anim(acting_entity, ANI_THROWATTACK, 0); + goto endthinkcheck; + } + else if(perform_atchain()) + { + if(global_sample_list.punch >= 0 && acting_entity->attacking != ATTACKING_NONE) + { + sound_play_sample(global_sample_list.punch, 0, savedata.effectvol, savedata.effectvol, 100); + } + goto endthinkcheck; + } + + } + + /* + * Jumping contorl. + */ + + if(acting_player->playkeys & FLAG_JUMP && notinair) + { + // Added !inair(acting_entity) so players can't jump when falling into holes + acting_player->playkeys &= ~FLAG_JUMP; + + /* + * Z axis control. + * + * If player can initialize a Z jump + * and Up or Down keys are active we'll + * get a portion of their jump speed as + * a Z velocity. We'll use this value as + * the Z parameter for all downstream + * jump function calls. + */ + + if (acting_entity->modeldata.air_control & AIR_CONTROL_JUMP_Z_INITIAL) + { + if (acting_player->keys & FLAG_MOVEUP) + { + initial_jump_velocity_z = -acting_entity->modeldata.jumpspeed * 0.5; + } + else if (acting_player->keys & FLAG_MOVEDOWN) + { + initial_jump_velocity_z = acting_entity->modeldata.jumpspeed * 0.5; + } + } + else + { + initial_jump_velocity_z = 0.0; + } + + if(acting_entity->running) + { + //Slide + if((acting_player->keys & FLAG_MOVEDOWN) && validanim(acting_entity, ANI_RUNSLIDE)) + { + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + acting_entity->running = RUN_STATE_NONE; + ent_set_anim(acting_entity, ANI_RUNSLIDE, 0); + goto endthinkcheck; + } + + /* Jumping allowed? */ + if (!(acting_entity->modeldata.air_control & AIR_CONTROL_JUMP_DISABLE)) + { + if (validanim(acting_entity, ANI_RUNJUMP)) + { + tryjump(acting_entity->modeldata.runjumpheight, acting_entity->modeldata.jumpspeed * acting_entity->modeldata.runjumpdist, initial_jump_velocity_z, ANI_RUNJUMP); + } + else if (validanim(acting_entity, ANI_FORWARDJUMP)) + { + tryjump(acting_entity->modeldata.runjumpheight, acting_entity->modeldata.jumpspeed * acting_entity->modeldata.runjumpdist, initial_jump_velocity_z, ANI_FORWARDJUMP); + } + else if (validanim(acting_entity, ANI_JUMP)) + { + tryjump(acting_entity->modeldata.runjumpheight, acting_entity->modeldata.jumpspeed * acting_entity->modeldata.runjumpdist, initial_jump_velocity_z, ANI_JUMP); + } + } + } + else + { + //Slide + if((acting_player->keys & FLAG_MOVEDOWN) && validanim(acting_entity, ANI_SLIDE)) + { + acting_entity->takeaction = common_attack_proc; + set_attacking(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + acting_entity->combostep[0] = 0; + acting_entity->running = RUN_STATE_NONE; + ent_set_anim(acting_entity, ANI_SLIDE, 0); + goto endthinkcheck; + } + + /* Jumping allowed? */ + if (!(acting_entity->modeldata.air_control & AIR_CONTROL_JUMP_DISABLE)) + { + + /* + * Handle left/right direction command. + * + * If left or right key is active, + * then switch facing accordingly and + * continue on to moving jump logic. + * + * Otherwise perform a jump with no + * horizontal velocity. + */ + + if (!(acting_player->keys & (FLAG_MOVELEFT | FLAG_MOVERIGHT)) && validanim(acting_entity, ANI_JUMP)) + { + tryjump(acting_entity->modeldata.jumpheight, 0, initial_jump_velocity_z, ANI_JUMP); + goto endthinkcheck; + } + else if ((acting_player->keys & FLAG_MOVELEFT)) + { + acting_entity->direction = DIRECTION_LEFT; + } + else if ((acting_player->keys & FLAG_MOVERIGHT)) + { + acting_entity->direction = DIRECTION_RIGHT; + } + + /* + * Horizontal moving jump. + */ + + if (validanim(acting_entity, ANI_FORWARDJUMP)) + { + tryjump(acting_entity->modeldata.jumpheight, acting_entity->modeldata.jumpspeed, initial_jump_velocity_z, ANI_FORWARDJUMP); + } + else if (validanim(acting_entity, ANI_JUMP)) + { + tryjump(acting_entity->modeldata.jumpheight, acting_entity->modeldata.jumpspeed, initial_jump_velocity_z, ANI_JUMP); + } + } + } + return; + } + + /* + * Run stop. + */ + run_try_runstop_player(acting_entity, acting_player); + + /* + */ + + if(PLAYER_MIN_Z != PLAYER_MAX_Z && acting_entity->ducking == DUCK_NONE) + { + // More of a platform feel + if(acting_player->keys & FLAG_MOVEUP) + { + if(validanim(acting_entity, ANI_UP) && acting_entity->running == RUN_STATE_NONE) + { + action = ACTION_UP; + acting_entity->velocity.z = -acting_entity->modeldata.speed.x / 2; // Used for up animation + } + else if(acting_entity->running & RUN_STATE_START_X) + { + action = ACTION_RUN; + + if (acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_RIGHT_DASH_FIXED + && !(acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_UP_ENABLED)) { + acting_entity->velocity.z = 0.0; + } + else + { + acting_entity->velocity.z = -acting_entity->modeldata.runspeed / 2; // Moves up at a faster rate running + } + } + else + { + action = ACTION_WALK; + acting_entity->velocity.z = -acting_entity->modeldata.speed.x / 2; + } + } + else if(acting_player->keys & FLAG_MOVEDOWN) + { + if(validanim(acting_entity, ANI_DOWN) && acting_entity->running == RUN_STATE_NONE) + { + action = ACTION_DOWN; + acting_entity->velocity.z = acting_entity->modeldata.speed.x / 2; // Used for down animation + } + else if(acting_entity->running & RUN_STATE_START_X) + { + action = ACTION_RUN; + + if (acting_entity->modeldata.run_config_flags & RUN_CONFIG_X_RIGHT_DASH_FIXED + && !(acting_entity->modeldata.run_config_flags & RUN_CONFIG_Z_DOWN_ENABLED)) { + acting_entity->velocity.z = 0.0; + } + else + { + acting_entity->velocity.z = acting_entity->modeldata.runspeed / 2; // Moves up at a faster rate running + } + } + else + { + action = ACTION_WALK; + acting_entity->velocity.z = acting_entity->modeldata.speed.x / 2; + } + } + else if(!(acting_player->keys & (FLAG_MOVEUP | FLAG_MOVEDOWN))) + { + acting_entity->velocity.z = 0; + } + } + else if(acting_entity->ducking == DUCK_NONE && validanim(acting_entity, ANI_DUCK) && acting_player->keys & FLAG_MOVEDOWN && notinair) + { + tryduck(acting_entity); + goto endthinkcheck; + } + + if(acting_player->keys & FLAG_MOVELEFT && acting_entity->ducking == DUCK_NONE) + { + if(acting_entity->direction == DIRECTION_RIGHT) + { + //acting_entity->running = RUN_STATE_NONE; // Quits running if player changes direction + if(acting_entity->modeldata.turndelay && !acting_entity->turntime) + { + acting_entity->turntime = _time + acting_entity->modeldata.turndelay; + } + else if(acting_entity->turntime && _time >= acting_entity->turntime) + { + acting_entity->turntime = 0; + if(validanim(acting_entity, ANI_TURN)) + { + acting_entity->takeaction = common_turn; + set_turning(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + ent_set_anim(acting_entity, ANI_TURN, 0); + goto endthinkcheck; + } + acting_entity->direction = DIRECTION_LEFT; + } + else if(!acting_entity->modeldata.turndelay && validanim(acting_entity, ANI_TURN)) + { + acting_entity->takeaction = common_turn; + set_turning(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + ent_set_anim(acting_entity, ANI_TURN, 0); + goto endthinkcheck; + } + else if(!acting_entity->turntime) + { + acting_entity->direction = DIRECTION_LEFT; + } + } + else + { + acting_entity->turntime = 0; + } + + if(acting_entity->running) + { + action = ACTION_RUN; + acting_entity->velocity.x = -acting_entity->modeldata.runspeed; // If running, player moves at a faster rate + } + else if(action != ACTION_UP && action != ACTION_DOWN) + { + action = ACTION_WALK; + acting_entity->velocity.x = -acting_entity->modeldata.speed.x; + } + else + { + acting_entity->velocity.x = -acting_entity->modeldata.speed.x; + } + } + else if(acting_player->keys & FLAG_MOVERIGHT && acting_entity->ducking == DUCK_NONE) + { + if(acting_entity->direction == DIRECTION_LEFT) + { + //acting_entity->running = RUN_STATE_NONE; // Quits running if player changes direction + if(acting_entity->modeldata.turndelay && !acting_entity->turntime) + { + acting_entity->turntime = _time + acting_entity->modeldata.turndelay; + } + else if(acting_entity->turntime && _time >= acting_entity->turntime) + { + acting_entity->turntime = 0; + if(validanim(acting_entity, ANI_TURN)) + { + acting_entity->takeaction = common_turn; + set_turning(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + ent_set_anim(acting_entity, ANI_TURN, 0); + goto endthinkcheck; + } + acting_entity->direction = DIRECTION_RIGHT; + } + else if(!acting_entity->modeldata.turndelay && validanim(acting_entity, ANI_TURN)) + { + acting_entity->takeaction = common_turn; + set_turning(acting_entity); + acting_entity->velocity.x = acting_entity->velocity.z = 0; + ent_set_anim(acting_entity, ANI_TURN, 0); + goto endthinkcheck; + } + else if(!acting_entity->turntime) + { + acting_entity->direction = DIRECTION_RIGHT; + } + } + else + { + acting_entity->turntime = 0; + } + + if(acting_entity->running) + { + action = ACTION_RUN; + acting_entity->velocity.x = acting_entity->modeldata.runspeed; // If running, player moves at a faster rate + } + else if(action != ACTION_UP && action != ACTION_DOWN) + { + action = ACTION_WALK; + acting_entity->velocity.x = acting_entity->modeldata.speed.x; + } + else + { + acting_entity->velocity.x = acting_entity->modeldata.speed.x; + } + } + else if(!((acting_player->keys & FLAG_MOVELEFT) || + (acting_player->keys & FLAG_MOVERIGHT)) ) + { + //acting_entity->running = RUN_STATE_NONE; // Player let go of left/right and so quits running + acting_entity->velocity.x = 0; + acting_entity->turntime = 0; + } + + if((other = find_ent_here(acting_entity, acting_entity->position.x, acting_entity->position.z, TYPE_ITEM, player_test_touch)) ) + { + do_item_script(acting_entity, other); + didfind_item(other); // Added function to clean code up a bit + } + + if (acting_entity->ducking & DUCK_ACTIVE) + { + if (!(acting_player->keys & FLAG_MOVEDOWN)) + { + tryduckrise(acting_entity); + goto endthinkcheck; + } + if(acting_player->keys & FLAG_MOVELEFT) + { + if(acting_entity->direction == DIRECTION_RIGHT) + { + acting_entity->direction = DIRECTION_LEFT; + } + } + else if(acting_player->keys & FLAG_MOVERIGHT) + { + if(acting_entity->direction == DIRECTION_LEFT) + { + acting_entity->direction = DIRECTION_RIGHT; + } + } + } + if (acting_entity->ducking) + { + goto endthinkcheck; + } + + + //White Dragon: prepare for idling animations... + if(action) + { + acting_entity->takeaction = NULL; + acting_entity->idling = IDLING_PREPARED; + } + + switch(action) + { + case ACTION_WALK: + // back walk feature + if(level && validanim(acting_entity, ANI_BACKWALK)) { + + if(acting_entity->modeldata.facing == FACING_ADJUST_RIGHT || level->facing == FACING_ADJUST_RIGHT) { + + back_walk = !acting_entity->direction; + + } else if(acting_entity->modeldata.facing == FACING_ADJUST_LEFT || level->facing == FACING_ADJUST_LEFT) { + + back_walk = acting_entity->direction; + + } else if((acting_entity->modeldata.facing == FACING_ADJUST_LEVEL || level->facing == FACING_ADJUST_LEVEL) && (level->scrolldir & SCROLL_LEFT) && acting_entity->direction == DIRECTION_LEFT) { + + back_walk = true; + + } else if((acting_entity->modeldata.facing == FACING_ADJUST_LEVEL || level->facing == FACING_ADJUST_LEVEL) && (level->scrolldir & SCROLL_RIGHT) && acting_entity->direction == DIRECTION_RIGHT) { + + back_walk = true; + + } else if(acting_entity->turntime && acting_entity->modeldata.turndelay) { + + back_walk = true; + } + + if(back_walk) { + common_backwalk_anim(acting_entity); + } else { + common_walk_anim(acting_entity); + } + + } else { + common_walk_anim(acting_entity); + } + break; + case ACTION_UP: + common_up_anim(acting_entity); //ent_set_anim(acting_entity, ANI_UP, 0); // Set to up animation if exists + break; + case ACTION_DOWN: + common_down_anim(acting_entity); //ent_set_anim(acting_entity, ANI_DOWN, 0); // Set to down animation if exists + break; + case ACTION_RUN: + if (validanim(acting_entity, ANI_BACKRUN)) + { + if (is_in_backrun(acting_entity)) ent_set_anim(acting_entity, ANI_BACKRUN, 0); + else ent_set_anim(acting_entity, ANI_RUN, 0); + } + else ent_set_anim(acting_entity, ANI_RUN, 0); // Set to run animation if exists + + break; + default: + + if(acting_entity->idling) + { + common_idle_anim(acting_entity); + } + break; + } + + +endthinkcheck: + //insert check here + return; +} + +int is_in_backrun(entity* self) +{ + if ( ((self->modeldata.facing == FACING_ADJUST_RIGHT || level->facing == FACING_ADJUST_RIGHT) && self->velocity.x < 0) || + ((self->modeldata.facing == FACING_ADJUST_LEFT || level->facing == FACING_ADJUST_LEFT) && self->velocity.x > 0) || + (((self->modeldata.facing == FACING_ADJUST_LEVEL || level->facing == FACING_ADJUST_LEVEL) && (level->scrolldir & SCROLL_RIGHT)) && self->velocity.x > 0) || + (((self->modeldata.facing == FACING_ADJUST_LEVEL || level->facing == FACING_ADJUST_LEVEL) && (level->scrolldir & SCROLL_LEFT)) && self->velocity.x > 0) + ) return 1; + else return 0; +} + +//ammo count goes down +void subtract_shot() +{ + if(self->weapent && self->weapent->modeldata.weapon_properties.use_count) + { + self->weapent->modeldata.weapon_properties.use_count--; + + /* + * Out of uses? Drop the weapon. + */ + + if(!self->weapent->modeldata.weapon_properties.use_count) + { + self->weapent->modeldata.weapon_properties.loss_count = 0; + dropweapon(self, 0); + } + } +} + + +void dropweapon(entity* acting_entity, int flag) +{ + int wall = 0; + entity *other = NULL; + entity* weapon_entity = NULL; + s_weapon* weapon_properties = NULL; + + // If we already have a weapon, we'll need to discard it. + if(acting_entity->weapent) + { + /* + * Dump pointers to self's weapon entity and the + * weapon entity's modeldata weapon properties + * into local variables. This is just for eaiser + * reading downstream. + */ + + weapon_entity = acting_entity->weapent; + weapon_properties = &acting_entity->weapent->modeldata.weapon_properties; + + // 2019-09-29 - Not sure about this logic. It appears that only type shot + // weapons or weapons with shot ammo are dropped. Anything else is simply discarded. + // Need to evaluate all weapon logic to get the workflow. + if(weapon_properties->weapon_state & WEAPON_STATE_LIMITED_USE || (!(weapon_properties->weapon_state & WEAPON_STATE_LIMITED_USE) && weapon_properties->use_count)) + { + // If the flag is 2 or below, we subtract the flag's + // value from weapon counter. + if(flag < 2) + { + weapon_properties->loss_count -= flag; + } + + // We're going to use our own position for the weapon. + weapon_entity->direction = acting_entity->direction; + weapon_entity->position.z = acting_entity->position.z; + weapon_entity->position.x = acting_entity->position.x; + weapon_entity->position.y = acting_entity->position.y; + + // Get any walls and platforms. + other = check_platform(weapon_entity->position.x, weapon_entity->position.z, acting_entity); + wall = checkwall_index(weapon_entity->position.x, weapon_entity->position.z); + + // Place onto wall or platform. + if(other && other != weapon_entity) + { + weapon_entity->base += other->position.y + other->animation->platform[other->animpos][PLATFORM_HEIGHT]; + } + else if(wall >= 0) + { + weapon_entity->base += level->walls[wall].height; + } + + // Use the weapon's RESPAWN or SPAWN animations if available, otherwise + // go right to idle. + if(validanim(weapon_entity, ANI_RESPAWN)) + { + ent_set_anim(weapon_entity, ANI_RESPAWN, 1); + } + else if(validanim(weapon_entity, ANI_SPAWN)) + { + ent_set_anim(weapon_entity, ANI_SPAWN, 1); + } + else + { + if(validanim(weapon_entity, ANI_IDLE)) ent_set_anim(weapon_entity, ANI_IDLE, 1); + } + + // If the weapon's counter is depleted, then weapon is lost for good. + // If it is an "animal", then we apply the animal running away logic. + // Otherwise the weapon blinks out. + if(!weapon_properties->loss_count) + { + if(!(acting_entity->modeldata.weapon_properties.weapon_state & WEAPON_STATE_ANIMAL)) + { + weapon_entity->blink = 1; + weapon_entity->takeaction = common_lie; + } + else + { + weapon_entity->modeldata.type = TYPE_NONE; + weapon_entity->think = runanimal; + } + } + weapon_entity->nextthink = _time + 1; + } + + // Clear our tracking variable that keeps the weapon entity pointer. + acting_entity->weapent = NULL; + } + + // Flag 2 means we're probably setting the weapon directly (ex: setweapon command). + // In that case we don't worry about a weapon entity. Just switch ourselves over + // to the weapon model. + if(flag < 2) + { + if(acting_entity->modeldata.type & TYPE_PLAYER) + { + if(player[acting_entity->playerindex].weapnum) + { + set_weapon(acting_entity, player[acting_entity->playerindex].weapnum, 0); + } + else + { + set_weapon(acting_entity, level->setweap, 0); + } + } + else + { + set_weapon(acting_entity, 0, 0); + } + } + + // Model override. If this is populated, we use its value + // to locate a model by index and revert to that instead + // of the default model when a weapon is lost. + if(acting_entity->modeldata.weapon_properties.loss_index != MODEL_INDEX_NONE) + { + set_weapon(acting_entity, acting_entity->modeldata.weapon_properties.loss_index, 0); + } +} + + +int player_takedamage(entity* target_entity, entity* attacking_entity, s_attack* attack_object, int fall_flag, const s_defense* defense_object) +{ + s_attack atk = *attack_object; + //printf("damaged by: '%s' %d\n", other->name, attack->attack_force); + + // Kratus (10-2021) Now the "infinite health cheat" will check the damage source, it will avoid some "special" damage sources + + // Damage comes from a normal source? + const bool normal_damage = (!is_attack_type_special(atk.attack_type)) ? true : false; + + if((global_config.cheats & CHEAT_OPTIONS_HEALTH_ACTIVE && normal_damage) + || (level->nohurt == DAMAGE_FROM_ENEMY_OFF && (attacking_entity->modeldata.type & TYPE_ENEMY))) + { + atk.attack_force = 0; + } + + return common_takedamage(target_entity, attacking_entity, &atk, fall_flag, defense_object); +} + +//////////////////////////////// + +// Called when player re-enters the game. +// Drop all enemies EXCEPT for the linked/frozen ones. +void drop_all_enemies() +{ + int i; + entity *weapself = self; + s_attack attack = emptyattack; + + for(i = 0; i < ent_max; i++) + { + if(ent_list[i]->exists && + ent_list[i]->energy_state.health_current > 0 && + (ent_list[i]->modeldata.type & TYPE_ENEMY) && + !ent_list[i]->owner && // Don't want to knock down a projectile + !ent_list[i]->frozen && // Don't want to unfreeze a frozen enemy + !(ent_list[i]->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) && + !(ent_list[i]->modeldata.pain_config_flags & PAIN_CONFIG_FALL_DISABLE) && + validanim(ent_list[i], ANI_FALL) ) + { + ent_list[i]->attacking = ATTACKING_NONE; + ent_list[i]->projectile = BLAST_NONE; + ent_list[i]->takeaction = common_fall;//enemy_fall; + ent_list[i]->damage_on_landing.attack_force = 0; + ent_list[i]->damage_on_landing.attack_type = ATK_NONE; + self = ent_list[i]; + ent_unlink(self); + ent_list[i]->velocity.x = (self->direction == DIRECTION_RIGHT) ? (-1.2) : 1.2; + + if(ent_list[i]->modeldata.weapon_properties.loss_condition & WEAPON_LOSS_CONDITION_STAGE) + { + dropweapon(self, 1); + } + + toss(ent_list[i], 2.5 + randf(1)); + ent_list[i]->knockdowncount = ent_list[i]->modeldata.knockdowncount; + + ent_list[i]->knockdowntime = 0; + + set_fall(ent_list[i], self, &attack, 1); + } + } + self = weapself; +} + + + +/* Called when boss dies. */ +void kill_all_enemies() +{ + int i; + s_attack attack = emptyattack; + entity *tmpself = NULL; + + attack.attack_type = ATK_BOSS_DEATH; + attack.dropv = default_model_dropv; + + /* + * Downstream damage functions use + * self global, so we populate it with + * entity cursor in each iteration of + * loop below. Keep current value here + * so we can restore when loop is finished. + */ + tmpself = self; + + /* + * Every valid enemy type with a takedamage + * function takes its current health in damage. + */ + for(i = 0; i < ent_max; i++) + { + if( ent_list[i]->exists + && ent_list[i]->energy_state.health_current > 0 + && (ent_list[i]->modeldata.type & TYPE_ENEMY) + && ent_list[i]->takedamage) + { + self = ent_list[i]; + + attack.attack_force = self->energy_state.health_current; + self->takedamage(self, self, &attack, 0, self->defense); + } + } + + self = tmpself; +} + + + +void smart_bomb(entity *e, s_attack *attack) { // New method for smartbombs + + int i, hit = 0; + entity *tmpself = NULL; + + tmpself = self; + for(i = 0; i < ent_max; i++) { + + if( ent_list[i]->exists + && ent_list[i] != e + && ent_list[i]->energy_state.health_current > 0 + && faction_check_is_hostile(e, ent_list[i])) { + + self = ent_list[i]; + hit = 1; // for nocost, if the bomb doesn't hit, it won't cost energy + + lasthit.attack = attack; + lasthit.attacker = e; + lasthit.collision_attack = NULL; + lasthit.confirm = 1; + lasthit.detect_body = NULL; + lasthit.detect_collision_attack = NULL; + lasthit.detect_collision_body = NULL; + lasthit.position.x = self->position.x; + lasthit.position.y = self->position.y; + lasthit.position.z = self->position.z; + lasthit.target = self; + + if(self->takedamage) { + + const s_defense* defense_object = defense_find_current_object(self, NULL, attack->attack_type); + + //attack.attack_drop = self->modeldata.knockdowncount+1; + self->takedamage(self, e, attack, 0, defense_object); + + } else { + self->energy_state.health_current -= attack->attack_force; + + if(self->energy_state.health_current <= 0) { + kill_entity(self, KILL_ENTITY_TRIGGER_SMARTBOMB); + } + } + + spawn_attack_flash(self, attack, attack->flash.model_hit, self->modeldata.flash.model_block); + + } + } + + if(nocost && hit && smartbomber) { // don't use e, because this can be an item-bomb + self = smartbomber; + + if(check_energy(ENERGY_TYPE_MP, ANI_SPECIAL)) { + self->energy_state.mp_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } else { + self->energy_state.health_current -= self->modeldata.animation[ANI_SPECIAL]->energy_cost.cost; + } + + } + + self = tmpself; + +} + + +//////////////////////////////// + +void anything_walk() +{ + if(self->position.x < advancex - 80 || self->position.x > advancex + (videomodes.hRes + 80)) + { + kill_entity(self, KILL_ENTITY_TRIGGER_WALK_OUT_OF_BOUNDS); + return; + } + //self->position.x += self->velocity.x; +} + +// Caskey, Damon V. +// 2019-12-18 +// +// Apply color set adjustment to entity, possibly +// based on a parent/owner depending on color set +// adjustment setting. +void apply_color_set_adjust(entity* ent, entity* parent, e_color_adjust adjustment) +{ + int i = 0; // Loop cursor. + + // Apply color setting. + switch (adjustment) + { + default: + + // Use adjustment value as color set index. + ent_set_colourmap(ent, adjustment); + break; + + case COLORSET_ADJUST_NONE: + + // Do nothing. + break; + + case COLORSET_ADJUST_PARENT_INDEX: + + // Locate parent's current color set index. Then + // set our color set by that index. + + for (i = 0; i < parent->modeldata.maps_loaded; i++) + { + if (parent->colourmap == parent->modeldata.colourmap[i]) + { + ent_set_colourmap(ent, i); + break; + } + } + break; + + case COLORSET_ADJUST_PARENT_TABLE: + + // Use parent's color table. + + ent->colourmap = parent->colourmap; + break; + + } +} + +/* +* Caskey, Damon V. +* +* 2019-12-22 +* Copy the faction settings from a +* source entity. +*/ +void faction_copy_all(entity* dest, entity* source) +{ + faction_copy_data(&dest->modeldata.faction, &source->faction); + faction_copy_data(&dest->faction, &source->faction); +} + +/* +* Caskey, Damon V. +* 2023-02-28 +* +* Copy faction properties if +* conditions pass. +*/ +void faction_copy_data(s_faction* dest, s_faction* source) { + + /* + * The destination is always a faction + * object, regardless of which faction + * properties qualify for copying. + */ + dest->object_type = OBJECT_TYPE_FACTION; + + /* + * Faction groups. Only copy if source or + * destination has a value and does not + * have the no copy flag. + * + * I'd rather be able to copy empty values + * as well, but that requires inserting + * default values in several differnt + * locations around the code. Better to + * keep it here and maintainable. + */ + + if (source->damage_direct != FACTION_GROUP_NONE + && !(source->damage_direct & FACTION_GROUP_NO_COPY) + && !(dest->damage_direct & FACTION_GROUP_NO_COPY)) { + dest->damage_direct = source->damage_direct; + } + + if (source->damage_indirect != FACTION_GROUP_NONE + && !(source->damage_indirect & FACTION_GROUP_NO_COPY) + && !(dest->damage_indirect & FACTION_GROUP_NO_COPY)) { + dest->damage_indirect = source->damage_indirect; + } + + if (source->hostile != FACTION_GROUP_NONE + && !(source->hostile & FACTION_GROUP_NO_COPY) + && !(dest->hostile & FACTION_GROUP_NO_COPY)) { + dest->hostile = source->hostile; + } + + if (source->member != FACTION_GROUP_NONE + && !(source->member & FACTION_GROUP_NO_COPY) + && !(dest->member & FACTION_GROUP_NO_COPY)) { + dest->member = source->member; + } + + /* + * Types. Same rule as faction groups. + */ + + if (source->type_damage_direct != TYPE_UNDECLARED + && !(source->type_damage_direct & TYPE_NO_COPY) + && !(dest->type_damage_direct & TYPE_NO_COPY)) { + + dest->type_damage_direct = source->type_damage_direct; + } + + if (source->type_damage_indirect != TYPE_UNDECLARED + && !(source->type_damage_indirect & TYPE_NO_COPY) + && !(dest->type_damage_indirect & TYPE_NO_COPY)) { + dest->type_damage_indirect = source->type_damage_indirect; + } + + if (source->type_hostile != TYPE_UNDECLARED + && !(source->type_hostile & TYPE_NO_COPY) + && !(dest->type_hostile & TYPE_NO_COPY)) { + dest->type_hostile = source->type_hostile; + } +} + +/* +* Caskey, Damon V. +* 2022-05-24 +* +* Read a text argument for model copy flag +* and output appropriate constant. +*/ +faction_group_mask_t faction_get_flag_from_string(const char* value) { + + const struct { + const char* text_name; + faction_group_mask_t flag; + + } flag_lookup_table[] = { + { "none", FACTION_GROUP_NONE }, + { "all", FACTION_GROUP_ALL_NORMAL }, + {"all0", FACTION_GROUP_ALL_NORMAL_0 }, + {"all1", FACTION_GROUP_ALL_NORMAL_1 }, + { "neutral", FACTION_GROUP_NEUTRAL }, + { "no_copy", FACTION_GROUP_NO_COPY }, + { "player_verses", FACTION_GROUP_PLAYER_VERSES }, + { "type_exclusive", FACTION_GROUP_TYPE_EXCLUSIVE }, + { "type_inclusive", FACTION_GROUP_TYPE_INCLUSIVE }, + { "a", FACTION_GROUP_A }, + { "b", FACTION_GROUP_B }, + { "c", FACTION_GROUP_C }, + { "d", FACTION_GROUP_D }, + { "e", FACTION_GROUP_E }, + { "f", FACTION_GROUP_F }, + { "g", FACTION_GROUP_G }, + { "h", FACTION_GROUP_H }, + { "i", FACTION_GROUP_I }, + { "j", FACTION_GROUP_J }, + { "k", FACTION_GROUP_K }, + { "l", FACTION_GROUP_L }, + { "m", FACTION_GROUP_M }, + { "n", FACTION_GROUP_N }, + { "o", FACTION_GROUP_O }, + { "p", FACTION_GROUP_P }, + { "q", FACTION_GROUP_Q }, + { "r", FACTION_GROUP_R }, + { "s", FACTION_GROUP_S }, + { "t", FACTION_GROUP_T }, + { "u", FACTION_GROUP_U }, + { "v", FACTION_GROUP_V }, + { "w", FACTION_GROUP_W }, + { "x", FACTION_GROUP_X }, + { "y", FACTION_GROUP_Y }, + { "z", FACTION_GROUP_Z }, + { "a1", FACTION_GROUP_A1 }, + { "b1", FACTION_GROUP_B1 }, + { "c1", FACTION_GROUP_C1 }, + { "d1", FACTION_GROUP_D1 }, + { "e1", FACTION_GROUP_E1 }, + { "f1", FACTION_GROUP_F1 }, + { "g1", FACTION_GROUP_G1 }, + { "h1", FACTION_GROUP_H1 }, + { "i1", FACTION_GROUP_I1 }, + { "j1", FACTION_GROUP_J1 }, + { "k1", FACTION_GROUP_K1 }, + { "l1", FACTION_GROUP_L1 }, + { "m1", FACTION_GROUP_M1 }, + { "n1", FACTION_GROUP_N1 }, + { "o1", FACTION_GROUP_O1 }, + { "p1", FACTION_GROUP_P1 }, + { "q1", FACTION_GROUP_Q1 }, + { "r1", FACTION_GROUP_R1 }, + { "s1", FACTION_GROUP_S1 }, + { "t1", FACTION_GROUP_T1 }, + { "u1", FACTION_GROUP_U1 }, + { "v1", FACTION_GROUP_V1 }, + { "w1", FACTION_GROUP_W1 }, + { "x1", FACTION_GROUP_X1 }, + { "y1", FACTION_GROUP_Y1 }, + { "z1", FACTION_GROUP_Z1 } + }; + + const size_t list_count = sizeof(flag_lookup_table) / sizeof(*flag_lookup_table); + + for (size_t i = 0; i < list_count; i++) { + if (stricmp(value, flag_lookup_table[i].text_name) == 0) { + return flag_lookup_table[i].flag; + } + } + + /* + * Couldn't find a match in the lookup + * table. Send alert to log and return + * none flag. + */ + + printf("\n\n Unknown faction (%s). \n", value); + return FACTION_GROUP_NONE; +} + +/* +- Caskey, Damon V. +- 2026-08-11 +- +- Read faction arguments directly from the source line and + combine their corresponding group flags. +*/ +faction_group_mask_t faction_get_flags_from_command_line( + const char* command_line +) +{ + const char* value; + s_command_argument_reader reader; + faction_group_mask_t result = FACTION_GROUP_NONE; + + command_argument_reader_initialize(&reader, command_line, 1); + + while(command_argument_reader_next(&reader, &value)) { + result |= faction_get_flag_from_string(value); + } + + return result; +} + +/* +* Caskey, Damon V. +* 2023-02-26 +* +* Return true if acting entity can +* hit target entity with attacks. +*/ +bool faction_check_can_damage(entity* acting_entity, entity* target_entity, const bool indirect) { + + e_entity_type acting_type; + e_entity_type target_type; + faction_group_mask_t acting_faction; + faction_group_mask_t acting_faction_filtered; + faction_group_mask_t target_faction; + + if (!acting_entity || !target_entity) { + return false; + } + + /* + * We will use different acting faction property + * and type if the indirect flag is set. + */ + + if (indirect) { + acting_faction = acting_entity->faction.damage_indirect; + acting_type = acting_entity->faction.type_damage_indirect; + + } else { + acting_faction = acting_entity->faction.damage_direct; + acting_type = acting_entity->faction.type_damage_direct; + } + + acting_faction_filtered = acting_faction; + + /* + * Remove special types. + */ + + acting_faction_filtered &= ~FACTION_GROUP_NO_CHECK; + acting_type &= ~TYPE_NO_CHECK; + + /* + * Check player interaction. + */ + + if (faction_check_player_verses(acting_entity, target_entity, acting_faction)) { + return false; + } + + target_type = target_entity->modeldata.type; + + /* + * If one of the acting factions is the + * type exclusive group, then we only + * check acting types vs. target type + * and ignore other factions. + */ + + if (acting_faction & FACTION_GROUP_TYPE_EXCLUSIVE) { + + if (acting_type & target_type) { + return true; + } else { + return false; + } + } + + /* + * Now we compare our acting faction(s) to the + * faction(s) target is a member of for any match. + */ + + target_faction = target_entity->faction.member; + + if (acting_faction_filtered & target_faction) { + /* + * If one of the acting factions is + * the tye inclusing group, then we + * also check acting types vs the + * target's type. + */ + + if (acting_faction & FACTION_GROUP_TYPE_INCLUSIVE) { + + if (acting_type & target_type) { + return true; + + } else { + return false; + } + } + + return true; + } + + return false; +} + +/* +* Caskey, Damon V. +* 2023-02-26 +* +* Return true if acting entity is +* hostile toward target entity. +*/ +int faction_check_is_hostile(entity* acting_entity, entity* target_entity) +{ + //printf("\n\n faction_check_is_hostile(%p, %p)", acting_entity, target_entity); + + e_entity_type acting_type; + e_entity_type target_type; + faction_group_mask_t acting_faction; + faction_group_mask_t filtered_faction; + faction_group_mask_t target_faction; + + if (!acting_entity || !target_entity) + { + return 0; + } + + //printf("\n\t acting_entity->name: %s, target_entity->name: %s", acting_entity->name, target_entity->name); + + acting_faction = acting_entity->faction.hostile; + filtered_faction = acting_faction; + acting_type = acting_entity->faction.type_hostile; + target_type = target_entity->modeldata.type; + + //printf("\n\t acting_faction: %d", acting_faction); + //printf("\n\t acting_type: %d", acting_type); + //printf("\n\t target_type: %d", target_type); + + /* + * Remove special types. + */ + + filtered_faction &= ~FACTION_GROUP_NO_CHECK; + acting_type &= ~TYPE_NO_CHECK; + + //printf("\n\t acting_faction: %d", acting_faction); + //printf("\n\t acting_type: %d", acting_type); + + /* + * Check player interaction. + */ + + if (faction_check_player_verses(acting_entity, target_entity, acting_faction)) + { + //printf("\n\t PLayer Vs. Return 0"); + + return 0; + } + + /* + * If one of the acting factions is the + * type exclusive group, then we only + * check acting types vs. target type + * and ignore other factions. + */ + + if (acting_faction & FACTION_GROUP_TYPE_EXCLUSIVE) + { + //printf("\n\t\t acting_faction & FACTION_GROUP_TYPE_EXCLUSIVE: %d", acting_faction & FACTION_GROUP_TYPE_EXCLUSIVE); + + if (acting_type & target_type) + { + //printf("\n\t\t acting_type & target_type: %d (yes)", acting_type & target_type); + + return 1; + } + else + { + printf("\n\t\t acting_type & target_type: %d (no)", acting_type & target_type); + + return 0; + } + } + + /* + * Now we compare our acting faction(s) to the + * faction(s) target is a member of for any match. + */ + + target_faction = target_entity->faction.member; + + if (filtered_faction & target_faction) + { + /* + * If one of the acting factions is + * the tye inclusing group, then we + * also check acting types vs the + * target's type. + */ + + if (acting_faction & FACTION_GROUP_TYPE_INCLUSIVE) + { + //printf("\n\t\t acting_faction & FACTION_GROUP_TYPE_INCLUSIVE: %d", acting_faction & FACTION_GROUP_TYPE_INCLUSIVE); + + if (acting_type & target_type) + { + //printf("\n\t\t acting_type & target_type: %d (yes)", acting_type & target_type); + + return 1; + } + else + { + //printf("\n\t\t acting_type & target_type: %d (no)", acting_type & target_type); + + return 0; + } + } + + return 1; + } + + //printf("\n\t No match."); + + return 0; +} + +/* +* Caskey, Damon V. +* 2023-02-28 +* +* Returs 1 if players are not allowed +* vs. interaction on a given faction +* property. Ex. Hostile, direct damage, +* indirect damage. +*/ +int faction_check_player_verses(entity* acting_entity, entity* target_entity, faction_group_mask_t faction_property) +{ + if (!acting_entity || !target_entity) + { + return 0; + } + + /* + * Both entites must be players. + */ + + if (!(acting_entity->modeldata.type & TYPE_PLAYER)) + { + return 0; + } + + if (!(target_entity->modeldata.type & TYPE_PLAYER)) + { + return 0; + } + + /* + * In faction group to override friendly + * fire settings? + */ + + if (faction_property & FACTION_GROUP_PLAYER_VERSES) + { + return 0; + } + + /* + * If VS. mode turned off in options + * or level nohit is enabled, then + * we are "friendly" toward target. + */ + + if (savedata.mode) + { + return 1; + } + + if (level && level->nohit == DAMAGE_FROM_PLAYER_OFF) + { + return 1; + } + + return 0; +} + +/* +* Caskey, Damon V. +* 2019-12-18 (refactor) +* +* Original author unknown (Tails?). Refactored to remove the ever-growing parameter list +* and consolidate projectile spawn logic. Spawns an entity and fires it as a projectile. +* Model used for spawn is determined by a hierarchy of legacy parameters (see detailed +* comments in function). +* +* Returns pointer of spawned projectile, or NULL on fail. +*/ +entity *knife_spawn(entity *parent, s_projectile *projectile) +{ + entity *projectile_entity = NULL; + + s_axis_principal_float position; + e_direction direction = DIRECTION_RIGHT; + e_projectile_prime projectile_prime = PROJECTILE_PRIME_NONE; + + /* If there's no projectile or parent setting, exit now. */ + if (!projectile || !parent) + { + return NULL; + } + + position.x = parent->position.x; + position.y = parent->position.y + projectile->position.y; + position.z = parent->position.z + projectile->position.z; + + /* + * Now we need to spawn the projectile entity. There are many haphazard legacy + * additions to sift through, so we need to prioritize which model to spawn. + * In general, we work back from most granular to most global. + * + * From highest to lowest priority: + * + * 1. Projectile Knife property. + * 2. Projectile Flash property. + * 3. Using weapon with model Project property. + * 4. Model Knife property. + * 5. Model Pshotno property. + * 6. Global hardcode model name, "Knife". + * 7. Global hardcode model name, "Shot". + */ + if (projectile->knife >= 0) + { + projectile_entity = spawn(position.x, position.z, position.y, direction, NULL, projectile->knife, NULL); + + projectile_prime |= PROJECTILE_PRIME_BASE_Y; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_MOVING; + projectile_prime |= PROJECTILE_PRIME_SOURCE_PROJ_KNIFE; + } + else if (projectile->flash >= 0) + { + projectile_entity = spawn(position.x, position.z, position.y, direction, NULL, projectile->flash, NULL); + + projectile_prime |= PROJECTILE_PRIME_BASE_FLOOR; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_STATIONARY; + projectile_prime |= PROJECTILE_PRIME_SOURCE_PROJ_FLASH; + } + else if (parent->weapent && parent->weapent->modeldata.project >= 0) + { + projectile_entity = spawn(position.x, position.z, position.y, direction, NULL, parent->weapent->modeldata.project, NULL); + + projectile_prime |= PROJECTILE_PRIME_BASE_Y; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_MOVING; + projectile_prime |= PROJECTILE_PRIME_SOURCE_WEAPON_PROJECTILE; + } + else if (parent->modeldata.knife >= 0) + { + projectile_entity = spawn(position.x, position.z, position.y, direction, NULL, parent->modeldata.knife, NULL); + + projectile_prime |= PROJECTILE_PRIME_BASE_Y; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_MOVING; + projectile_prime |= PROJECTILE_PRIME_SOURCE_MODEL_KNIFE; + } + else if (parent->modeldata.pshotno >= 0) + { + projectile_entity = spawn(position.x, position.z, position.y, direction, NULL, parent->modeldata.pshotno, NULL); + + projectile_prime |= PROJECTILE_PRIME_BASE_FLOOR; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_STATIONARY; + projectile_prime |= PROJECTILE_PRIME_SOURCE_MODEL_PSHOTNO; + } + else + { + /* + * No model indexes set, so let's fall back to + * the legacy hardcode model names. + * + * Try hardcode "knife" first. If that fails, we'll try + * "shot" next. + */ + projectile_entity = spawn(position.x, position.z, position.y, direction, "Knife", MODEL_INDEX_NONE, NULL); + + if (projectile_entity) + { + /* + * Hardcode knife spawn successful. Mark as legacy knife + * and continue. + */ + projectile_prime |= PROJECTILE_PRIME_SOURCE_GLOBAL_KNIFE; + } + else + { + /* Try "shot". */ + projectile_entity = spawn(position.x, position.z, position.y, direction, "Shot", MODEL_INDEX_NONE, NULL); + + projectile_prime |= PROJECTILE_PRIME_SOURCE_GLOBAL_SHOT; + } + + projectile_prime |= PROJECTILE_PRIME_BASE_Y; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_MOVING; + } + + /* If we never successfully spawned a projectile entity, exit. */ + if(!projectile_entity) + { + return NULL; + } + + /* + * Get result of direction adjustment. We need this before we can handle + * positioning on X axis. + */ + direction = direction_get_adjustment_result(projectile_entity, parent, projectile->direction_adjust); + + /* + * Let's set up the spawn position. Reverse X when + * parent faces left. + * + * Apply default X position if creator did not give + * us a value. + */ + + if (projectile->position.x == PROJECTILE_LEGACY_COMPATABILITY_POSITION_X) + { + projectile->position.x = PROJECTILE_DEFAULT_POSITION_X; + } + + if (direction == DIRECTION_RIGHT) + { + position.x = parent->position.x + projectile->position.x; + } + else + { + position.x = parent->position.x - projectile->position.x; + } + + projectile_entity->direction = direction; + projectile_entity->position.x = position.x; + + /* + * Player projectiles are always type "shot", unless + * using the current PROJECTILE type. + */ + if (!(projectile_entity->modeldata.type & TYPE_PROJECTILE)) + { + if (parent->modeldata.type & TYPE_PLAYER) + { + projectile_entity->modeldata.type = TYPE_SHOT; + } + else + { + projectile_entity->modeldata.type = parent->modeldata.type; + } + } + + /* Apply projectile prime flags. */ + projectile_entity->projectile_prime = projectile_prime; + + /* + * Copy offense values from parent offense settings + * to projectile enity if requested. + */ + if (projectile->offense == PROJECTILE_OFFENSE_PARENT) + { + memcpy(projectile_entity->offense, parent->offense, sizeof(*projectile_entity->offense) * max_attack_types); + } + + /* Apply color adjustment. */ + apply_color_set_adjust(projectile_entity, parent, projectile->color_set_adjust); + + + /* + * If no move, then all speed is 0. Otherwise check for use of + * projectile velocity. If player supplied any value other + * than MODEL_SPEED_NONE, we use player's value. If not, fall + * back to default values. This is a bit overcomplicated, but + * allows players to supply a 0 velocity value on any axis. + */ + if (projectile_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + projectile_entity->modeldata.speed.x = 0; + projectile_entity->modeldata.speed.y = 0; + projectile_entity->modeldata.speed.z = 0; + } + else + { + /* Copy speed values from animation projectile settings to model. */ + projectile->velocity = projectile_entity->modeldata.speed; + } + + /* Set up behavior flags. */ + projectile_entity->spawntype = SPAWN_TYPE_PROJECTILE_NORMAL; + projectile_entity->owner = parent; + projectile_entity->nograb = 1; + projectile_entity->attacking = ATTACKING_ACTIVE; + projectile_entity->think = common_think; + projectile_entity->nextthink = _time + 1; + projectile_entity->trymove = NULL; + projectile_entity->takedamage = arrow_takedamage; + projectile_entity->takeaction = NULL; + projectile_entity->modeldata.aimove = AIMOVE1_ARROW; + projectile_entity->speedmul = 2; + projectile_entity->modeldata.aiattack = AIATTACK1_NOATTACK; + + if(!projectile_entity->modeldata.offscreenkill) + { + projectile_entity->modeldata.offscreenkill = 200; //default value + } + + /* Kill self when we hit. */ + if (projectile_entity->modeldata.remove_config & REMOVE_CONFIG_HIT) + { + projectile_entity->autokill |= AUTOKILL_ATTACK_HIT; + } + + /* Kill self when we finish animation. */ + if (projectile_entity->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + projectile_entity->autokill |= AUTOKILL_ANIMATION_COMPLETE; + } + + /* Is this a floor or flying projectile ? Set base accordingly. */ + if(projectile_entity->projectile_prime & PROJECTILE_PRIME_BASE_FLOOR) + { + projectile_entity->base = 0; + } + else + { + projectile_entity->base = position.y; + } + + /* + * Copy faction data from parent. + */ + + faction_copy_all(projectile_entity, parent); + + /* + * If player damage turned off, remove player type from + * hostile (so homing projectiles leave players alone) and + * from candamage. + */ + if((parent->modeldata.type & TYPE_PLAYER) && ((level && level->nohit == DAMAGE_FROM_PLAYER_OFF) || savedata.mode)) + { + projectile_entity->faction.type_hostile &= ~TYPE_PLAYER; + projectile_entity->faction.type_damage_direct &= ~TYPE_PLAYER; + } + + /* + * Set terrain and movement behavior flags. Legacy + * behavior wouldn't allow movement along Y axis + * without an arc, but we can't fix this without + * breaking compatability, so we'll need a different + * setup depending on what function creator used. + */ + + projectile_entity->modeldata.move_config_flags |= (MOVE_CONFIG_PROJECTILE_BASE_DIE | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL | MOVE_CONFIG_PROJECTILE_WALL_BOUNCE); + projectile_entity->modeldata.move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + + if (projectile_entity->projectile_prime & PROJECTILE_PRIME_INITIALIZE_LEGACY_PROJECTILE_FUNCTION) + { + projectile_entity->modeldata.move_config_flags |= MOVE_CONFIG_SUBJECT_TO_GRAVITY; + } + else + { + projectile_entity->modeldata.move_config_flags &= ~MOVE_CONFIG_SUBJECT_TO_GRAVITY; + } + + /* Execute the projectile's on spawn event. */ + execute_onspawn_script(projectile_entity); + + return projectile_entity; +} + +void bomb_explode() +{ + if(self->animating) + { + return; + } + kill_entity(self, KILL_ENTITY_TRIGGER_BOMB_EXPLODE_ANIMATION_COMPLETE); +} + +/* +* Caskey, Damon V. +* 2019-12-22 (refactor) +* +* Original author unknown (Tails?). Refactored to remove the ever-growing parameter list +* and consolidate projectile spawn logic. Spawns an entity and fires it as a bomb projectile. +* Model used for spawn is determined by a hierarchy of legacy parameters (see detailed +* comments in function). +* +* Returns pointer of spawned projectile, or NULL on fail. +*/ +entity *bomb_spawn(entity *parent, s_projectile *projectile) +{ + entity* ent = NULL; + s_axis_principal_float position; + e_direction direction = DIRECTION_RIGHT; + e_projectile_prime projectile_prime = PROJECTILE_PRIME_NONE; + + // If there's no projectile or parent setting, exit now. + if (!projectile || !parent) + { + return NULL; + } + + position.x = parent->position.x; + position.y = parent->position.y + projectile->position.y; + position.z = parent->position.z + projectile->position.z; + + /* + * Now we need to spawn the projectile entity. There are many haphazard legacy + * additions to sift through, so we need to prioritize which model to spawn. + * In general, we work back from most granular to most global. + * + * From highest to lowest priority: + * + * 1. Projectile Bomb property. + * 2. Using weapon with model bomb property. + * 3. Model bomb property. + */ + + if(projectile->bomb >= 0) + { + ent = spawn(position.x, position.z, position.y, direction, NULL, projectile->bomb, NULL); + + projectile_prime |= PROJECTILE_PRIME_SOURCE_PROJ_BOMB; + } + else if (self->weapent && self->weapent->modeldata.subtype == SUBTYPE_PROJECTILE && self->weapent->modeldata.project >= 0) + { + ent = spawn(position.x, position.z, position.y, direction, NULL, self->weapent->modeldata.project, NULL); + + projectile_prime |= PROJECTILE_PRIME_SOURCE_WEAPON_PROJECTILE; + } + else if(self->modeldata.bomb >= 0) + { + ent = spawn(position.x, position.z, position.y, direction, NULL, self->modeldata.bomb, NULL); + + projectile_prime |= PROJECTILE_PRIME_SOURCE_MODEL_BOMB; + } + + projectile_prime |= PROJECTILE_PRIME_BASE_FLOOR; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_MOVING; + + // If we never successfully spawned a projectile entity, exit. + if(!ent) + { + return NULL; + } + + /* + * Get result of direction adjustment. We need this before we can handle + * positioning on X axis. + */ + direction = direction_get_adjustment_result(ent, parent, projectile->direction_adjust); + + /* + * Let's set up the spawn position. Reverse X when + * parent faces left. + * + * Apply default X position if creator did not give + * us a value. + */ + + if (projectile->position.x == PROJECTILE_LEGACY_COMPATABILITY_POSITION_X) + { + projectile->position.x = PROJECTILE_DEFAULT_POSITION_X; + } + + if (direction == DIRECTION_RIGHT) + { + position.x = parent->position.x + projectile->position.x; + } + else + { + position.x = parent->position.x - projectile->position.x; + } + + ent->direction = direction; + ent->position.x = position.x; + + + ent->projectile_prime = projectile_prime; + + /* + * If no move, then all speed is 0. Otherwise check for use of + * projectile velocity. If player supplied any value other + * than MODEL_SPEED_NONE, we use player's value. If not, fall + * back to default values. This is a bit overcomplicated, but + * allows players to supply a 0 velocity value on any axis. + */ + + if (ent->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + ent->modeldata.speed.x = 0; + ent->modeldata.speed.y = 0; + ent->modeldata.speed.z = 0; + } + else + { + // Copy speed values from animation projectile settings to model. + projectile->velocity.x = ent->modeldata.speed.x; + } + + /* + * Toss the bomb entity in an arc. + * + * We want to handle legacy behavior (use projectile jumpheight + * for Y toss velocity), allow author to apply a 0 value for Y + * velocity, and use the same velocity structure members for bomb + * and knife projectiles. The last part is an extra challenge because + * the default velocity needs for knife and bomb are not compatible. + * To handle all of this this we will set the velocity.y member to + * MODEL_SPEED_NONE specfically when a bomb projectile is requested + * by the Throwframe command or "bomb" type from legacy script function + * projectile(). If the author does not modify this value, we know + * to fall back to legacy behavior and use the projectile entity's + * model jumpheight. + * + * If the value is anything other than MODEL_SPEED_NONE, then we know + * the author requested a specific velocity (including 0) and will + * use author value instead of model jumpheight. + */ + + if (projectile->velocity.y == MODEL_SPEED_NONE) + { + toss(ent, ent->modeldata.jumpheight); + } + else + { + toss(ent, projectile->velocity.y); + } + + /* Apply color adjustment. */ + apply_color_set_adjust(ent, parent, projectile->color_set_adjust); + + ent->spawntype = SPAWN_TYPE_PROJECTILE_BOMB; + ent->attacking = ATTACKING_ACTIVE; + ent->owner = parent; + ent->nograb = 1; + ent->toexplode |= (EXPLODE_PREPARE_TOUCH | EXPLODE_PREPARE_GROUND); + + ent->think = common_think; + ent->nextthink = _time + 1; + ent->trymove = NULL; + ent->takeaction = NULL; + ent->modeldata.aimove = AIMOVE1_BOMB; + ent->modeldata.aiattack = AIATTACK1_NOATTACK; + ent->takedamage = common_takedamage; + ent->autokill &= ~AUTOKILL_ATTACK_HIT; + + if (ent->modeldata.move_config_flags & MOVE_CONFIG_NO_MOVE) + { + ent->autokill |= AUTOKILL_ANIMATION_COMPLETE; + } + + ent->speedmul = 2; + + /* + * Copy faction data. + */ + + faction_copy_all(ent, parent); + + ent->modeldata.move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + ent->modeldata.move_config_flags |= (MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_PROJECTILE_BASE_DIE | MOVE_CONFIG_PROJECTILE_WALL_BOUNCE | MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL); + + // Execute the projectile's on spawn event. + execute_onspawn_script(ent); + + return ent; +} + +// Spawn 3 stars +// +// Caskey, Damon V. +// 2019-12-17 +// +// Spawn three "star" projectiles. Meant for Eiji enemies in +// original Beats of Rage, who would jump and throw three star +// shuriken diagonally downward at players. Original author +// Roel, but modified several times by unknown parties. Refactored +// by DC 2019-12-17 to work with current projectile system. +// Obviously, we need this for backward compatibility with legacy +// modules, but otherwise script is the best choice to handle +// multiple projectiles or any other sort of specialized +// projectile spawns. +// +// Return TRUE if stars spawned, FALSE on fail. +int star_spawn(entity *parent, s_projectile *projectile) +{ + const int MAX_STARS = 3; + + entity *ent = NULL; + int i = 0; + int index = MODEL_INDEX_NONE; + int first_sortid = 0; + + s_axis_principal_float position; + e_direction direction = DIRECTION_RIGHT; + e_projectile_prime projectile_prime = PROJECTILE_PRIME_NONE; + + // If there's no projectile or parent setting, exit now. + if (!projectile || !parent) + { + return FALSE; + } + + position.x = parent->position.x; + position.y = parent->position.y + projectile->position.y; + position.z = parent->position.z + projectile->position.z; + + // Same concept as knife spawn. Look for model to spawn. + // 1. Animation projectile. + // 2. Weapon model projectile. + // 3. Base model projectile. + // 4. Legacy default. + if(projectile->star >= 0) + { + index = projectile->star; + + projectile_prime |= PROJECTILE_PRIME_SOURCE_PROJ_STAR; + } + else if (parent->weapent && parent->weapent->modeldata.subtype == SUBTYPE_PROJECTILE && parent->weapent->modeldata.project >= 0) + { + index = parent->weapent->modeldata.project; + + projectile_prime |= PROJECTILE_PRIME_SOURCE_WEAPON_PROJECTILE; + } + else if(parent->modeldata.star >= 0) + { + index = parent->modeldata.star; + + projectile_prime |= PROJECTILE_PRIME_SOURCE_MODEL_STAR; + } + else + { + index = get_cached_model_index("Star"); + + projectile_prime |= PROJECTILE_PRIME_SOURCE_GLOBAL_STAR; + } + + projectile_prime |= PROJECTILE_PRIME_BASE_Y; + projectile_prime |= PROJECTILE_PRIME_LAUNCH_MOVING; + + // Loop to max star count. + for(i = 0; i < MAX_STARS; i++) + { + // Spawn the star entity. If we fail, exit and return false. + ent = spawn(position.x, position.z, position.y, direction, NULL, index, NULL); + if(ent == NULL) + { + return 0; + } + + // Get result of direction adjustment. We need this before we can handle + // positioning on X axis. + direction = direction_get_adjustment_result(ent, parent, projectile->direction_adjust); + + /* + * Apply default X position if + * creator did not give us a value. + */ + + if (projectile->position.x == PROJECTILE_LEGACY_COMPATABILITY_POSITION_X) + { + projectile->position.x = PROJECTILE_DEFAULT_STAR_POSITION_X; + } + + // Reverse X when parent faces left. + if (direction == DIRECTION_RIGHT) + { + position.x = parent->position.x + projectile->position.x; + } + else + { + position.x = parent->position.x - projectile->position.x; + } + + ent->position.x = position.x; + ent->direction = direction; + + // 2019-12-17 DC - Not sure why we set attacking off, but + // leaving it here for legacy behavior. + parent->attacking = ATTACKING_NONE; + + // First star spawned sort id serves as a base for sorting. + // Then the next star's sort is the base - loop index. Each + // subsequent star appears one step further behind in + // sorting order. + // + // Ex: Base (first star) = 20, 20 - 1 = 19, 20 - 2 = 18. + if (i <= 0) + { + first_sortid = ent->sortid; + } + + ent->sortid = first_sortid - i; + + ent->takedamage = arrow_takedamage; + ent->owner = parent; + ent->attacking = ATTACKING_ACTIVE; + ent->nograb = 1; + + // Get the star velocity setting from animation. + ent->velocity.x = projectile->star_velocity[i]; + + // Reverse X velocity if direction is left. + if (direction == DIRECTION_LEFT) + { + ent->velocity.x = -ent->velocity.x; + } + + ent->think = common_think; + ent->nextthink = _time + 1; + ent->trymove = NULL; + ent->takeaction = NULL; + ent->modeldata.aimove = AIMOVE1_STAR; + ent->modeldata.aiattack = AIATTACK1_NOATTACK; + + // Remove star on contact. + if (ent->modeldata.remove_config & REMOVE_CONFIG_HIT) + { + ent->autokill |= AUTOKILL_ATTACK_HIT; + } + + ent->position.y = position.y; + ent->base = position.y; + ent->speedmul = 2; + + /* + * Copy faction data. + */ + + faction_copy_all(ent, parent); + + // Basic terrian property setup. + ent->modeldata.move_config_flags |= (MOVE_CONFIG_SUBJECT_TO_BASEMAP | MOVE_CONFIG_SUBJECT_TO_GRAVITY | MOVE_CONFIG_SUBJECT_TO_HOLE | MOVE_CONFIG_SUBJECT_TO_PLATFORM | MOVE_CONFIG_SUBJECT_TO_WALL); + ent->modeldata.move_config_flags &= ~MOVE_CONFIG_NO_ADJUST_BASE; + + ent->spawntype = SPAWN_TYPE_PROJECTILE_STAR; + ent->projectile_prime = projectile_prime; + + // Execute the projectile's on spawn event. + execute_onspawn_script(ent); + } + return TRUE; +} + + + +void steam_think() +{ + if(!self->animating) + { + kill_entity(self, KILL_ENTITY_TRIGGER_STEAM_ANIMATION_COMPLETE); + return; + } + + self->base += 1; + self->position.y = self->base; +} + + + +// for the "trap" type 7-1-2005 trap start +void trap_think() +{ + self->attacking = ATTACKING_ACTIVE; +} +// 7-1-2005 trap end + + + + +void steam_spawn(float x, float z, float a) +{ + entity *e = NULL; + + e = spawn(x, z, a, 0, "Steam", -1, NULL); + + if(e == NULL) + { + return; + } + + e->spawntype = SPAWN_TYPE_STEAM; + e->base = a; + e->modeldata.move_config_flags |= MOVE_CONFIG_NO_ADJUST_BASE; + e->think = steam_think; + + // Execute the steams's on spawn event. + execute_onspawn_script(e); +} + + + +void steamer_think() +{ + steam_spawn(self->position.x, self->position.z, self->position.y); + self->nextthink = _time + (global_config.game_speed / 10) + (rand32() & 31); +} + + + +void text_think() // New function so text can be displayed +{ + // wait to suicide + if(!self->animating) + { + kill_entity(self, KILL_ENTITY_TRIGGER_TEXT_ANIMATION_COMPLETE); + } +} + +//////////////////////////////// + +//homing arrow find its target +// type : target type +entity *homing_find_target(entity* acting_entity) +{ + int i; + int min; + int max; + + entity* target_entity = NULL; + entity* cursor_entity; + + //use the walk animation's range + if(validanim(acting_entity, ANI_WALK)) + { + min = acting_entity->modeldata.animation[ANI_WALK]->range.x.min; + max = acting_entity->modeldata.animation[ANI_WALK]->range.x.max; + } + else + { + min = 0; + max = 999; + } + + //find the 'nearest' one + for(i = 0; i < ent_max; i++) + { + cursor_entity = ent_list[i]; + + if(cursor_entity->exists && cursor_entity != acting_entity // cant target self + && cursor_entity != acting_entity->owner // Don't go after owner. + && faction_check_is_hostile(acting_entity, cursor_entity) + && diff(cursor_entity->position.x, acting_entity->position.x) + diff(cursor_entity->position.z, acting_entity->position.z) >= min + && diff(cursor_entity->position.x, acting_entity->position.x) + diff(cursor_entity->position.z, acting_entity->position.z) <= max + && cursor_entity->animation->vulnerable[cursor_entity->animpos] ) + { + if(!target_entity || diff(cursor_entity->position.x, acting_entity->position.x) + diff(cursor_entity->position.z, acting_entity->position.z) < diff(target_entity->position.x, acting_entity->position.x) + diff(target_entity->position.z, acting_entity->position.z)) + { + target_entity = cursor_entity; + } + } + } + + return target_entity; +} + + +void bike_crash() +{ + int i; + if(self->direction == DIRECTION_RIGHT) + { + self->velocity.x = 2; + } + else + { + self->velocity.x = -2; + } + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if (savedata.joyrumble[i]) control_rumble(i, 1, 100); + } + //if(self->position.x < advancex-100 || self->position.x > advancex+(videomodes.hRes+100)) kill_entity(self); +} + + + +int biker_takedamage(entity* target_entity, entity* attacking_entity, s_attack* attack_object, int fall_flag, const s_defense* defense_object) +{ + entity *driver = NULL; + + if(target_entity->death_state & DEATH_STATE_DEAD) + { + return 0; + } + // Fell in a hole + if(target_entity->position.y < PIT_DEPTH) + { + kill_entity(target_entity, KILL_ENTITY_TRIGGER_TAKE_DAMAGE_BIKER_PIT); + return 0; + } + if(attacking_entity != target_entity) + { + set_opponent(attacking_entity, target_entity); + } + + if(attack_object->no_pain) // don't drop driver until it is dead, because the attack has no pain effect + { + checkdamage(target_entity, attacking_entity, attack_object, defense_object); + if(target_entity->energy_state.health_current > 0) + { + return 1; // not dead yet + } + } + + check_backpain(attacking_entity, target_entity); + set_pain(target_entity, target_entity->last_damage_type, 1); + target_entity->attacking = ATTACKING_ACTIVE; + if(!target_entity->modeldata.offscreenkill) + { + target_entity->modeldata.offscreenkill = 100; + } + target_entity->think = bike_crash; + // well, this is the real entity, the driver who take the damage + if((driver = drop_driver(target_entity))) + { + driver->position.y = target_entity->position.y; + driver->drop = 1; + driver->direction = target_entity->direction; + if(driver->takedamage) + { + driver->takedamage(driver, attacking_entity, attack_object, fall_flag, defense_object); + } + else + { + driver->energy_state.health_current -= attack_object->attack_force; + } + } + target_entity->energy_state.health_current = 0; + checkdeath(target_entity); + return 1; +} + + + +void obstacle_fall() +{ + if(inair(self)) + { + return; + } + + self->velocity.x = self->velocity.z = 0; + if((!self->animating && validanim(self, ANI_DIE)) || !validanim(self, ANI_DIE)) + { + kill_entity(self, KILL_ENTITY_TRIGGER_OBSTACLE_FALL_NO_DEATH_ANIMATION); // Fixed so ANI_DIE can be used + } +} + + + +void obstacle_fly() // Now obstacles can fly when hit like on Simpsons/TMNT +{ + //self->position.x += self->velocity.x * 4; // Equivelant of speed 40 + if(self->position.x > advancex + (videomodes.hRes + 200) || self->position.x < advancex - 200) + { + kill_entity(self, KILL_ENTITY_TRIGGER_OBSTACLE_FLY_OUT_OF_BOUNDS); + } +} + + + +int obstacle_takedamage(entity* target_entity, entity* attacking_entity, s_attack* attack_object, int fall_flag, const s_defense* defense_object) +{ + if(target_entity->position.y <= PIT_DEPTH) + { + kill_entity(target_entity, KILL_ENTITY_TRIGGER_TAKE_DAMAGE_OBSTACLE_PIT); + return 0; + } + + set_opponent(attacking_entity, target_entity); + if(target_entity->opponent && (target_entity->opponent->modeldata.type & TYPE_PLAYER)) + { + if (savedata.joyrumble[target_entity->opponent->playerindex]) control_rumble(target_entity->opponent->playerindex, 1, 75); + } + + /* Calculate and apply HP damage. */ + checkdamage(target_entity, attacking_entity, attack_object, defense_object); + + target_entity->playerindex = attacking_entity->playerindex; // Added so points go to the correct player + addscore(attacking_entity->playerindex, attack_object->attack_force * target_entity->modeldata.multiple); // Points can now be given for hitting an obstacle + + if(target_entity->energy_state.health_current <= 0) + { + + checkdeath(target_entity); + + if(attacking_entity->position.x < target_entity->position.x) + { + target_entity->velocity.x = 1; + } + else + { + target_entity->velocity.x = -1; + } + + target_entity->attacking = ATTACKING_ACTIVE; // So obstacles can explode and hurt players/enemies + + if(target_entity->modeldata.subtype == SUBTYPE_FLYDIE) // Now obstacles can fly like on Simpsons/TMNT + { + target_entity->velocity.x *= 4; + target_entity->think = obstacle_fly; + ent_set_anim(target_entity, ANI_FALL, 0); + } + else + { + target_entity->think = obstacle_fall; + + if(validanim(target_entity, ANI_DIE)) + { + ent_set_anim(target_entity, ANI_DIE, 0); // LTB 1-13-05 Die before toss + } + else + { + toss(target_entity, target_entity->modeldata.jumpheight / 1.333); + ent_set_anim(target_entity, ANI_FALL, 0); + } + + if(target_entity->modeldata.death_config_flags & DEATH_CONFIG_MACRO_BLINK) + { + target_entity->blink = 1; + } + } + } + + target_entity->nextthink = _time + 1; + return 1; +} + +// Caskey, Damon V. +// 2018-04-27 +// +// Allocate memory and set entity properties that will be transfered +// to a dropped item. +void initialize_item_carry(entity *ent, s_spawn_entry *spawn_entry) +{ + // It's possible to call this from script, so if + // there is already memory for an item allocated + // here, clear it out to make sure we don't end up + // with any memory leaks. + if(ent->item_properties) + { + free(ent->item_properties); + ent->item_properties = NULL; + } + + // Allocate memory for the item. + ent->item_properties = malloc(sizeof(*ent->item_properties)); + memset(ent->item_properties, 0, sizeof(*ent->item_properties)); + + if(spawn_entry) + { + ent->item_properties->index = spawn_entry->item_properties.index; + + if(spawn_entry->item_properties.alias[0]) + { + strcpy(ent->item_properties->alias, spawn_entry->item_properties.alias); + } + + if(spawn_entry->item_properties.colorset) + { + ent->item_properties->colorset = spawn_entry->item_properties.colorset; + } + + if(spawn_entry->item_properties.health) + { + ent->item_properties->health = spawn_entry->item_properties.health; + } + ent->item_properties->player_count = spawn_entry->item_properties.player_count; + } +} + +entity *smartspawn(s_spawn_entry *props) // 7-1-2005 Entire section replaced with lord balls code +{ + entity *e = NULL; + entity *wp = NULL; + int playercount; + + if( props == NULL /* || + (level == NULL && + !(screen_status & (IN_SCREEN_SELECT | IN_SCREEN_TITLE | IN_SCREEN_HALL_OF_FAME | IN_SCREEN_GAME_OVER | IN_SCREEN_SHOW_COMPLETE | IN_SCREEN_ENGINE_CREDIT | IN_SCREEN_MENU | IN_SCREEN_GAME_START_MENU | IN_SCREEN_NEW_GAME_MENU | IN_SCREEN_LOAD_GAME_MENU | IN_SCREEN_OPTIONS_MENU | IN_SCREEN_CONTROL_OPTIONS_MENU | IN_SCREEN_SOUND_OPTIONS_MENU | IN_SCREEN_VIDEO_OPTIONS_MENU | IN_SCREEN_SYSTEM_OPTIONS_MENU)) && + currentScene)*/ + ) + { + return NULL; + } + + /* Spawn item based on number of active players. */ + if(props->spawnplayer_count >= (playercount = MAX(1, count_ents(TYPE_PLAYER)))) + { + if(props->boss && level != NULL) + { + --level->bossescount; + } + return NULL; + } + + if( level != NULL && ((level->scrolldir & SCROLL_INWARD) || (level->scrolldir & SCROLL_OUTWARD)) ) + { + e = spawn(props->position.x, props->position.z + advancey, props->position.y, props->flip, props->name, props->index, props->model); + } + else + { + e = spawn(props->position.x + advancex, props->position.z, props->position.y, props->flip, props->name, props->index, props->model); + } + + if(e == NULL) + { + return NULL; + } + + //printf("%s, (%f, %f, %f) - (%f, %f, %f)", props->name, props->position.x, props->position.z, props->position.y, e->position.x, e->position.z, e->position.y); + + // Alias? + if(props->alias[0]) + { + memset(e->name, 0, sizeof(e->name)); + strcpy(e->name, props->alias); + } + + // If we have item properties in spawn entry, then prepare a set of + // properties to pass on to the item when it is dropped. + if(props->item) + { + initialize_item_carry(e, props); + } + + faction_copy_data(&e->modeldata.faction, &props->faction); + faction_copy_data(&e->faction, &props->faction); + + if(props->spawntype) + { + e->spawntype = props->spawntype; //2011_03_23, Pass spawntype. + } + + if(props->health[playercount - 1] != 0) + { + e->energy_state.health_current = e->modeldata.health = props->health[playercount - 1]; + } + + if(props->mp != 0) + { + e->energy_state.mp_current = e->modeldata.mp = props->mp; + } + + if(props->score != 0) + { + e->modeldata.score = props->score; // Overwrite score if exists in the level's. txt file + } + if(props->multiple != 0) + { + e->modeldata.multiple = props->multiple; // Overwrite multiple if exists in the level's .txt file + } + + if(!e->map && props->colourmap) + { + ent_set_colourmap(e, props->colourmap); + } + + if(props->aggression) + { + e->modeldata.aggression = props->aggression; // Aggression can be changed with spawn points now + } + if(props->item_properties.alpha) + { + e->item_properties->alpha = props->item_properties.alpha; + } + if(props->alpha) + { + e->modeldata.alpha = props->alpha; + } + + // Feb 26, 2005 - Store the original map to be able to restore with dying flash + if(props->dying) + { + e->dying = props->dying; // Feb 26, 2005 - Used to define which colourmap is used for the dying flash + e->per1 = props->per1; // Mar 21, 2005 - Used to store custom percentages + e->per2 = props->per2; // Mar 21, 2005 - Used to store custom percentages + e->dying2 = props->dying2; // Dec 15, 2016 - Used to define which colourmap is used for the dying flash for per2 By White Dragon + } + + if(props->nolife) + { + e->modeldata.nolife = props->nolife; // Overwrite whether live is visible or not + } + e->boss = props->boss; + + if(props->boss && level != NULL && level->bossmusic[0]) + { + music(level->bossmusic, 1, level->bossmusic_offset); + } + + // give the entity a weapon item + if(props->weapon) + { + wp = spawn(e->position.x, ITEM_HIDE_POSITION_Z, 0, 0, props->weapon, props->weaponindex, props->weaponmodel); + if(wp) + { + //ent_default_init(wp); + set_weapon(e, wp->modeldata.weapon_properties.weapon_index, 0); + e->weapent = wp; + + e->weapent->spawntype = SPAWN_TYPE_WEAPON; + } + } + + // set entity type: player, enemy, npc... + if(props->entitytype) + { + e->modeldata.type = props->entitytype; + } + + // set a parent + if(props->parent) //->varlist->vars->vt != VT_EMPTY + { + e->parent = (entity *)props->parent; + } + + //ent_default_init(e); + execute_onspawn_script(e); + execute_spawn_script(props, e); + return e; +} // 7-1-2005 replaced section ends here + +int is_incam(float x, float z, float a, float threshold) +{ + if (level) + { + if ( x >= advancex+threshold && x <= advancex+videomodes.hRes-threshold && z-a >= advancey+threshold && z-a <= advancey+videomodes.vRes-4 ) { + if ( x >= scrollminx && x <= scrollmaxx+videomodes.hRes && z >= PLAYER_MIN_Z && z <= PLAYER_MAX_Z ) { + return 1; + } + } + } + + return 0; +} + +void spawnplayer(int index) +{ + s_spawn_entry p; + //s_model * model = NULL; + int wall; + int xc, zc, find = 0; + index &= 3; + +// model = find_model(player[index].name); +// if(model == NULL) return; + + memset(&p, 0, sizeof(p)); + p.name = player[index].name; + p.index = -1; + p.item_properties.index = -1; + p.weaponindex = -1; + p.colourmap = player[index].colourmap; + p.spawnplayer_count = -1; + p.spawntype = SPAWN_TYPE_PLAYER_MAIN; + + if(level->scrolldir & SCROLL_LEFT) + { + if(level->spawn && level->spawn[index].x) + { + p.position.x = (float)(videomodes.hRes - level->spawn[index].x); + } + else + { + p.position.x = (float)((videomodes.hRes - 20) - 30 * index); + } + } + else + { + if(level->spawn && level->spawn[index].x) + { + p.position.x = (float)(level->spawn[index].x); + } + else + { + p.position.x = (float)(20 + 30 * index); + } + p.flip = 1; + } + + if(level->spawn && level->spawn[index].z) + { + if(level->scrolldir & (SCROLL_INWARD | SCROLL_OUTWARD)) + { + p.position.z = (float)(level->spawn[index].z); + } + else + { + p.position.z = (float)(PLAYER_MIN_Z + level->spawn[index].z); + } + } + else if(PLAYER_MAX_Z - PLAYER_MIN_Z > 5) + { + p.position.z = (float)(PLAYER_MIN_Z + 5); + } + else + { + p.position.z = (float)PLAYER_MIN_Z; + } + + if(p.position.z < PLAYER_MIN_Z) + { + p.position.z = PLAYER_MIN_Z; + } + else if(p.position.z > PLAYER_MAX_Z) + { + p.position.z = PLAYER_MAX_Z; + } + + //////////////////checking holes/ walls/////////////////////////////////// + for(xc = 0; xc < videomodes.hRes / 4; xc++) + { + if(p.position.x >= videomodes.hRes) + { + p.position.x -= videomodes.hRes; + } + if(p.position.x < 0) + { + p.position.x += videomodes.hRes; + } + if(PLAYER_MIN_Z == PLAYER_MAX_Z) + { + wall = checkwall_index(advancex + p.position.x, p.position.z); + if(wall >= 0 && level->walls[wall].height < MAX_WALL_HEIGHT) + { + break; //found + } + if(checkhole_in(advancex + p.position.x, p.position.z, p.position.y) || (wall >= 0 && level->walls[wall].height >= MAX_WALL_HEIGHT)) + { + find = 0; + } + else + { + break; // found + } + } + else for(zc = 0; zc < (PLAYER_MAX_Z - PLAYER_MIN_Z) / 3; zc++, p.position.z += 3) + { + if(p.position.z > PLAYER_MAX_Z) + { + p.position.z -= PLAYER_MAX_Z - PLAYER_MIN_Z; + } + if(p.position.z < PLAYER_MIN_Z) + { + p.position.z += PLAYER_MAX_Z - PLAYER_MIN_Z; + } + wall = checkwall_index(advancex + p.position.x, p.position.z); + if(wall >= 0 && level->walls[wall].height < MAX_WALL_HEIGHT) + { + find = 1; + break; + } + else if(wall >= 0 && level->walls[wall].height >= MAX_WALL_HEIGHT) + { + continue; + } + if(checkhole_in(advancex + p.position.x, p.position.z, p.position.y)) + { + continue; + } + find = 1; + break; + } + if(find) + { + break; + } + p.position.x += (level->scrolldir & SCROLL_LEFT) ? -4 : 4; + } + /////////////////////////////////////////////////////////////////////// + currentspawnplayer = index; + player[index].ent = smartspawn(&p); + + if(player[index].ent == NULL) + { + borShutdown(1, "Fatal: unable to spawn player from '%s'\n", p.name); + } + + player[index].ent->playerindex = index; + + if(nomaxrushreset[4] >= 1) + { + player[index].ent->rush.max = nomaxrushreset[index]; + } + else + { + player[index].ent->rush.max = 0; + } + + memset( + player[index].command_input_history, + 0, + sizeof(player[index].command_input_history) + ); + + memset( + player[index].command_input_hold_start_time, + 0, + sizeof(player[index].command_input_hold_start_time) + ); + + memset( + player[index].command_input_hold_trigger_time, + 0, + sizeof(player[index].command_input_hold_trigger_time) + ); + + player[index].command_input_hold_start_valid = 0; + player[index].command_input_hold_trigger_valid = 0; + player[index].command_input_count = 0; + player[index].command_input_index = 0; + + if(player[index].spawnhealth) + { + player[index].ent->energy_state.health_current = player[index].spawnhealth + 5; + } + if(player[index].ent->energy_state.health_current > player[index].ent->modeldata.health) + { + player[index].ent->energy_state.health_current = player[index].ent->modeldata.health; + } + + //mp little recorver after a level by tails + if(player[index].spawnmp) + { + player[index].ent->energy_state.mp_current = player[index].spawnmp + 2; + } + if(player[index].ent->energy_state.mp_current > player[index].ent->modeldata.mp) + { + player[index].ent->energy_state.mp_current = player[index].ent->modeldata.mp; + } + + if(player[index].weapnum) + { + set_weapon(player[index].ent, player[index].weapnum, 0); + } + else + { + set_weapon(player[index].ent, level->setweap, 0); + } +} + +int no_player_alive_to_join() +{ + int no_alive_players = 0; + int i; + for(i = 0; i < MAX_PLAYERS; i++) + { + if( ((!player[i].ent || player[i].lives <= 0 || (player[i].lives <= 1 && player[i].ent->energy_state.health_current <= 0)) && + ((noshare && player[i].credits <= 0) || (!noshare && credits <= 0))) + ) + { + ++no_alive_players; + } + } + no_alive_players = (no_alive_players >= MAX_PLAYERS) ? 1 : 0; + + return no_alive_players; +} + +void kill_all_players_by_timeover() +{ + int i; + s_attack attack_timeover = emptyattack; + s_attack attack_lose = emptyattack; + const s_defense* defense_object = NULL; + + attack_timeover.attack_type = ATK_TIMEOVER; + attack_timeover.dropv.y = default_model_dropv.y; + attack_timeover.dropv.x = default_model_dropv.x; + attack_timeover.dropv.z = default_model_dropv.z; + + attack_lose.attack_type = ATK_LOSE; + + + endgame = 1; + for(i = 0; i < MAX_PLAYERS; i++) + { + entity* tmp = self; + self = player[i].ent; + if(self && !validanim(self, ANI_LOSE)) + { + endgame = 0; + attack_timeover.attack_force = self->energy_state.health_current; + + defense_object = defense_find_current_object(self, NULL, attack_timeover.attack_type); + + self->takedamage(self, self, &attack_timeover, 0, defense_object); + } + else if(self) + { + endgame = 0; + + attack_lose.attack_force = self->energy_state.health_current; + if (inair(self) && validanim(self, ANI_FALLLOSE)) + { + attack_lose.dropv.y = default_model_dropv.y; + attack_lose.dropv.x = default_model_dropv.x; + attack_lose.dropv.z = default_model_dropv.z; + self->modeldata.death_config_flags |= DEATH_CONFIG_MACRO_DEATH_FALL_LAND; + } + else + { + self->modeldata.death_config_flags |= DEATH_CONFIG_MACRO_DEATH; + } + + defense_object = defense_find_current_object(self, NULL, attack_lose.attack_type); + + self->takedamage(self, self, &attack_lose, 0, defense_object); + } + self = tmp; + } +} + +void time_over() +{ + if(level->type == 1) + { + level_completed = 1; // Feb 25, 2005 - Used for bonus levels so a life isn't taken away if time expires.level->type == 1 means bonus level, else regular + } + else if(!level_completed) + { + kill_all_players_by_timeover(); + + if (!is_total_timeover) + { + if(global_sample_list.time_over >= 0) + { + sound_play_sample(global_sample_list.time_over, 0, savedata.effectvol, savedata.effectvol, 100); + } + + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + if(!endgame) + { + showtimeover = 1; + } + } + if (!is_total_timeover && no_player_alive_to_join()) + { + is_total_timeover = 1; + nojoin = 1; + } + } +} + + +// ----------------------- Update functions ------------------------------ + +void update_scroller() +{ + float to = 0; + int i, againstend = 0; + int numplay = 0; //4player + float tx = advancex, ty = advancey; + float rm = -9999, lm = 999999, bm = -9999, tm = 999999; //player boundary box + static int scrolladd = 0; + scrolldx = scrolldy = 0; + int p_alive = 0; + + if(_time < level->advancetime || freezeall) + { + return; // Added freezeall so backgrounds/scrolling don't update if animations are frozen + } + + /* + //level->advancetime = _time + (global_config.game_speed/100); // Changed so scrolling speeds up for faster players + level->advancetime = _time - + ((player[0].ent && (player[0].ent->modeldata.speed.x >= 12 || player[0].ent->modeldata.runspeed >= 12)) || + (player[1].ent && (player[1].ent->modeldata.speed.x >= 12 || player[1].ent->modeldata.runspeed >= 12)) || + (player[2].ent && (player[2].ent->modeldata.speed.x >= 12 || player[2].ent->modeldata.runspeed >= 12)) || + (player[3].ent && (player[3].ent->modeldata.speed.x >= 12 || player[3].ent->modeldata.runspeed >= 12)) ); // Changed so if your player is faster the backgrounds scroll faster*/ + + level->advancetime = _time; + + if(level_completed) + { + return; + } + + for(i = 0; i < MAX_PLAYERS; i++) + { + if (player[i].ent && !(player[i].ent->death_state & DEATH_STATE_DEAD)) + { + p_alive = 1; + break; + } + } + + //White Dragon: No more enemies! + if(current_spawn >= level->numspawns && !findent(TYPE_ENEMY) && p_alive) + { + if(!findent(TYPE_ENDLEVEL) && ((!findent(TYPE_ITEM | TYPE_OBSTACLE) && level->type == 1) || level->type == 0)) // Feb 25, 2005 - Added so obstacles + { + level_completed = 1; // can be used for bonus levels + } + } + else if(count_ents(TYPE_ENEMY) < groupmin) + { + while(count_ents(TYPE_ENEMY) < groupmax && + current_spawn < level->numspawns && + level->pos >= level->spawnpoints[current_spawn].at + ) + { + if(level->spawnpoints[current_spawn].musicfade) + { + musicfade[0] = (float)level->spawnpoints[current_spawn].musicfade; + musicfade[1] = (float)savedata.musicvol; + } + else if(level->spawnpoints[current_spawn].music[0]) + { + strncpy(musicname, level->spawnpoints[current_spawn].music, MAX_BUFFER_LEN); + musicoffset = level->spawnpoints[current_spawn].musicoffset; + musicloop = 1; + } + else if(level->spawnpoints[current_spawn].wait) + { + level->waiting = 1; + go_time = 0; + } + else if(level->spawnpoints[current_spawn].groupmin || level->spawnpoints[current_spawn].groupmax) + { + groupmin = level->spawnpoints[current_spawn].groupmin; + groupmax = level->spawnpoints[current_spawn].groupmax; + } + else if(level->spawnpoints[current_spawn].nojoin != 0) + { + nojoin = (level->spawnpoints[current_spawn].nojoin == 1); + } + else if(level->spawnpoints[current_spawn].scrollminz & 0x80000000) + { + scrollminz = (float)(level->spawnpoints[current_spawn].scrollminz & 0x7fffffff); + scrollmaxz = (float)level->spawnpoints[current_spawn].scrollmaxz; + if(!_time) + { + advancey = scrollminz; // reset y if spawn at very beginning + } + } + else if(level->spawnpoints[current_spawn].scrollminx & 0x80000000) + { + scrollminx = (float)(level->spawnpoints[current_spawn].scrollminx & 0x7fffffff); + scrollmaxx = (float)level->spawnpoints[current_spawn].scrollmaxx; + } + else if(level->spawnpoints[current_spawn].blockade) + { + // assume level spawn entry will not roll back, so just change it to 0 here + if(level->spawnpoints[current_spawn].blockade < 0) + { + level->spawnpoints[current_spawn].blockade = 0; + } + blockade = (float)level->spawnpoints[current_spawn].blockade; + } + else if(level->spawnpoints[current_spawn].palette != 0) + { + // assume level spawn entry will not roll back, so just change it to 0 here + if(level->spawnpoints[current_spawn].palette < 0) + { + level->spawnpoints[current_spawn].palette = 0; + } + change_system_palette(level->spawnpoints[current_spawn].palette); + } + else if(level->spawnpoints[current_spawn].light.y) // change light direction for gfxshadow + { + light.x = level->spawnpoints[current_spawn].light.x; + light.y = level->spawnpoints[current_spawn].light.y; + } + else if(level->spawnpoints[current_spawn].shadowcolor) // change color for gfxshadow + { + shadowcolor = level->spawnpoints[current_spawn].shadowcolor; + if(shadowcolor == -1) + { + shadowcolor = 0; + } + else if(shadowcolor == -2) + { + shadowcolor = -1; + } + } + else if(level->spawnpoints[current_spawn].shadowalpha) // change color for gfxshadow + { + shadowalpha = level->spawnpoints[current_spawn].shadowalpha; + if(shadowalpha == BLEND_MODE_MODEL) + { + shadowalpha = BLEND_MODE_NONE; + } + } + else if(level->spawnpoints[current_spawn].shadowopacity) // change color for gfxshadow + { + shadowopacity = level->spawnpoints[current_spawn].shadowopacity; + if(shadowopacity == -1) + { + shadowopacity = 0; + } + if(shadowopacity == -2) + { + shadowopacity = -1; + } + } + else + { + smartspawn(&level->spawnpoints[current_spawn]); + } + ++current_spawn; + } + } + + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(player[i].ent) + { + if(player[i].ent->position.x > rm) + { + rm = player[i].ent->position.x; + } + if(player[i].ent->position.x < lm) + { + lm = player[i].ent->position.x; + } + if(player[i].ent->position.z > bm) + { + bm = player[i].ent->position.z; + } + if(player[i].ent->position.z < tm) + { + tm = player[i].ent->position.z; + } + numplay++; + } + } + + if(level->waiting) + { + // Wait for all enemies to be defeated + if(!findent(TYPE_ENEMY)) + { + level->waiting = 0; + if(level->noreset <= 1) + { + timeleft = level->settime * global_config.counter_speed; // Feb 24, 2005 - This line moved here to set custom time + } + go_time = _time + 3 * global_config.game_speed; + } + } + + if(numplay == 0) + { + return; + } + + + + if(!level->waiting || global_config.cheats & CHEAT_OPTIONS_IMPLACABLE_ACTIVE) + { + if(level->scrolldir & SCROLL_RIGHT) + { + + againstend = (level->width <= videomodes.hRes); + + if(rm - lm > videomodes.hRes) + { + to = advancex; + } + else + { + to = (lm + rm) / 2 - videomodes.hRes / 2 + level->cameraxoffset; + } + + if(to < scrollminx) + { + to = scrollminx; + } + else if(to > scrollmaxx) + { + to = scrollmaxx; + } + + if((level->scrolldir & SCROLL_BACK) && to < blockade) + { + to = blockade; + } + + if(to > advancex) + { + if(to > advancex + level->scrollspeed) + { + to = advancex + level->scrollspeed; + } + advancex = to; + } + else if((level->scrolldir & SCROLL_BACK) && to < advancex) + { + if(to < advancex - level->scrollspeed) + { + to = advancex - level->scrollspeed; + } + advancex = to; + } + + if(advancex < 0) + { + advancex = 0; + } + if(advancex >= level->width - videomodes.hRes) + { + advancex = (float)level->width - videomodes.hRes; + againstend = 1; + } + + if(againstend) + { + level->pos++; + } + else + { + level->pos = (int)advancex; + } + + + } + else if(level->scrolldir & SCROLL_LEFT) + { + + againstend = (level->width <= videomodes.hRes); + + if(rm - lm > videomodes.hRes) + { + to = advancex; + } + else + { + to = (lm + rm) / 2 - videomodes.hRes / 2 + level->cameraxoffset; + } + + if(to < scrollminx) + { + to = scrollminx; + } + else if(to > scrollmaxx) + { + to = scrollmaxx; + } + + if((level->scrolldir & SCROLL_BACK) && level->width - videomodes.hRes - to < blockade) + { + to = level->width - videomodes.hRes - blockade; + } + + if(to < advancex) + { + if(to < advancex - level->scrollspeed) + { + to = advancex - level->scrollspeed; + } + advancex = to; + } + else if((level->scrolldir & SCROLL_BACK) && to > advancex) + { + if(to > advancex + level->scrollspeed) + { + to = advancex + level->scrollspeed; + } + advancex = to; + } + + if(advancex > level->width - videomodes.hRes) + { + advancex = (float)level->width - videomodes.hRes; + } + if(advancex <= 0) + { + advancex = 0; + againstend = 1; + } + + if(againstend) + { + level->pos++; + } + else + { + level->pos = (int)((level->width - videomodes.hRes) - advancex); + } + } + else if(level->scrolldir & SCROLL_OUTWARD) // z scroll only + { + + if(bm - tm > videomodes.vRes) + { + to = advancey; + } + else + { + to = (bm + tm) / 2 - videomodes.vRes / 2 + level->camerazoffset; + } + + if(to < scrollminz) + { + to = scrollminz; + } + else if(to > scrollmaxz) + { + to = scrollmaxz; + } + + if((level->scrolldir & SCROLL_BACK) && to < blockade) + { + to = blockade; + } + + if(to > advancey) + { + if(to > advancey + level->scrollspeed) + { + to = advancey + level->scrollspeed; + } + advancey = to; + } + else if((level->scrolldir & SCROLL_BACK) && to < advancey) + { + if(to < advancey - level->scrollspeed) + { + to = advancey - level->scrollspeed; + } + advancey = to; + } + + if(advancey > panel_height - videomodes.vRes) + { + advancey = (float)panel_height - videomodes.vRes; + againstend = 1; + } + if(advancey < 0) + { + advancey = 0; + } + + if(againstend) + { + level->pos++; + } + else + { + level->pos = (int)advancey; + } + } + else if(level->scrolldir & SCROLL_INWARD) + { + if(bm - tm > videomodes.vRes) + { + to = advancey; + } + else + { + to = (bm + tm) / 2 - videomodes.vRes / 2 + level->camerazoffset; + } + + if(to < scrollminz) + { + to = scrollminz; + } + else if(to > scrollmaxz) + { + to = scrollmaxz; + } + + if((level->scrolldir & SCROLL_BACK) && panel_height - videomodes.vRes - to < blockade) + { + to = panel_height - videomodes.vRes - blockade; + } + + if(to < advancey) + { + if(to < advancey - level->scrollspeed) + { + to = advancey - level->scrollspeed; + } + advancey = to; + } + else if((level->scrolldir & SCROLL_BACK) && to > advancey) + { + if(to > advancey + level->scrollspeed) + { + to = advancey + level->scrollspeed; + } + advancey = to; + } + + if(advancey > panel_height - videomodes.vRes) + { + advancey = (float)panel_height - videomodes.vRes; + } + if(advancey <= 0) + { + advancey = 0; + againstend = 1; + } + + if(againstend) + { + level->pos++; + } + else + { + level->pos = (int)((panel_height - videomodes.vRes) - advancey); + } + } + //up down, elevator stage + else if(level->scrolldir & (SCROLL_UP | SCROLL_DOWN)) + { + //advancey += 0.5; + if(scrolladd == 1) + { + scrolladd = 0; + advancey++; + } + else + { + scrolladd++; + } + level->pos = (int)advancey; + } + }//if(!level->waiting) + + // z auto-scroll + if((level->scrolldir & SCROLL_LEFT) || (level->scrolldir & SCROLL_RIGHT)) // added scroll type both; weird things can happen, but only if the modder is lazy in using blockades, lol + { + + if(cameratype == 1) + { + bm = -9999; + tm = 999999; //recalculate + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(player[i].ent) + { + if(player[i].ent->position.z - player[i].ent->position.y > bm) + { + bm = player[i].ent->position.z - player[i].ent->position.y; + } + if(player[i].ent->position.z - player[i].ent->position.y < tm) + { + tm = player[i].ent->position.z - player[i].ent->position.y; + } + } + } + } + if(bm - tm > videomodes.vRes) + { + to = advancey; + } + else + { + to = (bm + tm) / 2 - videomodes.vRes / 2 + level->camerazoffset; + } + + // new scroll limit + if(to > scrollmaxz) + { + to = scrollmaxz; + } + else if(to < scrollminz) + { + to = scrollminz; + } + + if(to != advancey) + { + if(to > advancey + level->scrollspeed) + { + to = advancey + level->scrollspeed; + } + else if(to < advancey - level->scrollspeed) + { + to = advancey - level->scrollspeed; + } + advancey = (float)to; + } + + if(advancey > panel_height - (level->rocking ? 16 : 12) - videomodes.vRes) + { + advancey = (float)(panel_height - (level->rocking ? 16 : 12) - videomodes.vRes); + } + if(advancey < 0) + { + advancey = 0; + } + } + // now x auto scroll + else if((level->scrolldir & SCROLL_INWARD) || (level->scrolldir & SCROLL_OUTWARD)) + { + if(rm - lm > videomodes.hRes) + { + to = advancex; + } + else + { + to = (lm + rm) / 2 - videomodes.hRes / 2 + level->cameraxoffset; + } + + // new scroll limit + if(to > scrollmaxx) + { + to = scrollmaxx; + } + else if(to < scrollminx) + { + to = scrollminx; + } + + if(to != advancex) + { + if(to > advancex + level->scrollspeed) + { + to = advancex + level->scrollspeed; + } + else if(to < advancex - level->scrollspeed) + { + to = advancex - level->scrollspeed; + } + advancex = (float)to; + } + + if(advancex > level->width - videomodes.hRes) + { + advancex = (float)(level->width - videomodes.hRes); + } + if(advancex < 0) + { + advancex = 0; + } + } + //end of z auto-scroll + // global value for type_panel + scrolldx = advancex - tx; + scrolldy = advancey - ty; +} + + +void update_scrolled_bg() +{ + float rocktravel; + unsigned char neonp[32];//3*8 + static int rockpos = 0; + static int rockoffssine[32] = + { + 2, 2, 3, 4, 5, 6, 7, 7, + 8, 8, 9, 9, 9, 9, 8, 8, + 7, 7, 6, 5, 4, 3, 2, 2, + 1, 1, 0, 0, 0, 0, 1, 1 + }; // normal rock + static int rockoffsshake[32] = + { + 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 0, 4, 2, 0, 4, 2, + 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 0, 4, 2, 0, 4, 2, + }; // slow, constant jarring rock, like on a train + static int rockoffsrumble[32] = + { + 2, 2, 3, 3, 2, 2, 3, 3, + 2, 2, 3, 3, 2, 3, 2, 3, + 2, 2, 3, 3, 2, 2, 3, 3, + 2, 2, 3, 3, 2, 3, 2, 3, + }; // fast, constant rumbling, like in/on a van or trailer + int pb = pixelbytes[(int)PIXEL_32]; + + // Time to update neon and screen all flag false? + if(_time >= neon_time && !freezeall) + { + memcpy(neonp, neontable + 128 * pb, 8 * pb); + memcpy(neontable + 128 * pb, neonp + 2 * pb, 6 * pb); + memcpy(neontable + (128 + 6)*pb, neonp, 2 * pb); + + neon_time = _time + (global_config.game_speed / 3); + } + + if(!freezeall) + { + rocktravel = (level->rocking) ? ((_time - traveltime) / ((float)global_config.game_speed / 30)) : 0; // no like in real life, maybe + if(level->bgspeed < 0) + { + rocktravel = -rocktravel; + } + bgtravelled += (_time - traveltime) * level->bgspeed / 30 * 4 + rocktravel; + vbgtravelled += (_time - traveltime) * level->vbgspeed / 30 * 4; + } + else + { + texttime += _time - traveltime; + } + + timevar = _time - texttime; + + if(level->rocking) + { + rockpos = (timevar / (global_config.game_speed / 8)) & 31; + if(level->rocking == 1) + { + gfx_y_offset = level->quake - 4 - rockoffssine[rockpos]; + } + else if(level->rocking == 2) + { + gfx_y_offset = level->quake - 4 - rockoffsshake[rockpos]; + } + else if(level->rocking == 3) + { + gfx_y_offset = level->quake - 4 - rockoffsrumble[rockpos]; + } + } + else + { + if(level->quake >= 0) + { + gfx_y_offset = level->quake - 4; + } + else + { + gfx_y_offset = level->quake + 4; + } + } + + //if(level->scrolldir!=SCROLL_UP && level->scrolldir!=SCROLL_DOWN) gfx_y_offset -= advancey; + gfx_y_offset += gfx_y_offset_adj; //2011_04_03, DC: Apply modder adjustment. + + traveltime = _time; + + if(_time >= level->quaketime) + { + level->quake /= 2; + level->quaketime = _time + (global_config.game_speed / 25); + } +} + +void draw_scrolled_bg() +{ + int index = 0, x, z, i = 0, j, l, m; + s_layer *layer; + int width, height; + + int vpx, vpy, vpw, vph; + + if(viewportw > 0) + { + vpx = viewportx; + vpy = viewporty; + vpw = viewportw; + vph = viewporth; + } + else + { + vpx = vpy = 0; + vpw = videomodes.hRes; + vph = videomodes.vRes; + } + + //if(level) printf("%d %d %d %d\n", vpx, vpy, vpw, vph); + + s_drawmethod screenmethod = plainmethod; + + /*s_drawmethod *pscreenmethod = &screenmethod; + for(i = 0; i < level->numholes; i++) + { + spriteq_add_sprite((int)(level->holes[i].x - screenx + gfx_x_offset), (int)(level->holes[i].z - level->holes[i].depth - screeny + gfx_y_offset), HOLE_Z, holesprite, pscreenmethod, 0); + }*/ + + for(index = 0; index < level->numlayersref; index++) + { + layer = level->layersref + index; + + screenmethod = layer->drawmethod; + + //printf("layer %d, handle:%u, z:%d\n", index, layer->gfx.handle, layer->position.z); + + // Layer must be enabled and have at least one instace, or we don't draw it. + if(!screenmethod.xrepeat || !screenmethod.yrepeat || !layer->enabled) + { + continue; + } + + width = screenmethod.xspan = layer->size.x + layer->spacing.x; + height = screenmethod.yspan = layer->size.y + layer->spacing.z; + + x = (int)(layer->offset.x - (advancex + bgtravelled * layer->bgspeedratio) * (1.0 - layer->ratio.x) ) ; + + //printf("layerxratio %f %d %f\n ", layer->xratio, x, layer->bgspeedratio); + + if((level->scrolldir & SCROLL_UP)) + { + //z = (int)(layer->offset.z + advancey * (1.0 - layer->ratio.z) ) ; + z = (int)(layer->offset.z - (advancey + vbgtravelled * layer->bgspeedratio) * (1.0 - layer->ratio.z) ) ; + } + else + { + //z = (int)(layer->offset.z - advancey * (1.0 - layer->ratio.z) ) ; + z = (int)(layer->offset.z - (advancey + vbgtravelled * layer->bgspeedratio) * (1.0 - layer->ratio.z) ) ; + } + + if(layer->quake) + { + x += gfx_x_offset; + z += gfx_y_offset; + //printf("%d y %d %d\n", index, gfx_y_offset, z); + } + + x -= vpx; + z -= vpy; + + + if(x < 0) + { + i = (-x) / width; + x %= width; + } + else + { + i = 0; + } + + if(i > 0 && screenmethod.water.watermode != WATER_MODE_SHEAR && screenmethod.water.amplitude) + { + i--; + x -= width; + } + + if(z < 0) + { + j = (-z) / height; + z %= height; + } + else + { + j = 0; + } + + if(layer->neon) + { + screenmethod.table = neontable; + } + else + { + if(current_palette > 0) + { + screenmethod.table = level->palettes[current_palette - 1]; + } + else + { + screenmethod.table = NULL; + } + } + + screenmethod.water.wavetime = (int)(timevar * screenmethod.water.wavespeed); + screenmethod.xrepeat = screenmethod.yrepeat = 0; + for(m = z; j < layer->drawmethod.yrepeat && m < vph; m += height, j++, screenmethod.yrepeat++); + for(l = x; i < layer->drawmethod.xrepeat && l < vpw + (screenmethod.water.watermode == WATER_MODE_SHEAR ? 0 : screenmethod.water.amplitude * 2); l += width, i++, screenmethod.xrepeat++); + + if(layer->gfx.screen->magic == screen_magic) + { + spriteq_add_screen(x + vpx, z + vpy, layer->z, layer->gfx.screen, &screenmethod, index); + } + else if(layer->gfx.sprite->magic == sprite_magic) + { + spriteq_add_frame(x + vpx, z + vpy, layer->z, layer->gfx.sprite, &screenmethod, index); + } + + //printf("******%d\t%d\t%d\t%d\t%d*****\n", x+vpx, z+vpy, layer->.z, screenmethod.xrepeat, screenmethod.yrepeat); + } + + +} + +u32 getinterval() +{ + interval = timer_getinterval(global_config.game_speed); // so interval can be logged into movie + if(interval > global_config.game_speed) + { + interval = 1; + } + if(interval > global_config.game_speed / 4) + { + interval = global_config.game_speed / 4; + } + return interval; +} + +// Caskey, Damon V. +// 2019-04-22 +// +// Run input scripts. Similar to keys, but +// execute before processing any command functions. +void execute_input_scripts(int player_index) +{ + s_player *player_obj = NULL; + + player_obj = player + player_index; + + if (!player_obj) + { + return; + } + + if (player_obj->newkeys || (keyscriptrate && player->keys) || player->releasekeys) + { + // 2019-04-22 Don't exist yet + //if (level) + //{ + + //execute_level_key_script(player_index, player); + //execute_entity_key_script(player.ent); + //} + //execute_key_script(player_index, player); + + execute_input_script_all(player_index); + } +} + +/* +* Caskey, Damon V. +* 2026-07-17 +* +* Add direction-relative command flags to a physical +* input mask. +* +* Left and right remain in the result so hard-coded +* commands can continue to inspect the physical input. +*/ +static key_mask_t command_input_resolve_direction( + const key_mask_t input_flags, + const entity* acting_entity +) { + key_mask_t resolved_flags = input_flags; + + if(!acting_entity) { + return resolved_flags; + } + + if(input_flags & FLAG_MOVELEFT) { + resolved_flags |= acting_entity->direction + ? FLAG_BACKWARD + : FLAG_FORWARD; + + } else if(input_flags & FLAG_MOVERIGHT) { + resolved_flags |= acting_entity->direction + ? FLAG_FORWARD + : FLAG_BACKWARD; + } + + return resolved_flags; +} + +/* +* Caskey, Damon V. +* 2026-07-17 - Orginal by Utunnels, unknow date. +* +* Update the input state for each player. This includes +* physical keys, command input history, and automatic +* held edges. Refactored to support direction-relative +* command flags and extensible command system. +*/ +void inputrefresh(int playrecmode) { + + int p; + s_player *acting_player; + + control_update(playercontrolpointers, MAX_PLAYERS); + + bothkeys = 0; + bothnewkeys = 0; + + for(p = 0; p < MAX_PLAYERS; p++) + { + acting_player = player + p; + + if (playrecmode != A_REC_PLAY) { + + acting_player->releasekeys = (playercontrolpointers[p]->keyflags | acting_player->keys) - playercontrolpointers[p]->keyflags; + acting_player->releasekeys &= ~acting_player->disablekeys; + acting_player->keys = playercontrolpointers[p]->keyflags & ~acting_player->disablekeys; + acting_player->newkeys = playercontrolpointers[p]->newkeyflags & ~acting_player->disablekeys; + acting_player->playkeys |= acting_player->newkeys; + acting_player->playkeys &= acting_player->keys; + acting_player->playkeys &= ~acting_player->disablekeys; + + } else { + // in play mode: add pressed keys to rec keys + acting_player->releasekeys |= (playercontrolpointers[p]->keyflags | acting_player->prevkeys) - playercontrolpointers[p]->keyflags; + acting_player->releasekeys &= ~acting_player->disablekeys; + acting_player->keys |= playercontrolpointers[p]->keyflags & ~acting_player->disablekeys; + acting_player->newkeys |= playercontrolpointers[p]->newkeyflags & ~acting_player->disablekeys; + acting_player->playkeys |= acting_player->newkeys; + acting_player->playkeys &= acting_player->keys; + acting_player->playkeys &= ~acting_player->disablekeys; + } + + execute_input_scripts(p); + + /* + * Reset command sequence if the last command was + * too long ago. + */ + if(acting_player->ent && acting_player->ent->command_time < _time) { + memset( + acting_player->command_input_history, + 0, + sizeof(acting_player->command_input_history) + ); + + acting_player->command_input_count = 0; + acting_player->command_input_index = 0; + } + + /* + * Build one event every refresh so automatic held + * thresholds can create an edge without a physical + * button change. Store it only when at least one + * press, release, or automatic held edge exists. + */ + { + s_command_input_event input_event = {0}; + + input_event.press = command_input_resolve_direction( + acting_player->newkeys, + acting_player->ent + ); + + input_event.release = command_input_resolve_direction( + acting_player->releasekeys, + acting_player->ent + ); + + /* + * Released keys were held immediately before this + * edge. Include them in the event snapshot so a + * command such as a[50] + ~a can test both facts. + */ + input_event.held = command_input_resolve_direction( + acting_player->keys + | acting_player->releasekeys, + acting_player->ent + ); + + input_event.time = _time; + + command_input_hold_start_update( + acting_player, + input_event.press, + input_event.time + ); + + if(input_event.press) { + /* + * Capture inputs still held at this positive + * edge. The configurable command matcher + * applies each step's chord_time to their + * recorded press times. Hard-coded commands + * continue to inspect input_event.press only. + */ + input_event.press_chord = + command_input_resolve_direction( + acting_player->keys, + acting_player->ent + ); + } + + input_event.hold = + command_input_hold_trigger_collect( + acting_player, + input_event.held, + input_event.time + ); + + if(input_event.press + || input_event.hold + || input_event.release) { + + input_event.ticks = timer_gettick(); + command_input_history_push(acting_player, &input_event); + + if(acting_player->ent) { + acting_player->ent->command_time = + command_input_history_expiration_time_get( + acting_player->ent, + input_event.time + ); + } + } + + } + + bothkeys |= acting_player->keys; + bothnewkeys |= acting_player->newkeys; + + } + +} + +void execute_keyscripts() +{ + int p; + for(p = 0; p < levelsets[current_set].maxplayers; p++) + { + if(!_pause && (level || check_in_screen()) && (player[p].newkeys || (keyscriptrate && player[p].keys) || player[p].releasekeys)) + { + if(level) + { + execute_level_key_script(p); + execute_entity_key_script(player[p].ent); + } + execute_key_script(p); + execute_key_script_all(p); + } + } +} + +void execute_updatescripts() +{ + if(Script_IsInitialized(&update_script)) + { + Script_Execute(&(update_script)); + } + if(level && Script_IsInitialized(&(level->update_script))) + { + Script_Execute(&(level->update_script)); + } +} + +void execute_updatedscripts() +{ + if(Script_IsInitialized(&updated_script)) + { + Script_Execute(&(updated_script)); + } + if(level && Script_IsInitialized(&(level->updated_script))) + { + Script_Execute(&(level->updated_script)); + } +} + +/* +* Caskey, Damon V. +* 2026-08-21 +* +* Execute global and level scripts immediately before an +* engine logical clock tick is processed. +*/ +void execute_updatelogicscripts() +{ + if(Script_IsInitialized(&update_logic_script)) + { + Script_Execute(&update_logic_script); + } + if(level && Script_IsInitialized(&level->update_logic_script)) + { + Script_Execute(&level->update_logic_script); + } +} + +/* +* Caskey, Damon V. +* 2026-08-21 +* +* Execute global and level scripts after an engine logical +* clock tick is processed, before its clock value advances. +*/ +void execute_updatedlogicscripts() +{ + if(Script_IsInitialized(&updated_logic_script)) + { + Script_Execute(&updated_logic_script); + } + if(level && Script_IsInitialized(&level->updated_logic_script)) + { + Script_Execute(&level->updated_logic_script); + } +} + +void draw_textobjs() +{ + int i; + s_textobj *textobj; + if(!level) + { + return; + } + for(i = 0; i < level->numtextobjs ; i++) + { + textobj = level->textobjs + i; + + if(textobj->time && textobj->time <= _time) //If a time was set and passed, remove the text object. + { + level->textobjs[i].time = 0; + level->textobjs[i].position.x = 0; + level->textobjs[i].position.y = 0; + level->textobjs[i].font = 0; + level->textobjs[i].position.z = 0; + if(level->textobjs[i].text) + { + free(level->textobjs[i].text); + level->textobjs[i].text = NULL; + } + } + else + { + if(textobj->text) + { + font_print_length( + textobj->position.x, + textobj->position.y, + textobj->font, + textobj->position.z, + textobj->text, + strlen(textobj->text) + ); + } + } + } +} + +int recordInputs() +{ + int p = 0; + RecKeys reckey; + uint64_t window = 4096; + u32 max_rec_time = global_config.game_speed*60*10; // protection + + if(playrecstatus->status != A_REC_REC) return 0; + if ( !playrecstatus->begin ) + { + playrecstatus->starttime = _time; + playrecstatus->synctime = 0; + if (playrecstatus->buffer) + { + free(playrecstatus->buffer); + playrecstatus->buffer = NULL; + } + playrecstatus->buffer = (RecKeys*)calloc(window+playrecstatus->synctime*sizeof(RecKeys),sizeof(RecKeys)); + if (playrecstatus->buffer == NULL) + { + printf("Error to allocate buffer in record inputs mode.\n"); + return 0; + } + playrecstatus->begin = 1; + playrecstatus->seed = getseed(); + playrecstatus->cseed = _time; + srand(_time); + playrecstatus->ticks = timer_gettick(); + } + else + { + if ( playrecstatus->synctime%window >= window-2 ) // last is NULL bytes + { + playrecstatus->buffer = (RecKeys*)realloc(playrecstatus->buffer,sizeof(RecKeys)*((playrecstatus->synctime/window+1)*window+window)); + if (playrecstatus->buffer == NULL) + { + printf("Error to allocate buffer in record inputs mode.\n"); + return 0; + } else memset(playrecstatus->buffer+(playrecstatus->synctime+1),0,(playrecstatus->synctime/window+1)*window+window-(playrecstatus->synctime+1)-1); // -2 because -1 is to 0 to size-1 + } + } + + // now rec! + if(playrecstatus->buffer && playrecstatus->begin) + { + for ( p = 0; p < MAX_PLAYERS; p++ ) + { + reckey.keys[p] = player[p].keys; + reckey.newkeys[p] = player[p].newkeys; + reckey.releasekeys[p] = player[p].releasekeys; + reckey.playkeys[p] = player[p].playkeys; + } + reckey.time = _time; + reckey.interval = interval; + reckey.synctime = playrecstatus->synctime; + //reckey.seed = getseed(); + memcpy( &playrecstatus->buffer[playrecstatus->synctime], &reckey, sizeof(reckey) ); + } + + if ( _time >= max_rec_time ) stopRecordInputs(); // safe + if(playrecstatus->status == A_REC_REC) ++playrecstatus->synctime; + + //debug_printf("time: %d sync: %d",(u32)time,(u32)playrecstatus->synctime); + //debug_printf("keys: %d",player[0].releasekeys&FLAG_ATTACK); + + return 1; +} + +int playRecordedInputs() +{ + int p = 0; + RecKeys reckey; + char path[MAX_ARG_LEN + 1]; + size_t filesize = 0; + char header[6]; + + if(playrecstatus->status != A_REC_PLAY) return 0; + if ( !playrecstatus->begin ) //time >= playrecstatus->starttime && + { + if ( strlen(playrecstatus->path) <= 0 ) getBasePath(path, "Saves", 0); + else strcpy(path,playrecstatus->path); + if ( path[strlen(path)-1] != '/' ) strcpy(path,"/"); + + if (playrecstatus->buffer) + { + free(playrecstatus->buffer); + playrecstatus->buffer = NULL; + } + if(playrecstatus->handle) + { + fclose(playrecstatus->handle); + } + + playrecstatus->handle = fopen(strcat(path,playrecstatus->filename), "rb+"); + if(playrecstatus->handle) + { + fseek(playrecstatus->handle, 0L, SEEK_END); + filesize = ftell(playrecstatus->handle); + fseek(playrecstatus->handle, 0L, SEEK_SET); // or rewind(playrecstatus->handle) + + if (filesize <= 0) + { + printf("Empty recorded inputs file.\n"); + return 0; + } + playrecstatus->buffer = (RecKeys*)calloc(1,filesize+1); + if(!playrecstatus->buffer) + { + printf("Error to allocate buffer for recorded inputs.\n"); + return 0; + } + } else + { + printf("Error to open recorded inputs file.\n"); + return 0; + } + fread(&header, 6, 1, playrecstatus->handle); + fread(&playrecstatus->starttime, sizeof(u32), 1, playrecstatus->handle); + fread(&playrecstatus->endtime, sizeof(u32), 1, playrecstatus->handle); + fread(&playrecstatus->totsynctime, sizeof(u32), 1, playrecstatus->handle); + fread(&playrecstatus->cseed, sizeof(u32), 1, playrecstatus->handle); + fread(&playrecstatus->seed, sizeof(uint64_t), 1, playrecstatus->handle); + fread(&playrecstatus->ticks, sizeof(unsigned), 1, playrecstatus->handle); + fread(playrecstatus->buffer, sizeof(RecKeys)*(playrecstatus->endtime+1), 1, playrecstatus->handle); + + // sync at start time + _time = playrecstatus->starttime; + playrecstatus->synctime = 0; + playrecstatus->begin = 1; + srand(playrecstatus->cseed); + srand32(playrecstatus->seed); + //set_ticks(timer_gettick()-playrecstatus->ticks); + } + + // now play! + if(playrecstatus->buffer && playrecstatus->begin && playrecstatus->synctime < playrecstatus->totsynctime) + { + memcpy( &reckey, &playrecstatus->buffer[playrecstatus->synctime], sizeof(reckey) ); + + if( _time != reckey.time ) + { + u32 nextsynctime = reckey.synctime; + + //time = (u32)reckey.time; + printf("Play recorded inputs: Out of sync! Time: %d, RecTime: %d\n",time,reckey.time); + /*if ( interval != reckey.interval ) + { + //interval = (u32)reckey.interval; + printf("Play recorded inputs: Out of sync! Interval: %d, RecInterval: %d\n",interval,reckey.interval); + }*/ + + while( _time > reckey.time && nextsynctime > 0 ) { + memcpy( &reckey, &playrecstatus->buffer[--nextsynctime], sizeof(reckey) ); + } + _time = reckey.time; + + while( _time < reckey.time && nextsynctime < playrecstatus->totsynctime ) { + memcpy( &reckey, &playrecstatus->buffer[++nextsynctime], sizeof(reckey) ); + } + _time = reckey.time; + } + + if ( _time == reckey.time ) + { + if ( playrecstatus->synctime != reckey.synctime ) + { + u32 nextsynctime = reckey.synctime; + + printf("Play recorded inputs: Out of sync! SyncTime: %d, RecSyncTime: %d\n",playrecstatus->synctime,reckey.synctime); + + while( playrecstatus->synctime > reckey.synctime && nextsynctime > 0 ) { + memcpy( &reckey, &playrecstatus->buffer[--nextsynctime], sizeof(reckey) ); + } + playrecstatus->synctime = reckey.synctime; + + while( playrecstatus->synctime < reckey.synctime && nextsynctime < playrecstatus->totsynctime ) { + memcpy( &reckey, &playrecstatus->buffer[++nextsynctime], sizeof(reckey) ); + } + playrecstatus->synctime = reckey.synctime; + } + + if ( interval != reckey.interval ) interval = reckey.interval; + //srand32(reckey.seed); + for ( p = 0; p < MAX_PLAYERS; p++ ) + { + player[p].keys = reckey.keys[p]; + player[p].newkeys = reckey.newkeys[p]; + player[p].releasekeys = reckey.releasekeys[p]; + player[p].playkeys = reckey.playkeys[p]; + } + //inputrefresh(playrecstatus->status); + } + } + + //debug_printf("synctim: %d totsync: %d status:%d",playrecstatus->synctime,playrecstatus->totsynctime,playrecstatus->status); + if(playrecstatus->status == A_REC_PLAY) ++playrecstatus->synctime; + if ( playrecstatus->synctime >= playrecstatus->totsynctime || _time >= playrecstatus->endtime ) stopRecordInputs(); + + //debug_printf("time: %d sync: %d",(u32)time,(u32)playrecstatus->synctime); + //debug_printf("keys: %d",player[0].releasekeys&FLAG_ATTACK); + + return 1; +} + +int stopRecordInputs() +{ + if(playrecstatus) + { + switch(playrecstatus->status) + { + case A_REC_REC: + { + char path[MAX_ARG_LEN + 1]; + char header[6] = "INP10"; + + if ( strlen(playrecstatus->path) <= 0 ) getBasePath(path, "Saves", 0); + else strcpy(path,playrecstatus->path); + if ( path[strlen(path)-1] != '/' ) strcpy(path,"/"); + + if (playrecstatus->buffer) + { + playrecstatus->handle = fopen(strcat(path,playrecstatus->filename), "wb+"); + if(playrecstatus->handle) + { + playrecstatus->endtime = _time; + if (playrecstatus->synctime < 2) playrecstatus->synctime = 2; + else playrecstatus->synctime -= 2; + + fwrite(header, 6, 1, playrecstatus->handle); + fwrite(&playrecstatus->starttime, sizeof(u32), 1, playrecstatus->handle); + fwrite(&playrecstatus->endtime, sizeof(u32), 1, playrecstatus->handle); + fwrite(&playrecstatus->synctime, sizeof(u32), 1, playrecstatus->handle); + fwrite(&playrecstatus->cseed, sizeof(u32), 1, playrecstatus->handle); + fwrite(&playrecstatus->seed, sizeof(uint64_t), 1, playrecstatus->handle); + fwrite(&playrecstatus->ticks, sizeof(unsigned), 1, playrecstatus->handle); + fwrite(playrecstatus->buffer, sizeof(RecKeys)*(playrecstatus->synctime+1), 1, playrecstatus->handle); + fflush(playrecstatus->handle); // safe + fclose(playrecstatus->handle); + } else return 0; + + free(playrecstatus->buffer); + playrecstatus->buffer = NULL; + } else return 0; + break; + } + case A_REC_PLAY: + { + if(playrecstatus->handle) + { + if (playrecstatus->handle) fclose(playrecstatus->handle); + else return 0; + } + break; + } + case A_REC_STOP: + { + if(playrecstatus->handle) + { + if (playrecstatus->handle) fclose(playrecstatus->handle); + else return 0; + } + break; + } + } + + playrecstatus->status = A_REC_STOP; + playrecstatus->begin = 0; + playrecstatus->synctime = 0; + freeRecordedInputs(); + } return 0; + + return 1; +} + +int freeRecordedInputs() +{ + playrecstatus->status = A_REC_STOP; + if(playrecstatus->handle) fclose(playrecstatus->handle); + if(playrecstatus->buffer) + { + free(playrecstatus->buffer); + playrecstatus->buffer = NULL; + return 1; + } + + return 0; +} + +a_playrecstatus* init_input_recorder() +{ + playrecstatus = (a_playrecstatus*)calloc(1,sizeof(*playrecstatus)); + + return playrecstatus; +} + +void free_input_recorder() +{ + if(playrecstatus) + { + if(playrecstatus->buffer) + { + if(playrecstatus->handle) fclose(playrecstatus->handle); + free(playrecstatus->buffer); + playrecstatus->buffer = NULL; + } + free(playrecstatus); + playrecstatus = NULL; + } +} + +void update(int ingame, int usevwait) +{ + int i = 0; + int p_keys = 0; + +#if SDL + if (savedata.fpslimit == 1) // vsync enabled + { + // To reduce input latency, wait until the last 4 ms (4000 us) of the current + // frame to read inputs or do anything else. We can get away with this because + // the CPUs of all modern computers - even phones and low-end, outdated PCs - + // are complete overkill for OpenBOR's needs. + s64 target_time = timer_uticks() + 1000000/video_current_refresh_rate() - 4000; + u64 current_time = timer_uticks(); + while (current_time < target_time) + { + usleep(target_time - current_time); + current_time = timer_uticks(); + } + } +#endif + + getinterval(); + if(playrecstatus->status == A_REC_PLAY && !_pause && level) if ( !playRecordedInputs() ) stopRecordInputs(); + inputrefresh(playrecstatus->status); +#ifdef WEBM + movie_playback_update( + (bothnewkeys & (FLAG_ESC | FLAG_ANYBUTTON)) != 0 + ); +#endif + if(playrecstatus->status == A_REC_REC && !_pause && level) if ( !recordInputs() ) stopRecordInputs(); + + if ((!_pause && ingame == 1) || alwaysupdate) + { + execute_updatescripts(); + } + + newtime = 0; + if(!_pause) + { + if(ingame == 1 || check_in_screen()) + { + execute_keyscripts(); + } + + if((level_completed && level->boss_slow == BOSS_SLOW_ON && !tospeedup) || slowmotion.toggle > SLOW_MOTION_OFF) + { + if(slowmotion.duration == slowmotion.counter) + { + newtime = _time + interval; + } + } + else + { + newtime = _time + interval; + } + + slowmotion.counter++; + if(slowmotion.counter == (slowmotion.duration + 1)) + { + slowmotion.counter = 0; + if(slowmotion.toggle > SLOW_MOTION_ON) + { + slowmotion.duration = slowmotion.toggle; + } + } + if(newtime > _time + 100) + { + newtime = _time + 100; + } + + while(_time < newtime) + { + if(ingame == 1 || alwaysupdate) + { + execute_updatelogicscripts(); + } + + if(ingame == 1) + { + update_scroller(); + if(!freezeall) + { + int all_p_alive = 0; + + for(i = 0; i < MAX_PLAYERS; i++) + { + if (!player[i].ent) ++all_p_alive; + } + all_p_alive = (all_p_alive >= MAX_PLAYERS) ? 1 : 0; + + if(level->settime > 0 || (level->type != 2 && all_p_alive)) + //if(level->settime > 0 || (level->type != 2 && !player[0].ent && !player[1].ent && !player[2].ent && !player[3].ent)) + { + int all_p_nojoin = 0, all_p_nocredits = 0; + + for(i = 0; i < MAX_PLAYERS; i++) + { + if (!player[i].joining) ++all_p_nojoin; + } + all_p_nojoin = (all_p_nojoin >= MAX_PLAYERS) ? 1 : 0; + + for(i = 0; i < MAX_PLAYERS; i++) + { + if (player[i].credits < 1) ++all_p_nocredits; + } + all_p_nocredits = (all_p_nocredits >= MAX_PLAYERS) ? 1 : 0; + + if(timeleft > 0) + { + --timeleft; + } + else if((level->settime > 0 && all_p_nojoin) || + ( ((!noshare && credits < 1) || (noshare && all_p_nocredits)) + && all_p_nojoin ) + ) + { + time_over(); + } + } + } + update_scrolled_bg(); + if(level->type != 2) + { + updatestatus(); + } + } + if(ingame == 1 || check_in_screen()) + { + update_ents(); + } + + if(ingame == 1 || alwaysupdate) + { + execute_updatedlogicscripts(); + } + + ++_time; + } + + } + + /************ gfx queueing ************/ + + clearscreen(vscreen); + + if(ingame == 1 && !_pause) + { + draw_scrolled_bg(); + if(level->type != 2) + { + predrawstatus(); + } + if(level->type != 2) + { + drawstatus(); + } + draw_textobjs(); + } + + if(!ingame) + { + if(background) + { + spriteq_add_screen(0, 0, MIN_INT, background, NULL, 0); + } + } + + // entity sprites queueing + if(ingame == 1 || check_in_screen()) + if(!_pause) + { + display_ents(); + } + + /************ updated script ************/ + if(ingame == 1 || alwaysupdate) + { + execute_updatedscripts(); + } + + for(i = 0; i < MAX_PLAYERS; i++) + { + if (player[i].ent && (player[i].newkeys & FLAG_START)) + { + p_keys = 1; + break; + } + } + + // 2011/10/22 UT: move pause menu logic here + /*if(ingame == 1 && !_pause && !nopause && + ((player[0].ent && (player[0].newkeys & FLAG_START)) || + (player[1].ent && (player[1].newkeys & FLAG_START)) || + (player[2].ent && (player[2].newkeys & FLAG_START)) || + (player[3].ent && (player[3].newkeys & FLAG_START))) + )*/ + if(ingame == 1 && !_pause && !nopause && p_keys) + { + if ( !(goto_mainmenu_flag&1) ) + { + sound_pause_music(1); + sound_pause_sample(1); + sound_play_sample(global_sample_list.pause, 0, savedata.effectvol, savedata.effectvol, 100); + pausemenu(); + return; + } + } + if( ingame == 1 && (goto_mainmenu_flag&1) ) + { + backto_mainmenu(); + return; + } + + /********** update screen **************/ + + spriteq_draw(vscreen, 0, MIN_INT, MAX_INT, 0, 0); // notice, always draw sprites at the very end of other methods + + if(_pause != 2 && !noscreenshot && (bothnewkeys & FLAG_SCREENSHOT)) + { + screenshot(vscreen, getpal, 1); + } + + // Debug stuff, should not appear on screenshot + if(debug_time == 0xFFFFFFFF) + { + debug_time = _time + global_config.game_speed * 5; + } + if(_time < debug_time && debug_msg[0]) + { + if( debug_xy_msg.x >= 0 && debug_xy_msg.y >= 0 ) + { + if ( debug_xy_msg.font_index < 0 ) debug_xy_msg.font_index = 0; + screen_printf(vscreen, debug_xy_msg.x, debug_xy_msg.y, debug_xy_msg.font_index, debug_msg); + } else screen_printf(vscreen, 0, videomodes.vRes-fontheight(0), 0, debug_msg); + } + else + { + debug_msg[0] = 0; + debug_xy_msg.x = -1; + debug_xy_msg.y = -1; +#ifdef DEBUG_MODE + if(level->pos) + { + debug_printf("Position: %i, width: %i, spawn: %i, offsets: %i/%i", level->pos, level->width, current_spawn, level->quake, gfx_y_offset); + } +#endif + } + + if(usevwait) + { + vga_vwait(); + } + video_copy_screen(vscreen); + spriteq_clear(); + + check_music(); + sound_update_music(); +} + + + + +// ---------------------------------------------------------------------- +/* Plombo 9/4/2010: New function that can use brightness/gamma correction + * independent from the global palette on platforms where it's available. + * Hardware accelerated brightness/gamma correction is available on OpenGL + * platforms using GLSL. Returns 1 on success, 0 on error. + */ +int set_color_correction(int gm, int br) +{ + video_set_color_correction(gm, br); + return 1; +} + +// Simple palette fade / vscreen fade +void fade_out(int type, int speed) +{ + int i, j = 0; + int b, g = 0; + u32 interval = 0; + int current = speed ? speed : fade; + s_screen *fbuffer = NULL; + s_drawmethod dm = plainmethod; + dm.alpha = BLEND_MODE_AVERAGE; + + for(i = 0, j = 0; j < 64; ) + { + while(j <= i && j < 64) + { + if(!type || type == 1) + { + b = ((savedata.brightness + 256) * (64 - j) / 64) - 256; + g = 256 - ((savedata.gamma + 256) * (64 - j) / 64); + vga_vwait(); + if(!set_color_correction(g, b)) + { + if(!fbuffer) + { + fbuffer = allocscreen(vscreen->width, vscreen->height, vscreen->pixelformat); + copyscreen(fbuffer, vscreen); + } + //255 + alpha BLEND_MODE_AVERAGE is actually half blend, so use 254 instead + dm.channelr = dm.channelg = dm.channelb = 254 * (64 - j) / 64; + clearscreen(vscreen); + putscreen(vscreen, fbuffer, 0, 0, &dm); + } + } + j++; + if(!type || type == 1) + { + video_copy_screen(vscreen); + } + } + if(!type || type == 2) + { + sound_update_music(); + if(!musicoverlap) + { + sound_volume_music(savedata.musicvol * (64 - j) / 64, savedata.musicvol * (64 - j) / 64); + } + } + interval = timer_getinterval(current); + if(interval > current) + { + interval = current / 60; + } + if(interval > current / 4) + { + interval = current / 4; + } + i += interval; + } + + if(!type || type == 2) + { + if(!musicoverlap) + { + sound_close_music(); + } + } + + if(!type || type == 1) + { + clearscreen(vscreen); + video_copy_screen(vscreen); + vga_vwait(); + //the black screen, so we return to normal palette + set_color_correction(savedata.gamma, savedata.brightness); + } + + if(fbuffer) + { + freescreen(&fbuffer); + } +} + + + +void apply_controls() +{ + int p; + + for(p = 0; p < MAX_PLAYERS; p++) + { + control_setkey(playercontrolpointers[p], FLAG_ESC, CONTROL_ESC); + control_setkey(playercontrolpointers[p], FLAG_MOVEUP, savedata.keys[p][SDID_MOVEUP]); + control_setkey(playercontrolpointers[p], FLAG_MOVEDOWN, savedata.keys[p][SDID_MOVEDOWN]); + control_setkey(playercontrolpointers[p], FLAG_MOVELEFT, savedata.keys[p][SDID_MOVELEFT]); + control_setkey(playercontrolpointers[p], FLAG_MOVERIGHT, savedata.keys[p][SDID_MOVERIGHT]); + control_setkey(playercontrolpointers[p], FLAG_ATTACK, savedata.keys[p][SDID_ATTACK]); + control_setkey(playercontrolpointers[p], FLAG_ATTACK2, savedata.keys[p][SDID_ATTACK2]); + control_setkey(playercontrolpointers[p], FLAG_ATTACK3, savedata.keys[p][SDID_ATTACK3]); + control_setkey(playercontrolpointers[p], FLAG_ATTACK4, savedata.keys[p][SDID_ATTACK4]); + control_setkey(playercontrolpointers[p], FLAG_JUMP, savedata.keys[p][SDID_JUMP]); + control_setkey(playercontrolpointers[p], FLAG_SPECIAL, savedata.keys[p][SDID_SPECIAL]); + control_setkey(playercontrolpointers[p], FLAG_START, savedata.keys[p][SDID_START]); + control_setkey(playercontrolpointers[p], FLAG_SCREENSHOT, savedata.keys[p][SDID_SCREENSHOT]); + } +} + + + +// ---------------------------------------------------------------------- + +void display_credits() +{ + u32 finishtime = _time + 10 * global_config.game_speed; + int done = 0; + int s = videomodes.vShift / 2 + 3; + int v = (videomodes.vRes - videomodes.vShift) / 24; + int m = 0; + int h = videomodes.hRes / 2; + int col1 = h - fontmonowidth(0) * 16; + int col2 = h + fontmonowidth(0) * 4; + + if(savedata.logo != 1) + { + return; + } + fade_out(0, 0); + + unload_level(); + + bothnewkeys = 0; + + while(!done) + { + m = 2; + + font_printf(_strmidx(2, "Credits"), s, 2, 0, "Credits"); + + font_printf(_strmidx(1, "OpenBOR"), s + v * m, 1, 0, "OpenBOR"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Caskey, Damon V."); + font_printf(col2, s + v * m, 0, 0, "Project Lead"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Msmalik681"); + font_printf(col2, s + v * m, 0, 0, "Developer"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Kratus"); + font_printf(col2, s + v * m, 0, 0, "Developer"); ++m; + + font_printf(_strmidx(1, "Former Staff"), s + v * m, 1, 0, "Former Staff"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Fightn Words"); + font_printf(col2, s + v * m, 0, 0, "Fugue"); ++m; + + font_printf(col1, s + v * m, 0, 0, "KBAndressen"); + font_printf(col2, s + v * m, 0, 0, "Kirby"); ++m; + + font_printf(col1, s + v * m, 0, 0, "LordBall"); + font_printf(col2, s + v * m, 0, 0, "Orochi_X"); ++m; + + font_printf(col1, s + v * m, 0, 0, "SX"); + font_printf(col2, s + v * m, 0, 0, "Tails"); ++m; + + font_printf(col1, s + v * m, 0, 0, "uTunnels"); + font_printf(col2, s + v * m, 0, 0, "White Dragon"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Plombo"); ++m; + + font_printf(_strmidx(1, "Ports"), s + v * m, 1, 0, "Ports"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Linux/OSX"); + font_printf(col2, s + v * m, 0, 0, "SX"); ++m; + + font_printf(col1, s + v * m, 0, 0, "Android"); + font_printf(col2, s + v * m, 0, 0, "CRxTRDude, Plombo,"); ++m; + font_printf(col2, s + v * m, 0, 0, "uTunnels, Msmalik681"); ++m; + font_printf(col2, s + v * m, 0, 0, "White Dragon"); ++m; + + update(2, 0); + + done |= (_time > finishtime); + done |= (bothnewkeys & (FLAG_START + FLAG_ESC)); + } + fade = 75; + fade_out(0, 0); +} + + +void borShutdown(int status, const char *msg, ...) +{ + va_list arglist; + va_list output_arguments; + int i; + + static int shuttingdown = 0; + + if(shuttingdown) + { + return; + } + + shuttingdown = 1; + va_start(arglist, msg); + + //printf("savedata.logo %d\n", savedata.logo); + + if(!disablelog) + { + switch(status) + { + case 0: + printf("\n************ Shutting Down ************\n\n"); + break; + default: + printf("\n********** An Error Occurred **********" + "\n* Shutting Down *\n\n"); + break; + } + } + + if(!disablelog) + { + va_copy(output_arguments, arglist); + writeToLogFileV(msg, output_arguments); + va_end(output_arguments); + } + + + getRamStatus(BYTES); + savesettings(); + + /* entry point for the engine credits screen. */ + //screen_status |= IN_SCREEN_ENGINE_CREDIT; + + // if(status != 2) + // { + // display_credits(); + // } + + if(startup_done) + { + screen_status &= ~IN_SCREEN_ENGINE_CREDIT; + term_videomodes(); + } + + if(!disablelog) + { + printf("Release level data"); + } + if (startup_done) + { + unload_levelorder(); + } + if(!disablelog) + { + printf("...........\n"); + } + if(startup_done) + { + unload_level(); + } + if(!disablelog) + { + printf("Done!\n\n"); + } + + if(!disablelog) + { + printf("Release graphics data"); + } + if(!disablelog) + { + printf(".."); + } + if(startup_done) + { + freescreen(&vscreen); // allocated by init_videomodes + } + if(startup_done && pixelformat == PIXEL_x8) for(i = 0; i < MAX_BLENDINGS; i++) + { + free(blendtables[i]); + } + if(!disablelog) + { + printf(".."); + } + if(startup_done) + { + freescreen(&background); + } + if(!disablelog) + { + printf(".."); + } +#ifdef CACHE_BACKGROUNDS + if(startup_done) for(i = 0; i < MAX_CACHED_BACKGROUNDS; i++) + { + freescreen(&bg_cache[i]); + } + if(!disablelog) + { + printf(".."); + } +#endif + if(startup_done) + { + freesprites(); + } + if(!disablelog) + { + printf(".."); + } + if(startup_done) + { + unload_all_fonts(); + } + if(!disablelog) + { + printf("\tDone!\n"); + } + + + if(!disablelog) + { + printf("Release game data............\n\n"); + } + + if(startup_done) + { + free_ents(); + } + if(startup_done) + { + free_models(); + } + if(startup_done) + { + free_modelcache(); + } + if(startup_done) + { + clear_scripts(); + } + if(!disablelog) + { + printf("\nRelease game data............\tDone!\n"); + } + + if(!disablelog) + { + printf("Release timer................"); + } + if(startup_done) + { + borTimerExit(); + } + if(!disablelog) + { + printf("\tDone!\n"); + } + + if(!disablelog) + { + printf("Release input hardware......."); + } + if(startup_done) + { + control_exit(); + } + if(!disablelog) + { + printf("\tDone!\n"); + } + + if(!disablelog) + { + printf("Release sound system........."); + } + if(startup_done) + { + sound_exit(); + } + if(!disablelog) + { + printf("\tDone!\n"); + } + + if(!disablelog) + { + printf("Release FileCaching System..."); + } + if(startup_done) + { + pak_term(); + } + if(!disablelog) + { + printf("\tDone!\n"); + } + + if(modelcmdlist) + { + freeCommandList(modelcmdlist); // moved here because list is not initialized if shutdown is initiated from inside the menu + } + if(modelstxtcmdlist) + { + freeCommandList(modelstxtcmdlist); + } + if(levelcmdlist) + { + freeCommandList(levelcmdlist); + } + if(levelordercmdlist) + { + freeCommandList(levelordercmdlist); + } + + freeModelList(); + clear_saved_allowselect_arguments(); + free(savelevel_allowselect_args); + savelevel_allowselect_args = NULL; + if(savelevel) + { + free(savelevel); + savelevel = NULL; + } + savelevel_count = 0; + free(allowselect_args); + allowselect_args = NULL; + freefilenamecache(); + ob_termtrans(); + + // free input recorder + free_input_recorder(); + + if(!disablelog) + { + printf("\n**************** Done *****************\n\n"); + } + + if(!disablelog) + { + va_copy(output_arguments, arglist); + writeToLogFileV(msg, output_arguments); + va_end(output_arguments); + } + + va_end(arglist); + shuttingdown = 0; + borExit(status); +} + + +void guistartup() +{ + int i; + + if(!font_load(0, "menu/font1", packfile, 0)) + { + borShutdown(1, "Unable to load font #1!\n"); + } + if(!font_load(1, "menu/font2", packfile, 0)) + { + borShutdown(1, "Unable to load font #2!\n"); + } + if(!font_load(2, "menu/font3", packfile, 0)) + { + borShutdown(1, "Unable to load font #3!\n"); + } + + + borTimerInit(); + + control_init(2); + apply_controls(); + + init_videomodes(0); + if(!video_set_mode(videomodes)) + { + borShutdown(1, "Unable to set video mode: %d x %d!\n", videomodes.hRes, videomodes.vRes); + } + + for(i = 0; i < 256; i++) + { + neontable[i] = i; + } +} + + +void startup() +{ + int i; + + printf("FileCaching System Init.......\t"); + if(pak_init()) + { + printf("Enabled\n"); + } + else + { + printf("Disabled\n"); + } + + loadHighScoreFile(); + clearSavedGame(); + + init_videomodes(1); + if(!video_set_mode(videomodes)) + { + borShutdown(1, "Unable to set video mode: %d x %d!\n", videomodes.hRes, videomodes.vRes); + } + + printf("Timer init...................\t"); + borTimerInit(); + printf("Done!\n"); + + printf("Initialize Sound.............\t"); + if(sound_init()) + { + if(load_special_sounds()) + { + printf("Done!\n"); + } + else + { + printf("\n"); + } + if(!sound_start_playback()) + { + printf("Warning: can't play sound!\n"); + } + SB_setvolume(SB_MASTERVOL, savedata.soundvol); + SB_setvolume(SB_VOICEVOL, savedata.soundvol); + } + else + { + borShutdown(1, "Unable to Initialize Sound.\n"); + } + + // init. input recorder + init_input_recorder(); + + printf("Loading fonts................\t"); + load_all_fonts(); + printf("Done!\n"); + + printf("Loading sprites..............\t"); + load_special_sprites(); + printf("Done!\n"); + + printf("Loading level order..........\t"); + load_levelorder(); + printf("Done!\n"); + + printf("Loading model constants......\t"); + load_model_constants(); + printf("Done!\n"); + + printf("Loading script settings......\t"); + load_script_setting(); + printf("Done!\n"); + + printf("Loading scripts..............\t"); + load_scripts(); + printf("Done!\n"); + + printf("Loading models...............\n\n"); + load_models(); + + printf("Object engine init...........\t"); + if(!alloc_ents()) + { + borShutdown(1, "Not enough memory for game objects!\n"); + } + printf("Done!\n"); + + printf("Loading menu.txt.............\t"); + load_menu_txt(); + printf("Done!\n"); + + /* + Kratus (01-2024) Moved the translation and menu functions to the end of the engine "startup" function, + but before the "control init" function (reverted the font function to load before scripts) + */ + printf("Loading translation..........\t"); + ob_inittrans(); + printf("Done!\n"); + + printf("Input init...................\t"); + control_init(savedata.usejoy); + apply_controls(); + printf("Done!\n"); + +#ifdef CACHE_BACKGROUNDS + printf("Caching backgrounds..........\t"); + cache_all_backgrounds(); + printf("Done!\n"); +#endif + + printf("Create blending tables.......\t"); + if(pixelformat == PIXEL_x8) + { + create_blend_tables_x8(blendtables); + } + + for(i = 0; i < MAX_PAL_SIZE / 4; i++) + { + neontable[i] = i; + } + printf("Done!\n"); + + if(savedata.logo++ > 10) + { + savedata.logo = 0; + } + + printf("Save settings so far.........\t"); + savesettings(); + printf("Done!\n"); + + startup_done = 1; + + printf("\n\n"); + +} + + + +// ---------------------------------------------------------------------------- + + +// Returns 0 on error, -1 on escape +int playgif(char *filename, int x, int y, int noskip) +{ + anigif_info *info = calloc(1, sizeof(*info)); + s_screen *backbuffer = NULL; + s_screen *tempbg = background; + int result = 1; + u32 synctosound; + u32 lasttime; + u32 milliseconds; + u32 temptime, tempnewtime; // temporary patch for ingame gif play + + synctosound = (sound_getinterval() != 0xFFFFFFFF); + temptime = _time; + tempnewtime = newtime; + _time = 0; + milliseconds = 0; + lasttime = 0; + background = NULL; + + if(!(result = anigif_open(filename, packfile, info))) + { + goto playgif_end; + } + + while(!info->done) + { + if(milliseconds >= info->info[0].nextframe) + { + anigif_decode_frame(info); + } + if(!(backbuffer = anigif_getbuffer(info))) + { + break; + } + spriteq_add_screen(x, y, 0, backbuffer, NULL, 0); + if(info->frame == 0) + { + vga_vwait(); + update(0, 0); + } + else + { + update(0, 1); + } + + if(synctosound) + { + milliseconds += sound_getinterval(); + } + else + { + milliseconds += (_time - lasttime) * 1000 / global_config.game_speed; + } + + lasttime = _time; + + if(!noskip && (bothnewkeys & (FLAG_ESC | FLAG_ANYBUTTON))) + { + result = -1; + break; + } + } + + +playgif_end: + anigif_close(info); + free(info); + _time = temptime; + newtime = tempnewtime; + background = tempbg; + //standard_palette(1); //Kratus (01-2024) Disabled to fix the fps drop issue + + if(0 == result) + { + printf("\nWarning, an error occurred while playing animated gif file '%s'.\n", filename); + } + return result; + +} + + +#ifdef WEBM +/* +* Caskey, Damon V. +* 2026-08-12 +* +* Preserve blocking playwebm() behavior as a wrapper around +* the reusable movie APIs. Return 1 on completion, 0 on error, +* or -1 when creator-enabled input interrupts playback. +*/ +int playwebm(const char *path, int noskip) +{ + int retval = 1; + int source_id = -1; + s_movie_playback *playback = NULL; + s_screen *screenshot_frame = NULL; + + movie_playback_stop_all(); + source_id = movie_source_load(path, MOVIE_LOADING_STREAM); + if(source_id < 0) { + return 0; + } + playback = movie_playback_play( + source_id, + MOVIE_CHANNEL_AUTO, + savedata.musicvol, + true + ); + if(!playback) { + retval = 0; + goto quit; + } + if(!movie_playback_set_interrupt(playback, !noskip)) { + retval = 0; + goto quit; + } + + /* Legacy playback uses the WebM display size and hardware YUV output. */ + movie_playback_set_width(playback, MOVIE_SIZE_NATIVE); + movie_playback_set_height(playback, MOVIE_SIZE_NATIVE); + + while(playback->active) { + int interrupt_requested; + int present_frame; + + inputrefresh(playrecstatus->status); + interrupt_requested = + (bothnewkeys & (FLAG_ESC | FLAG_ANYBUTTON)) != 0; + if(interrupt_requested && playback->interrupt) { + retval = -1; + } + movie_playback_update(interrupt_requested); + if(!playback->active) { + break; + } + present_frame = playback->frame_dirty; + if(present_frame) { + if(!movie_playback_draw_to_yuv(playback->index)) { + retval = 0; + break; + } + } + if(playback->current_frame && + !noscreenshot && + (bothnewkeys & FLAG_SCREENSHOT)) { + if(!screenshot_frame || + screenshot_frame->width != playback->current_frame->width || + screenshot_frame->height != playback->current_frame->height) { + if(screenshot_frame) { + freescreen(&screenshot_frame); + } + screenshot_frame = allocscreen( + playback->current_frame->width, + playback->current_frame->height, + PIXEL_32 + ); + } + if(screenshot_frame) { + yuv_to_rgb(playback->current_frame, screenshot_frame); + screenshot(screenshot_frame, NULL, 0); + } + } + usleep(1000); + } + +quit: + if(screenshot_frame) { + freescreen(&screenshot_frame); + } + if(playback && playback->failed && retval > 0) { + retval = 0; + } + if(playback && playback->active) { + movie_playback_stop(playback); + } + while(source_id >= 0 && !movie_source_unload(source_id)) { + movie_playback_update(0); + usleep(1000); + } + return retval; +} +#endif + + + +void playscene(char *filename) +{ + char *buf; + size_t size; + int pos; + char *command = NULL; + char videofile[MAX_BUFFER_LEN]; + int x = 0, y = 0, skipone = 0, noskip = 0, i; + int closing = 0, status; + + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + + // Read file + if(buffer_pakfile(filename, &buf, &size) != 1) + { + return; + } + + currentScene = filename; + + // Now interpret the contents of buf line by line + pos = 0; + while(buf[pos]) + { + ParseArgs(&arglist, buf + pos, argbuf); + command = GET_ARG(0); + if(command[0]) + { + if(!closing && stricmp(command, "music") == 0) + { + music(GET_ARG(1), GET_INT_ARG(2), atol(GET_ARG(3))); + } + else if(!closing && stricmp(command, "animation") == 0) + { + strcpy(videofile, GET_ARG(1)); + x = GET_INT_ARG(2); + y = GET_INT_ARG(3); + skipone = GET_INT_ARG(4); + noskip = GET_INT_ARG(5); + status = playgif(videofile, x, y, noskip); + if(status == -1 && !skipone) + { + closing = 1; + } + } + else if(!closing && stricmp(command, "video") == 0) + { +#ifdef WEBM + strcpy(videofile, GET_ARG(1)); + skipone = GET_INT_ARG(2); + noskip = GET_INT_ARG(3); + status = playwebm(videofile, noskip); + if(status == -1 && !skipone) + { + closing = 1; + } + else if(status == 0) + { + printf("An error occurred when trying to play the video %s\n", videofile); + } +#else + printf("Skipping video %s; WebM playback not supported on this platform\n"); +#endif + } + else if(stricmp(command, "silence") == 0) + { + sound_close_music(); + } + } + // Go to next non-blank line + pos += getNewLineStart(buf + pos); + } + if(buf != NULL) + { + free(buf); + buf = NULL; + } + currentScene = NULL; + for(i = 0; i < MAX_PLAYERS; i++) + { + player[i].disablekeys = player[i].newkeys = player[i].playkeys = 0; + } +} + + + + +// ---------------------------------------------------------------------------- + + + + +void gameover() +{ + int done = 0; + char tmpBuff[MAX_BUFFER_LEN] = {""}; + + music("data/music/gameover", 0, 0); + + _time = 0; + screen_status |= IN_SCREEN_GAME_OVER; + + if(custScenes != NULL) + { + strcpy(tmpBuff, custScenes); + strcat(tmpBuff, "gameover.txt"); + if(testpackfile(tmpBuff, packfile) >= 0) + { + playscene(tmpBuff); + done = 1; + } + } + else + { + if(testpackfile("data/scenes/gameover.txt", packfile) >= 0) + { + playscene("data/scenes/gameover.txt"); + done = 1; + } + + } + + while(!done) + { + font_printf(_strmidx(3, Tr("GAME OVER")), 110 + videomodes.vShift, 3, 0, Tr("GAME OVER")); + done |= (_time > global_config.game_speed * 8 && !sound_query_music(NULL, NULL)); + done |= (bothnewkeys & (FLAG_ESC | FLAG_ANYBUTTON)); + update(0, 0); + } + + screen_status &= ~IN_SCREEN_GAME_OVER; +} + + + + +void hallfame(int addtoscore) +{ + int done = 0; + int topten[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + uint64_t score; + char name[MAX_NAME_LEN + 1]; + int i, p, y; + char tmpBuff[MAX_BUFFER_LEN] = {""}; + int col1 = -8; + int col2 = 6; + + screen_status |= IN_SCREEN_HALL_OF_FAME; + + if(hiscorebg) + { + // New alternative background path. + if(custBkgrds != NULL) + { + strcpy(tmpBuff, custBkgrds); + strcat(tmpBuff, "hiscore"); + load_background(tmpBuff); + } + else + { + load_cached_background("data/bgs/hiscore"); + } + } + + if(addtoscore) + { + for(p = 0; p < levelsets[current_set].maxplayers; p++) + { + if(player[p].score > savescore.highsc[9]) + { + savescore.highsc[9] = player[p].score; + strcpy(savescore.hscoren[9], player[p].name); + topten[9] = 1; + + for(i = 8; i >= 0 && player[p].score > savescore.highsc[i]; i--) + { + score = savescore.highsc[i]; + strcpy(name, savescore.hscoren[i]); + savescore.highsc[i] = player[p].score; + strcpy(savescore.hscoren[i], player[p].name); + topten[i] = 1; + savescore.highsc[i + 1] = score; + strcpy(savescore.hscoren[i + 1], name); + topten[i + 1] = 0; + } + } + } + saveHighScoreFile(); + } + + _time = 0; + + while(!done) + { + y = 56; + if(!hiscorebg) + { + font_printf(_strmidx(3, Tr("Hall Of Fame")), y - fontheight(3) - 10 + videomodes.vShift, 3, 0, Tr("Hall Of Fame")); + } + + for(i = 0; i < 10; i++) + { + font_printf(_colx(topten[i], col1), y + videomodes.vShift, topten[i], 0, "%2i. %s", i + 1, savescore.hscoren[i]); + font_printf(_colx(topten[i], col2), y + videomodes.vShift, topten[i], 0, (scoreformat ? "%09" PRIu64 : "%" PRIu64), savescore.highsc[i]); + y += (videomodes.vRes - videomodes.vShift - 56 - 32) / 10; //font_heights[topten[i]] + 6; + } + + // Kratus (01-2023) Added the "FLAG_ANYBUTTON" to exit the Hall of Fame screen + update(0, 0); + done |= (_time > global_config.game_speed * 8); + done |= (bothnewkeys & (FLAG_START | FLAG_ANYBUTTON | FLAG_ESC)); + } + unload_background(); + screen_status &= ~IN_SCREEN_HALL_OF_FAME; +} + + + + +// Level completed, show bonus stuff +void showcomplete(int num) +{ + int done = 0; + int i, j, k; + u32 clearbonus[4] = { 10000, 10000, 10000, 10000 }; + u32 lifebonus[4] = { 10000, 10000, 10000, 10000 }; + u32 rushbonus[4] = { 10000, 10000, 10000, 10000 }; + u32 nexttime = 0; + u32 finishtime = 0; + int chan = 0; + char tmpBuff[MAX_BUFFER_LEN] = {""}; + + screen_status |= IN_SCREEN_SHOW_COMPLETE; + + if(completebg) + { + // New alternative background path. + if(custBkgrds != NULL) + { + strcpy(tmpBuff, custBkgrds); + strcat(tmpBuff, "complete"); + load_background(tmpBuff); + } + else + { + load_cached_background("data/bgs/complete"); + } + } + + music("data/music/complete", 0, 0); + + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(rush[0] >= 1 && showrushbonus == 1) + { + rushbonus[i] = nomaxrushreset[i] * scbonuses[2]; + } + if(scbonuses[3] == 1) + { + clearbonus[i] = num * scbonuses[0]; + } + else + { + clearbonus[i] = scbonuses[0]; + } + lifebonus[i] = player[i].lives * scbonuses[1]; + } + + update(0, 0); + + _time = 0; + while(!done) + { + if(!scomplete[5]) + { + font_printf(videomodes.hShift + scomplete[0], videomodes.vShift + scomplete[1], 3, 0, Tr("Stage %i Complete!"), num); + } + else + { + font_printf(videomodes.hShift + scomplete[0], videomodes.vShift + scomplete[1], 3, 0, Tr("Stage")); + font_printf(videomodes.hShift + scomplete[2], videomodes.vShift + scomplete[3], 3, 0, "%i", num); + font_printf(videomodes.hShift + scomplete[4], videomodes.vShift + scomplete[5], 3, 0, Tr("Complete")); + } + + font_printf(videomodes.hShift + cbonus[0], videomodes.vShift + cbonus[1], 0, 0, Tr("Clear Bonus")); + for(i = 0, j = 2, k = 3; i < levelsets[current_set].maxplayers; i++, j = j + 2, k = k + 2) if(player[i].lives > 0) + { + font_printf(videomodes.hShift + cbonus[j], videomodes.vShift + cbonus[k], 0, 0, (scoreformat ? "%09lu" : "%lu"), clearbonus[i]); + } + font_printf(videomodes.hShift + lbonus[0], videomodes.vShift + lbonus[1], 0, 0, Tr("Life bonus")); + for(i = 0, j = 2, k = 3; i < levelsets[current_set].maxplayers; i++, j = j + 2, k = k + 2) if(player[i].lives > 0) + { + font_printf(videomodes.hShift + lbonus[j], videomodes.vShift + lbonus[k], 0, 0, (scoreformat ? "%09lu" : "%lu"), lifebonus[i]); + } + if(rush[0] >= 1 && showrushbonus == 1) + { + font_printf(videomodes.hShift + rbonus[0], videomodes.vShift + rbonus[1], 0, 0, Tr("Rush Bonus")); + for(i = 0, j = 2, k = 3; i < levelsets[current_set].maxplayers; i++, j = j + 2, k = k + 2) if(player[i].lives > 0) + { + font_printf(videomodes.hShift + rbonus[j], videomodes.vShift + rbonus[k], 0, 0, (scoreformat ? "%09lu" : "%lu"), rushbonus[i]); + } + } + font_printf(videomodes.hShift + tscore[0], videomodes.vShift + tscore[1], 0, 0, Tr("Total Score")); + for(i = 0, j = 2, k = 3; i < levelsets[current_set].maxplayers; i++, j = j + 2, k = k + 2) if(player[i].lives > 0) + { + font_printf(videomodes.hShift + tscore[j], videomodes.vShift + tscore[k], 0, 0, (scoreformat ? "%09" PRIu64 : "%" PRIu64), player[i].score); + } + + while(_time > nexttime) + { + if(!finishtime) + { + finishtime = _time + 4 * global_config.game_speed; + } + + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(player[i].lives > 0) + { + if(clearbonus[i] > 0) + { + addscore(i, 10); + clearbonus[i] -= 10; + finishtime = 0; + } + else if(lifebonus[i] > 0) + { + addscore(i, 10); + lifebonus[i] -= 10; + finishtime = 0; + } + else if(rush[0] >= 1 && showrushbonus == 1 && (rushbonus[i] > 0)) + { + addscore(i, 10); + rushbonus[i] -= 10; + finishtime = 0; + } + } + } + + if(!finishtime && !(nexttime & 15)) + { + sound_stop_sample(chan); + chan = sound_play_sample(global_sample_list.beep, 0, savedata.effectvol / 2, savedata.effectvol / 2, 100); + } + nexttime++; + } + + if(bothnewkeys & (FLAG_ANYBUTTON | FLAG_ESC)) + { + done = 1; + } + if(finishtime && _time > finishtime) + { + done = 1; + } + + update(0, 0); + } + + // Add remainder of score, incase player skips counter + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(player[i].lives > 0) + { + if(rush[0] >= 1 && showrushbonus == 1) + { + addscore(i, rushbonus[i]); + } + addscore(i, clearbonus[i]); + addscore(i, lifebonus[i]); + } + } + unload_background(); + + screen_status &= ~IN_SCREEN_SHOW_COMPLETE; +} + +void savelevelinfo() +{ + int i; + s_set_entry *set = levelsets + current_set; + s_savelevel *save = savelevel + current_set; + + save->flag = set->saveflag; + // don't check flag here save all info, for simple logic + for(i = 0; i < set->maxplayers; i++) + { + save->pLives[i] = player[i].lives; + save->pCredits[i] = player[i].credits; + save->pScores[i] = player[i].score; + save->pSpawnhealth[i] = player[i].spawnhealth; + save->pSpawnmp[i] = player[i].spawnmp; + save->pWeapnum[i] = player[i].weapnum; + save->pColourmap[i] = player[i].colourmap; + strncpy(save->pName[i], player[i].name, MAX_NAME_LEN); + } + save->credits = credits; + save->level = current_level; + save->stage = current_stage; + save->which_set = current_set; + strncpy(save->dName, set->name, MAX_NAME_LEN - 1); + set_saved_allowselect_arguments(current_set, allowselect_args); +} + +void tryvictorypose(entity *ent) +{ + if( ent && + ent->inpain & ~IN_PAIN_NONE && + !ent->falling && + !(ent->death_state & DEATH_STATE_DEAD) && + !ent->rising && + (ent->idling & IDLING_ACTIVE) && + ent->position.y <= ent->base ) + { + ent->takeaction = NULL; + ent->velocity.x = ent->velocity.z = 0; + ent->idling = IDLING_NONE; + ent_set_anim(ent, ANI_VICTORY, 0); + } +} + +static void check_victory_pose() +{ + if ( (endgame & 1) && level_completed_defeating_boss ) + { + int i; + for(i = 0; i < MAX_PLAYERS; i++) + { + entity* tmp = self; + self = player[i].ent; + if(self && validanim(self, ANI_VICTORY) && self->animnum != ANI_VICTORY) + { + tryvictorypose(self); + endgame = 0; + } + else if (self && self->animnum == ANI_VICTORY && self->animating) + { + endgame = 0; + } + + self = tmp; + } + } +} + +int playlevel(char *filename) +{ + int i, type, p_alive = 0; + + kill_all(); + + savelevelinfo(); // just in case we lose them after level is freed + + load_level(filename); + + if(!nosave) + { + saveGameFile(); + saveHighScoreFile(); + saveScriptFile(); + } + nosave = 0; + + _time = 0; + nextplan = 0; + stalker = NULL; + firstplayer = NULL; + type = level->type; + + // Fixes the start level executing last button bug + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(player[i].lives > 0) + { + player[i].disablekeys = player[i].newkeys = player[i].playkeys = 0; + player[i].weapnum = level->setweap; + player[i].joining = 0; + player[i].hasplayed = 1; + spawnplayer(i); + player[i].ent->rush.max = 0; + } + } + + //execute a script when level started + if(Script_IsInitialized(&level_script)) + { + Script_Execute(&level_script); + } + if(Script_IsInitialized(&(level->level_script))) + { + Script_Execute(&(level->level_script)); + } + + while(!endgame) + { + update(1, 0); + + if (level->force_finishlevel) + { + level_completed = 1; + endgame |= 1; + level->force_finishlevel = 0; + } + if (level->force_gameover) + { + //entity* temp = self; + for(i = 0; i < MAX_PLAYERS; i++) //levelsets[current_set].maxplayers + { + player[i].lives = 0; + if(noshare) + { + player[i].credits = 0; + } + else + { + credits = 0; + } + if (player[i].ent) + { + kill_entity(player[i].ent, KILL_ENTITY_TRIGGER_LEVEL_GAME_OVER); + player[i].ent = NULL; + } + //self = player[i].ent; + //player_die(); + } + //self = temp; + //kill_all(); + endgame |= 1; + level->force_gameover = 0; + } + if(level_completed) + { + endgame |= (!findent(TYPE_ENEMY) || level->type || findent(TYPE_ENDLEVEL)); // Ends when all enemies die or a bonus level + check_victory_pose(); + } + } + //execute a script when level finished + if(Script_IsInitialized(&endlevel_script)) + { + Script_Execute(&endlevel_script); + } + if(Script_IsInitialized(&(level->endlevel_script))) + { + Script_Execute(&(level->endlevel_script)); + } + if(!nofadeout) + { + fade_out(0, 0); + } + + for(i = 0; i < levelsets[current_set].maxplayers; i++) + { + if(player[i].ent) + { + nomaxrushreset[i] = player[i].ent->rush.max; + player[i].spawnhealth = player[i].ent->energy_state.health_current; + player[i].spawnmp = player[i].ent->energy_state.mp_current; + } + // reset + player[i].weapnum = 0; + } + + if(!musicoverlap) + { + sound_close_music(); + } + sound_stopall_sample(false); + + unload_level(); + + // Are any players alive? + for(i = 0; i < MAX_PLAYERS; i++) + { + if (player[i].lives > 0) + { + p_alive = 1; + break; + } + } + + return ((type == 2 && endgame != 2) || p_alive); +} + +// Caskey, Damon V (retool, OA unknown) +// 2019-01-03 +// +// For select screen. Spawn sample entity for player_index. +static entity *spawnexample(int player_index) +{ + char* SPAWN_MODEL_NAME = NULL; + const int SPAWN_MODEL_INDEX = MODEL_INDEX_NONE; + + entity *example; + s_model *model; + s_set_entry *set; + + float pos_x; + float pos_y; + float pos_z; + int direction; + + set = levelsets + current_set; + + // Get spawn attributes and spawn entity. + pos_x = (float)psmenu[player_index][0]; + pos_y = 0; + pos_z = (float)psmenu[player_index][1]; + direction = spdirection[player_index]; + + // Next selectable model in cycle. We'll use this + // to decide what we spawn. + model = nextplayermodeln(NULL, player_index); + + example = spawn(pos_x, pos_z, pos_y, direction, SPAWN_MODEL_NAME, SPAWN_MODEL_INDEX, model); + + // Copy model's name to player property. + strcpy(player[player_index].name, model->name); + + // If color selection is allowed and we want + // players with same models to use different + // maps, then use next map in cycle. Otherwise + // just go with default map. + if (colourselect && (set->nosame & 2)) + { + player[player_index].colourmap = nextcolourmapn(model, -1, player_index); + } + else + { + player[player_index].colourmap = 0; + } + + // Apply map to spawned entity. + ent_set_colourmap(example, player[player_index].colourmap); + + // So the entity knows how it came to be. + example->spawntype = SPAWN_TYPE_PLAYER_SELECT; + + return example; +} + +// load saved select screen +static void load_select_screen_info(s_savelevel *save) +{ + int i = 0; + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + char *filename = ""; // not used, just fused into GET_INT_ARG() + char *command = ""; // not used, just fused into GET_INT_ARG() + + // load model_loads + for(i = 0; i < save->selectLoadCount; i++) + { + s_model *tempmodel; + command = GET_ARG(0); + + if(!command || !command[0]) continue; + ParseArgs(&arglist, save->selectLoad[i], argbuf); + + tempmodel = findmodel(GET_ARG(1)); + if (tempmodel) + { + update_model_loadflag(tempmodel, GET_INT_ARG(2)); + } + } + + ParseArgs(&arglist, save->selectMusic, argbuf); + command = GET_ARG(0); + if(command && command[0]) music(GET_ARG(1), GET_INT_ARG(2), atol(GET_ARG(3))); + + ParseArgs(&arglist, save->selectBackground, argbuf); + command = GET_ARG(0); + if(command && command[0]) load_background(GET_ARG(1)); + + return; +} + +int selectplayer(int *players, char *filename, int useSavedGame) +{ + s_model *tempmodel; + s_model *model_new[MAX_PLAYERS] = { NULL }; + int i; + int exit = 0; + int escape = 0; + int defaultselect = 0; + unsigned exitdelay = 0; + int players_busy = 0; + int players_ready = 0; + char string[MAX_BUFFER_LEN] = { "" }; + char *buf, *command; + size_t size = 0; + ptrdiff_t pos = 0; + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + s_set_entry *set = levelsets + current_set; + s_savelevel *save = savelevel + current_set; + int load_count = 0; + int saved_select_screen = 0; + int is_first_select = 1; + + savelevelinfo(); + + screen_status |= IN_SCREEN_SELECT; + + kill_all(); + + // Initialize player sized arrays. + entity *example[set->maxplayers]; + int ready[set->maxplayers]; + + // Initialize + for (i = 0; i < set->maxplayers; i++) + { + example[i] = NULL; + ready[i] = 0; + } + + // Allow select? 'a' is the first char of allowselect, + // if there's 'a' then there is allowselect. + if (!allowselect_args + || (allowselect_args[0] != 'a' + && allowselect_args[0] != 'A')) + { + reset_playable_list(1); + } + + // Reset memory for player array. + memset(player, 0, sizeof(*player) * MAX_PLAYERS); + + // Load game selected and a save game available? + if (useSavedGame && save) + { + if (save->selectFlag) + { + load_select_screen_info(save); + load_playable_list( + get_saved_allowselect_arguments(current_set) + ); + saved_select_screen = 1; + } + } + + // Mark "hasplayed" for all players. + for (i = 0; i < set->maxplayers; i++) + { + player[i].hasplayed = players[i]; + } + + for (i = 0; i < set->maxplayers; i++) + { + if (savelevel[current_set].pLives[i] > 0) + { + is_first_select = 0; + break; + } + } + + // Load and apply selection text file. + if (filename && filename[0]) + { + if (buffer_pakfile(filename, &buf, &size) != 1) + { + borShutdown(1, "Failed to load player select file '%s'", filename); + } + while (pos < size) + { + ParseArgs(&arglist, buf + pos, argbuf); + command = GET_ARG(0); + if (command && command[0]) + { + if (stricmp(command, "music") == 0) + { + music(GET_ARG(1), GET_INT_ARG(2), atol(GET_ARG(3))); + // SAVE + multistrcatsp(save->selectMusic, command, GET_ARG(1), GET_ARG(2), GET_ARG(3), NULL); + } + else if (stricmp(command, "allowselect") == 0) + { + load_playable_list(buf + pos); + set_saved_allowselect_arguments( + current_set, + allowselect_args + ); + } + else if (stricmp(command, "background") == 0) + { + load_background(GET_ARG(1)); + // SAVE + multistrcatsp(save->selectBackground, command, GET_ARG(1), NULL); + } + else if (stricmp(command, "load") == 0) + { + tempmodel = findmodel(GET_ARG(1)); + if (!tempmodel) + { + load_cached_model(GET_ARG(1), filename, GET_INT_ARG(2)); + } + else + { + update_model_loadflag(tempmodel, GET_INT_ARG(2)); + } + // SAVE + if (load_count < MAX_SELECT_LOADS) + { + multistrcatsp(save->selectLoad[load_count], command, GET_ARG(1), GET_ARG(2), NULL); + load_count++; + } + } + else if (command && command[0]) + { + printf("Command '%s' is not understood in file '%s'\n", command, filename); + } + } + + pos += getNewLineStart(buf + pos); + } + save->selectLoadCount = load_count; // SAVE number of LOAD command + save->selectFlag = 1; + + if (buf != NULL) + { + free(buf); + buf = NULL; + } + } + else // without select.txt + { + if (is_first_select || (!skipselect[0][0] && !set->noselect)) // no select is skipselect without names + { + defaultselect = 1; // normal select or skipselect/noselect? 1 == normal select + } + + if (!noshare) + { + credits = CONTINUES; + } + else for (i = 0; i < set->maxplayers; i++) + { + if (players[i]) + { + player[i].credits = CONTINUES; + } + } + + if (skipselect[0][0] || set->noselect) + { + for (i = 0; i < set->maxplayers; i++) + { + if (!players[i]) + { + continue; + } + strncpy(player[i].name, skipselect[i], MAX_NAME_LEN); + + if (defaultselect) + { + player[i].lives = PLAYER_LIVES; + if (!(global_config.cheats & CHEAT_OPTIONS_CREDITS_ACTIVE)) + { + if (noshare) + { + --player[i].credits; + } + else + { + --credits; + } + } + } + else + { + player[i].lives = savelevel[current_set].pLives[i]; + player[i].score = savelevel[current_set].pScores[i]; + if (noshare) player[i].credits = savelevel[current_set].pCredits[i]; + else credits = savelevel[current_set].credits; + } + } + + screen_status &= ~IN_SCREEN_SELECT; + + return 1; + } + + if (!saved_select_screen) + { + if (unlockbg && bonus) + { + // New alternative background path. + if (custBkgrds != NULL) + { + strcpy(string, custBkgrds); + strcat(string, "unlockbg"); + load_background(string); + } + else + { + load_cached_background("data/bgs/unlockbg"); + } + } + else + { + // New alternative background path. + if (custBkgrds != NULL) + { + strcpy(string, custBkgrds); + strcat(string, "select"); + load_background(string); + } + else + { + load_cached_background("data/bgs/select"); + } + } + if (!music("data/music/menu", 1, 0)) + { + music("data/music/remix", 1, 0); + } + } + } + + for (i = 0; i < set->maxplayers; i++) + { + if (players[i]) + { + example[i] = spawnexample(i); + player[i].playkeys = 0; + if (defaultselect) + { + player[i].lives = PLAYER_LIVES; + if (!(global_config.cheats & CHEAT_OPTIONS_CREDITS_ACTIVE)) + { + if (noshare) + { + --player[i].credits; + } + else + { + --credits; + } + } + } + else + { + player[i].lives = savelevel[current_set].pLives[i]; + player[i].score = savelevel[current_set].pScores[i]; + if (noshare) player[i].credits = savelevel[current_set].pCredits[i]; + else credits = savelevel[current_set].credits; + } + } + } + + _time = 0; + + // Stay in selection until escape or exit. + // + // exit = all players ready (selected) and exit delay expired. + // escape = Escape key pressed. + while (!(exit || escape)) + { + players_busy = 0; + players_ready = 0; + + // Loop through players. + for (i = 0; i < set->maxplayers; i++) + { + // Current player index not yet selected? + if (!ready[i]) + { + + // This is where we present player selections. The logic is long + // and a little messy, so buckle up! Basically, we want to spawn + // an example entity to get started, and that example entity + // is what player sees on the selection screen. Then we switch + // its model/color/animation based on the situation and player + // input. + // + // 1. If an example entity exists and is playing a transition + // then we... + // + // a) do nothing if the animation isn't finished. + // + // b) If it IS finished... + // + // -- 1. If the animation is ANI_SELECTIN, then play ANI_SELECT. + // + // -- 2. If aniamton is ANI_SELECTOUT, then we switch to new + // model (if available). + // + // 2. If player hasn't played yet, has some credits or + // can draw from credit pool and pressed any action button, + // then we'll deal with their credit pool and spawn the + // first example (selectable model preview). Having an + // example spawned also tells us the player has completed + // this step, and so it's OK to run actions from any of + // the others. + // + // 3. If the player pressed Left or Right instead and there's + // an example spawned, then we find the previous/next + // character in line, and record it to a variable. Then we + // see if example has ANI_SELECTIN. if it doesn't we switch + // to new model. If it does, play ANI_SELECT. + // + // 4. If the player presses Up or Down, we have an example + // spawned and colourselect is enabled, then cycle to the + // model's previous/next color set choice. + // + // 5. If the player presses any action button and we have + // an example spawned, then we mark the player's ready delay + // flag, and stalltime. See the parent logic block for + // selection delay & exit details. This is the player + // making their selection choice. + + // Example exists and select transition animation? + if (example[i] + && (example[i]->animnum == ANI_SELECTIN || example[i]->animnum == ANI_SELECTOUT)) + { + // If still animating than do nothing. Let the transition finish. + if (example[i]->animating) + { + } + else + { + // Transition to select animation. + if (example[i]->animnum == ANI_SELECTIN) + { + ent_set_anim(example[i], ANI_SELECT, 0); + } + + // Transition from select (player selected another model, and the + // select out transition is now finished). Repeat of left/right key + // logic below and probably needs consolidation. + if (example[i]->animnum == ANI_SELECTOUT && model_new[i]) + { + // Apply new model. + ent_set_model(example[i], model_new[i]->name, 0); + model_new[i] = NULL; + + // Copy example model name to player name variable. + strcpy(player[i].name, example[i]->model->name); + + // If colorselect is enabled and nosame 2 is enabled, skip to + // start at next avaialble color cycle. Otherwise just start + // with default color set (0). + if (colourselect && (set->nosame & 2)) + { + player[i].colourmap = nextcolourmapn(example[i]->model, -1, i); + } + else + { + player[i].colourmap = 0; + } + + // Apply color set. + ent_set_colourmap(example[i], player[i].colourmap); + } + } + } + else if (!player[i].hasplayed + && (noshare || credits > 0) + && (player[i].newkeys & FLAG_ANYBUTTON)) + { + + // Now this player has played. + players[i] = player[i].hasplayed = 1; + //printf("%d %d %d\n", i, player[i].lives, immediate[i]); + + // Noshare means each player has their own credit pool. + if (noshare) + { + player[i].credits = CONTINUES; + } + + // Credits cheat = infinite credits. If that's not enabled, + // then deduct a credit. + if (!(global_config.cheats & CHEAT_OPTIONS_CREDITS_ACTIVE)) + { + if (noshare) + { + --player[i].credits; + } + else + { + --credits; + } + } + + // Give player default number of lives, spawn + // example model and cancel the key flag. + player[i].lives = PLAYER_LIVES; + example[i] = spawnexample(i); + player[i].playkeys = 0; + + // Play sound effect. + if (global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + else if ((player[i].newkeys & FLAG_ANYBUTTON) && example[i]) //Kratus (01-05-21) Moved the "anybutton" code to before of the "left/right" code to fix a bug that makes no character chosen when both are pressed together + { + if (global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + // yay you picked me! + if (validanim(example[i], ANI_PICK)) + { + ent_set_anim(example[i], ANI_PICK, 0); + } + example[i]->stalltime = _time + global_config.game_speed * 2; + ready[i] = 1; + } + else if (player[i].newkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT) && example[i]) + { + // Give player a feedback sound. + if (global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + // Get model in use right now. + // Let's get the new model. Left key = previous model + // in cycle. Right key = next. + if ((player[i].newkeys & FLAG_MOVELEFT)) + { + model_new[i] = prevplayermodeln(example[i]->model, i); + } + else + { + model_new[i] = nextplayermodeln(example[i]->model, i); + } + + // Do we have a select out transition? If so play it here. + // Otherwise switch to new model. + if (validanim(example[i], ANI_SELECTOUT)) + { + ent_set_anim(example[i], ANI_SELECTOUT, 0); + } + else + { + // Apply new model. + ent_set_model(example[i], model_new[i]->name, 0); + model_new[i] = NULL; + + // Copy example model name to player name variable. + strcpy(player[i].name, example[i]->model->name); + + // If colorselect is enabled and nosame 2 is enabled, skip to + // start at next avaialble color cycle. Otherwise just start + // with default color set (0). + if (colourselect && (set->nosame & 2)) + { + player[i].colourmap = nextcolourmapn(example[i]->model, -1, i); + } + else + { + player[i].colourmap = 0; + } + + // Apply color set. + ent_set_colourmap(example[i], player[i].colourmap); + } + } + else if (player[i].newkeys & (FLAG_MOVEUP | FLAG_MOVEDOWN) && colourselect && example[i]) + { + player[i].colourmap = ((player[i].newkeys & FLAG_MOVEUP) ? nextcolourmapn : prevcolourmapn)(example[i]->model, player[i].colourmap, i); + ent_set_colourmap(example[i], player[i].colourmap); + } + } + else if (ready[i] == 1) + { + if (((!validanim(example[i], ANI_PICK) || example[i]->modeldata.animation[ANI_PICK]->loop.mode) && _time > example[i]->stalltime) || !example[i]->animating) + { + ready[i] = 2; + exitdelay = _time + global_config.game_speed; + } + } + else if (ready[i] == 2) + { + font_printf(psmenu[i][2], psmenu[i][3], 0, 0, Tr("Ready!")); + } + + if (example[i] != NULL) + { + players_busy++; + } + if (ready[i] == 2) + { + players_ready++; + } + } + + if (players_busy && players_busy == players_ready && exitdelay && _time > exitdelay) + { + exit = 1; + } + update(0, 0); + + if (bothnewkeys & FLAG_ESC || escape_flag == 11) //Kratus (20-04-21) Added the new "escape" flag in the select screen by using the "gotomainmenu" function and the flag "11" + { + escape = 1; + escape_flag = 0; + } + } + + // No longer at the select screen + kill_all(); + sound_close_music(); + screen_status &= ~IN_SCREEN_SELECT; + + return (!escape); +} + +void playgame(int *players, unsigned which_set, int useSavedGame) +{ + int i; + current_level = 0; + current_stage = 1; + current_set = which_set; + s_set_entry *set = levelsets + current_set; + s_savelevel *save = savelevel + current_set; + s_level_entry *le; + + useSave = 0; + useSet = -1; + + if(which_set >= num_difficulties) + { + return; + } + // borShutdown(1, "Illegal set chosen: index %i (there are only %i sets)!", which_set, num_difficulties); + + allow_secret_chars = set->ifcomplete; + PLAYER_LIVES = set->lives; + musicoverlap = set->musicoverlap; + fade = set->custfade; + CONTINUES = set->credits; + magic_type = set->typemp; + if(PLAYER_LIVES == 0) + { + PLAYER_LIVES = 3; // default + } + if(CONTINUES == 0) + { + CONTINUES = 5; // default + } + if(fade == 0) + { + fade = 24; // default + } + sameplayer = set->nosame; + + if(useSavedGame == 1 && save->flag) + { + memset(player, 0, sizeof(*player) * 4); + if(!loadScriptFile()) + { + printf("Warning, failed to load script save!\n"); + } + current_level = save->level; + current_stage = save->stage; + if(save->flag == 2) // don't check 1 or 0 becuase if we use saved game the flag must be >0 + { + for(i = 0; i < set->maxplayers; i++) + { + player[i].lives = save->pLives[i]; + player[i].credits = save->pCredits[i]; + player[i].score = save->pScores[i]; + player[i].colourmap = save->pColourmap[i]; + player[i].weapnum = save->pWeapnum[i]; + player[i].spawnhealth = save->pSpawnhealth[i]; + player[i].spawnmp = save->pSpawnmp[i]; + strncpy(player[i].name, save->pName[i], MAX_NAME_LEN); + } + credits = save->credits; + } + load_playable_list( + get_saved_allowselect_arguments(current_set) + ); + //reset_playable_list(1); // add this because there's no select screen, temporary solution + } + + nosave = 1; + + // fix save an inexistent level + if ( current_level >= set->numlevels ) + { + current_level = set->numlevels-1; + } + + le = set->levelorder + current_level; + set->noselect = le->noselect; + if (save->selectSkipSelect[0]) le = load_skipselect(save->selectSkipSelect, set); // LOAD skipselect + for(i = 0; i < MAX_PLAYERS; i++) + { + if(le->skipselect[i]) + { + strcpy(skipselect[i], le->skipselect[i]); + } + else + { + skipselect[i][0] = 0; + } + } + + if((useSavedGame == 1 && save->flag == 2) || useSavedGame == 2 || selectplayer(players, NULL, useSavedGame)) // if save flag is 2 don't select player + { + while(current_level < set->numlevels) + { + if(branch_name[0]) // branch checking + { + //current_stage = 1; //jump, jump... perhaps we don't need to reset it, modders should take care of it. + for(i = 0; i < set->numlevels; i++) + { + if(set->levelorder[i].branchname && stricmp(set->levelorder[i].branchname, branch_name) == 0) + { + current_level = i; + break; + } + //if(levelorder[which_set][i]->gonext==1) ++current_stage; OX. Commented this line out. Seems to be cause of inacurate stage # complete message. + } + branch_name[0] = 0;// clear up so we won't stuck here + } + le = set->levelorder + current_level; + PLAYER_MIN_Z = le->z_coords[0]; + PLAYER_MAX_Z = le->z_coords[1]; + BGHEIGHT = le->z_coords[2]; + + if(le->type == LE_TYPE_CUT_SCENE) + { + playscene(le->filename); + } + else if(le->type == LE_TYPE_SELECT_SCREEN) + { + memset(save->selectSkipSelect,0,sizeof(save->selectSkipSelect)); // RESET skipselect + set->noselect = 0; + for(i = 0; i < set->maxplayers; i++) // reset skipselect + { + if(le->skipselect[i]) + { + skipselect[i][0] = 0; + } + } + for(i = 0; i < set->maxplayers ; i++) + { + players[i] = (player[i].lives > 0); + } + if(selectplayer(players, le->filename, useSavedGame) == 0) + { + break; + } + } + else if(le->type == LE_TYPE_SKIP_SELECT) + { + set->noselect = le->noselect; + for(i = 0; i < MAX_PLAYERS; i++) + { + if(le->skipselect[i]) + { + strcpy(skipselect[i], le->skipselect[i]); + } + else + { + skipselect[i][0] = 0; + } + } + save_skipselect(save->selectSkipSelect, skipselect); // TO SAVE FILE + selectplayer(players, NULL, useSavedGame); // re-select a player + } + else if(!playlevel(le->filename)) + { + int all_p_lives_zero = 0; + for(i = 0; i < MAX_PLAYERS; i++) + { + if (player[i].lives <= 0) ++all_p_lives_zero; + } + all_p_lives_zero = (all_p_lives_zero >= MAX_PLAYERS) ? 1 : 0; + + //if( (player[0].lives <= 0 && player[1].lives <= 0 && player[2].lives <= 0 && player[3].lives <= 0) ) + if(all_p_lives_zero) + { + if( (!set->noshowgameover && !(goto_mainmenu_flag&2)) ) + { + gameover(); + } + if(!set->noshowhof && !(goto_mainmenu_flag&4)) + { + hallfame(1); + } + for(i = 0; i < set->maxplayers; i++) + { + player[i].hasplayed = 0; + player[i].weapnum = 0; + } + } + break; + } + if(le->gonext == 1) + { + if (!set->noshowcomplete) showcomplete(current_stage); + for(i = 0; i < set->maxplayers; i++) + { + player[i].spawnhealth = 0; + player[i].spawnmp = 0; + } + ++current_stage; + save->stage = current_stage; + } + current_level++; + le = set->levelorder + current_level; + save->level = current_level; + //2007-2-24, gonext = 2, end game + if((le - 1)->gonext == 2) + { + current_level = set->numlevels; + } + if(useSave) + { + goto endgame; //quick exit without saving, for script load game logic + } + }//while + + if(current_level >= set->numlevels) + { + /* + Kratus (01-2024) Reset level/stage values when a game is finished before saving it. + It will automatically erase the current game progress but only after the ending. + However, it will maintain the "times_completed" intact. + Without this fix the player can increase the "times_completed" infinitely by + just finishing the game once and loading the ending directly how many times he want. + */ + bonus += save->times_completed++; + current_level = 0; + current_stage = 1; + save->level = current_level; + save->stage = current_stage; + saveGameFile(); + if(!nofadeout) + { + fade_out(0, 0); + } + if(!set->noshowhof) + { + hallfame(1); + } + } + } + +endgame: + // clear global script variant list + branch_name[0] = 0; + sound_close_music(); +} + +int menu_difficulty() +{ + int quit = 0; + int selector = 0; + int maxdisplay = 5; + int i, j, t; + //float slider = 0; + int barx, bary, barw, barh; + s_drawmethod drawmethod = plainmethod; + drawmethod.alpha = BLEND_MODE_ALPHA; + + barx = videomodes.hRes / 5; + bary = _liney(0, 0) - 2; + barw = videomodes.hRes * 3 / 5; + barh = 5 * (fontheight(0) + 1) + 4; + screen_status |= IN_SCREEN_NEW_GAME_MENU; + bothnewkeys = 0; + + loadGameFile(); + + while(!quit) + { + if(num_difficulties > 1) + { + _menutextm(2, -2, 0, Tr("Game Mode")); + t = (selector - (selector == num_difficulties)) / maxdisplay * maxdisplay; + for(j = 0, i = t; i < maxdisplay + t && i < num_difficulties; j++, i++) + { + if(j < maxdisplay) + { + // Kratus (10-2021) Added translation feature to the "set" name + // It will get the "set" name in the "levels.txt" file and translate it + // You need to add a new "msgid/msgstr" instance in your "translation.txt" file and put + // the same names as used by all level sets + if(bonus >= levelsets[i].ifcomplete) + { + _menutextm((selector == i), j, 0, "%s", Tr(levelsets[i].name)); + } + else + { + if(levelsets[i].ifcomplete > 1) + { + _menutextm((selector == i), j, 0, Tr("%s - Finish Game %i Times To UnLock"), Tr(levelsets[i].name), levelsets[i].ifcomplete); + } + else + { + _menutextm((selector == i), j, 0, Tr("%s - Finish Game To UnLock"), Tr(levelsets[i].name)); + } + } + } + else + { + break; + } + } + _menutextm((selector == i), 6, 0, Tr("Back")); + + //draw the scroll bar + if(num_difficulties > maxdisplay) + { + spriteq_add_box(barx, bary, barw, barh, 0, color_black, &drawmethod); //outerbox + spriteq_add_line(barx, bary, barx + 8, bary, 1, color_white, NULL); + spriteq_add_line(barx, bary, barx, bary + barh, 1, color_white, NULL); + spriteq_add_line(barx + 8, bary, barx + 8, bary + barh, 1, color_white, NULL); + spriteq_add_line(barx, bary + barh, barx + 8, bary + barh, 1, color_white, NULL); + spriteq_add_box(barx + 1, bary + selector * (barh - 3) / num_difficulties, 7, 3, 2, color_white, NULL); //slider + } + } + + update(0, 0); + + if(num_difficulties == 1) // OX. Mods with only one set will auto load that difficulty. + { + if(selector == num_difficulties) + { + quit = 1; + } + else if(bonus >= levelsets[selector].ifcomplete) + { + saveslot = selector; + strncpy(savelevel[saveslot].dName, levelsets[saveslot].name, MAX_NAME_LEN - 1); + screen_status &= ~IN_SCREEN_NEW_GAME_MENU; + return saveslot; + } + } + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(selector < 0) + { + selector = num_difficulties; + } + if(selector > num_difficulties) + { + selector = 0; + } + //if(selector= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(selector == num_difficulties) + { + quit = 1; + } + else if(bonus >= levelsets[selector].ifcomplete) + { + saveslot = selector; + strncpy(savelevel[saveslot].dName, levelsets[saveslot].name, MAX_NAME_LEN - 1); + screen_status &= ~IN_SCREEN_NEW_GAME_MENU; + return saveslot; + } + } + } + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_NEW_GAME_MENU; + return -1; +} + +int load_saved_game() +{ + int quit = 0; + int selector = 0; + int savedStatus = 0; + char name[MAX_BUFFER_LEN] = {""}; + int col1 = -8, col2 = 6; + + screen_status |= IN_SCREEN_LOAD_GAME_MENU; + bothnewkeys = 0; + + if((savedStatus = loadGameFile())) + { + getPakName(name, 0); + } + for(saveslot = 0; saveslot < num_difficulties; saveslot++) if(savelevel[saveslot].flag && savelevel[saveslot].level) + { + break; + } + + while(!quit) + { + if(saveslot >= num_difficulties) // not found + { + _menutextm(2, -4, 0, Tr("Load Game")); + _menutext(0, col1, -2, Tr("Saved File:")); + _menutext(0, col2, -2, Tr("Not Found!")); + _menutextm(1, 6, 0, Tr("Back")); + + /* + Kratus (01-2024) Minor fix in the selector number if no save is found. + There's no selector "2" in this menu, only 0 (load) or 1 (back). + */ + selector = 1; + } + else + { + _menutextm(2, -4, 0, Tr("Load Game")); + _menutext(0, col1, -2, Tr("Saved File:")); + if(savedStatus) + { + _menutext(0, col2, -2, "%s", name); + } + else + { + _menutext(0, col2, -2, Tr("Not Found!")); + } + + if(savedStatus) + { + _menutext((selector == 0), col1, -1, Tr("Mode:")); + _menutext((selector == 0), col2, -1, "%s", savelevel[saveslot].dName); + _menutext(0, col1, 0, Tr("Stage:")); + _menutext(0, col2, 0, "%d", savelevel[saveslot].stage); + _menutext(0, col1, 1, Tr("Level:")); + _menutext(0, col2, 1, "%d", savelevel[saveslot].level); + _menutext(0, col1, 2, Tr("Credits:")); + + if(noshare){ + _menutext(0, col2, 2, "%d/%d/%d/%d", + savelevel[saveslot].pCredits[0], + savelevel[saveslot].pCredits[1], savelevel[saveslot].pCredits[2], + savelevel[saveslot].pCredits[3]); + } else { + _menutext(0, col2, 2, "%d", savelevel[saveslot].credits); + } + + _menutext(0, col1, 3, Tr("Player Lives:")); + _menutext(0, col2, 3, "%d/%d/%d/%d", + savelevel[saveslot].pLives[0], + savelevel[saveslot].pLives[1], savelevel[saveslot].pLives[2], + savelevel[saveslot].pLives[3]); + } + _menutextm((selector == 1), 6, 0, Tr("Back")); + } + update(0, 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(selector == 0 && (bothnewkeys & FLAG_MOVELEFT)) + { + while(1) + { + --saveslot; + if(saveslot < 0) + { + saveslot = num_difficulties - 1; + } + if(savelevel[saveslot].flag && savelevel[saveslot].level) + { + break; + } + } + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(selector == 0 && (bothnewkeys & FLAG_MOVERIGHT)) + { + while(1) + { + ++saveslot; + if(saveslot > num_difficulties - 1) + { + saveslot = 0; + } + if(savelevel[saveslot].flag && savelevel[saveslot].level) + { + break; + } + } + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(savedStatus) + { + if(selector < 0) + { + selector = 1; + } + if(selector > 1) + { + selector = 0; + } + } + else + { + selector = 1; + } + + if((bothnewkeys & FLAG_ANYBUTTON)) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + switch(selector) + { + case 0: + return saveslot; + break; + case 1: + quit = 1; + break; + } + } + } + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_LOAD_GAME_MENU; + return -1; +} + +int choose_mode(int *players) +{ + int quit = 0; + int relback = 0; + int selector = 0; + int status = 0; + + screen_status |= IN_SCREEN_GAME_START_MENU; + bothnewkeys = 0; + + while(!quit) + { + _menutextm(2, 1, 0, Tr("Choose Mode")); + _menutextm((selector == 0), 3, 0, Tr("New Game")); + _menutextm((selector == 1), 4, 0, Tr("Load Game")); + _menutextm((selector == 2), 6, 0, Tr("Back")); + + update(0, 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(selector < 0) + { + selector = 2; + } + if(selector > 2) + { + selector = 0; + } + + if(bothnewkeys & FLAG_ANYBUTTON) + { + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + switch(selector) + { + case 0: + status = menu_difficulty(); + if(status != -1) + { + playgame(players, status, 0); + relback = 1; + quit = 1; + } + break; + case 1: + status = load_saved_game(); + if(status != -1) + { + playgame(players, status, 1); + relback = 1; + quit = 1; + } + break; + default: + quit = 1; + break; + } + } + } + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_GAME_START_MENU; + return relback; +} + +void term_videomodes() +{ + videomodes.hRes = 0; + videomodes.vRes = 0; + video_set_mode(videomodes); + if(custScenes != NULL) + { + free(custScenes); + } + custScenes = NULL; + if(custBkgrds != NULL) + { + free(custBkgrds); + } + custBkgrds = NULL; + if(custLevels != NULL) + { + free(custLevels); + } + custLevels = NULL; + if(custModels != NULL) + { + free(custModels); + } + custModels = NULL; +} + +// Load Video Mode from file +void init_videomodes(int log) +{ + char *filename = "data/video.txt"; + int tmp; + ptrdiff_t pos, len; + size_t size; + char *buf = NULL; + char *command = NULL; + char *value = NULL, *value2; + ArgList arglist; + char argbuf[MAX_ARG_LEN + 1] = ""; + + // + + if(log) + { + printf("Initializing video............\n"); + } + + // Use an alternative video.txt if there is one. Some of these are long filenames; create your PAKs with borpak and you'll be fine. +#define tryfile(X) if((tmp=openpackfile(X,packfile))!=-1) { closepackfile(tmp); filename=X; goto readfile; } +#if WIN || LINUX + tryfile("data/videopc.txt"); +#endif +#undef tryfile + +readfile: + // Read file + if(buffer_pakfile(filename, &buf, &size) != 1) + { + videoMode = 0; + printf("'%s' not found.\n", filename); + goto VIDEOMODES; + } + + printf("Reading video settings from '%s'.\n", filename); + + // Now interpret the contents of buf line by line + pos = 0; + while(pos < size) + { + ParseArgs(&arglist, buf + pos, argbuf); + command = GET_ARG(0); + + if(command && command[0]) + { + if(stricmp(command, "video") == 0) + { + value = GET_ARG(1); + if((value2 = strchr(value, 'x'))) + { + videomodes.hRes = atoi(value); + videomodes.vRes = atoi(value2 + 1); + videoMode = 255; + } + else + { + videoMode = GET_INT_ARG(1); + } + } + else if(stricmp(command, "scenes") == 0) + { + len = strlen(GET_ARG(1)); + custScenes = malloc(len + 1); + strcpy(custScenes, GET_ARG(1)); + custScenes[len] = 0; + } + else if(stricmp(command, "backgrounds") == 0) + { + len = strlen(GET_ARG(1)); + custBkgrds = malloc(len + 1); + strcpy(custBkgrds, GET_ARG(1)); + custBkgrds[len] = 0; + } + else if(stricmp(command, "levels") == 0) + { + len = strlen(GET_ARG(1)); + custLevels = malloc(len + 1); + strcpy(custLevels, GET_ARG(1)); + custLevels[len] = 0; + } + else if(stricmp(command, "models") == 0) + { + len = strlen(GET_ARG(1)); + custModels = malloc(len + 1); + strcpy(custModels, GET_ARG(1)); + custModels[len] = 0; + } + else if(stricmp(command, "colourdepth") == 0) + { + printf("\nColordepth is not supported anymore. All modules are displayed with a 32bit color screen.\n\n"); + } + else if(stricmp(command, "forcemode") == 0) {} + else if(command && command[0]) + { + printf("Command '%s' not understood in file '%s'!\n", command, filename); + } + } + // Go to next line + pos += getNewLineStart(buf + pos); + } + + if(buf != NULL) + { + free(buf); + buf = NULL; + } + +VIDEOMODES: + videomodes.mode = videoMode; + videomodes.filter = savedata.swfilter; + switch (videoMode) + { + // 320x240 - QVGA + case 0: + videomodes.hRes = 320; + videomodes.vRes = 240; + videomodes.hScale = 1; + videomodes.vScale = 1; + videomodes.hShift = 0; + videomodes.vShift = 0; + videomodes.dOffset = 231; + PLAYER_MIN_Z = 160; + PLAYER_MAX_Z = 232; + BGHEIGHT = 160; + break; + + // 480x272 - WQVGA + case 1: + videomodes.hRes = 480; + videomodes.vRes = 272; + videomodes.hScale = (float)1.5; + videomodes.vScale = (float)1.13; + videomodes.hShift = 80; + videomodes.vShift = 20; + videomodes.dOffset = 263; + PLAYER_MIN_Z = 182; + PLAYER_MAX_Z = 264; + BGHEIGHT = 182; + break; + + // 640x480 - VGA + case 2: + videomodes.hRes = 640; + videomodes.vRes = 480; + videomodes.hScale = 2; + videomodes.vScale = 2; + videomodes.hShift = 160; + videomodes.vShift = 35; + videomodes.dOffset = 464; + PLAYER_MIN_Z = 321; + PLAYER_MAX_Z = 465; + BGHEIGHT = 321; + break; + + // 720x480 - DVD + case 3: + videomodes.hRes = 720; + videomodes.vRes = 480; + videomodes.hScale = 2.25; + videomodes.vScale = 2; + videomodes.hShift = 200; + videomodes.vShift = 35; + videomodes.dOffset = 464; + PLAYER_MIN_Z = 321; + PLAYER_MAX_Z = 465; + BGHEIGHT = 321; + break; + + // 800x480 - WVGA + case 4: + videomodes.hRes = 800; + videomodes.vRes = 480; + videomodes.hScale = 2.5; + videomodes.vScale = 2; + videomodes.hShift = 240; + videomodes.vShift = 35; + videomodes.dOffset = 464; + PLAYER_MIN_Z = 321; + PLAYER_MAX_Z = 465; + BGHEIGHT = 321; + break; + + // 800x600 - SVGA + case 5: + videomodes.hRes = 800; + videomodes.vRes = 600; + videomodes.hScale = 2.5; + videomodes.vScale = 2.5; + videomodes.hShift = 240; + videomodes.vShift = 44; + videomodes.dOffset = 580; + PLAYER_MIN_Z = 401; + PLAYER_MAX_Z = 582; + BGHEIGHT = 401; + break; + + // 960x540 - qHD + case 6: + videomodes.hRes = 960; + videomodes.vRes = 540; + videomodes.hScale = 3; + videomodes.vScale = 2.25; + videomodes.hShift = 320; + videomodes.vShift = 40; + videomodes.dOffset = 522; + PLAYER_MIN_Z = 362; + PLAYER_MAX_Z = 524; + BGHEIGHT = 362; + break; + + // Custom video mode + case 255: + videomodes.dOffset = videomodes.vRes * 0.9625; + printf("\nUsing debug video mode: %d x %d\n", videomodes.hRes, videomodes.vRes); + break; + default: + borShutdown(1, "Invalid video mode: %d in 'data/video.txt', supported modes:\n" + "0 - 320x240\n" + "1 - 480x272\n" + "2 - 640x480\n" + "3 - 720x480\n" + "4 - 800x480\n" + "5 - 800x600\n" + "6 - 960x540\n\n", videoMode); + break; + } + + video_stretch(savedata.stretch); + + if((vscreen = allocscreen(videomodes.hRes, videomodes.vRes, PIXEL_32)) == NULL) + { + borShutdown(1, "Not enough memory!\n"); + } + videomodes.pixel = pixelbytes[(int)vscreen->pixelformat]; + //video_set_mode(videomodes); + clearscreen(vscreen); + + if(log) + { + printf("Initialized video............\t%dx%d (Mode: %d)\n\n", videomodes.hRes, videomodes.vRes, videoMode); + } +} + + + +// ---------------------------------------------------------------------------- + + +// Set key or button safely (with switching) +void safe_set(int *arr, int index, int newkey, int oldkey) +{ + int i; + for(i = 0; i < 12; i++) + { + if(arr[i] == newkey) + { + arr[i] = oldkey; + } + } + arr[index] = newkey; +} + +void keyboard_setup(int player) +{ + int quit = 0; + int sdid = 0; + int selector = 0; + int setting = -1; + int i = 0; + int k = 0; + int ok = 0; + int disabledkey[MAX_BTN_NUM] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 }; + int col1 = -8; + int col2 = 6; + + ptrdiff_t voffset; + ptrdiff_t pos; + + char* buf; + char* command; + char* filename = "translation/menu.txt"; + + char buttonnames[MAX_BTN_NUM][32]; + + size_t size; + ArgList arglist; + + char argbuf[MAX_ARG_LEN + 1] = ""; + int OPTIONS_NUM = MAX_BTN_NUM + 3; + + screen_status |= IN_SCREEN_BUTTON_CONFIG_MENU; + + printf("Loading control settings.......\t"); + + strcpy(buttonnames[SDID_MOVEUP], "Move Up"); + strcpy(buttonnames[SDID_MOVEDOWN], "Move Down"); + strcpy(buttonnames[SDID_MOVELEFT], "Move Left"); + strcpy(buttonnames[SDID_MOVERIGHT], "Move Right"); + strcpy(buttonnames[SDID_ATTACK], "Attack 1"); + strcpy(buttonnames[SDID_ATTACK2], "Attack 2"); + strcpy(buttonnames[SDID_ATTACK3], "Attack 3"); + strcpy(buttonnames[SDID_ATTACK4], "Attack 4"); + strcpy(buttonnames[SDID_JUMP], "Jump"); + strcpy(buttonnames[SDID_SPECIAL], "Special"); + strcpy(buttonnames[SDID_START], "Start"); + strcpy(buttonnames[SDID_SCREENSHOT], "Screenshot"); + strcpy(buttonnames[SDID_ESC], "Exit"); + + savesettings(); + bothnewkeys = 0; + + /* + Kratus (10-2021) Added an alternative location for the translation file, now it's possible to use in an external folder + Now the modder can load exported translation files by using "filestream" script functions + Useful for creating custom translations without unpack the game + The default engine translation location will be maintained for backward compatibility + + Kratus (11-2021) Inverted the path priority, now the external file will override the internal file + Useful to maintain the english translation intact inside the pak file if no other language file is found in the external path + Otherwise you will need to rollback the english file every time another language is used and then removed + This operation is needed only if the english translation file uses some custom menu texts for english language too + */ + if(buffer_pakfile(filename, &buf, &size) != 1) + { + goto default_file; + } + else + { + goto proceed; + } + +default_file: + + if(buffer_pakfile("data/menu.txt", &buf, &size) != 1) + { + goto finish; + } + else + { + goto proceed; + } + +proceed: + + // Read file + // Now interpret the contents of buf line by line + pos = 0; + while(pos < size) + { + ParseArgs(&arglist, buf + pos, argbuf); + command = GET_ARG(0); + if(command[0]) + { + if(stricmp(command, "disablekey") == 0) + { + sdid = translate_SDID(GET_ARG(1)); + if(sdid >= 0) + { + disabledkey[sdid] = 1; + } + } + else if(stricmp(command, "renamekey") == 0) + { + sdid = translate_SDID(GET_ARG(1)); + if(sdid >= 0) + { + strcpy(buttonnames[sdid], GET_ARG(2)); + } + } + + } + // Go to next line + pos += getNewLineStart(buf + pos); + } + if(buf != NULL) + { + free(buf); + buf = NULL; + } + +finish: + + while(disabledkey[selector]) if(++selector > MAX_BTN_NUM - 1) break; + + while(!quit) + { + voffset = -6; + _menutextm(2, -8, 0, Tr("Player %i"), player + 1); + for(i = 0; i < MAX_BTN_NUM; i++) + { + if(!disabledkey[i]) + { + _menutext((selector == i), col1, voffset, "%s", buttonnames[i]); + _menutext((selector == i), col2, voffset, "%s", control_getkeyname(savedata.keys[player][i])); + voffset++; + } + } + + ++voffset; + if(savedata.joyrumble[player]) + { + _menutext((selector == OPTIONS_NUM - 3), col1, voffset++, Tr("Rumble Enabled")); + } + else + { + _menutext((selector == OPTIONS_NUM - 3), col1, voffset++, Tr("Rumble Disabled")); + } + + _menutextm((selector == OPTIONS_NUM - 2), ++voffset, 0, Tr("OK")); + _menutextm((selector == OPTIONS_NUM - 1), ++voffset, 0, Tr("Cancel")); + _menutextm((selector == OPTIONS_NUM), ++voffset, 0, Tr("Default")); + update((level != NULL), 0); + + if(setting > -1) + { + if(bothnewkeys & FLAG_ESC) + { + savedata.keys[player][setting] = ok; + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 50); + setting = -1; + } + if(setting > -1) + { + k = control_scankey(); + if(k) + { + safe_set(savedata.keys[player], setting, k, ok); + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + setting = -1; + // Prevent accidental screenshot + bothnewkeys = 0; + } + } + } + else + { + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + do + { + if(--selector < 0) + { + break; + } + } + while(selector < MAX_BTN_NUM && disabledkey[selector]); + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + do + { + if(++selector > MAX_BTN_NUM - 1) break; + } + while(disabledkey[selector]); + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + if(selector < 0) + { + selector = OPTIONS_NUM; + } + if(selector > OPTIONS_NUM) + { + selector = 0; + while(disabledkey[selector]) if(++selector > MAX_BTN_NUM - 1) break; + } + + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + + if (selector != OPTIONS_NUM - 3 && + bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT)) continue; + + if(selector == OPTIONS_NUM - 3) + { + savedata.joyrumble[player] ^= 1; + } + else if(selector == OPTIONS_NUM - 2) // OK + { + quit = 2; + } + else if(selector == OPTIONS_NUM - 1) // cancel + { + quit = 1; + } + else if(selector == OPTIONS_NUM) // default + { + clearbuttons(player); + } + else + { + setting = selector; + ok = savedata.keys[player][setting]; + savedata.keys[player][setting] = 0; + keyboard_getlastkey(); + } + } + } + } + + if(quit == 2) + { + apply_controls(); + savesettings(); + } + else + { + loadsettings(); + } + + screen_status &= ~IN_SCREEN_BUTTON_CONFIG_MENU; + + update(0, 0); + bothnewkeys = 0; + printf("Done!\n"); +} + +void menu_options_input() +{ + int quit = 0; + int selector = 1; // 0 + int x_pos = -6; + #if ANDROID + int OPTIONS_NUM = 6; + #else + int OPTIONS_NUM = 5; + #endif + + screen_status |= IN_SCREEN_CONTROL_OPTIONS_MENU; + bothnewkeys = 0; + + // Kratus (10-2021) Added a second instance of the "control_init" function while in the Control Options + // Useful to refresh some text translation if the language is changed "on-the-fly" and re-detect all active controls + control_init(savedata.usejoy); + + while(!quit) + { + _menutextm(2, x_pos-1, 0, Tr("Control Options")); + if(savedata.usejoy) + { + _menutext((selector == 0), x_pos, -2, Tr("GamePads Enabled")); + if(!control_getjoyenabled()) + { + _menutext((selector == 0), x_pos+11, -2, Tr(" - Device Not Ready")); + } + } + else + { + _menutext((selector == 0), x_pos, -2, Tr("GamePads Disabled")); + } + _menutext((selector == 1), x_pos,-1, Tr("Setup Player 1...")); + _menutext((selector == 2), x_pos, 0, Tr("Setup Player 2...")); + _menutext((selector == 3), x_pos, 1, Tr("Setup Player 3...")); + _menutext((selector == 4), x_pos, 2, Tr("Setup Player 4...")); + #if ANDROID + if(savedata.is_touchpad_vibration_enabled) + { + _menutextm((selector == 5), 4, 0, Tr("Touchpad Vibration Enabled")); + } + else + { + _menutextm((selector == 5), 4, 0, Tr("Touchpad Vibration Disabled")); + } + _menutextm((selector == 6), 6, 0, Tr("Back")); + #else + _menutextm((selector == 5), 5, 0, Tr("Back")); + #endif + + update((level != NULL), 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(selector < 0) + { + selector = OPTIONS_NUM; + } + if(selector > OPTIONS_NUM) + { + selector = 0; + } + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + switch(selector) + { + case 0: + control_usejoy((savedata.usejoy ^= 1)); + break; + case 1: + keyboard_setup(0); + break; + case 2: + keyboard_setup(1); + break; + case 3: + keyboard_setup(2); + break; + case 4: + keyboard_setup(3); + break; + #if ANDROID + case 5: + savedata.is_touchpad_vibration_enabled ^= 1; + break; + #endif + default: + quit = (bothnewkeys & FLAG_ANYBUTTON); + } + } + } + savesettings(); + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_CONTROL_OPTIONS_MENU; +} + + +/* + Kratus (02-2023) Readjusted the master / effectvol / musicvol range and increment + Round values like 100 by default make more sense than some like 70/120 + So, I transferred the hardcoded volume adjustment to the "soundmix" code instead of changing the default volumes + Master now goes from 0 to 100 and default to 100 + Effects (samples) now goes from 0 to 100 and default to 100 + Music now goes from 0 to 200 and default to 100 +*/ +void menu_options_sound() +{ + int quit = 0; + int selector = 0; + int dir; + int col1 = -8; + int col2 = 6; + + screen_status |= IN_SCREEN_SOUND_OPTIONS_MENU; + bothnewkeys = 0; + + while(!quit) + { + _menutextm(2, -5, 0, Tr("Sound Options")); + _menutext((selector == 0), col1, -2, Tr("Master Volume:")); // Kratus (02-2023) Renamed from Sound to Master volume + _menutext((selector == 0), col2, -2, "%i", savedata.soundvol); + _menutext((selector == 1), col1, -1, Tr("Effects Volume:")); // Kratus (02-2023) Renamed from SFX to Effects volume + _menutext((selector == 1), col2, -1, "%i", savedata.effectvol); + _menutext((selector == 2), col1, 0, Tr("Music Volume:")); + _menutext((selector == 2), col2, 0, "%i", savedata.musicvol); + _menutext((selector == 3), col1, 1, Tr("BGM:")); + _menutext((selector == 3), col2, 1, (savedata.usemusic ? Tr("Enabled") : Tr("Disabled"))); + _menutext((selector == 4), col1, 2, Tr("Show Titles:")); + _menutext((selector == 4), col2, 2, (savedata.showtitles ? Tr("Yes") : Tr("No"))); + _menutextm((selector == 5), 5, 0, Tr("Back")); + + update((level != NULL), 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(selector < 0) + { + selector = 5; + } + if(selector > 5) + { + selector = 0; + } + + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + dir = 0; + + if(bothnewkeys & FLAG_MOVELEFT) + { + dir = -1; + } + else if(bothnewkeys & FLAG_MOVERIGHT) + { + dir = 1; + } + + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + // Kratus (02-2023) Reworked the old and unuseful "soundvol" to act as the Master Volume for both sound/music + switch(selector) + { + case 0: + savedata.soundvol += 5 * dir; + if(savedata.soundvol < 0) + { + savedata.soundvol = 0; + } + if(savedata.soundvol > 100) + { + savedata.soundvol = 100; + } + SB_setvolume(SB_VOICEVOL, savedata.soundvol); + + // Kratus (02-2023) Synchronize sound/music volumes to master + savedata.effectvol = savedata.soundvol; + savedata.musicvol = savedata.soundvol; + break; + case 1: + savedata.effectvol += 5 * dir; + if(savedata.effectvol < 0) + { + savedata.effectvol = 0; + } + if(savedata.effectvol > 100) + { + savedata.effectvol = 100; + } + break; + case 3: + if(!dir) + { + break; + } + if(!savedata.usemusic) + { + savedata.usemusic = 1; + music("data/music/remix", 1, 0); + } + else + { + savedata.usemusic = 0; + sound_close_music(); + } + break; + case 2: + savedata.musicvol += 5 * dir; + if(savedata.musicvol < 0) + { + savedata.musicvol = 0; + } + if(savedata.musicvol > 200) + { + savedata.musicvol = 200; + } + sound_volume_music(savedata.musicvol, savedata.musicvol); + break; + case 4: + savedata.showtitles = !savedata.showtitles; + break; + default: + quit = 1; + } + } + } + savesettings(); + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_SOUND_OPTIONS_MENU; +} + +void menu_options_config() // OX. Load from / save to default.cfg. Restore OpenBoR "factory" settings. +{ + int quit = 0; + int selector = 0; + int saved = 0; + int loaded = 0; + int restored = 0; + + bothnewkeys = 0; + + // Kratus (11-2021) Removed spaces on the " Done!" text to fix translation + while(!quit) + { + _menutextm(2, -5, 0, Tr("Configuration Settings")); + + if(saved == 1) + { + _menutextm((selector == 0), -3, 0, Tr("Save Settings To Default.cfg%s"), Tr(" Done!")); + } + else + { + _menutextm((selector == 0), -3, 0, Tr("Save Settings To Default.cfg%s"), ""); + } + + if(loaded == 1) + { + _menutextm((selector == 1), -2, 0, Tr("Load Settings From Default.cfg%s"), Tr(" Done!")); + } + else + { + _menutextm((selector == 1), -2, 0, Tr("Load Settings From Default.cfg%s"), ""); + } + + if(restored == 1) + { + _menutextm((selector == 2), -1, 0, Tr("Restore OpenBoR Defaults%s"), Tr(" Done!")); + } + else + { + _menutextm((selector == 2), -1, 0, Tr("Restore OpenBoR Defaults%s"), ""); + } + + _menutextm((selector == 3), 6, 0, Tr("Back")); + + update((level != NULL), 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + + if(selector < 0) + { + selector = 3; + } + if(selector > 3) + { + selector = 0; + } + + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + switch(selector) + { + case 0: + saveasdefault(); + saved = 1; + break; + + case 1: + loadfromdefault(); + //borShutdown(2, "\nSettings Loaded From Default.cfg. Restart Required.\n\n"); + init_videomodes(0); + if(!video_set_mode(videomodes)) + { + borShutdown(1, "Unable to set video mode: %d x %d!\n", videomodes.hRes, videomodes.vRes); + } + SB_setvolume(SB_VOICEVOL, savedata.soundvol); + sound_volume_music(savedata.musicvol, savedata.musicvol); + loaded = 1; + break; + case 2: + clearsettings(); + //borShutdown(2, "\nSettings Loaded From Default.cfg. Restart Required.\n\n"); + init_videomodes(0); + if(!video_set_mode(videomodes)) + { + borShutdown(1, "Unable to set video mode: %d x %d!\n", videomodes.hRes, videomodes.vRes); + } + SB_setvolume(SB_VOICEVOL, savedata.soundvol); + sound_volume_music(savedata.musicvol, savedata.musicvol); + restored = 1; + break; + default: + quit = 1; + } + } + } + savesettings(); + bothnewkeys = 0; +} + +/* +* Caskey, Damon V. +* 2026-07-06 +* +* Return menu display text for a collision debug +* display pair. +*/ +static char* collision_debug_type_string(e_debug_display debug_field, e_debug_display flat_bit, e_debug_display projected_bit) { + + if ((debug_field & flat_bit) && (debug_field & projected_bit)) { + return Tr("Flat + Projected"); + } else if (debug_field & flat_bit) { + return Tr("Flat"); + } else if (debug_field & projected_bit) { + return Tr("Projected"); + } else { + return Tr("Disabled"); + } +} + +/* +* Caskey, Damon V. +* 2026-07-06 +* +* Cycle collision debug display mode for one collision type. +* +* Each collision type uses two debug bits: +* +* flat_bit = draw the normal 2D rectangle overlay. +* projected_bit = draw the projected 3D cube overlay. +* +* The two bits combine into four possible states: +* +* 0 = None +* 1 = Flat +* 2 = Projected +* 3 = Flat + Projected +* +* Direction controls cycle order: +* +* TOGGLE_DIRECTION_BACKWARD = cycle backward. +* TOGGLE_DIRECTION_FORWARD = cycle forward. +* +* Return value is the updated debug bitfield. +*/ +static e_debug_display collision_debug_type_cycle(const e_debug_display debug_field, const e_debug_display flat_bit, const e_debug_display projected_bit, const e_menu_toggle_direction toggle_direction) { + + /* + * Local only. Actual state is controlled by + * the savedata.debuginfo bitfield. This just + * gives us a simple linear value to work with + * for cycling so we do't need a massive if/else + * chain. + */ + #define COLLISION_DEBUG_DISPLAY_NONE 0 + #define COLLISION_DEBUG_DISPLAY_FLAT 1 + #define COLLISION_DEBUG_DISPLAY_PROJECTED 2 + #define COLLISION_DEBUG_DISPLAY_BOTH 3 + + /* + * Int scratchpads. These are enum values, but compiler + * will throw a fit if we try to use them in operations + * that cause implicit integer promotion. + */ + int state; + int debug_flags; + + /* + * Work in an int scratch value because enum values are + * still bitfields, and bitwise operators promote them + * to int anyway. + */ + debug_flags = debug_field; + + /* + * Convert current bitfield state into a compact + * display mode value. + * + * Bit 0 = flat display enabled. + * Bit 1 = projected display enabled. + */ + state = COLLISION_DEBUG_DISPLAY_NONE; + + if (debug_flags & flat_bit) { + state |= COLLISION_DEBUG_DISPLAY_FLAT; + } + + if (debug_flags & projected_bit) { + state |= COLLISION_DEBUG_DISPLAY_PROJECTED; + } + + /* + * Step through the four display modes. + * + * Backward: + * None <- Flat <- Projected <- Both <- None + * + * Forward: + * None -> Flat -> Projected -> Both -> None + */ + switch(toggle_direction) { + case TOGGLE_DIRECTION_BACKWARD: + state--; + + if (state < COLLISION_DEBUG_DISPLAY_NONE) { + state = COLLISION_DEBUG_DISPLAY_BOTH; + } + + break; + + case TOGGLE_DIRECTION_FORWARD: + default: + state++; + + if (state > COLLISION_DEBUG_DISPLAY_BOTH) { + state = COLLISION_DEBUG_DISPLAY_NONE; + } + + break; + } + + /* + * Clear only the two bits managed by this collision + * debug option. Leave all other debug flags untouched. + */ + debug_flags &= ~(flat_bit | projected_bit); + + /* + * Expand compact state back into the debug bitfield. + */ + if (state & COLLISION_DEBUG_DISPLAY_FLAT) { + debug_flags |= flat_bit; + } + + if (state & COLLISION_DEBUG_DISPLAY_PROJECTED) { + debug_flags |= projected_bit; + } + + return (e_debug_display)debug_flags; + + #undef COLLISION_DEBUG_DISPLAY_NONE + #undef COLLISION_DEBUG_DISPLAY_FLAT + #undef COLLISION_DEBUG_DISPLAY_PROJECTED + #undef COLLISION_DEBUG_DISPLAY_BOTH +} + +void menu_options_debug() { + #define MENU_POS_Y -4 + #define MENU_ITEMS_MARGIN_Y 2 + #define COLUMN_1_POS_X -11 + #define COLUMN_2_POS_X COLUMN_1_POS_X + 14 + #define MENU_ITEM_FIRST_INDEX 0 + + // Selections enumerator. All + // selection items should be placed + // here first. + typedef enum { + + // First item can be + // whatever we like, + // but it must be set + // to the MENU_ITEM_FIRST_INDEX + // constant. + ITEM_PERFORMANCE = MENU_ITEM_FIRST_INDEX, + + // Items between the first + // and last can go in any + // order. + ITEM_POSITION, + ITEM_COL_ATTACK, + ITEM_COL_BODY, + ITEM_COL_SPACE, + ITEM_COL_RANGE, + + // This is the "Back" + // selection and should + // always be last. + ITEM_EXIT + } e_selections; + + int pos_y; + int quit = 0; + e_selections selector = 0; + bothnewkeys = 0; + + e_menu_toggle_direction toggle_direction = TOGGLE_DIRECTION_FORWARD; + + while(!quit) { + + // Display menu title. + _menutextm(2, MENU_POS_Y, 0, Tr("Debug Settings")); + + // Menu items. + // Y position is controlled by a incremented integer. + // Integer has a base value of the Menu title Y + // plus static offset. Below each item, this Y value + // increments by one. We can then add or remove + // menu items here and the on screen position will + // take care of itself without us needing to mess + // with a bunch of hard constants. + + // Reset menu item position Y. + pos_y = MENU_POS_Y + MENU_ITEMS_MARGIN_Y; + + _menutext((selector == ITEM_PERFORMANCE), COLUMN_1_POS_X, pos_y, Tr("Performance:")); + _menutext((selector == ITEM_PERFORMANCE), COLUMN_2_POS_X, pos_y, (savedata.debuginfo & DEBUG_DISPLAY_PERFORMANCE ? Tr("Enabled") : Tr("Disabled"))); + pos_y++; + + _menutext((selector == ITEM_POSITION), COLUMN_1_POS_X, pos_y, Tr("Basic Properties:")); + _menutext((selector == ITEM_POSITION), COLUMN_2_POS_X, pos_y, (savedata.debuginfo & DEBUG_DISPLAY_PROPERTIES ? Tr("Enabled") : Tr("Disabled"))); + pos_y++; + + _menutext((selector == ITEM_COL_ATTACK), COLUMN_1_POS_X, pos_y, Tr("Collision Attack:")); + _menutext((selector == ITEM_COL_ATTACK), COLUMN_2_POS_X, pos_y, collision_debug_type_string(savedata.debuginfo, DEBUG_DISPLAY_COLLISION_ATTACK_2D, DEBUG_DISPLAY_COLLISION_ATTACK_3D)); + pos_y++; + + _menutext((selector == ITEM_COL_BODY), COLUMN_1_POS_X, pos_y, Tr("Collision Body:")); + _menutext((selector == ITEM_COL_BODY), COLUMN_2_POS_X, pos_y, collision_debug_type_string(savedata.debuginfo, DEBUG_DISPLAY_COLLISION_BODY_2D, DEBUG_DISPLAY_COLLISION_BODY_3D)); + pos_y++; + + _menutext((selector == ITEM_COL_SPACE), COLUMN_1_POS_X, pos_y, Tr("Collision Space:")); + _menutext((selector == ITEM_COL_SPACE), COLUMN_2_POS_X, pos_y, collision_debug_type_string(savedata.debuginfo, DEBUG_DISPLAY_COLLISION_SPACE_2D, DEBUG_DISPLAY_COLLISION_SPACE_3D)); + pos_y++; + + _menutext((selector == ITEM_COL_RANGE), COLUMN_1_POS_X, pos_y, Tr("Range:")); + _menutext((selector == ITEM_COL_RANGE), COLUMN_2_POS_X, pos_y, (savedata.debuginfo & DEBUG_DISPLAY_RANGE ? Tr("Enabled") : Tr("Disabled"))); + pos_y++; + + // Display exit title + _menutextm((selector == ITEM_EXIT), pos_y + (MENU_ITEMS_MARGIN_Y), 0, Tr("Back")); + + // Run an engine update. + update((level != NULL), 0); + + // If user presses up/down or esc, let's act accordingly. + if(bothnewkeys & (FLAG_MOVEUP | FLAG_MOVEDOWN | FLAG_ESC)) { + + // If user presses escape, then set quit + // flag immediately. Else wise, increment + // or decrement selector as needed. + if(bothnewkeys & FLAG_ESC) { + quit = 1; + + } else if(bothnewkeys & FLAG_MOVEUP) { + // Play beep if available. + // Kratus (04-2022) Moved the BEEP sound to work only with UP/DOWN keys + if(global_sample_list.beep >= 0) { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + // If we are at the top item, loop + // to last. Otherwise, move one up. + if(selector <= MENU_ITEM_FIRST_INDEX) { + selector = ITEM_EXIT; + } else { + --selector; + } + + } else if(bothnewkeys & FLAG_MOVEDOWN) { + + // Play beep if available. + // Kratus (04-2022) Moved the BEEP sound to work only with UP/DOWN keys + if(global_sample_list.beep >= 0) { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + // If we are at the last item + // (which should be "back"), then + // loop back to first. Otherwise + // move one down. + if(selector >= ITEM_EXIT) { + selector = MENU_ITEM_FIRST_INDEX; + + } else { + ++selector; + } + } + } + + + // Toggle selection value on left/right or + // trigger button press. + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) { + + if(global_sample_list.beep_2 >= 0) { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + toggle_direction = (bothnewkeys & FLAG_MOVELEFT) ? TOGGLE_DIRECTION_BACKWARD : TOGGLE_DIRECTION_FORWARD; + + // This is where menu items are executed. + switch(selector) { + case ITEM_PERFORMANCE: + savedata.debuginfo ^= DEBUG_DISPLAY_PERFORMANCE; + break; + case ITEM_POSITION: + savedata.debuginfo ^= DEBUG_DISPLAY_PROPERTIES; + break; + case ITEM_COL_ATTACK: + savedata.debuginfo = collision_debug_type_cycle(savedata.debuginfo, DEBUG_DISPLAY_COLLISION_ATTACK_2D, DEBUG_DISPLAY_COLLISION_ATTACK_3D, toggle_direction); + break; + case ITEM_COL_BODY: + savedata.debuginfo = collision_debug_type_cycle(savedata.debuginfo, DEBUG_DISPLAY_COLLISION_BODY_2D, DEBUG_DISPLAY_COLLISION_BODY_3D, toggle_direction); + break; + case ITEM_COL_SPACE: + savedata.debuginfo = collision_debug_type_cycle(savedata.debuginfo, DEBUG_DISPLAY_COLLISION_SPACE_2D, DEBUG_DISPLAY_COLLISION_SPACE_3D, toggle_direction); + break; + case ITEM_COL_RANGE: + savedata.debuginfo ^= DEBUG_DISPLAY_RANGE; + break; + case ITEM_EXIT: + quit = 1; + } + } + } + + savesettings(); + bothnewkeys = 0; + + #undef MENU_POS_Y + #undef MENU_ITEMS_MARGIN_Y + #undef COLUMN_1_POS_X + #undef COLUMN_2_POS_X + #undef MENU_ITEM_FIRST_INDEX +} + +/* +* Caskey, Damon V. +* 2022-05-05 +* +* Display cheat options menu and +* apply player selections. +*/ +void menu_options_cheats() +{ +#define MENU_POS_Y -4 +#define MENU_ITEMS_MARGIN_Y 2 +#define COLUMN_1_POS_X -11 +#define COLUMN_2_POS_X COLUMN_1_POS_X + 14 + + typedef struct s_option_list + { + e_cheat_options active; + e_cheat_options menu; + char label[20]; + } s_option_list; + + int option_list_count = 7; + s_option_list option_list[] = { + {.active = CHEAT_OPTIONS_IMPLACABLE_ACTIVE, .menu = CHEAT_OPTIONS_IMPLACABLE_MENU, .label = "Implacable March:" }, + {.active = CHEAT_OPTIONS_CREDITS_ACTIVE, .menu = CHEAT_OPTIONS_CREDITS_MENU, .label = "Infinite Credits:" }, + {.active = CHEAT_OPTIONS_ENERGY_ACTIVE, .menu = CHEAT_OPTIONS_ENERGY_MENU, .label = "Infinite Energy:" }, + {.active = CHEAT_OPTIONS_HEALTH_ACTIVE, .menu = CHEAT_OPTIONS_HEALTH_MENU, .label = "Infinite Health:" }, + {.active = CHEAT_OPTIONS_LIVES_ACTIVE, .menu = CHEAT_OPTIONS_LIVES_MENU, .label = "Infinite Lives:" }, + {.active = CHEAT_OPTIONS_MULTIHIT_ACTIVE, .menu = CHEAT_OPTIONS_MULTIHIT_MENU, .label = "Multihit Glitch:" }, + {.active = CHEAT_OPTIONS_TOD_ACTIVE, .menu = CHEAT_OPTIONS_TOD_MENU, .label = "Touch of Death:" } + }; + + int option_list_cursor = 0; + int option_available_count = 0; + int option_available_first = 0; + int pos_y = 0; + int quit = 0; + int selector = 0; + + bothnewkeys = 0; + + screen_status |= IN_SCREEN_CHEAT_OPTIONS_MENU; + + //printf("\n\n menu_options_cheats()"); + + while (!quit) + { + /* Display menu title. */ + _menutextm(2, MENU_POS_Y, 0, Tr("Cheat Options")); + + /* + * Reset menu item position Y and + * valid menu item count. + */ + option_available_count = 0; + option_available_first = 0; + pos_y = MENU_POS_Y + MENU_ITEMS_MARGIN_Y; + + /* + * Iterate through the option list + * array and display available items. + * + * At each valid option, increment + * option count and Y position. + */ + + for (option_list_cursor = 0; option_list_cursor < option_list_count; option_list_cursor++) + { + if (global_config.cheats & option_list[option_list_cursor].menu) + { + /* + * If option available count is still 0, this + * is the first available option. Record the + * index for use downstream. + */ + + if (!option_available_count) + { + option_available_first = option_list_cursor; + } + + /* Print the menu text and on/off status. */ + _menutext((selector == option_list_cursor), COLUMN_1_POS_X, pos_y, Tr(option_list[option_list_cursor].label)); + _menutext((selector == option_list_cursor), COLUMN_2_POS_X, pos_y, (global_config.cheats & option_list[option_list_cursor].active ? Tr("On") : Tr("Off"))); + + option_available_count++; + pos_y++; + } + } + + /* No items avaialble. Alert player. */ + if (!option_available_count) + { + _menutextm(0, pos_y, 0, Tr("No cheats available.")); + } + + /* + * Add the exit option. We can use the array size + * for a selector index due to 0 indexing. + */ + + pos_y++; + _menutextm((selector == option_list_count), pos_y, 0, Tr("Back")); + + /* Run an engine update. */ + update((level != NULL), 0); + + /* + * Handle user input and populate selector to + * appropriate value. + * + * First we set selector to first item in case + * the first available's index is not 0. + * + * Next, handle buttons. ESC quits the menu + * instantly. Up/Down select target item. + * Left/Right/Action buttons toggle value. + */ + + if (!selector && option_available_first) + { + selector = option_available_first; + } + + if (bothnewkeys & FLAG_ESC) + { + quit = 1; + } + + if (bothnewkeys & FLAG_MOVEUP) + { + /* Play beep if available. */ + if (global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + /* Wrap around if needed. */ + if (selector <= option_available_first) + { + selector = option_list_count; + } + else + { + selector--; + } + + /* Skip disabled items. */ + while (!(global_config.cheats & option_list[selector].menu) && selector > option_available_first) + { + selector--; + } + } + + if (bothnewkeys & FLAG_MOVEDOWN) + { + /* Play beep if available. */ + if (global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + /* Wrap around if needed. */ + if (selector >= option_list_count) + { + selector = option_available_first; + } + else + { + selector++; + } + + /* Skip disabled items. */ + while (!(global_config.cheats & option_list[selector].menu) && selector < option_list_count) + { + selector++; + } + } + + /* + * Toggle selection value on left/right or + * trigger button press. + */ + if (bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + if (global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + /* + * Take action based on selector. + * + * The last option is the exit item, so if that's + * our selector value we exit this menu. + * + * Otherwise use selector as array key to get the + * bit we want to toggle in our target value. + */ + + if (selector < option_list_count) + { + global_config.cheats ^= option_list[selector].active; + } + else + { + quit = 1; + } + } + } + + //savesettings(); + + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_CHEAT_OPTIONS_MENU; + +#undef MENU_POS_Y +#undef MENU_ITEMS_MARGIN_Y +#undef COLUMN_1_POS_X +#undef COLUMN_2_POS_X +} + +void menu_options_system() +{ + #define SYS_OPT_Y_POS -4 + + enum { + SYS_OPT_LOG, + SYS_OPT_VSDAMAGE, + SYS_OPT_CHEATS, + SYS_OPT_DEBUG, + SYS_OPT_CONFIG, + SYS_OPT_BACK + }; + + int quit = 0; + int selector = 0; + int col1 = -11; + int col2 = col1+14; + int ex_labels = 0; + int RET = SYS_OPT_BACK; + int line = 0; + + screen_status |= IN_SCREEN_SYSTEM_OPTIONS_MENU; + bothnewkeys = 0; + if (nodebugoptions) ex_labels = 1; + RET -= ex_labels; + + while(!quit) + { + line = 0; + + _menutextm(2, SYS_OPT_Y_POS-2, 0, Tr("System Options")); + + _menutext(0, col1, SYS_OPT_Y_POS + line, Tr("Total RAM:")); + _menutext(0, col2, SYS_OPT_Y_POS + line, Tr("%s KB"), commaprint(getSystemRam(KBYTES))); + line++; + + _menutext(0, col1, SYS_OPT_Y_POS + line, Tr("Used RAM:")); + _menutext(0, col2, SYS_OPT_Y_POS + line, Tr("%s KB"), commaprint(getUsedRam(KBYTES))); + line++; + + _menutext(0, col1, SYS_OPT_Y_POS + line, Tr("Max Players:")); + _menutext(0, col2, SYS_OPT_Y_POS + line, Tr("%i"), levelsets[current_set].maxplayers); + line++; + + _menutext((selector == SYS_OPT_LOG), col1, SYS_OPT_Y_POS + line, Tr("File Logging:")); + _menutext((selector == SYS_OPT_LOG), col2, SYS_OPT_Y_POS + line, (savedata.uselog ? Tr("Enabled") : Tr("Disabled"))); + line++; + + _menutext((selector == SYS_OPT_VSDAMAGE), col1, SYS_OPT_Y_POS + line, Tr("Versus Damage:"), 0); + if(versusdamage == 0) + { + _menutext((selector == SYS_OPT_VSDAMAGE), col2, SYS_OPT_Y_POS + line, Tr("Disabled by Module")); + } + else if(versusdamage == 1) + { + _menutext((selector == SYS_OPT_VSDAMAGE), col2, SYS_OPT_Y_POS + line, Tr("Enabled by Module")); + } + else + { + if(savedata.mode) + { + _menutext((selector == SYS_OPT_VSDAMAGE), col2, SYS_OPT_Y_POS + line, Tr("Disabled")); //Mode 1 - Players CAN'T attack each other + } + else + { + _menutext((selector == SYS_OPT_VSDAMAGE), col2, SYS_OPT_Y_POS + line, Tr("Enabled")); //Mode 2 - Players CAN attack each other + } + } + line++; + + if (global_config.cheats & CHEAT_OPTIONS_MASTER_MENU) + { + _menutext((selector == SYS_OPT_CHEATS), col1, SYS_OPT_Y_POS + line, Tr("Cheat Options...")); + line++; + } + + if (!nodebugoptions) + { + _menutext((selector == SYS_OPT_DEBUG), col1, SYS_OPT_Y_POS + line, Tr("Debug Settings...")); + line++; + } + + _menutext((selector == SYS_OPT_CONFIG), col1, SYS_OPT_Y_POS + line, Tr("Config Settings...")); + + /* Extra lines for spacing. */ + line += 2; + + _menutextm((selector == RET), SYS_OPT_Y_POS + line, 0, Tr("Back")); + + update((level != NULL), 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + + /* Skip disabled items. */ + + if (selector == SYS_OPT_CHEATS && !(global_config.cheats & CHEAT_OPTIONS_MASTER_MENU)) + { + --selector; + } + + if (selector == SYS_OPT_DEBUG && nodebugoptions) + { + --selector; + } + + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + + /* Skip disabled items. */ + + if (selector == SYS_OPT_CHEATS && !(global_config.cheats & CHEAT_OPTIONS_MASTER_MENU)) + { + ++selector; + } + + if (selector == SYS_OPT_DEBUG && nodebugoptions) + { + ++selector; + } + + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(selector < 0) + { + selector = RET; + } + if(selector > RET) + { + selector = 0; + } + + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + + if (selector == RET) quit = 1; + else if (selector == SYS_OPT_LOG) savedata.uselog = !savedata.uselog; + else if (selector == SYS_OPT_VSDAMAGE) + { + if (versusdamage > 1) + { + if (savedata.mode) + { + savedata.mode = 0; + } + else + { + savedata.mode = 1; + } + } + } + else if (selector == SYS_OPT_CHEATS) + { + menu_options_cheats(); + } + else if (selector == SYS_OPT_DEBUG && !nodebugoptions) + { + menu_options_debug(); + } + else if (selector == SYS_OPT_CHEATS) + { + menu_options_cheats(); + } + else if (selector == SYS_OPT_DEBUG && !nodebugoptions) menu_options_debug(); + else if (selector==SYS_OPT_CONFIG) menu_options_config(); + else quit = 1; + } + } + savesettings(); + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_SYSTEM_OPTIONS_MENU; + + #undef SYS_OPT_Y_POS +} + + +void menu_options_video() +{ + int quit = 0; + int selector = 0; + int dir; + int col1 = -15, col2 = 1; + + screen_status |= IN_SCREEN_VIDEO_OPTIONS_MENU; + bothnewkeys = 0; + + while(!quit) + { + _menutextm(2, -5, 0, Tr("Video Options")); + _menutext((selector == 0), col1, -3, Tr("Brightness:")); + _menutext((selector == 0), col2, -3, "%i", savedata.brightness); + _menutext((selector == 1), col1, -2, Tr("Gamma:")); + _menutext((selector == 1), col2, -2, "%i", savedata.gamma); + _menutext((selector == 2), col1, -1, Tr("Window Offset:")); + _menutext((selector == 2), col2, -1, "%i", savedata.windowpos); + +#if SDL + _menutext((selector == 3), col1, 0, Tr("Display Mode:")); + _menutext((selector == 3), col2, 0, savedata.fullscreen ? Tr("Full") : Tr("Window")); + + _menutext((selector == 4), col1, 1, Tr("Video Backend:")); + _menutext((selector == 4), col2, 1, (opengl ? Tr("OpenGL") : Tr("SDL"))); + + _menutext((selector == 5), col1, 2, Tr("Scale:")); +#ifdef ANDROID + if(savedata.hwscale == 0) +#else + if(savedata.fullscreen) +#endif + { + _menutext((selector == 5), col2, 2, Tr("Automatic")); + } + else + { + _menutext((selector == 5), col2, 2, "%4.2fx - %ix%i", savedata.hwscale, (int)(videomodes.hRes * savedata.hwscale), (int)(videomodes.vRes * savedata.hwscale)); + } + + _menutext((selector == 6), col1, 3, Tr("Hardware Filter:")); + { + char *filterName; + if (savedata.hwscale == 1.0 && !savedata.fullscreen) + filterName = "Disabled"; + else if (opengl) + filterName = "High Quality"; + else if (savedata.hwfilter) + filterName = "Simple"; + else + filterName = "Bilinear"; + _menutext((selector == 6), col2, 3, Tr(filterName)); + } + + _menutext((selector == 7), col1, 4, Tr("Software Filter:")); + _menutext((selector == 7), col2, 4, ((savedata.hwscale >= 2.0 || savedata.fullscreen) ? Tr(GfxBlitterNames[savedata.swfilter]) : Tr("Disabled"))); + + char fpslimit_text[32]; + switch (savedata.fpslimit) + { + case 0: + snprintf(fpslimit_text, sizeof(fpslimit_text), "%s", Tr("Disabled")); + break; + case 1: + snprintf(fpslimit_text, sizeof(fpslimit_text), "%i (VSync)", video_current_refresh_rate()); + break; + case 2: + snprintf(fpslimit_text, sizeof(fpslimit_text), "%i", 200); + break; + case 3: + snprintf(fpslimit_text, sizeof(fpslimit_text), "%i", 500); + break; + default: + snprintf(fpslimit_text, sizeof(fpslimit_text), "%s", Tr("Unknown")); + break; + } + + _menutext((selector == 8), col1, 5, Tr("FPS Limit:")); + _menutext((selector == 8), col2, 5, fpslimit_text); + + if(savedata.fullscreen) + { + _menutext((selector == 9), col1, 6, Tr("Fullscreen Type:")); + _menutext((selector == 9), col2, 6, (savedata.stretch ? Tr("Stretch to Screen") : Tr("Preserve Aspect Ratio"))); + } + else if(selector == 9) + { + selector = (bothnewkeys & FLAG_MOVEUP) ? 8 : 10; + } + + _menutextm((selector == 10), 9, 0, Tr("Back")); + if(selector < 0) + { + selector = 10; + } + if(selector > 10) + { + selector = 0; + } +#endif + + update((level != NULL), 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + dir = 0; + + if(bothnewkeys & FLAG_MOVELEFT) + { + dir = -1; + } + else if(bothnewkeys & FLAG_MOVERIGHT) + { + dir = 1; + } + + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + switch(selector) + { + case 0: + savedata.brightness += 8 * dir; + if(savedata.brightness < -256) + { + savedata.brightness = -256; + } + if(savedata.brightness > 256) + { + savedata.brightness = 256; + } + vga_vwait(); + set_color_correction(savedata.gamma, savedata.brightness); + break; + case 1: + savedata.gamma += 8 * dir; + if(savedata.gamma < -256) + { + savedata.gamma = -256; + } + if(savedata.gamma > 256) + { + savedata.gamma = 256; + } + vga_vwait(); + set_color_correction(savedata.gamma, savedata.brightness); + break; + case 2: + savedata.windowpos += dir; + if(savedata.windowpos < -2) + { + savedata.windowpos = -2; + } + if(savedata.windowpos > 20) + { + savedata.windowpos = 20; + } + break; +#if SDL + case 3: + video_fullscreen_flip(); + break; + case 4: + savedata.usegl = !savedata.usegl; + video_set_mode(videomodes); + set_color_correction(savedata.gamma, savedata.brightness); + break; + case 5: +#ifndef ANDROID + if(savedata.fullscreen) + { + break; + } + savedata.hwscale += dir * 0.25; + if(savedata.hwscale < 0.25) + { + savedata.hwscale = 0.25; + } + if(savedata.hwscale > 4.00) + { + savedata.hwscale = 4.00; + } + video_set_mode(videomodes); +#else + savedata.hwscale += dir * 0.25; + if(savedata.hwscale < 0.0) + { + savedata.hwscale = 0.0; + } + if(savedata.hwscale > 4.00) + { + savedata.hwscale = 4.00; + } +#endif + case 6: +#ifndef ANDROID + if (opengl || (!savedata.fullscreen && savedata.hwscale == 1.0)) + { + break; + } +#endif + savedata.hwfilter += dir; + if(savedata.hwfilter < 0) + { + savedata.hwfilter = 1; + } + if(savedata.hwfilter > 1) + { + savedata.hwfilter = 0; + } + video_set_mode(videomodes); + break; + case 7: + if(!savedata.fullscreen && savedata.hwscale < 2.0) + { + break; + } + videomodes.filter += dir; + if(videomodes.filter > BLITTER_MAX - 1) + { + videomodes.filter = 0; + } + if(videomodes.filter < 0) + { + videomodes.filter = BLITTER_MAX - 1; + } + savedata.swfilter = videomodes.filter; + memset(pDeltaBuffer, 0x00, 1244160); + video_set_mode(videomodes); + break; + case 8: + savedata.fpslimit = (savedata.fpslimit + dir) % 4; + if (savedata.fpslimit < 0) savedata.fpslimit += 4; + video_set_mode(videomodes); + break; + case 9: + video_stretch((savedata.stretch ^= 1)); + break; +#endif + default: + quit = 1; + } + } + } + savesettings(); + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_VIDEO_OPTIONS_MENU; +} + + +void menu_options() +{ + #define OPT_Y_POS -1 + #define OPT_X_POS -7 + + typedef enum { + VIDEO_OPTION, + SOUND_OPTION, + CONTROL_OPTION, + SYSTEM_OPTION, + + END_OPTION + } e_selector; + + int quit = 0; + int y_offset = OPT_Y_POS; + int BACK_OPTION = END_OPTION; + e_selector selector = VIDEO_OPTION; + + screen_status |= IN_SCREEN_OPTIONS_MENU; + bothnewkeys = 0; + + while(!quit) + { + _menutextm((selector == VIDEO_OPTION), y_offset+VIDEO_OPTION, 0, Tr("Video Options...")); + _menutextm((selector == SOUND_OPTION), y_offset+SOUND_OPTION, 0, Tr("Sound Options...")); + _menutextm((selector == CONTROL_OPTION), y_offset+CONTROL_OPTION, 0, Tr("Control Options...")); + _menutextm((selector == SYSTEM_OPTION), y_offset+SYSTEM_OPTION, 0, Tr("System Options...")); + + _menutextm((selector == BACK_OPTION), y_offset+BACK_OPTION+2, 0, Tr("Back")); + + update((level != NULL), 0); + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + if(bothnewkeys & FLAG_MOVEUP) + { + if(selector <= VIDEO_OPTION) + { + selector = BACK_OPTION; + } + else --selector; + + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + if(selector > BACK_OPTION) + { + selector = VIDEO_OPTION; + } + + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & (FLAG_MOVELEFT | FLAG_MOVERIGHT | FLAG_ANYBUTTON)) + { + + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + + if(selector==BACK_OPTION) quit = 1; + else if(selector==VIDEO_OPTION) menu_options_video(); + else if(selector==SOUND_OPTION) menu_options_sound(); + else if(selector==CONTROL_OPTION) menu_options_input(); + else if(selector==SYSTEM_OPTION) + { + menu_options_system(); + } + + else quit = 1; + } + } + savesettings(); + if(_pause == 1) + { + _pause = 2; + } + bothnewkeys = 0; + screen_status &= ~IN_SCREEN_OPTIONS_MENU; + + #undef TOT_CHEATS + #undef OPT_Y_POS + #undef OPT_X_POS + #undef CHEAT_PAUSE_POSY +} + +// ---------------------------------------------------------------------------- + + +void openborMain(int argc, char **argv) +{ + sprite_map = NULL; + int quit = 0; + int relback = 1; + int selector = 0; + u32 introtime = 0; + int started = 0; + char tmpBuff[MAX_BUFFER_LEN] = {""}; + int players[MAX_PLAYERS] = {0, 0, 0, 0}; + int i; + int argl; + + printf("OpenBoR %s, Compile Date: " __DATE__ "\n\n", VERSION); + + if(argc > 1) + { + argl = strlen(argv[1]); + if(argl > 14 && !memcmp(argv[1], "offscreenkill=", 14)) + { + DEFAULT_OFFSCREEN_KILL = getValidInt((char *)argv[1] + 14, "", ""); + } + if(argl > 14 && !memcmp(argv[1], "showfilesused=", 14)) + { + printFileUsageStatistics = getValidInt((char *)argv[1] + 14, "", ""); + } + } + + + modelcmdlist = createModelCommandList(); + modelstxtcmdlist = createModelstxtCommandList(); + levelcmdlist = createLevelCommandList(); + levelordercmdlist = createLevelOrderCommandList(); + createModelList(); + + // Load necessary components. + printf("Game Selected: %s\n\n", packfile); + loadsettings(); + startup(); + bothnewkeys = 0; + + if(skiptoset < 0) + { + + // New alternative background path. + if(custBkgrds != NULL) + { + strcpy(tmpBuff, custBkgrds); + strcat(tmpBuff, "logo"); + load_background(tmpBuff); + } + else + { + load_cached_background("data/bgs/logo"); + } + + while(_time < global_config.game_speed * 6 && !(bothnewkeys & (FLAG_ANYBUTTON | FLAG_ESC))) + { + update(0, 0); + } + + music("data/music/remix", 1, 0); + + // New alternative scene path. + if(custScenes != NULL) + { + strcpy(tmpBuff, custScenes); + strcat(tmpBuff, "logo.txt"); + playscene(tmpBuff); + } + else + { + playscene("data/scenes/logo.txt"); + } + } + clearscreen(background); + + while(!quit) + { + if(skiptoset < 0 && !(goto_mainmenu_flag&8)) + { + if(_time >= introtime) + { + // New alternative scene path. + if(custScenes != NULL) + { + strcpy(tmpBuff, custScenes); + strcat(tmpBuff, "intro.txt"); + playscene(tmpBuff); + } + else + { + playscene("data/scenes/intro.txt"); + } + update(0, 0); + introtime = _time + global_config.game_speed * 20; + relback = 1; + started = 0; + } + + if(bothnewkeys & FLAG_ESC) + { + quit = 1; + } + } + else + { + started = 1; + relback = 0; + } + + if (goto_mainmenu_flag != 0) goto_mainmenu_flag = 0; + if(!started) + { + if((_time % global_config.game_speed) < (global_config.game_speed / 2)) + { + _menutextm(0, 0, 0, Tr("PRESS START")); + } + if(bothnewkeys & (FLAG_ANYBUTTON)) + { + started = 1; + relback = 1; + } + } + else if(skiptoset >= 0) + { + loadGameFile(); + playgame(players, useSet >= 0 ? useSet : skiptoset, useSave); + } + else + { + _menutextm((selector == 0), 2, 0, Tr("Start Game")); + _menutextm((selector == 1), 3, 0, Tr("Options")); + _menutextm((selector == 2), 4, 0, Tr("How To Play")); + _menutextm((selector == 3), 5, 0, Tr("Hall Of Fame")); + _menutextm((selector == 4), 6, 0, Tr("Quit")); + if(selector < 0) + { + selector = 4; + } + if(selector > 4) + { + selector = 0; + } + + if(bothnewkeys) + { + introtime = _time + global_config.game_speed * 20; + } + + if(bothnewkeys & FLAG_MOVEUP) + { + --selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & FLAG_MOVEDOWN) + { + ++selector; + if(global_sample_list.beep >= 0) + { + sound_play_sample(global_sample_list.beep, 0, savedata.effectvol, savedata.effectvol, 100); + } + } + if(bothnewkeys & (FLAG_ANYBUTTON)) + { + if(global_sample_list.beep_2 >= 0) + { + sound_play_sample(global_sample_list.beep_2, 0, savedata.effectvol, savedata.effectvol, 100); + } + switch(selector) + { + case 0: + for(i = 0; i < MAX_PLAYERS; i++) + { + players[i] = player[i].newkeys & (FLAG_ANYBUTTON); + } + relback = choose_mode(players); + if(relback) + { + started = 0; + } + break; + case 1: + menu_options(); + break; + case 2: + { + int previousLoop = musicloop; + char previousMusic[sizeof(currentmusic)]; + + memset(previousMusic, 0, sizeof(previousMusic)); + strcpy(previousMusic, currentmusic); + + if(custScenes != NULL) + { + strcpy(tmpBuff, custScenes); + strcat(tmpBuff, "howto.txt"); + playscene(tmpBuff); + } + else + { + playscene("data/scenes/howto.txt"); + } + if(stricmp(previousMusic, currentmusic) != 0) + { + music(previousMusic, previousLoop, 0); + } + relback = 1; + break; + } + case 3: + hallfame(0); + relback = 1; + break; + default: + quit = 1; + break; + } + introtime = _time + global_config.game_speed * 20; + } + } + if(relback) + { + if(started) + { + /* + Kratus (10-2021) Added an additional instance of the translation function at menu screen + Used to refresh all text without close and reopen the engine + + Kratus (02-2023) Added an additional instance of the video_mode function at menu screen + Used to refresh the touchscreen properties on Android without restarting + */ + video_set_mode(videomodes); + ob_inittrans(); + + screen_status |= IN_SCREEN_MENU; + screen_status &= ~IN_SCREEN_TITLE; + + if(custBkgrds != NULL) + { + strcpy(tmpBuff, custBkgrds); + strcat(tmpBuff, "titleb"); + load_background(tmpBuff); + } + else + { + load_cached_background("data/bgs/titleb"); + } + } + else + { + screen_status &= ~IN_SCREEN_MENU; + screen_status |= IN_SCREEN_TITLE; + + if(custBkgrds != NULL) + { + strcpy(tmpBuff, custBkgrds); + strcat(tmpBuff, "title"); + load_background(tmpBuff); + } + else + { + load_cached_background("data/bgs/title"); + } + } + + if(!sound_query_music(NULL, NULL)) + { + music("data/music/remix", 1, 0); + } + relback = 0; + } + update(0, 0); + } + borShutdown(0, DEFAULT_SHUTDOWN_MESSAGE); +} + +#undef GET_ARG +#undef GET_ARG_LEN +#undef GET_ARGP +#undef GET_ARGP_LEN +#undef GET_INT_ARG +#undef GET_FLOAT_ARG +#undef GET_INT_ARGP +#undef GET_FLOAT_ARGP From 5700ed9e28d590c80dabaa886909c7c5a02e7be3 Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 14:58:10 -0400 Subject: [PATCH 2/7] Expand aerial recovery timing diagnostics --- engine/openbor.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/engine/openbor.c b/engine/openbor.c index 683b2852f..9e5eecee8 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -2469,8 +2469,15 @@ void execute_entity_key_script(entity *ent) "AERIAL_RECOVERY_GATE player=%" PRId64 " animation=%" PRIu64 " fall=%" PRIu64 + " mapped_fall=%" PRIu64 " frame=%" PRIu64 " seal=%" PRId64 + " sealtime=%" PRIu64 + " time=%" PRIu64 + " nextanim=%" PRIu64 + " animating=%d" + " falling=%d" + " drop=%d" " dead=%d" " guard=%" PRId64 " maxguard=%d" @@ -2479,8 +2486,15 @@ void execute_entity_key_script(entity *ent) ent->playerindex, (uint64_t)ent->animnum, (uint64_t)ANI_FALL, + (uint64_t)animfalls[ATK_NORMAL], ent->animpos, ent->seal, + ent->sealtime, + _time, + ent->nextanim, + ent->animating, + ent->falling, + ent->drop, (ent->death_state & DEATH_STATE_DEAD) != 0, ent->guardpoints, ent->modeldata.guardpoints, From aca43e57a85d02fd6d2bf55857f0ae49aac8ab82 Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 15:39:46 -0400 Subject: [PATCH 3/7] Trace throw fall animation selection --- engine/openbor.c | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/engine/openbor.c b/engine/openbor.c index 9e5eecee8..971286423 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -34749,6 +34749,35 @@ int set_fall(entity *ent, entity *other, s_attack *attack, int reset) { int fall = 0; + if (ent + && attack + && ent->playerindex >= 0 + && ent->projectile != BLAST_NONE) + { + printf( + "AERIAL_RECOVERY_FALL player=%" PRId64 + " attack_type=%d" + " selected=%" PRIu64 + " previous=%" PRIu64 + " reset=%d" + " seal=%" PRId64 + " sealtime=%" PRIu64 + " time=%" PRIu64 + " projectile=%d" + " linked=%d\n", + ent->playerindex, + attack->attack_type, + (uint64_t)animfalls[attack->attack_type], + (uint64_t)ent->animnum, + reset, + ent->seal, + ent->sealtime, + _time, + ent->projectile, + ent->link != NULL + ); + } + if ( ent->inbackpain ) fall = animbackfalls[attack->attack_type]; else fall = animfalls[attack->attack_type]; From c57bbab1737c5ddd628ffdea76ff3a78ea8e18ee Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 16:09:32 -0400 Subject: [PATCH 4/7] Trace player fall selection before projectile state --- engine/openbor.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/engine/openbor.c b/engine/openbor.c index 971286423..f3892b7c4 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -34751,8 +34751,7 @@ int set_fall(entity *ent, entity *other, s_attack *attack, int reset) if (ent && attack - && ent->playerindex >= 0 - && ent->projectile != BLAST_NONE) + && ent->playerindex >= 0) { printf( "AERIAL_RECOVERY_FALL player=%" PRId64 From 8825b1b7816a5678f5923ceccc7bfb3c1ffb5fa4 Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 16:59:51 -0400 Subject: [PATCH 5/7] Trace custom aerial recovery script result --- engine/openbor.c | 40 +++++++++++++++++++++++++++++++++++----- 1 file changed, 35 insertions(+), 5 deletions(-) diff --git a/engine/openbor.c b/engine/openbor.c index f3892b7c4..af20d38c8 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -2443,6 +2443,9 @@ void execute_ondraw_script(entity *ent) void execute_entity_key_script(entity *ent) { + int recovery_chord; + animation_id_t recovery_animation_before; + int64_t recovery_guard_before; ScriptVariant tempvar; Script *cs ; if(!ent) @@ -2451,6 +2454,14 @@ void execute_entity_key_script(entity *ent) } cs = ent->scripts->key_script; + recovery_chord = ent->playerindex >= 0 + && ent->playerindex < MAX_PLAYERS + && ent->drop + && (player[ent->playerindex].keys & (FLAG_MOVEUP | FLAG_JUMP)) + == (FLAG_MOVEUP | FLAG_JUMP); + recovery_animation_before = ent->animnum; + recovery_guard_before = ent->guardpoints; + /* * Caskey, Damon V. * 2026-08-23 @@ -2459,11 +2470,7 @@ void execute_entity_key_script(entity *ent) * regression. Report the complete native gate state only when * a falling player holds the recovery chord. */ - if(ent->playerindex >= 0 - && ent->playerindex < MAX_PLAYERS - && ent->drop - && (player[ent->playerindex].keys & (FLAG_MOVEUP | FLAG_JUMP)) - == (FLAG_MOVEUP | FLAG_JUMP)) + if(recovery_chord) { printf( "AERIAL_RECOVERY_GATE player=%" PRId64 @@ -2513,6 +2520,29 @@ void execute_entity_key_script(entity *ent) tempvar.lVal = (LONG)ent->playerindex; Script_Set_Local_Variant(cs, "player", &tempvar); Script_Execute(cs); + + if(recovery_chord) + { + printf( + "AERIAL_RECOVERY_RESULT player=%" PRId64 + " animation_before=%" PRIu64 + " animation_after=%" PRIu64 + " guard_before=%" PRId64 + " guard_after=%" PRId64 + " projectile_after=%d" + " falling_after=%d" + " drop_after=%d\n", + ent->playerindex, + (uint64_t)recovery_animation_before, + (uint64_t)ent->animnum, + recovery_guard_before, + ent->guardpoints, + ent->projectile, + ent->falling, + ent->drop + ); + } + //clear to save variant space ScriptVariant_Clear(&tempvar); Script_Set_Local_Variant(cs, "self", &tempvar); From 5e091eb6c921fa5454ee18a8b20796999c946e51 Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 17:15:27 -0400 Subject: [PATCH 6/7] Trace aerial recovery through entity update --- engine/openbor.c | 64 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 64 insertions(+) diff --git a/engine/openbor.c b/engine/openbor.c index af20d38c8..6c822917c 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -33925,6 +33925,29 @@ void update_ents() if(ent_list[i]->exists && _time != ent_list[i]->timestamp)// dont update fresh entity { self = ent_list[i]; + bool trace_aerial_recovery = self->playerindex >= 0 + && max_follows >= 9 + && self->animnum == animfollows[8]; + + if(trace_aerial_recovery) + { + printf( + "AERIAL_RECOVERY_UPDATE stage=start" + " player=%" PRId64 + " animation=%" PRIu64 + " falling=%d" + " drop=%d" + " velocity_y=%f" + " takeaction_fall=%d\n", + self->playerindex, + (uint64_t)self->animnum, + self->falling, + self->drop, + self->velocity.y, + self->takeaction == common_fall + ); + } + self->update_mark = UPDATE_MARK_NONE; if(level) { @@ -33943,16 +33966,57 @@ void update_ents() { execute_updateentity_script(self);// execute a script + if(trace_aerial_recovery) + { + printf( + "AERIAL_RECOVERY_UPDATE stage=updateentity" + " animation=%" PRIu64 + " falling=%d drop=%d velocity_y=%f takeaction_fall=%d\n", + (uint64_t)self->animnum, + self->falling, + self->drop, + self->velocity.y, + self->takeaction == common_fall + ); + } if(!self->exists) { continue; } check_ai();// check ai + if(trace_aerial_recovery) + { + printf( + "AERIAL_RECOVERY_UPDATE stage=check_ai" + " animation=%" PRIu64 + " falling=%d drop=%d velocity_y=%f takeaction_fall=%d\n", + (uint64_t)self->animnum, + self->falling, + self->drop, + self->velocity.y, + self->takeaction == common_fall + ); + } if(!self->exists) { continue; } update_animation(); // if not frozen, update animation + if(trace_aerial_recovery) + { + printf( + "AERIAL_RECOVERY_UPDATE stage=animation" + " animation=%" PRIu64 + " frame=%" PRIu64 + " falling=%d drop=%d velocity_y=%f takeaction_fall=%d\n", + (uint64_t)self->animnum, + self->animpos, + self->falling, + self->drop, + self->velocity.y, + self->takeaction == common_fall + ); + } if(!self->exists) { continue; From 291639388850e79e47ce45d634c45da8f972043c Mon Sep 17 00:00:00 2001 From: "Damon V. Caskey" Date: Sun, 23 Aug 2026 19:06:02 -0400 Subject: [PATCH 7/7] Preserve animation ID and reset flag widths --- engine/openbor.c | 29 ++++++++++++++++++----------- engine/openbor.h | 4 +++- 2 files changed, 21 insertions(+), 12 deletions(-) diff --git a/engine/openbor.c b/engine/openbor.c index 6c822917c..ba010e9c5 100644 --- a/engine/openbor.c +++ b/engine/openbor.c @@ -12516,9 +12516,10 @@ static int translate_attack_type(char* command, char* filename) } //move here to ease animation name to id logic -static int translate_ani_id(const char *value, s_model *newchar, s_anim *newanim) +static animation_id_t translate_ani_id(const char *value, s_model *newchar, s_anim *newanim) { - int ani_id = -1, tempInt; + animation_id_t ani_id = ANIMATION_ID_INVALID; + int tempInt; //those are dummy values to simplify code static s_model mdl; static s_anim ani; @@ -15772,8 +15773,8 @@ s_model *load_cached_model(char *name, char *owner, char unload) ArgList arglist; - int ani_id = ANI_NONE; - int script_id = -1; + animation_id_t ani_id = ANI_NONE; + animation_id_t script_id = ANIMATION_ID_INVALID; int frm_id = -1; bool at_cmd_mergeable = false; int i = 0; @@ -17822,7 +17823,7 @@ s_model *load_cached_model(char *name, char *owner, char unload) ani_id = translate_ani_id(value, newchar, newanim); } - if(ani_id < 0) + if(ani_id == ANIMATION_ID_INVALID) { shutdownmessage = "Invalid animation name!"; goto lCleanup; @@ -17850,6 +17851,8 @@ s_model *load_cached_model(char *name, char *owner, char unload) int freespecial_number; + animation_id_t sync_animation_id; + s_command_token animation_name_token; const char* freespecial_error; @@ -17876,9 +17879,13 @@ s_model *load_cached_model(char *name, char *owner, char unload) * "none" intentionally translates to FRAME_NONE and * continues to disable the default synchronization. */ - newanim->sync = freespecial_recognized + sync_animation_id = freespecial_recognized ? animspecials[freespecial_number - 1] : translate_ani_id(value, NULL, NULL); + + newanim->sync = sync_animation_id == ANIMATION_ID_INVALID + ? FRAME_NONE + : (int64_t)sync_animation_id; } break; case CMD_MODEL_DELAY: @@ -18422,7 +18429,7 @@ s_model *load_cached_model(char *name, char *owner, char unload) /* * Cancel belongs to the currently active animation. */ - if(!newanim || ani_id < 0) { + if(!newanim || ani_id == ANIMATION_ID_INVALID) { shutdownmessage = "Cannot add cancel command: animation not specified.\n"; @@ -20760,7 +20767,7 @@ s_model *load_cached_model(char *name, char *owner, char unload) } scriptbuf[scriptlen - strclen(sur_text)] = 0; // cut last chars scriptlen = strlen(scriptbuf); - if(ani_id >= 0) + if(ani_id != ANIMATION_ID_INVALID) { if(script_id != ani_id) // if expression 1 { @@ -20785,7 +20792,7 @@ s_model *load_cached_model(char *name, char *owner, char unload) buffer_append(&scriptbuf, buf + pos - len, len, &sbsize, &scriptlen); pos += strclen("@end_script"); - if(ani_id >= 0) + if(ani_id != ANIMATION_ID_INVALID) { buffer_append(&scriptbuf, endifid_text, 0xffffff, &sbsize, &scriptlen);// put back last chars } @@ -20799,7 +20806,7 @@ s_model *load_cached_model(char *name, char *owner, char unload) bool first_command_argument; //translate @cmd into script function call - if(ani_id < 0) + if(ani_id == ANIMATION_ID_INVALID) { shutdownmessage = "command '@cmd' must follow an animation!"; goto lCleanup; @@ -28291,7 +28298,7 @@ void update_frame(entity *ent, uint64_t f) } -void ent_set_anim(entity *acting_entity, animation_id_t aninum, bool resetable) { +void ent_set_anim(entity *acting_entity, animation_id_t aninum, int resetable) { s_anim *ani = NULL; int animpos; diff --git a/engine/openbor.h b/engine/openbor.h index 06159b03d..e48702795 100644 --- a/engine/openbor.h +++ b/engine/openbor.h @@ -1001,6 +1001,8 @@ typedef enum e_animations //Animations typedef uint64_t animation_id_t; +#define ANIMATION_ID_INVALID UINT64_MAX + typedef enum { BOSS_SLOW_OFF, @@ -4808,7 +4810,7 @@ void biker_drive(void); void ent_default_init(entity *e); void ent_spawn_ent(entity *ent); void ent_summon_ent(entity *ent); -void ent_set_anim(entity *ent, animation_id_t aninum, bool resetable); +void ent_set_anim(entity *ent, animation_id_t aninum, int resetable); void ent_set_colourmap(entity *ent, uint64_t which); void ent_set_model(entity *ent, char *modelname, int syncAnim); entity *spawn_attack_flash(entity *ent, s_attack *attack, int attack_flash, int model_flash);