`?<ف7E‰VTŒعےFKŒض®خےmےھn‘›E\]AےجذےےےŒے›ےà‘´ƒï&8ٌNR‰VT•àج9pzض®خےmےھn9pz#I]ےجذےےےŒے›ٌNR´ƒï ےےےےےےےے2Tvک؛ـ‏ïح«‰gE#2Tvک؛ـ‏2Tvک؛ـ‏T§ـ‏ےïï½؛ثيےïح›heeeeeeeeeeeeeeeeCD#2U4e&TVBvS%4#Deyک™»‰ge‡ک™™ت«wصDf_xہtw{k¶؛h3çU°·« ہ<جŒبففففففحججŒـجأججج¥¼yfU‡کVDDD43"ھھھھjfffضفف 03 ""030 """"@D@ """"3333CDD4C@4C4C4C4CDD433333333£ھھ:£ :£:£:£:£ھھ:33333333sww7s»{7s»»7s»»7s»»7sww73333™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ة™™™ج™™ة¬™™جڑ™ةœ™™جڑ™ة¬™™جڑ™™¬™™™ڑ™™™™™™™™™™™330003003333000300331331303303ààààîîààààîîîîààààààîîîîààààîîàîîîàîàîàîààîîلîîîàîàîàîàîîàîîîàîàîàîààîî™™™™™™™™™™™™™™™™™™™™ججججتججج©ھھھ™™™™™™™™™™™™™™™™™™™ةججججججججھھھھ™ة¬™™جڑ™ة¬™™جڑ™™¬™™™ججججججججھھھھ™™™™™™™™™™™™™™™™™™™™ججججججج¬ھھھڑDD@@@@@DDDD@@@@@DDADAD@D@DàîàîàîîààààààààîîîîàààîîàààîîààààîîDD@@@@DD@DDD@D@D@D@@DDppàçîwîîàpîîpîîàçîwîîàîîîîpçîçîî~îîîîçîîwîîîîîîîàîîîîwww~çîîàççwwçw~çàîîàîîîîîççççwwçîw~çîîîîîîîîîàîîîî33000003333000003313130303àîîîîàîîàîîàîîàîîàîîîîîîàîîîîîîîîîîîîîîîîîîàîîîîUPeVPPPUUPeV``PUPeVPUePeVPUe`fUPeVP`PP`UefPUPeVPPPPPUe`fPUUPefPUPePUU`ffPUUPefPUPeP`UUPefPUPV`UUffPPPPPUUPeVPP``UUVePPUUffPUU`fUUPU`UefPPPePUPePV``PPPPPUU`ffPUPUUPUUPVVP`P``ہ ججججت     wہج اجw||ج|اجwwجا|pw pPPPUPPUUPeUPV``UPeVPPPP`UefPUPeVPPPUePe`UPeVPPPP`UefV`PUPeVPPPUePeV``UUPUf`UVUPUe`fUUVePPP`PPPPPPPP`UefPPPPPP`UeV`PPPPPPUUPUUPeU`fPPPP`UePeVPP``UPUPUUVeP`PUU`VeUPePUU`ffذ ذ ذذ ففذ ذ ذ ذ ففففذ ذ ذ ذ ذذ فف     ھ     ھ ھ   ھ    ھ ھ  UUV`UVPPUUffUUUUUUfffPUeeVPUU`fVeہججج جج جج ہج                        ھھ  "  *   " "   ھ       ھ ھ  ھھ       ھ    UUfUPe`P`UUfVPUUfUUffUUfVU`ePUUUVff` ذàààà ذ ذîîààààîî ذ îîذàààààà îîذ                          ھ   ھ" *   " "       ھ   ھ      ھ  ھھ       ھ UUUfUf ذàîîàà ذ ذîîààààààààîî ذ îîذàîàààîîàààîààà îîذ ذàîîîîà ذ ذîîàîîàîîàîîàîîîî ذ îîذàîîîîîîîîîîîîîîîîîîàîî îîذ»»»»°»»°»»°»»»»»»»»»»»»»»»»»»°»»°»»°»»»»»»±»»»±»±»°±»°±»°±»±»»»±»»»»»»»»»»»»»»»»»»»»ˆˆˆˆˆˆ™™™گ™™™™™™™™™™™گ™™™گ™™™™©ڑڑ™©ھھگ™™ ™™™™™™™™™™™ ™™™ ™™™™™ڑ™™ھھڑ àژàژ àژàژ3333»°»»»»»»» »»»»»»»»»»»»»»»»°»»»»»»» »»»»»»»±»»»±°±»»±»±» ±»»±»»»±»»»»»»  °» ° °» °»»»»»»»00ww@tw4C4D@03w7wD@3@CD "0"ˆ0wˆ@tx4C4D@"(‚0ˆ3w7wD@3@CDگ™ھھگ©ھھ™©ھھ™™ھھگ™ھھ™™ھھ™©ھھگ©ھھھھڑ™ھھ™™ھھ™™ھھڑ ھھ™™ھھڑ ھھڑ ھھ™™™گ ™گ 33333333»»»»»» °»» ° ° »»»»»»»»»»»»»»»»» °»» ° ° »»»±»»»±»»»±»°»»° ° »±»±»»»»»»»»» °»» °»° °»»»جج ججججہججج ججججہججج ججججہجہججہ ہج ہ ہ îîللîîîàîîàîîàللàîîàلل/ًôOOô/ًôOOôDDDDججج ج ج ججججج ج ج ججججج ج ج جججججججججججہ ہ جہہ ہججججہ ہ جہہ ہججججء ء جہء ہججہج ججہ ج ہج îîîîîîîîîîîîîللîîîîîîîللîîîîîa‘،–©©a‘،–©©DDDDDDDDˆˆˆˆ ‚ ‚ ‚ ‚ ‚ (ˆ‚( ‚ ˆˆˆˆ‚ ‚ ‚ ‚ ‚ ˆ‚(ˆ‚ ˆˆˆˆ‚ ‚‚ ‚‚ ‚‚ ‚‚ ‚‚(ˆ‚‚ ‚™ ™™™™™™™™™گ™™™ھ™™™©™™™™™™™™™™™ گ ™ھ™™™™™™™™™™™™™™™™™™™™™™™™™™™گ ™™™™ ™™™™™™™™™™™ ™™™ ™™™ ™™™™ˆˆˆˆˆ€€€€€€€ˆˆˆˆˆˆˆˆ ‚ ‚ ‚ ‚ (ˆ‚( ‚ ‚ ‚ ‚ ‚ ‚ ‚ ˆ‚(ˆ‚ ‚ ‚ ‚ ‚‚ ‚‚ ‚‚ ‚‚(ˆ‚‚ ‚‚ ‚‚ ‚™™™™™™™™™™™™گ™™™ ™™™گ™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™ ™™™™™™™™™™™™™™™ ™™™ ™™™ ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆججج ججج ججججج ججج ججججج ججج جججججججججج™©ڑڑگ©ھڑ™©ھھ™©ھھ™ھھھ ©ھھگ©ھھ™ ھھ™ھ©ڑھھھھھھھھھھھھھھھھھھھھھھھھ ھ  ©ھڑ ھھڑ ھھ™ ھھ™™ھھڑ™ھھڑ ھھ™  ڑ™™ھ©ڑھھھھھھھھھھھھھھھھھھھھھھھھھھھھˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆجج جججججج جج جججججج جج جججججج جججججججج興ˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ€ˆ """(€ˆˆˆˆ€ˆˆ€€€ˆˆ€€€€ˆˆ€ˆˆˆ€€€€ˆˆ€€€€ˆ€ˆˆ€€€€ˆˆ€€€€ˆ€ˆˆ€ˆˆˆˆ€€€€ˆˆ€€ˆˆˆˆˆˆˆˆˆ€ˆˆˆˆˆˆˆˆˆˆˆ€€ˆˆ€ˆˆˆˆˆˆˆ€€ˆ€ˆˆˆˆˆˆ€€€€€ˆˆˆˆˆˆ€€°° ° €€ˆˆ€€€€ˆ€ˆˆ€ˆ€€€€ˆ€ˆˆˆ€€€€ˆˆˆ€€€€€€° »» »»»»° °°»°»°»»»» » ° »» »»»»° °°»°»°»»»» » ° »» »»»»° °°»°»°»»»» » °»°»°»°»» » جہجہجہججہجہہ ججج ج جہج جUUUUUUUUUUPUUPUUPUPPUUUUUUUUUPUPUPUPUUUUUUUUUUUUUPUUPUUPUUجہجہجہججہجہ جججججج ججہجہججہہججہ جججججج جہجہجہجہہجہج ہہجہ جججججج جہجہجہججہہجج ہ جججججججج ہ ہہ ججہہ UUUUUUPUUUUUUUUUUUUUUUPUPUUPUPUUPUUPUPPPPPPPUPUPUPUPUPUPUUPUUہہہ ججہہ ہہہ ج ججہہ ہہہ ہہ ج ج ہہ ہہہ ججہہ UUUUUUUUPUUUUPUUUUUPUPUUUPUPUPPUPPUPUUPUPUUUUUUUUUUUPUجہجہجہججہج جججججج جہجہجہججہ ججججججہجہجہججہجہ جججججج جہججججججججججججUUUUPUUPUPUUUUUUUUUUPPPUUUUUUUPUUPUPUPUUPUUPUPPPPPPUUUPUUUPPPPUUUPUUUہہہہ جججہہ جہہہ ج ججہہ ہہ ہہجہہ ہہ™™گ™™ گ گ گ©© گ™™ گڑ© © گ ™™™ گ ڑ™™™™  گ   گ  ààààà€€ہ ہ ذ ذ ذذ ذ  ھھ ڑ™™© گ گ گ گڑ™™©ھھڑ© ھھ °° ° ° » گ™™ گ گ‘ گ‘ گ گ گ™™ گگ  ھھ ڑ™™©گ ‘‘‘ڑ™™©ھھڑ© ، ° »»°» »»»»° °°»° »°»°»»»» » »»°» »»°» °»°°»°»°»»»» » ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ€ˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """ ˆˆˆˆˆˆ """ ˆˆˆˆˆˆ """ ˆˆˆˆˆˆ ˆˆˆˆ€ˆˆˆˆ€ˆˆˆˆˆˆ ˆˆˆˆ€ˆˆˆˆ€ˆˆˆˆˆˆ ˆˆˆˆ€ˆˆˆˆ€ˆˆˆˆˆˆ€ˆ ˆˆˆˆ€ˆˆˆˆ€€€ˆ€€€ˆˆ€€€ˆ€€€ہججہججہججہججہججہججہججہججججججججججججججججججججججججججہجہ ہ ہ ہجہج ہجہ ہجججججججہجہ جہججج€€€€€€€€€€ˆ€€ˆ€ہججہججہججہججہججہججہججہججججججججججججججججججججججججججہہ ہہ ہج ہجہہجہہجہہجہہجہجججج جج ہججہججہججہججہجààîààîà€للللâٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللâàللللâàلللل⣢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“?3674Nàللللâ’9DID4;=7’àللللâ’ذررررررررررررررررررررررررررررررررررررررررررررررررررررررررز’گKm5GD5D6;>7àللللâa’àللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللâ’°°°°°àللللâa’àلâàللللللللللâ’گ=3L3;;5D67àللللâ’àلâہہہàللللللللللâ’aàللللâ¤àلâ  aàللللللللللâ’°گ?3=;?39DG=Nàللللâàلâہ aہaiiiiiàللللللللللâ’àللللâàلâہYZZYYYZàللللللللللâ’HE75;3>I:3C=HIDàللللâàلâہA YZZYiYZسشàللللللللللâ’aaaàللللâàلâہہ ہ YZZYYYZمنًٌٌٌٌٌٌٌلللâ’ہ6GDE]C3?7àللللâàلâہiYZYYijسشàللâڑ›’àللللâàلâہ°°aayijiiyzمنàللâ’°H;?DC5:7>>Daàللللâàلâyzyyz£¢¢¢¢¢“àلللررررررررررررررررررررررررررررررررررز’àللللâàللررررررررررررررررررررررررررررررررررررز¤ذررز’àللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌللâ¤ذرررررررررزàللللâذرررررررررررررررررللللللللللللللللللللللللللللللللللللللللجحخجحخلللâ’àلللللللللللللâàللجحخجحخللللللللللâàللللâàلللللللللللللللللللللللللللللللللللللللللللللللللللللللللـفقـفقلللâ’àلللللللللللللâ4;=7;HL;Càللـفقـفقلللللللللللررررررررررررررررررررررررررررررزàللللâàلللللللللللللللللللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌللللللللللللجحخجحخلللâ’aàلللللللللللللâàللجحخجحخلللللللللللللللللللللللللللللللللللللللللâàللللâàللللللللللللللللللللللللللللللâللللللللللللـفقـفقلللâ’àلللللللللللللâdگًللـفقـفقللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللللللâaaàللللâàللللللللللللللللللللللللللللللâًٌٌٌٌٌٌٌٌٌٌٍàللâ’àلللللللللللللâگ ٌٍàللللâttttttttttttàللللللللللللللâaàللللâaàللللللللللللللللللللللللللللللâa£¢¢¢“aaàللâ’àللللللللللللللگdàللللâàللللللللللللللâàللللâàللللللللللللللللللللللللللللللâ¤ذرز¤“aàللâ’àللللللللللللللررزگàللٌٌٍ°°°ذرزfàللللللللللللللâàللللâàلللللللللللللللللللللللللللللللجحخجحخلللز¤¢¢¢¢¢¢¢¢¢¢¢“àللâ¤àللللللللللللللللâگdذررررللâàلâàلللللللللللللللرررررررررررررررزàللللâàلللللللللللللللللللللللللللللللـفقـفقللللرررررررررز’ذرررررررلللâàللللللللللللللللâگذرررزàللللللâ1°°f°àلâtًٌٌٌٌٌٌللللللللللللللللللللللللâàللللâàلللللللللللللللللللللللللللللللجحخجحخلللللللللللللâ’àلللللللللللررررلللللللللللللللللâذلللللزًٌٌٌٌللâàلâàلللللللللللللللللللللللâàللللâàلللللللللللللللللللللللللللللللـفقـفقلللللللللللللâ’àللللللللللللللللللللللللللللللللâذللٌٌٌللزàللرز°°àلâàلللللللللللللللللللللللâàللللâàلللللللللللللللًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍللâ’àللللللللللللللللللللللللللللللللâ!àلâàللزfàللللز°°àلâسشذرزًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللâàللللâàللللللللللللللâàلâ’àللللللللللللللللللللللللللللللللâfàلâ£àلللررزàللللâ°àلâمنàلâ0àللâàللللâàللللللللللللللâ° °àلل’àلللللللللللٌٌٌٌٌللللللللللللللللâdذررلل⤓àللللللجحخجحخلللللâ°°0àللجحخجحخللâtگ °ہàللâàللللâàلللللللللللللل⣢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“fàلâ’àللللللللللâàلللللللللللللللâàللللâ’àللللللـفقـفقلللللâàللـفقـفقللâàللâaaàللللâàللللللللللللللâ’ذررررررز¤ذررررررزسشàلâ’ًٌٌٌٌٌٌٌٌٌٌٍ ہàلللللللللللللللâًٌلللâ°’°àللللللجحخجحخللللللرررررررررررلللجحخجحخلللررررررررررررررررررزàللâàللللâàللللللللللللللâ’àلللللللجحخجحخلللللللâمنàلâ’àلللللللللللللللâàللâہ’ہàللللللـفقـفقللللللللللللللللللللـفقـفقلللللللللللللللللللللâ0àللâaaaaaaaaaaaaaaaaaàللللâàللللللللللللللâ’àلللللللـفقـفقللللللللرررللâ’°°aگAàلللللللللللللللâdàللâ’àلللللâ“ٌٌٌٌٌٌٌٌٌٌٌللللٌٌٌٌٍ£ًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌللâàللâaaaaaaa aaaaaaaaaàللللâàللللللللللللللâ’ àلللللللجحخجحخلللٌٌٌٌٌلللللâ’àلللللللللللللللâàللâ°’°ًٌٌٌٌٌٍ’àلل⤢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“àلâeàللâaaaaaaaaaaaaaaaaàللللâàللللللللللللللâ’àلللللللـفقـفقلللàلللل⤢¢¢¢¢¢¢¢¢¢¢¢¢“àللللللللللللللللزàللâ’’سشàللâdddd’àلâàللâaaaaaaaہaaaaaگaaaàللللâàللللللللللللللâR’ àللللللâًٌٍwgàلللللررررررررررررررز’ذرللللللللللللللللللجحخجحخللل⤢¢¢¢¢¢¢¢”منàللâ!dddd°’àلâàللâaaaaa°aaaaaaàللللâàللللللللللللللâ’àللللللâàلللللللللللللللللللâ’ہàلللللللللللللللللللـفقـفقلللâàللâذرررزdddd’àللجحخجحخلللâaaaa°aa aگaaaaàللللâàللللللللللللللâ’àللللللâàللللللٌٌٌٌٌٌٌٌٌٌٌٌلâ’àلٌٌٌٌٌلللللللللللللجحخجحخللللررررررررررررزذرزًٌٌٍہàلللâdddd°’àللـفقـفقلللâaaaaaaaaa aaaaaàللللâaàللللللللللللللâ’ہàللللللâàلللللâàâ¤àâàللللللللللللـفقـفقلللللللللللللللللجحخجحخللâàلللâdddd’àللجحخجحخلللâaaaaaa aaaaaaaaaàللللâaàللللللللللللللâP’àلللللللررررررزًٌٌلللâہàâàâàلللٌٌٌٌٌٌٌٌٍ£¢ًٌٌٌٌٌٌٌٌٌٌللللللـفقـفقللâگàللل⨒àللـفقـفقلللâaaaaa°°°aa°aaaaaaàللللâàللللللللللللللâ’ہàلللللللللللللâaàللâ°Qàلررررلâàللâ’àلللللجحخجحخللâàلللâ’àلâ£àللâaaaaaaaaaaaaaaaàللللâàللللللللللللللâ’àلللللللللللللâàللâYZYZYàللللللâPàللâd ’گàلللللـفقـفقللâگàلللâddddd’àلâ’àللâaaaaaaaaa°aaaaaàللللâàللللللللللللللâگگ’گàللللللللللللللرررزàللâگijہjiًٌٌٌٌٌٌٍàللâسش¤dàللٌٌٍ£للâàلللâک’àل⢔àللâaaaa aaہaaaaaaaàللللâàللللللللللللللâ’àلللللللللللللللللâàللâyzyzytudetudeàللâمنàلâ’àلâگàلللâ’àلâذررلللâaaaa°aaaaہaaaaaàللللâàلللللللللللللللررز¤ذللللللللللللللللللâذرلللâ°pàللâ½etdtuذررررررررزگگàلâH:DGI5JI’àلâ ہàلللâddddd’àلâàلللللâdddddddaaaaaaaaہaaaaaaàللللâàلللللللللللللللللâàللللللللللللللللللâ/àللللâہسشàللâ dd dàلل للâàلâ’àلâہàللل−àلâàلللللâdddddaaaaہaaaگaaaaàللللâàلللللللللللللللٌٌلررررلٌٌٌٌٌٌٌٌٌٌٌٌللللللâًٌلللâمنàللâ­àللللâàلâ’àلâہàلللâ’àلâàلللللâddaaaaaaaaaگaaaàللللâàللللللللللللللâàللللâàلللللâàلللررررررررررررزppàللâ  àللللللللâگگàلâ’àلâàلللâ’àلâàلللللâddaaaa° waaaaaaàللللâàللللللللللللللâًٌٌٌٌٍàلللللâàلللللللللللللللâfàللâ¹eddduàللللللللâàلâ’àلâگ!àللل↠– ¦ ’àلâàلللللâddddaaaaaaaaaaaaہ aàللللâàللللللللللللللâ°°(àلللللâذررللللللللللللللللâàللâdtdtdًٌٌٌٌٌٌٌٌٍàلâ’àلâ"àلللâ’àلâfàلللللâddddaaaaaaaaa°aaaaaaaàللللâàللللللللللللللâ&àلللللâàللللللللللللللللللâàللâdàلâ   ’àلâہàللل⢢¢¢¢¢¢¢¢¢”àلâàلللللâdddddaaaaہ°aہaaaaaaàللللâàللللللللللللللâ°°àلللللâàللللللللللللللللللâYZYZYZàللâàلâ’àلâہگàللللرررررررررررررررللâàلٌٌٌٌٍdddaaa°aaa aaaaaaaaàللللâàللللللللللللللâàلللللâàللللللللللللللللللâijijijàللâdàلâ’àللررررزذرررررررللللللللللللللللللللللâ°àâaaaaaaaa°aaaaaaàللللâàللللللللللللللâYYYYYYYYYYàلللللâàللللللللللللللللللâyzyzyzàللâdàلâ   ’àلللللللجحخجحخلللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàâآآآآآآآآ³aaaa aaaگ aaaaaaàللللâàللللللللللللللâYYYYàلللللâàللللللللٌٌٌٌٌٌٌٌٌٌٍàللâddàل⣢¢¢¢”àلللللللـفقـفقللللللللâàâJH7>7HH²aaaaaaaaaaaaaaaaàللللâàللللللللللللللâY°Yàلللللâàلللللللâufvàللâذررررررررررللâ’àلللللللجحخجحخللللللللâسشگ گgd0eàâH7II;C9H²aaaaگaaaaaaaaaaaaaàللللâaàللللللللللللللâ/YYYàلللللâàلللللللâگگگàللâàللللللللللللâ’Qàلللللللـفقـفقللللللللâمنàâآآآآآآآآ´گaaaaaaaaaaaaaaaaàللللâàللللللللللللللâYYàلللللâàلللللللâdteذررررررللللررررررررزàللللللللللللâ’ہàللللٌٌٍ“àللللللللرررررررررررررررررررررزàâC;9:I¢ ^àللللâàللللللللللللللâY£¢¢¢“Yàلللللâàلللللللâگہہeàللللللللللللللللللâàللللللللللللâ’ہہàلللâ’àلللللللللللللللللللللللللللللâ°àâ°eàللللâàللللللللللللللâY’ذرز’Yàلللللâàلللللللâàلللللللللللللللللللجحخجحخللللللللللللل⤢¢¢¢“àلللâ”deًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàâH:3=7¢ہàللللâàللللللللللللللâYY°’àلâ’Yàلللللâàلللللللâdذرررررررررللللللللللللللللللللـفقـفقلللللللللللللâگ’àلللâdeuàâàللللâàللللللللللللللâYY’àلâ’Yàلللللâàلللللللâàلللللللللللللللللللللللللللللجحخجحخلللللللللللللل’àلللâdeu0°ہ°d0eàلرررررررررررررزàللللâàللللللللللللللâY’àلâ’Yàلللللâàللللللللجحخجحخللللللللللللللللللللللللللللللـفقـفقلللللللللللللâ’àلللâtuàللللللللللللللâL7>5D?7IDسشسشàللللâàللللللللللللللâY’àلâ’Yàلللللâàللللللللـفقـفقللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ£ًٌٌٌٌٌٌٌٌللللâگ’àلللâذررررررررررررررررررررررررررررررررررررلللللللللللللللâمنمنàللللâàللللللللللللللâ°Yسش’àلâ’àلللللâàللللللللجحخجحخلللللللللللللâ’àللل⣢¢¢¢”àللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللâژڈ3435=GDD?HàللللâàللللللللللللللâYمن’àلâ’°àلللللâàللللللللـفقـفقللللللللللللل⣢¢¢¢¢¢¢¢¢’àلللâ’àللللـفقـفقللللللللللللللللللللللللللللللٌٌٌٌللللللللللللللللللâ‍ںàللللâàللللللللللللللâY’àلâ’àلللللâàللللللل⢢¢¢¢“àللللللللللللâ’’àلللâ’سشàللللجحخجحخلللللللللللللللللللللللللللللâàلللللللللللللللللâàللللâàللللللللللللللâ’àلâ”àللًٌٌٌٌٌٌٌٌٌٌٍٍ’ًٌٌٌٌٌٌٌٌللللâ’4DD?7G3C9l’àلللâ’منàللللـفقـفقلللللللللللللللللللللللللللللâ£àللللللللللللللللللرزàللللâàللللللللللللللâ’àللجحخجحخللâ’àلللâ’’àلللâ’àللٌٍ£ًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ’ًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌللâàللللâaàللللللللللللللâ)’àللـفقـفقللâ’àلللâ’G7IJGC’àللل⤢¢¢¢“àلâu¤¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢”§§àلâàللللâàللللللللللللللâ’àللجحخجحخللâijijijijijij’ہàللل⤢¢¢¢¢¢¢¢¢¢¢”àلللâ   ’àلâgàلâàللللâàللللللللللللللâ°”àللـفقـفقللâyzyzyzyzyzyz¢”àلللâ†گ °ہ–¦àلللâ’àلâذررررزg0£àلâàللللâàللللللللللللللâàلâًٌٍijàلللâàلللâ’àلâdddàللللâdt’àلâàللللâàلللللللللللللللرررررررررررللâyzaàلللâْàلللâ   ’àلâسشًًٌٌٍٍd’àلâaàللللâàللللللللللللللللللللللللللللâijijijijijijہàلللâàللل⣢¢¢¢”àلâمن’àلâàللللâaàللللللللللللللللللللللللللللâyzyzyzyzyzyzàلللâأآآآآآآآآآآآآآآآآآآآ³àلللâ’àلâذررررز¦ذرررز’àلâàللللâaàللللللللللللللللللللللللللللâàلللâ²²gàلللâ’àلâàللللâذررزàلللâ’ˆàلâàللللâàللللللللللللللللللللللللللللâذرررزذرررررررررررررررررررررللللâ²L²uàلللâ’àلâàللللâ¬àللâàلللâ’àلâàللللâàللللللللللللللللللللللللللللâàللللجحخجحخللللللللللللللللللللللللللâ²3H6²ذررللللâ’àللررررررزàللللâtàللâàللل⣢¢¢¢”ˆàلâàللللâàلللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàللللـفقـفقللللللللللللللللللللللللللâ²^²àلللللل⢔àللللللللâàللللâذررررزًًٌٌٌٌٌٍٍ’àلâàللللâàللللâàللللجحخجحخللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌللللللٍ²on_²àللللللâ“ًٌٌٌٌٌلللâًٌٌٌٌٍàلللل⣢¢¢¢”àل⣢¢¢¢“àللللâaàللللâگ °ہہ° گàللللـفقـفقلللللâ-----àللللâؤآآآآآآآآآآآآآآآآآآآ´àللللللâ’àللâàللللâ’àلâ’’àللللâàللللâàللل⢢¢“ًٌٌٌٌٍàللللâàللللللâ’àللâuàللللâ02’tھàلâ’’àللللâàلللللرررررررررررررررررررررررررررررررلللل⣢“’àللللâàلللللللرررررزہ’ہگàللâ†àللللâd’ذررللâذرز¤ذرز’àللللâàلللللللللللللللللللللللللللللللللللللللل⤓¤”hhàللللâdذرررررللللللللللللل⣔àللâdذرررللللل⤢¢¢“àللللâàللجحخجحخللâ’àللللâàللللللللللللٌٌٌٌٌٌٌٌٌٌللللٌٌٌٌٌٌٌٌٌٌٌللل⤠fàللللâàللللللللللللللللللâہ’ہگàللâ¬àللللللللâذرزذرز’àللللâàللـفقـفقللâ¤àللللâàلللللللللللâàللâàللâ)àللللâdeeàللٌٌٌٌٌٌٌٌٌٌٌٌٌٌلل⤓àللâًٌٌٌلللللâàلâ­àلâ’dàللللâaàللجحخجحخللâàللللâàلللللللللللâàللâàللâ hàللللâddگdàلâàلâہ’ہگàللâذز£¢¢¢¢¢¢¢“لللللâًٌٍ£¢¢¢¢¢“àلâ’àللللâàللـفقـفقللâàللللâàلللللللللللâ*àللâ*àللâ+hàللللâe ddہàل⣢¢¢“£àلâ’àللâ¬àâ’’àللللâ’’àلâ’àللللâًًٌٌٍٍAàللللâàلللللللللللâًٌٌٍàللâ àللللâگگedàلâe’’’àللرز”ذلللâًٍ’’àللللâ’’ًٌٍ’àللللâàللللâàلللللللللللâàللâàللللâd°àلâ¤ذرز¤¢”àللللجحخجحخلللل⣢¢¢¢¢¢¢¢”’ًٌٌٌٌٍ£¢¢¢¢¢¢¢¢”¤¢¢¢”àللللâگگàللللâàللللللللللل⢢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“ذلللâذرررررررزàللللâd edگàللجحخجحخللâàللللـفقـفقللللâ’¤¢¢¢¢¢¢”dàللللâàللللâaàلللللللللللâ’àللللجحخجحخللللللللâàلللللز°ہeàللـفقـفقللâdàللللجحخجحخللللâ’1àللللâگàللللâàلللللللللللâ’àللللـفقـفقللللللللâàلللللâہa°dafddddàللجحخجحخللâàللللـفقـفقللللâ’dddàللللâAAàللللâàلللللللللللâگگ’àللللجحخجحخللللللللâhhàلللللâaàللـفقـفقللâ“àللٌٍàلللâ’d†ttàللللâ àللللâàلللللللللللâ’àللللـفقـفقللللللللâàلللللâaہaہeہہًٌٍàلâ’àلâàلللâ’dtttàللللâàللللâàلللللللللللâff’ًٌٌٌٍ“ٌٌٌٌٌٌٌٌٍàلللللâddàلâ’àلâàلللâ’ˆ†ھ¦ttttàللللâaàللللâàلللللللللللâگگ¤¢¢¢¢¢”àللللللررررررررررررزہaگ°ہdàلâ’àلâdàلللâ’dttttàللللâ àللللâàلللللللللللâhàللللللللللللللللللâàلâ’àلâdًٌٌٌٍ’ddذرررررررررررررررررررررررررررررررللللللرررررررررررررررررررررزàللللâسشسش£¢àلللللللللللâذرز  àللللللٌٌٌٌٌٌٌٌٌلللâذرررررررررررللâ’àلâ’àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâگàللللâمنمن’àلللللللللللâfàلâf)àلللللâàلللجحخجحخللللللللللللللâ’àلâ’àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâگàللللâ’àلللللللللللâگگًٌٍàلللللâ6DC[Iaàلللـفقـفقلللللللللٌٌٌٌٌٍ’àلâddd¤“dàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâ aàللللâ’àلللللللللللâ+fhàلللللâàلللجحخجحخللللللللâ’àل⤓dàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâگàللللâEG7K;7L’àلللللللللللâfàلللللâEG7HHGàلللـفقـفقللللللللâسشe’àلâd¤“àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâ گ àللللâ’àلللللللللللâگذررررررررررررزذرررررررررررررللللللâaaàللل£ًٌٌٌٌٌٌٌٍمن’àل⤓àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàللللâ’àلللللللللللâàللللللللللللâàللللللللللللللللللللرررررررررلللâa’’àللرررررررررررز¤ذررررررررررررلللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâگàلللللرز’ذرلللللللللللللرررررررررررررررررررررلللللللللللللâàللللللللللللللللللللللللللللللللâ’£“£“£“£“£“£“£“£“£”àللللللللللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâگ àللللللâ¤لللللللللللللللللللللللللللللللللللللللللللللللللâàلللللللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٍea¤”¤”¤”¤”¤”¤”¤”¤”¤”àللللللللللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâ àلللللللجحخجحخلللللللللللللللللللللللللللللللللللللللللللللللللâسشسشàللللللللللللللللللâàللللللللللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàلللللللـفقـفقلللللللللللللللللللللللللللللللللللللللللللللللللâمنمنàللللللللللللللللللâeaafذررررررررررلللللللللللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaaàلللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللجحخجحخللللٌٌٌٌٌٌٌٌٌٌٌٌلللâaH::::mmmàلللللللللللللًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍلللللâàلللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللـفقـفقلللâàللâہگگàللللللللللللâàللللâàللللللâàلللللللللللللللللللللللللللللللللللللللللللللللللجحخجحخلللâ£ہàللâ:7;HH>77E;C9àللللللللللللâàللللâàللللللâàلللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللللللللللللللللللـفقـفقلللâ’àللâaeaàللللللللللللâàللللâAAAàللللللâًٌٌٍ¨àلللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٍ£ًٌٌٍ’àللâہeaeaàللللللللللللâ3G7NDJG736N8DGI:75:3>>7C97kàللللâàللللٌٌٍC7K7GIGJHIگàلللللللللللل⤢¢¢¢¢”گàللâAàللللللللللللâàللللâàلللâdàللللللللللللâ°àللâa°°  aàللللللللللللâàللللâaàلللâI:78>DL7GHàللللللللللللâ°àللâہàللللللللللللâàللللâàلللâdàللللللللللللâگ àللâa°ہàلللللللللللللررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررزàللللâہ°ہàلللâdگd °tہpàللللللللللللâ àلللذررررررررررررررررررررررللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللللâàلللâàللللللللللللâ àلللجحخجحخلللللللللللللللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàللللâàلللâ ھ¶hذرزذرررررلللللللللللللâ  گگگàلللـفقـفقللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ£¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢àللللâaàلللâàل àللللللللللللللللللâ°àلللجحخجحخللل⣢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢”àللللâa°ہàلللâًًٌٌٌٍللللللللللللللللâگàلللـفقـفقلللâ’àللللâàللل⢢¢¢¢¢¢¢¢¢¢¢“ہگfàلللللللللللللللâ گ ًٌٌٍ£ًٌٌٍ’ذرررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررلللللâ°ہàلللâ’vàلللللللللللللللâہ° ¤¢¢¢¢”àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللللرررررررررررررررز”ذررررررللللللللللللللللâàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàللللللللللللللللللللجحخجحخلللللللللللللللللللللللâàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâ°àللللللللللللللللللللـفقـفقللللللللللللللللللللللللرررررررررررررررررررررررررررررررررررررررررررررررررررررلللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaہàللللٌٌٌٌللللللللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàلللâàلللللللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàلللâًٌٌٌٌٌٌٌٌٌٌٍگگًٌٌٌٌٌٌٌٌٌللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللللررررررررررررررررررررررررررررررررلللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللررررررررررررررررل |000000000011235679:;;<=>??????2678899:;<=====>>>?????????????000000000000000000000000000000`؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛ ‰0‰·ڈ€ڈگڈگڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈَ `pfhkmoooooooooooooooooooooooooہہددإئئئاااببةةةةةتتتتتححححخخخ‚ … ˆ ٹچژڈڈژژژچچڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈëèéèةçھèŒéˆé¦é¦ê¶ïïïïïïïïïïïïïïïïïïïïٹچژڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈ€ڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈذ€ر€ر€زگزگسگس ش ص°ص°ض°ض°×°×°×ہطہظہظہعذعذعذغذغàغàـàفàفàقàقàكàsشسزذذذرززسششسسززررزسشششسزررزشكققققفففففففففففففــغغععظط×ضشذكqrrssstttuuvvwwxyyyz{{{||~~~2^]\[ZYXWV_____________________D_________VWXYZ[\]^____________C12334567789:;<<<<==>??????????     ±5789????9:;<=?????<<=??>>>>>>?                 4‌››ک‘ںںںںںںںں ں ” –™›‌ںںںںںںںںںںں      ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯  ‍‍‌‌œ››ڑ™کW W ™‌‍‍ںںںںںںںںںںںںںںppppppppppppppppppppppppppppppvû ‹@« ù ‰@© ÷ ‡@§ ِ †@¦ ، ، ، ، ، ، ، 0،،، ، ،،، ، 0،ءءءءءءء0ء` `` ` `0@ @ ` @fپ0 خV>ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھ™™ ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھڑ™»» ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھڑ °°»» ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھ™ ° »»°   ھ   ھ   ھ   ھ   ھ   ھ   ھ   ھ    ڑ™ »° »PPPUUPPPUUPUUUPUPPUUUU°°»»PUPPefPPPefPeVVePeVPPPUfVe »°» PUUPUPPPUPPPPPPP`UP »» PeUPe`UePePUePPUePPVUP°» PVPUUVPUUPeVPPeV`UePUeP```ff``ff`````f`f`     î îî  àî   à  àîîUUPPPUUPUUPUPPPUUPUUUîîîVePPPefPefPPeVPPPPefPeVPUfààîîîPPUUPUPUPPPPUUPUPP`UààîîîPPeVPePePPPPUUPePUeVUàààîàPPPPUUPPUU`UePeUPUUPeVPUeààîà````ff``fff`f`ff```fîîàîîààîîîà  ààîîîà îîîî îîîî àîîîîà ààîîîà  àîîî   àî  ààà  à    àà àà ™ a‘àà à گ /  ، ژ ًô  –  à  OO  ©©   ژ   ô         îî™ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™™™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™"گ™™™™™™™™™™™™™™™™™™™™™™™™™™™ " ™™™™™™™™™™™™™™™™™™™™™™™™™™™ ©™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ""™™™™™™™™™™™™™™™™™™™™™™™™™™™™"(گ™™™™™™™™™™™™™™™™™™™™™™™™™™™€ˆˆ ™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆگ™™™™™™™™™™™™™™™™™™™™™™™™™™™€گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™©ڑڑ™ھ©ڑ™ھ©ڑ™™™™™™™™™™™™™™™™گ©ھڑھھھھھھھھ™™™™™™™™™™™™™™™™™©ھھھھھھھھھھ™™™™™™™™™™™™™™™™™©ھھھھھھھھھھ™™™™™™™™™™™™™™™™™ھھھھھھھھھھھ™™™™™™™™™™™™™™™™ ©ھھھھھھھھھھ™™™™™™™™™™™™™™™™گ©ھھھھھھھھھھ™™™™™™™™™™™™™™™™™ ھھ ھ   ھ  ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™""DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ™™™™™™™™™™™™™™™ گ™™™™™™™™™™™™™™™ گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™گ ™™ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™™™™™™™™™™™™™™™™™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™™™™ ™™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ DD ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ©™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™©ڑ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™  ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™,0?<ف7E‰VTŒعےFKŒض®خےmےھn‘›E\]AےجذےےےŒے›ےà‘´ƒï*ےےےےےےےے2Tvک؛ـ‏ïح«‰gE#2Tvک؛ـ‏2Tvک؛ـ‏T§ـ‏ےïï½؛ثيےïح›heeeeeeeeeeeeeeeeCD#2U4e&TVBvS%4#Deyک™»‰ge‡ک™™ت«wصDf_xہtw{k¶؛h3çU°·« ہ<جŒبففففففحججŒـجأججج¥¼yfU‡کVDDD43"ھھھھjfffضفف! گ™  ""گ™ گ """" گ™  """"3333CDD4C@4C4C4C4CDD433333333£ھھ:£ :£:£:£:£ھھ:33333333sww7s»{7s»»7s»»7s»»7sww73333™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ة™™™ج™™ة¬™™جڑ™ةœ™™جڑ™ة¬™™جڑ™™¬™™™ڑ™™™™™™™™™™™330003003333000300331331303303ààààîîààààîîîîààààààîîîîààààîîàîîîàîàîàîààîîلîîîàîàîàîàîîàîîîàîàîàîààîî™™™™™™™™™™™™™™™™™™™™ججججتججج©ھھھ™™™™™™™™™™™™™™™™™™™ةججججججججھھھھ™ة¬™™جڑ™ة¬™™جڑ™™¬™™™ججججججججھھھھ™™™™™™™™™™™™™™™™™™™™ججججججج¬ھھھڑDD@@@@@DDDD@@@@@DDADAD@D@DàîàîàîîààààààààîîîîàààîîàààîîààààîîDD@@@@DD@DDD@D@D@D@@DDppàçîwîîàpîîpîîàçîwîîàîîîîpçîçîî~îîîîçîîwîîîîîîîàîîîîwww~çîîàççwwçw~çàîîàîîîîîççççwwçîw~çîîîîîîîîîàîîîî33000003333000003313130303àîîîîàîîàîîàîîàîîàîîîîîîàîîîîîîîîîîîîîîîîîîàîîîîUPeVPPPUUPeV``PUPeVPUePeVPUe`fUPeVP`PP`UefPUPeVPPPPPUe`fPUUPefPUPePUU`ffPUUPefPUPeP`UUPefPUPV`UUffPPPPPUUPeVPP``UUVePPUUffPUU`fUUPU`UefPPPePUPePV``PPPPPUU`ffPUPUUPUUPVVP`P``ہ ججججت     ہج ججججججججججججتج   PPPUPPUUPeUPV``UPeVPPPP`UefPUPeVPPPUePe`UPeVPPPP`UefV`PUPeVPPPUePeV``UUPUf`UVUPUe`fUUVePPP`PPPPPPPP`UefPPPPPP`UeV`PPPPPPUUPUUPeU`fPPPP`UePeVPP``UPUPUUVeP`PUU`VeUPePUU`ffذ ذ ذذ ففذ ذ ذ ذ ففففذ ذ ذ ذ ذذ فف     ھ     ھ ھ   ھ    ھ ھ  UUV`UVPPUUffUUUUUUfffPUeeVPUU`fVeہججج جج جج ہج                        ھھ  "  *   " "   ھ       ھ ھ  ھھ       ھ    UUfUPe`P`UUfVPUUfUUffUUfVU`ePUUUVff` ذàààà ذ ذîîààààîî ذ îîذàààààà îîذ                          ھ   ھ" *   " "       ھ   ھ      ھ  ھھ       ھ UUUfUf ذàîîàà ذ ذîîààààààààîî ذ îîذàîàààîîàààîààà îîذ ذàîîîîà ذ ذîîàîîàîîàîîàîîîî ذ îîذàîîîîîîîîîîîîîîîîîîàîî îîذ»»»»°»»°»»°»»»»»»»»»»»»»»»»»»°»»°»»°»»»»»»±»»»±»±»°±»°±»°±»±»»»±»»»»»»»»»»»»»»»»»»»»ˆˆˆˆˆˆ™™™گ™™™™™™™™™™™گ™™™گ™™™™©ڑڑ™©ھھگ™™ ™™™™™™™™™™™ ™™™ ™™™™™ڑ™™ھھڑ àژàژ àژàژ3333»°»»»»»»» »»»»»»»»»»»»»»»»°»»»»»»» »»»»»»»±»»»±°±»»±»±» ±»»±»»»±»»»»»»  °» ° °» °»»»»»»»00ww@tw4C4D@03w7wD@3@CD "0"ˆ0wˆ@tx4C4D@"(‚0ˆ3w7wD@3@CDگ™ھھگ©ھھ™©ھھ™™ھھگ™ھھ™™ھھ™©ھھگ©ھھھھڑ™ھھ™™ھھ™™ھھڑ ھھ™™ھھڑ ھھڑ ھھ™™™گ ™گ 33333333»»»»»» °»» ° ° »»»»»»»»»»»»»»»»» °»» ° ° »»»±»»»±»»»±»°»»° ° »±»±»»»»»»»»» °»» °»° °»»»جج ججججہججج ججججہججج ججججہجہججہ ہج ہ ہ îîللîîîàîîàîîàللàîîàلل/ًôOOô/ًôOOôDDDDججج ج ج ججججج ج ج ججججج ج ج جججججججججججہ ہ جہہ ہججججہ ہ جہہ ہججججء ء جہء ہججہج ججہ ج ہج îîîîîîîîîîîîîللîîîîîîîللîîîîîa‘،–©©a‘،–©©DDDDDDDDˆˆˆˆ ‚ ‚ ‚ ‚ ‚ (ˆ‚( ‚ ˆˆˆˆ‚ ‚ ‚ ‚ ‚ ˆ‚(ˆ‚ ˆˆˆˆ‚ ‚‚ ‚‚ ‚‚ ‚‚ ‚‚(ˆ‚‚ ‚™ ™™™™™™™™™گ™™™ھ™™™©™™™™™™™™™™™ گ ™ھ™™™™™™™™™™™™™™™™™™™™™™™™™™™گ ™™™™ ™™™™™™™™™™™ ™™™ ™™™ ™™™™ˆˆˆˆˆ€€€€€€€ˆˆˆˆˆˆˆˆ ‚ ‚ ‚ ‚ (ˆ‚( ‚ ‚ ‚ ‚ ‚ ‚ ‚ ˆ‚(ˆ‚ ‚ ‚ ‚ ‚‚ ‚‚ ‚‚ ‚‚(ˆ‚‚ ‚‚ ‚‚ ‚™™™™™™™™™™™™گ™™™ ™™™گ™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™ ™™™™™™™™™™™™™™™ ™™™ ™™™ ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆججج ججج ججججج ججج ججججج ججج جججججججججج™©ڑڑگ©ھڑ™©ھھ™©ھھ™ھھھ ©ھھگ©ھھ™ ھھ™ھ©ڑھھھھھھھھھھھھھھھھھھھھھھھھ ھ  ©ھڑ ھھڑ ھھ™ ھھ™™ھھڑ™ھھڑ ھھ™  ڑ™™ھ©ڑھھھھھھھھھھھھھھھھھھھھھھھھھھھھˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ€ˆˆ€ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆجج جججججج جج جججججج جج جججججج جججججججج"興ˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ€ˆ """(€ˆˆˆˆ€ˆˆ€€€ˆˆ€€€€ˆˆ€ˆˆˆ€€€€ˆˆ€€€€ˆ€ˆˆ€€€€ˆˆ€€€€ˆ€ˆˆ€ˆˆˆˆ€€€€ˆˆ€€ˆˆˆˆˆˆˆˆˆ€ˆˆˆˆˆˆˆˆˆˆˆ€€ˆˆ€ˆˆˆˆˆˆˆ€€ˆ€ˆˆˆˆˆˆ€€€€€ˆˆˆˆˆˆ€€°° ° €€ˆˆ€€€€ˆ€ˆˆ€ˆ€€€€ˆ€ˆˆˆ€€€€ˆˆˆ€€€€€€° »» »»»»° °°»°»°»»»» » ° »» »»»»° °°»°»°»»»» » ° »» »»»»° °°»°»°»»»» » °»°»°»°»» » جہجہجہججہجہہ ججج ج جہج جUUUUUUUUUUPUUPUUPUPPUUUUUUUUUPUPUPUPUUUUUUUUUUUUUPUUPUUPUUجہجہجہججہجہ جججججج ججہجہججہہججہ جججججج جہجہجہجہہجہج ہہجہ جججججج جہجہجہججہہجج ہ جججججججج ہ ہہ ججہہ UUUUUUPUUUUUUUUUUUUUUUPUPUUPUPUUPUUPUPPPPPPPUPUPUPUPUPUPUUPUUہہہ ججہہ ہہہ ج ججہہ ہہہ ہہ ج ج ہہ ہہہ ججہہ UUUUUUUUPUUUUPUUUUUPUPUUUPUPUPPUPPUPUUPUPUUUUUUUUUUUPUجہجہجہججہج جججججج جہجہجہججہ ججججججہجہجہججہجہ جججججج جہججججججججججججUUUUPUUPUPUUUUUUUUUUPPPUUUUUUUPUUPUPUPUUPUUPUPPPPPPUUUPUUUPPPPUUUPUUUہہہہ جججہہ جہہہ ج ججہہ ہہ ہہجہہ ہہ™™گ™™ گ گ گ©© گ™™ گڑ© © گ ™™™ گ ڑ™™™™  گ   گ  ààààà€€ہ ہ ذ ذ ذذ ذ  ھھ ڑ™™© گ گ گ گڑ™™©ھھڑ© ھھ °° ° ° » گ™™ گ گ‘ گ‘ گ گ گ™™ گگ  ھھ ڑ™™©گ ‘‘‘ڑ™™©ھھڑ© ، ° »»°» »»»»° °°»° »°»°»»»» » »»°» »»°» °»°°»°»°»»»» » ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ€ˆ """(€ˆˆˆˆ€ˆˆˆˆˆˆ """ ˆˆˆˆˆˆ """ ˆˆˆˆˆˆ """ ˆˆˆˆˆˆ ˆˆˆˆ€ˆˆˆˆ€ˆˆˆˆˆˆ ˆˆˆˆ€ˆˆˆˆ€ˆˆˆˆˆˆ ˆˆˆˆ€ˆˆˆˆ€ˆˆˆˆˆˆ€ˆ ˆˆˆˆ€ˆˆˆˆ€€€ˆ€€€ˆˆ€€€ˆ€€€ہججہججہججہججہججہججہججہججججججججججججججججججججججججججہجہ ہ ہ ہجہج ہجہ ہجججججججہجہ جہججج€€€€€€€€€€ˆ€€ˆ€ہججہججہججہججہججہججہججہججججججججججججججججججججججججججہہ ہہ ہج ہجہہجہہجہہجہہجہجججج جج ہججہججہججہججہجààîààîà$€لٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلâàâà⣢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“?3674Nàâ’9DID4;=7’àâ’ذررررررررررررررررررررررررررررررررررررررررررررررررز’گKm5GD5D6;>7àâa’àللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللâ’°°°°°àâa’àلâàللللللللللâ’گ=3L3;;5D67àâ’àلâہہàللللللللللâ’aàâ¤àلâ  aàللللللللللâ’°گ?3=;?39DG=Nàâàلâہaiiiiiàللللللللللâ’àâàلâaہYZZYYYZàللللللللللâ’HE75;3>I:3C=HIDàâàلâB YZZYiYZàللللللللللâ’aaaàâàلâہ YZZYYYZàللللللللللâ’ہ6GDE]C3?7àâàلâہiYZYYijàللللللللللâڑ›’àâàلâہaayijiiyzًٌٌٌٌٌٌٌلللâ’aàâàلâyzyyzàلللررررررررررررررررررررررررررررررررررز’àâàل⣢¢¢¢¢“àللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌللâ¤ذرررررررررزàâذرررررررررررررررررررررررررلللررررررررررررررررررررررررررررز¤ذررز’àلللللللللللللâàللجحخجحخللللللللللâàâàلللللللللللللللللللللللللللللللللللللللللللللللللللللللللجحخجحخلللâ’àلللللللللللللâ4;=7;HL;Càللـفقـفقلللللللللللررررررررررررررررررررررررررررررزàâàلللللللللللللللللللللللللللللللللللللللللللللللللللللللللـفقـفقلللâ’aàلللللللللللللâàللجحخجحخلللللللللللللللللللللللللللللللللللللللللâàâàلللللللللللللللللللللللللللللللللللللللللللللللللللللللللجحخجحخلللâ’àلللللللللللللâdگًللـفقـفقللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللللللâaaàâàلللللللللللللللللللللللللللللللللللللللللللللللللللللللللـفقـفقلللâ’àلللللللللللللâگ ٌٍàللللâttttttttttttàللللللللللللللâaàâaàلللللللللللللللللللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàللâ’àللللللللللللللگdسشàللللâàللللللللللللللâàâàللللللللللللللللللللللللللللللâaàللâ’àللللللللللللللررزگمنàللٌٌٍ°°°ذرزfàللللللللللللللâàâàلللللللللللللللللللللللللللللل⣢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“àللâ¤àللللللللللللللللâگdذررررللâàلâàلللللللللللللللرررررررررررررررزàâàللللللللللللللللللللللللللللللâ¤ذررررررررررررررز’ذرررررررلللâàللللللللللللللللâگذرررزàللللللâ1°°f°àلâtًٌٌٌٌٌٌللللللللللللللللللللللللâàâàلللللللللللللللللللللللللللللللجحخجحخلللللللللللللللâ’àلللللللللللررررلللللللللللللللللâذلللللزًٌٌٌٌللâàلâàلللللللللللللللللللللللâàâàلللللللللللللللللللللللللللللللـفقـفقلللللللللللللللâ’àللللللللللللللللللللللللللللللللâذللٌٌٌللزàللررز°°àلâàلللللللللللللللللللللللâàâàلللللللللللللللللللللللللللللللجحخجحخلللللللللللللللâ’àللللللللللللللللللللللللللللللللâ!àلâàللزhàللللâ°°àلâسشذرزًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللâàâàلللللللللللللللللللللللللللللللـفقـفقلللللللللللللللâ’àللللللللللللللللللللللللللللللللâhàلâ£àلللررزàللللâ°àلâمنàلâ0àللâàâàلللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàللللللللٌٌٌٌٌٌٍ’àلللللللللللٌٌٌٌٌللللللللللللللللâdذررلل⤓àللللللجحخجحخلللللâ°°0àللجحخجحخلللtàللâàâaàللللللللللللللâàلللللللâ’àللللللللللâàلللللللللللللللâàللللâ’àللللللـفقـفقلللللâàللـفقـفقلللeàللâaaàâàلللللللللللللل⣢¢¢¢¢¢¢¢¢¢¢“àلللللللâ’àللللللللللâàلللللللللللللللâًٌلللâ°’°àللللللجحخجحخللللللرررررررررررلللجحخجحخلللررررررررررررررررررزàللâàâàللللللللللللللâ’ذررررررز”àلللللللâ’àللللللللللâaàلللللللللللللللâàللâہ’ہàللللللـفقـفقللللللللللللللللللللـفقـفقلللللللللللللللللللللâ0àللâàâàللللللللللللللâ’àلللللللجحخجحخللللللللâa’ًٌٌٌٌٌٌٌٌٌٌٍaàلللللللللللللللâdàللâ’àلللللâ“ٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ£ًللللللللللللللللللللâàللâàâàللللللللللللللâ’àلللللللـفقـفقللللللللâ’àلللللللللللللللâàللâ°’°ًٌٌٌٌٌٍ’¤¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“àلâàللâàâàللللللللللللللâ’àلللللللجحخجحخلللللللل⤢¢¢¢¢¢¢¢¢¢¢¢¢¢àللللللللللللللللزàللâ’’dddd’àلâàللâàâàللللللللللللللâ’àلللللللـفقـفقلللللللللررررررررررررررررررررررررررللللللللللللللللللجحخجحخللل⤢¢¢¢¢¢¢¢”HD?7I;?7H8>DL7GHdddd’àلâàللâàâàللللللللللللللâ’àللللللâًٌٌٌٌٌٌٌلللللللللللللللللللللللللللللللللللللللللللللـفقـفقلللâ>DH7I:7;GG:NI:?ذرررزdddd’àللجحخجحخلللâàâàللللللللللللللâ’àللللللâàللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللللجحخجحخللللررررررررررررزذرزàلللâdddd’àللـفقـفقلللâàâaàللللللللللللللâ’àللللللâàلللللâàللللللللللللـفقـفقلللللللللللللللللجحخجحخللâ7K7GNDC7?3=7Hàلللâdddd’àللجحخجحخلللâaàâaàللللللللللللللâ’àلللللللررررررزàلللللâہہہàلللٌٌٌٌٌٌٌٌٍ£¢ًٌٌٌٌٌٌٌٌٌٌللللللـفقـفقللâ?;HI3=7Hàللل⨒àللـفقـفقلللâàâàللللللللللللللâ’àلللللللللللللâaàلللللâQPàللâ’àلللللجحخجحخللâàلللâ’àلâ£àللâaàâàللللللللللللللâ’àلللللللللللللâàلللللâYZYZYZYZYZàللâd ’گàلللللـفقـفقللâ6DC[I>àلللâ’àلâذررلللâaàâàلللللللللللللللررررررررللللللللللللللللللâàلللللâpàللâ½ذررررررررزگگàل⣢¢¢¢”àلâàلللâddddd’àلâàلللللâdddddddàâàلللللللللللللللللللللللللللللللللللللللللâàلللللâہہہàللâ  àلل للâàلâ’àلâàللل−àلâàلللللâdddddàâàلللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌللللللâàلللللâàللâ­àللللâàلâ’àلâ àلللâ’àلâàلللللâddàâàللللللللللللللâàلللللâàللللللررررررررررررزppàللâ  àللللللللâگگàلâ’àلâàلللâ’àلâàلللللâddaàâàللللللللللللللâàلللللâàللللللللللللللللللâàللâ¹àللللللللâàلâ’àلâàللل↖¦’àلâàلللللâddddàâaàللللللللللللللâ°°(àلللللâàللللللللللللللللللâàللâًٌٌٌٌٌٌٌٌٍàل⤢¢¢¢“àلâ"àلللâ’àلâfàلللللâddddàâàللللللللللللللâ&àلللللâàللللللللللللللللللâàللâddàلâ   ’àلâàللل⢢¢¢¢¢¢¢¢¢”àلâàلللللâdddddaàâàللللللللللللللâàلللللâàللللللللللللللللللâYZYZYZàللâàلâ’àلâàللللرررررررررررررررللâàلٌٌٌٌٍdddàâàللللللللللللللâàلللللâàللللللللللللللللللâijijijàللâdàلâ’àللررررزذرررررررللللللللللللللللللللللâàâàâàللللللللللللللâYYYYYYYYYYàلللللâàللللللللللللللللللâyzyzyzàللâdàلâ   ’àلللللللجحخجحخلللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàâآآآآآآآآ³aàâàللللللللللللللâYYYYàلللللâàللللللللٌٌٌٌٌٌٌٌٌٌٍàللâddàل⣢¢¢¢”àلللللللـفقـفقللللللللâàâJH7>7HH²àâàللللللللللللللâY°Yàلللللâàلللللللâàللâذررررررررررللâ’àلللللللجحخجحخللللللللâسشgd0eàâH7II;C9H²aàâaàللللللللللللللâ/YYYàلللللâàلللللللâYZYZYZàللâàللللللللللللâ’Qàلللللللـفقـفقللللللللâمنàâآآآآآآآآ´àâàللللللللللللللâYYàلللللâàلللللللâسشijijijذررررررللللررررررررزàللللللللللللâ’ہàللللٌٌٍ“àللللللللرررررررررررررررررررررزàâ\]4;I¢àâàللللللللللللللâY£¢¢¢“Yàلللللâàلللللللâمنyzyzyzàللللللللللللللللللâàللللللللللللâ’ہہàلللâ’àلللللللللللللللللللللللللللللâàâeàâàللللللللللللللâY’ذرز’Yàلللللâàلللللللâàلللللللللللللللللللجحخجحخللللللللللللل⤢¢¢¢“àلللâ”deًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàâH:3=7¢àâàللللللللللللللâYY°’àلâ’Yàلللللâàلللللللâذرررررررررللللللللللللللللللللـفقـفقلللللللللللللâگ’àلللâdeuàâàâàللللللللللللللâYY’àلâ’Yàلللللâàلللللللâàلللللللللللللللللللللللللللللجحخجحخلللللللللللللل’àلللâdeud0eàلرررررررررررررزàâàللللللللللللللâY’àلâ’Yàلللللâàللللللللجحخجحخللللللللللللللللللللللللللللللـفقـفقلللللللللللللâ’àلللâtuàللللللللللللللâL7>5D?7IDàâàللللللللللللللâY’àلâ’Yàلللللâàللللللللـفقـفقللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ£ًٌٌٌٌٌٌٌٌللللâگ’àلللâذررررررررررررررررررررررررررررررررررررلللللللللللللللâàâàللللللللللللللâ°Yسش’àلâ’àلللللâàللللللللجحخجحخلللللللللللللâ’àللل⣢¢¢¢”àللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللâژڈ3435=GDD?HàâàللللللللللللللâYمن’àلâ’°àلللللâàللللللللـفقـفقللللللللللللل⣢¢¢¢¢¢¢¢¢¢’àلللâ’àللللـفقـفقللللللللللللللللللللللللللللللٌٌٌٌللللللللللللللللللâ‍ںàâàللللللللللللللâY’àلâ’àلللللâàللللللل⢢¢¢¢“àللللللللللللâ’4DD?7G3C9l’àلللâ’سشgàللللجحخجحخلللللللللللللللللللللللللللللâàلللللللللللللللللâàâàللللللللللللللâ’àلâ”àللًٌٌٌٌٌٌٌٌٌٌٍٍ’ًٌٌٌٌٌٌٌٌللللâ’’àلللâ’منàللللـفقـفقلللللللللللللللللللللللللللللâ£àللللللللللللللللللرزàâàللللللللللللللâ’àللجحخجحخللâ’àلللâ’G7IJGC’àلللâ’àللٌٍ£ًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ’ًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌللâàâaàللللللللللللللâ)’àللـفقـفقللâ’àللل⤢¢¢¢¢¢¢¢¢¢¢”àللل⤢¢¢¢“àل⤢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢”§§àلâàâàللللللللللللللâ’àللجحخجحخللâijijijijijij’ہàلللâàلللâ   ’àلâàلâàâàللللللللللللللâ°”àللـفقـفقللâyzyzyzyzyzyz¢”àلللâ†گ °ہ–¦àلللâ’àلâdذررررزg0£àلâàâàللللللللللللللâàلâًٌٍijàلللâàلللâ’àلâdddàللللâdt’àلâàâàلللللللللللللللرررررررررررللâyzaàلللâْàلللâ   ’àلâسشًًٌٌٍٍd’àلâaàâàللللللللللللللللللللللللللللâijijijijijijہàلللâàللل⣢¢¢¢”àلâمن’àلâàâaàللللللللللللللللللللللللللللâyzyzyzyzyzyzàلللâأآآآآآآآآآآآآآآآآآآآ³àلللâ’àلâذررررز¦ذرررز’àلâàâaàللللللللللللللللللللللللللللâàلللâ²²àلللâ’àلâàللللâذررزàلللâ’ˆàلâàâàللللللللللللللللللللللللللللâذررزذررررررررررررررررررررررللللâ²L²àلللâ’àلâàللللâ¬àللâàلللâ’àلâàâàللللللللللللللللللللللللللللâàلللجحخجحخلللللللللللللللللللللللللللâ²3H6²ذرررللللâ’àللررررررزàللللâtàللâàللل⣢¢¢¢”ˆàلâàâàلللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٍسشàلللـفقـفقلللللللللللللللللللللللللللâ²^²àللللللل⢔àللللللللâàللللâذررررزًًٌٌٌٌٌٍٍ’àلâàâàللللللللللللللâمنàلللجحخجحخلللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌللللللâ²on_²àلللللللâ“ًٌٌٌٌٌلللâًٌٌٌٌٍàلللل⣢¢¢¢”àلâàâaàللللللللللللللâہہہàلللـفقـفقللللللâ-----àلللللâؤآآآآآآآآآآآآآآآآآآآ´àلللللللâ’àللâàللللâ’àلâàâàللللللللللللللâàللâ“ًٌٌٌٌٌٍàلللللâàلللللللâ’àللâuàللللâ02’tھàلâàâàلللللللللللللللرررررررررررررررررررررلللٍ¤“àلللللâàللللللللرررررزہ’ہگàللâ†àللللâd’ذررللâàâàلللللللللللللللللللللللللللللللللللللل⣔hhàلللللâdذررررلللللللللللللل⣔àللâdذرررللللل⤢¢¢“àللللâàâàللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلل⤓ fàلللللâàللللللللللللللللللâہ’ہگàللâ¬àللللللللâذرزذرز’àللللâàâàلللللللللللâàلâ¤àلللللâdeeàللٌٌٌٌٌٌٌٌٌٌٌٌٌٌلل⤓àللâًٌٌٌلللللâàلâ­àلâ’dàللللâaàâàلللللللللللâàلâ hàلللللâddگdàلâàلâہ’ہگàللâذز£¢¢¢¢¢¢¢“لللللâًٌٍ£¢¢¢¢¢“àلâ’àللللâaàâàلللللللللللâ*گ*àلâfhàلللللâe ddہàل⣢¢¢“£àلâ’àللâ¬àâ’’àللللâ’’àلâ’àللللâàâàلللللللللللâfàلâ àلللللâگگedàلâe’’’àللرز”ذلللâًٍ’’àللللâ’’ًٌٍ’àللللâaàâàلللللللللللâàلâàلللللâd°àلâ¤ذرز¤¢”àللللجحخجحخلللل⣢¢¢¢¢¢¢¢”’ًٌٌٌٌٍ£¢¢¢¢¢¢¢¢”¤¢¢¢”àللللâaàâàللللللللللل⢢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢“àلâذرررررررررزàلللللâd edگàللجحخجحخللâàللللـفقـفقللللâ’¤¢¢¢¢¢¢”dàللللâàâaàلللللللللللâ’àللجحخجحخللللللللللâàلللللâ°ہeàللـفقـفقللâdàللللجحخجحخللللâ’1àللللâàâàلللللللللللâ’àللـفقـفقللللللللللâàلللللâہa°dafddddàللجحخجحخللâàللللـفقـفقللللâ’dddàللللâàâàلللللللللللâگگ’àللجحخجحخللللللللللâhhàلللللâaàللـفقـفقللâ“àللٌٍàلللâ’d†ttàللللâàâàلللللللللللâ’àللـفقـفقللللللللللâàلللللâaہaہeہہًٌٍàلâ’àلâàلللâ’dtttàللللâàâàلللللللللللâff’ًٌٍ“ًٌٌٌٌٌٌٌٌٌٍàلللللâddàلâ’àلâàلللâ’ˆ†ھ¦ttttàللللâaàâàلللللللللللâگگ¤¢¢¢”àللللللررررررررررررزہaگ°ہdàلâ’àلâdàلللâ’dttttàللللâàâàلللللللللللâhàللللللللللللللللللâàلâ’àلâdًٌٌٌٍ’ddذرررررررررررررررررررررررررررررررللللللرررررررررررررررررررررزàâ“àلللللللللللâذرز  àللللللٌٌٌٌٌٌٌٌٌلللâذرررررررررررللâ’àلâ’àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâ’àلللللللللللâfàلâf)àلللللâàلللجحخجحخللللللللللللللâ’àلâ’àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâ’àلللللللللللâگگًٌٍàلللللâ6DC[Iaàلللـفقـفقلللللللللٌٌٌٌٌٍ’àلâddd¤“dàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàâ’àلللللللللللâ+fhàلللللâàلللجحخجحخللللللللâ’àل⤓dàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâ’EG7K;7LàلللللللللللâfàلللللâEG7HHGàلللـفقـفقللللللللâسشe’àلâd¤“àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâ’àلللللللللللâگذررررررررررررزذرررررررررررررللللللâaaàللل£ًٌٌٌٌٌٌٌٍمن’àل⤓àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàâ’àلللللللللللâàللللللللللللâàللللللللللللللللللللرررررررررلللâa’’àللرررررررررررز¤ذررررررررررررلللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàلز’ذررررررلللللللللللللرررررررررررررررررررررلللللللللللللâàللللللللللللللللللللللللللللللللâ’£“£“£“£“£“£“£“£“£”àللللللللللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàل⤢¢¢للللللللللللللللللللللللللللللللللللللللللللللللللللللâàلللللللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٍea¤”¤”¤”¤”¤”¤”¤”¤”¤”àللللللللللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللللللللللللللللللâàللللللللللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللللللللللللللللللâeaafذررررررررررلللللللللللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaaàللجحخجحخلللللللللللللللللللللللللللللللللللللللللللللللللللللللجحخجحخللللٌٌٌٌٌٌٌٌٌٌٌٌلللâaH::::mmmàلللللللللللللًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍلللللâàللـفقـفقلللللللللللللللللللللللللللللللللللللللللللللللللللللللـفقـفقلللâàللâہگگàللللللللللللâàللللâàلâàللللللللللللللللللللللللللللللللللللللللللللللللللللللجحخجحخلللâ£ہàللâ:7;HH>77E;C9àللللللللللللâàللللâàلâàللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌلللللللللللللللللللللللللللـفقـفقلللâ’àللâaeaàللللللللللللâàللللâàلâًٌٌٌٌٌٌٌٍ¨àلللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٍ£ًٌٌٍ’àللâہeaeaàللللللللللللâ3G7NDJG736N8DGI:75:3>>7C97kàللللâàلٍC7K7GIGJHIàلللللللللللل⤢¢¢¢¢”گàللâAàللللللللللللâàللللâàâdàللللللللللللâ°àللâa°°  aàللللللللللللâàللللâaàâƒI:78>DL7GHàللللللللللللâ°àللâہàللللللللللللâàللللâàâdپàللللللللللللâگ° àللâa°ہàلللللللللللللررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررزàللللâàâdfdfftfàللللللللللللâ àلللذررررررررررررررررررررررللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàللللâàâàللللللللللللâ àلللجحخجحخلللللللللللللللللللللللللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍàللللâàâھ¶hذرررررلللللللللللللâ سش گگگàلللـفقـفقللللٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍ£¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢àللللâàâpàللللللللللللللللللâمنàلللجحخجحخللل⣢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢”àللللâaàâًٌٌللللللللللللللللâگàلللـفقـفقلللâ’àللللâà⢢¢¢¢¢¢¢¢¢¢¢“gàلللللللللللللللâ گ ًٌٌٍ£ًٌٌٍ’ذرررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررررلللللâàâ’àلللللللللللللللâہ° ¤¢¢¢¢”àللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâذرررررررررررررررز”ذررررررللللللللللللللللâàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâaàâàللللللللللللللللجحخجحخلللللللللللللللللللللللâàللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâàللللللللللللللللـفقـفقللللللللللللللللللللللللرررررررررررررررررررررررررررررررررررررررررررررررررررررلللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâًٌٌٌٌللللللللللللجحخجحخللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâàلللللللللللـفقـفقللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàâًًٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٌٍللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللâàلرررررررررررررررررررررررررررررررررررلللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللللررررررررررررررررل)|000000000011235679:;;<=>??????2678899:;<=====>>>?????????????000000000000000000000000000000`؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛؛ ‰0‰·ڈ€ڈگڈگڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈَ `pfhkmoooooooooooooooooooooooooہہددإئئئاااببةةةةةتتتتتححححخخخ‚ … ˆ ٹچژڈڈژژژچچڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈëèéèةçھèŒéˆé¦é¦ê¶ïïïïïïïïïïïïïïïïïïïïٹچژڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈ€ڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈڈذ€ر€ر€زگزگسگس ش ص°ص°ض°ض°×°×°×ہطہظہظہعذعذعذغذغàغàـàفàفàقàقàكàsشسزذذذرززسششسسززررزسشششسزررزشكققققفففففففففففففــغغععظط×ضشذكqrrssstttuuvvwwxyyyz{{{||~~~2^]\[ZYXWV_____________________D_________VWXYZ[\]^____________C    ±5789????9:;<=?????<<=??>>>>>>?                 4‌››ک‘ںںںںںںںں ں ” –™›‌ںںںںںںںںںںں      ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯  ‍‍‌‌œ››ڑ™کW W ™‌‍‍ںںںںںںںںںںںںںںpppppppppppppppppppppppppppppp/vû ‹@« ù ‰@© ÷ ‡@§ ِ †@¦ ، ، ، ، ، ، ، 0،،، ، ،،، ، 0،ءءءءءءء0ء` `` ` `0@ @ ` @.fپ0 خ2V>ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھ™™ ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھڑ™»» ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھڑ °°»» ھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھھ™ ° »»°   ھ   ھ   ھ   ھ   ھ   ھ   ھ   ھ    ڑ™ »° »PPPUUPPPUUPUUUPUPPUUUU°°»»PUPPefPPPefPeVVePeVPPPUfVe »°» PUUPUPPPUPPPPPPP`UP »» PeUPe`UePePUePPUePPVUP°» PVPUUVPUUPeVPPeV`UePUeP```ff``ff`````f`f`     î îî  àî   à  àîîUUPPPUUPUUPUPPPUUPUUUîîîVePPPefPefPPeVPPPPefPeVPUfààîîîPPUUPUPUPPPPUUPUPP`UààîîîPPeVPePePPPPUUPePUeVUàààîàPPPPUUPPUU`UePeUPUUPeVPUeààîà````ff``fff`f`ff```fîîàîîààîîîà  ààîîîà îîîî îîîî àîîîîà ààîîîà  àîîî   àî  ààà  à    àà àà ™ a‘àà à گ /  ، ژ ًô  –  à  OO  ©©   ژ   ô         îî™ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™™™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™"گ™™™™™™™™™™™™™™™™™™™™™™™™™™™ " ™™™™™™™™™™™™™™™™™™™™™™™™™™™ ©™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ""™™™™™™™™™™™™™™™™™™™™™™™™™™™™"(گ™™™™™™™™™™™™™™™™™™™™™™™™™™™€ˆˆ ™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆگ™™™™™™™™™™™™™™™™™™™™™™™™™™™€گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™©ڑڑ™ھ©ڑ™ھ©ڑ™™™™™™™™™™™™™™™™گ©ھڑھھھھھھھھ™™™™™™™™™™™™™™™™™©ھھھھھھھھھھ™™™™™™™™™™™™™™™™™©ھھھھھھھھھھ™™™™™™™™™™™™™™™™™ھھھھھھھھھھھ™™™™™™™™™™™™™™™™ ©ھھھھھھھھھھ™™™™™™™™™™™™™™™™گ©ھھھھھھھھھھ™™™™™™™™™™™™™™™™™ ھھ ھ   ھ  ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™""DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ™™™™™™™™™™™™™™™ گ™™™™™™™™™™™™™™™ گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™گ ™™ ™ گ ™ گ ™ گ ™ گ ™ گ ™ گ ™™™™™™™™™™™™™™™™™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™™™™ ™™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™ھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ DD ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ©™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™©ڑ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ھھ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™  ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚(ˆ‚™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™گ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ ‚ ‚ ‚ ‚(€(€(€(€™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™™e-- title: BOOMERANG 2: RETURN -- author: V. Crocodile -- desc: A little game about killing flowers. -- script: lua C0 = 0 -- ذ؟ر€ذ¾ذ·ر€ذ°ر‡ذ½ر‹ذ¹ ر†ذ²ذµر‚ -- Heap.lua Heap = {} Heap.Node = {} function Heap.Node:new(key) local obj = { key = key, i = nil } setmetatable(obj, self) self.__index = self return obj end function Heap.Node:write() io.write("Node\tkey="..self.key.."\ti="..self.i.."\n") end -- function Heap.compare(node1, node2) -- return node1.key > node2.key -- end function Heap:new(content) local obj = { tree = content, size = #content + 1, compare = function(node1, node2) return node1.key > node2.key; end, } setmetatable(obj, self) self.__index = self return obj end function Heap:buildHeap() for i, node in ipairs(self.tree) do node.i = i -- رƒرپر‚ذ°ذ½ذ¾ذ²ذ»ذµذ½ذ¸ذµ ذ½ذ°ر‡ذ°ذ»رŒذ½ر‹ر… ذ¸ذ½ذ´ذµذ؛رپذ¾ذ² end for i = self.size // 2, 1, -1 do self:heapify(i) end end function Heap:heapify(i) local left = 2 * i local right = 2 * i + 1 local largest = i if left < self.size and not self.compare(self.tree[left], self.tree[largest]) then largest = left end if right < self.size and not self.compare(self.tree[right], self.tree[largest]) then largest = right end if largest == i then return end local swapVar = self.tree[largest] self.tree[largest] = self.tree[i] self.tree[i] = swapVar self.tree[i].i = i; self.tree[largest].i = largest; self:heapify(largest) end function Heap:push(node) self.tree[self.size] = node self.size = self.size + 1; node.i = self.size - 1 self:increaseKey(node.i, node.key); end function Heap:increaseKey(i, key) self.tree[i].key = key -- io.write(self.tree[i].key.." ") while i > 1 and not self.compare(self.tree[i], self.tree[i // 2]) do -- while i > 0 and not (self.tree[i].key > self.tree[i // 2].key) do local swapVar = self.tree[i] self.tree[i] = self.tree[i // 2] self.tree[i // 2] = swapVar self.tree[i].i = i; self.tree[i//2].i = i//2; i = i // 2 end end function Heap:pull() local res = self.tree[1]; self.size = self.size - 1; self.tree[1] = self.tree[self.size]; table.remove(self.tree, nil) -- remove last element self:heapify(1); return res.key; end function Heap:print() for i, e in ipairs(self.tree) do e:write() end io.write("\n") end function Heap:empty() return #self.tree == 0; end --[[ -- ذ،رپر‹ذ»ذ¾ر‡ذ½ذ°رڈ رپر‚ر€رƒذ؛ر‚رƒر€ذ° ر€ذ°ذ±ذ¾ر‚ذ°ذµر‚. ذ’ذ¾ر‚ ذ؟ر€رƒر„ر‹: node1 = Heap.Node:new(1) node2 = Heap.Node:new(2) node3 = Heap.Node:new(3) t = {node1, node2, node3} print(t[1].key .." ".. t[2].key) tmp = t[1] t[1] = t[2] t[2] = tmp print(t[1].key .." ".. t[2].key) t[2].key = 5 print(node1.key .." ".. node2.key) --]] --[[ -- ذ‍ر‚ذ»ذ°ذ´ذ؛ذ° node = Heap.Node:new(70) h = Heap:new{Heap.Node:new(1), Heap.Node:new(2), Heap.Node:new(4), Heap.Node:new(-5), Heap.Node:new(6), Heap.Node:new(8), Heap.Node:new(9), node } h:buildHeap() h:print() io.write(h:pull().."\n") io.write(h:pull().."\n") io.write(h:pull().."\n") io.write(h:pull().."\n") io.write(h:pull().."\n") h:push(Heap.Node:new(-48)) h:push(Heap.Node:new(8)) h:push(Heap.Node:new(4)) h:push(Heap.Node:new(50)) h:push(Heap.Node:new(23)) h:print() h:increaseKey(node.i, 2) h:print() --]] -- Aim.lua aim = {} function aim.compute(x, y, fx, fy, v) if fx == x then fx = fx + 0.0000001 end local d = math.abs(fy - y) / math.abs(fx - x) local dx = v / math.sqrt(1 + d*d) local dy = dx * d local kx = 1 local ky = 1 if fx < x then kx = -1 end if fy < y then ky = -1 end if math.sq_distance(x, y, fx, fy) < math.sq_distance(x + kx*dx, y + ky*dy, fx, fy) then trace(kx * dx) trace(ky * dy) end return {x = kx * dx, y = ky * dy} end function aim.get_random_point_of_the_screen_border() local ball = math.random(0, 240*2 + 136*2 - 5) if ball < 239 then return {x = ball, y = 0} end ball = ball - 239 if ball < 135 then return {x = 239, y = ball} end ball = ball - 135 if ball < 239 then return {x = 239 - ball, y = 135} end ball = ball - 239 return {x = 0, y = 135 - ball} end function aim.get_random_point_of_the_screen_border(a,b) local ball = math.random(a,b) if ball < 239 then return {x = ball, y = 0} end ball = ball - 239 if ball < 135 then return {x = 239, y = ball} end ball = ball - 135 if ball < 239 then return {x = 239 - ball, y = 135} end ball = ball - 239 return {x = 0, y = 135 - ball} end function aim.bfs(startPos) local steps = { {x = 0, y = 1}, {x = 0, y =-1}, {x = 1, y =-1}, {x = 1, y = 0}, {x = 1, y = 1}, {x =-1, y =-1}, {x =-1, y = 0}, {x =-1, y = 1}, } local px = self.x // 8 local py = self.y // 8 local queue = Queue:new() queue:enqueue({x = startPos.x, y = startPos.y, path = { {x = startPos.x, y = startPos.y} }}) local visited = {} for x = 0, 239 do visited[x] = {} end while queue:count() > 0 do local cur = queue:dequeue() for _, step in ipairs(steps) do local x = cur.x + step.x local y = cur.y + step.y if (x < 0) or (x > 240) then break end if (y < 0) or (y > 135) then break end if (x == px) and (y == py) then trace('I chased you ًں¤—'..' '..x..' '..y..' !!') -- ًں¤— table.insert(cur.path, {x = x, y = y}) return cur.path elseif not visited[x][y] then --ًں¤— local newPath = table.copy(cur.path) table.insert(newPath, {x = x, y = y}) queue:enqueue({x = x, y = y, path = newPath}) visited[x][y] = true end end end error("findn't the way") end function aim.visualizePath(path) if path then for _, tile in ipairs(path) do rect(8 * tile.x - gm.x*8 + gm.sx, 8 * tile.y - gm.y*8 + gm.sy, 8, 8, 7) end end end function aim.bfsMapAdaptedV2x2(startPos) local steps = { {x = 0, y = 1}, {x = 0, y =-1}, {x = 1, y =-1}, {x = 1, y = 0}, {x = 1, y = 1}, {x =-1, y =-1}, {x =-1, y = 0}, {x =-1, y = 1}, } local px = game.player.hitbox:get_center().x // 8 local py = game.player.hitbox:get_center().y // 8 local queue = Queue:new() queue:enqueue({x = startPos.x, y = startPos.y, path = { {x = startPos.x, y = startPos.y} }}) local visited = {} for x = 0, 239 do visited[x] = {} end while queue:count() > 0 do local cur = queue:dequeue() for _, step in ipairs(steps) do local x = cur.x + step.x local y = cur.y + step.y if (x < 0) or (x > 240 - 1) then break end if (y < 0) or (y > 135 - 1) then break end if gm.isBlockingBfs(x, y) then --ذ´ذ²ذµر€ذ¸ ذ½ذµ ر‚ذ²ذµر€ذ´ر‹ذµ ًں™ˆ ذ؟ذ¾ر‚ذ¾ذ¼رƒ ر‡ر‚ذ¾ ذ½ذ° ذ؛ذ°ر€ر‚ذµ ذ¸ر… ذ½ذµر‚ visited[x][y] = true goto continue end if gm.isBlockingBfs(x + 1, y) then visited[x + 1][y] = true goto continue end if gm.isBlockingBfs(x, y + 1) then visited[x][y + 1] = true goto continue end if gm.isBlockingBfs(x + 1, y + 1) then visited[x + 1][y + 1] = true goto continue end if math.inRangeIncl(x, px - 1, px + 1) and math.inRangeIncl(y, py - 1, py + 1) then table.insert(cur.path, {x = x, y = y}) return cur.path elseif not visited[x][y] then --ًں¤— local newPath = table.copy(cur.path) table.insert(newPath, {x = x, y = y}) queue:enqueue({x = x, y = y, path = newPath}) visited[x][y] = true end ::continue:: end end -- if math.inRangeIncl(cur.x, px - 1, px + 1) and math.inRangeIncl(cur.y, py - 1, py + 1) then -- trace('woooow') -- return cur.path -- end --error("findn't the way") -- when player snuggled to the wall end function aim.astar_2x2(startPos) local MAX_PATH_LENGTH = math.random(4, 9) local steps = { {x = 1, y =-1}, {x = 1, y = 1}, {x =-1, y =-1}, {x =-1, y = 1}, {x = 0, y = 1}, {x = 0, y =-1}, {x = 1, y = 0}, {x =-1, y = 0}, } global_px = game.player.hitbox:get_center().x // 8 global_py = game.player.hitbox:get_center().y // 8 local px = global_px local py = global_py local visited = {} -- for x = 0, 239 do -- visited[x] = {} -- end for y = 0, 134 do visited[y] = {} end local heap = Heap:new({Heap.Node:new({x = startPos.x, y = startPos.y, path = { {x = startPos.x, y = startPos.y} }})}) heap.compare = function(node1, node2) return #node1.key.path + aim.getShortestKingPath(node1.key.x, node1.key.y, global_px, global_py) > #node2.key.path + aim.getShortestKingPath(node2.key.x, node2.key.y, global_px, global_py); end while not heap:empty() do -- trace(heap:empty()) local cur = heap:pull() -- trace(cur.x.." "..cur.y) for _, step in ipairs(steps) do local x = cur.x + step.x local y = cur.y + step.y if (x < 0) or (x > 240 - 1) or (y < 0) or (y > 135 - 1) then goto continue end if gm.isBlockingBfs(x, y) then -- ذ´ذ²ذµر€ذ¸ ذ½ذµ ر‚ذ²ذµر€ذ´ر‹ذµ, ذ؟ذ¾ر‚ذ¾ذ¼رƒ ر‡ر‚ذ¾ ذ½ذ° ذ؛ذ°ر€ر‚ذµ ذ¸ر… ذ½ذµر‚ visited[y][x] = true goto continue end if gm.isBlockingBfs(x + 1, y) then visited[y][x + 1] = true goto continue end if gm.isBlockingBfs(x, y + 1) then visited[y + 1][x] = true goto continue end if gm.isBlockingBfs(x + 1, y + 1) then visited[y + 1][x + 1] = true goto continue end if math.inRangeIncl(x, px - 1, px + 1) and math.inRangeIncl(y, py - 1, py + 1) then table.insert(cur.path, {x = x, y = y}) -- trace(#cur.path) return cur.path elseif not visited[y][x] then --ًں¤— local newPath = table.copy(cur.path) table.insert(newPath, {x = x, y = y}) heap:push(Heap.Node:new({x = x, y = y, path = newPath})) visited[y][x] = true end if #cur.path > MAX_PATH_LENGTH then return cur.path end ::continue:: end end end -- function aim.bfs(path) -- local steps = { -- {x=0, y=1}, -- {x=0, y=-1}, -- {x=1, y=0}, -- {x=-1, y=0} -- -- {x=1, y=1}, -- -- {x=1, y=-1}, -- -- {x=-1, y=1}, -- -- {x=-1, y=-1} -- } -- -- trace(#path) -- local cx = path[#path].x -- local cy = path[#path].y -- local queue = { -- {x=cx, y=cy, path=path} -- } -- local cash = Enemy.get_empty_tilemap() -- cash[cx][cy] = true -- while #queue > 0 do -- local v = table.remove(queue, 1) -- for _, s in ipairs(steps) do -- local x = v.x + s.x -- local y = v.y + s.y -- if cash[x][y] then -- goto continue -- end -- if gm.tilemap[x][y] == 'void' then -- -- trace(v.path) -- local new_path = table.copy(v.path) -- table.insert(new_path, {x=x, y=y}) -- assert(not cash[x][y], "cash[v.x][v.y] is true") -- -- trace(v.y) -- cash[x][y] = true -- -- trace(new_path) -- table.insert(queue, {x=x, y=y, path=table.copy(new_path)}) -- end -- if gm.tilemap[x][y] == 'player' then -- -- trace(v.path) -- local res = table.copy(v.path) -- table.insert(res, {x=x, y=y}) -- -- cash[v.x][v.y] = true -- -- table.insert(queue, {x=v.x, y=v.y, path=table.copy(new_path)}) -- return res -- end -- ::continue:: -- end -- end -- -- trace(#cash) -- local debug_score = 0 -- for x = 1, 240 do -- for y = 1, 136 do -- if cash[x][y] then -- debug_score = debug_score + 1 -- end -- end -- end -- trace(debug_score) -- assert(false, "can't find a player") -- end function aim.getShortestKingPath(startX, startY, targetX, targetY) -- returns length of the shortest path that a chess king can take (board is empty) local dx = math.abs(startX - targetX) local dy = math.abs(startY - targetY) return math.min(dx, dy) + math.abs(dx - dy) end -- return aim -- Math.lua function math.isObtuse(x1,y1,x2,y2,x3,y3) return (x1-x2)*(x3-x2)+(y1-y2)*(y3-y2)>0 end function math.fence(x, left, right) if x < left then return left end if x > right then return right end return x end function math.round(x) return x >= 0 and math.floor(x + 0.5) or math.ceil(x - 0.5) end function math.sqr(x) return x * x end function math.vecLength(vec) return math.sqrt(math.sqr(vec.x) + math.sqr(vec.y)) end function math.vecNormalize(vec) local len = math.vecLength(vec) return {x = vec.x / len, y = vec.y / len} end function math.sign(x) if x<0 then return -1 end if x>0 then return 1 end return 0 end function math.distance(x1, y1, x2, y2) -- ذ²ذ¾ذ·ذ²ر€ذ°ر‰ذ°ذµر‚ ذ؛ذ²ذ°ذ´ر€ذ°ر‚ ر€ذ°رپرپر‚ذ¾رڈذ½ذ¸رڈ ذ¼ذµذ¶ذ´رƒ ر‚ذ¾ر‡ذ؛ذ°ذ¼ذ¸ return math.sqrt((x1 - x2)^2 + (y1 - y2)^2) end function math.sq_distance(x1, y1, x2, y2) -- ذ²ذ¾ذ·ذ²ر€ذ°ر‰ذ°ذµر‚ ذ؛ذ²ذ°ذ´ر€ذ°ر‚ ر€ذ°رپرپر‚ذ¾رڈذ½ذ¸رڈ ذ¼ذµذ¶ذ´رƒ ر‚ذ¾ر‡ذ؛ذ°ذ¼ذ¸ return math.abs(x1 - x2)^2 + math.abs(y1 - y2)^2 end function math.sq_point_ortsegment_distance(x, y, x1, y1, x2, y2) -- ذ¾ر‚ر€ذµذ·ذ¾ذ؛ ذ¾ر€ر‚ذ¾ذ³ذ¾ذ½ذ°ذ»رŒذ½ر‹ذ¹ if (x == x1 and x == x2) or (y == y1 and y == y2) then return 0 end if x1 <= x and x <= x2 then return math.min(math.sq_distance(x, y, x1, y1), math.sq_distance(x, y, x2, y2), math.sq_distance(x, y, x, y1)) end if y1 <= y and y <= y2 then return math.min(math.sq_distance(x, y, x1, y1), math.sq_distance(x, y, x2, y2), math.sq_distance(x, y, x1, y)) end return math.min(math.sq_distance(x, y, x1, y1), math.sq_distance(x, y, x2, y2)) end function math.inRangeNotIncl(num, leftBoarder, rightBoarder) return num > leftBoarder and num < rightBoarder end function math.inRangeIncl(num, leftBoarder, rightBoarder) return num >= leftBoarder and num <= rightBoarder end -- function math.sq_distance( ... ) -- -- body -- end -- return math -- Animation.lua anim = {} function anim.gen(t, n) res = {} for _, e in ipairs(t) do for i = 1, n do table.insert(res, e) end end return res end function anim.gen60(t) -- #t -- ذ´ذµذ»ذ¸ر‚ذµذ»رŒ 60 res = {} for _, pict in ipairs(t) do for i=1, 60 // (#t) do table.insert(res, pict) end end return res end -- return anim -- AnimeParticles.lua -- title: pslib -- author: Viza -- desc: An advenced particle system library for the VIC-80 -- script: lua --==================================================================================-- -- INTRO/DOCS ======================================================================-- --==================================================================================-- --[[ Hi! First of all, don't be intimidated by the size of the source, it is very straightforward to understand (hopefully :) ) pslib is: - data driven: to create a particle system you fill out a couple of tables, then handle it to pslib - modular: You only need to include the modules you use in your cart - easily extendable: Can't achieve the particle system behaviour you imagined? Just write a simple new module So how it works? A particle system is consist of 4 main parts: - emit timer(s) dictate WHEN to emit a particle - emitter(s) define WHERE to create the particle, and the initial SPEED - drawfunc(s) know how to DRAW a particle - affector(s) know how to MOVE a particle To create a particle system, call make_psystem, and then fill the emittimers, emitters, drawfuncs, and affectors tables with your parameters. See the SAMPLE PARTICLE SYSTEMS section below for examples. After that you need to call update_psystems in your TIC function to... uhm... update the particle systems, and draw_ps or draw_psystems to draw them. These are the basics, but actually there are not much more to it. :) You can find more information below in the comments about the main functions or modules. If you have questions, feel free to contact me at: email: viza@ccatgames, twitter: @viza, web: blog.ccatgames.com --]] --==================================================================================-- -- PARTICLE SYSTEM LIBRARY =========================================================-- --==================================================================================-- particle_systems = {} -- Call this, to create an empty particle system, and then fill the emittimers, emitters, -- drawfuncs, and affectors tables with your parameters. function make_psystem(minlife, maxlife, minstartsize, maxstartsize, minendsize, maxendsize) local ps = { -- global particle system params -- if true, automatically deletes the particle system if all of it's particles died autoremove = true, minlife = minlife, maxlife = maxlife, minstartsize = minstartsize, maxstartsize = maxstartsize, minendsize = minendsize, maxendsize = maxendsize, -- container for the particles particles = {}, -- emittimers dictate when a particle should start -- they called every frame, and call emit_particle when they see fit -- they should return false if no longer need to be updated emittimers = {}, -- emitters must initialize p.x, p.y, p.vx, p.vy emitters = {}, -- every ps needs a drawfunc drawfuncs = {}, -- affectors affect the movement of the particles affectors = {}, } table.insert(particle_systems, ps) return ps end -- Call this to update all particle systems function update_psystems() local timenow = time() for key,ps in pairs(particle_systems) do update_ps(ps, timenow) end end -- updates individual particle systems -- most of the time, you don't have to deal with this, the above function is sufficient -- but you can call this if you want (for example fast forwarding a particle system before first draw) function update_ps(ps, timenow) --trace("updting~") for key,et in pairs(ps.emittimers) do local keep = et.timerfunc(ps, et.params) if (keep==false) then table.remove(ps.emittimers, key) end end for key,p in pairs(ps.particles) do p.phase = (timenow-p.starttime)/(p.deathtime-p.starttime) for key,a in pairs(ps.affectors) do a.affectfunc(p, a.params) end p.x = p.x + p.vx p.y = p.y + p.vy local dead = false if (p.x<0 or p.x>240 or p.y<0 or p.y>136) then dead = true end if (timenow>=p.deathtime) then dead = true end if (dead==true) then table.remove(ps.particles, key) end end if (ps.autoremove==true and #ps.particles<=0) then local psidx = -1 for pskey,pps in pairs(particle_systems) do if pps==ps then table.remove(particle_systems, pskey) return end end end end -- draw a single particle system function draw_ps(ps, params) for key,df in pairs(ps.drawfuncs) do df.drawfunc(ps, df.params) end end -- draws all particle system -- This is just a convinience function, you probably want to draw the individual particles, -- if you want to control the draw order in relation to the other game objects for example function draw_psystems() --trace("bib") for key,ps in pairs(particle_systems) do draw_ps(ps) end end -- This need to be called from emitttimers, when they decide it is time to emit a particle function emit_particle(psystem) local p = {} local ecount = nil local e = psystem.emitters[math.random(#psystem.emitters)] e.emitfunc(p, e.params) p.phase = 0 p.starttime = time() p.deathtime = time()+frnd(psystem.maxlife-psystem.minlife)+psystem.minlife p.startsize = frnd(psystem.maxstartsize-psystem.minstartsize)+psystem.minstartsize p.endsize = frnd(psystem.maxendsize-psystem.minendsize)+psystem.minendsize table.insert(psystem.particles, p) end function frnd(max) return math.random()*max end --================================================================-- -- MODULES =======================================================-- --================================================================-- -- You only need to copy the modules you actually use to your program -- EMIT TIMERS ==================================================-- -- Spawns a bunch of particles at the same time, then removes itself -- params: -- num - the number of particle to spawn function emittimer_burst(ps, params) for i=1,params.num do emit_particle(ps) end return false end -- Emits a particle every "speed" time -- params: -- speed - time between particle emits function emittimer_constant(ps, params) if (params.nextemittime<=time()) then emit_particle(ps) params.nextemittime = params.nextemittime + params.speed end return true end -- EMITTERS =====================================================-- -- Emits particles from a single point -- params: -- x,y - the coordinates of the point -- minstartvx, minstartvy and maxstartvx, maxstartvy - the start velocity is randomly chosen between these values function emitter_point(p, params) p.x = params.x p.y = params.y p.vx = frnd(params.maxstartvx-params.minstartvx)+params.minstartvx p.vy = frnd(params.maxstartvy-params.minstartvy)+params.minstartvy end -- Emits particles from the surface of a rectangle -- params: -- minx,miny and maxx, maxy - the corners of the rectangle -- minstartvx, minstartvy and maxstartvx, maxstartvy - the start velocity is randomly chosen between these values function emitter_box(p, params) p.x = frnd(params.maxx-params.minx)+params.minx p.y = frnd(params.maxy-params.miny)+params.miny p.vx = frnd(params.maxstartvx-params.minstartvx)+params.minstartvx p.vy = frnd(params.maxstartvy-params.minstartvy)+params.minstartvy end -- AFFECTORS ====================================================-- -- Constant force applied to the particle troughout it's life -- Think gravity, or wind -- params: -- fx and fy - the force vector function affect_force(p, params) p.vx = p.vx + params.fx p.vy = p.vy + params.fy end -- A rectangular region, if a particle happens to be in it, apply a constant force to it -- params: -- zoneminx, zoneminy and zonemaxx, zonemaxy - the corners of the rectangular area -- fx and fy - the force vector function affect_forcezone(p, params) if (p.x>=params.zoneminx and p.x<=params.zonemaxx and p.y>=params.zoneminy and p.y<=params.zonemaxy) then p.vx = p.vx + params.fx p.vy = p.vy + params.fy end end -- A rectangular region, if a particle happens to be in it, the particle stops -- params: -- zoneminx, zoneminy and zonemaxx, zonemaxy - the corners of the rectangular area function affect_stopzone(p, params) if (p.x>=params.zoneminx and p.x<=params.zonemaxx and p.y>=params.zoneminy and p.y<=params.zonemaxy) then p.vx = 0 p.vy = 0 end end -- A rectangular region, if a particle cames in contact with it, it bounces back -- params: -- zoneminx, zoneminy and zonemaxx, zonemaxy - the corners of the rectangular area -- damping - the velocity loss on contact function affect_bouncezone(p, params) if (p.x>=params.zoneminx and p.x<=params.zonemaxx and p.y>=params.zoneminy and p.y<=params.zonemaxy) then p.vx = -p.vx*params.damping p.vy = -p.vy*params.damping end end -- A point in space which pulls (or pushes) particles in a specified radius around it -- params: -- x,y - the coordinates of the affector -- radius - the size of the affector -- strength - push/pull force - proportional with the particle distance to the affector coordinates function affect_attract(p, params) if (math.abs(p.x-params.x)+math.abs(p.y-params.y)#params.frames) then params.currframe = 1 end for key,p in pairs(ps.particles) do -- pal(7,params.colors[math.floor(p.endsize)]) spr(params.frames[math.floor(params.currframe+p.startsize)%#params.frames],p.x,p.y,0) end -- pal() end -- Maps the given frames to the life of the particle -- params: -- frames array - indexes to sprite tiles function draw_ps_agespr(ps, params) for key,p in pairs(ps.particles) do local f = math.floor(p.phase*#params.frames)+1 spr(params.frames[f],p.x,p.y,0) end end -- Each particle is randomly chosen from the given frames -- params: -- frames array - indexes to sprite tiles function draw_ps_rndspr(ps, params) for key,p in pairs(ps.particles) do -- pal(7,params.colors[math.floor(p.endsize)]) spr(params.frames[math.floor(p.startsize)],p.x,p.y,0) end -- pal() end --==================================================================================-- -- SAMPLES PARTICLE SYSTEMS ========================================================-- --==================================================================================-- function make_explosparks_ps(ex,ey) local ps = make_psystem(300,700, 1,2,0.5,0.5) table.insert(ps.emittimers, { timerfunc = emittimer_burst, params = { num = 10} } ) table.insert(ps.emitters, { emitfunc = emitter_point, params = { x = ex, y = ey, minstartvx = -1.5, maxstartvx = 1.5, minstartvy = -1.5, maxstartvy=1.5 } } ) table.insert(ps.drawfuncs, { drawfunc = draw_ps_pixel, params = { colors = {12,10,1,4,1,2} } } ) table.insert(ps.affectors, { affectfunc = affect_force, params = { fx = 0, fy = 0.1 } } ) return ps end --100,500, 9,14,1,3 function make_explosion_ps(ex,ey, min_time, max_time, min_start_size, max_start_size, min_end_size, max_end_size) local ps = make_psystem(min_time, max_time, min_start_size, max_start_size, min_end_size, max_end_size) table.insert(ps.emittimers, { timerfunc = emittimer_burst, params = { num = 4 } } ) table.insert(ps.emitters, { emitfunc = emitter_box, params = { minx = ex-4, maxx = ex+4, miny = ey-4, maxy= ey+4, minstartvx = 0, maxstartvx = 0, minstartvy = 0, maxstartvy=0 } } ) table.insert(ps.drawfuncs, { drawfunc = draw_ps_fillcirc, params = { colors = {15,0,14,9,9,4} } } ) return ps end --200, 2000, 1, 2, 2, 3 function make_smoke_ps(ex,ey, min_time, max_time, min_start_size, max_start_size, min_end_size, max_end_size) local ps = make_psystem(min_time, max_time, min_start_size, max_start_size, min_end_size, max_end_size) ps.autoremove = false table.insert(ps.emittimers, { timerfunc = emittimer_constant, params = {nextemittime = time(), speed = 200} } ) table.insert(ps.emitters, { emitfunc = emitter_box, --params = { minx = ex-4, maxx = ex+4, miny = ey, maxy= ey+2, minstartvx = 0, maxstartvx = 0, minstartvy = 0, maxstartvy=0 } params = { minx = ex-2, maxx = ex+2, miny = ey, maxy= ey+2, minstartvx = 0, maxstartvx = 0, minstartvy = 0, maxstartvy=0 } } ) table.insert(ps.drawfuncs, { drawfunc = draw_ps_fillcirc, params = { colors = {1,3,2} } } ) table.insert(ps.affectors, { affectfunc = affect_force, params = { fx = data.Cutscene.smoke_dx, fy = data.Cutscene.smoke_dy } } ) return ps end function make_explosmoke_ps(ex,ey) local ps = make_psystem(1500,2000, 5,8, 17,18) table.insert(ps.emittimers, { timerfunc = emittimer_burst, params = { num = 1 } } ) table.insert(ps.emitters, { emitfunc = emitter_point, params = { x = ex, y = ey, minstartvx = 0, maxstartvx = 0, minstartvy = 0, maxstartvy=0 } } ) table.insert(ps.drawfuncs, { drawfunc = draw_ps_fillcirc, params = { colors = {2} } } ) table.insert(ps.affectors, { affectfunc = affect_force, params = { fx = 0.003, fy = -0.01 } } ) return ps end -- CutScene.lua CutScene = {} function CutScene:new(plr, bk) local obj = { player = plr, bike = bk, x = (game.bike.x) - gm.x*8 + gm.sx, y = (game.bike.y) + 8 - gm.y*8 + gm.sy, status = '0xDEADC0DE', TIMERCRUTCH = true, THENBIKEGOAWAY = false, bike_speed = 0.005, bike_acceleration = 0.001, bike_dx = 1, bike_dy = 0, } setmetatable(obj, self) self.__index = self return obj end function CutScene:beef_preparation() game.player.sprite = Sprite:new(anim.gen60({0}), 1) game.player.like_0xDEADBEEF = true end function CutScene:updateGMXGMSXGMYGMSY() self.x = (game.bike.x) - gm.x*8 + gm.sx self.y = (game.bike.y) + 8 - gm.y*8 + gm.sy end --todo رپذ´ذµذ»ذ°ر‚رŒ ذ´ر‹ذ¼ذ¾ذ؛, ذ·ذ°ذ²ذ¾ذ»ذ°ذ؛ذ¸ذ²ذ°رژر‰ذ¸ذ¹ ذ³ذ»ذ°ذ·ذ° ذ¸ ذ²ذµرپرŒ رچذ؛ر€ذ°ذ½ ذ² ذ؛ذ¾ذ½ر†ذµ --رپذ´ذµذ»ذ°ر‚رŒ ذ´ر‹ذ¼ ذ±ذ¾ذ»رŒرˆذµ --ذ؟ذ¾ذ´ذ؛ذ»رژر‡ذ¸ر‚رŒ ر‚ذ°ذ¹ذ¼ذµر€ function CutScene:make_smokkkkk() self.crutchy = make_smoke_ps(self.x, self.y, 200, 2000, 1, 2, 2, 3) self.cringy = make_explosion_ps(self.x, self.y, 200,500, 9,14,1,3) --100, 500 self.crutchy.autoremove = true; self.cringy.autoremove = true; end function table.clear(t) for k in pairs (t) do t [k] = nil end end local cccrutch = 0 function CutScene:go_away() if self.lol then table.clear(self.lol.emittimers) else table.clear(self.crutchy.emittimers) table.clear(self.cringy.emittimers) end local x = (game.bike.x) - gm.x*8 + gm.sx local y = (game.bike.y) + 8 - gm.y*8 + gm.sy cccrutch = cccrutch + 1 if cccrutch == data.Cutscene.smoke_frequency then self.lol = make_smoke_ps(x, y, data.Cutscene.smoke_minlifetime, data.Cutscene.smoke_maxlifetime, 1, 7, 4, 6 ) self.lol.autoremove = true cccrutch = 0 end self.bike_speed = self.bike_speed + self.bike_acceleration local ddx = self.bike_speed * self.bike_dx local ddy = self.bike_speed * self.bike_dy self.bike:moveUnclamped(ddx, ddy) end function CutScene:init() self:beef_preparation() end function CutScene:draw() draw_psystems() end function CutScene:update() -- trace(self.bike_speed) if self.bike_speed > 0.54 then game.finish() return end update_psystems() end -- Body.lua Body = {} function Body:new(sprite, x, y) local obj = { sprite = sprite, hitbox = 'nil', flip = 0, rotate = 0, x = x, y = y, isDead = false, -- ذ² رچر‚ذ¾ذ¹ ذ¸ذ³ر€ذµ ذ½ذµ ذ½رƒذ¶ذ½ذ¾ ذ؟ذ¾ذ½رڈر‚ذ¸ذµ ذ·ذ´ذ¾ر€ذ¾ذ²رŒرڈ born_flag = true } setmetatable(obj, self) self.__index = self; return obj end function Body:willCollideAfter(dx, dy) local oldX = self.x local oldY = self.y self:move(dx, dy) -- ذµرپذ»ذ¸ ذ²ر€ذ°ذ³ذ¸ ذ±رƒذ´رƒر‚ رƒذ¼ذµر‚رŒ ذ´ذ²ذ¸ذ³ذ°ر‚رŒرپرڈ, ر‚ذ¾ ذ±رƒذ´ذµر‚ ذ¾رˆذ¸ذ±ذ؛ذ° ذ¸ذ·-ذ·ذ° ذ؟ر€ذ¾ذ²ذµر€ذ؛ذ¸ رپ رپذ°ذ¼ذ¸ذ¼ رپذ¾ذ±ذ¾ذ¹ for _, collideable in ipairs(game.collideables) do if collideable.hitbox == nil then if collideable.hitboxLeft:collide(self.hitbox) or collideable.hitboxRight:collide(self.hitbox) then self:set_position(oldX, oldY) return true end elseif collideable.hitbox:collide(self.hitbox) then self:set_position(oldX, oldY) return true end end local will_collide = not self.hitbox:mapCheck() self:set_position(oldX, oldY) return will_collide end function Body:moveUnclamped(dx, dy) local newX = self.x + dx * Time.dt() local newY = self.y + dy * Time.dt() self.x = newX self.y = newY self.hitbox:set_xy(self.x, self.y) end function Body:move(dx, dy) local newX = self.x + dx local newY = self.y + dy self.x = newX self.y = newY --self.x = math.fence(newX, 0, 240 - 8) --self.y = math.fence(newY, 0, 136 - 8) self.hitbox:set_xy(self.x, self.y) end function Body:stay_in_borders() self.x = math.fence(newX, 0, 240 - 8) self.y = math.fence(newY, 0, 136 - 8) self.hitbox:set_xy(self.x, self.y) end function Body:set_position(x, y) self.x = x self.y = y self.hitbox:set_xy(x, y) end function Body:draw() self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) end function Body:born_update() self:draw() if self.sprite:animationEnd() then self.born_flag = false return false end self.sprite:nextFrame() return true end -- return Body -- Table.lua function table.copy(t) local t2 = {} for k,v in pairs(t) do t2[k] = v end return t2 end function table.equals(t1, t2) for i, value in ipairs(t1) do if value ~= t2[i] then return false end end return true end function table.concatTable(destination, source) for _, element in ipairs(source) do table.insert(destination, element) end end function table.contains_table(t, element) for _, value in pairs(t) do if table.equals(value, element) then return true end end return false end function table.contains(t, element) for _, value in pairs(t) do if value == element then return true end end return false end function table.removeElement(t, element) ind = 0 for i, value in ipairs(t) do if value == element then ind = i break end end if ind > 0 and ind <= #t then -- ًںکپًںکپًںکپًںکپ ذ¢رƒر‚ ذ±ر‹ذ» '<' رڈ ذµذ³ذ¾ ذ؟ذ¾ذ»ر‚ذ¾ر€ذ° ر‡ذ°رپذ° ذ¸رپذ؟ر€ذ°ذ²ذ»رڈذ» ذ½ذ° '<=' table.remove(t, ind) end end function table.removeElements(t, removed) for i, value in ipairs(t) do if table.contains(removed, value) then table.remove(t, i) end end end function table.reversed(t) res = {} for i = #t, 1, -1 do table.insert(res, t[i]) end return res end function table.length(t) -- ًں¤“ local counter = 0 for _ in pairs(t) do counter = counter + 1 end return counter end function table.chooseRandomElement(t) local rand = math.random(table.length(t)) local ind = 1 local choosen = nil for _, elem in pairs(t) do if ind == rand then choosen = elem end ind = ind + 1 end return choosen end -- return table -- Hitbox.lua --Hitbox = table.copy(Rect) Hitbox = {} function Hitbox:new(x1, y1, x2, y2) local obj = { x1 = x1, y1 = y1, x2 = x2, y2 = y2, shiftX = 0, shiftY = 0, type = 'hitbox', } setmetatable(obj, self) self.__index = self return obj end function Hitbox:new_with_shift(x1, y1, x2, y2, shiftX, shiftY) local obj = { x1 = x1, y1 = y1, x2 = x2, y2 = y2, shiftX = shiftX, shiftY = shiftY } -- ر‡ذ¸رپر‚ذ°رڈ ذ¼ذ°ذ³ذ¸رڈ! setmetatable(obj, self) self.__index = self return obj end function Hitbox:collide(hb) if hb.type == 'hitcircle' then return hb:collide(self) end if math.floor(hb.x1) > math.floor(self.x2) or math.floor(self.x1) > math.floor(hb.x2) or math.floor(hb.y1) > math.floor(self.y2) or math.floor(self.y1) > math.floor(hb.y2) then return false end return true end function Hitbox:mapCheck() return gm.getTileType(self.x1, self.y1) == TileType.Void and gm.getTileType(self.x1, self.y2) == TileType.Void and gm.getTileType(self.x2, self.y1) == TileType.Void and gm.getTileType(self.x2, self.y2) == TileType.Void end function Hitbox:set_xy(x, y) x = x + self.shiftX y = y + self.shiftY local dx = x - self.x1 local dy = y - self.y1 self.x1 = x self.y1 = y self.x2 = self.x2 + dx self.y2 = self.y2 + dy end function Hitbox:draw(color) local x1 = self.x1 - gm.x*8 + gm.sx local y1 = self.y1 - gm.y*8 + gm.sy local w = (self.x2 - self.x1) local h = (self.y2 - self.y1) rect(x1, y1, w, h, color) end function Hitbox:get_center() local x1 = self.x1 local x2 = self.x2 local y1 = self.y1 local y2 = self.y2 return { x = x1 + (x2 - x1) / 2, y = y1 + (y2 - y1) / 2 } end function Hitbox:getWidth() return self.x2 - self.x1 end function Hitbox:getHeight() return self.y2 - self.y1 end -- return Hitbox -- HitCircle.lua HitCircle = table.copy(Hitbox) function HitCircle:new(x, y, d) local obj = { x = x, y = y, -- left top pixel d = d, -- diameter hb = Hitbox:new(x, y, x+d, y+d), -- ذ´ذ»رڈ رƒذ؟ر€ذ¾ر‰ذµذ½ذ¸رڈ ر€ذ°رپر‡ذµر‚ذ¾ذ² type = 'hitcircle', } -- ر‡ذ¸رپر‚ذ°رڈ ذ¼ذ°ذ³ذ¸رڈ! setmetatable(obj, self) self.__index = self return obj end function HitCircle:collide(hb) if not self.hb:collide(hb) then return false end local d = self.d -- is center in hb if hb.x1 <= self.x + d/2 and self.x + d/2 <= hb.x2 and hb.y1 <= self.y + d/2 and self.y + d/2 <= hb.y2 then return true end -- is hb side collide circle if math.sq_point_ortsegment_distance(self.x + d/2, self.y + d/2, hb.x1, hb.y1, hb.x1, hb.y2) <= d^2 / 4 then return true end if math.sq_point_ortsegment_distance(self.x + d/2, self.y + d/2, hb.x2, hb.y1, hb.x2, hb.y2) <= d^2 / 4 then return true end if math.sq_point_ortsegment_distance(self.x + d/2, self.y + d/2, hb.x1, hb.y1, hb.x2, hb.y1) <= d^2 / 4 then return true end if math.sq_point_ortsegment_distance(self.x + d/2, self.y + d/2, hb.x1, hb.y2, hb.x2, hb.y2) <= d^2 / 4 then return true end return false end function HitCircle:mapCheck() return self.hb:mapCheck() end function HitCircle:set_xy(x, y) self.x = x self.y = y self.hb:set_xy(x, y) end function HitCircle:drawOutline(color) local radius = math.floor(self.d/2) -- circb(radius + self.x - 8*gm.x + gm.sx, radius + self.y - 8*gm.y + gm.sy, (self.d/2), color) circb(radius + self.x - 8*gm.x + gm.sx - 1, radius + self.y - 8*gm.y + gm.sy - 1, (self.d/2), color) end function HitCircle:draw(color) local radius = math.floor(self.d/2) -- circ(radius + self.x - 8*gm.x + gm.sx, radius + self.y - 8*gm.y + gm.sy, self.d/2, color) circ(radius + self.x - 8*gm.x + gm.sx - 1, radius + self.y - 8*gm.y + gm.sy - 1, self.d/2, color) end function HitCircle:get_center() local x1 = self.x local x2 = self.x + self.d local y1 = self.y local y2 = self.y + self.d return { x = x1 + (x2 - x1) / 2, y = y1 + (y2 - y1) / 2 } end function HitCircle:getWidth() return self.d end function HitCircle:getHeight() return self.d end -- return HitCircle -- Sprite.lua Sprite = {} function Sprite:new(animation, size) local obj = { animation = animation, frame = 1, -- ذ½ذ¾ذ¼ذµر€ ذ؛ذ°ذ´ر€ذ° size = size -- ر€ذ°ذ·ذ¼ذµر€ رپذ؟ر€ذ°ذ¹ر‚ذ° } -- ر‡ذ¸رپر‚ذ°رڈ ذ¼ذ°ذ³ذ¸رڈ! setmetatable(obj, self) self.__index = self; return obj end function Sprite:getFrame() return self.frame end function Sprite:setFrame(frame) self.frame = math.round(frame) end function Sprite:nextFrame() self.frame = self.frame % #self.animation + 1 end function Sprite:draw(x, y, flip, rotate) spr(self.animation[self.frame], x, y, C0, 1, flip, rotate, self.size, self.size) end function Sprite:animationEnd() return self.frame == #self.animation end function Sprite:copy() return Sprite:new(self.animation, self.size) end StaticSprite = {} function StaticSprite:new(sprite, size) local obj = { sprite = sprite, size = size } setmetatable(obj, self) self.__index = self; return obj end function StaticSprite:copy() return self end function StaticSprite:draw(x, y, flip, rotate) spr(self.sprite, x, y, C0, 1, flip, rotate, self.size, self.size) end function StaticSprite:animationEnd() -- ذ،ر‚ر€ذ°ذ½ذ¸ر†ذ° رپذ؟ذµر†ذ¸ذ°ذ»رŒذ½ذ¾ ذ¾رپر‚ذ°ذ²ذ»ذµذ½ذ° ذ؟رƒرپر‚ذ¾ذ¹ ذ´ذ»رڈ ذ»ذ¸ر‚ذµر€ذ°ر‚رƒر€ذ½ذ¾ذ³ذ¾ رچر„ر„ذµذ؛ر‚ذ°. ذ،ذ؟ذ°رپذ¸ذ±ذ¾ ذ‍ذ‍ذں! end function StaticSprite:nextFrame() -- ذ،ر‚ر€ذ°ذ½ذ¸ر†ذ° رپذ؟ذµر†ذ¸ذ°ذ»رŒذ½ذ¾ ذ¾رپر‚ذ°ذ²ذ»ذµذ½ذ° ذ؟رƒرپر‚ذ¾ذ¹ ذ´ذ»رڈ ذ»ذ¸ر‚ذµر€ذ°ر‚رƒر€ذ½ذ¾ذ³ذ¾ رچر„ر„ذµذ؛ر‚ذ°. ذ،ذ؟ذ°رپذ¸ذ±ذ¾ ذ‍ذ‍ذں! end function StaticSprite:getFrame() -- ذ،ر‚ر€ذ°ذ½ذ¸ر†ذ° رپذ؟ذµر†ذ¸ذ°ذ»رŒذ½ذ¾ ذ¾رپر‚ذ°ذ²ذ»ذµذ½ذ° ذ؟رƒرپر‚ذ¾ذ¹ ذ´ذ»رڈ ذ»ذ¸ر‚ذµر€ذ°ر‚رƒر€ذ½ذ¾ذ³ذ¾ رچر„ر„ذµذ؛ر‚ذ°. ذ،ذ؟ذ°رپذ¸ذ±ذ¾ ذ‍ذ‍ذں! end function StaticSprite:setFrame(frame) -- ذ،ر‚ر€ذ°ذ½ذ¸ر†ذ° رپذ؟ذµر†ذ¸ذ°ذ»رŒذ½ذ¾ ذ¾رپر‚ذ°ذ²ذ»ذµذ½ذ° ذ؟رƒرپر‚ذ¾ذ¹ ذ´ذ»رڈ ذ»ذ¸ر‚ذµر€ذ°ر‚رƒر€ذ½ذ¾ذ³ذ¾ رچر„ر„ذµذ؛ر‚ذ°. ذ،ذ؟ذ°رپذ¸ذ±ذ¾ ذ‍ذ‍ذں! end function StaticSprite:nextFrame() -- ذ،ر‚ر€ذ°ذ½ذ¸ر†ذ° رپذ؟ذµر†ذ¸ذ°ذ»رŒذ½ذ¾ ذ¾رپر‚ذ°ذ²ذ»ذµذ½ذ° ذ؟رƒرپر‚ذ¾ذ¹ ذ´ذ»رڈ ذ»ذ¸ر‚ذµر€ذ°ر‚رƒر€ذ½ذ¾ذ³ذ¾ رچر„ر„ذµذ؛ر‚ذ°. ذ،ذ؟ذ°رپذ¸ذ±ذ¾ ذ‍ذ‍ذں! end -- return Sprite -- Drums.lua --[[ ذ،ذ¾ذ´ذµر€ذ¶ذ¸ر‚ ذ² رپذµذ±ذµ ذ¾ذ؟ذ¸رپذ°ذ½ذ¸ذµ ر€ذ¸ر‚ذ¼ذ° ذ¸ ذ¼رƒذ·ر‹ذ؛ذ¸ ذ´ذ»رڈ ذ؟رƒذ»ذµذ¼ذµر‚ذ¾ذ² ذ’ ذ؛ذ°ر‡ذµرپر‚ذ²ذµ ذ؛ذ»رژر‡ذ° drums رپذ¾ذ´ذµر€ذ¶ذ¸ر‚ id spawn رپذ؟ر€ذ°ذ¹ر‚ذ° ]] drums = { [48] = {beatMap = {0,0,0,0, 0,0,0,1, 1,0,0,0, 0,0,0,0,}, sfxMap = { {2, 'C#3', -1, 1, 4, 0}, {1, 'B-6', -1, 1, 6, 0}, } }, [49] = {beatMap = {0,1, 0,1, 0,1, 0,1,}, sfxMap = { {2, 'C#3', -1, 2, 4, 0}, {1, 'B-6', -1, 2, 6, 0}, } }, } -- BassLine.lua --[[ ذ،ذ¾ذ´ذµر€ذ¶ذ¸ر‚ ذ² رپذµذ±ذµ ذ¾ذ؟ذ¸رپذ°ذ½ذ¸ذµ ر€ذ¸ر‚ذ¼ذ° ذ¸ ذ¼رƒذ·ر‹ذ؛ذ¸ ذ´ذ»رڈ ر€ذ¾ذ· ]] bassLine = {} bassLine.rose = {} bassLine.rose.D2 = { beatMap = {1,0,0,0,0,0,0,0}, sfxMap = { {0, 'D-3', -1, 0, 10, 0}, {0, 'C#3', -1, 0, 10, 0} } } bassLine.rose.Fd2 = { beatMap = {0,0,1,0,0,0,1,0}, sfxMap = {{0, 'F#3', -1, 0, 10, 0}} } bassLine.rose.Gd2 = { beatMap = {0,0,0,0,1,0,0,0}, sfxMap = {{0, 'G#3', -1, 0, 12, 0}} } -- Data.lua math.randomseed(12412) --ذ­ذ؟ذ¸ذ³ر€ذ°ر„: --"-- ذ¯ ذ´رƒر€ذ°ذ؛ ًںک«" data = {} -- 14, 15, 30, 31 - ذ ذµذ·ذµر€ذ²ذ½ر‹ذµ ر‚ذ°ذ¹ذ»ر‹ (ذ؟ذ¾ر‡ذµذ¼رƒ ذ±ر‹ ذ¸ ذ½ذµر‚) GAME_BPM = 160 C0 = 0 KEY_W = 23 KEY_A = 01 KEY_S = 19 KEY_D = 04 KEY_R = 18 KEY_UP = 58 KEY_DOWN = 59 KEY_LEFT = 60 KEY_RIGHT = 61 KEY_to_btn = { [KEY_W] = 0, [KEY_S] = 1, [KEY_A] = 2, [KEY_D] = 3, [KEY_UP] = 7, [KEY_DOWN] = 4, [KEY_LEFT] = 6, [KEY_RIGHT] = 5, } KEY_B = 02 -- ذ§ر‚ذ¾ رچر‚ذ¾?? ذ­ر‚ذ¾ ذ؛ر€رƒر‚ذ¾. ًں™‚ ذپذ¯ذ©ذ°<ًںکژ> MAP_WIDTH = 239 MAP_HEIGHT = 135 PLAYER_START_Y = 76 * 8 -- 128 * 8 -- ًںک‹ًںک‹ PLAYER_START_X = 105 * 8 -- 42 * 8 -- ًںک²ًںک² -- PLAYER_START_X = 8* 65 -- PLAYER_START_Y = 8* 77 -- PLAYER_END_Y = 89 * 8 -- BYKE ًںکژًںکژ -- PLAYER_END_X = 118 * 8 -- Gًں¤ Tًں¤  BYKE DECORATION_IDS = { 100, 101, 102, 103, 104 } DECORATION_ANIMATION_OFFSET = 16 CAMERA_WINDOW_WIDTH = 40 CAMERA_WINDOW_HEIGHT = 20 CAMERA_WINDOW_START_X = PLAYER_START_X - CAMERA_WINDOW_WIDTH / 2 CAMERA_WINDOW_START_Y = PLAYER_START_Y - CAMERA_WINDOW_HEIGHT / 2 CAMERA_SPEED = 0.3 MAP_WIDTH = 239 MAP_HEIGHT = 135 M44 = 24 -- ذ؛ذ¾ذ½رپر‚ذ°ذ½ر‚ذ° ذ´ذ»رڈ Metronome4_4 data.fruitSFX = { [144] = {63, 'B-5', -1, 3, 5, 0}, [160] = {63, 'D-6', -1, 3, 5, 0}, [176] = {63, 'E-6', -1, 3, 5, 0}, [192] = {63, 'F-6', -1, 3, 5, 0}, } data.Player = { movementNormalizerStraight = 1, movementNormalizerDiagonal = 0.7, speed = 1.03, -- speed = 0.1, deathParticleSprite = StaticSprite:new(377, 1), deathAnimationDurationMs = 1000, deathParticleCountMin = 10, deathParticleCountMax = 20, deathAnimationParticleSpeed = 0.4, sfx = { -- leverOn = {56, 'E-6', -1, 3, 1, -2}, leverOn = {57, 'E-6', -1, 3, 5, 0}, leverOff = {57, 'E-5', -1, 3, 5, 0}, closeDoor = {58, 'D-2', -1, 3, 8, 1}, checkpoint = {59, 'E-5', -1, 3, 2, -1}, } } function plr_death_anim() res = {} for i = 272, 278 do for _ = 1, 8 do table.insert(res, i) end end for _ = 1, 4 do table.insert(res, 279) end return res end data.Player.sprites = { stayFront = Sprite:new({257}, 1), runFront = Sprite:new(anim.gen60({256, 257, 258, 259, 256, 257, 258, 259, 256, 257, 258, 259}), 1), death = Sprite:new({452, 453, 454}, 1), hat = Sprite:new(anim.gen60({279}), 1), stayBack = Sprite:new({465}, 1), runBack = Sprite:new(anim.gen60({464, 465, 466, 467, 464, 465, 466, 467, 464, 465, 466, 467}), 1), } data.Boomerang = { flightNormalizerStraight = 1, flightNormalizerDiagonal = 1 / math.sqrt(2), speed = 0.1, decelerationConstant = 80, -- in context: CurentSpeed -= (StartSpeed / this) damagePerMillisecond = 0.1, } data.Boomerang.sprites = { spinning = Sprite:new(anim.gen60({264, 265, 266, 264, 265, 266, 264, 265, 266, 264, 265, 266}), 1), hurtingHorizontal = Sprite:new(anim.gen60({473, 474, 475, 476, 477, 478, 479}), 1), hurtingVertical = Sprite:new(anim.gen60({473 + 16, 474 + 16, 475 + 16, 476 + 16, 477 + 16, 478 + 16, 479 + 16}), 1), } data.Bike = {} data.Bike.sprites = { waitingForHero = StaticSprite:new(138,2), himAgain = StaticSprite:new(140, 2), sparklualCycleModifier = 10, } data.Bike.sprites.animations = { sparkingWhileWaitingMyBoy = Sprite:new(anim.gen({505, 506, 507, 508, 509, 510}, 6), 1), notSparklingBecauseSandnessComeAgain = StaticSprite:new(0, 1), -- notSparklingBecauseSandnessCameAgain = StaticSprite:new({0}, 1), notSparklingBecauseBoring = StaticSprite:new(0, 1), -- notSparkling = Sprite:new({0}, 1), -- notSparklingAgain = Sprite:new({0}, 1), -- notSparklingAndAgain = Sprite:new({0}, 1), -- notSparklingAgainAgain = Sprite:new({0}, 1), -- notSparklingAgainAndAgain = Sprite:new({0}, 1), sparklingWhileExhaustedWaitingMyBoy = Sprite:new(anim.gen({457, 458, 459, 460, 461, 462, 463}, 6), 1), -- notSparklingAgainAgainAgain = Sprite:new({0}, 1), -- notSparklingAgainAgainAgainAndAgain = Sprite:new({0}, 1), -- notSparklingAgainAgainAgainAgainAgain = Sprite:new({0}, 1), -- notSparklingAgainAgainAgainAgainAgainAgain = Sprite:new({0}, 1), -- notSparklingAgainAgainAgainAgainAgainAgainAgina = Sprite:new({0}, 1), } --Map ذ¸ mapConstants ذ´ذ¾ذ»ذ¶ذ½ر‹ ذ±ر‹ر‚رŒ رƒذ½ذ¸ر‡ر‚ذ¾ذ¶ذµذ½ر‹ data.Map = {} data.Map.WallTileIds = { 208, 209, 210, 224, 225, 226, 240, 241, 242, 142, 143, 158, 159 } data.mapConstants = {} --ًں¤£ًںک‚ًںک…ًںک“ًںک¥ًںکھًں¤¤ data.mapConstants.bikeTiles = { --['comparator'] = 138, --['comparaptor'] = 139, ['comparader'] = 138 + 16, ['comparactor'] = 139 + 16, } --ًں¥¶ًںک±ًںک¨ًںک°ًںک­ًںک¢ًں¤¤ -- (0 o 0) Use a function for this later -- Turned off wire id --> Turned on wire id data.mapConstants.turnedOffWires = { [146] = 146 + 32, [147] = 147 + 32, [148] = 148 + 32, [146 + 16] = 146 + 16 + 32, [147 + 16] = 147 + 16 + 32, [148 + 16] = 148 + 16 + 32, } -- Turned on wire id --> Turned off wire id data.mapConstants.turnedOnWires = { [146 + 32] = 146, [147 + 32] = 147, [148 + 32] = 148, [146 + 16 + 32] = 146 + 16, [147 + 16 + 32] = 147 + 16, [148 + 16 + 32] = 148 + 16, } -- Door tile id --> Offset from left top tile data.mapConstants.doorOffsetsIds = { [41] = {x = 0, y = 0}, [42] = {x = -1, y = 0}, [41 + 16] = {x = 0, y = -1}, [42 + 16] = {x = -1, y = -1}, } data.mapConstants.doorIds = { [204] = 204, [205] = 205, [206] = 206, [204 + 16] = 204 + 16, [205 + 16] = 205 + 16, [206 + 16] = 206 + 16, } data.mapConstants.leverIds = { [1] = 1, [2] = 2, [3] = 3, } data.mapConstants.settingLeverIds = { [1] = 4, [2] = 5, [3] = 6, } data.Door = { speed = 0.1, closingAcceleration = 0.01, widthTiles = 6, heightTiles = 4, shakeTimeTics = 20, closedGapInPixels = 4, solidTileId = 207, } data.Door.spriteTiles = { upperLeft = 204, upperMid = 205, upperRight = 206, bottomLeft = 204 + 16, bottomMid = 205 + 16, bottomRight = 206 + 16, } data.Door.sprite = { leftPart = -1, rightPart = -1, } data.Taraxacum = { color = 12, speed = 2, radius = 2, staticRadius = 3, bodyColor = 10, staticBodyLength = 10, staticTaraxacumSpawnTile = { 97 }, deathBulletCount = 6, deathBulletSlowCount = 3, deathBulletFastCount = 3, deathBulletSpeed = 0.37, deathSlowBulletSpeed = 0.2, deathFastBulletSpeed = 0.5, deathBulletSpread = 2.5, deathBulletSprite = StaticSprite:new(378, 1), } data.StaticTaraxacum = { bodyColor = 9, -- radius = 2, -- speed = 2, -- deathBulletCount = 6, -- deathBulletSlowCount = 3, -- deathBulletFastCount = 3, -- deathBulletSpread = 2, } local turnOnAnimationFrames = {} for i = 213, 217 do table.insert(turnOnAnimationFrames, i) end for i = 213 + 16, 217 + 16 do table.insert(turnOnAnimationFrames, i) end for i = 213 + 32, 217 + 32 - 1 do table.insert(turnOnAnimationFrames, i) end data.Checkpoint = { width = 8, height = 8, flagTile = 211, turnedOffSprite = StaticSprite:new(0, 1), turnedOnSprite = StaticSprite:new(248, 1), justUsedSprite = StaticSprite:new(249, 1), turnOnAnimation = Sprite:new(anim.gen(turnOnAnimationFrames, 3), 1), } data.solidTiles = { 1, 2, 3, 208, 209, 210, 224, 225, 226, 240, 241, 242, } -- table.concatTable(data.solidTiles,) --> (مƒژï½€ذ”a ذ؟ذ¾ر‡ذµذ¼رƒ??)مƒژ - ذ´ذ° ذ؟ذ¾ر‚ذ¾ذ¼رƒ! -- for i, t in ipairs(data.solidTiles) do -- trace(t..' ') -- end data.bfs = {'ًںکژ'} data.bfs.solidTiles = { 207, -- special tile for door to make it fit SOLID principles } data.Lever = { hitboxShiftX = 2, hitboxShiftY =2, hitboxWidth = 2, hitboxHeight = 4, } data.Lever.sprites = { on = StaticSprite:new(3,1), off = StaticSprite:new(2,1), } data.SettingLever ={} data.SettingLever.sprites = { on = StaticSprite:new(6, 1), off = StaticSprite:new(5, 1), } data.EnemyDeathSounds = { -- i cancel it :-< WeakRose = {1, 'A-5', -1, 3, 0, 3}, Rose = {1, 'B-5', -1, 3, 0, 3}, BulletHell = {1, 'D-5', -1, 3, 0, 0}, Snowman = {1, 'E-5', -1, 1, 0, 0}, } data.EnemyDamageSounds = { WeakRose = {62, 'A-4', 8, 3, 8, 0}, Rose = {62, 'B-4', -1, 3, 8, 0}, BulletHell = { 62, 'D-4', -1, 3, 8, 0 }, Snowman = { 62, 'E-4', -1, 3, 8, 0 }, } RoseHP = {weak=15, strong=200} BulletHellHP = {small=25, medium=50, big=100} -- EnemyConfig look in SuperConfig data.BulletHell = { -- circleDiameter = {5, 8, 16}, -- bulletSpeadRadius = {5, 8, 11}, -- bulletRotationSpeed = {1,1,1}, -- bulletCount = {8, 12, 16}, -- bulletSpeed = {0.8, 0.7, 0.8}, -- deathBulletSpeed = {0.3, 0.2, 0.1}, -- hp = {12, 25, 40}, deathTimeMs = 1000, } -- data.BulletHell.spawnTiles = {48, 49, 50} data.BulletHell.sprites = { defaultSprite = 999, } data.AutoBulletHell = { -- spawnTiles = {32,33,34}, -- circleDiameter = {5, 8, 16}, -- bulletSpeadRadius = {5, 8, 11}, -- bulletRotationSpeed = {1,1,1}, -- bulletCount = {8, 12, 16}, -- bulletSpeed = {0.8, 0.7, 0.8}, -- deathBulletSpeed = {0.3, 0.2, 0.1}, -- hp = {12, 25, 40}, deathTimeMs = 1000, } data.Bullet = { defaultSpeed = 0.5, defaultSprite = StaticSprite:new(373, 1), reloadAnimation = Sprite:new(anim.gen({373, 0, 374, 375, 376}, 4), 1), } data.Enemy = { defaultHP = 5, defaultEnemyFlagTile = 98, } data.Enemy.sprites = { defaultSprite = StaticSprite:new(403, 1), --ahegaoDeath = Sprite:new({386, 387, 388, 389, 390}, 1) } data.Enemy.sprites.hurtEffect = { hurtingHorizontal = Sprite:new(anim.gen({473, 474, 475, 476, 477, 478, 479}, 3), 1), hurtingVertical = Sprite:new(anim.gen({473 + 16, 474 + 16, 475 + 16, 476 + 16, 477 + 16, 478 + 16, 479 + 16}, 3), 1), hurtingNull0 = StaticSprite:new(0, 1), hurtingNull1 = StaticSprite:new(0, 1), hurtingNull2 = StaticSprite:new(0, 1), hurtingNull3 = StaticSprite:new(0, 1), } data.Rose = { startingHealth = 50, metronomeTicksReloading = 1, metronomeTicksSpentShooting = 1, } data.LongRose = {} data.LongRose.spawnTiles = {166, 167, 168, 169} data.MusicRose = {} data.MusicRose.spawnTiles = { D2 = {182, 183, 184, 185}, Fd2 = {170, 171, 172, 173}, Gd2 = {186, 187, 188, 190}, } data.Rose.spawnTiles = {150, 151, 152, 153} data.Rose.anotherRoseFlagTile = 15 data.Rose.sprites = { transition = Sprite:new({389, 391, 393, 395, 397, 421}, 2), death = Sprite:new(anim.gen60({423, 425, 427, 429}), 2), idle = StaticSprite:new(389, 2), shooting = StaticSprite:new(391, 2), } data.Rose.animation_frame_duration_ms = 16 data.Rose.rose_animation_duration_ms = data.Rose.animation_frame_duration_ms * #data.Rose.sprites.transition.animation data.WeakRose = {} data.WeakRose.sprites = { death = Sprite:new(anim.gen60({277, 279, 281, 283}), 2), idle = StaticSprite:new(393, 2), shooting = StaticSprite:new(395, 2), } data.Snowman = {} data.Snowman.whirl = { fadeTimeMs = 150, -- ذ’ر€ذµذ¼رڈ ذ´ذ¾ ذ¸رپر‡ذµذ·ذ°ذ½ذ¸رڈ ر‡ذ°رپر‚ذ¸ر‡ذ؛ذ¸ ذ²ذ¸ر…ر€رڈ sprite = StaticSprite:new(350, 1), rotationSpeed = 0.012, -- ذ،ذ؛ذ¾ر€ذ¾رپر‚رŒ ذ²ر€ذ°ر‰ذµذ½ذ¸رڈ ذ؟ذ°ذ»ذ؛ذ¸. ذ¢ذ°ذ؛ ذ¼ذ°ذ»ذ¾, ذ؟ذ¾ر‚ذ¾ذ¼رƒ ر‡ر‚ذ¾ ذ¼ذ¸ذ»ذ»ذ¸رپذµذ؛رƒذ½ذ´ر‹ ًںکڈ particleEmitDelayMs = 4, -- ذ—ذ°ذ´ذµر€ذ¶ذ؛ذ° ذ¼ذµذ¶ذ´رƒ رپذ؟ذ°ذ²ذ½ذ¾ذ¼ ر‡ذ°رپر‚ذ¸ر† ذ²ذ¸ر…ر€رڈ taraxacum = { radius = 7, -- ذ ذ°ذ´ذ¸رƒرپ ذ¾ذ´رƒذ²ذ°ذ½ر‡ذ¸ذ؛ذ° ذ½ذ° ذ؟ذ°ذ»ذ؛ذµ ذ؟ر€ذ¸ ذ²ر€ذ°ر‰ذµذ½ذ¸ذ¸ deathBulletCount = 12, -- ذڑذ¾ذ»ذ¸ر‡ذµرپر‚ذ²ذ¾ ذ؟رƒذ»رŒ ذ؟ذ¾رپذ»ذµ رپذ¼ذµر€ر‚ذ¸ ذ¾ذ´رƒذ²ذ°ذ½ر‡ذ¸ذ؛ذ° deathSlowBulletCount = 6, deathFastBulletCount = 6, }, endTaraxacumSpeed = 1.5, -- ذ،ذ؛ذ¾ر€ذ¾رپر‚رŒ ذ¾ذ´رƒذ²ذ°ذ½ر‡ذ¸ذ؛ذ°, ذ؛ذ¾ر‚ذ¾ر€ر‹ذ¹ ذ·ذ°ذ؟رƒرپذ؛ذ°ذµر‚رپرڈ ذ؟ذ¾رپذ»ذµ ذ؛ذ¾ذ½ر†ذ° ذ°ر‚ذ°ذ؛ذ¸. } -- ذ’ر‹ذ´ذµذ»ذ¸ذ» ًںکژ data.Snowman.specialTaraxacum = { radius = 3, bodyLength = 15, shiftForCenterX = 12, shiftForCenterY = -3, startStickX = 0, startStickY = 0, bodyColor = 10, color = 12, reloadAnimationTime = 18, -- in tics should divide by 3 } data.SnowmanBox = {} data.SnowmanBox.playerCheckFrequencyMs = 1000 data.SnowmanBox.wakeUpDistanceToPlayer = 48 data.SnowmanBox.sleepSprite = StaticSprite:new(485, 2) data.SnowmanBox.wokeupSprite = StaticSprite:new(487, 2) data.Cutscene = { smoke_dx = -0.012, smoke_dy = -0.018, -- smoke_frequency_ms = 3, smoke_minlifetime = 300, smoke_maxlifetime = 5000, smoke_frequency = 3, -- More - less particles } -- return data -- SuperConfig.lua -- ذ¯ ذ´ذ¾ذ±ذ°ذ²ذ¸ذ» ر„ذ°ذ±ر€ذ¸ر‡ذ½ر‹ذ¹ ذ¼ذµر‚ذ¾ذ´, ر‡ر‚ذ¾ذ±ر‹ ر‚ر‹ ذ¼ذ¾ذ³ ذ´ذµذ»ذ°ر‚رŒ ذ؛ذ¾ذ½ر„ذ¸ذ³ذ¸, ذ؟ذ¾ذ؛ذ° ذ´ذµذ»ذ°ذµرˆرŒ ذ؛ذ¾ذ½ر„ذ¸ذ³ذ¸ RoseHP = {weak=20, strong=120} BulletHellHP = {small=32, medium=64, big=128} silence = { beatMap = {0, 0, 0, 0}, sfxMap = {{0, 'E-3', -1, 0, 10, 0}} } strongrose = { name = 'MusicRose', startingHealth = RoseHP.strong, metronomeTicksReloading = 1, metronomeTicksSpentShooting = 1, direction = 0, isWeak = false, } verystrongrose = { name = 'MusicRose', startingHealth = RoseHP.strong*3, metronomeTicksReloading = 1, metronomeTicksSpentShooting = 1, direction = 0, isWeak = false, } weakrose = { name = 'MusicWeakRose', startingHealth = RoseHP.weak, metronomeTicksReloading = 1, metronomeTicksSpentShooting = 1, direction = 0, isWeak = true, } common = { small = { name = 'MusicBulletHell', circleDiameter = 5, bulletSpreadRadius = 5, bulletRotationSpeed = 0.002, bulletCount = 8, bulletSpeed = 0.98, deathBulletSpeed = 0.18, color = 14, hp = BulletHellHP.small, }, medium = { name = 'MusicBulletHell', circleDiameter = 8, bulletSpreadRadius = 8, bulletRotationSpeed = 0.0009, bulletCount = 12, bulletSpeed = 1.13, deathBulletSpeed = 0.1, color = 14, hp = BulletHellHP.medium, }, big = { name = 'MusicBulletHell', circleDiameter = 16, bulletSpreadRadius = 11, bulletRotationSpeed = 1, bulletCount = 16, bulletSpeed = 1.3, deathBulletSpeed = 0.1, color = 14, hp = BulletHellHP.big, }, } autobullethellprefab = { small = { name = 'MusicAutoBulletHell', circleDiameter = 5, bulletSpreadRadius = 5, bulletRotationSpeed = 0.002, bulletCount = 8, bulletSpeed = 2, deathBulletSpeed = 0.1, color = 13, hp = BulletHellHP.small, }, medium = { name = 'MusicAutoBulletHell', circleDiameter = 8, bulletSpreadRadius = 8, bulletRotationSpeed = 0.0009, bulletCount = 12, bulletSpeed = 2.3, deathBulletSpeed = 0.03, color = 13, hp = BulletHellHP.medium, }, big = { name = 'MusicAutoBulletHell', circleDiameter = 16, bulletSpreadRadius = 11, bulletRotationSpeed = 1, bulletCount = 16, bulletSpeed = 2.5, deathBulletSpeed = 0.03, color = 13, hp = BulletHellHP.big, }, } -- prefab contains common parameters, like name, hp, graphics, etc. function data.add_enemy(id, prefab, music) if not (prefab.name == "MusicRose" or prefab.name == "MusicWeakRose") then data.EnemyConfig[id] = table.copy(prefab) data.EnemyConfig[id].music = music return end for i = 0, 3 do local rose = table.copy(prefab) rose.music = music rose.direction = i data.EnemyConfig[id + i] = rose end end function data.add_all_bullethell_sizes(id, music) data.EnemyConfig[id] = table.copy(common.small) data.EnemyConfig[id+1] = table.copy(common.medium) data.EnemyConfig[id+2] = table.copy(common.big) data.EnemyConfig[id].music = music data.EnemyConfig[id+1].music = music data.EnemyConfig[id+2].music = music end function data.add_all_autobullethell_sizes(id, music) data.EnemyConfig[id] = table.copy(autobullethellprefab.small) data.EnemyConfig[id+1] = table.copy(autobullethellprefab.medium) data.EnemyConfig[id+2] = table.copy(autobullethellprefab.big) data.EnemyConfig[id].music = music data.EnemyConfig[id+1].music = music data.EnemyConfig[id+2].music = music end --IEnemyable data.EnemyConfig = { -- dict: [tileId : EnemyConfigLol] [65] = { name = 'Snowman', color = 12, speed = 15, -- data.Player.speed - 0.41, speedWithWhirl = 0.8, --data.Player.speed - 0.61, hp = 150, prepareJumpTime = 20, sleepDistanceToPlayer = 320, --jumpTime = 20, resetJumpTime = 24, deathParticleCountMin = 100, deathParticleCountMax = 300, deathAnimationParticleSpeed = 1, deathAnimationParticleSpeedNormalizer = 0.4, deathParticleMinSpeed = 1, deathParticleSprite = StaticSprite:new(378, 1), specialTaraxacum = { radius = 3, bodyLength = 15, shiftForCenterX = 12, shiftForCenterY = -3, startStickX = 0, startStickY = 0, bodyColor = 10, color = 12, reloadAnimationTime = 18, -- in tics should divide by 3 }, music = { altBeatMap = {0, 0, 0, 0, 0, 0, 0, 0,}, sfxMap = { -- {4, 'A-2', 16, 0, 4, -1}, -- {4, 'C-3', 16, 0, 4, -1}, -- {42, 'A-5', -1, 2, 1, 0}, -- {42, 'A-5', -1, 2, 10, 0}, {42, 'A-5', -1, 2, 10, 0}, {42, 'G-5', -1, 2, 10, 0}, {42, 'A-5', -1, 2, 10, 0}, {42, 'G-5', -1, 2, 10, 0}, }, beatMap = {0,0,0,0, 1, 1, 1, 1}, }, sprites = { chill = StaticSprite:new(312, 2), prepareJump = Sprite:new({312, 344}, 2), flyJump = Sprite:new(anim.gen60({346,348,346}), 2), resetJump = Sprite:new({348,344,312}, 2), death = Sprite:new(anim.gen60({312,314,312,314,312}), 2) }, }, -- [66] = { -- name = 'Snowman', -- color = 12, -- speed = 15, -- data.Player.speed - 0.41, -- speedWithWhirl = 0.8, --data.Player.speed - 0.61, -- hp = 150, -- prepareJumpTime = 20, -- --jumpTime = 20, -- resetJumpTime = 24, -- deathParticleCountMin = 100, -- deathParticleCountMax = 300, -- deathAnimationParticleSpeed = 1, -- deathAnimationParticleSpeedNormalizer = 0.4, -- deathParticleMinSpeed = 1, -- deathParticleSprite = StaticSprite:new(378, 1), -- specialTaraxacum = { -- radius = 3, -- bodyLength = 15, -- shiftForCenterX = 12, -- shiftForCenterY = -3, -- startStickX = 0, -- startStickY = 0, -- bodyColor = 10, -- color = 12, -- reloadAnimationTime = 18, -- in tics should divide by 3 -- }, -- music = { -- beatMap = {0, 0, 0, 0, 0, 0, 0, 0,}, -- sfxMap = { -- -- {4, 'A-2', 16, 0, 4, -1}, -- -- {4, 'C-3', 16, 0, 4, -1}, -- {1, 'A-4', -1, 2, 15, 0}, -- {1, 'G-4', -1, 2, 15, 0}, -- {1, 'A-4', -1, 2, 15, 0}, -- {1, 'G-4', -1, 2, 15, 0}, -- }, -- altBeatMap = {0,0,0,0, 1, 1, 1, 1} -- }, -- sprites = { -- chill = StaticSprite:new(312, 2), -- prepareJump = Sprite:new({312, 344}, 2), -- flyJump = Sprite:new(anim.gen60({346,348,346}), 2), -- resetJump = Sprite:new({348,344,312}, 2), -- death = Sprite:new(anim.gen60({312,314,312,314,312}), 2) -- }, -- }, [97] = { name = 'StaticTaraxacum', speed = 2, color = 12, radius = 2, staticRadius = 3, bodyLength = 10, staticTaraxacumSpawnTile = { 97 }, deathBulletCount = 6, deathBulletSlowCEount = 3, deathBulletFastCount = 3, deathBulletSpeed = 0.37, deathSlowBulletSpeed = 0.2, deathFastBulletSpeed = 0.5, deathBulletSpread = 2, deathBulletSprite = StaticSprite:new(378, 1), }, -- mb static idk } data.add_all_autobullethell_sizes( 80, { beatMap = {1,0,0,0,0,0,0,0}, sfxMap = { {16, 'B-2', 50, 0, 15, 0}, {16, 'A-2', 50, 0, 10, 0}, {16, 'F#2', 50, 0, 10, 0}, {16, 'G#2', 50, 0, 10, 0}, {16, 'A-2', 50, 0, 10, 0}, {16, 'B-2', 50, 0, 15, 0}, {16, 'A-2', 50, 0, 10, 0}, {16, 'F#2', 50, 0, 10, 0}, }, intro = silence, } ) -- drum theme -------------------------------------- data.add_all_bullethell_sizes( 112, { beatMap = { 0,0,1,0, 0,1,0,0, 1,0,0,1, 0,0,1,1, }, sfxMap = { {20, 'A-8', -1, 1, 9, 0}, {20, 'A-8', -1, 1, 9, 0}, {20, 'A-8', -1, 1, 9, 0}, {20, 'E-8', -1, 1, 9, 0}, {20, 'A-8', -1, 1, 9, 0}, }, -- intro = silence, } ) data.add_all_bullethell_sizes( 131, { beatMap = { 1,0,1,0, 1,0,1,0, 1,0,1,0, 1,0,1,0, }, sfxMap = { {17, 'B-8', -1, 2, 6, 0},{17, 'B-8', -1, 2, 8, 0},{17, 'B-8', -1, 2, 10, 0},{17, 'B-8', -1, 2, 12, 0}, {19, 'B-8', -1, 2, 14, 0},{17, 'B-8', -1, 2, 12, 0},{17, 'B-8', -1, 2, 10, 0},{17, 'B-8', -1, 2, 8, 0}, }, } ) data.add_all_bullethell_sizes( 128, { beatMap = { 0,1,0,1, 0,1,0,1, 0,1,0,1, 0,1,0,1, }, sfxMap = { {17, 'B-8', -1, 2, 5, 0}, }, } ) ----------------------------------------------------- -- main theme ------------------------------------------------------------------------------------------------------------------------------------------------------------------ data.add_enemy( 182, strongrose, { beatMap = {1,0,0,0,0,0,0,0}, sfxMap = { {31, 'D-3', -1, 0, 10, 0}, {31, 'C#3', -1, 0, 10, 0}, {31, 'D-3', -1, 0, 10, 0}, {31, 'C#3', -1, 0, 10, 0}, {31, 'A-2', -1, 0, 10, 0}, {31, 'B-2', -1, 0, 10, 0}, {31, 'A-2', -1, 0, 10, 0}, {31, 'B-2', -1, 0, 10, 0}, }, -- intro = silence } ) data.add_enemy( 186, strongrose, { beatMap = {0,0,0,0,1,0,0,0}, sfxMap = {{31, 'G#3', -1, 0, 12, 0}}, -- intro = silence } ) data.add_enemy( 170, strongrose, { beatMap = {0,0,1,0,0,0,1,0}, sfxMap = { {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'F#3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, {31, 'E-3', -1, 0, 10, 0}, }, -- intro = silence } ) data.add_enemy( 134, weakrose, { beatMap = {1,0,0,0,0,0,0,0}, sfxMap = { {0, 'D-3', -1, 0, 10, 0}, {0, 'C#3', -1, 0, 10, 0}, {0, 'D-3', -1, 0, 10, 0}, {0, 'C#3', -1, 0, 10, 0}, {0, 'A-2', -1, 0, 10, 0}, {0, 'B-2', -1, 0, 10, 0}, {0, 'A-2', -1, 0, 10, 0}, {0, 'B-2', -1, 0, 10, 0}, }, -- intro = silence } ) data.add_enemy( 166, weakrose, { beatMap = {0,0,0,0,1,0,0,0}, sfxMap = {{0, 'G#3', -1, 0, 12, 0}}, -- intro = silence } ) data.add_enemy( 150, weakrose, { beatMap = {0,0,1,0,0,0,1,0}, sfxMap = { {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'F#3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, {0, 'E-3', -1, 0, 10, 0}, }, -- intro = silence } ) data.add_all_bullethell_sizes( 16, { beatMap = {0,0, 0,0, 1,0, 0,0}, sfxMap = { -- {18, 'C#3', -1, 2, 5, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, }, } ) data.add_all_bullethell_sizes( 32, { beatMap = {0,0, 0,0, 1,0, 0,0}, sfxMap = { -- {18, 'C#3', -1, 2, 5, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, {17, 'C#6', -1, 2, 10, 0}, }, altBeatMap = {0,0, 0,1, 1,0, 0,0}, } ) data.add_all_bullethell_sizes( 48, { beatMap = {0,0,0,0, 0,0,0,0, 0,1,0,0, 0,1,0,1,}, sfxMap = { -- {18, 'C#3', -1, 2, 5, 0}, {17, 'B-6', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0},{17, 'C#7', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0}, {17, 'B-6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0},{17, 'G#6', -1, 2, 10, 0}, }, altBeatMap = {1,1,0,0, 0,0,0,0, 0,1,0,0, 0,0,0,0,} } ) ------------------------------------------------------------------------------------------------------------------------------------------------------------------ -- second theme -------------------------------------------------------------------------------------------------------------------------------------------------- data.add_enemy( 12, strongrose, { beatMap = {1,0, 0,0, 1,0, 0,0}, sfxMap = { {2, 'D-3', -1, 1, 11, 0}, {2, 'D-4', -1, 1, 11, 0}, {2, 'B-3', -1, 1, 11, 0}, {2, 'B-3', -1, 1, 11, 0}, {2, 'D-4', -1, 1, 11, 0}, {2, 'D-4', -1, 1, 11, 0}, {2, 'B-3', -1, 1, 11, 0}, {2, 'B-3', -1, 1, 11, 0}, }, intro = { beatMap = {0,0, 0,0, 1,0, 1,0}, sfxMap = { {2, 'A-3', -1, 1, 15, 0}, {2, 'F#3', -1, 1, 15, 0}, }, }, } ) data.add_enemy( 28, weakrose, { beatMap = {0,0, 1,0, 0,1, 0,0}, sfxMap = { {1, 'C#5', -1, 2, 15, 0}, {1, 'C#5', -1, 2, 15, 0}, {1, 'B-4', -1, 2, 15, 0}, {1, 'B-4', -1, 2, 15, 0}, }, intro = silence, } ) data.add_enemy( 44, weakrose, { beatMap = {0,0, 1,0, 0,1, 0,0}, sfxMap = { {1, 'A-4', -1, 1, 15, 0}, {1, 'A-4', -1, 1, 15, 0}, {1, 'F#4', -1, 1, 15, 0}, {1, 'F#4', -1, 1, 15, 0}, }, intro = silence, } ) data.add_all_bullethell_sizes(38, { beatMap = {0,0, 0,0, 0,0, 0,0,}, sfxMap = { -- {18, 'C#3', -1, 2, 5, 0}, {19, 'F#6', -1, 0, 4, 0}, {19, 'F#6', -1, 0, 4, 0}, {19, 'F#6', -1, 0, 4, 0}, {19, 'F#6', -1, 0, 4, 0}, {19, 'A-6', -1, 0, 4, 0}, {19, 'A-6', -1, 0, 4, 0}, {19, 'A-6', -1, 0, 4, 0}, {19, 'A-6', -1, 0, 4, 0}, }, intro = silence, altBeatMap = {1,0,1,0, 1,0,1,0,} } ) data.add_all_bullethell_sizes(41, { beatMap = {0,0, 1,0, 0,1, 0,0}, sfxMap = { -- {18, 'C#3', -1, 2, 5, 0}, {19, 'C#7', -1, 0, 4, 0}, {19, 'C#7', -1, 0, 4, 0}, {19, 'B-6', -1, 0, 4, 0}, {19, 'B-6', -1, 0, 4, 0}, }, intro = silence, -- altBeatMap = {1,1,0,0, 0,0,0,0, 0,1,0,0, 0,0,0,0,} } ) ------------------------------------------------------------------------------------------------------------------------------------------------------------------ data.add_enemy(19, verystrongrose, { beatMap = {1,1,1,1, 1,1,1,0}, sfxMap = { {8, 'A-2', 90, 1, 6, 0}, {1, 'A-2', 16, 3, 0, 0}, {1, 'A-2', 16, 3, 0, 0}, {1, 'A-2', 16, 3, 0, 0}, {1, 'A-2', 16, 3, 0, 0}, {1, 'A-2', 16, 3, 0, 0}, {1, 'A-2', 16, 3, 0, 0}, {8, 'C-3', 60, 1, 10, 0}, {1, 'C-3', 16, 3, 0, 0}, {1, 'C-3', 16, 3, 0, 0}, {1, 'C-3', 16, 3, 0, 0}, }, intro = silence, altBeatMap = {1,1,1,1, 0,0,0,0}, }) -- Palette.lua -- sync(0, 1, false) ADDR = 0x3FC0 palette = { defaultColors={}, whiteColor = {r=255, g=255, b=255}, bgColor = {r=63, g=31, b=60}, isOneBit = false } astropalette = { white = {218, 242, 233}, light_blue = {149, 224, 204}, blue = {57, 112, 122}, dark_blue = {35, 73, 93}, bg = {28, 38, 56}, red = {241, 78, 82}, dark_red = {155, 34, 43}, black = {0, 0, 0}, } function palette.toggle1Bit() -- ذ½ذµذ±ذ¾ذ»رŒرˆذ°رڈ ذ؟ذ¾ذ´ذ¼ذµذ½ذ° palette.toggleAstroPalette() --[[ for id = 1, 15 do local color if not palette.isOneBit then if id == 6 then color = palette.bgColor else color = palette.whiteColor end else color = palette.defaultColors[id] end palette.colorChange(id, color.r, color.g, color.b) end palette.isOneBit = not palette.isOneBit --]] end function palette.toggleAstroPalette() palette.isOneBit = not palette.isOneBit if not palette.isOneBit then for id = 1, 15 do local color = palette.defaultColors[id] palette.colorChange(id, color.r, color.g, color.b) end return end palette.colorChange(0, astropalette.bg[1], astropalette.bg[2], astropalette.bg[3]) palette.colorChange(1, astropalette.red[1], astropalette.red[2], astropalette.red[3]) palette.colorChange(2, astropalette.blue[1], astropalette.blue[2], astropalette.blue[3]) palette.colorChange(3, astropalette.light_blue[1], astropalette.light_blue[2], astropalette.light_blue[3]) palette.colorChange(4, astropalette.blue[1], astropalette.blue[2], astropalette.blue[3]) palette.colorChange(5, astropalette.blue[1], astropalette.blue[2], astropalette.blue[3]) palette.colorChange(6, astropalette.black[1], astropalette.black[2], astropalette.black[3]) palette.colorChange(7, astropalette.dark_red[1], astropalette.dark_red[2], astropalette.dark_red[3]) palette.colorChange(8, astropalette.light_blue[1], astropalette.light_blue[2], astropalette.light_blue[3]) palette.colorChange(9, astropalette.blue[1], astropalette.blue[2], astropalette.blue[3]) palette.colorChange(10, astropalette.dark_blue[1], astropalette.dark_blue[2], astropalette.dark_blue[3]) palette.colorChange(11, astropalette.white[1], astropalette.white[2], astropalette.white[3]) palette.colorChange(12, astropalette.white[1], astropalette.white[2], astropalette.white[3]) palette.colorChange(13, astropalette.white[1], astropalette.white[2], astropalette.white[3]) palette.colorChange(14, astropalette.red[1], astropalette.red[2], astropalette.red[3]) palette.colorChange(15, astropalette.light_blue[1], astropalette.light_blue[2], astropalette.light_blue[3]) end function palette.getColor(id) color = {} color.r = peek(ADDR+(id*3)) color.g = peek(ADDR+(id*3)+1) color.b = peek(ADDR+(id*3)+2) return color end function palette.colorChange(id, red, green, blue) -- id -- color index in tic80 palette -- red, green, blue -- new color parameters poke(ADDR+(id*3), red) poke(ADDR+(id*3)+1, green) poke(ADDR+(id*3)+2, blue) end function palette.ghostColor(GC) -- رڈ ذ؟ذ¾ذ½رڈر‚ذ¸رڈ ذ½ذµ ذ¸ذ¼ذµرژ ذ؛ذ°ذ؛ رچر‚ذ¾ ر€ذ°ذ±ذ¾ر‚ذ°ذµر‚ -- رڈ ر‚ذ¾ذ¶ذµ ًںکژًںکژ -- ذ’رپذµذ¼ ذ؟ر€ذ¸ذ²ذµر‚, ر€ذµذ±رڈر‚ذ° ًں¤  -- ذ·ذ´ذµرپرŒ GC = 11 local id = GC -- id ر†ذ²ذµر‚ذ° poke(ADDR+(id*3)+2, peek(ADDR)) -- red poke(ADDR+(id*3)+1, peek(ADDR+1)) -- green poke(ADDR+(id*3), peek(ADDR+2)) -- blue end for i = 1, 15 do local color = palette.getColor(i) table.insert(palette.defaultColors, color) end -- return palette -- Rect.lua Rect = {} -- (x y): left top coordinates function Rect:new(x, y, w, h) local obj = { x = x, y = y, w = w, h = h, halfWidth = w / 2, halfHeight = h / 2, } setmetatable(obj, self) self.__index = self return obj end function Rect:left() return self.x end function Rect:right() return self.x + self.w end function Rect:up() return self.y end function Rect:down() return self.y + self.h end function Rect:centerX() return self.x + self.halfWidth end function Rect:centerY() return self.y + self.halfHeight end function Rect:isObjectRight(object, objectWidth) return self:right() < object.x + objectWidth end function Rect:isObjectLeft(object) return self.x > object.x end function Rect:isObjectAbove(object) return self.y > object.y end function Rect:isObjectBelow(object, objectHeight) return self:down() < object.y + objectHeight end function Rect:isObjectInside(object, objectWidth, objectHeight) return not self:isObjectAbove(object) and not self:isObjectBelow(object, objectHeight) and not self:isObjectLeft(object) and not self:isObjectRight(object, objectWidth) end function Rect:move(dx, dy) self.x = self.x + dx self.y = self.y + dy end function Rect:moveLeftTo(x) self.x = x end function Rect:moveRightTo(x) self.x = x - self.w end function Rect:moveUpTo(y) self.y = y end function Rect:moveDownTo(y) self.y = y - self.h end function Rect:moveCenterTo(x, y) self.x = x - self.halfWidth self.y = y - self.halfHeight end function Rect:drawDebug() rect( self.x - gm.x * 8 + gm.sx, self.y - gm.y * 8 + gm.sy, self.w, self.h, 1 ) end -- return Rect -- Queue.lua Queue = {} function Queue:new() local obj = { head = 1, tail = 1, items = {}, } setmetatable(obj, self) self.__index = self return obj end function Queue:count() --additional +1 return self.head - self.tail + 1 - 1 end function Queue:enqueue(item) table.insert(self.items, self.head, item) self.head = self.head + 1 end function Queue:dequeue() if self:count() == 0 then error('Queue has no elements!') end item = self.items[self.tail] self.tail = self.tail + 1 return item end -- Stack.lua Stack = {} function Stack:new() local obj = { items = {}, head = 1, } setmetatable(obj, self) self.__index = self return obj end function Stack:count() return self.head - 1 end function Stack:push(item) table.insert(self.items, self.head, item) self.head = self.head + 1 end function Stack:pop() item = table.remove(self.items, self.head - 1) self.head = self.head - 1 return item end -- Particle.lua Particle = table.copy(Body) function Particle:new(x, y, sprite) local object = { x = x, y = y, velocity = {x = 0, y = 0}, sprite = sprite:copy() } table.insert(game.updatables, object) table.insert(game.drawables, object) setmetatable(object, self) self.__index = self return object end function Particle:setVelocity(x, y) self.velocity = {x=x, y=y} end function Particle:_move() self.x = self.x + self.velocity.x self.y = self.y + self.velocity.y end function Particle:update() self:_move() end function Particle:draw() self.sprite:draw(self.x - 1 - gm.x*8 + gm.sx, self.y - 1 - gm.y*8 + gm.sy, self.flip, self.rotate) end -- Whirl.lua Whirl = table.copy(Body) function Whirl:new(x, y, fadeTimeMs) local spr = data.Snowman.whirl.sprite:copy() local object = { x = x, y = y, trail = {}, sprite = spr, hitbox = Hitbox:new_with_shift(x, y, x+8, y+4, 0, 2), fadeTimeMs = fadeTimeMs, } local time = 0 object.timer = function() time = time + Time.dt() if time > object.fadeTimeMs then return true end end setmetatable(object, self) self.__index = self return object end function Whirl:_destroy() table.insert(game.deleteSchedule, self) end function Whirl:_kill() if self.hitbox:collide(game.player.hitbox) then game.player:die() self:_destroy() end end function Whirl:update() self:_kill() local isEnded = self.timer() if isEnded then self:_destroy() end end function Whirl:draw() self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) end -- return Whirl -- AnimationOver.lua --ذ­ذ؟ذ¸ذ؛ذ³ر€ذ°ر„ -- " --ذگ رڈ ذ½ذµ ذ´رƒر€ذ°ذ؛ ًںک‰" AnimationOver = {} function AnimationOver:new(sprite, focusStatus, preInitStatus) local startStatus = 'waiting' if preInitStatus ~= nil then startStatus = preInitStatus end local obj2 = { x = 0, y = 0, sprite = sprite:copy(), flip = 0, -- for sprite drawing rotate = 0, -- for sprite drawing status = startStatus, focusStatus = focusStatus, is_focused = false, } -- ر‡ذ¸رپر‚ذ°رڈ ذ¼ذ°ذ³ذ¸رڈ! setmetatable(obj2, self) self.__index = self; return obj2 end function AnimationOver.clearUsuless(currentAnimations) -- ذµرپذ»ذ¸ ذ¼ذ½ذ¾ذ³ذ¾ ذ°ذ½ذ¸ذ¼ذ°ر†ذ¸ذ¹ ذ½ذ°ذ؛ذ¾ذ؟ذ¸ذ»ذ¾رپرŒ, ذ¼ذ¾ذ¶ذ½ذ¾ ذ¸ر… ذ¾ر‡ذ¸رپر‚ذ¸ر‚رŒ, ذ؛ر€رƒر‚ذ¾ local newCurrentAnimations = {} for _, anime in ipairs(currentAnimations) do if anime.status ~= 'garbage' then table.insert(newCurrentAnimations, anime) end end return newCurrentAnimations end function AnimationOver:changeStats(newStats) --meh {x = newX, y = NewY, sprite = ...} end function AnimationOver:activate() self.status = 'active' end function AnimationOver:deActivate() self.status = 'waiting' end function AnimationOver:activateSingleTime() self.status = 'activeOnes' end function AnimationOver:activateSingleTimeWithDelitionFlag() -- ذ¼ذ¾ذ¶ذµر‚ذµ ذ·ذ²ذ°ر‚رŒ رچر‚ذ¾ ذ؛ذ¾رپر‚ر‹ذ»ر‘ذ¼... self.status = 'activeOnesDelete' end function AnimationOver:focus(x1, y1, x2, y2) -- focusing on target area if self.is_focused then return end if self.focusStatus == 'static' then self.x = x1 self.y = y1 self.is_focused = true elseif self.focusStatus == 'randomOn' then self.x = x1 + math.random(math.ceil(x2 - x1)) self.y = y1 + math.random(math.ceil(y2 - y1)) self.is_focused = true end end function AnimationOver:_draw() self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) -- drawing~ end function AnimationOver:_spriteUpdate() --trace('updating sprite') self.sprite:nextFrame() -- nexting~ end function AnimationOver:play() -- playing the animation if self.status == 'active' then self:_draw() self:_spriteUpdate() elseif self.status == 'activeOnes' then self:_draw() self:_spriteUpdate() if self.sprite:animationEnd() then self.status = 'waiting' end elseif self.status == 'activeOnesDelete' then self:_draw() self:_spriteUpdate() if self.sprite:animationEnd() then self.status = 'garbage' end end end -- Fruit.lua fruitsCollection = { collected = 0, needed = 0, } FruitPopup = { timeOnScreen = 0, timeToStay = 0, } function FruitPopup:show(stayTimeMilliseconds) self.timeOnScreen = 0 self.timeToStay = stayTimeMilliseconds end local goToBikeSprite = StaticSprite:new(308, 4) function FruitPopup:draw() if fruitsCollection.collected == fruitsCollection.needed then rect(0, MAP_HEIGHT-30, 54, 40, 8) print('GoTo\nBike', 4, MAP_HEIGHT-26, 0, true, 2) return end if self.timeOnScreen < self.timeToStay then local digitCount = math.ceil(math.log(fruitsCollection.collected + 1, 10)) + math.ceil(math.log(fruitsCollection.needed, 10)) width = 16 + 12 * digitCount rect(0, MAP_HEIGHT-16, width, 20, 8) print( fruitsCollection.collected .. '/' .. fruitsCollection.needed, 3, MAP_HEIGHT-12, 0, true, 2 ) self.timeOnScreen = self.timeOnScreen + Time.dt() end end local Fruit = table.copy(Body) function Fruit:new(id, x, y) local sprite1 = Sprite:new({id}, 1) local sprite2 = Sprite:new({id+1}, 1) local obj = { x = x, y = y, id = id, collected = false, sprite = sprite1, sprite1 = sprite1, sprite2 = sprite2, hitbox = Hitbox:new(x, y, x+8, y+8), } setmetatable(obj, self) self.__index = self return obj end function Fruit:update() if game.metronome.beat4 then if self.sprite == self.sprite1 then self.sprite = self.sprite2 else self.sprite = self.sprite1 end end if self.collected then table.insert(game.deleteSchedule, self) -- ذ§ر‚ذ¾ذ±ر‹ ذ½ذµ ر€ذµرپذ؟ذ°ذ²ذ½ذ¸ذ»رپرڈ ذ؟ذ¾رپذ»ذµ رپذ¼ذµر€ر‚ذ¸ ذ¸ذ³ر€ذ¾ذ؛ذ° ًں‘چ end if not self.collected and self.hitbox:collide(game.player.hitbox) then fruitsCollection.collected = fruitsCollection.collected + 1 -- ًں”ٹًں¤¯ local sound = data.fruitSFX[self.id] sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) table.removeElement(game.fruits, self) -- ذ§ر‚ذ¾ذ±ر‹ ذ½ذµ ر€ذµرپذ؟ذ°ذ²ذ½ذ¸ذ»رپرڈ ذ؟ذ¾رپذ»ذµ رپذ¼ذµر€ر‚ذ¸ ذ¸ذ³ر€ذ¾ذ؛ذ° ًں‘چ table.insert(game.deleteSchedule, self) self.collected = true FruitPopup:show(1000) -- 2 ذ،ذµذ؛رƒذ½ذ´ر‹, ذ½ذ¸ ذ±ذ¾ذ»رŒرˆذµ ذ½ذ¸ ذ¼ذµذ½رŒرˆذµ ًںکژ end end function isFruit(tileID) local fruitIDs = {144, 145, 160, 161, 176, 177, 192, 193} return table.contains(fruitIDs, tileID) end function getFruitSprite(tileID) return Sprite:new({tileID}, 1) end function createFruits() local fruits = {} for x = 0, MAP_WIDTH do for y = 0, MAP_HEIGHT do local id = mget(x, y) if isFruit(id) then local fruit = Fruit:new(id, 8*x, 8*y) table.insert(fruits, fruit) mset(x, y, 0) end end end return fruits end -- MapAreas.lua MapAreas = {} AreaToEnemies = {} function MapAreas.generate() local areas = {} local transitionTiles = {} local visitedTiles = {} local function ind(x, y) return y * MAP_WIDTH + x end local function isdoor(x, y) local id = mget(x, y) local doorIds = data.mapConstants.doorIds return table.contains(doorIds, id) end local function iswall(x, y) local id = mget(x, y) local wallIds = data.Map.WallTileIds return table.contains(wallIds, id) end local function isborder(x, y) return iswall(x, y) or isdoor(x, y) end local function areabfs(x, y) local area = {} local queue = Queue:new() queue:enqueue({x=x, y=y}) while queue:count() > 0 do local tile = queue:dequeue() local x, y = tile.x, tile.y if visitedTiles[ind(x, y)] or iswall(x, y) then goto continue elseif isdoor(x, y) then table.insert(transitionTiles, {x=x, y=y, area=(#areas + 1)}) goto continue end table.insert(area, tile) visitedTiles[ind(x, y)] = true if x > 0 then queue:enqueue({x=x-1, y=y}) end if x < MAP_WIDTH then queue:enqueue({x=x+1, y=y}) end if y > 0 then queue:enqueue({x=x, y=y-1}) end if y < MAP_HEIGHT then queue:enqueue({x=x, y=y+1}) end ::continue:: end return area end for x = 0, MAP_WIDTH do for y = 0, MAP_HEIGHT do if visitedTiles[ind(x, y)] or isborder(x, y) then goto continue end local area = areabfs(x, y) table.insert(areas, area) ::continue:: end end return areas, transitionTiles end function MapAreas.CookEnemies() for i, area in ipairs(game.areas) do AreaToEnemies[i] = {} end for _, enemy in ipairs(game.enemies) do local enemyLocation = MapAreas.findAreaWithTile(enemy.x // 8, enemy.y // 8) table.insert(AreaToEnemies[enemyLocation], enemy) end end function MapAreas.findAreaWithTile(tilex, tiley) for i, area in ipairs(game.areas) do for _, tile in ipairs(area) do if tile.x == tilex and tile.y == tiley then return i end end end end -- GlobalMap.lua gm = {} gm.x = 0 -- global map X gm.y = 0 -- glabal map Y gm.sx = 0 -- start map X 0w0 gm.sy = 0 -- start map Y >:( TileType = { Void = 0, Solid = 1, Enemy = 2, } function gm.getTileId(x,y) return mget(x, y) end function gm.getTileType(x, y) x = x % (240 * 8) y = y % (136 * 8) x = x // 8 y = y // 8 return gm.getTileType8(x, y) end function gm.getTileType8(x, y) -- x, y ذ´ذ°رژر‚رپرڈ ذ؛ذ°ذ؛ ذ؛ذ¾ذ¾ر€ذ´ذ¸ذ½ذ°ر‚ر‹ ر‚ذ°ذ¹ذ»ذ° ذ½ذ° ذ³ذ»ذ¾ذ±ذ°ذ»رŒذ½ذ¾ذ¹ ذ؛ذ°ر€ر‚ذµ local tileId = mget(x, y) if table.contains(data.solidTiles, tileId) then --ذ´ذ²ذµر€ذ¸ ذ½ذµ ر‚ذ²ذµر€ذ´ر‹ذµ ًں™ˆ return TileType.Solid elseif table.contains(data.bfs.solidTiles, tileId) then -- ر‚ذµذ؟ذµر€رŒ ر‚ذ²ر‘ر€ذ´ر‹ذµ ًں™‰ return TileType.Solid end return TileType.Void end function gm.isBlockingBfs(x, y) local tileId = mget(x, y) if table.contains(data.solidTiles, tileId) then --ذ´ذ²ذµر€ذ¸ ذ½ذµ ر‚ذ²ذµر€ذ´ر‹ذµ ًں™ˆ ًںکژًںکژًںکژًںکژ return true elseif table.contains(data.bfs.solidTiles, tileId) then return true else for _, entile in ipairs(game.enemyRespawn) do -- ذ؟ر€ذ¾ذ²ذµر€رڈذµذ¼ ذ½ذ° رپر‚ذ¾ذ»ذ؛ذ½ذ¾ذ²ذµذ½ذ¸ذµ رپ ذ²ر€ذ°ذ³ذ°ذ¼ذ¸.（مپ¥ï؟£3ï؟£ï¼‰مپ¥â•­(ذ¾ذ½ذ¸ ر‚ذ¾ذ¶ذµ ر‚ذ²ذµر€ذ´ر‹ذµ)ï½‍ --trace(entile.x..' '..entile.y..' '..x..' '..y..' ') if (entile.x == x) and (entile.y == y) then return true end end end return false end function gm.check(x, y) -- ذ°ر€ذ³رƒذ¼ذµذ½ر‚ر‹ -- ذ³ذ»ذ¾ذ±ذ°ذ»رŒذ½ر‹ذµ ذ؛ذ¾ذ¾ر€ذ´ذ¸ذ½ذ°ر‚ر‹ ذ؟ذ¸ذ؛رپذµذ»رڈ -- x = x % (240 * 8) -- y = y % (136 * 8) local res = {x = 0, y = 0} if gm.x * 8 > x then res.x = -1 elseif (gm.x+30) * 8 < x then res.x = 1 end if gm.y * 8 > y then res.y = -1 elseif (gm.y+17) * 8 < y then res.y = 1 end return res end function gm.is_ghost(tile) return (229 <= tile and tile <= 255) or tile == 144 or tile == 128 or tile == 192 or tile == 108 or tile == 110 end function gm.in_one_screen(obj1, obj2) local x1 = obj1.x local y1 = obj1.y local x2 = obj2.x local y2 = obj2.y return math.round(x1 // 240) == math.round(x2 // 240) and math.round(y1 // 136) == math.round(y2 // 136) end -- return gm -- Time.lua Time = { t = 0, delta = 0, } function Time.update() local time = time() Time.delta = time - Time.t Time.t = time end function Time.dt() return Time.delta end function Time.dt_in_60fps() -- 60 / 1000 == 0.06 return Time.dt() * 0.06 end -- Timer.lua GameTimers = { timers = {} } Timer = {} function GameTimers.addTimer(timer) table.insert(GameTimers.timers, timer) timer:onEnd(function() table.removeElement(GameTimers.timers, timer) end) end function GameTimers.update() for _, timer in ipairs(GameTimers.timers) do timer:update() end end function Timer:new(durationMs) local obj = { durationMs = durationMs, elapsed = 0, onElapsed = {}, } setmetatable(obj, self) self.__index = self; GameTimers.addTimer(obj) return obj end function Timer:onEnd(onElapsed) table.insert(self.onElapsed, onElapsed) return self end function Timer:update() self.elapsed = self.elapsed + Time.dt() if self:ended() then for _, onElapsed in ipairs(self.onElapsed) do onElapsed() end end end function Timer:ended() return self.elapsed >= self.durationMs end function Timer:reset() self.elapsed = 0 end -- Metronome.lua Metronome = {} -- -- msPerBeat explanation :D -- -- BPM = Beats / Minute -- Minute = Beats / BPM -- -- For one beat: -- Minute = 1 / BPM -- -- To milliseconds: -- 60 * 1000 * Minute = (60 * 1000) / BPM -- -- Milliseconds = (60 * 1000) / BPM -- function Metronome:new(bpm) local obj = { time = 0, msPerBeat = (60 * 1000) / bpm, onBeat = false, onBass = true, onOddBeat = false, onEvenBeat = false, beatCount = 0, } obj.smallTick = obj.msPerBeat, setmetatable(obj, self) self.__index = self; return obj end function Metronome:msBeforeNextBeat() return self.msPerBeat - (self.time % self.msPerBeat) end function Metronome:_onBeat() self.onBeat = true end function Metronome:_onOddBeat() self.onOddBeat = true end function Metronome:_onEvenBeat() self.onEvenBeat = true end function Metronome:update() if self.onBeat then self.onBeat = false self.onEvenBeat = false self.onOddBeat = false end if self.time >= self.msPerBeat then self:_onBeat() if self.beatCount % 2 == 1 then self:_onOddBeat() else self:_onEvenBeat() end self.beatCount = self.beatCount + 1 self.time = 0 end self.time = self.time + Time.dt() end -- Metronome4_4.lua Metronome4_4 = table.copy(Metronome) function Metronome4_4:new(bpm) bpm = bpm * M44 -- ر‚ذµذ؟ذµر€رŒ ذ½ذ° ذ¾ذ´ذ½رƒ ر‡ذµر‚ذ²ذµر€ر‚رŒ ذ؟ر€ذ¸ر…ذ¾ذ´ذ¸ر‚رپرڈ M44 رƒذ´ذ°ر€ذ¾ذ² ذ²ذ¼ذµرپر‚ذ¾ 1 local obj = { time = 0, msPerBeat = (60 * 1000) / bpm, onBeat = false, beatCount = 0, beat4 = false, beat4Count = 0, -- ر‡ذ¸رپذ»ذ¾ ذ¾ر‚ 0 ذ´ذ¾ 3 beat8 = false, beat8Count = 0, beat16 = false, beat16Count = 0, beat32 = false, beat32Count = 0, beat6 = 0, -- ذ¢ذ ذکذ‍ذ›ذک beat6Count = 0, } setmetatable(obj, self) self.__index = self; return obj end function Metronome4_4:_onBeat() self.onBeat = true self.beatCount = self.beatCount + 1 if self.beatCount % M44 == 0 then self.beat4 = true -- self.beat4Count = (self.beat4Count + 1) % 4 end if self.beatCount % (M44 // 2) == 0 then self.beat8 = true -- self.beat8Count = (self.beat8Count + 1) % 8 end if self.beatCount % (M44 // 4) == 0 then self.beat16 = true -- self.beat8Count = (self.beat8Count + 1) % 8 end if self.beatCount % (M44 // 8) == 0 then self.beat32 = true -- self.beat8Count = (self.beat8Count + 1) % 8 end if self.beatCount % ((M44 * 2) // 3) == 0 then self.beat6 = true -- self.beat6Count = (self.beat6Count + 1) % 6 end end function Metronome4_4:_beatsOff() self.onBeat = false self.beat4 = false self.beat8 = false self.beat16 = false self.beat32 = false self.beat6 = false end function Metronome4_4:update() self:_beatsOff() if self.time >= self.msPerBeat then self:_onBeat() self.time = 0 end self.time = self.time + Time.dt() end -- Enemy.lua Enemy = table.copy(Body) function Enemy:new(x, y) local obj = { sprite = data.Enemy.sprites.defaultSprite, x = x, y = y, flip = 0, hitbox = Hitbox:new(x, y, x + 8, y + 8), hp = data.Enemy.defaultHP, isEnemy = true, currentAnimations = {}, isActive = false, -- ذ°ذ؛ر‚ذ¸ذ²ذ¸ر€رƒذµر‚رپرڈ, ذ؛ذ¾ذ³ذ´ذ° ذ² ذ·ذ¾ذ½رƒ ذ²ر…ذ¾ذ´ذ¸ر‚ ذ¸ذ³ر€ذ¾ذ؛ } setmetatable(obj, self) self.__index = self return obj end function Enemy:_drawAnimations() for _, anime in ipairs(self.currentAnimations) do anime:play() end end function Enemy:_focusAnimations() local center_x local center_y -- What the fuck??? +10000% code speedup ذ؛ذ¾ذ³ذ´ذ° رڈ رƒذ±ر€ذ°ذ» رپذ¾ذ·ذ´ذ°ذ½ذ¸ذµ ر‚ذ°ذ±ذ»ذ¸ر†ر‹, -- ر‡ر‚ذ¾ ذ·ذ° ر‚رƒذ؟ذ°رڈ ر…ر€ذµذ½رŒ???! if self.hitbox.type == 'hitcircle' then local x1 = self.hitbox.x local x2 = self.hitbox.x + self.hitbox.d local y1 = self.hitbox.y local y2 = self.hitbox.y + self.hitbox.d center_x = x1 + (x2 - x1) / 2 center_y = y1 + (y2 - y1) / 2 else local x1 = self.hitbox.x1 local y1 = self.hitbox.y1 center_x = x1 + (self.hitbox.x2 - x1) / 2 center_y = y1 + (self.hitbox.y2 - y1) / 2 end local width = self.hitbox:getWidth() local height = self.hitbox:getHeight() -- ر‡ر‚ذ¾ذ±ر‹ ذ°ذ½ذ¸ذ¼ذ°ر†ذ¸رڈ ذ؟ر€ذ¾ذ¸ذ³ر€ر‹ذ²ذ°ذ»ذ°رپرŒ ذ²ذ¾ذ؛ر€رƒذ³ ذ؟ر€ذ¾ر‚ذ¸ذ²ذ½ذ¸ذ؛ذ° ر€ذ°ذ²ذ½ذ¾ذ¼ذµر€ذ½ذ¾ local x1 = center_x - width local x2 = center_x local y1 = center_y - height local y2 = center_y for _, anime in ipairs(self.currentAnimations) do anime:focus(x1, y1, x2, y2) end end function Enemy:draw() self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) self:_drawAnimations() end function Enemy:update() if game.boomer.hitbox:collide(self.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end if self:isDeadCheck() then self:die() end self:_focusAnimations() if not self.isActive then return end end function Enemy:die() -- ذ­ر‚ذ¾ رپذ°ذ¼ر‹ذ¹ ذ´ر€ذµذ²ذ½ذ¸ذ¹ trace ذ² ذ½ذ°رˆذµذ¹ ذ؛ذ¾ذ´ذ¾ذ²ذ¾ذ¹ ذ±ذ°ذ·ذµ! ًں¦– trace("I AM DEAD!!!") if self.deathSound ~= nil then local sound = self.deathSound sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) else trace('ذ’ذ¾ذ·ذ¼ذ¾ذ¶ذ½ذ¾ ذ¾رˆذ¸ذ±ذ؛ذ°: ذ£ ذ²ر€ذ°ذ³ذ° ذ½ذµر‚رƒ ذ·ذ²رƒذ؛ذ° رپذ¼ذµر€ر‚ذ¸') end table.removeElement(game.updatables, self) table.removeElement(game.drawables, self) table.removeElement(game.collideables, self) end function Enemy:isDeadCheck() return self.hp == 0 end function Enemy:takeDamage(damage) table.insert(self.currentAnimations, AnimationOver:new(table.chooseRandomElement(data.Enemy.sprites.hurtEffect), 'randomOn', 'activeOnes') ) -- رچر‚ذ¾ ذ¼ذ¾ذ¶ذµر‚ ذ¾ذ؛ذ°ذ·ذ°ر‚رŒرپرڈ ذ½ذµرچر„ر„ذµذ؛ر‚ذ¸ذ²ذ½ذ¾ self.hp = math.fence(self.hp - damage, 0, self.hp) if self.hp >= 0 and self.damageSound ~= nil then -- kawaii-Code@boomerang2.com: -- ذ¯ رپذ½ذ°ر‡ذ°ذ»ذ° ذ؛ذ¾ذ؟ذ¸ذ؟ذ°رپر‚ذ¸ذ» ذ؛ذ¾ذ´ ذ·ذ²رƒذ؛ذ° ذ² update ذ؛ذ°ذ¶ذ´ذ¾ذ¼رƒ ذ²ر€ذ°ذ³رƒ ذ¾ر‚ذ´ذµذ»رŒذ½ذ¾, ذ¸ ذ²ذ¾ر‚ -- ذ؛ذ°ذ؛ذ¸ذµ ذ؛ذ¾ذ¼ذ¼ذµذ½ر‚ذ°ر€ذ¸ذ¸ رڈ ذ؟ر€ذ¸ رچر‚ذ¾ذ¼ ذ¾رپر‚ذ°ذ²ذ»رڈذ» (ذ² ر…ر€ذ¾ذ½ذ¾ذ»ذ¾ذ³ذ¸ر‡ذµرپذ؛ذ¾ذ¼ ذ؟ذ¾ر€رڈذ´ذ؛ذµ): -- -- 1. ذگ ذ¼ذ¾ذ¶ذµر‚ رچر‚ذ¾ ذ¾ر‚ذ؟ر€ذ°ذ²ذ¸ر‚رŒ ذ² takeDamage? -- -- 2. ذ‌رƒ, ذ؟ذ¾-ر…ذ¾ر€ذ¾رˆذµذ¼رƒ ذ½رƒذ¶ذ½ذ¾ ذ¾ر‚ذ؟ر€ذ°ذ²ذ¸ر‚رŒ, ر‡ر‚ذ¾ذ±ر‹ ذ؟ذµر€ذµذ¸رپذ؟ذ¾ذ»رŒذ·ذ¾ذ²ذ°ر‚رŒ ذ²ذ°ذ¶ذ½ر‹ذ¹ ذ؛ذ¾ذ´. -- -- 3. ذœذ¾ذ¶ذ½ذ¾ ذ´ذ°ذ¶ذµ ذ¸رپذ؟ذ¾ذ»رŒذ·ذ¾ذ²ذ°ر‚رŒ ذ²ذ¼ذµرپر‚ذ¾ EnemyDeathSounds EnemyConfig! -- ذ¢ذ¾ذ³ذ´ذ° takeDamage ذ±رƒذ´ذµر‚ رƒذ½ذ¸ذ²ذµر€رپذ°ذ»رŒذ½ر‹ذ¼ ذ´ذ»رڈ ذ²رپذµر…! ذڑذ°ذ؛ذ°رڈ ذ¾ر‚ذ»ذ¸ر‡ذ½ذ°رڈ -- ذ¸ذ´ذµرڈ! ًںکٹ if game.metronome.beat16 then -- ذ­ر‚ذ¾ر‚ ذ؛ذ¾ذ´ رƒ ذ¼ذµذ½رڈ ذ؛ذ¾ذ¼ذ؟ذ¸ذ»ذ¸ر€ذ¾ذ²ذ°ذ»رپرڈ!!! ذ§ر‚ذ¾? ًںک« -- local sound game.soundsQueue:dequeue() local sound = self.damageSound sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) end end end -- BulletHell.lua BulletHell = table.copy(Enemy) function BulletHell:new(x, y, config) local bullets = {} for i = 1, config.bulletCount do bullets[i] = HellBullet:new() end local radius = math.floor(config.circleDiameter / 2) - 2 local object = { x = x, y = y, type = type, spread = config.bulletSpreadRadius, bullets = bullets, bulletCount = config.bulletCount, bulletSpeed = config.bulletSpeed, bulletSprite = bulletSprite, damageSound = data.EnemyDamageSounds.BulletHell, deathSound = data.EnemyDeathSounds.BulletHell, rotationSpeed = config.bulletRotationSpeed, deathBulletSpeed = config.deathBulletSpeed, hp = config.hp, hitbox = HitCircle:new(x+1, y+1, config.circleDiameter), radius = radius, time = 0, status = '', color = config.color, reloadingTimer = 0, reloadingBullets = {}, currentAnimations = {}, isActive = false, } BulletHell._moveBullets(object, 0) setmetatable(object, self) self.__index = self return object end function BulletHell:_selectBullet() local minDist = 2147483647 local minId = -1 for i, bull in ipairs(self.bullets) do local dirX = game.player.x - bull.x local dirY = game.player.y - bull.y local dist = math.sqrt(dirX * dirX + dirY * dirY) if dist < minDist then minDist = dist minId = i end end local byTouchId = (minId + self.bulletCount - self.bulletCount // 4 - 1) % self.bulletCount + 1 return byTouchId end function BulletHell:_shoot() local byTouchId = self:_selectBullet() while table.contains(self.reloadingBullets, self.bullets[byTouchId]) do byTouchId = byTouchId + 1 if byTouchId > #self.bullets then byTouchId = 1 end end table.insert(self.reloadingBullets, self.bullets[(byTouchId - 1) % 8 + 1]) local bull = self:_createShootBullet() bull.x = self.bullets[byTouchId].x bull.y = self.bullets[byTouchId].y bull.hitbox:set_xy(bull.x, bull.y) local function randomFactor() return 16 * (2 * math.random() - 1) end bull:vectorUpdateByTarget(game.player.x + randomFactor(), game.player.y + randomFactor()) end function BulletHell:_createShootBullet() local bull = Bullet:new(0, 0, self.bulletSprite) bull.speed = self.bulletSpeed table.insert(game.drawables, bull) table.insert(game.updatables, bull) return bull end function BulletHell:launchBulletsAround() for i = 1, #self.bullets do local bullet = self:_createShootBullet() bullet.x = self.bullets[i].x bullet.y = self.bullets[i].y bullet.hitbox:set_xy(bullet.x, bullet.y) local directionX = bullet.x - (self.x + self.radius) local directionY = bullet.y - (self.y + self.radius) local speed = self.deathBulletSpeed bullet:setVelocity(speed * directionX, speed * directionY) end end function BulletHell:update() if self.status == 'dying' then self.deathTick() return end if self:isDeadCheck() then self:launchBulletsAround() local time = 0 self.status = 'dying' self.deathTick = function() time = time + Time.dt() if time > data.BulletHell.deathTimeMs then self:die() end end return end if self.hitbox:collide(game.boomer.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end self:_focusAnimations() if not self.isActive then return end if game.metronome.onBeat then self:_shoot() end for i = 1, #self.bullets do self.bullets[i]:update() end end function BulletHell._moveBullets(bullethell, offset) local radius = bullethell.radius local step = 2 * math.pi / bullethell.bulletCount for i = 1, #bullethell.bullets do local pheta = i * step + bullethell.rotationSpeed * offset local x = math.round(bullethell.spread * math.cos(pheta)) local y = math.round(bullethell.spread * math.sin(pheta)) local bullet = bullethell.bullets[i] bullet:setPos(bullethell.x + radius + x, bullethell.y + radius + y) --ذ½ذµ ذ½ذ°رپر‚ذ¾رڈر‰ذ¸ذµ ذ؟رƒذ»ذ¸ end end function BulletHell:draw() if self.status == 'dying' then self.hitbox:drawOutline(self.color) return end if #self.reloadingBullets > 0 then self:_moveBullets(self.reloadingTimer) deletedBullet = nil for _, bullet in ipairs(self.reloadingBullets) do bullet:nextFrame() if bullet.sprite:animationEnd() then deletedBullet = bullet end end if deletedBullet then deletedBullet:nextFrame() table.removeElement(self.reloadingBullets, deletedBullet) end self.reloadingTimer = self.reloadingTimer + Time.dt() else self.reloadingTimer = 0 end self.hitbox:draw(self.color) for i = 1, #self.bullets do self.bullets[i]:draw(self.color) end --self.hitbox.hb:draw(1) self:_drawAnimations() end -- HellBullet.lua HellBullet = table.copy(Body) function HellBullet:new() local object = { x = 0, y = 0, speed = data.Bullet.defaultSpeed, sprite = data.Bullet.reloadAnimation:copy(), hitbox = Hitbox:new_with_shift(0, 0, 2, 2, 1, 1), status = 'idle', } setmetatable(object, self) self.__index = self return object end function HellBullet:setPos(x, y) self.x = x self.y = y self.hitbox:set_xy(x, y) end function HellBullet:nextFrame() self.sprite:nextFrame() end function HellBullet:update() if self.hitbox:collide(game.player.hitbox) then game.player:die() end end function HellBullet:draw(color) local x = self.x - gm.x*8 + gm.sx local y = self.y - gm.y*8 + gm.sy self.sprite:draw(self.x - 2 - 8*gm.x + gm.sx, self.y - 2 - 8*gm.y + gm.sy, self.flip, self.rotate) end -- AutoHellBullet.lua AutoHellBullet = table.copy(Body) local trash = Sprite:new(anim.gen({379, 0, 380, 381, 382}, 4), 1) function AutoHellBullet:new() local object = { x = 0, y = 0, speed = data.Bullet.defaultSpeed, sprite = trash:copy(), hitbox = Hitbox:new_with_shift(0, 0, 2, 2, 1, 1), status = 'idle', } setmetatable(object, self) self.__index = self return object end function AutoHellBullet:setPos(x, y) self.x = x self.y = y self.hitbox:set_xy(x, y) end function AutoHellBullet:nextFrame() self.sprite:nextFrame() end function AutoHellBullet:update() if self.hitbox:collide(game.player.hitbox) then game.player:die() end end function AutoHellBullet:draw(color) local x = self.x - gm.x*8 + gm.sx local y = self.y - gm.y*8 + gm.sy self.sprite:draw(self.x - 2 - 8*gm.x + gm.sx, self.y - 2 - 8*gm.y + gm.sy, self.flip, self.rotate) end -- AutoBulletHell.lua AutoBulletHell = table.copy(BulletHell) function AutoBulletHell:_shoot() local byTouchId = self:_selectBullet() local bull = self:_createShootBullet() bull.x = self.bullets[byTouchId].x bull.y = self.bullets[byTouchId].y bull.hitbox:set_xy(bull.x, bull.y) local kawaiiCode = aim.superAim(bull.x, bull.y, self.bulletSpeed) bull:setVelocity(kawaiiCode.x, kawaiiCode.y) bull.speed = self.bulletSpeed table.insert(self.reloadingBullets, self.bullets[(byTouchId - 1) % 8 + 1]) end function aim.superAim(startX, startY, bulletSpeed) -- dirx, diry - ذ½ذ°ذ؟ر€ذ°ذ²ذ»ذµذ½ذ¸ذµ ذ؛ ذ¸ذ³ر€ذ¾ذ؛رƒ -- local dirx = game.player.hitbox:get_center().x - startX -- local diry = game.player.hitbox:get_center().y - startY local dirx = -game.player.hitbox:get_center().x + startX -- رڈ ذ½ذµ ذ؟ذ¾ذ½ذ¸ذ¼ذ°رژ :( local diry = -game.player.hitbox:get_center().y + startY -- ذ½رƒ ذ»ذ°ذ´ذ½ذ¾ local dirX = game.player.dx local dirY = game.player.dy -- vx, vy - velocity ذ؛ر€ر‡. ذ‍ذ½ذ° ر‚ذ¾ر‡ذ½ذ¾ ذ؟ر€ذ°ذ²ذ¸ذ»رŒذ½ذ°رڈ local vx = dirX * game.player.speed local vy = dirY * game.player.speed if vx ~= 0 and vy ~= 0 then vx = vx * data.Player.movementNormalizerDiagonal vy = vy * data.Player.movementNormalizerDiagonal end local s = bulletSpeed -- ذڑذ²ذ°ذ´ر€ذ°ر‚ذ½ذ¾ذµ رƒر€ذ°ذ²ذ½ذµذ½ذ¸ذµ local a = vx*vx + vy*vy - s*s local b = dirx*vx + diry*vy local c = dirx*dirx + diry*diry local d = b*b - a * c local t = (-b + math.sqrt(d)) / a -- trace('t: ' .. t .. ' vx: ' .. vx .. ' vy: ' .. vy .. ' dirx: ' .. dirx .. ' diry: ' .. diry) -- ذ—ذ´ذµرپرŒ ذ؟ذ¾ t ذ½ذ°ر…ذ¾ذ´ذ¸ذ¼ ذ½رƒذ¶ذ½رƒرژ ذ½ذ°ذ¼ رپذ؛ذ¾ر€ذ¾رپر‚رŒ (ذ·ذ´ذµرپرŒ ذ¼ذ¾ذ¶ذµر‚ ذ±ر‹ر‚رŒ ذ¾رˆذ¸ذ±ذ؛ذ°!) local resX = dirx/t + vx local resY = diry/t + vy local vec = math.vecNormalize({x=resX, y=resY}) -- vec = {x=resX, y=resY} return { x = vec.x, y = vec.y, } end -- MusicBulletHell.lua MusicBulletHell = table.copy(BulletHell) -- function MusicBulletHell:tuning(beatMap, sfxMap) function MusicBulletHell:tuning(music) -- local sfxMap = music.sfxMap -- local beatMap = music.beatMap local sfxMap, beatMap if music.intro then sfxMap = music.intro.sfxMap beatMap = music.intro.beatMap self.reserveMusic = {} self.reserveMusic.sfxMap = music.sfxMap self.reserveMusic.beatMap = music.beatMap else sfxMap = music.sfxMap beatMap = music.beatMap end -- ذ¾ذ±رڈذ·ذ°ر‚ذµذ»رŒذ½ذ¾ ذ²ر‹ذ·ر‹ذ²ذ°ذµر‚رپرڈ ذ؟ذ¾رپذ»ذµ new ذ´ذ»رڈ ذ½ذ°رپر‚ر€ذ¾ذ¹ذ؛ذ¸ ذ¼رƒذ·ر‹ذ؛ذ¸ self.sfxMap = sfxMap self.i_sfxMap = 1 -- رپر‚ر€ذ¾ذ؛ذ° ذ¸ذ· 0, 1, رƒذ؛ذ°ذ·ر‹ذ²ذ°رژر‰ذ°رڈ ذ±ذ¸ر‚ر‹, ذ½ذ° ذ؛ذ¾ر‚ذ¾ر€ر‹ذµ رپر‚ر€ذµذ»رڈذµر‚ ر€ذ¾ذ·ذ° self.beatMap = beatMap self.i_beatMap = 1 if music.altBeatMap then self.altBeatMap = music.altBeatMap -- trace("!!!!!!!!! "..#self.altBeatMap) end end function MusicBulletHell:_full_shot() if self.beatMap[self.i_beatMap] == 0 then return end self:_shoot() local sound = self.sfxMap[self.i_sfxMap] sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6] ) self.i_sfxMap = (self.i_sfxMap % #self.sfxMap) + 1 end function MusicBulletHell:onBeat() if #self.beatMap == 4 then if not game.metronome.beat4 then return end self:_full_shot() elseif #self.beatMap == 8 then if not game.metronome.beat8 then return end self:_full_shot() elseif #self.beatMap == 16 then if not game.metronome.beat16 then return end self:_full_shot() elseif #self.beatMap == 32 then if not game.metronome.beat32 then return end self:_full_shot() elseif #self.beatMap == 24 then self:_full_shot() elseif #self.beatMap == 6 then if not game.metronome.beat6 then return end self:_full_shot() end -- self.i_beatMap = (self.i_beatMap % #self.beatMap) + 1 if not self.reserveMusic then self.i_beatMap = (self.i_beatMap % #self.beatMap) + 1 if self.altBeatMap and self.i_beatMap == 1 then local buf = table.copy(self.beatMap) self.beatMap = table.copy(self.altBeatMap) self.altBeatMap = buf -- trace(self.altBeatMap[1].." "..self.altBeatMap[2].." "..self.altBeatMap[3].." "..self.altBeatMap[4]) -- trace(self.beatMap[1].." "..self.beatMap[2].." "..self.beatMap[3].." "..self.beatMap[4]) end return end self.i_beatMap = self.i_beatMap + 1 if self.i_beatMap > #self.beatMap then self:tuning(self.reserveMusic) self.reserveMusic = false end end function MusicBulletHell:update() if self.status == 'dying' then self.deathTick() return end if self:isDeadCheck() then self:launchBulletsAround() local time = 0 self.status = 'dying' self.deathTick = function() time = time + Time.dt() if time > data.BulletHell.deathTimeMs then self:die() end end return end if self.hitbox:collide(game.boomer.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end self:_focusAnimations() if not self.isActive then return end if game.metronome.onBeat then self:onBeat() end for i = 1, #self.bullets do self.bullets[i]:update() end end -- MusicAutoBulletHell.lua MusicAutoBulletHell = table.copy(AutoBulletHell) -- local bulletSprite = 379 function MusicAutoBulletHell:new(x, y, config) local bullets = {} for i = 1, config.bulletCount do bullets[i] = AutoHellBullet:new() end local radius = math.floor(config.circleDiameter / 2) - 2 local object = { x = x, y = y, type = type, spread = config.bulletSpreadRadius, bullets = bullets, bulletCount = config.bulletCount, bulletSpeed = config.bulletSpeed, bulletSprite = bulletSprite, rotationSpeed = config.bulletRotationSpeed, deathBulletSpeed = config.deathBulletSpeed, hp = config.hp, hitbox = HitCircle:new(x+1, y+1, config.circleDiameter), radius = radius, time = 0, status = '', color = config.color, reloadingTimer = 0, reloadingBullets = {}, currentAnimations = {}, isActive = false, damageSound = data.EnemyDamageSounds.BulletHell, deathSound = data.EnemyDeathSounds.BulletHell, } BulletHell._moveBullets(object, 0) setmetatable(object, self) self.__index = self return object end -- function MusicAutoBulletHell:tuning(beatMap, sfxMap) function MusicAutoBulletHell:tuning(music) local sfxMap, beatMap if music.intro then sfxMap = music.intro.sfxMap beatMap = music.intro.beatMap self.reserveMusic = {} self.reserveMusic.sfxMap = music.sfxMap self.reserveMusic.beatMap = music.beatMap else sfxMap = music.sfxMap beatMap = music.beatMap end -- local sfxMap = music.sfxMap -- local beatMap = music.beatMap -- ذ¾ذ±رڈذ·ذ°ر‚ذµذ»رŒذ½ذ¾ ذ²ر‹ذ·ر‹ذ²ذ°ذµر‚رپرڈ ذ؟ذ¾رپذ»ذµ new ذ´ذ»رڈ ذ½ذ°رپر‚ر€ذ¾ذ¹ذ؛ذ¸ ذ¼رƒذ·ر‹ذ؛ذ¸ self.sfxMap = sfxMap self.i_sfxMap = 1 -- رپر‚ر€ذ¾ذ؛ذ° ذ¸ذ· 0, 1, رƒذ؛ذ°ذ·ر‹ذ²ذ°رژر‰ذ°رڈ ذ±ذ¸ر‚ر‹, ذ½ذ° ذ؛ذ¾ر‚ذ¾ر€ر‹ذµ رپر‚ر€ذµذ»رڈذµر‚ ر€ذ¾ذ·ذ° self.beatMap = beatMap self.i_beatMap = 1 if music.altBeatMap then self.altBeatMap = music.altBeatMap -- trace("!!!!!!!!! "..#self.altBeatMap) end end function MusicAutoBulletHell:_full_shot() if self.beatMap[self.i_beatMap] == 0 then return end self:_shoot() local sound = self.sfxMap[self.i_sfxMap] sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6] ) self.i_sfxMap = (self.i_sfxMap % #self.sfxMap) + 1 end function MusicAutoBulletHell:onBeat() if #self.beatMap == 4 then if not game.metronome.beat4 then return end self:_full_shot() elseif #self.beatMap == 8 then if not game.metronome.beat8 then return end self:_full_shot() elseif #self.beatMap == 16 then if not game.metronome.beat16 then return end self:_full_shot() elseif #self.beatMap == 24 then self:_full_shot() elseif #self.beatMap == 6 then if not game.metronome.beat6 then return end self:_full_shot() end if not self.reserveMusic then self.i_beatMap = (self.i_beatMap % #self.beatMap) + 1 return end self.i_beatMap = self.i_beatMap + 1 if self.i_beatMap > #self.beatMap then self:tuning(self.reserveMusic) self.reserveMusic = false end end local trash = Sprite:new({379}, 1) function MusicAutoBulletHell:_createShootBullet() local bull = Bullet:new(0, 0, trash) bull.speed = self.bulletSpeed table.insert(game.drawables, bull) table.insert(game.updatables, bull) return bull end function MusicAutoBulletHell:update() if self.status == 'dying' then self.deathTick() return end if self:isDeadCheck() then self:launchBulletsAround() local time = 0 self.status = 'dying' self.deathTick = function() time = time + Time.dt() if time > data.BulletHell.deathTimeMs then self:die() end end return end if self.hitbox:collide(game.boomer.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end self:_focusAnimations() if not self.isActive then return end if game.metronome.onBeat then self:onBeat() end for i = 1, #self.bullets do self.bullets[i]:update() end end function MusicAutoBulletHell:onBeat() if #self.beatMap == 4 then if not game.metronome.beat4 then return end self:_full_shot() elseif #self.beatMap == 8 then if not game.metronome.beat8 then return end self:_full_shot() elseif #self.beatMap == 16 then if not game.metronome.beat16 then return end self:_full_shot() elseif #self.beatMap == 32 then if not game.metronome.beat32 then return end self:_full_shot() elseif #self.beatMap == 24 then self:_full_shot() elseif #self.beatMap == 6 then if not game.metronome.beat6 then return end self:_full_shot() end -- self.i_beatMap = (self.i_beatMap % #self.beatMap) + 1 if not self.reserveMusic then self.i_beatMap = (self.i_beatMap % #self.beatMap) + 1 if self.altBeatMap and self.i_beatMap == 1 then local buf = table.copy(self.beatMap) self.beatMap = table.copy(self.altBeatMap) self.altBeatMap = buf -- trace(self.altBeatMap[1].." "..self.altBeatMap[2].." "..self.altBeatMap[3].." "..self.altBeatMap[4]) -- trace(self.beatMap[1].." "..self.beatMap[2].." "..self.beatMap[3].." "..self.beatMap[4]) end return end self.i_beatMap = self.i_beatMap + 1 if self.i_beatMap > #self.beatMap then self:tuning(self.reserveMusic) self.reserveMusic = false end end -- Rose.lua Rose = table.copy(Enemy) local ANIMATION_FRAME_DURATION_MS = 16 local ROSE_ANIMATION_DURATION_MS = 69 local LASER_WIDTH = 3 function Rose:new(x, y, direction, sprites, laserColor, config) -- direction: -- 0 - up -- 1 - down -- 2 - left -- 3 - right local flip = 0 local rotate = 0 local laserSpeed = 8 local laserdx = 0 local laserdy = 0 local laserbeginx = 0 local laserbeginy = 0 local hitboxx1 local hitboxy1 local hitboxx2 local hitboxy2 if direction == 0 then laserdy = -laserSpeed laserbeginx = x + 7 laserbeginy = y + 8 hitboxx1 = x + 3 hitboxy1 = y + 7 hitboxx2 = hitboxx1 + 10 hitboxy2 = hitboxy1 + 8 elseif direction == 1 then flip = 2 laserdy = laserSpeed laserbeginx = x + 7 laserbeginy = y + 16 - 8 hitboxx1 = x + 3 hitboxy1 = y + 1 hitboxx2 = hitboxx1 + 10 hitboxy2 = hitboxy1 + 8 elseif direction == 2 then flip = 1 rotate = 1 laserdx = -laserSpeed laserbeginx = x + 16 - 8 laserbeginy = y + 7 hitboxx1 = x + 7 hitboxy1 = y + 4 hitboxx2 = hitboxx1 + 9 hitboxy2 = hitboxy1 + 8 else rotate = 1 laserdx = laserSpeed laserbeginx = x + 8 laserbeginy = y + 7 hitboxx1 = x hitboxy1 = y + 4 hitboxx2 = hitboxx1 + 9 hitboxy2 = hitboxy1 + 8 end local damageSound local deathSound if config.isWeak then damageSound = data.EnemyDamageSounds.WeakRose deathSound = data.EnemyDeathSounds.WeakRose else damageSound = data.EnemyDamageSounds.Rose deathSound = data.EnemyDeathSounds.Rose end local obj = { sprite = sprites.idle, sprites = sprites, laserColor = laserColor, damageSound = damageSound, deathSound = deathSound, x = x, y = y, flip = flip, rotate = rotate, hitbox = Hitbox:new(hitboxx1, hitboxy1, hitboxx2, hitboxy2), laserbeginx = laserbeginx, laserbeginy = laserbeginy, laserdx = laserdx, laserdy = laserdy, speed = laserSpeed, laserHitbox = Hitbox:new(x + 7, y + 11 - 20, x + 7 + 3, y + 11), direction = direction, hp = config.startingHealth, status = 'idle', shooting = false, ticks = 0, ticksBeforeShot = data.Rose.metronomeTicksReloading, ticksShooting = data.Rose.metronomeTicksSpentShooting, currentAnimations = {}, isActive = false, } Rose.shoot(obj) setmetatable(obj, self) self.__index = self return obj end function Rose:onBeat() self.ticks = self.ticks + 1 if self.status == 'shootBegin' then if self.ticks == self.ticksBeforeShot then self.status = 'shooting' self:shoot() self.ticks = 0 end elseif self.status == 'shooting' then if self.ticks == self.ticksShooting then self.status = 'shootEnd' self.ticks = 0 end end end function Rose:handleBeat() if game.metronome.onBeat then self:onBeat() end end function Rose:update() if game.boomer.hitbox:collide(self.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end if self.status == 'dying' then self.sprite:nextFrame() if self.sprite:animationEnd() then self:die() end return end self:_focusAnimations() if not self.isActive then return end self:handleBeat() if self:isDeadCheck() then self.sprite = data.Rose.sprites.death:copy() self.status = 'dying' return end if game.metronome.onBass then self:onBeat() end if self.status == 'shooting' then if self.laserHitbox:collide(game.player.hitbox) then game.player:die() end end if self.status == 'idle' then if game.metronome:msBeforeNextBeat() <= ROSE_ANIMATION_DURATION_MS and not self.animation_playing then self.status = 'shootBegin' end end if self.status == 'shootBegin' then if not self.sprite:animationEnd() then self.sprite:nextFrame() end end if self.status == 'shootEnd' then frame = self.sprite:getFrame() if frame == 1 then self.status = 'idle' else self.sprite:setFrame(frame - 1) end end end function Rose:draw() if self.status == 'shooting' then self.laserHitbox:draw(self.laserColor) end self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) self:_drawAnimations() end function Rose:shoot() local laserHitbox = Hitbox:new(self.laserbeginx, self.laserbeginy, self.laserbeginx + 1, self.laserbeginy + 1) while laserHitbox:mapCheck() do local newx = laserHitbox.x1 + self.laserdx local newy = laserHitbox.y1 + self.laserdy laserHitbox:set_xy(newx, newy) end local x = laserHitbox.x1 - self.laserdx local y = laserHitbox.y1 - self.laserdy laserHitbox:set_xy(x, y) while laserHitbox:mapCheck() do local newx = laserHitbox.x1 + (self.laserdx / self.speed) local newy = laserHitbox.y1 + (self.laserdy / self.speed) laserHitbox:set_xy(newx, newy) end local x local y if self.direction == 0 or self.direction == 2 then x = laserHitbox.x1 - self.laserdx / self.speed y = laserHitbox.y1 - self.laserdy / self.speed else x = laserHitbox.x1 + self.laserdx / self.speed y = laserHitbox.y1 + self.laserdy / self.speed end local newHitbox if self.direction == 0 then newHitbox = Hitbox:new(x, y, x + LASER_WIDTH, self.laserbeginy) elseif self.direction == 1 then newHitbox = Hitbox:new(x, self.laserbeginy, x + LASER_WIDTH, y) elseif self.direction == 2 then newHitbox = Hitbox:new(x, y, self.laserbeginx, y + LASER_WIDTH) else newHitbox = Hitbox:new(self.laserbeginx, y, x, y + LASER_WIDTH) end self.laserHitbox = newHitbox end -- LongRose.lua LongRose = table.copy(Rose) function LongRose:onBeat() self.ticks = self.ticks + 1 if self.status == 'shootBegin' then if self.ticks == self.ticksBeforeShot then self.status = 'shooting' self:shoot() self.ticks = 0 end elseif self.status == 'shooting' then if self.ticks == self.ticksShooting then self.status = 'shootEnd' self.ticks = 0 end end end function LongRose:handleBeat() if game.metronome.onBass and self.status == 'shootBegin' then self.status = 'shooting' self:shoot() end if self.status == 'shooting' and not game.metronome.onBass then self.status = 'shootEnd' end end -- MusicRose.lua MusicRose = table.copy(LongRose) -- function MusicRose:tuning(beatMap, sfxMap) function MusicRose:tuning(music) -- local sfxMap = music.sfxMap -- local beatMap = music.beatMap local sfxMap, beatMap if music.intro then sfxMap = music.intro.sfxMap beatMap = music.intro.beatMap self.reserveMusic = {} self.reserveMusic.sfxMap = music.sfxMap self.reserveMusic.beatMap = music.beatMap else sfxMap = music.sfxMap beatMap = music.beatMap end -- ذ¾ذ±رڈذ·ذ°ر‚ذµذ»رŒذ½ذ¾ ذ²ر‹ذ·ر‹ذ²ذ°ذµر‚رپرڈ ذ؟ذ¾رپذ»ذµ new ذ´ذ»رڈ ذ½ذ°رپر‚ر€ذ¾ذ¹ذ؛ذ¸ ذ¼رƒذ·ر‹ذ؛ذ¸ self.sfxMap = sfxMap self.i_sfxMap = 1 -- رپر‚ر€ذ¾ذ؛ذ° ذ¸ذ· 0, 1, رƒذ؛ذ°ذ·ر‹ذ²ذ°رژر‰ذ°رڈ ذ±ذ¸ر‚ر‹, ذ½ذ° ذ؛ذ¾ر‚ذ¾ر€ر‹ذµ رپر‚ر€ذµذ»رڈذµر‚ ر€ذ¾ذ·ذ° self.beatMap = beatMap self.i_beatMap = 1 if music.altBeatMap then self.altBeatMap = music.altBeatMap end end function MusicRose:_full_shot() if self.beatMap[self.i_beatMap] == 0 then self.status = 'idle' self.sprite = self.sprites.idle return end self.status = 'shooting' self.sprite = self.sprites.shooting local sound = self.sfxMap[self.i_sfxMap] sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6] ) self.i_sfxMap = (self.i_sfxMap % #self.sfxMap) + 1 end function MusicRose:onBeat() if #self.beatMap == 4 then if not game.metronome.beat4 then return end self:_full_shot() elseif #self.beatMap == 16 then % if not game.metronome.beat16 then return end self:_full_shot() elseif #self.beatMap == 8 then if not game.metronome.beat8 then return end self:_full_shot() elseif #self.beatMap == 6 then if not game.metronome.beat6 then return end self:_full_shot() end if not self.reserveMusic then self.i_beatMap = (self.i_beatMap % #self.beatMap) + 1 if self.altBeatMap and self.i_beatMap == 1 then local buf = table.copy(self.beatMap) self.beatMap = table.copy(self.altBeatMap) self.altBeatMap = buf -- trace(self.altBeatMap[1].." "..self.altBeatMap[2].." "..self.altBeatMap[3].." "..self.altBeatMap[4]) -- trace(self.beatMap[1].." "..self.beatMap[2].." "..self.beatMap[3].." "..self.beatMap[4]) end return end self.i_beatMap = self.i_beatMap + 1 if self.i_beatMap > #self.beatMap then self:tuning(self.reserveMusic) self.reserveMusic = false end end function MusicRose:update() if game.boomer.hitbox:collide(self.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end if self.status == 'dying' then self.sprite:nextFrame() if self.sprite:animationEnd() then self:die() end return end self:_focusAnimations() if self:isDeadCheck() then self.sprite = self.sprites.death:copy() self.status = 'dying' return end if not self.isActive then return end self:onBeat() if self.status == 'shooting' then if self.laserHitbox:collide(game.player.hitbox) then game.player:die() end end end -- Decorations.lua Decorations = {} local decorationTiles = { 100, 101, 102, 103, 104, } local decorations = {} local function nextFrame(decoration) local x = decoration.x local y = decoration.y mset(x, y, 0); if decoration.c then mset(x, y, decoration.nxt) else mset(x, y, decoration.cur) end decoration.c = not decoration.c end function Decorations.init() for x = 0, MAP_WIDTH do for y = 0, MAP_HEIGHT do local tile = mget(x, y) local decoration if table.contains(decorationTiles, tile) then decoration = {x=x, y=y, c=true, cur=tile, nxt=tile+16} elseif table.contains(decorationTiles, tile - 16) then decoration = {x=x, y=y, c=false, cur=tile - 16, nxt=tile} end table.insert(decorations, decoration) end end end function Decorations:update() if game.metronome.beat4 then for _, decoration in ipairs(decorations) do nextFrame(decoration) end end end -- Bullet.lua Bullet = table.copy(Body) Bullet.defaultSprite = StaticSprite:new(373, 1) function Bullet:new(x, y, sprite) sprite = sprite or Bullet.defaultSprite local obj = { x = x, y = y, vector = {x = 0, y = 0}, hitbox = Hitbox:new_with_shift(x, y, x + 2, y + 2, 2, 2), --,HitCircle:new(x, y, 2), -- speed = data.Bullet.defaultSpeed, sprite = sprite:copy(), } setmetatable(obj, self) self.__index = self return obj end function Bullet:setVelocity(x, y) self.vector.x = x self.vector.y = y end function Bullet:vectorUpdateByTarget(targetCoordX, targetCoordY) self.vector.x = targetCoordX - self.x self.vector.y = targetCoordY - self.y self.vector = math.vecNormalize(self.vector) end function Bullet:_move() self.x = self.x + self.vector.x * self.speed self.y = self.y + self.vector.y * self.speed self.hitbox:set_xy(self.x, self.y) end local count = 0 function Bullet:_destroy() table.insert(game.deleteSchedule, self) end function Bullet:_kill() if self.hitbox:collide(game.player.hitbox) then game.player:die() self:_destroy() end end function Bullet:_checkCollision() if not self.hitbox:mapCheck() then self:_destroy() end end function Bullet:update() self:_checkCollision() self:_move() self:_kill() end function Bullet:draw() self.sprite:draw(self.x - 1 - gm.x*8 + gm.sx, self.y - 1 - gm.y*8 + gm.sy, self.flip, self.rotate) end -- Taraxacum.lua Taraxacum = table.copy(Bullet) function Taraxacum:new(x, y, radius, speed, count, countSlow, countFast, spread) radius = radius or data.Taraxacum.radius speed = speed or data.Taraxacum.speed count = count or data.Taraxacum.deathBulletCount countSlow = countSlow or data.Taraxacum.deathBulletSlowCount countFast = countFast or data.Taraxacum.deathBulletFastCount spread = spread or data.Taraxacum.deathBulletSpread --local deathBulletSpeed = error('No way!') local object = { x = x, y = y, vector = {x = 0, y = 0}, hitbox = HitCircle:new(x, y, radius), speed = speed, count = count, countSlow = countSlow, countFast = countFast, spread = spread, } setmetatable(object, self) self.__index = self return object end function Taraxacum:_launchBullets() local spread = self.spread local count = self.count local function createBulletAtRandomPoint() local ran = math.random() local angle = (2 * math.pi) * ran local x = self.x + spread * math.cos(angle) local y = self.y + spread * math.sin(angle) local bullet = self:_createBullet(x, y) local dx = x - self.x local dy = y - self.y bullet:setVelocity(dx, dy) return bullet end for i = 1, count do createBulletAtRandomPoint() end for i = 1, self.countSlow do local bullet = createBulletAtRandomPoint() bullet.speed = data.Taraxacum.deathSlowBulletSpeed end for i = 1, self.countFast do local bullet = createBulletAtRandomPoint() bullet.speed = data.Taraxacum.deathFastBulletSpeed end end function Taraxacum:_createBullet(x, y) local bullet = Bullet:new(x, y, data.Taraxacum.deathBulletSprite) bullet.speed = data.Taraxacum.deathBulletSpeed table.insert(game.updatables, bullet) table.insert(game.drawables, bullet) return bullet end function Taraxacum:_checkCollision() if self.hitbox:collide(game.boomer.hitbox) then self:_launchBullets() self:_destroy() end -- TODO: ر‚رƒر‚ ذ¼ذ¾ذ¶ذ½ذ¾ ذ؟ذ¾ذ»رŒذ·ذ¾ذ²ذ°ر‚رŒرپرڈ ر‚ذ°ذ¹ذ»ذ°ذ¼ذ¸ ذ´ذ²ذµر€ذ¸, ذ° ذ½ذµ رچر‚ذ¸ذ¼ذ¸ ذ؟ر€ذ¸ذ؛ذ¾ذ»ذ°ذ¼ذ¸ ًں¤”ًں¤” for _, door in ipairs(game.doors) do -- ذ،ذگذœذ«ذ™ ذ‘ذ•ذ—ذ£ذœذ‌ذ«ذ™ ذڑذ‍ذ،ذ¢ذ«ذ›ذ¬ if self.hitbox:collide(door.hitboxLeft) or self.hitbox:collide(door.hitboxRight) then -- begin self:_launchBullets() self:_destroy() end end if not self.hitbox:mapCheck() then self:_launchBullets() self:_destroy() end end function Taraxacum:setVelocity(x, y) self.vector = {x=x, y=y} end function Taraxacum:draw() self.hitbox:draw(data.Taraxacum.color) end -- JustTaraxacum.lua JustTaraxacum = table.copy(Taraxacum) function JustTaraxacum:new(x, y) local object = { x = x, y = y, hitbox = HitCircle:new(x, y, data.Snowman.whirl.taraxacum.radius), } setmetatable(object, self) self.__index = self return object end function JustTaraxacum:_checkCollision() if self.hitbox:collide(game.boomer.hitbox) then self:_destroy() end end function JustTaraxacum:setPos(x, y) self.x = x self.y = y self.hitbox:set_xy(x, y) end function JustTaraxacum:update() self:_checkCollision() end function JustTaraxacum:draw() self.hitbox:draw(data.Taraxacum.color) end -- StaticTaraxacum.lua StaticTaraxacum = table.copy(Taraxacum) function StaticTaraxacum:new( x, y, config ) local radius = config.staticRadius or error('no config!') local speed = config.speed or error('no config!') local count = config.deathBulletCount or error('no config!') local countSlow = config.deathBulletSlowCount or error('no config!') local countFast = config.deathBulletFastCount or error('no config!') local spread = config.deathBulletSpread or error('no config!') local bodyLength = config.bodyLength or error('no config!') local deathBulletSpeed = config.deathBulletSpeed or error('no config!') local object = { x = x, -- wtf y = y, w = 0, h = bodyLength, config = config, radius = radius, hitbox = HitCircle:new(x, y, 2 * radius), dead = false, speed = speed, count = count, countSlow = countSlow, countFast = countFast, deathBulletSpeed = deathBulletSpeed, spread = spread, } setmetatable(object, self) self.__index = self return object end function StaticTaraxacum:_checkCollision() if self.hitbox:collide(game.boomer.hitbox) then self:_launchBullets() self:_destroy() end end function StaticTaraxacum:_destroy() table.removeElement(game.updatables, self) self.dead = true end function StaticTaraxacum:_move() -- ًںک£ًںک£ًںک£ end function StaticTaraxacum:draw() local x = self.radius + self.x - gm.x*8 + gm.sx - 1 local y = self.radius + self.y - gm.y*8 + gm.sy - 1 line(x, y, x + self.w, y + self.h, data.StaticTaraxacum.bodyColor) if not self.dead then self.hitbox:draw(data.Taraxacum.color) end end -- SpecialTaraxacum.lua --ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ SpecialTaraxacum = table.copy(StaticTaraxacum) -- ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ --ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ًںک£ function SpecialTaraxacum:new(x, y, radius, bodyLength, shiftX, shiftY) local speed = data.StaticTaraxacum.speed local count = data.StaticTaraxacum.deathBulletCount local countSlow = data.StaticTaraxacum.deathBulletSlowCount local countFast = data.StaticTaraxacum.deathBulletFastCount local spread = data.StaticTaraxacum.deathBulletSpread local object = { x = x, y = y, w = 0, h = bodyLength, shiftX = shiftX + 1, shiftY = shiftY - 1, radius = radius, hitbox = HitCircle:new(x, y, 2 * radius), dead = false, status = 'needReload', timer = 0, speed = speed, count = count, countSlow = countSlow, countFast = countFast, spread = spread, } setmetatable(object, self) self.__index = self return object end function SpecialTaraxacum:move(x, y) -- ًںک£ًںک£ًںک£ self.x = x + self.shiftX -- + data.Snowman.specialTaraxacum.radius - 1 self.y = y + self.shiftY -- - data.Snowman.specialTaraxacum.radius - 1 self.hitbox:set_xy(self.x, self.y) end function SpecialTaraxacum:_drawline(start, ending) line(start.x, start.y, ending.x, ending.y, data.Snowman.specialTaraxacum.bodyColor) -- local arm = self.h / 4 -- local shift = self.h / 4 -- local dir = aim.compute(start.x, start.y, ending.x, ending.y, 1) -- local white = data.Snowman.specialTaraxacum.color -- line(1 + start.x + shift*dir.x, start.y + shift*dir.y, 1 + start.x + arm*dir.x, start.y + arm*dir.y, white) -- line(-1 + ending.x - shift*dir.x, ending.y - shift*dir.y, -1 + ending.x - (shift+arm)*dir.x, ending.y - (shift+arm)*dir.y, white) end function SpecialTaraxacum:_reloadAnimation() if self.timer == data.Snowman.specialTaraxacum.reloadAnimationTime then self.status = 'ready' elseif self.timer <= data.Snowman.specialTaraxacum.reloadAnimationTime // 3 then circ(self.x + self.radius - 1 - gm.x*8 + gm.sx, self.y + 2- gm.y*8 + gm.sy, 0, data.Snowman.specialTaraxacum.color) self.timer = self.timer + 1 elseif self.timer <= 2 * data.Snowman.specialTaraxacum.reloadAnimationTime // 3 then circ(self.x + self.radius - 1 - gm.x*8 + gm.sx, self.y + 2 - gm.y*8 + gm.sy, 1, data.Snowman.specialTaraxacum.color) self.timer = self.timer + 1 elseif self.timer < data.Snowman.specialTaraxacum.reloadAnimationTime then circ(self.x + self.radius - 1 - gm.x*8 + gm.sx, self.y + 2 - gm.y*8 + gm.sy, 2, data.Snowman.specialTaraxacum.color) self.timer = self.timer + 1 end end function SpecialTaraxacum:draw() local x = self.radius + self.x - gm.x*8 + gm.sx - 1 local y = self.radius + self.y - gm.y*8 + gm.sy - 1 local start = {x = x, y = y} local ending = {x = x - data.Snowman.specialTaraxacum.bodyLength, y = y + data.Snowman.specialTaraxacum.bodyLength} -- ARMS local armLength = data.Snowman.specialTaraxacum.bodyLength / 4 local sx = self.snowman.hitbox:get_center().x - gm.x*8 + gm.sx local sy = self.snowman.hitbox:get_center().y - gm.y*8 + gm.sy local leftArmStart = {x = sx - 2, y = sy - 2} local rightArmStart = {x = sx + 2, y = sy - 1} local leftArmEnd = {x = leftArmStart.x - armLength + 1, y = leftArmStart.y + armLength,} local rightArmEnd = {x = rightArmStart.x + armLength - 2, y = rightArmStart.y - armLength - 1,} -- ARMS DRAAAAAAAAAAW line(leftArmStart.x, leftArmStart.y, leftArmEnd.x, leftArmEnd.y, data.Snowman.color) line(rightArmStart.x, rightArmStart.y, rightArmEnd.x, rightArmEnd.y, data.Snowman.color) self:_drawline(start, ending) if not self.dead then if self.status == 'needReload' then self:_reloadAnimation() else self.hitbox:draw(data.Taraxacum.color) self.timer = 0 end end end -- Snowman.lua Snowman = table.copy(Enemy) function Snowman:new(x, y, config) local startTaraxacum = nil startTaraxacum = SpecialTaraxacum:new( x + config.specialTaraxacum.shiftForCenterX, y + config.specialTaraxacum.shiftForCenterY, config.specialTaraxacum.radius, config.specialTaraxacum.bodyLength, config.specialTaraxacum.shiftForCenterX, config.specialTaraxacum.shiftForCenterY ) local object = { x = x, y = y, awake = false, speed = config.speed, sleepDistanceToPlayer = config.sleepDistanceToPlayer, config = config, damageSound = data.EnemyDamageSounds.Snowman, deathSound = data.EnemyDeathSounds.Snowman, hp = config.hp, sprite = config.sprites.chill:copy(), hitbox = Hitbox:new(x, y, x + 16, y + 16), taraxacum = startTaraxacum, theWay = nil, status = 'idle', attackStatus = 'idle', chaseStatus = 'no chase ًں™„', currentAnimations = {}, outOfChaseTime = 0, forJumpTime = 0, area = MapAreas.findAreaWithTile(x // 8, y // 8), } object.taraxacum.snowman = object setmetatable(object, self) self.__index = self return object end function Snowman:_prepareJumpActivate() self.status = 'steady' if not (self.attackStatus == 'whirl') then self.sprite = self.config.sprites.prepareJump:copy() end self.forJumpTime = 0 end function Snowman:_jumpActivate() self.status = 'go' if not (self.attackStatus == 'whirl') then self.sprite = self.config.sprites.flyJump:copy() end self.forJumpTime = 0 end function Snowman:_resetJumpActivate() self.status = 'ready' if not (self.attackStatus == 'whirl') then self.sprite = self.config.sprites.resetJump:copy() end self.forJumpTime = 0 --error('not implemented error on Snowman:_resetJumpActivate()') end function Snowman:move(dx, dy) -- special for doors ًں¥° self.x = self.x + dx self.y = self.y + dy self.hitbox:set_xy(self.x, self.y) self.taraxacum:move(self.x, self.y) self:_moveWhirlAttack() end function Snowman:_moveOneTile() -- ذ¾ذ؟ر‚ذ¸ذ¼ذ¸ذ·ذ¸ر€رƒذµذ¼ ذ²ر‹ر‡ذ¸رپذ»ذµذ½ذ¸رڈ ذ² 60 ر€ذ°ذ· ذµرپذ»ذ¸ ذ±رƒذ´ذµذ¼ ذ²ر‹ذ·ر‹ذ²ذ°ر‚رŒ ذ؛ذ°ذ¶ذ´ر‹ذ¹ ذ±ذ¸ر‚, ذ° ذ½ذµ ر‚ذ¸ذ؛.. رچر…, ر€ذ°ذ½رŒرˆذµ ذ½ذ°ذ´ذ¾ ذ±ر‹ذ»ذ¾ for _, tile in ipairs(game.transitionTiles) do -- رچر‚ذ¾ر‚ ذ؟ذ°ر€ذµذ½رŒ ذ؟ذ¾ر‡ر‚ذ¸ ذ؛ذ°ذ؛ ذ¸ذ³ر€ذ¾ذ؛, ذµذ¼رƒ ذ¼ذ¾ذ¶ذ½ذ¾ if tile.x == self.x // 8 and tile.y == self.y // 8 and self.area ~= tile.area then self.area = tile.area -- trace('Snowman transitioned into area ' .. self.area) end end if #self.theWay > 2 and self.chaseStatus == 'chasing ًں§گ' then --[[ ذ؟ر€ذ¸ذ´ر‘ر‚رپرڈ ذ¼ذµذ½رڈر‚رŒ رچر‚ذ¾ رƒرپذ»ذ¾ذ²ذ¸ذµ ذ¸ ر‚ذ¾, ر‡ر‚ذ¾ ذ½ذ¸ذ¶ذµ ذ² _jumpActivate() رˆذ¸ر€ذ¾ذ؛ذ¸ذ¹ ذ؟ذ°ر€ذµذ½رŒ رƒذ²ذ°ذ¶ذ°ذµر‚ ذ»ذ¸ر‡ذ½ذ¾ذµ ذ؟ر€ذ¾رپر‚ر€ذ°ذ½رپر‚ذ²ذ¾ ]]-- --trace(tostring(table.contains(data.bfs.solidTiles, mget(self.theWay[2].x, self.theWay[2].y)))) if not table.contains(data.bfs.solidTiles, mget(self.theWay[2 + 1].x, self.theWay[2 + 1].y)) then -- ر‚رƒر‚ ذ¼ر‹ ذ؟ر€ذ¾ذ²ذµر€رڈذµذ¼, ذ½ذµ رڈذ²ذ»رڈذµر‚رپرڈ ذ»ذ¸, رپذ¾ذ²ذµر€رˆذµذ½ذ½ذ¾ رپذ»رƒر‡ذ°ذ¹ذ½ذ¾, رپذ»ذµذ´رƒرژر‰ذ¸ذ¹ ر‚ذ°ذ¹ذ» ذ´ذ²ذµر€رŒرژ ًںک… local vec = {x = 8 * self.theWay[2].x - self.x, y = 8 * self.theWay[2].y - self.y} return self:_slowMoveOneTile(math.vecNormalize(vec), {x = 8 * self.theWay[2].x, y = 8 * self.theWay[2].y}) else -- trace('next time i chase you ًں‘؟') return false end -- ذ§ذµرپر‚ذ½ذ¾ ذ³ذ¾ذ²ذ¾ر€رڈ, رڈ ر‚ذ¾ذ¶ذµ ذ±ذ¾رژرپرŒ ر‚ذ¾ذ³ذ¾, ر‡ر‚ذ¾ ذ½ذ°ذ؟ذ¸رپذ°ذ» elseif self.outOfChaseTime < #self.theWay - 2 and self.chaseStatus == 'lost him ًںک ' then --trace(tostring(table.contains(data.bfs.solidTiles, mget(self.theWay[2 + self.outOfChaseTime].x, self.theWay[2 + self.outOfChaseTime].y)))) if self.area == game.playerArea then -- ذ؟ر€ذ¾ذ²رڈذµذ¼, ذ½ذ° ذ¾ذ´ذ½ذ¾ذ¹ ذ»ذ¸ ذ·ذ¾ذ½ذµ ًںگ“ local vec = {x = 8 * self.theWay[2 + self.outOfChaseTime].x - self.x, y = 8 * self.theWay[2 + self.outOfChaseTime].y - self.y} return self:_slowMoveOneTile(math.vecNormalize(vec), {x = 8 * self.theWay[2 + self.outOfChaseTime].x, y = 8 * self.theWay[2 + self.outOfChaseTime].y}) else -- trace('damn you, player the sandass') return false end else --trace('let me hug yuًں¤—!!') end end function Snowman:_moveWhirlAttack() -- ________________________________________________________________________________________ -- | BOOMER @ MAIL.tic ًںکڈ | | -- |----------------------- | -- | | -- | kawaii-Code@boomerang2.com: ذ¢ذ¾ر‚ ذ؛ر‚ذ¾ رƒذ²ذ¸ذ´ذ¸ر‚ رچر‚ذ¾ر‚ ذ؛ذ¾ذ¼ذ¼ذµذ½ر‚ذ°ر€ذ¸ذ¹ ذ´ذ¾ذ»ذ¶ذµذ½ رƒذ´ذ°ذ»ذ¸ر‚رŒ | -- | رچر‚رƒ ر„رƒذ½ذ؛ر†ذ¸رژ. ًں¥µًں¤¬ًں¤¬ | -- | | -- | Linux Torbolts@boomerang2.com: رڈ ذ·ذ°ذ؛ذ¾ذ¼ذ¼ذµذ½ر‚ذ¸ر€رƒرژ, ذ²ذ´ر€رƒذ³ ذµر‰ر‘ ذ؟ر€ذ¸ذ³ذ¾ذ´ذ¸ر‚رپرڈ ًں¤“ًں‘چ | -- | | -- | kawaii-Code@boomerang2.com: ذ›ذ°ذ´ذ½ذ¾, ذ½ذµ رƒذ´ذ°ذ»رڈذ¹ر‚ذµ ًںک…ًںک… | -- ---------------------------------------------------------------------------------------- -- if self.whirlAttack then self.whirlAttack.x = self.hitbox:get_center().x self.whirlAttack.y = self.hitbox:get_center().y end end function Snowman:_slowMoveOneTile(vector, neededXY) if math.abs(self.x - neededXY.x) < 1 then self.x = neededXY.x end if math.abs(self.y - neededXY.y) < 1 then self.y = neededXY.y end if self.x == neededXY.x and self.y == neededXY.y then self.hitbox:set_xy(self.x, self.y) self.taraxacum:move(self.x, self.y) self:_moveWhirlAttack() return true end self.x = self.x + vector.x * self.speed self.y = self.y + vector.y * self.speed self.hitbox:set_xy(self.x, self.y) self.taraxacum:move(self.x, self.y) self:_moveWhirlAttack() end function Snowman:_updatePath() -- ذ£ر… ر‚ر‹! ذڑر€رƒر‚ذ°رڈ ذ¾ذ؟ر‚ذ¸ذ¼ذ¸ذ·ذ°ر†ذ¸رڈ.. ًں¤©ًں¤© -- ذ¯ ذ·ذ½ذ°رژ ًںکژ -- ذ؛ذ¾ذ³ذ´ذ° رƒ ذ½ذ°رپ ذ½ذ°ر‡ذ½ذµر‚ ذ»ذ°ذ³ذ°ر‚رŒ ذ¼ذ¾ذ¶ذ½ذ¾ ذ±رƒذ´ذµر‚ ذ½ذµ رپذ¾ذ·ذ´ذ°ذ²ذ°ر‚رŒ ذ½ذ¾ذ²ر‹ذ¹ ذ؟رƒر‚رŒ ذ؟ر€ذ¸ ذ؛ذ°ذ¶ذ´ذ¾ذ¹ ذ؟ر€ذ¾ذ²ذµر€ذ؛ذµ, ذ° ذ¼ذµذ½رڈر‚رŒ ذ؟ر€ذµذ´ر‹ذ´رƒر‰ذ¸ذ¹ ذ½ذ° ذ¾رپذ½ذ¾ذ²ذµ ر‚ذ¾ذ³ذ¾, -- ذ؛ذ°ذ؛ ذ¸ذ·ذ¼ذµذ½ذ¸ذ»ذ¾رپرŒ ذ؟ذ¾ذ»ذ¾ذ¶ذµذ½ذ¸ذµ ذ¸ذ³ر€ذ¾ذ؛ذ°. ذ؟ر€ذ¾رپذ¼ذ°ر‚ر€ذ¸ذ²ذ°رڈ ذ¾ر‚ ذ؛ذ¾ذ½ر†ذ° ذ؟رƒر‚ذ¸ ر€ذ°رپرˆذ¸ر€رڈرڈ ر€ذ°ذ´ذ¸رƒرپ ذ؟ر€ذ¾ذ²ذµر€ذ؛ذ¸. ذ´ذ¾ذ»ذ¶ذ½ذ¾ ذ±ر‹ر‚رŒ ذ؛ر€رƒر‚ذ¾, ذ½ذ¾ ذ¼ذ¾ذ¶ذµر‚ ذ±ر‹ر‚رŒ ذ؟ر€ذ¾ذ±ذ»ذµذ¼ذ°, -- ذµرپذ»ذ¸ ر‚ذ°ذ¼ ذ³ذ»رƒذ؟ر‹ذµ ذ؟ر€ذµذ؟رڈر‚رپر‚ذ²ذ¸رڈ. ذ²ذ¾ذ·ذ¼ذ¾ذ¶ذ½ذ¾ ذ؟ر€ذ¸ رچر‚ذ¾ذ¼ ذ؟رƒر‚رŒ ذ±رƒذ´ذµر‚ ذ½ذµ رپذ°ذ¼ر‹ذ¹ ذ؛ذ¾ر€ذ¾ر‚ذ؛ذ¸ذ¹, ذ½ذ¾ ذ±ذ¾ذ»ذµذµ ذ¸ذ½ر‚ذµر€ذµرپذ½ر‹ذ¹. end function Snowman:_onBeat() if self.attackStatus == 'whirl' then return elseif game.metronome.onOddBeat then self:_prepareJumpActivate() elseif game.metronome.onEvenBeat then self:_jumpActivate() end end function Snowman:_setPath() -- local way = aim.bfsMapAdaptedV2x2({x = self.x // 8, y = self.y // 8}) local way = aim.astar_2x2({x = self.x // 8, y = self.y // 8}) if way then self.chaseStatus = 'chasing ًں§گ' self.theWay = way self.outOfChaseTime = 0 else self.chaseStatus = 'lost him ًںک ' self.outOfChaseTime = self.outOfChaseTime + 1 --in bits end end -- DO NOT EDIT. UPDATE OVERRIDE IN MUSIC SNOWMAN. YES THIS IS STUPID. ًںکٹ function Snowman:update() if game.boomer.hitbox:collide(self.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) end if not game.metronome.onBass and self.attackStatus == 'whirl' then self.speed = self.config.speed self.attackStatus = 'idle' self.whirlAttack:endAttack() self.whirlAttack = nil -- ذ§ر‚ذ¾ذ±ر‹ ذ¶ذµرپر‚ذ؛ذ¸ذµ ذ¾رˆذ¸ذ±ذ؛ذ¸ ًںک±ًںک±ًںک· end if game.metronome.onBass and self.attackStatus ~= 'whirl' then self.attackStatus = 'whirl' self.speed = self.config.speedWithWhirl -- DO: ذ¢رƒر‚ ذ؛ذ¾رپر‚ر‹ذ»رŒ +8 -- ذ“ذ¾ر‚ذ¾ذ²ذ¾ ًں¤  self.whirlAttack = SnowmanWhirlAttack:new(self.hitbox:get_center().x, self.hitbox:get_center().y, self.taraxacum.h) self.whirlAttack.snowman = self end self:_focusAnimations() if self.status == 'dying' then self.sprite:nextFrame() if self.sprite:animationEnd() then self:_createDeathEffect() self:die() end return end if self:isDeadCheck() then self.sprite = self.config.sprites.death:copy() self.status = 'dying' return end if self.attackStatus == 'whirl' then self.whirlAttack:update() self.sprite = self.config.sprites.chill:copy() if self.theWay then self:_moveOneTile() end end --ر€ذ°ذ·ذ±ذ¸ذ»ذ¸ ذ²ر€ذµذ¼رڈ ذ½ذ° ذ؟ر€ر‹ذ¶ذ¾ذ؛ ذ½ذ° ذ´ذ²ذµ ر€ذ°ذ²ذ½ر‹ذµ ر‡ذ°رپر‚ذ¸, ر„ر€ذµذ¹ذ¼ ذ¼ذµذ½رڈذµذ¼ ذ² رپذ¾ذ¾ر‚ذ²ذµر‚رپر‚ذ²رƒرژر‰ذµذµ ذ²ر€ذµذ¼رڈ if self.status == 'steady' then self.forJumpTime = self.forJumpTime + 1 if self.forJumpTime == self.config.prepareJumpTime then self.status = 'idle' elseif self.forJumpTime == self.config.prepareJumpTime // 2 then self.sprite:nextFrame() end end if self.status == 'go' then self:_moveOneTile() if self:_moveOneTile() then self:_resetJumpActivate() end end if self.status == 'ready' then self.forJumpTime = self.forJumpTime + 1 if self.forJumpTime == self.config.resetJumpTime then self.status = 'idle' elseif self.forJumpTime == self.config.resetJumpTime // 3 then self.sprite:nextFrame() elseif self.forJumpTime == 2 * self.config.resetJumpTime // 3 then self.sprite:nextFrame() end end if game.metronome.onBeat then self:_setPath() -- ذ؟ذµر€ذµذ½ذµرپر‚ذ¸ ذ½ذ° ذ¾ذ´ذ´ذ‘ذ¸ر‚ self:_onBeat() end self:_focusAnimations() end function Snowman:_createDeathEffect() local x = self.x local y = self.y local particleCount = math.random(self.config.deathParticleCountMin, self.config.deathParticleCountMax) local particleSpeed = self.config.deathAnimationParticleSpeed local function randomSide() return 2 * math.random() - 1 end local function randomSpeed() return math.random(50, 150) / 100 end particles = {} for i = 1, particleCount do local spawnx = x + randomSide() local spawny = y + randomSide() --particles are weak, bullets here particles[i] = Bullet:new(spawnx, spawny, self.config.deathParticleSprite) table.insert(game.updatables, particles[i]) table.insert(game.drawables, particles[i]) local dx = randomSide() * randomSpeed() local dy = randomSide() * randomSpeed() local vecLen = math.sqrt(dx * dx + dy * dy) if vecLen < self.config.deathAnimationParticleSpeedNormalizer then dx = dx * self.config.deathAnimationParticleSpeedNormalizer / vecLen dy = dy * self.config.deathAnimationParticleSpeedNormalizer / vecLen end particles[i]:setVelocity(particleSpeed * dx, particleSpeed * dy) end end function Snowman:die() trace("I AM DEAD!!!") table.removeElement(game.updatables, self) table.removeElement(game.drawables, self) table.removeElement(game.collideables, self) table.removeElement(game.enemies, self) -- ذ¸ذ¼ذµذ½ذ½ذ¾ رچر‚ذ¾ذ³ذ¾ ذµذ¼رƒ ذ½ذµ ر…ذ²ذ°ر‚ذ°ذ»ذ¾, ر‡ر‚ذ¾ذ±ر‹ رƒذ¼ذµر€ذµر‚رŒ رپذ؟ذ¾ذ؛ذ¾ذ¹ذ½ذ¾ end function Snowman:draw() if self.attackStatus == 'whirl' then self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) self.whirlAttack:draw() end self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) if not (self.attackStatus == 'whirl') and self.taraxacum then self.taraxacum:draw() end self:_drawAnimations() -- circb(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.sleepDistanceToPlayer, 4) end -- MusicSnowman.lua MusicSnowman = table.copy(Snowman) -- ذک ذ،ذ½ذ¾رƒذ¼ذµذ½ ⛄ ذ³ذ¾ذ²ذ¾ر€ذ¸ر‚: -- ذ½ذ¾ذ»رŒ ذ½ذ¾ذ»رŒ ذ¾ذ´ذ¸ذ½ ذ¾ذ´ذ¸ذ½ ذ¾ذ´ذ¸ذ½ ذ½ذ¾ذ»رŒ -- function MusicSnowman:tuning(beatMap, sfxMap) function MusicSnowman:tuning(music) -- local sfxMap = music.sfxMap -- local beatMap = music.beatMap local sfxMap, beatMap if music.intro then sfxMap = music.intro.sfxMap beatMap = music.intro.beatMap self.reserveMusic = {} self.reserveMusic.sfxMap = music.sfxMap self.reserveMusic.beatMap = music.beatMap else sfxMap = music.sfxMap beatMap = music.beatMap end self.sfxMap = sfxMap self.sfxMapIndex = 1 self.beatMap = beatMap self.beatMapIndex = 1 self.pastAngle = 0 if music.altBeatMap then self.altBeatMap = music.altBeatMap -- trace("!!!!!!!!! "..#self.altBeatMap) end end function MusicSnowman:update() --if not self.awake then -- trace('not awake') -- return --end --trace('awake') -- trace('sdtp = ' .. self.sleepDistanceToPlayer .. ' x = ' .. self.x .. ' gpx = ' .. game.player.x .. 'distance = ' .. math.distance(self.x, self.y, game.player.x, game.player.y)) if math.distance(self.x, self.y, game.player.x, game.player.y) >= self.sleepDistanceToPlayer then self.boxOfBirth:activate() return end if (#self.beatMap == 4 and game.metronome.beat4) or (#self.beatMap == 6 and game.metronome.beat6) or (#self.beatMap == 8 and game.metronome.beat8) then if not self.reserveMusic then self.beatMapIndex = (self.beatMapIndex % #self.beatMap) + 1 if self.altBeatMap and self.beatMapIndex == 1 then local buf = table.copy(self.beatMap) self.beatMap = table.copy(self.altBeatMap) self.altBeatMap = buf -- trace(self.altBeatMap[1].." "..self.altBeatMap[2].." "..self.altBeatMap[3].." "..self.altBeatMap[4]) -- trace(self.beatMap[1].." "..self.beatMap[2].." "..self.beatMap[3].." "..self.beatMap[4]) end else self.beatMapIndex = self.beatMapIndex + 1 if self.beatMapIndex > #self.beatMap then self:tuning(self.reserveMusic) self.reserveMusic = false end end if (self.beatMap[self.beatMapIndex] ~= 0) then --- ذگذ¥ذ¥ذگذ¥ذگذ¥ذگذ¥ ذ”ذ£ذ±ذ±رڈذ¶ ذ؛ذ¾ذ´ذ° ًںکœًںک‹ًںک±ًں¤ھًں¤ھًں¤ھ self.whirlAttack = SnowmanWhirlAttack:new(self.hitbox:get_center().x, self.hitbox:get_center().y, self.taraxacum.h) self.whirlAttack.angle = self.pastAngle self.whirlAttack.snowman = self self.attackStatus = 'whirl' self.speed = self.config.speedWithWhirl local sound = self.sfxMap[self.sfxMapIndex] sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) self:_setPath() self.sfxMapIndex = (self.sfxMapIndex % #self.sfxMap) + 1 self:_moveOneTile() else self.speed = self.config.speed self.attackStatus = 'idle' if self.whirlAttack then self.pastAngle = self.whirlAttack.angle self.whirlAttack:endAttack() self.whirlAttack = nil -- ذ§ر‚ذ¾ذ±ر‹ ذ¶ذµرپر‚ذ؛ذ¸ذµ ذ¾رˆذ¸ذ±ذ؛ذ¸ ًںک±ًںک±ًںک· end end end if self.whirlAttack then self.pastAngle = self.whirlAttack.angle end self:_focusAnimations() if self.attackStatus == 'whirl' then self.whirlAttack:update() self.sprite = self.config.sprites.chill:copy() if self.theWay then self:_moveOneTile() end end if game.boomer.hitbox:collide(self.hitbox) then local damage = game.boomer.dpMs * Time.dt() self:takeDamage(damage) if self:isDeadCheck() then self.sprite = self.config.sprites.death:copy() return end end if self:isDeadCheck() then self.sprite:nextFrame() if self.sprite:animationEnd() then self:_createDeathEffect() self:die() end return end end -- SnowmanBox.lua SnowmanBox = table.copy(Body) function SnowmanBox:new(x, y, config) local object = { sprite = data.SnowmanBox.sleepSprite:copy(), snowman = MusicSnowman:new(x, y, config), snowmanConfig = config, x = x, y = y, playerCheckTimeMs = data.SnowmanBox.playerCheckFrequencyMs, wakeUpDistance = data.SnowmanBox.wakeUpDistanceToPlayer, } setmetatable(object, self) self.__index = self return object end function SnowmanBox:newFake(x, y, config, snowman) local object = { sprite = data.SnowmanBox.sleepSprite:copy(), snowman = snowman, snowmanConfig = config, x = x, y = y, playerCheckTimeMs = data.SnowmanBox.playerCheckFrequencyMs, wakeUpDistance = data.SnowmanBox.wakeUpDistanceToPlayer, } setmetatable(object, self) self.__index = self return object end function SnowmanBox:activate() fakeBox = self:newFake(self.snowman.x, self.snowman.y, self.snowmanConfig, self.snowman) table.insert(game.updatables, fakeBox) table.insert(game.drawables, fakeBox) self.snowman:die() end function SnowmanBox:deactivate() table.removeElement(game.updatables, self) end function SnowmanBox:_distanceToPlayer() local dx = self.x - game.player.x local dy = self.y - game.player.y return math.sqrt(dx*dx + dy*dy) end function SnowmanBox:_spawnSnowman() self.snowman.awake = true self.snowman.boxOfBirth = self -- snowman:tuning(self.snowmanConfig.music.beatMap, self.snowmanConfig.music.sfxMap); -- ذ—ذ°ر‚رژذ½ذ¸ذ» ًںڈژرپذ½ذ¾رƒذ¼ذµذ½ذ° âکƒ self.snowman:tuning(self.snowmanConfig.music); -- ذ—ذ°ر‚رژذ½ذ¸ذ» ًںڈژرپذ½ذ¾رƒذ¼ذµذ½ذ° âکƒ self.snowman.x = self.x self.snowman.y = self.y table.insert(game.updatables, self.snowman) table.insert(game.drawables, self.snowman) table.insert(game.collideables, self.snowman) table.insert(game.enemies, self.snowman) -- ذ²رپذµذ¼ ذ؟ر€ذ¸ذ²ذµر‚, ذ؟ذ¾ذ؛ذ° ر‡ر‚ذ¾ ذ¾ذ½ ذ·ذ´ذµرپرŒ ذ½ذµ ذ±ذ¾رپرپ ًں‘¾ self:deactivate() end function SnowmanBox:_changeSprite() self.sprite = data.SnowmanBox.wokeupSprite:copy() end function SnowmanBox:update() -- self.checkTimer() -- ذœذ¾ذ¶ذ½ذ¾ ذ¸رپذ؟ذ¾ذ»رŒذ·ذ¾ذ²ذ°ر‚رŒ ذµرپذ»ذ¸ ذ¼ذµر‚ر€ذ¾ذ½ذ¾ذ¼ ذ½ذµ ذ¾ر‡ ًں™„ًں™„ if game.metronome.onBeat and self:_distanceToPlayer() < self.wakeUpDistance then self:_spawnSnowman() self:_changeSprite() end end function SnowmanBox:draw() local x = self.x - gm.x*8 + gm.sx local y = self.y - gm.y*8 + gm.sy -- ذ‌ذ¸ذ؛ر‚ذ¾ ذ½ذµ ذ·ذ°رپر‚ذ°ذ²ذ¸ر‚ ذ¼ذµذ½رڈ ذ²ر‹ذ½ذµرپر‚ذ¸ رچر‚ذ¾ ذ² ذ´ذ°ر‚رƒ! ًںکˆًںکˆًںکˆ local whiteColor = 12 rect(x + 3, y - 2, 11, 2, whiteColor) self.sprite:draw(x, y, self.flip, self.rotate) rect(x + 3, y + 16, 11, 2, whiteColor) end -- SnowmanWhirlAttack.lua SnowmanWhirlAttack = {} function SnowmanWhirlAttack:new(x, y, bodyLength) local endX = x + bodyLength local endY = y local object = { x = x, y = y, bodyLength = bodyLength, rotationSpeed = data.Snowman.whirl.rotationSpeed, particlesEmitDelayMs = data.Snowman.whirl.particleEmitDelayMs, angle = 0, taraxacum = JustTaraxacum:new(endX, endY), } local time = 0 object.whirlParticleTimer = function() time = time + Time.dt() if time > object.particlesEmitDelayMs then time = 0 return true end return false end setmetatable(object, self) self.__index = self return object end function SnowmanWhirlAttack:endAttack() local taraxacum = Taraxacum:new( self.x, self.y, data.Snowman.whirl.taraxacum.radius, data.Snowman.whirl.endTaraxacumSpeed, data.Snowman.whirl.taraxacum.deathBulletCount, data.Snowman.whirl.taraxacum.deathSlowBulletCount, data.Snowman.whirl.taraxacum.deathFastBulletCount ) vec = aim.superAim(self.x, self.y, data.Snowman.whirl.endTaraxacumSpeed) taraxacum:setVelocity(vec.x, vec.y) table.insert(game.updatables, taraxacum) table.insert(game.drawables, taraxacum) self.snowman.taraxacum.status = 'needReload' -- ًںکڑًںکڑ end function SnowmanWhirlAttack:_spawnParticle() local halfWhirlParticle = 8 / 2 local endX = self.x - halfWhirlParticle + self.bodyLength * math.cos(self.angle) local endY = self.y - halfWhirlParticle + self.bodyLength * math.sin(self.angle) local whirl = Whirl:new(endX, endY, data.Snowman.whirl.fadeTimeMs) table.insert(game.updatables, whirl) table.insert(game.drawables, whirl) end function SnowmanWhirlAttack:update() self.angle = self.angle + self.rotationSpeed * Time.dt() local x = self.x + self.bodyLength * math.cos(self.angle) local y = self.y + self.bodyLength * math.sin(self.angle) self.taraxacum:setPos(x, y) self.taraxacum:update() if self.whirlParticleTimer() then self:_spawnParticle() end end function SnowmanWhirlAttack:draw() local x = self.x - 8 * gm.x + gm.sx local y = self.y - 8 * gm.y + gm.sy local endX = x + self.bodyLength * math.cos(self.angle) local endY = y + self.bodyLength * math.sin(self.angle) line(x, y, endX, endY, data.Snowman.specialTaraxacum.bodyColor) self.taraxacum:draw() local armLength = self.bodyLength / 3 local armX = x + armLength * math.cos(self.angle) local armY = y + armLength * math.sin(self.angle) -- ذœذگذ“ذکذ§ذ•ذ،ذڑذکذ• ذ§ذکذ،ذ›ذگ ًں‘½ًں‘½ًں‘½ًں‘؛ -- left arm line(x - 2, y - 2, armX, armY, data.Snowman.color) -- right arm line(x + 2, y - 2, armX, armY, data.Snowman.color) end -- DoorMechanic.lua -->door->wire->lever--> DoorMechanic = {} function DoorMechanic.findConnection(startX, startY) -- where we start searching local doorWiresLever = { door = nil, --{x = 1000000, y = 1000000, id = 'crutch'}, lever = nil, wires = {}, } doorWiresLever.lever = {x = startX, y = startY} for x = startX - 1, startX + 1 do -- ذ±رƒذ´ذµذ¼ ذ¸رپذ؛ذ°ر‚رŒ ر‚ذ¾ذ»رŒذ؛ذ¾ ذ²ذ¾ذ؛ر€رƒذ³ ر€ر‹ر‡ذ°ذ³ذ° for y = startY - 1, startY + 1 do local tileType = gm.getTileId(x, y) if table.contains(data.mapConstants.turnedOnWires, tileType) then DoorMechanic._walkWire(x, y, doorWiresLever) if doorWiresLever.door == nil or doorWiresLever.lever == nil then trace("ERROR!! Couldn't find lever or door for wire at " .. x .. " " .. y) return doorWiresLever else return doorWiresLever end end end end end function DoorMechanic.findConnectionWithoutDoor(startX, startY) -- where we start searching local doorWiresLever = { door = {x = 1000000, y = 1000000, id = 'not a door, just a setting'}, lever = nil, wires = {}, } doorWiresLever.lever = {x = startX, y = startY} for x = startX - 1, startX + 1 do -- ذ±رƒذ´ذµذ¼ ذ¸رپذ؛ذ°ر‚رŒ ر‚ذ¾ذ»رŒذ؛ذ¾ ذ²ذ¾ذ؛ر€رƒذ³ ر€ر‹ر‡ذ°ذ³ذ° for y = startY - 1, startY + 1 do local tileType = gm.getTileId(x, y) if table.contains(data.mapConstants.turnedOnWires, tileType) then DoorMechanic._walkWire(x, y, doorWiresLever) --trace('rrrrrrrr') if doorWiresLever.door == nil or doorWiresLever.lever == nil then trace("ERROR!! Couldn't find lever or door for wire at " .. x .. " " .. y) return doorWiresLever else --trace(doorWiresLever.door) return doorWiresLever end end end end end function DoorMechanic._walkWire(x, y, doorWiresLever) -- _walkWireWhileDoor to be honest local tileType = gm.getTileId(x, y) if table.contains(data.mapConstants.doorIds, tileType) then if (doorWiresLever.door == nil) or ((x <= doorWiresLever.door.x) and (y <= doorWiresLever.door.y)) then doorWiresLever.door = { x = x, y = y, id = mget(x, y) } --trace('dr'..x..' '..y) end end --if table.contains(data.mapConstants.leverIds, tileType) then -- doorWiresLever.lever = { x = x, y = y } --end if not (table.contains(data.mapConstants.turnedOnWires, tileType) or table.contains(data.mapConstants.doorIds, tileType)) then return end local turnedOffWire = data.mapConstants.turnedOffWires[mget(x, y)] if table.contains(data.mapConstants.turnedOnWires, tileType) then table.insert(doorWiresLever.wires, {id = turnedOffWire, x = x, y = y }) mset(x, y, turnedOffWire) DoorMechanic._walkWire(x + 1, y, doorWiresLever) DoorMechanic._walkWire(x - 1, y, doorWiresLever) DoorMechanic._walkWire(x, y + 1, doorWiresLever) DoorMechanic._walkWire(x, y - 1, doorWiresLever) DoorMechanic._walkWire(x + 1, y + 1, doorWiresLever) DoorMechanic._walkWire(x - 1, y + 1, doorWiresLever) DoorMechanic._walkWire(x + 1, y - 1, doorWiresLever) DoorMechanic._walkWire(x - 1, y - 1, doorWiresLever) return end DoorMechanic._walkWire(x - 1, y, doorWiresLever) DoorMechanic._walkWire(x, y - 1, doorWiresLever) end function DoorMechanic.doorOffset(door) local offset = data.mapConstants.doorOffsetsIds[door.id] return offset end -- function DoorMechanic:new() -- DoorMechanic.findWires() -- local doors = {} -- local levers = {} -- for i, pair in ipairs(doorWiresLever) do -- mset(pair.lever.x, pair.lever.y, 0) -- local doorOffset = DoorMechanic.doorOffset(pair.door) -- local doorx = pair.door.x + doorOffset.x -- local doory = pair.door.y + doorOffset.y -- mset(doorx, doory, 0) -- mset(doorx + 1, doory, 0) -- mset(doorx, doory + 1, 0) -- mset(doorx + 1, doory + 1, 0) -- -- ذ،ذ´ذ²ذ¸ذ³, ذ؟ذ¾ر‚ذ¾ذ¼رƒ ر‡ر‚ذ¾ ذ؛ذ°ذ»ذ¸ر‚ذ؛ذ° ذ‍ذ“ذ ذ‍ذœذ‌ذگذ¯ ༼ مپ¤ â—•_â—• ༽مپ¤ -- doorx = doorx -- doory = doory - 2 -- -- ذ”ذ²ذµر€رŒ رپذ¼ذ¾ر‚ر€ذ¸ر‚ ذ½ذ° ر‚ذ¾, ذ²ذ؛ذ»رژر‡ذµذ½ ذ»ذ¸ ر€ر‹ر‡ذ°ذ³ -- -- ذ¸ رپذ°ذ¼ذ° رپذµذ±رڈ ذ؟ذµر€ذµذ؛ذ»رژر‡ذ°ذµر‚ (?? (ï؟£ï¹ƒï؟£)) -- local lever = Lever:new(pair.lever.x * 8, pair.lever.y * 8, nil, pair.wires) -- local door = Door:new(doorx * 8, doory * 8, lever) -- table.insert(doors, door) -- table.insert(levers, lever) -- end -- local obj = { -- doors = doors, -- levers = levers -- } -- setmetatable(obj, self) -- self.__index = self; -- return obj -- end -- Lever.lua Lever = table.copy(Body) Lever.spriteOff = data.Lever.sprites.off -- is default Lever.spriteOn = data.Lever.sprites.on function Lever:new(x, y) local obj = { x = x, y = y - 3, wires = {}, door = nil, sprite = Lever.spriteOff:copy(), hitbox = Hitbox:new(x, y - 3, x+8, y - 3+8), status = 'off' } --ذµرپذ»ذ¸ ذ¼ر‹ ر…ذ¾ر‚ذ¸ذ¼ رپذ´ذµذ»ذ°ر‚رŒ ذ؟ذ»ذ°ذ²ذ½ذ¾ذµ ذ؟ذµر€ذµذ؛ذ»رژر‡ذµذ½ذ¸ذµ ذ؟ر€ذ¾ذ²ذ¾ذ´ذ¾ذ², ذ½رƒذ¶ذ½ذ¾ ذ¸ر… رپذ¾ر€ر‚ذ¸ر€ذ¾ذ²ذ°ر‚رŒ setmetatable(obj, self) self.__index = self return obj end function Lever:_toogleWires() for _, wire in ipairs(self.wires) do local turnedOnWire = data.mapConstants.turnedOffWires[wire.id] local turnedOffWire = data.mapConstants.turnedOnWires[wire.id] if turnedOnWire ~= nil then wire.id = turnedOnWire mset(wire.x, wire.y, turnedOnWire) elseif turnedOffWire ~= nil then wire.id = turnedOffWire mset(wire.x, wire.y, turnedOffWire) end end end function Lever:_turn() if self.status == 'off' then self.sprite = Lever.spriteOn self.status = 'justOn' local sound = data.Player.sfx.leverOn sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) self:_toogleWires() self.door:statusUpdate('on') return elseif self.status == 'on' then self.sprite = Lever.spriteOff self.status = 'justOff' -- ًں”ٹًں¤¯ local sound = data.Player.sfx.leverOff sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) self:_toogleWires() self.door:statusUpdate('off') return end end function Lever:update() if self.hitbox:collide(game.boomer.hitbox) then self:_turn() else if self.status == 'justOff' then self.status = 'off' elseif self.status == 'justOn' then self.status = 'on' end end end -- Door.lua Door = table.copy(Body) function Door:new(x, y) --ذ؛ذ°ذ»ذ¸ر‚ذ؛ذ° ر‚ذ¾ذ»رŒذ؛ذ¾ ذ¸ذ· ذ´ذ²رƒر… ر‡ذ°رپر‚ذµذ¹( local rectangleLeft = Rect:new(x, y, 8 * data.Door.widthTiles // 2, 8 * data.Door.heightTiles) local rectangleRight = Rect:new(rectangleLeft:right(), y, 8 * data.Door.widthTiles // 2, 8 * data.Door.heightTiles) local object1 = { x = x, y = y, crutch = false, Crutch = false, -- ذ‘ر€ذ°ر‚ ذ±ذ»ذ¸ذ·ذ½ذµر† ًں‘¼ًں’ک rectL = rectangleLeft, rectR = rectangleRight, speed = data.Door.speed, status = 'closedFromStart', shakeTimer = 1, hitboxLeft = Hitbox:new(rectangleLeft:left(), rectangleLeft:up(), rectangleLeft:right(), rectangleLeft:down()), hitboxRight = Hitbox:new(rectangleRight:left(), rectangleRight:up(), rectangleRight:right(), rectangleRight:down()), solidTilesSpawned = true, } --shit code for addX = 0, data.Door.widthTiles - 1 do for addY = 0, data.Door.heightTiles - 1 do mset(x // 8 + addX, y // 8 + addY, data.Door.solidTileId) end end setmetatable(object1, self) self.__index = self return object1 end -- ذ’ر‹ذ·ر‹ذ²ذ°ذµر‚رپرڈ رƒذ؟ر€ذ°ذ²ذ»رڈرژر‰ذ¸ذ¼ ر€ر‹ر‡ذ°ذ³ذ¾ذ¼ ًںک„ function Door:statusUpdate(leverStatus) if leverStatus == 'off' then self.status = 'close' self:_spawnBlockingTiles() game.camera:shakeByDoorStop() elseif leverStatus == 'on' then self.status = 'open' self:_despawnBlockingTiles() end end function Door:_colliding() if self.hitboxLeft:collide(game.player.hitbox) and self.hitboxRight:collide(game.player.hitbox) then game.player:die() elseif self.hitboxLeft:collide(game.player.hitbox) and (math.inRangeNotIncl(game.player.y, self.hitboxLeft.y1, self.hitboxLeft.y2) or (math.inRangeNotIncl(game.player.y + 8, self.hitboxLeft.y1, self.hitboxLeft.y2))) then game.player:move(self.speed, 0) elseif self.hitboxRight:collide(game.player.hitbox) and (math.inRangeNotIncl(game.player.y, self.hitboxRight.y1, self.hitboxRight.y2) or (math.inRangeNotIncl(game.player.y + 8, self.hitboxRight.y1, self.hitboxRight.y2))) then game.player:move(-self.speed, 0) end local boarderLeft = self.rectL.x + self.rectL.w local boarderRight = self.rectR.x if boarderRight - boarderLeft < 0.01 then -- ًں”ٹًں¤¯ if not self.crutch then local sound = data.Player.sfx.closeDoor sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) self.crutch = true end return end for _, collider in ipairs(game.enemies) do if self.hitboxLeft:collide(collider.hitbox) and self.hitboxRight:collide(collider.hitbox) then collider:die() elseif self.hitboxLeft:collide(collider.hitbox) and math.inRangeNotIncl(collider.y, self.hitboxLeft.y1, self.hitboxLeft.y2) then collider:move(self.speed, 0) elseif self.hitboxRight:collide(collider.hitbox) and math.inRangeNotIncl(collider.y, self.hitboxRight.y1, self.hitboxRight.y2) then collider:move(-self.speed, 0) end end end function Door:_closing() self:_colliding() local boarderLeft = self.x + self.rectL.w local boarderRight = self.x + self.rectR.w if math.floor(self.hitboxLeft.x2) < boarderLeft then self.rectL:moveLeftTo(self.rectL:left() + self.speed, 0) self.hitboxLeft:set_xy(self.rectL:left(), self.y) elseif math.floor(self.hitboxLeft.x2) > boarderLeft then self.rectL:moveLeftTo(self.x, 0) self.hitboxLeft:set_xy(self.rectL:left(), self.y) end if self.hitboxRight.x1 > boarderRight then self.rectR:move(-self.speed, 0) self.hitboxRight:set_xy(self.rectR:left(), self.y) elseif self.hitboxRight.x1 < boarderRight then self.rectR:moveLeftTo(boarderRight) self.hitboxRight:set_xy(self.rectR:left(), self.y) end if not (self.status == 'closedFromStart') then if self.hitboxLeft:collide(self.hitboxRight) then if self.shakeTimer >= data.Door.shakeTimeTics then if not self.Crutch then game.camera:shakeByDoorStop() self.Crutch = true; end else game.camera:shakeByDoor(0.7) self.Crutch = false; self.shakeTimer = self.shakeTimer + 1 end end end self.speed = self.speed + data.Door.closingAcceleration end function Door:_opening() -- whers ending, i like it more! self.crutch = false self.shakeTimer = 1 self.speed = data.Door.speed local boarderLeft = self.x + data.Door.closedGapInPixels local boarderRight = self.x + 2 * self.rectR.w - data.Door.closedGapInPixels if math.floor(self.hitboxLeft.x2) > boarderLeft then self.rectL:move(-self.speed, 0) self.hitboxLeft:set_xy(self.rectL:left(), self.y) elseif math.floor(self.hitboxLeft.x2) < boarderLeft then self.rectL:moveRightTo(boarderLeft, 0) self.hitboxLeft:set_xy(self.rectL:left(), self.y) end if self.hitboxRight.x1 < boarderRight then self.rectR:move(self.speed, 0) self.hitboxRight:set_xy(self.rectR:left(), self.y) elseif self.hitboxRight.x1 > boarderRight then self.rectR:moveLeftTo(boarderRight) self.hitboxRight:set_xy(self.rectR:left(), self.y) end end local UpperLeftTileX2 = data.Door.spriteTiles.upperLeft -- ذ¾ر‚رپرژذ´ذ° ر€ذ¸رپرƒذµذ¼ ذ½ذ° ذ´ذ²ذ° ر‚ذ°ذ¹ذ»ذ° ذ²ذ؟ذµر€ر‘ذ´! local UpperRightTile = data.Door.spriteTiles.upperRight local BottomRightTile = data.Door.spriteTiles.bottomRight function Door:drawUpdate() local xleft = (self.rectL:left() - gm.x*8 + gm.sx) local yup = self.rectL:up() - gm.y*8 + gm.sy local xright = (self.rectR:left() - gm.x*8 + gm.sx) local ydownHalf = self.rectR:down() - self.rectR.w / 1.5 - gm.y*8 + gm.sy local w = 2 * self.rectL.w local h = self.rectL.h --LeftUpSide spr(UpperLeftTileX2, xleft, yup, C0, 1, 0, 0, 2, 2) spr(UpperRightTile, xleft + w // 3, yup, C0, 1, 0, 0, 1, 1) spr(BottomRightTile, xleft + w // 3, yup + (h // 2 - 8), C0, 1, 0, 0, 1, 1) --LeftLowSide spr(UpperLeftTileX2, xleft, ydownHalf, C0, 1, 2, 0, 2, 2) spr(BottomRightTile, xleft + w // 3, ydownHalf, C0, 1, 2, 0, 1, 1) spr(UpperRightTile, xleft + w // 3, ydownHalf + 8 * 1, C0, 1, 2, 0, 1, 1) --RightUpSide spr(UpperLeftTileX2, xright + w // 6, yup, C0, 1, 1, 0, 2, 2) spr(UpperRightTile, xright, yup, C0, 1, 1, 0, 1, 1) spr(BottomRightTile, xright, yup + (h // 2 - 8), C0, 1, 1, 0, 1, 1) --RightLowSide spr(UpperLeftTileX2, xright + w // 6, ydownHalf, C0, 1, 3, 0, 2, 2) spr(BottomRightTile, xright, ydownHalf, C0, 1, 3, 0, 1, 1) spr(UpperRightTile, xright, ydownHalf + 8 * 1, C0, 1, 3, 0, 1, 1) end function Door:draw() end function Door:_spawnBlockingTiles() if not self.solidTilesSpawned then for addX = 0, data.Door.widthTiles - 1 do for addY = 0, data.Door.heightTiles - 1 do mset(self.x // 8 + addX, self.y // 8 + addY, data.Door.solidTileId) end end self.solidTilesSpawned = true end end function Door:_despawnBlockingTiles() if self.solidTilesSpawned then for addX = 0, data.Door.widthTiles - 1 do for addY = 0, data.Door.heightTiles - 1 do mset(self.x // 8 + addX, self.y // 8 + addY, 0) end end self.solidTilesSpawned = false end end function Door:update() self:drawUpdate() if self.status == 'close' then self:_closing() --self:_spawnBlockingTiles() elseif self.status == 'open'then self:_opening() --self:_despawnBlockingTiles() end end -- EnemyFactory.lua enemyFactory = {} function enemyFactory.getConfig(tileID) return data.EnemyConfig[tileID] end local function addDebugValidation(t) wrapper = {t} local metatable = { __index = function(_, k) if t[k] == nil then error("Config value '" .. k .. "' is missing!") end return t[k] end } setmetatable(wrapper, metatable) return wrapper end -- Move to data Rose.sprite = Sprite:new({389, 391, 393, 395, 397, 421}, 2) Rose2sprite = Sprite:new({393, 395, -1, -1, -1, 275}, 2) function enemyFactory.create(tileX, tileY, tileID) local x = 8 * tileX; local y = 8 * tileY; local config = enemyFactory.getConfig(tileID) config = addDebugValidation(config) local type = config.name -- ذ—ذ´ذµرپرŒ ر€ذ°ذ½رŒرˆذµ ذ´ر€رƒذ³ذ¾ذµ ذ¸ذ¼رڈ ذ±ر‹ذ»ذ¾ -- ذ—ذ°ذ¼ذµر‚ذ؛ذ°(kawaii-Code): ذ’ ذ¸ذ´ذµذ°ذ»رŒذ½ذ¾ذ¼ ذ¼ذ¸ر€ذµ ذ²رپر‘ ر‚ذ°ذ؛ ذ¸ ذ±رƒذ´ذµر‚ ر€ذ°ذ±ذ¾ر‚ذ°ر‚رŒ. -- ذ‍ذ´ذ½ذ°ذ؛ذ¾ ذ¼ذ¸ر€ ذ½ذµ ذ¸ذ´ذµذ°ذ»ذµذ½. ًں¦چًں¦چ -- ًں¤ âک‌ if type == 'Enemy' then return Enemy:new(x, y) elseif type == 'StaticTaraxacum' then return StaticTaraxacum:new(x, y, config), {noCollisions = true} elseif type == 'Snowman' then return SnowmanBox:new(x, y, config, music), {noCollisions = true} elseif type == 'MusicRose' then local musicRose = MusicRose:new(x, y, config.direction, data.Rose.sprites, 1, config) -- musicRose:tuning(config.music.beatMap, config.music.sfxMap) musicRose:tuning(config.music) return musicRose elseif type == 'MusicWeakRose' then local musicRose = MusicRose:new(x, y, config.direction, data.WeakRose.sprites, 11, config) -- musicRose:tuning(config.music.beatMap, config.music.sfxMap) musicRose:tuning(config.music) return musicRose elseif type == 'MusicBulletHell' then local musicBulletHell = MusicBulletHell:new(x, y, config) -- musicBulletHell:tuning(config.music.beatMap, config.music.sfxMap) musicBulletHell:tuning(config.music) return musicBulletHell elseif type == 'MusicAutoBulletHell' then local musicAutoBulletHell = MusicAutoBulletHell:new(x, y, config) -- musicAutoBulletHell:tuning(config.music.beatMap, config.music.sfxMap) musicAutoBulletHell:tuning(config.music) return musicAutoBulletHell end end -- Checkpoint.lua Checkpoint = table.copy(Body) local status = { disabled = 0, enabled = 1, justUsed = 2, appearing = 3, } function Checkpoint:new(x, y) local obj = { x = x + 1, y = y + 1, sprite = data.Checkpoint.turnedOffSprite:copy(), turnOnAnimation = data.Checkpoint.turnOnAnimation, hitbox = Hitbox:new( x, y, x + data.Checkpoint.width, y + data.Checkpoint.height ), status = status.disabled, } setmetatable(obj, self) self.__index = self return obj end function Checkpoint:enable() self.sprite = data.Checkpoint.turnedOnSprite:copy() self.status = status.enabled end function Checkpoint:enableBeatiful() self.sprite = data.Checkpoint.turnOnAnimation:copy() self.status = status.appearing end function Checkpoint:disable() self.sprite = data.Checkpoint.turnedOffSprite:copy() self.status = status.disabled end function Checkpoint:use() self.sprite = data.Checkpoint.justUsedSprite:copy() self.status = status.justUsed end function Checkpoint:update() if self.status == status.disabled and self.hitbox:collide(game.boomer.hitbox) then -- ًں”ٹ ًںکچ local sound = data.Player.sfx.checkpoint sfx(sound[1], sound[2], sound[3], sound[4], sound[5], sound[6]) self:enableBeatiful() game.save(self) end if self.status == status.appearing then if self.sprite:animationEnd() then self:enable() end self.sprite:nextFrame() end end -- Player.lua Player = table.copy(Body) Player.stayFront = data.Player.sprites.stayFront Player.stayBack = data.Player.sprites.stayBack Player.runFront = data.Player.sprites.runFront Player.runBack = data.Player.sprites.runBack Player.death = data.Player.sprites.death Player.hat = data.Player.sprites.hat function Player:new(x, y, boomerang) local obj = { sprite = Player.stayFront:copy(), startX = x, startY = y, verticalFlip = false, x = x, y = y, lastDx = 1, lastDy = 0, dx = 0, dy = 0, speed = data.Player.speed, flip = 0, -- ذ½ذ°ذ؟ر€ذ°ذ²ذ»ذµذ½ذ¸ذµ ذ؟ر€ذ¸ ذ¾ر‚ر€ذ¸رپذ¾ذ²ذ؛ذµ رپذ؟ر€ذ°ذ¹ر‚ذ° hitbox = Hitbox:new_with_shift(x, y, x+3, y+6, 2, 1), -- shift ذ؟ذ¾ر€ر‚ذ¸ر‚ ذ¼ذ°ذ»ذ¸ذ½رƒ bfs boomerang = boomerang, boomerangActive = false, status = 'alive', deathDurationMs = data.Player.deathAnimationDurationMs, like_0xDEADBEEF = false, } setmetatable(obj, self) self.__index = self return obj end function Player:_willMoveCheck() self.dx = 0 self.dy = 0 -- chill bro~~ if game.key(KEY_W) then self.dy = self.dy - 1 end if game.key(KEY_S) then self.dy = self.dy + 1 end if game.key(KEY_A) then self.dx = self.dx - 1 end if game.key(KEY_D) then self.dx = self.dx + 1 end end function Player:_verticalFlipCalculator() local wasMoving = false if math.abs(self.dx) + math.abs(self.dy) ~= 0 then -- was moving~ wasMoving = true end if math.abs(self.dx) + math.abs(self.dy) ~= 0 then -- is moving~ self.lastDx = self.dx; self.lastDy = self.dy frame = self.sprite:getFrame() self.sprite:setFrame(frame) if self.dy < 0 and not self.verticalFlip then self.verticalFlip = true self.sprite = Player.runBack:copy(); elseif self.dy > 0 and self.verticalFlip then self.verticalFlip = false self.sprite = Player.runFront:copy(); end if not wasMoving or #self.sprite.animation == 1 then if self.verticalFlip then self.sprite = Player.runBack:copy() else self.sprite = Player.runFront:copy() end end else if self.verticalFlip then self.sprite = Player.stayBack:copy() else self.sprite = Player.stayFront:copy() end end end function Player:_horizontalFlipCalculator() if self.dx == -1 then self.flip = 1 elseif self.dx == 1 then self.flip = 0 end end function Player:_tryMove(movementNormalizer) local dx = self.dx * self.speed * movementNormalizer local dy = self.dy * self.speed * movementNormalizer if self:willCollideAfter(dx, dy) then if not self:willCollideAfter(dx, 0) then self:move(dx, 0) end if not self:willCollideAfter(0, dy) then self:move(0, dy) end else self:move(dx, dy) end local tilex = self.x // 8 local tiley = self.y // 8 for _, tile in ipairs(game.transitionTiles) do if tile.x == tilex and tile.y == tiley and game.playerArea ~= tile.area then game.playerArea = tile.area trace('Player transitioned into area ' .. game.playerArea) end end end function Player:_movementNormalizerGen() local movementNormalizer = data.Player.movementNormalizerStraight if self.dx * self.dy ~= 0 then movementNormalizer = data.Player.movementNormalizerDiagonal end return movementNormalizer end function Player:_shoot() self.boomerang.active = true self.boomerang.canBePickedUp = false if game.key(KEY_UP) then self.boomerang:init(self.x, self.y, C0, -1) -- ذ،0 - رڈذ¹ر†ذ° رپذ°ذ¼ذ¾ذ³ذ¾ ذ»رƒر‡رˆذµذ³ذ¾ ذ؛ذ°ر‡ذµرپر‚ذ²ذ° return end if game.key(KEY_DOWN) then self.boomerang:init(self.x, self.y, C0, 1) return end if game.key(KEY_LEFT) then self.boomerang:init(self.x, self.y, -1, C0) return end if game.key(KEY_RIGHT) then self.boomerang:init(self.x, self.y, 1, C0) return end self.boomerang.active = false end function Player:_createDeathEffect() local x = self.x local y = self.y local particleCount = math.random(data.Player.deathParticleCountMin, data.Player.deathParticleCountMax) local particleSpeed = data.Player.deathAnimationParticleSpeed local function randomSide() return 2 * math.random() - 1 end particles = {} for i = 1, particleCount do local spawnx = x + randomSide() local spawny = y + randomSide() particles[i] = Particle:new(spawnx, spawny, data.Player.deathParticleSprite) local dx = randomSide() local dy = randomSide() particles[i]:setVelocity(particleSpeed * dx, particleSpeed * dy) end end function Player:die() if self.status == 'dying' then return end self.sprite = Player.death:copy() self.sprite:setFrame(1) self:_createDeathEffect() local time = 0 local step = self.deathDurationMs / #Player.death.animation self.deathTimer = function() time = time + Time.dt() self.sprite:setFrame(1 + time / step) return time > self.deathDurationMs end self.status = 'dying' end function Player:boomerangHandle() if not self.boomerang.active then self:_shoot() -- *dead* end end function Player:update() if self.status == 'dying' then isDead = self.deathTimer() if isDead then self.status = 'alive' game.restart() end return end if game.keyp(KEY_R) then -- Smert :) self:die() return end -- if keyp(KEY_B) then -- -- Metronome :( -- game.metronome.onBass = not game.metronome.onBass -- end -- if keyp(27) then -- sfx(0, 'D-2', -1, 0, 10, 0) -- -- trace('GNOADFNASDJV') -- end -- if keyp(28) then -- sfx(0, 'D-2', 10, 0, 10, 0) -- end -- if keyp(29) then -- sfx(0, 'D-2', 20, 0, 10, 0) -- end -- if keyp(30) then -- sfx(0, 'D-2', 30, 0, 10, 0) -- end -- if keyp(31) then -- sfx(0, 'D-2', 60, 0, 10, 0) -- end if not self.like_0xDEADBEEF then self:_willMoveCheck() -- wanna move?~ self:_verticalFlipCalculator() -- will flip? self:_horizontalFlipCalculator() -- will flip?? self.sprite:nextFrame() self:_tryMove(self:_movementNormalizerGen()) -- MOVED‼ self:boomerangHandle() -- Boomer go brrrrr end end -- return Player -- Bike.lua Bike = table.copy(Body) function Bike:new(x, y) local obj = { x = x, y = y, hitbox = Hitbox:new(x, y, x + 16, y + 16), -- left top again ًںک’ sprite = data.Bike.sprites.waitingForHero:copy(), currentAnimations = {}, status = 'forgotten', area = MapAreas.findAreaWithTile(x // 8, y // 8), cutscene = nil, beforeCutsceneTime = 0, beforeCutsceneMaxTime = 120, beforeBikeGoBR = 480, beforeBikeGoBRMaxTime = 640, } setmetatable(obj, self) self.__index = self return obj end function Bike:sparkle() trace('sparkling~~') end function Bike:_drawAnimations() --trace('yay2') for _, anime in ipairs(self.currentAnimations) do anime:play() end end function Bike:draw() --trace('yay') self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) self:_drawAnimations() if self.cutscene then self.cutscene:draw() end end function Bike:_focusAnimations() local center = self.hitbox:get_center() local width = self.hitbox:getWidth() local height = self.hitbox:getHeight() -- ر‡ر‚ذ¾ذ±ر‹ ذ°ذ½ذ¸ذ¼ذ°ر†ذ¸رڈ ذ؟ر€ذ¾ذ¸ذ³ر€ر‹ذ²ذ°ذ»ذ°رپرŒ ذ²ذ¾ذ؛ر€رƒذ³ ذ±ذ°ذ¹ذ؛ذ°ذ½رƒر€ذ° ذ³ذ´ذµ-ر‚ذ¾ local x1 = center.x - width / 2 local x2 = center.x + width / 2 local y1 = center.y - height / 2 local y2 = center.y + height / 2 -- self.hitbox:draw(2) rect(x1,y1, x2 - x1, y2 - y1, 2) for _, anime in ipairs(self.currentAnimations) do anime:focus(x1, y1, x2, y2 - 8) end end function Bike:onStatus() --trace('heyday') rand = math.random(14) if rand == 7 then local anime = AnimationOver:new(table.chooseRandomElement(data.Bike.sprites.animations), 'randomOn', 'activeOnes') --need refactoring if anime.sprite.sprite == 457 or anime.sprite.animation ~= nil and anime.sprite.animation[1] == 457 then anime.right_sided = true anime.left_sided = false end table.insert(self.currentAnimations, anime) self:_focusAnimations() end end --TODO: CUT scene function Bike:scene() --ًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆ - a bit laggy --for i = 1, 10000000 do -- if (true) then -- local lol = 1 -- end --end --ًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆًںکˆ --game.player:die() end function Bike:endspiel() end function Bike:update() --trace('yay1')\ if self.status == 'endgame' then self.beforeCutsceneTime = self.beforeCutsceneTime + 1 self.beforeBikeGoBR = self.beforeBikeGoBR + 1 if (self.beforeCutsceneTime > self.beforeCutsceneMaxTime and self.cutscene.TIMERCRUTCH) then --useless bigdata self.cutscene:updateGMXGMSXGMYGMSY() self.cutscene:make_smokkkkk() self.cutscene.TIMERCRUTCH = false self.cutscene.THENBIKEGOAWAY = true end 2c if (self.beforeBikeGoBR > self.beforeBikeGoBRMaxTime and self.cutscene.THENBIKEGOAWAY) then self.cutscene:go_away() end self.cutscene:update() return end if self.status ~= 'endgame' and self.hitbox:collide(game.player.hitbox) then self.sprite = data.Bike.sprites.himAgain:copy() trace('Ugh, rolled around in the sandbox again, drunkard!ًںک‍') self.cutscene = CutScene:new(game.player, game.bike) self.cutscene:init() self.status = 'endgame' --yose return end if self.area == game.playerArea then self.status = 'blossomed' else self.status = 'forgotten' end if self.status == 'blossomed' then self:onStatus() end end -- Boomerang.lua Boomerang = table.copy(Body) boomerangSpinningSprite = data.Boomerang.sprites.spinning function Boomerang:new(x, y, dx, dy) local obj = { -- dx, dy in [-1, 1] sprite = boomerangSpinningSprite:copy(), x = x, y = y, dx = dx, dy = dy, canBePickedUp = false, speed = data.Boomerang.speed, flightNormalizer = data.Boomerang.flightNormalizerStraight, px = 0, jpy = 0, dpMs = data.Boomerang.damagePerMillisecond, hitbox = Hitbox:new_with_shift(-1000+2, -1000+2, -1000+6, -1000+6, 2, 2), active = false, status = 'going brrr', shakeOld = false, } obj.pickupTimer = Timer:new(900):onEnd(function() obj.canBePickedUp = true end) if obj['dx'] * obj['dy'] ~= 0 then obj['flightNormalizer'] = data.Boomerang.flightNormalizerDiagonal end obj['decelerationThing'] = obj['speed'] / data.Boomerang.decelerationConstant setmetatable(obj, self) self.__index = self return obj end function Boomerang:init(x, y, dx, dy) self.x = x; self.y = y self.dx = dx; self.dy = dy self.speed = data.Boomerang.speed self.pickupTimer:reset() if self.shakeOld then game.camera:shakeByBoomer(0.2) self.shaking = true end end function Boomerang:focus() self.px = game.player.x self.py = game.player.y end function Boomerang:update() -- trace(self.x.." "..self.y) if not self.active then return end self.sprite:nextFrame() self.pickupTimer:update() self.speed = self.speed - self.decelerationThing * Time.dt_in_60fps() if self.pickupTimer:ended() and self.hitbox:collide(game.player.hitbox) then if self.shakeOld or self.shaking then game.camera:shakeByBoomerStop() self.shaking = false end self.active = false self.hitbox:set_xy(-1000, -1000) return end if self.speed < 0 then self:focus() self:_reverseUpdate() return end local dx = self.speed * self.dx * self.flightNormalizer --* Time.dt_in_60fps() local dy = self.speed * self.dy * self.flightNormalizer --* Time.dt_in_60fps() self:moveUnclamped(dx, dy) end function Boomerang:_reverseUpdate() local fx = self.px local fy = self.py local x = self.x local y = self.y if fx == x then fx = fx + 0.0000001 end d = math.abs(fy - y) / math.abs(fx - x) dx = self.speed / math.sqrt(1 + d*d) --* Time.dt_in_60fps() dy = dx*d --* Time.dt_in_60fps() -- xdd~~~ local kx = 1 local ky = 1 if fx < x then kx = -1 end if fy < y then ky = -1 end local ddx = -1 * kx * dx -- ذ²ر‚ذ¾ر€ذ°رڈ ذ؟ر€ذ¾ذ¸ذ·ذ²ذ¾ذ´ذ½ذ°رڈ ر…رƒذ»ذ¸ ?!??!?!?! local ddy = -1 * ky * dy self:moveUnclamped(ddx, ddy) end function Boomerang:draw() if not self.active then return end self.sprite:draw(self.x - gm.x*8 + gm.sx, self.y - gm.y*8 + gm.sy, self.flip, self.rotate) end -- return Boomerang -- CameraWindow.lua CameraWindow = {} function CameraWindow:new(deadZoneRect, target, targetWidth, targetHeight) local obj = { area = deadZoneRect, deadbeef = nil, target = target, targetWidth = targetWidth, targetHeight = targetHeight, we_are_shaking_for = 0, shakeMagnitude = {}, statuses = {}, status = 'normal', } setmetatable(obj, self) self.__index = self return obj end function CameraWindow:moveCamera() local centerX = math.floor(self.area:centerX()) local centerY = math.floor(self.area:centerY()) local tileX = math.floor(self.area:centerX() / 8) local tileY = math.floor(self.area:centerY() / 8) gm.x = tileX - math.floor(120 / 8) gm.sx = 8 * (tileX) - centerX gm.y = tileY - math.floor(68 / 8) gm.sy = 8 * (tileY) - centerY end function CameraWindow:centerOnTarget() local dx = self.target.x + self.targetWidth / 2 - self.area:centerX() local dy = self.target.y + self.targetHeight / 2 - self.area:centerY() -- ذ§ر‚ذ¾ذ±ر‹ ذ½ذµ ذ؛ذ°ذ¼ذµر€ذ° ذ½ذµ ذ´ذµر€ذ³ذ°ذ»ذ°رپرŒ, ذ؛ذ¾ذ³ذ´ذ° رƒذ¶ذµ ذ´ذ¾رپر‚ذ¸ذ³ذ»ذ° ذ¸ذ³ر€ذ¾ذ؛ذ° if math.abs(dx) < 1 and math.abs(dy) < 1 then return end local length = math.sqrt(dx * dx + dy * dy) dx = dx / length dy = dy / length self.area:move(dx * CAMERA_SPEED, dy * CAMERA_SPEED) end function CameraWindow:getDirectionToTarget() local dx, dy = 0, 0 if self.area:isObjectRight(self.target, self.targetWidth) then dx = 1 elseif self.area:isObjectLeft(self.target) then dx = -1 end if self.area:isObjectBelow(self.target, self.targetHeight) then dy = 1 elseif self.area:isObjectAbove(self.target) then dy = -1 end return dx, dy end function CameraWindow:shakeByDoor(magnitude) if not self.statuses['doork'] then self.statuses['doork'] = true end self.shakeMagnitude['doork'] = magnitude end function CameraWindow:shakeByBoomer(magnitude) if not self.statuses['boomer'] then self.statuses['boomer'] = true end self.shakeMagnitude['boomer'] = magnitude end function CameraWindow:shake(magnitude) --self.status = 'shake' --self.shakeMagnitude = magnitude if not self.statuses['shake'] then self.statuses['shake'] = true end self.shakeMagnitude['shake'] = magnitude end function CameraWindow:shakeByDoorStop() self.statuses['doork'] = false end function CameraWindow:shakeByBoomerStop() self.statuses['boomer'] = false end --function CameraWindow:shakeStop() -- TODO fix conflict with many shakes ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ًںک‘ -- self.status = 'normal' --end local function oneOrMinusOne() return math.random(0, 1) == 0 and -1 or 1 end function CameraWindow:update() local dx, dy = self:getDirectionToTarget() if self.area:isObjectInside(self.target, self.targetWidth, self.targetHeight) then self:centerOnTarget() -- ذ£ر€ذ°, رڈ ذ¸رپذ؟ذ¾ذ»رŒذ·ذ¾ذ²ذ°ذ» goto!!! goto move end if dx < 0 then self.area:moveLeftTo(self.target.x) elseif dx > 0 then self.area:moveRightTo(self.target.x + self.targetWidth) end if dy < 0 then self.area:moveUpTo(self.target.y) elseif dy > 0 then self.area:moveDownTo(self.target.y + self.targetHeight) end ::move:: local do_we_shake = false if self.statuses['doork'] then self.area:move( self.shakeMagnitude['doork'] * oneOrMinusOne(), self.shakeMagnitude['doork'] * oneOrMinusOne() ) do_we_shake = true elseif self.statuses['boomer'] then self.area:move( self.shakeMagnitude['boomer'] * oneOrMinusOne(), self.shakeMagnitude['boomer'] * oneOrMinusOne() ) -- do_we_shake = true elseif self.statuses['shake'] then self.area:move( self.shakeMagnitude['shake'] * oneOrMinusOne(), self.shakeMagnitude['shake'] * oneOrMinusOne() ) do_we_shake = true end if do_we_shake then self.we_are_shaking_for = self.we_are_shaking_for + Time.dt() if self.we_are_shaking_for > 2.0 then -- trace("fuck you$$") self.statuses['doork'] = false self.statuses['boomer'] = false self.statuses['shake'] = false end else self.we_are_shaking_for = 0 end --if self.status == 'shake' then -- self.area:move( -- self.shakeMagnitude['shake'] * oneOrMinusOne(), -- self.shakeMagnitude['shake'] * oneOrMinusOne() -- ) --end self:moveCamera() end -- return CameraWindow -- Settings.lua settings = {} SettingLever = table.copy(Lever) SettingLever.spriteOff = data.SettingLever.sprites.off -- is default SettingLever.spriteOn = data.SettingLever.sprites.on function SettingLever:new(x, y, setting) local obj = { x = x, y = y, wires = {}, setting = nil, sprite = SettingLever.spriteOff:copy(), hitbox = Hitbox:new(x, y, x+8, y+8), status = 'off' } setmetatable(obj, self) self.__index = self return obj end local function changeSetting(name) for i, set in ipairs(settings) do if set.name == name then set.change(set.state) end end end function SettingLever:_turn() if self.status == 'off' then self.sprite = SettingLever.spriteOn self.status = 'justOn' self:_toogleWires() self.setting.state = true changeSetting(self.setting.name) return elseif self.status == 'on' then self.sprite = SettingLever.spriteOff self.status = 'justOff' self:_toogleWires() self.setting.state = false changeSetting(self.setting.name) return end end settings = { [1] = {name = 'oneBitPallete', state = false}, [2] = {name = 'boomerShake', state = false}, } settings[1].change = function (state) -- changes palette palette.toggle1Bit() end settings[2].change = function (state) -- changes boomer shake game.boomer.shakeOld = state end -- Game.lua game = {} function game.key(id) if key(id) then return true end local z = 26 local x = 24 if key(z) or key(x) then return false end if btn(KEY_to_btn[id]) and not key(KEY_UP) and not key(KEY_DOWN) and not key(KEY_LEFT) and not key(KEY_RIGHT) and not key(KEY_A) and not key(KEY_S) and not key(KEY_D) and not key(KEY_W) then return true end return false end function game.keyp(id) if keyp(id) then return true end return false --if btnp(KEY_to_btn[id]) and not key(KEY_UP) -- and not key(KEY_DOWN) and not key(KEY_LEFT) and not key(KEY_RIGHT) -- and not key(KEY_A) and not key(KEY_S) and not key(KEY_D) -- and not key(KEY_W) -- then -- return true --end end local function createMetronome() return Metronome4_4:new(GAME_BPM) end Decorations.init() local function createCheckpoints() local checkpoints = {} for x = 0, MAP_WIDTH do for y = 0, MAP_HEIGHT do if mget(x, y) == data.Checkpoint.flagTile then local checkpoint = Checkpoint:new(x * 8, y * 8) table.insert(checkpoints, checkpoint) end end end return checkpoints end local function createCamera(player) local cameraRect = Rect:new( player.x - 16, player.y - 6, CAMERA_WINDOW_WIDTH, CAMERA_WINDOW_HEIGHT ) camera = CameraWindow:new( cameraRect, player, 8, 8 ) return camera end local function createSettingLevers() local slevers = {} local leverTiles = {} for x = 0, 239 do for y = 0, 135 do local tileType = gm.getTileId(x, y) if table.contains(data.mapConstants.settingLeverIds, tileType) then mset(x, y, 0) table.insert(leverTiles, {x=x, y=y}) local lwr = SettingLever:new(x * 8, y * 8) local doorWiresLever = DoorMechanic.findConnectionWithoutDoor(x, y) -- ذ؟ذ¾ذ´ر‹ر‰ذµذ¼ ذ؟ر€ذ¾ذ²ذ¾ذ´ذ° ذ¸ ذ؛ذ¾ذ¾ر€ذ´ر‹ ذ½ذµذ´ذ²ذµر€ذ¸ lwr.wires = doorWiresLever.wires table.insert(slevers, lwr) end end end if table.length(slevers) ~= table.length(settings) then error('wheres no connection betw settings and togglers '..#slevers..' '..table.length(settings)) end for i, set in ipairs(settings) do slevers[i].setting = set end return slevers end local function createLevers() local levers = {} local leverTiles = {} for x = 0, 239 do for y = 0, 135 do local tileType = gm.getTileId(x, y) if table.contains(data.mapConstants.leverIds, tileType) then mset(x, y, 0) table.insert(leverTiles, {x=x, y=y}) local lwr = Lever:new(x * 8, y * 8) local doorWiresLever = DoorMechanic.findConnection(x, y) -- ذ؟ذ¾ذ´ر‹ر‰ذµذ¼ ذ؟ر€ذ¾ذ²ذ¾ذ´ذ° ذ¸ ذ؛ذ¾ذ¾ر€ذ´ر‹ ذ´ذ²ذµر€ذ¸ lwr.wires = doorWiresLever.wires lwr.door = doorWiresLever.door -- ذ²ر€ذµذ¼ذµذ½ذ½ر‹ذµ ذ؛ذ¾ذ¾ر€ذ´ذ¸ذ½ذ°ر‚ر‹, ذ² رپذ¾ذ·ذ´ذ°ذ½ذ¸ذ¸ ذ´ذ²ذµر€ذµذ¹ ذ·ذ°ذ¼ذµذ½ذ¸ر‚رپرڈ ذ½ذ° ذ½ذ°رپر‚ذ¾رڈر‰رƒرژ ذ´ذ²ذµر€رŒ table.insert(levers, lwr) end end end return levers end local function createDoors(levers) local doors = {} local doorTiles = {} for x = 0, 239 do for y = 0, 135 do local tileType = gm.getTileId(x, y) if table.contains(data.mapConstants.doorIds, tileType) then -- what is 204? 2004 maybe? mset(x, y, 0) for _, lever in ipairs(levers) do -- ذ؟ذ¾ذ´ر‹رپذ؛ذ¸ذ²ذ°ذµذ¼ ر€ر‹ر‡ذ°ذ³ ذ´ذ»رڈ ذ´ذ²ذµر€ذ¸ if lever.door.x == x and lever.door.y == y then local door = Door:new(x * 8, y * 8) lever.door = door table.insert(doorTiles, {x=x, y=y}) table.insert(doors, door) break end end end end end return doors end game.enemyRespawn = {} local function createEnemies() local enemies = {} if #game.enemyRespawn == 0 then for x = 0, MAP_WIDTH do for y = 0, MAP_HEIGHT do local id = mget(x, y) if data.EnemyConfig[id] == nil then goto continue end mset(x, y, C0) table.insert(game.enemyRespawn, {x=x, y=y, id=id}) ::continue:: end end end for _, enemyInfo in ipairs(game.enemyRespawn) do local enemy, additionalInfo = enemyFactory.create( enemyInfo.x, enemyInfo.y, enemyInfo.id ) if additionalInfo and additionalInfo.noCollisions then table.insert(game.drawables, enemy) table.insert(game.updatables, enemy) goto continue end table.insert(enemies, enemy) ::continue:: end return enemies end function game.updateActiveEnemies() local plarea = game.playerArea if game.playerAreaLast and game.playerAreaLast ~= -2147483648 then for _, enemy in ipairs(AreaToEnemies[game.playerAreaLast]) do enemy.isActive = false end end for _, enemy in ipairs(AreaToEnemies[plarea]) do if enemy.isActive ~= nil then enemy.isActive = true end end end function game.updatePlayerArea() if game.playerAreaLast then if game.playerAreaLast == game.playerArea then return else game.updateActiveEnemies() game.playerAreaLast = game.playerArea end else game.playerAreaLast = -2147483648 end end local function createBoomerang(x, y) return Boomerang:new(x, y, 0, 0) end local function createPlayer(x, y, boomerang) local tilex = x // 8 local tiley = y // 8 game.playerArea = MapAreas.findAreaWithTile(tilex, tiley) return Player:new(x, y, boomerang) end local YOUFORGOTYOURBIKEHERE = {-1, -1} local function createBike(my_bike_was_here) local bikex = my_bike_was_here.x local bikey = my_bike_was_here.y local numbikes = 0 for x = 0, 239 do for y = 0, 135 do local tileType = gm.getTileId(x, y) if data.mapConstants.bikeTiles['comparader'] == tileType then --ذ¸ذ· رچر‚ذ¾ذ³ذ¾ ذ؛ذ¾ذ´ذ° رپذ»ذµذ´رƒذµر‚, ر‡ر‚ذ¾ ذ±ذ°ذ¹ذ؛ رپذ°ذ¼ ذ¾رپذ¾ذ±ذ¾ذ´ذ¸ر‚ ذ؟ر€ذ¾رپر‚ر€ذ°ذ½رپر‚ذ²ذ¾ ذ´ذ»رڈ رپذ²ذ¾ذµذ³ذ¾ ذ²ذ¾ذ´ذ¸ر‚ذµذ»رڈ mset(x, y, 0) mset(x + 1, y, 0) mset(x, y + 1, 0) mset(x + 1, y + 1, 0) --ذ´ذ»رڈ ذ؛ذ¾ذ³ذ¾ ذ؛ذ¾رپر‚ر‹ذ»رŒ, ذ´ذ»رڈ ذ¼ذµذ½رڈ, ذ»ذ¸ر‡ذ½ذ¾, ذ¾ذ؟ر‚ذ¸ذ¼ذ¸ذ·ذ°ر†ذ¸رڈ bikex = (x) * 8 bikey = (y - 1) * 8 numbikes = numbikes + 1 end end end if numbikes > 1 then return nil end YOUFORGOTYOURBIKEHERE = {x = bikex, y = bikey} return Bike:new(bikex, bikey) end local checkpoints = createCheckpoints() game.startingCheckpoint = {x = PLAYER_START_X, y = PLAYER_START_Y} game.checkpoints = checkpoints game.lastUsedCheckpoint = nil game.checkpointStack = Stack:new() function game.save(checkpoint) if game.lastUsedCheckpoint ~= nil then game.lastUsedCheckpoint:enable() game.checkpointStack:push(game.lastUsedCheckpoint) game.lastUsedCheckpoint = nil end game.checkpointStack:push(checkpoint) end function game.load() if game.lastUsedCheckpoint ~= nil then game.lastUsedCheckpoint:disable() game.lastUsedCheckpoint = nil end if game.checkpointStack:count() == 0 then return game.startingCheckpoint end local checkpoint = game.checkpointStack:pop() checkpoint:use() game.lastUsedCheckpoint = checkpoint return checkpoint end -- ذ“ذ»ذ¾ذ±ذ°ذ»رŒذ½ر‹ذµ رچذ»ذµذ¼ذµذ½ر‚ر‹ ذ¸ذ³ر€ر‹, ذ؛ذ¾ر‚ذ¾ر€ر‹ذµ ذ½ذµ -- ذ¼ذµذ½رڈرژر‚رپرڈ ذ¾ر‚ رپذ¾ر…ر€ذ°ذ½ذµذ½ذ¸ذ¹ (ذµرپذ»ذ¸ ذ¸ذ³ر€ذ¾ذ؛ -- ر€ذµرپذ؟ذ°ذ²ذ½ذ¸ر‚رپرڈ ذ½ذ° ر‡ذµذ؛ذ؟ذ¾ذ¸ذ½ر‚ذµ, رˆر‚رƒذ؛ذ¸ رپذ½ذ¸ذ·رƒ -- ذ½ذµ ذ¸ذ·ذ¼ذµذ½رڈر‚رپرڈ) game.areas, game.transitionTiles = MapAreas.generate() local levers = createLevers() game.doors = createDoors(levers) local settingLevers = createSettingLevers() game.fruits = createFruits() fruitsCollection.needed = #game.fruits -- ذ’رپذµ رچذ»ذµذ¼ذµذ½ر‚ر‹ ذ¸ذ³ر€ر‹, ذ؛ذ¾ر‚ذ¾ر€ر‹ذµ ذ؟ذ¾رڈذ²ذ»رڈرژر‚رپرڈ -- ذ·ذ°ذ½ذ¾ذ²ذ¾ ذ؟ذ¾رپذ»ذµ رپذ¼ذµر€ر‚ذ¸ ذ¸ذ³ر€ذ¾ذ؛ذ°. function game.restart() local spawnpoint = game.load() -- \/ ذ°ذ½ذ°ذ»ذ¾ذ³ذ¸ر‡ذ½ذ¾ رپذ؟ذ°ذ²ذ½ذ؟ذ¾ذ¸ذ½ر‚رƒ, ذ° ذµرپذ»ذ¸ ذ²ر‹ ذ·ذ°ر…ذ¾ر‚ذ¸ر‚ذµ ذ¼ذ½ذµ ر‡ر‚ذ¾-ر‚ذ¾ رپذ؛ذ°ذ·ذ°ر‚رŒ: @^_^@ - ذ² ذ½ذ°رƒرˆذ½ذ¸ذ؛ذ°ر… local terminationpoint = {x = PLAYER_END_X, y = PLAYER_END_Y} -- ذµرپذ»ذ¸ ذ²ذ°رپ ذ²ذ¾ذ»ذ½رƒذµر‚ ذ½ذµذ¸رپذ؟ذ¾ذ»رŒذ·رƒذµذ¼ذ°رڈ ذ؟ذµر€ذµذ¼ذµذ½ذ½ذ°رڈ, ر‚ذ¾ ذ¸ذ´ذ¸ر‚ذµ ذ¸ ذ¶ذ°ذ»رƒذ¹ر‚ذµرپرŒ رپذ²ذ¾ذµذ¼رƒ ( ï¹پ ï¹پ ) ~→ ذœذ¸ر…ذ°ذ»ذ؛ذ¾ذ²ذ¸ر‡رƒ game.drawables = {} game.updatables = {} game.collideables = {} local metronome = createMetronome() local enemies = createEnemies() local boomerang = createBoomerang(spawnpoint.x, spawnpoint.y) local player = createPlayer(spawnpoint.x, spawnpoint.y - 1, boomerang) local bike = createBike(YOUFORGOTYOURBIKEHERE) local camera = createCamera(player) local fruitPopup = FruitPopup -- table.insert(game.updatables, metronome) table.concatTable(game.updatables, checkpoints) table.insert(game.updatables, player) table.insert(game.updatables, bike) table.insert(game.updatables, camera) table.insert(game.updatables, boomerang) table.concatTable(game.updatables, enemies) table.concatTable(game.updatables, levers) table.concatTable(game.updatables, game.doors) table.concatTable(game.updatables, settingLevers) table.concatTable(game.updatables, game.fruits) table.insert(game.updatables, Decorations) table.concatTable(game.drawables, checkpoints) table.concatTable(game.drawables, levers) table.concatTable(game.drawables, settingLevers) table.concatTable(game.drawables, enemies) table.concatTable(game.drawables, game.fruits) table.insert(game.drawables, player) table.insert(game.drawables, bike) table.insert(game.drawables, boomerang) table.concatTable(game.drawables, game.doors) table.insert(game.drawables, fruitPopup) table.concatTable(game.collideables, enemies) table.concatTable(game.collideables, game.doors) game.mode = 'action' -- ذ—ذ°ر‡ذµذ¼ رچر‚ذ¾? :| -- رچر‚ذ¾ ذ±ر‹ذ»ذ¾ ذ´ذ»رڈ ذ¼ذµذ½رژ ذ¸ رپذ¾ذ·ذ´ذ°ذ½ذ¸رڈ ذ؟ذ°رƒذ·ر‹ game.metronome = metronome game.player = player game.bike = bike game.boomer = boomerang game.camera = camera game.enemies = enemies MapAreas.CookEnemies() game.updateActiveEnemies() end game.restart() function get_time_str() local ms = math.floor(Time.t) local s = math.floor(ms / 1000) local m = math.floor(s / 60) local mss = math.floor(Time.t * 100) % 100 local s_str = string.format("%02d", s % 60) local m_str = string.format("%02d", m) local mss_str = string.format("%02d", mss) return s_str, m_str, mss_str end function game.draw() -- map(gm.x, gm.y , 30, 17, gm.sx, gm.sy, C0) map(gm.x, gm.y , 31, 18, gm.sx, gm.sy, C0) for _, drawable in ipairs(game.drawables) do drawable:draw() end local s_str, m_str = get_time_str() -- ذ’ذ؛ذ»رژر‡ذ¸ر‚رŒ ر‡ر‚ذ¾ذ±ر‹ ذ±ر‹ذ»ذ° ر‚ذµذ½رŒ ًں•¶ print(m_str .. ':' .. s_str .. '\n', 0, 1, 6, true, 1, true) -- ذ ذ°ذ¼ذ؛ذ° -- rect(0, 0, 22, 7, 6) print(m_str .. ':' .. s_str .. '\n', 0, 0, 14, true, 1, true) end game.deleteSchedule = {} -- ذ¢ذ°ذ؛ذ¾ذ³ذ¾ ذ؛ذ¾رپر‚ر‹ذ»رڈ ذ¼ذ¸ر€ ذµر‰ر‘ ذ½ذµ ذ²ذ¸ذ´ر‹ذ²ذ°ذ» - ًں‘´ -- ذک ذµذ³ذ¾, رپذ»ذ°ذ²ذ° ذ±ذ¾ذ³رƒ, ذ؟ذ¾ذ؛ذ° ر‡ر‚ذ¾ ذ½ذµ ذ±رƒذ´ذµر‚ -- game.soundsQueue = Queue:new() function game.update() if game.ended then game.drawGameEndScreen() return end game.metronome:update() Time.update() GameTimers.update() for _, updatable in ipairs(game.updatables) do updatable:update() end if #game.deleteSchedule > 0 then table.removeElements(game.updatables, game.deleteSchedule) table.removeElements(game.drawables, game.deleteSchedule) game.deleteSchedule = {} end game.updatePlayerArea() local draw_start = time() game.draw() local draw_elapsed = time() - draw_start end function game.finish() game.completionTimeSeconds = Time.t / 1000.0 game.ended = true end local textYs = {20, 100, 130} function game.drawGameEndScreen() local backgroundColor = 0 local textColor = 8 local textX = 4 local scrollAmount = 10 local minScroll = 20 - 4 * scrollAmount local maxScroll = 130 -- if key(KEY_W) and textYs[3] + scrollAmount <= maxScroll then -- for i = 1, 3 do -- textYs[i] = textYs[i] + scrollAmount -- end -- end -- if key(KEY_S) and textYs[1] - scrollAmount >= minScroll then -- for i = 1, 3 do -- textYs[i] = textYs[i] - scrollAmount -- end -- end -- rect(0, 0, MAP_WIDTH, MAP_HEIGHT, backgroundColor) game.draw() print( -- shadow 'Thank you for playing!', textX, textYs[1] - 2 + 2, 6, false, 2 ) print( 'Thank you for playing!', textX, textYs[1] - 2, textColor, false, 2 ) local SHIFT_X = 120 local SHIFT_Y = 28 print( -- shadow 'Fruits collected:\n\n ' .. fruitsCollection.collected .. ' / ' .. fruitsCollection.needed, textX, textYs[1] + SHIFT_Y + 1, 6, false, 1 ) print( 'Fruits collected:\n\n ' .. fruitsCollection.collected .. ' / ' .. fruitsCollection.needed, textX, textYs[1] + SHIFT_Y, textColor, false, 1 ) local s_str, m_str, ms_str = get_time_str() print( -- shadow 'Your time: ' .. m_str .. ':' .. s_str .. '.' .. ms_str .. '\n\n' .. 'Dev time: 04:48.07', textX + SHIFT_X, textYs[1] + SHIFT_Y + 1, 6, false, 1 ) print( 'Your time: ' .. m_str .. ':' .. s_str .. '.' .. ms_str .. '\n\n' .. 'Dev time: 04:48.07', textX + SHIFT_X, textYs[1] + SHIFT_Y, textColor, false, 1 ) -- print( -- 'Dev time: ' .. 100 .. 's', -- textX, textYs[3], -- textColor, -- false, -- 1 -- ) end -- return game function TIC() cls(C0) game.update() end