`,}HiƧp8d%qy)6oHqAsVl3D>D?D3DD433333 @00330333@DDDDDD4DD4D33333333333333DDCDD@DDC@DDCDD3?33333333303340DDD@DDC@CD@CD3333333333333334@DDDDDDCDDDC@D MM  "2" @ #3"33"233"2333" D 2 M,D,,M<"3#B3"#""@DDDDDDD @ D"D4""4433D33#" D 2 M,D,,"M<#3"B3"DD"DD#CD"DD  "2" @ #3"33"233"2333" D 2 M,D,,M<"3#B3"#DD@@DD0233#"3"" #"" "DD BDD "#"#""2#""2#""23"$"3DD"CD,"3-"3/"3""""D$DD,-/@D03030303030303$3""##DD#BDD#"L#"#"#"#""2#""23C$"3DD"C,"3,"3/"3/DD"2D$DD,,,/0233#"3"" #"" """ "DD BDD#"""#"2#""2#""23"""3"$"3DD"CD""3""""""""D$DD"" @@DDDD@@333030303@DDD#"3333333333333333334333D333/DDCDDDDDDDDDDCD433333CDD3?D33333333333D03300303333333333333333333333333333333CDDDDDDODDDCD433333CDD3DDD4?D33333333333333333030303@DDD#"333333333333333333334333D333/DDCDDDDDDDDDDCD433333CDD3?D33333333333Df``e`e`fgfpu`fgf`e`ef`  3333<<DD0DD@4CDDD33DD33@D@D433443CD33C333@DD@DDD@D4D@D4DDDD4DDD4DDD33DDCDCD333D33C3333DDDDDDC4DC4033@433DD33DD33@D@333C333C333033@DDD@DDD@DDD@D4DDDD4DDD333DDDDCD33333333DDDDDDDDDC4DD0DD@4CDDD33DD33@D@D433443CD33C333@DD@DDD@D4D@D4DDDD4DDD4DDD33DDCDCD333D33C3333DDDDDDC4DC4 x!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444!444444444444444444444444444444444444!!!!!!!!!!!!!"""""""""""""""""!!!!!!!!!""""""!!!!!!!!!""""""""""""""""""""""""""!!!!!!!!!!"!!!!!!!!!!!!""!!!!!!""""!!!!""!!!!!!!!!!M"!!!!!!!!!!""""""" """" !!!!!!!!!!b@!!!!!!!!!! V!!!!!!!!V!!!PQQ!!!""""""" !!!!!!!!!!!V88888888888888!!!"""3 !!!!!!!!!!!PaPaPaaaPQQQQQQQ!!!PQQQQ33 !!!!!!!!!!!888V!!!PQQQ33d !!!!!!!!!!! !!!!3!!!!! O!!!!!!!!!!!888888888 !!!!!!!!!!!!"PQQQQQQQQ !O!!!!!!!!!!!!8 !!!!!!!!!!!!"PQQQQ!!$ !!!D"""""!!!!!!!PQQQQQQQQQQQQQQQ%Paaaaa8 !!!!!!!!!!!!!!1111!!!!!!!!!!!!!!!$b"!!!!!!!!"PQQ%%88 !!!!!! !!!!!!!!!!!!1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%%88 !!!!!!  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"%%%88 !!!!!!!   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"%%%888 """""!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""!!!!!!!!!!%%% !!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!"""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%%% """!!!!!!  !!!!!""""""""!!"""!!!!!!!!!!! "!!!!!!!!!!!!!!!!!!!!!!!!!""!!"!!!!!!!%%%pp ! """!!!!!!! !!!"""""""""!!!!!!!!Paaa ""!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!PQQPQQQQQPQQ%%" """""!! !""!!! !!! """"""""""""!!!!!!!!!!!!!!!!!!!% """"V!!! !!!PQQQQ """"""""""""!!!!!!!!!!%0  !!! !! !""""""""""%%p %d !!! !!55 !%PQQQQQQQQQQQQ0  % %" !!!b 5111155 b!V0 % % "M !!!! 5551111111111111 111111111!!!!!!!!!!!!!!!!!!!!00 0%   !!! 51111111111"""""""1111111 11111111111!!!!!!!!!!!!!!!!!!!"O%000 % %0%%  !! 1!!!!""""""""""""""!!!!!" 11!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11111110%00V%0 0%0%0%  !! O!!!1222""""""""""""!!!!" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111"%0%%0PQQQQ  0% 0%%% 0%0 !!! !!!22222"""""""""""!!!" (( "!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1!%00%%0% %0%%11 %0 V!!! !!!!22"""""""""""!!" """"""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%%%00%$% %%111111111 !!!! !!!!22!!!!!!!!!!!" """"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%%0%%%11111111111111111111111!!! !!12 2!!1 """"""""""""!!!!!!!!!!!!!!!!!!!0%%0%%00%22221111!!!!!! !12 1!2 ""!!!!!!!!!!!!!!!!"%%%%0%%0211!!!!!!! !2  11 """"""!!!!!!!!!!%0%%%V%%000211!!!!!" !!  22 ""!!!!!!!"%%%%%%221!!!! !!  d p!!!!!!" %0%%%%V00221!! !!!  2 !!!!"" %1!ٞ%%8%%002!! "!!  """" %22222 %%8%%%0!! !"  3 % ( O%%83%0%%%%0!! "  3 % "%%8Kb%%%0%!!!   3 % ((((%%383bMM%%%%0%%%000!""!   3 555%555 555ڝ5%%K85b5555511111111@@%%0%%%%%0"3""   b!!!!!111111111111111 111111111111%ه3855ڇ@11111111111111111111111111%%%%%0%%%33  5555b5551111111BBBBBBB!!!!!!!11111111111111!!!1!!1111111111111111111111111111111111111111111111111111133%%%%%%%0%%%33 5 1111111111111111111555111111111111111!!!!!!!!11111111111111111111111111111111111111111111111111111111111111111111111133%%0%0%0%%%%%%3!!!***** !111111111111111111111111111111111111111111111111111111Vd!!!!!!!!!1111111111111111111111111111111111111111111111111111111111111111111111133%%%%!!!!""++!!!!!!!!!!!!!!!!!111111111111111111111111111111111111111111111111!!!!!!!!!!!!!!!1111111111111111111111111111111111111111111111111111111111111111111!!!!"+++"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"+++ "!!!!!!!!!!!!!!"""!!!!!!!""""""""3!!!!!+++ "!!!"""!!!!!"""!!!!!!p3  K  !00 00      !!!!!!++ "!!!!!!"33  K  3 V3|0000000   0  0Pa!!!!!!++ "!!!"""!"330000000 0   !!!!!!!++ """ "V3 ! 000 0  !!!!!!!+ !!!!! 000  0 0000 !!!!!!! !!!!!3  ̮̮̮00000  % 0 0!!!!!!!!! !!!!!      K̮̮̮0000  % !!!!!!!!!!! !! !!!!!3̮̮̮ !0000   M!!!!!!!!!!"! !!!! !!!!!!  d$!  % !!1111!!!!!!!!!""! !"!"!!!! !"!!!!!!3BBBB0%0  % !!!!!!!!!!!!!!!!! "!!!!!!!!!33K 33%% !!!!!!!!""""!!!!!!!!! !!!!!!!!!!!!!K  K3 3  K$ 0%0!!!!"""""++++!!!!!!!!!! !!!!!!!!!!!!!!V3d3d3@3!!!!!!"+++++++++"!!!!!! !!!! !!!!!!!!!!!!!!!!!!!!!!!!++++++++++++++!!!""""!!!!+++++++++++!!!!!! !!"" !!""""!!""""""!!!!""""!!!!,,!!!! "!!!!! !" !""!"""""3!!,,,"!!!! "!!!! !!eMM Kp  !,,,!!!! !!!! !!33@@3 Vb!,,,!!!! L !!!! !"!,,,,!!!! !!!!!! !!   33D{{{333,,,,,!!! !!!!!!! !! 33 D333,,,,,!!! !!!!!!! !! !!!!!! 33 D333,,,,,!!" !!!!!!! "!!! !!!!!!!!!!!   33 !!,,,,,د!! !!!!!!! """ !!!!!!!!!!|!!!!!${33{ !!!!!!! !!!!! o "!"""" !!!!!!!!!!!!!!!!!!!D  !!!!!! ""!! L "" 3 !!!!!!!!!!!!!!!!!!! 3 3333333333333  !!!!! """ 3 !!!!!!!!!!!!!!!!!!!  3   3  33 33 3333 3 KK3MM!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3333$3333333M333@@!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!{88$OdOO@|$$$$@$$!!! L !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!! ""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!!!!!!!!""""""""!!!4 4e!!!!!!!!!!!!!!!!!!!!"""""""""""!!!!!"""!!!"""""!!!!"""""88"""!!!!!!!!!!!!!!!!!!!!eeee!!"!!4 L 4!!!!!!!!!!!!!!!!!"""!!""""""!!""88!!!!!!!!!!!!!!!!!!!!!e!!!e4 4!!!!!!!!!!!!!""!!!!88!!!!""""!!!!!!!!!!!! !!!!4 L 4!!!!!!!!!!!!"!!88!!!! """"""!!!!!!! !!""""!!M!!!e 4!!!!!!!!!!!"!!88 ((""""""!! !!!!!!!!4 L L 4!!!!!!!!!!"!88 (( 3"!! !!!"" """""!""""!4 4!!!!!!88 (( 3!! $!!!4 4!!4 L 4!!!!!""!!!!!!!!!!!! ((3!!&=) &=)!"""""""""""""""""""""""""""""""""""""""""!"""""""""""""""""!"""""""""""""""!4 4!!4 4e!!!!!2222111PQQQQQQQQQQPQQQQQ!!!!!!!!! ((3Pa!!69 6933!4 4!!4 4!!!!211,,,!!"!!! (( 3!!69 69K3!4 4" """44 L L 4!!!22222222212,,Paaaa,!!"!! (( 3!!$69 693d3Vb!e4 44 4!32,,,!!!! (( 3V!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!""""""""""""""""""" """"""""""""""""""!""""""""""""""""4 44  4!K,,,!!!! ((!!!!!!!!!!!!!!!!!!!!!!!4 44 44444444444444444444444444 444444444!V3PQQ,,,!!!! !((!!!!!!!!!!!!!!!!!!!!!!!4 44 4ee4 4e!!!!!!222,,,""!!!!!!!!!((!!!!!!!!!!!!!!!!!!!!!!!4 44 4e4 4e!!!!!,,,""!!!!!!!((!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!4 4eeeeeeeeeeeeeeee4 4ee4 4!!!!!,,,""!!!!!((!!!!!!!!!!!"""!!!!!!!!!!4 44eeeeeeeeeeeeeeee4 44 4!!!!!,,,""""!((!!!!!!!!33!!""!!!!!!!!!4 4eeeeeeeeeeeeeeeee4 44 4!!!!!!,,, "(("!!!!!!e!K3!!!!!!!!!!!4 4eeeeeeeeeeeeeeee4 44 4!!!!!!,,, (("!!!!!!BB!33!!!!!!!!!!!4 4eeeeeeeeeeeeeeee4 4e4 4e!!!!!!!,,, (( !!!!!!M!!!!!!!!!!!!!88!!e"!!!!!!!!4 4eeeeeeeeeeeeeeee4 4444444444444 4!!!!!!!,,, (( !!!!!!@@@b!88!!!!!!!!4 4eeeeeeeeeeeeeeeeee4 4e4 4!!!!!!!!,,PQQQQQQQQQQ, (( !!!!!!BB!88!!!!!!!!4 4eeeeeeeeeeeeeeeeeeeeee4 44 4e!!!!!!!"Paaaaa,,,, ((!!!!!!!!%%%!!M88!!@b!!!!!!4 4eeeeeeeeeeeeeeeeeee4 444444444444 4!!!!!!",,,, ((!!!!!!!!%%%!!88!!"""""""""""!4 4eeeeeeeeeeeeeeeeeeeee4 4ee4444ee4 4!,,,, ((!!!!!!!!%%3%!!""""""""""""88""!44 444eeeeeeeeeeeeeeeeeeee4 44 44444444 444444444!,,,, ((!!!!!!!!%OOVO%3b%!!88e!4 4eeeeeeeeeeeeeeee4 44 o 4!b,,,, ((!!!!!!!!!!!!!!!!!!!!!!!!88!4 4444444444444444444444444444444444444444444444444444 4444444444444444444 4!!!!!"BBB,,,, !!!!!!!!!!!!!!!!!!!!!!!!!!88!4 o 3 4 44444444 444444 4!!!!" 22111112 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!b88@b!4 3 444444 4e4 4!!!! 222112 !!!!!!!!!!!!!4444444444444444!!!!!!!!!!!!!!!!!!!!!!!!!!!!444444444444444444444444444444444444444444444444444444444 44444444444444444 44 44 4!!!! 2212 !!!!!!""""!!!444444444!!!!!!!!!!!!!!!!!!!!!!!!!!!!e4 44 44 4e4 4!!!" 22 ""!!!!"!!44444!!!!!!!!!!!!!!!!!!!!!!!!!!!!ee4 4e4 44 44 4!!! 2 """!!!404!!!!!!!!!!!!!!!!!!!!!!!!!!!!e4 44 4e4 44 4!!! "d!!4004!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""""""!4 44 44 4e4 4!!!! "!!! !!4%04!!!!!!!!!!!!!!!!!""""""""!!!!!4 44 44444e4 4!!!! "!! !!40%4!!!!!!!!!!!!!!!!!"!!!!4 44 44 4!!!!! !! !!4%004!!!!!!!!!!!!!!!!!!!!M!4 44 44444444444444444444 4!!!!! "! !!4%4!!!!!!!!!!!!!!!!!b!!!!!4 4e4 4!!!!! !!4%4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!4444 44444444444444444 4!!!!! o !!4%V4!!!!!!""""""!!!!!"!""""""!!!!4 44 4444444444444444444 44!!!! V !!48888!!!""""""!!!Ne4 44 44 44!!!!!! !!! !!!!!48!!"e!!e!4444444444444444444444444444444 44e4 44 3 !!!!! !!! !!!!!!4!!!!!5b5e4 44 3 !!!! !!!!!!! !!!!!!!! !!!!!!!4b!!!!!114 o 44 4!!!!!!!!! !!!!!! !!!!!!!!! !!!!!!!!!! !!!!!!!!4!!b@@@!!b@Vb!11111111111111114 444444!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1111111111111111!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1111111111111111444444444444e y  '''),/,)+-/-+-////////////////c  eUhhhhhhhhhhhhhhhhhhhhhhhhhhhhC xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx$ # uud ~~}||{{zzyyxxx xxxxxxxxxxxxxxt .}w0srrqqqqqqqqqqqqqqqqqqqqqqqqq0Й 1Иr`((((((((((((((((((((((((((((((@@@@@@@@@@ABBCCDEFHIJLLNOOOOOO~}|{zyxxwwvuutssssssssssssssssppp```@@@000    8;????????????????????????????9;<===>>>>>>>???????????????????>>>====<<<;;:9987777????????g899::;;;;<<<<=====>>>?????????b p @ :p?p;p?pp?p?p?p?p?p?p???????????????f>==>??????????????????????????;<=>>>>>>????????????????????? 0 ` pp pp pp p`P ` a a a b c c cdeffgiiijjkklmmmnnnoa `py0d``PPP@@00  0@.q+($%')+-.///.-///////////////@ ???>=;987543223345689::;<=>>>?7bd f0g@iPj`kpmpnooooooooooooooooo #0000@0pppppppppppppppppppp p p p p pp  @`pp=yyy  ppppppppppppppppppp /////////////////,    5?????????????????????????????= ?=???????????????????????????40 4 79;=>???????????????????????    !" # # $%&'()*+,--./////////////      0000 0 0 0 0 00-0=0^0o00???????????????*    ////////////////////////// 000000000000000000000000??????. 0000 0 00000@1@1P1P1`2`3`4`5p6p7p9p:p;p

p?p?p????? 0001122345789 : ; < = > >? ??????????@p `P!R R S T U VWXYZ[]^_______________f 2568:;<========>>>>???????????$%6HXhgvtr0p0p0@002356789:;;<<===>>????????]???>>>======<<<<;;;:::9986430?```````````aaaabb b c0d@ePfPh`i`kplpmpnpop$ p`P@00 .9????????????????????????????? >=;:8????>=<;????>=<<????>==??$>q;r:r9s877666789 : ; < = > >? ??????????%0> 0 4 9 ;=>??????????????????????    4 ?5???????????????????????????m,oo44??// ` ``d4l< k;FFdF4F&&l&<&&&k&;&`0`0 `0PPpPpPpPPpPpPpPPpPpPp   4> < ; 9764 ` ` ` ` ` ` `` `` ``` ` `` `` ``` ` `` `` `` ` `` `` `` `d4 ddkd;d ddmd=dFFdF4F &&k&;& &&m&=&                        h hh hhhh hhhh hhhh hhhh hhhh       PPPPPPPPPQQQPQQQPPQQQPQQQPPQQQPQQQPPQQQPQQQPPccccccccccccccccCC           0jjjjjj j j j j j jjjjjjjjjjjjjN NN Nj j j j f ffff f ffQQqQQrQQqQQr   jj jj j jJ J J J J j j j jjmm mm m mM M M M M m m m mm  m m m m m  jjjjjjjijjj9jjji9 jj=j8jj;j ` ` `AA AAA AAAAAAA j j  5ii i i iiiB BB BBB B B B                  PQQPQQPPPPQQPQQPPPPQQPQQPP  d4 ` ` ` ` ` ` ` ` ` ` `@@@@@@g@f@d@7@6@4@   PPPPPPPPPPQQPQQPPPPQQPQQPPPP C CCC# C CCC# CCCC # CCCC #CCC# # BBBBBBeB5B%BB CCCCCCeC5C@@@AABR00I0H0HRPTTTTTTTTTTuyuǁDžǁ#}#}c}}''2h | |h | |k~~|.o o / / 5656;;/////,:,;?;?;??0#;333333333333 3333 3333 3333333333333333 03333 03333 0333333̜̜3̙̙̜̜̜̜̜̜̜̜̜̜̜̜̜̜̜̜͜͜03333ݝݝ03333ݙݙ03333333333333333333333333333333333333333333333333333333333333ɜIDȈșODD)3Ȉ)""33I陙)DB$33󙔙)D$BDI3?3I)D$BD33333I)""D4333333?I)D$DDD43333 I?I)""D43333333 I),D4333333 )D<33333 I3)D<3333333 ;3)D<3333333 ;33)DD<3333333 33339ODD43333033 3333I3DD43333033 ?933M33333033;33C3333333333D43333333333D43333CD3333D3CDD4CD33DDDD3D;333333CD4333333333#333̜;3333<3233̙̙L43D̜̙DDDCD̜̜LDD4DD̜̙DDL̜̙D̜333333̙̜333333̙̜333333̙̜033̙͜033̙ݝ033 ̙ݙ033 ̙033 ,033 2033 )"ɜM,033 2#D,033"3",333333)33"M<333333)233""3"3333332333#B3#233#"2#"""3"""2#"")#"""23""")"DD$"3DD$)BDDD"CDDD)","3,#"-"3-9#"/"3/3#"/DDfU03333w333sCDDfU03333w333w7DDD)"ifYU03333 xwwwww3DDD?92ifYU3333 wwww73DDD33)#"ifYU3333 wCD43333"#"""fffUUU3333 www3333333#""""wwwfff3333 ̈wwCDD3333D#"Ι?-??#3333 ̈ww|7?DDD4333D/"󯙙)3#3333 ̏w7ODDD433CO#"3)333#3333333 ~www3ODDD333CD33=3""33#33#"3333333 333333333C<3-33#333"3333333 w~DDD3D43C<3333333333 w~GDDDD9C4̬fffUUU3333 ND4OCDDC499o_3333ID4DCDDC4IIUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeUeV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RVV&RV%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b%""b2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R2b"R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R&""R""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"f"#"U&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%eU&%e,0,}HiƧp8d%qy)6oHqAsVl3333 33C3  "" ""BD 23"33C"33C"33C 23̻̻pwwpgvpffpVepVeff`pgvgvpVepVegv`pgvWupVegvpgvgvpVepVegv`""""233"23#"23"#2#2#2"3#"23#""""@@00@@`eu`PeU@044C`PeU `PeU@``PeU- 23"33C"33C"33C 23""BD  `````f`f`ff  L$B$BL 2C D4B$DCB$BCB"DCB$DC D42C330@@DD@0D0wwpwwwwwwwpwwwwwwwwwwwpwwwwwwwwwpwwwwwwwww|  ``wggpgwfg 2# C4 C42# www~www|ww~~w~wwwww~~  `fvww`ffwwwwff`fww`fvwwwg 2020#20# 00#  01110 233#<<<233#  wwp pw} wwp pw}  `ψ`[+R pfg`fpv L 0  0L ww ww Ȍ̈興興Ȍψ̈興興S50`f@V@`Tef0T0     "3"3"3"3"3"3"3"3"3"3"3"3 ʪ ʪ UPPUPUUUUPUUPUUPPPUUPUUPUUPUUU UUUUU\UPUUPUU QafVaQef "  3 3 3 3 ??3 3D3D" # """"" 22"22" # """""" 22"22  """""""""" """""""""""" # """"" 22"22" # """""" 22"2"?  """""""" """"""""" ""233@433@43C0C0@?D433D340@"233@433@43C43C43?D433D343C03C""33@4#@4#43343""33232333C03C""233@433@43C0C?D433D34"""233@433@43C0C0@.?D433D340@""""33@4#@4#030@""""33232330@ B" 33"""B" "" "2343C44CB4D23D"33C"33C"3 ̰ ̰̰ " # """"@" 22"22@" # """"" 22"228Ȭȯʌ 2"2"2<  ##"#","B0@ @ @4"3"2033@433@43C0CC?343D34 ""233@433@43C0C?43D343 ?3 ?"3D333D@4C@4,,O"D333D34C0C 3?3?33?3?33?3?33?3?33;3;3333 ? 333 333 3;3;3333 ? 333 333  着3?3;3333?着3?3;3333?;3;3;3 333 333 33 ;3;3;3 333 333 33   #2 2 2`T@o4c@?S43@?cVf@DD4@$4DB@$4@B 4  gf˻ ̠ ̬̠ 0<0 00003   @0 @@@ 0""" D@DD@@@D@@DOD3333D33@3?3@@@@DOD3333D33@3?3@@ 0 MM  @@@??;33;333333@@@@@??;33;333333@@ DD@@DD 3󪪪;;333?33333󪪪;;333?3333 @@DDDD@@  3;3;3;33333333333333;3;3;3333333333333 f``e`e`fgfpu`fgf`e`ef`  3333<<2 ?"""```"f"w 2fffff ff"ww"?޻ PPPUf 2UUUUUUUff?  2 2333?3""-33223f?3333333ffo  2 2 "2"33U?3333333UU_ $x444444444444444444444444444444444444444444444444444444444444444AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA444444444444444AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA44AAAAAAAAAAAAAAAAAAAAAAAAAA444A3AAAAAAAA44AAAAAAAAAAAAAAAAAAAAAAAAAA444AKAAAA44AAAAAAAAAAAAAAAAAAAAAAAA4444A3bAAMAVA44AAAAAAAAAAAAA?=?=?=AAAA4444AAAAAAAAAAAAA44AAAAAAAAAAAAAAAAA4444AAAVA44AAAAAAAAAAAAAAAAA44MMMM44CCCCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4M4AAAAAAAAAAAAAAAAA4444AAAAA#%0@%4AAAAAAAAAAAAAAAAA4444AAAAA#%V0@#AAAAAAAAAAAAAAAAA4444AAAAA#0@%%0@0@0@#AAAAAAAAAAAAAAAAA4444AAAAAAAAAAAAAAAAAAA##0@0@0@0@0@  ##AAAAAAAAAAAAANAAAA4444AAAAAAAAAAAAAAAA#####AAAAAAAAAAAAAVbAAAA4444AAAAAAAAAAAAAA##b  66&&   66ْ  E###AAAAAAAAAAAAAAAAAAAAAAAA4444AAAAAAAAAAAAAA###EbEbEEbIEbEGbbEEEJb####AAAAAAAAAAAAAAAAAAAAAAAAAA4444AAAAAAAVAAAAAAA################################################################AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4444AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCCC444444444444444444444444444444444444444444444444444444444444444AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCCC4AAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAM4AAAAAVAAAAA0@4AAAAAAAAAAAAAAAAA%%0@%4 666 AAAAMAAAAA0@0%%@4AAAAAAAAAAAAA0@%%0@0%%@4 666 AAAAAAAAAAAAAAAAA0@0@0@0@0@0%%@AAAAAA3AAACCCCCCCCCCCCCC0@T%%%%TA 666 AAAAAAKAAA%C%C% %%%%33AAAAAAAAAAA3AAAAAAA%C%C%     % %% %33AM 66 AAAAA  66%C&%&C  % 6 %%%33AAbbAAAAAbJbH Cb UCb GbbG%%%%##AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMACCCCCCCCCCCCCCB##AAAAAA###################AObA#######################################################################AA#########################%############## A A A A A A###################AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA#AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA#######AA######################AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""""""""""!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAA#####################AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!555555"""""""""!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4444444444444444AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA""!!!!!!!!"!!"!!"!!"!!!!!!!!!!!!!!!!!!!!555555A"""!!!!!!!AAAAAAAAAAAAA44AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAV""!!!!!!5!!!!5!!!!!!!!!!!!!""!!!!!!!555555A"""!!!!!AAAAAAAAAAAAA44AAAAAdAAAAAA""!!!!5!!!!5!!!!!!!!!!!!"""!!!!555555A!!!!!AAAAAAAAAAAAA44AAAAAAA!"""5""""5""!!!!!!!!!!!!!5555555A!!!!!AAAAAAAAA33A44Ae5555555555555555!!!"""5555555!!!!!AAAAAAAAAK3A44A335555555555555555!!!555555553!!!!!AAAAAAAAA33A44AMM3MMM355555555555555555!!!5555D555553!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA44A335555555555555555!!!5555$5555553b$!!!!!AAAAAAAAAA33!44AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!5!!!!5!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAMA33!4)4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!5!!5!!5!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAA333db!44AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!5!!5!!5!!5!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAA%A 3 A!!!!!!!!!!!!!!!!44AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAA%A 3 AAAA!!!!!!!!!!!!!!!!4V4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA%AAAAAAAAAAAAAA!!!!!!!!!!!!!!!!AAAAAAAAAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!""""!!!!!!!!!!!!!!!!!!!!!!!!!A444444444444444444444444444444444444444444AAAA4444444444444444444444444444444444444444444444AAAAAAAAAAAAAAA4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!""""""""""""""!!!!""""""""""""""!!!""""""!!!A AA)A AA)A A4!!!!!!!!!!!!!!!!!!!"""""""""""""""!!!!!!!!!5555555555555555555555555555555555555!!!!5555!!!"!!!AAAAAAAAAAAAAAAAAA4!!!!!!"!!""""""""!!""""!!!!!!M!5555555555555555555555555555555555555!!!!!55555!!!55"!!!MA994!!""""!!!!!"!5"""""""""555555555555555555555555555555555555!!""""555!!!555""!!AAAAAAA4!!!!!!"!555555""""""""""""""""!!!!!!!!!!!!!!!!!!!"##!!!!555!!"5555555"!!!A%J4!!"!!!""5555555555""""""""!!!!!!!!!!!!"""!!!!""""""55555555"!!!A0@99994!!!!!555555555555""!!!!!!!!!!!O!!5555555555555555"!!A0@AAAAAAAAAAAAAAAAAAAAA4!!!!!55555555555""""!!!!!!!!!!55555555555555555"!AAAAAAAAAAAAAAAAAAAA4!!!!!55555555555!!!!!!!55555555555555555!AAAAAAAAAAAAAAA999CCCCCAAAAAAAAA4!!!!!55555555555"!!!!!!5555555555555555!A&&AAA664!!!!!5555555555!!!!!!!!!!!!!!!!!555555555555!Ab9999AAAA  66&&4!!b!!!555555555!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!555555555!AAAAAAAAAAAAAAAAAAAA994!!!!!!!!!!!!"55555555!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5555555!AAAAAAA66I4!!!!!!!!!!!!55555555!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5555555!A9999AAAAAAAIb  66CCCC&&4!!!!!!!!!!!!!!!!!!!5555555!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!555555!AAAAAAAAAAAAAAAAAAA  4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!555!!!!!!!!!!!555!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(((((((!!!!AAAAAAAAAAAAAAAAAAA&&AA!!!!!!"!!!""!!!!!!!!!!!!"""""!!!!!!!555!!!!!!""""55!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5555555!!!!AAA99AA  66&&AA!!!!"""""""""!!!!!!!!!""""""""!555!!!!!!55555!!!!!!!!!!!!!!!!!!!!""""""""""!!!5555555!!!!A9999AA999AA  AA!!!""!!!!!!!"55555"555!!!!!!55555!!!!!!!!!!!!!!!!!!!!!""""!!5555555"!!!AAAAACCCCCCCCCCCC&&AA!!"p"!!!!!!555555555!!!!!!555d!!!!!!!!!!!!!!!!!!!!!"""""555555""!AAA99AA  &&VAA!""!!!!"555555555!!!!!!555!V!!!!!!!"""""""""!!!!!55555!A AA99AA & && &   AA!""!"55555555!!!!!555AAAAA!!"!!!!!5555!A9999AAAA&&AA!"!55555555!""""55AAAAA""=?=?=?=?=?"AAAA5"555!!A AA99AA AA!!55555555"555AAAAAAAAA5555!AAA99AA66 & && &   )666)AA!!555555555"55AAAAAAAAAM555555!A AAAA6)6AA!!!555555555AAAAeAAAA5555555$!A99999966 AA!!!!5555555533333555555##!A  99 & && & 66  )666)AA!!!V!!!!!!!55555555KKK33!55555555!"!AbIHbIHbcGccIcHcccJAA!!!!!!!!!!!!!55555555533333$!555555!!!AAAAAAAAAAAAAAAAAA#888888888888AAAAAAAAAAAAAAAAAAAAAAAAAAAA8888AAAAAAAAAAAAAAAAAAAAAAAAAAAAA#AAAA#AAAAA#AAAA#AAA!!!!!###!!!!!!!!!555555555!!!!!!!!!!!!!!!!$AAAA$BBBBBBBBBBB$AAAA$!5!!!!5555555#!!M!AAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!d!!!!!!!!!!!!!5555!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAA!!!55!!!!!EE5555!!!!!!!!AAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAA8888AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!((!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAA!!!555!!!!!!#########!!!!!!!!AAAAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA44455"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!555!!!!!!!!!!!!!!!!!"""""""""!""""""""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAA8AA?=?=?=?=?=?AAAAAAAAAAAA8888AAAA555!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!555!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"""!AA,,,AAAA8AAAAAAAAAAAAAAAA3AA55!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!555"!!!!!!!!!!!!!""p!{{{!!!!!!!!!!!!!!!!!!!!!!!!!A 3,,,AAAA8AAAAAAAAAAAAAA8888AA3AA5""!!!!!!!!!!!!!!!!!!!!!!!!"!""!!!!!!5555!!!!!!!!!!!""pp!""""!!!!!!!!!!!!!!!!!!!!!AK,,,AAAA8AAAAAA3dAA55!!!!!!!!!!!!!!!!!!!!!!!!"""!!"!55555"!!!!!!!!!"!!!!!!!!!!!Ab3,,,AAAA8AAAA8888AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5"!!!!!!!!!!!!!!!!!!!!!!!"!!555555!!!!!!!!"!|||||!!!!!!!!AAAAA,,,AAAAAAAAAAAA333AAA4!!!!!!!!!!!!!!!!!!!!!!!""!55555!!!!!!!!""""""|"!!!!!!!AAAAAA AAAA:::::::::AAAAAAA8888AA333AAA4!!!!!!!!!!!!!!!!!!!!!!""""55555!!!!!!!!!!!!!!!AAAAAA AAAA;;;;;;;;;AAAAAAAAA=?=?=?=?=?AA AAAAAA333dAAA4!!!!!!!!!!!!!!!!!!!!!""55555!!!!!!!!|!!"!!!!!!AAAAAA AAAA;;;;;;;;;AAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!""T555O55!!!!!!!!!!!!!!!!!AAAAAA ;;;;;;;;;AAAAA90@AA|AAAAAAAAAAAAA"""""""""""""""""""""55"""55!!!!!!!!!!!!!!!!!!!AAAAAA ;;;;;;;;;AAAAA0@AA8888888AAAAAAAAAAA   AAAA555555555555!!!!!!!!V3!!!!!!!!!!!!AAAAAA ;;;;;;;;;AAAAA988833AA55555555!!!!!!!!!!!!!!K"!!!!!!!!!!!!!!!!!!!!!!!!AAAAAA ;;;;;;;;;AAAAA9988833AAb555EEE5EEEEEEEE5E555!!!!!!!!!!!!!!!!!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAA ;;;;;;;;;AAAAAbUb88833EEbA#######################################!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA########AAA#A#######################################!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!""""""""""""""""""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AA 3AAA!!!!!!!!""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!A,,,,A3,,,,,,,,{,,,,,,,,AAA!!!!!!"""!!!!!!!!!!!!!!!!!!!!!!!!"""""""!!!!!!!!!!!!!!"!A,,,,Ab3,,,,,,,,,,,,,,,,MAAA%!!!!!"""!!!!!!!!!""""!!!!!!"!!""""""""""""""!A,,,,AAAA,,,,,,,,,,,,,,,,AAAAAAAAAAA0@0@!!!""""""""""""!!!!"!!!A,,,,,,,,,,,,,,,,,,,,AAAA0AAAAAAAAAA@0CCCCCCCCCCCC@!!""!!!!!!!A,,,,,,,,,,,,,,,,,,,,AAAAAdAC%C!""!!3!!!A,, ,,,,,,,,,,,,,,,,,,AAAdAAAC%C!!!K!!!!!A,,,,,,,,,,,,,,,,,,,,AAAAAA99A3C%C!!!3!!!!!!A,,b,,,,,,,,,,,,,,,,,,AAAA JbAKC%C!!!!!!!!!!!!!O!!!!!!!!!A,,AAAA,,,,,,,,,,,,,,,,,,AAAAAAAAAAAV3JCG bC!!!!!!!!!M!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A,,,,,,,,,,,,,,,,,,,,ACCCCCCCCCCCC!!!!!!!!!!!!!""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A,,,,M,,,,,,,,,,,,,,,,A3!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3 AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3 AAAAAA AAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAV3bH!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA88AAAAAAAAAAAAAAAAAAAAAAA!""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA88AAA!!!!!!!!!!!!!!"""""""""""!!!!!!!!!!!AAAAAAAAAAAAAAAAA88AAA!!!!!!!!!!!!"""!!!!!!!!!!AMAAAAAAAAAAAAAAAAcc88cHcAAA!!!!!!!!!!""""""""!!!!AAAAAAAAAAAAAAAAAAAAAA88AAAAA88AAAAA!!!!!!!""ppp""""!!!!!!AAAAA!AAAAAAAAAAAAAAAAA88AA88AAA!"!!!!!!!""!!"!!!!AbAAAAAAAAAAAAAAAA88AA88AAA!""!!"""!!!!!AAAAAAAA::::::AAAAAAAAAAAAAAAA88AA88AAA!""!!!!!AAAAAAAA;;;;;;AAAAAAAAAAAAAAAAcc88AA88cAAA!!!"!!AAAAAAAA;;;;;;AAAAAAAAAAAAAAAA888AAAAAA88AAA!!!!!!!AAAAAAAA;;;;;;AAAAAAAAAAAAAAAA88AA88AAA!!!!!""AAAAAAAAA;;;;;;AAAAAAAAAAAAAAAA88AA88AAA!!!!!!!!!!!""AAAA;;;;;;AAAAAAAAAAAAAAAA88bcAVAb88AAA!!!!!!!!!!!!!!!!!!3AAAA;;;;;;AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!KAAAA;;;;;;AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!3MOOAAAMA;;;;;VAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!#!!AAAAAAAAAAAAAAAA/+&b b bqrpqrpbb bjj jj BBBBB B BB iiiii i iidi i ii i ii i i j jj``4400//G; jj j  j  b b  c     WY.Nn.Nn . N n . N n   WYjjjjjj j j j j j j j j j j j jjjjjjjNN N Nf f fff f ffjjjjjj j j j j j j j j j j j jjjjjjjNN N Njj j  j jj jjj jj J JJJ j j j j j   b bbb 'jjjj7jj jZj j jzj j jj j jj jjjjjjj 0jvjj}jjyjj}jjxjj}jjvjj~jj{jj~jjyjj~jjxjj~jjvjjujH H H HHH H H HHhi i iiiiI I IIII jj    bbbbb bbbbbb bccccc cccccc cCCCCC C C C CCCCCC C C C CQrQQrqrqqrqrqqrqrqqqqqq             0Nn n  .8b@rb@rb,@r0 PPPP$QP$QP4QPTQP4QPTQaeaeyy}2"8"Ibibibi((hhll <L0,}HiƧp8d%qy)6oHqAsVl333333333DDDDDDDDDDDDNDDDDDDDNDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD?"3"3"3)3̙3<3"3"3"3"<3"DDDDDDDDODDDDDDDDDLDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD$DDD"DDD"DDD"DDD"DD$"DD$"93̙3ÙÒٙ232"Ü3#<3#<39٘=ə3DLILI4LI43DB""D"""D"""D""BDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDĎ̈̈  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD$"DDD"DDDDDDD4DDD3DDD3DDD4DDDD"B"32#33#33#"33<3,"3232,3322332333233#3332""BD""BD"BDDDDDDDDDDDDDDNDDDDDDDDDDDDDDDDDDDDDDDDLDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD""D""""(DDDDDDDDDDDDDDDDDDDD""""""""""""4DD,̈"̌3#DD""3#""""""DDDDDDDDDDDDDDDDDDDDBDDD""""""""DDDDDDDDDDDDDDDDDDDDDDDD"BDD"""DϜΏ܏ܟ""(""""""""""""""""""""""""(""""""""""""""""""""""33333333333333""""""""""/""?33333333""""""""""""""""3"""33333""""""""""""""""""""3333333333"""""""""""""""""""">33>̙̈͜ݟ܏33333?3333333388388333383333333333:3Ȭ̬88Ȫ3333:̪̪̌̈̌Ϭ?3̪Ϫ3333333̌̌̌3 ?333<<8󈈪3:3333333̌333 3 3 ?  883883333̌̈̌̈M M 83333333333:3883333:ȈȌȌȌ̈̌ȈȌȌȌ̈̌нLL 83333333338333888󈈪3:3333333333 3 3 ? b ̜ܝݙ̭̬̪̬ݪ̪̪̪ݪݪݪͪ"2"""2#"""3"""2"""2##""23"""2#"3"""2""""#"""#"""3"#"2"#=""""2"""2"""""""""""""""""""""""333333333333333333333333333323333#""3#""3#""3#""3#""3#""33""33""#"""#"""#"""#"""#"""3"""2"""2"""#"""#"""#""2"2""2"""2""ݪܭ83833ڪ̪̪̪ݪݪ"2"""""3"""MMDMDDDD#"$""M$""M$""D"""D"""$#"""3"""2"""333"333"333"333"333"333"233"23333""33""33"33#33C33D33D33D2ݪʪʪʪʪϫ33ό̪̪̬̪̬2#"""3"""2#"""3"#"2#3""33#""33#"""3"""2#"""#"""3"""2#""3#"3"2#"""#"""#"""#""2"="""33""33""33""33""33"-33M33M333CDD33DD33CD33CD333C333333333333MDDDDDDDDDDD4D433333333333333DDDDDDDDDDD33DD33CD333333333333DDDDD3CDD33333333̪着:::3:33:ό̌̈?33333??̪̪ͪڪ̬ݪݪ333#3333333333333333333333333333"33333333333333333DD43333333333M43M43D43MD33DD3333333333333333333333333333333333333333333333333333333333333333333333333333̪̪ͪ:3333333333333333333331313333313333333333333333333333D333333333333333D333333333333133ݪ̪ݪZUUUUUUU̫̻ʪ̪̪̬331331333333CDD3DDDCDDDDDDDDD43DDD3DDD4DDDD333ZUZUUUUUZUUUZUUUZUUUjUUUjUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUʬUUUUUUUUU̪̬ʬ̬̪̪̪ʬ̪̪̪jUUUfUUjUVVVjVfUUUUUUUeUUUeUeefUe&"U"":"":33"UUUUUUUUeUUUfUUU"VeU"jffUeUeeeef̬̬ʬ""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""!"""""""""!""""""""""""""""!"""""""""""""""""""""!""""""DDDHDDDDDDDDDDDDDDDDHDDDD"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""(""""("3"3"3"""""""(""("8("3("83(*83(("""""""""""""""""""""""""""""""""""""""""!""!"""""!!"!""""!""""""""""""""!""!""HDDDDDDDDDHDDHDDHDDHDDHDDDDDDDDDDDDDDDD88興"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""̨Ϩ>̌όό?ό"""!""""""""""""""""""""""""""""""""""""""""""""""""""""""""""!"""""""""""""""""""""!""""""""""""!""""""""""""""""DHHDDDDDDDDDDDDDODDDHDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD興興興興興興莈""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""33Ӫ33:3?̌3̈?333?:("""""""("""""""""""*""""""*"""""""""""""""""""""""""""",""""""""""",""",w""~"}"'"}""""""""""""""""""""""""""""""""""興興莈8"""""""""""""""""""""""""""""""""""""""""""""""*"***""""*""*""""""""""""/-"-"""-""""",r"""r"""""""""""""""r""""""""""""""""""""""""""""""""""Ȉ(//////,88"""""""""""""""""""""""""""""""""""""+""(()"*"*"*"*"+"+"+"")"*"*"*"*"+"+"""""""""""2""-""-"""""""""/""""*"""""""""""""""""""""""""""""""""""""""""""""""."""""""""""""""""""""""""""""." -//////((̂ ߍ88848434C48C48D4~w/////""3D4CDDCDDCD43D4333"23#.""򈈈""/""."/""""."../"."d#o         e e e e e e e e- - $- - - - ---- -------- - - - - ---- -------- -RPRRPRPRRPRPRRPRPRRP bb b b bb b b jj j j jj j j rr r r rr r rbb b bbbb b b bbb b bbbb b b bjj j jjjj j j jjj j jjjj j j jrr r rrrr r r rrr r rrrr r r r    jjjjj jjjjjjjjj jjjjjjjjj jjjjjjjjj jjjj jjj j0   0n100qqH 0 3 0 30 # 0,}HiƧp8d%qy)6oHqAsVl3=1 then mode=1 x=8*8 y=8*8 flip=1 world_coord={2,6} pl=world_coord bank=1 inventory={1,2,3,4,5,7} items={1,2,3,4,5} beento={0,0,0,0} sw=1 sword=1 heygo=1 ss=1 fs=1 wf=1 whf=1 bf=1 fb=0 vh=2 hp[1]=50 hp[2]=50 maxhp[1]=50 maxhp[2]=50 mp[1]=50 mp[2]=50 maxmp[1]=50 maxmp[2]=50 padymelon=1 keys=5 rocks=99 moneys=500 end rs_mess={ "First things first, you're not dead!", "Melon... jumping... rain... cave...", "Slingshot... house... above ... house...", "Sword... wizards... torch ... key...", "Stick... house... crate... roof...", "Feather... tree... waterfall...", "Feather... charge... headstart... go through..." } opening=0 function mus_cat(c,b,fm) m=fm if c[1]==12 and c[2]==3 and b==0 then m=0 end if c[1]==14 and c[2]==4 and b==0 then m=6 end if c[1]==1 and c[2]==2 and b==0 then m=0 end if c[1]==2 and c[2]==2 and b==0 then m=0 end if c[1]==0 and c[2]==2 and b==0 then m=0 end if c[1]==3 and c[2]==2 and b==0 then m=0 end if c[1]==5 and c[2]==2 and b==0 then m=0 end if c[1]==9 and c[2]==2 and b==0 then m=0 end if c[1]==12 and c[2]==1 and b==0 then m=0 end if c[1]==12 and c[2]==2 and b==0 then m=0 end if c[1]==13 and c[2]==1 and b==0 then m=0 end if c[1]==13 and c[2]==3 and b==0 then m=0 end if c[1]==14 and c[2]==3 and b==0 then m=0 end if c[1]==13 and c[2]==5 and b==0 then m=6 end if c[1]==2 and c[2]==3 and b==0 then m=1 end if c[1]==2 and c[2]==4 and b==0 then m=1 end if c[1]==3 and c[2]==4 and b==0 then m=1 end if c[1]==4 and c[2]==3 and b==0 then m=1 end if c[1]==10 and c[2]==2 and b==0 then m=1 end if c[1]==11 and c[2]==2 and b==0 then m=1 end if c[1]==8 and c[2]==6 and b==0 then m=5 end if c[1]==10 and c[2]==5 and b==0 then m=5 end if c[1]==3 and c[2]==5 and b==0 then m=6 end if c[1]==0 and c[2]==6 and b==0 then m=6 end if c[1]==12 and c[2]==6 and b==0 then m=6 end if c[1]==5 and c[2]==4 and b==0 then m=1 end if c[1]==6 and c[2]==4 and b==0 then m=4 end if c[1]==11 and c[2]==4 and b==0 then m=4 end if c[1]==0 and c[2]==0 and b==1 then m=1 end if c[1]==0 and c[2]==4 and b==1 then m=0 end if c[1]==10 and c[2]==1 and b==1 then m=1 end if c[1]==6 and c[2]==5 and b==1 then m=0 end if c[1]==1 and c[2]==2 and b==0 then m=0 end if c[1]==7 and c[2]==5 and b==1 then m=2 end if c[1]==12 and c[2]==4 and b==1 then m=2 end if c[1]==13 and c[2]==4 and b==1 then m=3 end if c[1]==12 and c[2]==5 and b==1 then m=3 end if c[1]==14 and c[2]==7 and b==1 then m=3 end if c[1]==1 and c[2]==6 and b==1 then m=0 end if c[1]==7 and c[2]==3 and b==1 then m=2 end if c[1]==11 and c[2]==3 and b==1 then m=2 end if c[1]==12 and c[2]==3 and b==1 then m=3 end if c[1]==4 and c[2]==1 and b==0 then m=0 end if c[1]==14 and c[2]==1 and b==1 then m=4 end if c[1]==14 and c[2]==2 and b==1 then m=3 end if c[1]==9 and c[2]==0 and b==1 then m=2 end if c[1]==5 and c[2]==2 and b==1 then m=1 end if c[1]==2 and c[2]==5 and b==1 then m=0 end if c[1]==2 and c[2]==5 and b==2 then m=0 end if c[1]==7 and c[2]==6 and b==2 then m=0 end if c[1]==7 and c[2]==7 and b==2 then m=1 end if c[1]==2 and c[2]==7 and b==2 then m=1 end if c[1]==2 and c[2]==6 and b==2 then m=3 end if c[1]==11 and c[2]==2 and b==2 then m=2 end if c[1]==12 and c[2]==2 and b==2 then m=3 end if c[1]==13 and c[2]==2 and b==2 then m=3 end if c[1]==1 and c[2]==3 and b==2 then m=0 end if c[1]==3 and c[2]==0 and b==2 then m=2 end if c[1]==9 and c[2]==0 and b==0 then m=0 end if c[1]==12 and c[2]==0 and b==2 then m=4 end if c[1]==6 and c[2]==6 and b==2 then m=0 end if c[1]==5 and c[2]==5 and b==0 then m=5 end if c[1]==2 and c[2]==2 and b==2 then m=5 end if c[1]==2 and c[2]==0 and b==2 then m=5 end return m end --end of music catalog --load world function lworld(coord,b) tiles={} row={} px=-1 py=-1 if coord[1]==1 and coord[2]==2 then respawn_coord={56,104,1,2,0} end if coord[1]==14 and coord[2]==3 then respawn_coord={36,72,14,3,0} end for i=coord[2]*16,(coord[2]*16)+15 do py=py+1 px=-1 for j=coord[1]*16,(coord[1]*16)+15 do px=px+1 scan=mget(j,i) if scan<70 then table.insert(row,scan) else if scan==162 then table.insert(row,0) cur_mus=-1 music() end if scan==250 then table.insert(row,0) pick=mus_cat(coord,bank,cur_mus) if cur_mus==-1 or cur_mus~=pick or cb==1 then music(pick) cur_mus=pick end end if scan==101 then table.insert(row,101) end if scan==234 then sm=1 table.insert(row,0) end --stars and moon if scan==233 then --clouds cld=1 table.insert(row,0) end if scan==249 then blue=1 table.insert(row,0) end if scan==217 then --green tree table.insert(row,0) table.insert(entities,{1,px,py}) end if scan==218 then --orange tree table.insert(row,0) table.insert(entities,{2,px,py}) end if scan==156 then --dandelion growth table.insert(row,0) table.insert(entities,{3,px,py}) end if scan==157 then --dandelion blossom table.insert(row,0) table.insert(entities,{4,px,py}) end if scan==158 then --dandelion seed table.insert(row,0) table.insert(entities,{5,px,py}) end if scan==159 then --dandelion stub table.insert(row,0) table.insert(entities,{6,px,py}) end if scan==216 then --statue table.insert(row,0) table.insert(entities,{7,px,py}) end if scan==79 then --rock table.insert(row,0) table.insert(entities,{8,px,py,0,0,0,0,0,0,j,i,0,1}) end if scan==78 then --ball table.insert(row,0) table.insert(entities,{9,px,py,0,0,0,0,0,0,0,0,0,1}) end if scan==123 then --slime table.insert(row,0) table.insert(entities,{10,px,py,0,0,0,0,0,0,1,0,5,1}) end if scan==124 then table.insert(row,0) table.insert(entities,{10,px,py,0,0,0,0,0,0,2,0,5,1}) end if scan==167 then --snake table.insert(row,0) table.insert(entities,{11,px,py,0,0,0,0,0,0,1,0,10,1}) end if scan==168 then table.insert(row,0) table.insert(entities,{11,px,py,0,0,0,0,0,0,2,0,10,1}) end if scan==188 then --fish table.insert(row,11) table.insert(entities,{12,px,py,0,0,0,0,0,0,1,0,1,0}) end if scan==76 then --floating spike table.insert(row,11) table.insert(entities,{13,px,py,0,0,0,0,0,0,1,0,10,0}) end if scan==220 then --up spike table.insert(row,0) table.insert(entities,{14,px,py,0,0,0,0,0,0,1,0,10,0}) end if scan==221 then --left spike table.insert(row,0) table.insert(entities,{15,px,py,0,0,0,0,0,0,1,0,10,0}) end if scan==222 then --down spike table.insert(row,0) table.insert(entities,{16,px,py,0,0,0,0,0,0,1,0,10,0}) end if scan==223 then --right spike table.insert(row,0) table.insert(entities,{17,px,py,0,0,0,0,0,0,1,0,10,0}) end if scan==80 then --left cloud platform table.insert(row,72) table.insert(entities,{18,px,py}) end if scan==81 then --middle cloud platform table.insert(row,72) table.insert(entities,{19,px,py}) end if scan==239 then --right cloud platform table.insert(row,72) table.insert(entities,{20,px,py}) end if scan==97 then --bouncy cloud platform table.insert(row,71) table.insert(entities,{21,px,py}) end if scan==237 then --left-right platform (left) table.insert(row,0) table.insert(entities,{22,px,py,0,0,0,0,0,0,1,0,0,0}) end if scan==236 then --left-right platform (right) table.insert(row,0) table.insert(entities,{22,px,py,0,0,0,0,0,0,2,0,0,0}) end if scan==238 then --up-down platform table.insert(row,0) table.insert(entities,{23,px,py,0,0,0,.5,0,0,1,0,0,0}) end if scan==151 then --crate table.insert(row,0) table.insert(entities,{24,px,py,0,0,0,0,0,0,0,0,0,1,0}) end if scan==152 then --box table.insert(row,1) table.insert(entities,{25,px,py,0,0,0,0,0,0,0,0,0,1}) end if scan==127 then --nest, magpie table.insert(row,0) table.insert(entities,{26,px,py,0,0,0,0,0,0,0,0,0,1}) table.insert(entities,{27,px,py-3/8,0,0,0,0,0,0,0,0,20,1,0,119,px*8,(py-3/8)*8}) end if scan==112 then --bat table.insert(row,0) table.insert(entities,{28,px,py,0,0,0,0,0,0,0,0,5,0,0,112}) end if scan==240 then --up-down bat table.insert(row,0) table.insert(entities,{29,px,py,0,0,0,.2,0,0,0,0,5,0}) end if scan==247 then table.insert(row,0) table.insert(entities,{29,px,py,0,0,0,-.2,0,0,0,0,5,0}) end if scan==242 then --left-right bat table.insert(row,0) table.insert(entities,{30,px,py,0,0,0,0,0,0,1,0,5,0,0}) end if scan==246 then table.insert(row,0) table.insert(entities,{30,px,py,0,0,0,0,0,0,2,0,5,0}) end if scan==244 then --spin bat table.insert(row,0) table.insert(entities,{31,px,py,0,0,0,0,0,0,2,0,5,0,0}) end if scan==248 then table.insert(row,0) table.insert(entities,{31,px,py,0,0,0,0,0,0,1,0,5,0,0}) end if scan==135 then --bird table.insert(row,0) table.insert(entities,{32,px,py,0,0,0,0,0,0,1,0,0,1,0,135}) end if scan==171 then --spark table.insert(row,0) table.insert(entities,{33,px,py,0,0,0,.1,0,4,0,0,10,0}) end if scan==187 then table.insert(row,0) table.insert(entities,{33,px,py,0,0,0,.1,0,2,1,0,10,0}) end if scan==203 then table.insert(row,0) table.insert(entities,{33,px,py,0,0,.1,0,0,3,1,0,10,0}) end if scan==219 then table.insert(row,0) table.insert(entities,{33,px,py,0,0,.1,0,0,1,0,0,10,0}) end if scan==144 or scan==145 then --flying eye table.insert(row,0) table.insert(entities,{34,px,py,0,0,0,0,0,0,0,0,20,0,scan}) end if scan==128 then --eye trap table.insert(row,0) table.insert(entities,{35,px,py,0,0,0,0,0,0,0,0,20}) end if scan==196 then --golem table.insert(row,0) table.insert(entities,{36,px,py,0,1,0,0,0,0,0,0,20,1,0,180}) end if scan==192 then --goblin table.insert(row,0) table.insert(entities,{37,px,py,1,1,0,0,0,0,2,0,15,1,0,176}) end if scan==193 then table.insert(row,0) table.insert(entities,{37,px,py,1,1,0,0,0,0,1,0,15,1,0,176}) end if scan==224 then table.insert(row,0) table.insert(entities,{37,px,py,1,1,0,0,0,0,2,0,30,1,0,208}) end if scan==225 then table.insert(row,0) table.insert(entities,{37,px,py,1,1,0,0,0,0,1,0,30,1,0,208}) end if scan==228 then --wraith table.insert(row,0) table.insert(entities,{38,px,py,1,1,0,0,0,0,2,0,10,1,0,212}) end if scan==229 then table.insert(row,0) table.insert(entities,{38,px,py,1,1,0,0,0,0,1,0,10,1,0,212}) end if scan==77 then --magic torch table.insert(row,0) table.insert(entities,{39,px,py,1,1,0,0,0,0,j,i,0,1,0}) end if scan==115 then table.insert(row,0) table.insert(entities,{39,px,py,1,1,0,0,0,0,j,i,0,1,1}) end if scan==131 then table.insert(row,0) table.insert(entities,{39,px,py,1,1,0,0,0,0,j,i,0,1,2}) end if scan==147 then table.insert(row,0) table.insert(entities,{39,px,py,1,1,0,0,0,0,j,i,0,1,3}) end if scan==161 then --flying magic pot table.insert(row,0) table.insert(entities,{40,px,py,0,0,0,0,0,0,0,0,20,0}) end if scan==143 then --magic pot table.insert(row,0) table.insert(entities,{41,px,py,0,0,0,0,0,0,0,0,0,0}) end if scan==142 then --fire shooter table.insert(row,52) table.insert(entities,{42,px,py,0,0,0,0,0,0,0,0,0,0}) end if scan==141 then --arrow shooter table.insert(row,52) table.insert(entities,{43,px,py,0,0,0,0,0,0,0,0,0,0}) end if scan==100 or scan==160 then --switch table.insert(row,0) table.insert(entities,{44,px,py,0,0,0,0,0,scan,j,i,0,0}) end if scan==86 or scan==130 then --chest table.insert(row,0) table.insert(entities,{45,px,py,0,0,0,0,0,scan,j,i,0,0}) end if scan==175 then --key table.insert(row,0) table.insert(entities,{46,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==75 then --lock table.insert(row,52) table.insert(entities,{47,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==174 then --coin table.insert(row,0) table.insert(entities,{48,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==204 then --heart table.insert(row,0) table.insert(entities,{49,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==172 then --butterfly table.insert(row,0) table.insert(entities,{50,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==98 then --door table.insert(row,0) table.insert(entities,{51,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==99 then --door 2 table.insert(row,0) table.insert(entities,{52,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==205 or scan==206 then --bed table.insert(row,71) table.insert(entities,{53,px,py,0,0,0,0,0,0,scan}) end if scan==207 or scan==146 then --sign table.insert(row,0) table.insert(entities,{54,px,py,0,0,0,0,0,0,scan,0,0}) end if scan==232 then --sold key table.insert(row,0) table.insert(entities,{55,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==252 and b==1 then --sold helmet table.insert(row,0) table.insert(entities,{61,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==111 then --air bubble table.insert(row,11) table.insert(entities,{56,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==170 then --skull table.insert(row,0) table.insert(entities,{57,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==254 then --sold hp+ table.insert(row,0) table.insert(entities,{58,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==255 and b==0 then --sword table.insert(row,0) table.insert(entities,{59,px,py,0,0,0,0,0,0,j,i,0,0}) end if scan==252 and b==2 then --black mirror, final boss table.insert(row,32) table.insert(entities,{201,px,py,2,2,0,0,0,0,0,0,0,1,0,0,0}) table.insert(entities,{202,px,py,2,2,0,0,0,0,0,0,0,0,-1,0,0}) end if scan==253 then --boss if b==0 then --big bingo table.insert(row,6) table.insert(entities,{100,px,py,2,2,0,0,0,0,1,0,10,1,-1,433,0}) end if b==1 then --lord bandit table.insert(row,0) table.insert(entities,{101,px,py,2,2,0,0,0,0,0,0,10,0,-1,419,0,0,0,0}) end if b==2 then --magster table.insert(row,0) table.insert(entities,{104,px,py,1,1,.1,.1,0,0,0,0,10,0,0,418,8,8,0,0,0}) end end if scan==251 then --parent if b==1 then --soft lord bandit table.insert(row,0) table.insert(entities,{102,px,py,2,2,0,0,0,0,0,0,0,0,-1,353,0,0}) end if b==2 then --lady chilli table.insert(row,0) table.insert(entities,{103,px,py,2,2,0,0,0,0,0,0,0,0,-1,395,0,0,0}) end end if b==1 then if scan>=71 and scan<=74 or scan==85 then --gnome npc who=479+(scan-70)*2 if scan==85 then who=489 end if target[1]==0 and target[2]==1 or target[1]==3 and target[2]==1 or target[1]==5 and target[2]==1 then table.insert(row,16) elseif target[1]==1 and target[2]==1 or target[1]==3 and target[2]==4 then table.insert(row,6) elseif target[1]==2 and target[2]==1 or target[1]==2 and target[2]==4 then table.insert(row,21) elseif target[1]==7 and target[2]==7 or target[1]==2 and target[2]==3 then table.insert(row,22) else table.insert(row,0) end table.insert(entities,{120,px,py,0,0,0,0,who,0,0,0,0,0}) end if scan==84 then --eye switch table.insert(row,0) table.insert(entities,{121,px,py,0,0,0,0,who,0,j,i,0,0,0}) end if scan==129 then table.insert(row,0) table.insert(entities,{121,px,py,0,0,0,0,who,0,j,i,0,0,1}) end if scan==255 then --white feather table.insert(row,0) table.insert(entities,{122,px,py,0,0,0,0,0,0,j,i,0,0}) end end end end table.insert(tiles,row) row={} end for i=1,#entities do if entities[i][1]==8 then --rock table.insert(edat,{i,5,0,3}) end if entities[i][1]==9 then --ball table.insert(edat,{i,1,0,0}) end if entities[i][1]==10 then --slime table.insert(edat,{i,4,0,1}) ecount=ecount+1 end if entities[i][1]==11 then --snake table.insert(edat,{i,2,0,2}) ecount=ecount+1 end if entities[i][1]==12 then --fish table.insert(edat,{i,2,0,0}) ecount=ecount+1 end if entities[i][1]==24 then --crate table.insert(edat,{i,8,0,1}) end if entities[i][1]==25 then --box table.insert(edat,{i,30,0,1}) end if entities[i][1]==27 then --magpie table.insert(edat,{i,6,0,2}) ecount=ecount+1 end if entities[i][1]>=28 and entities[i][1]<=31 then --bat table.insert(edat,{i,1,0,1}) ecount=ecount+1 end if entities[i][1]==33 then --spark table.insert(edat,{i,1,0,0}) ecount=ecount+1 end if entities[i][1]==34 then --flying eye table.insert(edat,{i,8,0,2}) ecount=ecount+1 end if entities[i][1]==36 then --golem table.insert(edat,{i,100,0,1}) ecount=ecount+1 end if entities[i][1]==37 then --goblin if entities[i][15]==208 then table.insert(edat,{i,10,0,2}) else table.insert(edat,{i,8,0,2}) end ecount=ecount+1 end if entities[i][1]==38 then --wraith table.insert(edat,{i,10,0,1}) ecount=ecount+1 end if entities[i][1]==40 then --flying magic pot table.insert(edat,{i,8,0,1}) ecount=ecount+1 end if entities[i][1]==41 then --magic pot table.insert(edat,{i,1,0,1}) end if entities[i][1]==100 then --big bingo hold=entities[i] table.remove(entities,i) table.insert(entities,hold) table.insert(edat,{#entities,450,0,0}) end if entities[i][1]==101 then --lord bandit --hold=entities[i] --table.remove(entities,i) --table.insert(entities,hold) table.insert(edat,{i,5000,0,0}) end if entities[i][1]==104 then --magster --hold=entities[i] --table.remove(entities,i) --table.insert(entities,hold) table.insert(edat,{i,100,0,0}) ecount=ecount+1 end if entities[i][1]==201 then --black mirror --hold=entities[i] --table.remove(entities,i) --table.insert(entities,hold) table.insert(edat,{i,100,0,0}) end if entities[i][1]==202 then --final boss --hold=entities[i] --table.remove(entities,i) --table.insert(entities,hold) table.insert(edat,{i,1000,0,0}) end end black=0 if blue==0 and sm==0 then black=1 wb=1 end return tiles end sync(1,bank,false) --sync(2,bank,false) --sync(16,bank,false) sync(4,bank+beento[bank+1]*4,false) pt=cur_tiles cur_tiles=lworld(world_coord,bank) --if beento[bank+1]==0 then beento[bank+1]=1 end cls(0) --music(mus_cat(world_coord,bank,cur_mus)) --main loop if mode==0 then music(0) elseif mode==1 then music(mus_cat(world_coord,bank,cur_mus)) end restore=0 function TIC() if mode==-1 then --if restore==0 then sync(4,4,false) end --if restore==1 then sync(4,0,true) end restore=restore+1 if restore==2 then mode=1 end end if mode==0 or mode==2 then sync(16,2,false) sync(2,3,false) sync(1,3,false) if mode==0 then menu() end if mode==2 then cutscene() end end if mode==1 then if gs<3 then sync(16,bank,false) sync(2,bank,false) sync(1,bank,false) gs=gs+1 end if gs==3 then game() end end if mode==3 then if gs<3 then sync(16,0,false) sync(2,3,false) sync(1,3,false) gs=gs+1 end endscreen() end if mode==4 then if saved==0 then beento[bank+1]=1 sync(4,bank+beento[bank+1]*4,true) end if saved==1 then sync(4,3,false) save() end if saved==2 then sync(4,3,true) end if saved==3 then sync(4,bank+beento[bank+1]*4,false) saved=0 mode=1 end if saved<3 and mode==4 then saved=saved+1 end end if mode==5 then if loaded==0 then sync(4,3,false) load() end if mget(0,0)~=1 then loaded=-1 end if loaded==2 then sync(4,4,false) loaded=0 mode=1 end if loaded<3 and mode==5 then loaded=loaded+1 end end if mode==6 then if loaded==0 then sync(4,3,false) end if loaded==1 then canload=mget(0,0) if canload==33 then loaded=-1 end end if loaded==2 then sync(4,0,false) loaded=0 if canload==0 then menu_options={"NEW GAME","JUKEBOX"} else menu_options={"CONTINUE","NEW GAME","JUKEBOX"} end mode=2 end if loaded<2 and mode==6 then loaded=loaded+1 end end if mode==8 or mode==7 then sync(2,7,false) cls(9) spr(270,70,20,0,1,0,0,2,2) spr(270,86,20,0,1,1,0,2,2) spr(270,140,20,0,1,0,0,2,2) spr(270,156,20,0,1,1,0,2,2) spr(292,60,50,0,1,0,0,4,4) spr(288,68,88,0,1,0,0,4,4) spr(332,58,104,0,1,0,0,2,2) spr(300,68,104,0,1,0,0,2,2) spr(296,59,75,0,1,0,0,2,2) spr(296,75,75,0,1,1,0,2,2) spr(298,160,50,0,1,0,0,2,2) spr(270,152,72,0,1,0,0,2,2) spr(270,168,72,0,1,1,0,2,2) spr(330,160,66,0,1,0,0,2,2) spr(256,120,104,0,1,0,0,2,2) spr(258,100,104,0,1,0,0,2,2) spr(260,140,104,0,1,0,0,2,2) spr(262,146,104,0,1,0,0,2,2) spr(264,152,104,0,1,0,0,2,2) spr(266,158,104,0,1,0,0,2,2) spr(268,164,104,0,1,0,0,2,2) spr(303,100,50,0,1,0,0,1,1) spr(302,140,50,0,1,0,0,1,1) spr(318,120,80,0,1,0,0,1,1) for i=0,29 do spr(319,i*8,120,0,1,0,0,1,1) end rect(0,0,56,136,0) rect(23*8,0,56,136,0) rect(56,128,16*8,8,0) print ("B",12,0+8,9,false,3) print ("l",12,24+8,9,false,3) print ("u",12,48+8,9,false,3) print ("e",12,72+8,9,false,3) print ("y",12,96+8,9,false,3) print ("V",210,0+8,3,false,3) print ("A",210,24+8,3,false,3) print ("N",210,48+8,3,false,3) print ("I",210,72+8,3,false,3) print ("A",210,96+8,3,false,3) end if mode==7 then print(mchoice,120-8,68-8,12) print("<",120-16,68-8,12) print(">",128,68-8,12) spr(206,120-12,68-32,0,1,0,0,2,2) if pm==0 then spr(191,120-8,68+16,0,1,0,0,1,1) elseif pm==1 then spr(175,120-8,68+16,0,1,0,0,1,1) end if btnp(5) then sfx(32,"C-6",-1,3) sync(16,2,false) music(0) mode=0 pm=-1 end if btnp(4) and pm==0 then sfx(32,"C-6",-1,3) if mchoice==0 then sync(16,0,false) music(0) elseif mchoice==1 then sync(16,0,false) music(1) elseif mchoice==2 then sync(16,0,false) music(2) elseif mchoice==3 then sync(16,0,false) music(3) elseif mchoice==4 then sync(16,0,false) music(4) elseif mchoice==5 then sync(16,0,false) music(5) elseif mchoice==6 then sync(16,0,false) music(6) elseif mchoice==7 then sync(16,0,false) music(7) elseif mchoice==8 then sync(16,1,false) music(0) elseif mchoice==9 then sync(16,1,false) music(1) elseif mchoice==10 then sync(16,1,false) music(2) elseif mchoice==11 then sync(16,1,false) music(3) elseif mchoice==12 then sync(16,1,false) music(4) elseif mchoice==13 then sync(16,1,false) music(5) elseif mchoice==14 then sync(16,1,false) music(6) elseif mchoice==15 then sync(16,2,false) music(0) elseif mchoice==16 then sync(16,2,false) music(1) elseif mchoice==17 then sync(16,2,false) music(2) elseif mchoice==18 then sync(16,2,false) music(3) elseif mchoice==19 then sync(16,2,false) music(4) elseif mchoice==20 then sync(16,2,false) music(5) elseif mchoice==21 then sync(16,3,false) music(0) end pm=1 elseif btnp(4) and pm==1 then sfx(32,"C-6",-1,3) music() pm=0 end if btnp(2) then sfx(32,"C-6",-1,3) mchoice=mchoice-1 if mchoice<0 then mchoice=21 end end if btnp(3) then sfx(32,"C-6",-1,3) mchoice=mchoice+1 if mchoice>21 then mchoice=0 end end if pm==-1 then pm=0 end end end function menu() cls(0) flash=flash+1 if flash>30 then flash=0 end spr(256,40,30,0,1,0,0,8,8) print(">",110,42+choice*8,12) for i=1,#menu_options do print(menu_options[i],118,42+i*8,12) end if btnp(1) then sfx(32,"C-6",-1,3) choice=choice+1 if choice>#menu_options then choice=choice-1 end end if btnp(0) then sfx(32,"C-6",-1,3) choice=choice-1 if choice<1 then choice=choice+1 end end if btnp(4) then if menu_options[choice]=="NEW GAME" then music(mus_cat(world_coord,bank,cur_mus)) opening=5000 mode=1 end if menu_options[choice]=="CONTINUE" then sfx(32,"C-6",-1,3) mode=5 end if menu_options[choice]=="JUKEBOX" then sfx(32,"C-6",-1,3) music() mode=7 end end if bingo==2 then bingo=0 end end --game loop function game() if btnp(7) and saved==0 then mode=4 broadcast="Game saved! (Type ''save'' in the console to preserve your save file.)" ml=300 bcol=12 shrink=true sfx(61,"C-4",-1,3) end vbank(0);cls(blue*(9+(bank==2 and 1 or 0)*1)) upd_time() if sm==1 then starsmoon() if bank==1 then if world_coord[1]<4 and world_coord[2]==0 or target[1]<4 and target[2]==0 then spr(395,100,50,0,1,0,0,4,4) spr(391,90,80,0,1,0,0,2,2) spr(391,106,80,0,1,0,0,2,2) spr(391,122,80,0,1,0,0,2,2) spr(393,80,76,0,1,0,0,2,2) end end end if cld==1 then clouds() end rect(0,0,56,136,0) rect(23*8,0,56,136,0) rect(56,128,16*8,8,0) rin() if world_coord[1]==6 and world_coord[2]==1 and bank==1 and scroll==-1 then spr(417,112,72,0,1,0,0,2,4) spr(417,128,72,0,1,1,0,2,4) end vbank(1);cls(0) if opening>0 then if opening==5000 then sfx(49) ml=500 shrink=true broadcast="Welcome to Blueyvania! Look for secrets to beat the game!" end if opening==4500 then sfx(34) ml=500 shrink=true broadcast="Use the left and right buttons to move." end if opening==4000 then sfx(34) ml=500 shrink=true broadcast="Press down to open doors, open chests, read signs, and flip switches." end if opening==3500 then sfx(34) ml=500 shrink=true broadcast="Hold up to look up." end if opening==3000 then sfx(34) ml=500 shrink=true broadcast="Press A to jump (Z on a keyboard)." bcol=5 end if opening==2500 then sfx(34) ml=500 shrink=true broadcast="Press B to use an item (X on a keyboard)." bcol=1 end if opening==2000 then sfx(34) ml=500 shrink=true broadcast="Press X to switch items (A on a keyboard)." bcol=10 end if opening==1500 then sfx(34) ml=500 shrink=true broadcast="Key items alter some of your abilities." end if opening==1000 then sfx(34) ml=500 shrink=true broadcast="Press Y to save your game (S ona keyboard)" bcol=3 end if opening==500 then sfx(34) ml=500 shrink=true broadcast="Keep track of everything. Good luck, and don't give up!" end opening=opening-1 end if trchg==0 and dead[bingo+1]==0 then target=world_coord end bganim=bganim+.1 --background animation clock fastanim=fastanim+.5 --ditto but fast if bganim>3.9 then bganim=0 end if fastanim>3.5 then fastanim=0 end if quakex<.1 then quakex=0 end if quakey<.1 then quakey=0 end if boom>0 then isq=boom;boom=boom-.1 end if boom<.1 then isq=0;boom=0 end if flicker>0 then flicker=flicker-1 end if dshchg>0 then dshchg=dshchg-4 if dshchg<=0 and mp[bingo+1]>1 and inventory[itsel]==4 then sfx(30,'C-6',-1,3) end end if dshchg==0 then dashed=0 end if isq>0 then quakex=math.random(-1,1)*isq;quakey=math.random(-1,1)*isq end if swipe>0 then swipe=swipe-1 end if trchg==0 and scroll==-1 then updplyr(cur_tiles) entities=updent(entities) packet=updent3(edat,entities);edat=packet[1];entities=packet[2] rworld(cur_tiles,{0,0}) rendent(entities,0) rchar(bingo,x,y,0) rendent(entities,1) rup() room_cat(world_coord,bank) updin() end if underwater==0 then air=100;subair=0 end if underwater==1 then subair=subair+0.1 if subair>=1 then subair=0 air=air-1 bub=math.random(1,10) if bub==1 and dead[bingo+1]==0 then table.insert(particles,{2,(x-8)+60,(y-8)-8,200}) end end end if air<0 then air=0 if dead[bingo+1]==0 then beento[bank+1]=1 sync(4,bank+beento[bank+1]*4,true) dead[bingo+1]=1 sfx(41,'F-5',-1,3) end end for i=1,#particles do particles[i][4]=particles[i][4]-1 if particles[i][4]==0 then table.remove(particles,i) break end end for i=1,#particles do rparticle(particles[i]) end for i=1,#projectiles do if projectiles[i][4]>0 then projectiles[i][4]=projectiles[i][4]-1 end if projectiles[i][4]==0 then table.remove(projectiles,i) break end end for i=1,#projectiles do upd_proj(projectiles[i],entities,i) rproj(projectiles[i]) end vbank(1) if scroll>-1 then --screen scroll rect(56,0,128,128,kb*(9+(bank==2 and 1 or 0)*1)) if blue==1 and wb==1 then vbank(0) cls(0) vbank(1) rect(56,0,128,128,blue*(9+(bank==2 and 1 or 0)*1)) end if sm==1 then starsmoon() end if bank==1 then if world_coord[1]<4 and world_coord[2]==0 or target[1]<4 and target[2]==0 then spr(395,100,50,0,1,0,0,4,4) spr(391,90,80,0,1,0,0,2,2) spr(391,106,80,0,1,0,0,2,2) spr(391,122,80,0,1,0,0,2,2) spr(393,80,76,0,1,0,0,2,2) end end if cld==1 then clouds() end if sd==0 then if wb==1 and black==0 then rect(56-scroll,0,128,128,0) end spac={-scroll,0} sofs={128,0} rworld(pt,spac) if black==1 then rect(56-scroll+16*8,0,128,128,0) end rworld(cur_tiles,{-scroll+16*8,0}) rendent(entities,0) rchar(bingo,x+spac[1]+sofs[1],y+spac[2]+sofs[2],0) rendent(entities,1) sofs={0,0} rendent(prent,0) rendent(prent,1) elseif sd==1 then if wb==1 and black==0 then rect(56+scroll,0,128,128,0) end spac={scroll,0} sofs={-128,0} rworld(pt,spac) if black==1 then rect(56+scroll-16*8,0,128,128,0) end rworld(cur_tiles,{scroll-16*8,0}) rendent(entities,0) rchar(bingo,x+spac[1]+sofs[1],y+spac[2]+sofs[2],0) rendent(entities,1) sofs={0,0} rendent(prent,0) rendent(prent,1) elseif sd==3 then if wb==1 and black==0 then rect(56,-scroll,128,128,0) end spac={0,-scroll} sofs={0,128} rworld(pt,spac) if black==1 then rect(56,-scroll+16*8,128,128,0) end rworld(cur_tiles,{0,-scroll+16*8}) rendent(entities,0) rchar(bingo,x+spac[1]+sofs[1],y+spac[2]+sofs[2],0) rendent(entities,1) sofs={0,0} rendent(prent,0) rendent(prent,1) elseif sd==2 then if wb==1 and black==0 then rect(56,scroll,128,128,0) end spac={0,scroll} sofs={0,-128} rworld(pt,spac) if black==1 then rect(56,scroll+16*8,128,128,0) end rworld(cur_tiles,{0,scroll-16*8}) rendent(entities,0) rchar(bingo,x+spac[1]+sofs[1],y+spac[2]+sofs[2],0) rendent(entities,1) sofs={0,0} rendent(prent,0) rendent(prent,1) end scroll=scroll+8 end if scroll>=16*8 then pl=world_coord scroll=-1 sd=-1 spac={0,0} sofs={0,0} prent={} if black==0 then wb=0 end end rect(0,0,56,136,0) rect(23*8,0,56,136,0) rect(56,128,16*8,8,0) if bingo==0 then spr(257,0,0);spr(258,8,0);print("Bluey",16,0,12) rect(0,8,55,5,9) print("HP:",0,8,3) print(hp[1],16,8,3) print("/",32,8,3) print(maxhp[1],38,8,3) else spr(289,0,0);spr(290,8,0);print("Bingo",16,0,12) rect(0,8,55,5,3) print("HP:",0,8,9) print(hp[2],16,8,9) print("/",32,8,9) print(maxhp[2],38,8,9) end rect(0,16,55,5,6) print("MP:",0,16,4) print(mp[bingo+1],16,16,12) print("/",32,16,12) print(maxmp[bingo+1],38,16,12) spr(174,0,119) print(":",9,121,4) print(moneys,12,121,12) spr(175,0,128) print(":",9,130,4) print(keys,12,130,12) spr(511,0,108) print(":",9,112,4) print(rocks,12,112,12) --white feather if whf==1 and inventory[itsel]==4 then if dshchg==0 and mp[bingo+1]>1 then rect(0,24,26,5,10) print("DASH!",0,24,4) else rect(0,24,26,5,15) rect(0,24,26-dshchg/20,5,10) print("DASH!",0,24,14) end end if ml>0 then msg(broadcast) ml=ml-1 end if ml<=0 then shrink=false bcol=12 end if underwater==1 and ml==0 then print("AIR:",100,130,12);print(air,132,130,12) end if int==0 and turned==1 and turned2==0 and ladder==0 then table.insert(particles,{0,(x-8)+60,(y-8)-8,100}) turned2=1 end --if int==1 then int=0 end if debug_mode==1 then print(math.floor(x),0,50,12) print(math.floor(y),32,50,12) print(math.floor(x/8),0,58,12) print(math.floor(y/8),32,58,12) print(world_coord[1],0,66,12) print(world_coord[2],32,66,12) print(xvel,0,72,12) print(yvel,0,80,12) print(ecount,0,88,1) print(#entities,8,88,12) print(#projectiles,16,88,12) print(bank,0,96,12) print(black,0,104,12) print(wb,8,104,12) print(pd,16,104,12) print(beento[1],0,42,12) print(beento[2],8,42,12) print(beento[3],16,42,12) print(beento[4],24,42,12) print(seconds,224,120,12) print(minutes,208,120,12) print(hours,192,120,12) print(#prent,192,112,12) print(#entities,200,112,12) end if target~=world_coord then --screen wipe trchg=trchg+8 rworld(cur_tiles,{0,0}) rendent(entities,0) if trchg<168 then rchar(bingo,prx,pry,0) else rchar(bingo,x,y,0) end rendent(entities,1) if trchg<=168 then vbank(1);rect(54,0,trchg,128,0);vbank(0);rect(54,0,trchg,128,0) end if trchg==168 and target[1]~=-1 and target[2]~=-1 then particles={} entities={} edat={} ecount=0 projectiles={} cld=0 sm=0 kb=blue blue=0 turned=0 turned2=0 if dead[bingo+1]==0 and uhg==0 and bank~=2 then sfx(60,"C-3",-1,2) end uhg=0 sync(1,tb,false) sync(2,tb,false) sync(16,tb,false) if tb~=bank then if beento[bank+1]==0 then beento[bank+1]=1 end sync(4,tb+beento[tb+1]*4,false) end if pd==1 and mget(147,4)==0 then mset(147,4,98) end cb=1 bank=tb tb=0 pt=cur_tiles cur_tiles=lworld(target,bank) cb=0 end fns=0 if trchg==168 and target[1]==-1 and target[2]==-1 then fns=1 gs=0 mode=3 if fb==1 then music(2) else music(7) end end if fns==0 and trchg>168 and trchg<=168*2 then vbank(1);rect(54+(trchg-168),0,168,128,0);vbank(0);rect(54+(trchg-168),0,168,128,0) end if trchg>168*2 then world_coord=target pl=world_coord trchg=0 prx=0 pry=0 if dead[bingo+1]==1 then dead[bingo+1]=0 hp[bingo+1]=maxhp[bingo+1] moneys=math.ceil(moneys/2) xvel=0 yvel=0 underwater=0 ml=200 broadcast=rs_mess[math.random(1,#rs_mess)] bcol=4 shrink=true shocked=50 end end vbank(0) rect(0,0,56,136,0) rect(23*8,0,56,136,0) rect(56,128,16*8,8,0) vbank(1) end if dead[bingo+1]==1 and rs==0 then --respawn rs=100 end if rs>0 then rs=rs-1 if rs==1 then prx=x pry=y x=respawn_coord[1]-4 y=respawn_coord[2] target={respawn_coord[3],respawn_coord[4]} tb=respawn_coord[5] end end if shocked>0 then shocked=shocked-1 end end --render player character function rchar(bingo,x,y,debug) --animation if dead[bingo+1]==0 then if flicker==0 or flicker%2==0 then if blink==1 then blhold=blhold-1 if blhold<=0 then blink=0 end end blinkchance=math.random(1,200) if blinkchance==50 and turned==0 and xvel==0 then blink=1;blhold=math.random(3,5) end if xvel==0 or turned==1 then anim=0;t=0 end if jump==1 then if abs(yvel)>.125 and yvel<0 then anim=1 end end if xvel~=0 and underwater==0 and inwater==0 then if abs(yvel)<.125 then if btn(2) or btn(3) then t=t+.25 if t>=1 then t=0;anim=anim+1 end if anim>=2 then anim=0;sfx(37,'G-3',-1,3) end end if btn()==0 and grounded==1 and math.abs(xvel)>2 then anim=0 t=0 if screech==0 then screech=1 sfx(38,'C-6',16,3) end end if screech==1 and math.abs(xvel)>1.8 and scroll==-1 then table.insert(particles,{7,x+48+flip*6,y,24}) end end end if underwater==1 or inwater==1 then if yvel>0 or btn(2) or btn(3) then t=t+.125 if t>=1 then anim=anim+1 t=0 bub=math.random(1,10) if bub==1 then table.insert(particles,{2,(x-8)+60,(y-8),200}) end end if anim>=2 then anim=0;sfx(51,'D-5',-1,3) end end end if trchg==0 then if btn(2) then flip=1 end if btn(3) then flip=0 end end if dj==0 or dj==1 and bumped==1 and screamed==0 then spr(((257+(bingo*32))+anim*2)+turned*10+blink*8,(x-8)+56+quakex,(y-8)+quakey,0,1,flip,0,2,2) end if dj==1 and bumped==0 then spr((((dj_frames[math.floor(bganim)+1][1])+(bingo*32)))+turned*10,(x-8)+56+quakex,(y-8)+quakey,0,1,dj_frames[math.floor(bganim)+1][2],0,2,2) end if lup==1 and dj==0 and screamed==0 and turned==0 and blink~=1 then spr(263+bingo*32,(x-8)+56+quakex,(y-8)+quakey-math.floor(anim),0,1,flip,0,2,2) end if shocked>0 and screamed==0 and turned==0 then spr(325+bingo*2,(x-8)+56+quakex,(y-8)+quakey-math.floor(anim),0,1,flip,0,2,2) end if screamed==1 and turned==0 then spr(321+bingo*2,(x-8)+56+quakex,(y-8)+quakey,0,1,flip,0,2,2) end for i=0,#items do if items[i]==3 then spr(432,x+52+quakex,(y-12+bingo+quakey)-anim,0) end if items[i]==5 then spr(480,x+52+quakex,(y-12+bingo+quakey)-anim,0) end end end end if dead[bingo+1]==1 then spr(269+bingo*32,(x-8)+56+quakex,(y-8)+quakey,0,1,flip,0,2,2);music() end end --standardize tiles for collision detection function st(tile) if tile>15 and tile<32 then tile=tile-16 end if tile>31 and tile<48 then tile=tile-32 end if tile>47 and tile<64 then tile=tile-48 end if tile>63 then tile=tile-64 end return tile end --render world function rworld(ct,offset) for i=0,15 do for j=0,15 do if ct[i+1][j+1]~=0 and st(ct[i+1][j+1])~=12 then spr(ct[i+1][j+1],(j*8)+56+quakex+offset[1],(i*8)+quakey+offset[2]) elseif st(ct[i+1][j+1])==12 then spr((ct[i+1][j+1])+bganim,(j*8)+56+quakex+offset[1],(i*8)+quakey+offset[2],0) end --ripple if ct[i+1][j+1]==10 then spr(106+bganim,(j*8)+56+quakex+offset[1],((i*8)+quakey)-7+offset[2],0,1,0,0,1,1) end if ct[i+1][j+1]==101 then --evil eye evileye(j,i,offset) end end end end function evileye(ex,ey,offset) ofs=0 lft=0 if x(ex*8)+8 then lft=0 end if y(ey*8)+8 then ofs=2 end if y>ey*8 and y<(ey*8)+8 and x==ex*8 then ofs=0 end if x>ex*8 and x<(ex*8)+8 and y>ey*8 then ofs=1 end if x>ex*8 and x<(ex*8)+8 and y16*8+32+56 then cloud[i][1]=56-32 end spr(80,cloud[i][1]-8,cloud[i][2],0,1,0,0,2,2) spr(80,cloud[i][1]+8,cloud[i][2],0,1,1,0,2,2) end end --draw night bg function starsmoon() vbank(0) circ(120,40,10,12) circ(116,40,7,0) pix(86,40,4) pix(112,60,4) pix(62,12,4) pix(140,20,4) pix(94,44,4) pix(79,28,4) pix(99,45,4) pix(122,73,4) pix(112,62,4) pix(85,69,4) end --lightning function ltnng(sx,sy,fx,fy) point1={sx,sy} point2={fx,fy} dis={((point2[1]-point1[1])^2)^.5,((point2[2]-point1[2])^2)^.5} lpoints={ {math.random(-10,10),math.random(-10,10)}, {math.random(-10,10),math.random(-10,10)}, {math.random(-10,10),math.random(-10,10)}, {math.random(-10,10),math.random(-10,10)} } vbank(1) line(point1[1],point1[2],(point1[1]+dis[1]*.2)+lpoints[1][1],(point1[2]+dis[2]*.2)+lpoints[1][2],12) line((point1[1]+dis[1]*.2)+lpoints[1][1],(point1[2]+dis[2]*.2)+lpoints[1][2],(point1[1]+dis[1]*.4)+lpoints[2][1],(point1[2]+dis[2]*.4)+lpoints[2][2],12) line((point1[1]+dis[1]*.4)+lpoints[2][1],(point1[2]+dis[2]*.4)+lpoints[2][2],(point1[1]+dis[1]*.6)+lpoints[3][1],(point1[2]+dis[2]*.6)+lpoints[3][2],12) line((point1[1]+dis[1]*.6)+lpoints[3][1],(point1[2]+dis[2]*.6)+lpoints[3][2],(point1[1]+dis[1]*.8)+lpoints[4][1],(point1[2]+dis[2]*.8)+lpoints[4][2],12) line((point1[1]+dis[1]*.8)+lpoints[4][1],(point1[2]+dis[2]*.8)+lpoints[4][2],point2[1],point2[2],12) vbank(0) boom=3 end --update player function updplyr(ct) if grounded==0 and underwater==0 then yvel=yvel+.125 end if yvel>5 and screamed==0 and dead[bingo+1]==0 and heygo==0 then sfx(42,'C-6',-1,3);screamed=1 end if yvel>5/(heygo*2) and underwater==0 and dj==0 then yvel=5/(heygo+1) end if yvel>.5 and underwater==1 then yvel=.5 end if btn(0) then lup=1 end --white feather if btnp(5) and whf==1 and dshchg==0 and dashed==0 and mp[bingo+1]>1 and xvel~=0 and inventory[itsel]==4 then table.insert(particles,{6,x,y,5}) prx=x x=x+xvel*64/(bingo+1) mp[bingo+1]=mp[bingo+1]-2 if x>120 then x=112 end if x<8 then x=16 end if bingo==1 then sfx(55,'G-4',-1,2) else sfx(55,'G-1',-1,2) end dshchg=500 dashed=1 end --stick wand if btnp(5) and inventory[itsel]==1 and sw==1 and dj==0 and dead[bingo+1]==0 then if flip==0 then table.insert(projectiles,{0,8+52,0,10,0}) else table.insert(projectiles,{0,-8+52,0,10,1}) end sfx(43,"D-7",-1,3) if mp[bingo+1]>0 then table.insert(particles,{8,x+52-(-16+(32*flip)),y-8,10,1}) mp[bingo+1]=mp[bingo+1]-1 fid=math.random(100000,999999) if flip==0 and fs==1 and lup==0 then sfx(58,"C-5",-1,2) table.insert(projectiles,{3,x+8,y-8,-1,fid}) table.insert(entities,{99,(x/8)+1,(y/8)-1,0,0,0,0,0,0,3,0,0,1,fid}) end if flip==1 and fs==1 and lup==0 then sfx(58,"C-5",-1,2) table.insert(projectiles,{3,x-16,y-8,-1,fid}) table.insert(entities,{99,(x/8)-2,(y/8)-1,0,0,0,0,0,0,1,0,0,1,fid}) end if fs==1 and lup==1 then sfx(58,"C-5",-1,2) table.insert(projectiles,{3,x,y-16,-1,fid}) table.insert(entities,{99,(x/8),(y/8)-2,0,0,0,0,0,0,0,0,0,1,fid}) end end end --sword if btnp(5) and inventory[itsel]==2 and sword==1 and dj==0 and dead[bingo+1]==0 then sfx(43,"D-5",-1,3) if flip==0 then table.insert(projectiles,{1,8+52,0,17,0}) else table.insert(projectiles,{1,-8+52,0,17,1}) end if lup==1 then table.insert(particles,{12,x+52-(-8+(16*flip)),y-8,6,flip}) else table.insert(particles,{11,x+52-(-16+(32*flip)),y-8,6,flip}) end if heygo==1 and hp[bingo+1]==maxhp[bingo+1] then if flip==0 and lup==0 then sfx(58,"C-5",-1,2) table.insert(projectiles,{3,x+8,y-8,-1,fid}) table.insert(entities,{99,(x/8)+1,(y/8)-1,0,0,0,0,0,0,3,0,0,1,fid}) end if flip==1 and lup==0 then sfx(58,"C-5",-1,2) table.insert(projectiles,{3,x-16,y-8,-1,fid}) table.insert(entities,{99,(x/8)-2,(y/8)-1,0,0,0,0,0,0,1,0,0,1,fid}) end if lup==1 then sfx(58,"C-5",-1,2) table.insert(projectiles,{3,x,y-16,-1,fid}) table.insert(entities,{99,(x/8),(y/8)-2,0,0,0,0,0,0,0,0,0,1,fid}) end end end --slingshot if btnp(5) and inventory[itsel]==3 and ss==1 and dj==0 and shot==0 and rocks>0 and dead[bingo+1]==0 then sfx(43,"A-3",-1,3) shot=1 rocks=rocks-1 if flip==0 then table.insert(projectiles,{2,8+52,0,17,0}) rox=x+6 rxvel=4 else table.insert(projectiles,{2,-8+52,0,17,1}) rox=x-6 rxvel=-4 end roy=y-4 if lup==1 then ryvel=-4 else ryvel=4 end end --wind feather if btnp(5) and inventory[itsel]==5 and wf==1 and dj==0 and dead[bingo+1]==0 then if mp[bingo+1]==0 then mp[bingo+1]=1 end if flip==0 then table.insert(projectiles,{4,8+52,0,10,0}) else table.insert(projectiles,{4,-8+52,0,10,1}) end sfx(43,"D-7",-1,3) table.insert(particles,{8,x+52-(-16+(32*flip)),y-8,10,0}) end if btnp(4) and jump==1 and padymelon==1 and dj==0 and underwater==0 then dj=1 if bingo==0 then yvel=-3 else yvel=-4 end if bingo==0 then sfx(35,'C-5',-1,3) else sfx(35,'C-6',-1,3) end table.insert(particles,{5,x+52,y,25}) end --swap sister if btnp(5) and inventory[itsel]==6 and fb==1 then if bingo==0 then bingo=1 else bingo=0 end sfx(55,'C-7',-1,3) end --hey-go if inventory[itsel]==7 then if hp[bingo+1]0 then hp[bingo+1]=hp[bingo+1]+1 mp[bingo+1]=mp[bingo+1]-1 end end skphg=0 if bank==2 and world_coord[1]==0 and world_coord[2]==0 then skphg=1 end if btnp(5) and skphg==0 and inventory[itsel]==7 and heygo==1 then sync(4,bank+4,true) beento[bank+1]=1 sfx(22,"D-7",-1,3) if tpcycle==0 then skidded=0 prx=x pry=y x=7*8;y=12*8 flip=0 target={1,2} tb=0 end if tpcycle==1 then skidded=0 prx=x pry=y x=4*8;y=8*8 flip=0 target={14,3} tb=0 end if tpcycle==2 then skidded=0 prx=x pry=y x=4*8;y=11*8 flip=0 target={0,6} tb=0 end tpcycle=tpcycle+1 if tpcycle>2 then tpcycle=0 end uhg=1 end if btnp(4) and jump==0 and yvel<1 and underwater==0 and turned==0 and dead[bingo+1]==0 then --jump yvel=-1.5*(bingo+1) grounded=0 jump=1 blink=0 screech=0 sfx(35,'C-4',-1,3) if bingo==1 then table.insert(particles,{7,x+52,y,24}) end end if hurt==1 then flicker=100 hurt=0 yvel=-1 grounded=0 jump=1 blink=1 end if underwater==1 then yvel=yvel+.0625 end if dead[bingo+1]==0 then if btn()==0 then ladder=0;turned=0;turned2=0;lup=0;int=0 end if btn(4) and underwater==1 and turned==0 then yvel=yvel-.125 if yvel<-1.5 then yvel=-1.5 end end if btn(1) and grounded==1 and ladder==0 then if turned==0 then turned=1 blink=0 screech=0 end end if btn(3) and turned==0 then blink=0 screech=0 if underwater==0 and inwater==0 then xvel=xvel+.25 if xvel>2.5-bingo then xvel=2.5-bingo end else xvel=.5 end end if btn(2) and turned==0 then screech=0 blink=0 if underwater==0 and inwater==0 then xvel=xvel-.25 if xvel<-2.5+bingo then xvel=-2.5+bingo end else xvel=-.5 end end end x=x+xvel y=y+yvel if xvel<0 then xvel=xvel+.125 end if xvel>0 then xvel=xvel-.125 end if grounded==1 then yvel=0 end if x<8 then x=120 pl=world_coord scroll=0 prent=entities sd=1 world_coord[1]=world_coord[1]-1 if world_coord[1]==-1 then world_coord[1]=14 end particles={} entities={} edat={} ecount=0 projectiles={} cld=0 sm=0 kb=blue blue=0 --vbank(0);cls(0);vbank(1) pt=cur_tiles cur_tiles=lworld(world_coord,bank) return end if x>120 then x=8 pl=world_coord scroll=0 prent=entities sd=0 world_coord[1]=world_coord[1]+1 if world_coord[1]==15 then world_coord[1]=0 end particles={} entities={} edat={} ecount=0 projectiles={} cld=0 sm=0 kb=blue blue=0 --vbank(0);cls(0);vbank(1) pt=cur_tiles cur_tiles=lworld(world_coord,bank) return end if y<8 then y=120 pl=world_coord scroll=0 prent=entities sd=2 world_coord[2]=world_coord[2]-1 if world_coord[2]==-1 then world_coord[2]=7 end particles={} entities={} edat={} ecount=0 projectiles={} cld=0 sm=0 kb=blue blue=0 --vbank(0);cls(0);vbank(1) pt=cur_tiles cur_tiles=lworld(world_coord,bank) return end if y>120 then y=8 pl=world_coord scroll=0 prent=entities sd=3 world_coord[2]=world_coord[2]+1 if world_coord[2]==8 then world_coord[2]=0 end particles={} entities={} edat={} ecount=0 projectiles={} cld=0 sm=0 kb=blue blue=0 --vbank(0);cls(0);vbank(1) pt=cur_tiles cur_tiles=lworld(world_coord,bank) return end grounded=0 for i=0,15 do --collision detection for j=0,15 do for k=1,15 do ctile=st(ct[i+1][j+1]) if x>(j*8) and x<(j*8)+8 and y>(i*8) and y<(i*8)+8 then if ctile==0 or ctile==5 or ctile==6 or ctile==8 or ctile==12 then inwater=0 underwater=0 splashed=0 end if ctile==10 or ctile==11 then if splashed==0 then if abs(yvel)>.5 then sfx(50,'D-8',-1,3) table.insert(particles,{1,(j*8)+56,(i*8)-8,8}) end yvel=yvel/100 splashed=1 end if ctile==10 then inwater=1 end if ctile==11 then underwater=1 end screamed=0 end end if ctile>0 and ctile<12 then if ctile==5 or ctile==6 or ctile==9 then break end --left if (y-8)+k>(i*8) and (y-8)+k<(i*8)+8 and (x-4)>(j*8) and (x-4)<(j*8)+8 and k~=1 and ctile<8 then xvel=0 x=(j*8)+12 end --top if (x-4)+floor(k/2)>(j*8) and (x-4)+floor(k/2)<(j*8)+8 and (y-8)>(i*8) and (y-8)<(i*8)+8 and k~=1 and ctile<8 then if underwater==0 then if dshchg==0 then y=(i*8)+16 end yvel=-yvel/2 dj=1 else yvel=0.625 end if bumped==0 then if jump==1 then sfx(44,'A-2',-1,3) table.insert(particles,{8,x+52,y-8,10}) end bumped=1 end if x>15*8 then x=(14*8)+4 end end --right if (y-8)+k>(i*8) and (y-8)+k<(i*8)+8 and (x+4)>(j*8) and (x+4)<(j*8)+8 and k~=1 and ctile<8 then xvel=0 x=(j*8)-4 end --anti-clip for dashing if (y)>(i*8) and (y)<(i*8)+8 and (x)>(j*8) and (x)<(j*8)+8 and ctile<8 and dashed==1 then xvel=0 x=prx dashed=0 end --bottom if (x-4)+floor(k/2)>(j*8) and (x-4)+floor(k/2)<(j*8)+8 and (y+8)>(i*8) and (y+8)<(i*8)+8 and k~=1 then if ctile==7 then if yvel>0 then y=(i*8)-8 yvel=-yvel jump=1 if btn(4) then yvel=yvel-.25 if yvel<-4 then yvel=-4 end end if btn(1) then yvel=yvel+1 end if abs(yvel)>1 then sfx(36,'C-4',-1,3) end break end end if ctile==8 then ladder=1 if yvel<0 then break end if btn(1) then break end end if ctile==10 or ctile==11 then break end if yvel>.125 then sfx(38,'C-5',4,3) end yvel=0 y=(i*8)-8 grounded=1 jump=0 dj=0 screamed=0 bumped=0 end end end end end end --render entities function rendent(el,mode) for i=1,#el do cx=(el[i][2]*8)+56+quakex+spac[1]+sofs[1];cy=(el[i][3]*8)+quakey+spac[2]+sofs[2] if mode==0 then if el[i][1]==1 then --green tree spr(217,cx-4,cy,0) spr(201,cx-4,cy-8,0) spr(185,cx-4,cy-16,0) spr(217,cx+4,cy,0,1,1) spr(201,cx+4,cy-8,0,1,1) spr(185,cx+4,cy-16,0,1,1) end if el[i][1]==2 then --orange tree spr(218,cx-4,cy,0) spr(202,cx-4,cy-8,0) spr(186,cx-4,cy-16,0) spr(218,cx+4,cy,0,1,1) spr(202,cx+4,cy-8,0,1,1) spr(186,cx+4,cy-16,0,1,1) end if el[i][1]==3 then --dandelion growth spr(156,cx,cy,0) end if el[i][1]==4 then --dandelion blossom spr(157,cx,cy,0) end if el[i][1]==5 then --dandelion seed spr(158,cx,cy,0) end if el[i][1]==6 then --dandelion stub spr(159,cx,cy,0) end if el[i][1]==7 then --statue spr(216,cx-4,cy,0) spr(200,cx-4,cy-8,0) spr(184,cx-4,cy-16,0) spr(216,cx+4,cy,0,1,1) spr(200,cx+4,cy-8,0,1,1) spr(184,cx+4,cy-16,0,1,1) end if el[i][1]==26 then --nest spr(127,cx,cy,0,1) end if el[i][1]==27 then --magpie spr(el[i][15],cx,cy,0,1,2-el[i][10]) end if el[i][1]==44 then --switch spr(el[i][9],cx,cy,0,1) end if el[i][1]==45 then --chest spr(el[i][9],cx,cy,0,1) end if el[i][1]==46 then --key spr(175,cx,cy,0,1) end if el[i][1]==47 then --lock spr(75,cx,cy,0,1) end if el[i][1]==95 then --dropped rocks spr(511,cx,cy,0,1) end if el[i][1]==48 or el[i][1]==96 then --coin spr(174,cx,cy,0,1) end if el[i][1]==49 or el[i][1]==97 then --heart spr(204,cx,cy,0,1) end if el[i][1]==50 then --butterfly spr(172+fastanim/2,cx,cy,0,1,el[i][9]) end if el[i][1]==51 then --door spr(98,cx,cy,0,1) spr(82,cx,cy-8,0,1) end if el[i][1]==52 then --door 2 spr(99,cx,cy,0,1) spr(83,cx,cy-8,0,1) end if el[i][1]==53 then --bed if world_coord[1]==8 and world_coord[2]==7 or target[1]==8 and target[2]==7 then spr(6,cx,cy,0,1) end spr(el[i][10],cx,cy,0,1) end if el[i][1]==54 then --sign spr(el[i][10],cx,cy,0,1) end if el[i][1]==55 then --sold key spr(175,cx,cy,0,1) print("$20",cx-4,cy-8,12) end if el[i][1]==56 then --air bubble spr(111,cx,cy,0,1) end if el[i][1]==57 then --skull spr(170,cx,cy,0,1) end if el[i][1]==58 then --sold hp+ print("$50",cx-4,cy-8,12) spr(495,cx,cy,0,1) end if el[i][1]==59 or el[i][1]==122 then --sword, white feather spr(255,cx,cy,0,1) end if el[i][1]==60 then --get bingo spr(331,cx-4,cy,0,1,0,0,2,2) end if el[i][1]==61 then --sold helmet spr(480,cx,cy,0,1) print("$300",cx-4,cy-8,12) end if el[i][1]==39 then --magic torch if el[i][14]>0 then spr(155,cx,cy-2,0,1,0,bganim) if el[i][14]>1 then spr((115+(el[i][14]-1)*16)+bganim,cx,cy-2,0,1) end if world_coord[1]==0 and world_coord[2]==0 and bank==2 then spr(115+bganim,cx,cy-2,0,1) end end spr(77,cx,cy,0,1) end if el[i][1]==100 then --big bingo spr(el[i][15],cx-12,cy-12,0,1,el[i][10],0,4,4) if el[i][14]>=0 then rect(56,0,100,6,1) print("BIG BINGO:",56,0,12) print(edat[1][2],110,0,12) print("/",128,0,12) print("450",136,0,12) end end if el[i][1]==101 then --lord bandit if el[i][14]>=0 or el[i][14]==-2 then spr(el[i][15],cx-12,cy-12,0,1,el[i][10],0,4,4) if el[i][17]==1 then spr(459,(cx+12)-el[i][10]*32,cy,0,1,el[i][10],0,2,2) end if el[i][17]==2 then spr(491,(cx+12)-el[i][10]*32,cy-4,0,1,el[i][10],0,2,2) end end if el[i][14]>=1 then rect(56,0,128,6,1) print("CLOUD DAD:",56,0,12) print(edat[1][2],116,0,12) print("/",142,0,12) print("5000",158,0,12) end spr(461+(math.floor(bganim/2)*32),cx-12,cy+12,0,1,0,0,2,2) spr(461+(math.floor(bganim/2)*32),cx+4,cy+12,0,1,1,0,2,2) end if el[i][1]==102 then --soft lord bandit blofs=0 if el[i][17]>0 then blofs=2 end spr(el[i][15]+blofs,cx-12,cy-16,0,1,el[i][10],0,2,2) spr(el[i][15]+4,cx-12,cy,0,1,el[i][10],0,2,2) spr(361,(cx-20)+el[i][10]*24,cy+2,0,1,el[i][10],0,1,1) end if el[i][1]==103 then --lady chilli blofs=0 if el[i][17]>0 then blofs=2 end spr(481,cx-4,cy-16,0,1,0,0,2,2) spr(el[i][15]+blofs+(el[i][10]*32),cx-4,cy-16,0,1,0,0,2,2) spr(461-el[i][10]*2,cx-4,cy,0,1,0,0,2,2) end if el[i][1]==104 then --magster if el[i][14]==0 then spr(el[i][15]+math.floor(bganim/2)*2,cx-4,cy-4,0,1,el[i][10],0,2,2) end if el[i][14]==1 then spr(el[i][15]+math.floor(fastanim/2)*2,cx-4,cy-4,0,1,el[i][10],0,2,2) end rect(56,0,128,6,1) --print(el[i][2],56,0,12) print("MAGSTER:",56,0,12) print(edat[1][2],116,0,12) print("/",142,0,12) print("100",158,0,12) end if el[i][1]==201 then --black mirror if el[i][14]==0 then spr(449,cx-4,cy,0,1,el[i][10],0,2,2) spr(451,cx-4,cy-16,0,1,el[i][10],0,2,2) end if el[i][14]==1 then spr(453,cx-4,cy,0,1,el[i][10],0,2,2) spr(455,cx-4,cy-16,0,1,el[i][10],0,2,2) end if el[i][14]>1 then spr(457,cx-4,cy,0,1,el[i][10],0,2,2) end end if el[i][1]==202 and el[i][14]~=-1 then --final boss spr(115+bganim,cx,cy-12,0,1) if el[i][14]<4 then spr(390+math.floor(bganim/2)*2,cx-4,cy-4,0,1,el[i][10],0,2,2) end if el[i][14]==1 and el[i][15]>50 then if fastanim==0 then spr(493,cx-4-8,cy-4,0,1,0,0,2,2) spr(493,cx-4+8,cy-4,0,1,1,0,2,2) end end if el[i][14]==2 then if x+56>cx-30 and x+56cx+30 then spr(489,cx-4-8,cy-4,0,1,0,0,2,2) spr(491,cx-4+8,cy-4,0,1,1,0,2,2) elseif x+56=500 then spr(359,cx-4,cy-4,0,1,el[i][10],0,2,2) end end if el[i][14]==6 then if bganim<=2 then spr(353,cx-4,cy-4,0,1,el[i][10],0,2,2) else spr(355,cx-4,cy-4,0,1,el[i][10],0,2,2) end end if el[i][14]>6 and el[i][14]<9 then spr(357,cx-4,cy-4,0,1,el[i][10],0,2,2) if el[i][14]==7 then circb(cx+4,cy+4,11,1) end end if el[i][14]==9 then spr(329,cx-4,cy-4,0,1,el[i][10],0,2,2) spr(483,cx-32-8,cy-6,0,1,0,0,2,2) spr(483,cx+32,cy-6,0,1,1,0,2,2) spr(485,cx-16-8,cy-6,0,1,0,0,2,2) spr(485,cx+16,cy-6,0,1,1,0,2,2) spr(487,cx-8,cy-6,0,1,0,0,2,2) spr(487,cx,cy-6,0,1,1,0,2,2) end if el[i][14]<9 then rect(56,0,128,6,1) print("DEMIURGE",56,0,12) print(edat[2][2],116,0,12) print("/",142,0,12) print("1000",158,0,12) end end if el[i][1]==120 then --gnome npc if x>cx-52 then spr(el[i][8],cx-4,cy-8,0,1,0,0,2,2) end if x0 and edat[j][1]==i and el[i][1]~=201 then rect(cx-(el[i][4]*4),cy-(el[i][5]*4),8*(el[i][4]+1),8*(el[i][5]+1),1) end end end end --update entities function updent(el) --1;type,2;x,3;y,4;sizex,5;sizey,6;velx,7;vely,8;grounded,9;splashed,10;direction,11;jump,12;harms,13;hasgravity,14;state,15;sprite_num for i=1,#el do if el[i]==nil then break end ex=el[i][2]*8 ey=el[i][3]*8 if el[i][1]==5 then --dandelion seed if x>ex and xey and y+4ex and xey and y+4ex+4 then el[i][6]=-.5;el[i][7]=-.125 end if xex and xey and y+4ex+4 then el[i][6]=-.75;el[i][7]=-.125 end if xey and y+4el[i][2]+56 then el[i][6]=el[i][6]*4 end end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==12 then --fish if el[i][10]==1 then el[i][6]=-.05 end if el[i][10]==2 then el[i][6]=.05 end if x>ex-16 and xey-8 and y+4ex+4 then el[i][10]=1 end if xex-2 and xey and y+80 then yvel=0 y=ey-8 grounded=1 jump=0 dj=0 screamed=0 bumped=0 x=x+el[i][6]*16 end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==23 then --up-down platform if x>ex-2 and xey and y+80 then yvel=0 y=ey-8 grounded=1 jump=0 dj=0 screamed=0 bumped=0 el[i][3]=el[i][3]+.1 end end if el[i][1]==24 then --crate if x>ex and xey and y+4ex-2 and xey and y+8el[i][16] then el[i][10]=2 end if xel[i][16] then el[i][15]=120 el[i][14]=1 tx=x;ty=y end end if el[i][14]==1 then sfx(43,'D-6',-1,2) if x>el[i][16] then point1={el[i][16],el[i][17]};point2={tx+64,ty} elseif xel[i][16] then el[i][6]=dis[1]/128 elseif x=ty and el[i][17]0 then el[i][7]=el[i][7]-.1 end if el[i][7]<.1 then el[i][7]=.1 end el[i][15]=121+math.floor(bganim/2) el[i][3]=el[i][3]+el[i][7] if el[i][3]>=(el[i][17]/8) then el[i][15]=119 el[i][14]=0 el[i][13]=1 end end end if el[i][1]==28 then --bat if el[i][14]==0 then if x>ex and x0 then el[i][10]=2 end if el[i][2]<0 or el[i][2]>15 then el[i][6]=-el[i][6] end if el[i][3]<0 or el[i][3]>15 then el[i][7]=-el[i][7] end el[i]=updent2(el[i],cur_tiles) end end if el[i][1]==29 then --up-down bat el[i]=updent2(el[i],cur_tiles) end if el[i][1]==30 then --left-right bat if el[i][10]==1 then el[i][6]=-.2 end if el[i][10]==2 then el[i][6]=.2 end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==31 then --spin bat if el[i][14]==0 then el[i][6]=el[i][2] el[i][7]=el[i][3] if el[i][10]==2 then el[i][9]=3 end el[i][14]=1 end if el[i][14]==1 then el[i][2]=el[i][6]+(sin(el[i][9])*math.pi) el[i][3]=el[i][7]+(cos(el[i][9])*math.pi) if el[i][10]==2 then el[i][9]=el[i][9]-.025 if el[i][9]>360 then el[i][9]=.1 end end if el[i][10]==1 then el[i][9]=el[i][9]+.025 if el[i][9]<0 then el[i][9]=359.9 end end end end if el[i][1]==32 then --bird if el[i][14]<3 then if x>ex-16 and xey-8 and y+4ex then el[i][10]=1 el[i][6]=-.2 end el[i][13]=0 el[i][14]=3 if mp[bingo+1].1 then el[i][15]=137+fastanim/2 else el[i][15]=135 end if el[i][10]==1 then el[i][6]=-.05 end if el[i][10]==2 then el[i][6]=.05 end if el[i][7]==0 then el[i][7]=-.05 end chnc=math.random(1,41) if chnc==1 then el[i][15]=136;el[i][14]=1 end if chnc==2 then el[i][14]=2 end el[i]=updent2(el[i],cur_tiles) end if el[i][14]==1 then if el[i][7]>.1 then el[i][15]=137+fastanim/2 else el[i][15]=136 end chnc=math.random(1,61) if chnc==1 then el[i][15]=135;el[i][10]=math.random(1,2);el[i][14]=0 end if chnc==2 then el[i][15]=135;el[i][10]=math.random(1,2);el[i][14]=2 end el[i]=updent2(el[i],cur_tiles) end if el[i][14]==2 then if el[i][7]>.1 then el[i][15]=137+fastanim/2 else el[i][15]=135 end chnc=math.random(1,81) if chnc==1 then el[i][15]=135;el[i][10]=math.random(1,2);el[i][14]=0 end if chnc==2 then el[i][15]=136;el[i][10]=math.random(1,2);el[i][14]=1 end el[i]=updent2(el[i],cur_tiles) end if el[i][14]==3 then el[i][2]=el[i][2]+el[i][6] el[i][3]=el[i][3]+el[i][7] el[i][15]=137+fastanim/2 if el[i][2]>15 or el[i][2]<0 then el[i][3]=19 el[i][14]=4 end end end if el[i][1]==33 then --spark if el[i][2]<0 or el[i][2]>16 or el[i][3]<0 or el[i][3]>16 then table.remove(entities,i) table.remove(el,i) ecount=ecount-1 break end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==34 then --flying eye el[i][9]=0 if el[i][14]==144 then if xex+4 then el[i][6]=.05 end if yey then el[i][3]=el[i][3]+.05 end end if el[i][14]==145 then if xex+4 then el[i][6]=.01 end if x>ex and xey and dead[bingo+1]==0 and flicker==0 then ltnng(ex+56,ey,x+56,y) lt=1 sfx(52,"A-4",-1,2) end end el[i][7]=el[i][7]+.1 if el[i][7]>360 then el[i][7]=0 end el[i][2]=el[i][2]+el[i][6] el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30) end if el[i][1]==35 then --eye trap if x>ex and xey and dead[bingo+1]==0 and flicker==0 then ltnng(ex+56,ey,x+56,y) lt=1 sfx(52,"A-4",-1,2) end end if el[i][1]==36 then --golem el[i][6]=xvel/6 if yvel~=0 then el[i][7]=yvel/8 end if xvel~=0 then el[i][15]=180 if fastanim>2 then el[i][15]=182 end else el[i][15]=180 end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==37 then --goblin if el[i][14]==0 then el[i][14]=el[i][15] end el[i][15]=el[i][14] if bganim>2 then el[i][15]=el[i][14]+2 end if cur_tiles[math.floor(el[i][3]+2)][math.ceil(el[i][2])]==0 and el[i][15]>175 and el[i][15]<179 then el[i][10]=2 end if cur_tiles[math.floor(el[i][3]+2)][math.floor(el[i][2]+2)]==0 and el[i][15]>175 and el[i][15]<179 then el[i][10]=1 end if el[i][10]==1 then el[i][6]=-.08 end if el[i][10]==2 then el[i][6]=.08 end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==38 then --wraith el[i][15]=212 if el[i][14]==0 then if el[i][11]<75 then el[i][11]=el[i][11]+1 end if el[i][11]>=75 and y+4>ey-8 and y+4ex and el[i][10]==2 then table.insert(entities,{99,el[i][2]+1,el[i][3]-1,0,0,0,0,0,0,3,0,10,0}) el[i][11]=0 sfx(58,"C-4",-1,2) end if xex-8*5 and xey-8 and y+40 then el[i][14]=1;el[i][11]=0;sfx(57,"G-6",-1,2) end if el[i][10]==2 and x>ex+4 and flip==1 and xvel<0 then el[i][14]=1;el[i][11]=0;sfx(57,"G-6",-1,2) end end if bganim>2 then el[i][15]=212+2 end if el[i][2]>0 and el[i][2]<15 and el[i][3]>0 and el[i][3]<15 then if cur_tiles[math.floor(el[i][3]+2)][math.ceil(el[i][2])]==0 then el[i][10]=2 end if cur_tiles[math.floor(el[i][3]+2)][math.floor(el[i][2]+2)]==0 then el[i][10]=1 end end if el[i][10]==1 then el[i][6]=-.06 end if el[i][10]==2 then el[i][6]=.06 end end if el[i][14]==1 then el[i][11]=el[i][11]+1 if el[i][11]==30 then table.insert(particles,{7,ex+56,ey,25}) if xex then el[i][2]=(x/8)+3 el[i][10]=1 el[i][14]=0 if el[i][2]>=14 then el[i][2]=(x/8)-4 el[i][14]=2 end end el[i][11]=0 sfx(54,"D-5",-1,2) end if fastanim>2 then el[i][15]=212+2 end if el[i][10]==1 then el[i][6]=.12 end if el[i][10]==2 then el[i][6]=-.12 end if el[i][2]>0 and el[i][2]<14 and el[i][3]>0 and el[i][3]<14 then if cur_tiles[math.floor(el[i][3]+2)][math.ceil(el[i][2])]==0 then el[i][6]=0 end if cur_tiles[math.floor(el[i][3]+2)][math.floor(el[i][2]+2)]==0 then el[i][6]=0 end end end if el[i][14]==2 then if fastanim>2 then el[i][15]=212+2 end if cur_tiles[math.floor(el[i][3]+2)][math.ceil(el[i][2])]==0 then el[i][10]=2 end if cur_tiles[math.floor(el[i][3]+2)][math.floor(el[i][2]+2)]==0 then el[i][10]=1 end if el[i][10]==1 then el[i][6]=-.12 end if el[i][10]==2 then el[i][6]=.12 end el[i][11]=el[i][11]+1 if el[i][11]==40 then el[i][11]=0 el[i][14]=0 end end el[i]=updent2(el[i],cur_tiles) end if el[i][1]==39 then --magic torch if el[i][14]==1 and x>ex-32 and xey-24 and y+4ex+4 then xvel=xvel-.5 end if x=100 and bank==2 then hp[bingo+1]=maxhp[bingo+1] mp[bingo+1]=maxmp[bingo+1] target={0,0} tb=2 sfx(26,"C-7",-1,3) end if el[i][14]==3 and x>ex-32 and xey-24 and y+4=ex+4 then xvel=xvel+.5 end if x0 then el[i][9]=el[i][9]-1 end if el[i][6]>360 then el[i][6]=0 end if el[i][7]>360 then el[i][7]=0 end el[i][2]=el[i][2]+((sin(el[i][6])*math.pi)/15) el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30) if x>ex and xey and dead[bingo+1]==0 and flicker==0 and el[i][9]==0 then table.insert(entities,{99,el[i][2],el[i][3]+1,0,0,0,0,0,0,2,0,10,0}) sfx(58,"C-4",-1,2) el[i][9]=100 end end if el[i][1]==41 then --magic pot if el[i][9]>0 then el[i][9]=el[i][9]-1 end if x>ex and x=200 then if el[i][10]==0 then table.insert(entities,{99,el[i][2]+1-.8,el[i][3],0,0,0,0,0,0,3,0,10,0}) end if el[i][10]==1 then table.insert(entities,{99,el[i][2]-1+.8,el[i][3],0,0,0,0,0,0,1,0,10,0}) end el[i][8]=0 sfx(58,"C-4",-1,2) end end if el[i][1]==43 then --arrow shooter el[i][8]=el[i][8]+1 if el[i][8]>=200 then if el[i][10]==0 then table.insert(entities,{98,el[i][2]+1-.8,el[i][3],0,0,0,0,0,0,0,0,30}) sfx(59,"D-6",-1,2) end if el[i][10]==1 then table.insert(entities,{98,el[i][2]-1+.8,el[i][3]+.2,0,0,0,0,0,0,2,0,30}) sfx(59,"D-6",-1,2) end el[i][8]=0 end end if el[i][1]==44 then --switch hit=0 if shot==1 and rox>ex-8 and roxey-8 and royex and xey-8 and y+8ex and xey-8 and y+8ex and xey-8 and y+4ex-8 and xey-8 and y+40 then mset(el[i][10],el[i][11],0) mset(el[i][10],el[i][11]+1,0) mset(el[i][10],el[i][11]-1,0) cur_tiles[el[i][3]+1][el[i][2]+1]=0 cur_tiles[el[i][3]+2][el[i][2]+1]=0 cur_tiles[el[i][3]][el[i][2]+1]=0 --table.remove(el,i) el[i][1]=-1 ex=0 ey=0 sfx(46,"C-1",-1,2) keys=keys-1 break end end if el[i][1]==48 then --coin if x>ex and xey-8 and y+4511 then moneys=511 end break end end if el[i][1]==49 then --heart if x>ex and xey-8 and y+4maxhp[bingo+1] then hp[bingo+1]=maxhp[bingo+1] end break end end if el[i][1]==50 then --butterfly el[i][6]=el[i][6]+.05 el[i][7]=el[i][7]+.1 if ((sin(el[i][6])*math.pi)/15)>0 then el[i][9]=0 end if ((sin(el[i][6])*math.pi)/15)<0 then el[i][9]=1 end if el[i][6]>360 then el[i][6]=0 end if el[i][7]>360 then el[i][7]=0 end el[i][2]=el[i][2]+((sin(el[i][6])*math.pi)/15) el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30)+el[i][8] if x>ex and xey-8 and y+4ex-16 and xey-8 and y+4ex and xey-8 and y+8ex and xey-8 and y+4ex and xey-8 and y+4=20 then table.insert(particles,{8,ex+56,ey,10}) mset(el[i][10],el[i][11],0) --table.remove(el,i) el[i][1]=-1 ex=0 ey=0 sfx(32,"C-6",-1,2) keys=keys+1 moneys=moneys-20 break end end end if el[i][1]==56 then --air bubble if x>ex and xey-8 and y+4ex and xey-8 and y+4=50 then table.insert(particles,{8,ex+56,ey,10}) mset(el[i][10],el[i][11],0) --table.remove(el,i) el[i][1]=-1 ex=0 ey=0 sfx(48,'A-5',-1,1) maxhp[bingo+1]=maxhp[bingo+1]+3-bingo hp[bingo+1]=maxhp[bingo+1] moneys=moneys-50 break end end end if el[i][1]==59 then --sword if x>ex and xey-8 and y+4ex and xey-8 and y+4ex and xey-8 and y+4=300 then table.insert(items,5) table.insert(particles,{8,ex+56,ey,10}) mset(el[i][10],el[i][11],0) --table.remove(el,i) el[i][1]=-1 ex=0 ey=0 sfx(49,'C-7',-1,1) ml=200 broadcast="Got the Crown!" vh=vh+1 moneys=moneys-300 break end end end if el[i][1]==95 then --dropped rocks if x>ex and xey-8 and y+499 then rocks=99 end break end end if el[i][1]==96 then --dropped coin if x>ex and xey-8 and y+41023 then moneys=1023 end break end end if el[i][1]==97 then --dropped heart if x>ex and xey-8 and y+4maxhp[bingo+1] then hp[bingo+1]=maxhp[bingo+1] end break end end if el[i][1]==200 then --feather projectile if el[i][10]==1 then el[i][6]=-.25;el[i][7]=.5 end if el[i][10]==0 then el[i][6]=.25;el[i][7]=.5 end el[i][2]=el[i][2]+el[i][6] el[i][3]=el[i][3]+el[i][7] if cur_tiles[math.floor(el[i][3]+1)][math.floor(el[i][2]+1)]~=0 and cur_tiles[math.floor(el[i][3]+1)][math.floor(el[i][2]+1)]~=52 and el[i][10]==0 then table.insert(particles,{8,ex+56,ey,5}) table.remove(el,i) --el[i][1]=-1 ex=0 ey=0 sfx(55,"C-1",-1,2) break end if cur_tiles[math.ceil(el[i][3]+1)][math.ceil(el[i][2]+1)]~=0 and cur_tiles[math.ceil(el[i][3]+1)][math.ceil(el[i][2]+1)]~=52 and el[i][10]==1 then table.insert(particles,{8,ex+56,ey,5}) table.remove(el,i) --el[i][1]=-1 ex=0 ey=0 sfx(55,"C-1",-1,2) break end end if el[i][1]==98 then --arrow projectile if el[i][10]==2 then el[i][6]=-.5;el[i][7]=0 end if el[i][10]==0 then el[i][6]=.5;el[i][7]=0 end el[i][2]=el[i][2]+el[i][6] el[i][3]=el[i][3]+el[i][7] if cur_tiles[math.floor(el[i][3]+1)][math.floor(el[i][2]+1)]~=0 and cur_tiles[math.floor(el[i][3]+1)][math.floor(el[i][2]+1)]~=52 and el[i][10]==0 then table.insert(particles,{8,ex+56,ey,5}) table.remove(el,i) --el[i][1]=-1 ex=0 ey=0 sfx(55,"C-1",-1,2) break end if cur_tiles[math.ceil(el[i][3]+1)][math.ceil(el[i][2]+1)]~=0 and cur_tiles[math.ceil(el[i][3]+1)][math.ceil(el[i][2]+1)]~=52 and el[i][10]==2 then table.insert(particles,{8,ex+56,ey,5}) table.remove(el,i) --el[i][1]=-1 ex=0 ey=0 sfx(55,"C-1",-1,2) break end end if el[i][1]==99 then --fire projectile if el[i][10]==0 then el[i][6]=0;el[i][7]=-.25 end if el[i][10]==1 then el[i][6]=-.25;el[i][7]=0 end if el[i][10]==2 then el[i][6]=0;el[i][7]=.25 end if el[i][10]==3 then el[i][6]=.25;el[i][7]=0 end el[i][2]=el[i][2]+el[i][6] el[i][3]=el[i][3]+el[i][7] if el[i][2]<0 or el[i][2]>16 or el[i][3]<0 or el[i][3]>16 then if el[i][14]~=nil then if el[i][14]>0 then for a=1,#projectiles do if projectiles[a]~=nil then if el[i][14]==projectiles[a][5] then table.remove(projectiles,a) end end end end end table.remove(el,i) --el[i][1]=-1 ex=0 ey=0 break end end if el[i][1]==100 then --big bingo if el[i][14]==-3 then mset(220,72,86) mset(201,76,6) if el[i][16]>150 then el[i][15]=377 end if el[i][16]==125 then broadcast="You're mean." ml=100 shrink=1 bcol=3 end if el[i][16]<=150 and el[i][16]>60 then el[i][15]=441 end if el[i][16]<=60 then el[i][15]=437 el[i][3]=el[i][3]-.75 end if el[i][16]==50 then boom=2 end el[i][16]=el[i][16]-.25 if el[i][16]==0 then for a=0,2 do mset(207,69+a,0) mset(208,69+a,0) mset(192,75+a,0) cur_tiles[6+a][16]=0 cur_tiles[12+a][1]=0 end sfx(46,"C-1",-1,1) boom=2 el[i][1]=-1 end end if el[i][14]==-1 then el[i][15]=441 if mget(198,76)==131 and mget(204,76)==131 then el[i][14]=0 el[i][16]=200 music(3) end end if el[i][14]==0 or el[i][14]==-2 then if mget(198,76)==77 and mget(204,76)==77 then el[i][4]=1 el[i][5]=1 el[i][12]=0 el[i][13]=1 el[i][1]=60 for a=0,2 do mset(207,69+a,0) mset(208,69+a,0) mset(192,75+a,0) cur_tiles[6+a][16]=0 cur_tiles[12+a][1]=0 end music() sfx(46,"C-1",-1,1) boom=2 break end bbc=math.random(1,50) if bbc==1 then el[i][15]=441;bblnk=10 end if bblnk==0 then el[i][15]=433 end if bblnk>0 then bblnk=bblnk-1 end if x/8>el[i][2] then el[i][10]=0 end if x/80 then el[i][16]=el[i][16]-1 end if el[i][14]==0 and el[i][16]==0 then jc=math.random(1,75) bang=math.random(1,125) if jc==1 then bint=math.random(1,2) el[i][7]=-.25*bint el[i][14]=1 end if bang==1 and el[i][7]==0 then el[i][14]=3 el[i][16]=120 sfx(53,"G-2",-1,2) end end end if el[i][14]==1 then --*jumpimg if el[i][10]==0 then el[i][6]=.05*bint end if el[i][10]==1 then el[i][6]=-.05*bint end if el[i][7]<0 then el[i][15]=437 else el[i][15]=377 end if el[i][7]==0 then el[i][14]=2;el[i][16]=30 end el[i]=updent2(el[i],cur_tiles) end if el[i][14]==2 then el[i][16]=el[i][16]-1 if el[i][16]==0 then el[i][14]=0 end end if el[i][14]==3 then el[i][16]=el[i][16]-1 if el[i][16]>50 then el[i][15]=437 else el[i][15]=377 end if el[i][16]==50 then boom=4 sfx(52,"C-4",-1,2) if jump==0 then yvel=-6 jump=1 dj=1 grounded=0 end end if el[i][16]==0 then el[i][14]=1 end end end if el[i][1]==101 then --lord bandit el[i][15]=419 if el[i][18]>0 then el[i][18]=el[i][18]-1 el[i][15]=423 end blnk_chnc=math.random(1,100) if blnk_chnc==1 then el[i][18]=10 end if x/8>el[i][2] then el[i][10]=0 end if x/8=380 then el[i][3]=el[i][3]-.05 end if el[i][16]==400 then broadcast="Just give me a little bit..." ml=150 shrink=1 bcol=10 end if el[i][16]==600 then mset(167,3,0) mset(167,12,98) sfx(49,"D-7",-1,1) table.insert(entities,{51,7,12,0,0,0,0,0,0,j,i,0,0}) end end if el[i][14]==-1 then edat[1][2]=5000 if cld==1 then el[i][14]=0 end if mp[bingo+1]==0 then mp[bingo+1]=mp[bingo+1]+4 sfx(49,"C-7",-1,1) broadcast="Sheesh! Quit messing around!" ml=150 shrink=1 bcol=10 end end if el[i][14]==0 then edat[1][2]=5000 el[i][16]=el[i][16]+1 if el[i][16]==100 then music(6) end if el[i][16]==200 then broadcast="Looks like you've made it, kid!Nicely done!" ml=150 shrink=1 bcol=10 end if el[i][16]==350 then broadcast="Since you know a lot of magic," ml=150 shrink=1 bcol=10 end if el[i][16]==500 then broadcast="you can have my last treasure." ml=150 shrink=1 bcol=10 end if el[i][16]==750 then broadcast="--but only if you can beat me!" ml=150 shrink=1 bcol=10 end if el[i][16]>=600 then el[i][2]=el[i][2]-.01 end if el[i][16]==1000 then el[i][14]=1 el[i][16]=0 music(5) end end if el[i][14]==1 then el[i][17]=0 el[i][16]=el[i][16]+1 if el[i][16]==100 then sfx(53,"G-2",-1,2) end if el[i][16]>=100 and el[i][16]<150 then el[i][17]=2 end if el[i][16]>=150 and el[i][16]<200 then el[i][17]=1 end if el[i][16]==150 or el[i][16]==160 or el[i][16]==170 or el[i][16]==180 or el[i][16]==190 then sfx(58,"C-5",-1,2) table.insert(entities,{99,(x/8)-.5,0,0,0,0,0,0,0,2,0,10,0}) end if el[i][16]==200 then el[i][16]=0 el[i][14]=2 if el[i][2]>=7.5 then el[i][6]=-.2 elseif el[i][2]<7.5 then el[i][6]=.2 end end end if el[i][14]==2 then el[i][2]=el[i][2]+el[i][6] el[i][16]=el[i][16]+1 if el[i][16]==50 then el[i][16]=0 el[i][14]=1 hc=math.random(0,2) if hc==0 and edat[1][2]<=4950 then el[i][14]=3 for a=1,#el do if el[a][1]==34 then ltnng((el[a][2])*8,0,(el[a][2])*8,el[a][3]*8) sfx(50,"D-3",-1,2) table.insert(particles,{7,(el[a][2]*8)+56,el[a][3]*8,24}) el[a][1]=49 el[a][12]=0 if el[a][3]<5 then el[a][3]=5 end ecount=ecount-1 edat[#edat]=nil end end end if hc==1 then el[i][14]=4 end end end if el[i][14]==3 then el[i][16]=el[i][16]+1 el[i][17]=0 if el[i][16]==100 then sfx(56,"D-4",96,2) end if el[i][16]>=100 and el[i][16]<200 then el[i][17]=2 ltnng((el[i][2]+8)*8,0,(el[i][2]+8)*8,el[i][3]*8) end if el[i][16]==75 then cur_tiles[13][9]=156 end if el[i][16]==150 then cur_tiles[13][9]=157 end if el[i][16]==200 then if el[i][2]>=7.5 then el[i][6]=-.2 elseif el[i][2]<7.5 then el[i][6]=.2 end sfx(50,"D-3",-1,2) el[i][16]=0 el[i][14]=2 alt=0 if edat[1][2]<=4000 then alt=math.random(0,1) end if edat[1][2]<=2500 then alt=1 end cur_tiles[13][9]=0 table.insert(entities,{5,8,12}) ecount=ecount+1 table.insert(entities,1+ecount,{34,el[i][1]/16,(el[i][2]+2)/16,0,0,0,0,0,0,0,0,20,0,144+alt}) table.insert(edat,{1+ecount,8,0,2}) end end if el[i][14]==4 then el[i][17]=0 el[i][16]=el[i][16]+1 if el[i][16]==100 then sfx(53,"G-2",-1,2) end if el[i][16]>=100 and el[i][16]<150 then el[i][17]=1 end if el[i][16]>=150 and el[i][16]<200 then el[i][17]=2 end if el[i][16]==160 or el[i][16]==180 then --shoot from the sides sfx(58,"C-5",-1,2) table.insert(entities,{99,1,y/8,0,0,0,0,0,0,3,0,10,0}) end if el[i][16]==150 or el[i][16]==170 or el[i][16]==190 then sfx(58,"C-5",-1,2) table.insert(entities,{99,15,y/8,0,0,0,0,0,0,1,0,10,0}) end if el[i][16]==200 then el[i][16]=0 el[i][14]=2 if el[i][2]>=7.5 then el[i][6]=-.2 elseif el[i][2]<7.5 then el[i][6]=.2 end end end end --- if el[i][1]==102 then --soft lord bandit hp[bingo+1]=maxhp[bingo+1] mp[bingo+1]=maxmp[bingo+1] if x/8>el[i][2] then el[i][10]=0 end if x/80 then el[i][17]=el[i][17]-1 end if mget(151,12)==86 then el[i][16]=el[i][16]+1 end if el[i][16]==25 then broadcast="Here it is, kid! You can get to a lot of places with this!" ml=150 shrink=1 bcol=10 end end if el[i][1]==103 then --lady chilli if x/8>el[i][2] then el[i][10]=0 end if x/8x/8 or x/8>el[i][2]+4 then blink_chnc=1 end if blink_chnc==1 then el[i][17]=10 else if hp[bingo+1]0 then el[i][17]=el[i][17]-1 end end if el[i][1]==104 then --magster if el[i][20]==0 then music(4) end el[i][20]=1 if edat[1][2]<=75 then el[i][20]=2 end if edat[1][2]<=25 then el[i][20]=3 end if el[i][3]<2 then el[i][8]=.1 else el[i][8]=0 end if el[i][14]==0 then el[i][6]=el[i][6]+.05/el[i][20] el[i][7]=el[i][7]+.1/(el[i][20]/2) if ((sin(el[i][6])*math.pi)/15)>0 then el[i][10]=0 end if ((sin(el[i][6])*math.pi)/15)<0 then el[i][10]=1 end if el[i][6]>360 then el[i][6]=0 end if el[i][7]>360 then el[i][7]=0 end el[i][2]=el[i][2]+((sin(el[i][6])*math.pi)/15) el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30)+el[i][8] el[i][16]=el[i][16]+1 if el[i][16]>=300-math.random(0,50)-(el[i][20]*50) and el[i][2]>2+el[i][20] and el[i][2]<14-el[i][20] then if x/8>=el[i][2] then el[i][10]=0 elseif x/8=100-(el[i][20]*25) then el[i][14]=0 el[i][16]=0 end end end if el[i][1]==201 then --black mirror if el[i][14]==0 and edat[1][2]<=50 then el[i][14]=1 boom=5 sfx(46,"C-1",-1,0) sfx(46,"C-2",-1,1) sfx(46,"C-3",-1,2) sfx(26,"C-2",-1,3) end if el[i][14]==2 then el[i][14]=3 bm=1 end if el[i][14]==3 then if #particles<100 then table.insert(particles,{13,ex+60,ey,math.random(100,500),0,math.random(1,100)/10}) end if #particles>=100 then el[i][14]=4 end end if el[i][14]==4 then if #particles<3 then table.insert(particles,{13,ex+60,ey,math.random(100,500),0,math.random(1,100)/10}) end end end if el[i][1]==202 then --final boss if el[i][14]==-1 then edat[2][2]=1000 if bm==1 then el[i][12]=20 el[i][14]=0 end end if el[i][14]==0 then el[i][3]=el[i][3]-.1 if el[i][3]<=3 then el[i][14]=1 end end if el[i][14]==1 then el[i][15]=el[i][15]+1 if el[i][15]>100 then el[i][14]=2 el[i][15]=0 end end if el[i][14]==2 then if x>ex and xey and dead[bingo+1]==0 and flicker==0 then ltnng(ex+56,ey,x+56,y) lt=1 sfx(52,"A-4",-1,2) end el[i][15]=el[i][15]+1 if (el[i][15]==50 or el[i][15]==100 or el[i][15]==150) and #projectiles==0 then ecount=ecount+1 unq=math.random(100,1000) table.insert(entities,{33,el[i][2],el[i][3],0,0,0,.1,0,4,0,0,10,0}) table.insert(edat,{#entities,8,0,2}) end if (el[i][15]==300 or el[i][15]==310 or el[i][15]==320 or el[i][15]==330 or el[i][15]==340 or el[i][15]==350) and edat[2][2]<750 then table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) sfx(58,"C-4",-1,2) end if el[i][15]==450 then sfx(53,"F#2",-1,3) end if el[i][15]>500 then el[i][15]=0 el[i][2]=math.random(4,8) end end if el[i][14]==3 then if el[i][3]<=12.5 then el[i][3]=el[i][3]+.1 end if el[i][3]>=12.5 then el[i][14]=4 end end if el[i][14]==4 then el[i][15]=el[i][15]+1 if el[i][15]%330==0 and el[i][15]<661 then el[i][16]=el[i][16]+1 end if el[i][15]>990 then el[i][16]=2 end if el[i][15]>=1200 then sync(16,3,false) music(0) el[i][14]=5 end end if el[i][14]==5 then edat[2][2]=edat[2][2]+5 if edat[2][2]>=1000 then edat[2][2]=1000 el[i][4]=1 el[i][5]=1 el[i][16]=0 el[i][13]=1 el[i][14]=6 el[i][15]=1 el[i][17]=0 end end if el[i][14]==6 then if el[i][17]==1 and x/8>6 and x/8<10 then if el[i][10]==1 then el[i][2]=x/8-3 end if el[i][10]==0 then el[i][2]=x/8+3 end sfx(58,"C-6",-1,2) el[i][17]=0 end if x/8el[i][2] then el[i][6]=el[i][6]+.005*el[i][15];el[i][10]=0 end if y/8.25 then el[i][6]=.25 end if el[i][6]<-.25 then el[i][6]=-.25 end if el[i][8]==0 then el[i][7]=el[i][7]+.1 end if el[i][7]>0 then el[i][7]=0 end el[i][2]=el[i][2]+el[i][6] el[i][3]=el[i][3]+el[i][7] el[i]=updent2(el[i],cur_tiles) if edat[2][2]<900 and el[i][15]==1 or edat[2][2]<800 and el[i][15]==2 or edat[2][2]<700 and el[i][15]==3 or edat[2][2]<600 and el[i][15]==4 or edat[2][2]<500 and el[i][15]==5 then el[i][14]=7 el[i][2]=7 el[i][3]=4 el[i][15]=el[i][15]+1 sfx(28,"C-4",-1,2) end end if el[i][14]==7 then if x/8el[i][2] then el[i][10]=0 end el[i][7]=el[i][7]+.1 if el[i][7]>360 then el[i][7]=0 end el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30) el[i][16]=el[i][16]+1 if el[i][16]>=1000 then if el[i][15]<6 then el[i][3]=12.5 el[i][14]=6 el[i][16]=0 sfx(-1,"C-1",-1,2) sfx(58,"C-6",-1,2) if el[i][15]==5 then table.insert(entities,{35,1,4,0,0,0,0,0,0,0,0,20}) table.insert(entities,{35,14,4,0,0,0,0,0,0,0,0,20}) sfx(54,"D-5",-1,2) end end if el[i][15]==6 then el[i][14]=8 el[i][16]=0 sfx(50,"D-3",-1,2) end end if el[i][16]%15==0 then sfx(28,"C-4",-1,2) end if el[i][15]==2 then if el[i][16]%20==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end end if el[i][15]==3 then if el[i][16]%60==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,1,y/8,0,0,0,0,0,0,3,0,10,0}) table.insert(entities,{99,15,y/8,0,0,0,0,0,0,1,0,10,0}) end end if el[i][15]==4 then if el[i][16]%40==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end if el[i][16]%120==0 then sfx(58,"C-4",-1,3) if el[i][16]%240~=0 then table.insert(entities,{99,1,y/8,0,0,0,0,0,0,3,0,10,0}) else table.insert(entities,{99,15,y/8,0,0,0,0,0,0,1,0,10,0}) end end end if el[i][15]==5 then if el[i][16]%10==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end end if el[i][15]==6 then if el[i][16]<200 then if el[i][16]%20==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end end if el[i][16]>=200 and el[i][16]<400 then if el[i][16]%10==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end end if el[i][16]>=400 and el[i][16]<600 then if el[i][16]%40==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end if el[i][16]%120==0 then sfx(58,"C-4",-1,3) if el[i][16]%240~=0 then table.insert(entities,{99,1,y/8,0,0,0,0,0,0,3,0,10,0}) else table.insert(entities,{99,15,y/8,0,0,0,0,0,0,1,0,10,0}) end end end if el[i][16]>=800 and el[i][16]<900 then if el[i][16]%5==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end end if el[i][16]>=900 then if el[i][16]%2==0 then sfx(58,"C-4",-1,3) table.insert(entities,{99,x/8,0,0,0,0,0,0,0,2,0,10,0}) end end end end if el[i][14]==8 then if x/8el[i][2] then el[i][10]=0 end el[i][7]=el[i][7]+.1 if el[i][7]>360 then el[i][7]=0 end el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30) el[i][16]=el[i][16]+1 if el[i][16]>=500 then el[i][14]=7 el[i][16]=0 end end if el[i][14]==9 then if x/8el[i][2] then el[i][10]=0 end el[i][7]=el[i][7]+.1 if el[i][7]>360 then el[i][7]=0 end el[i][3]=el[i][3]+((cos(el[i][7])*math.pi)/30) el[i][16]=el[i][16]+1 if #particles<100 then table.insert(particles,{3,ex+60,ey,math.random(100,500),0,math.random(1,100)/10}) end if el[i][16]==200 then sfx(49,"D-7",-1,1) table.insert(entities,{51,2,13,0,0,0,0,0,0,j,i,0,0}) end end end if el[i][1]==121 then --eye switch hit=0 if shot==1 and rox>ex-8 and roxey-8 and royex and xey-8 and y+8ex and xey-8 and y+43 and x>ex-el[i][4]*4 and xy-16 and ey-el[i][5]*80 and flicker==0 and dead[bingo+1]==0 or lt==1 then hurt=1 boom=1 if xvel~=0 then xvel=-xvel*2+lt else if xex+4 then xvel=2+lt end end hp[bingo+1]=math.ceil(hp[bingo+1]-(el[i][12]*(lt+1))/((vh+1)*2)-1) if hp[bingo+1]>0 then sfx(40,'F-5',-1,3) end if hp[bingo+1]<=0 then beento[bank+1]=1 sync(4,bank+beento[bank+1]*4,true) dead[bingo+1]=1 hp[bingo+1]=0 sfx(41,'F-5',-1,3) end if el[i][1]==98 then table.insert(particles,{8,ex+56,ey,5}) table.remove(el,i) ex=0 ey=0 sfx(55,"C-1",-1,2) break end end end lt=0 end return el end function updent2(id,ct) --mob collision if id==nil then return nil end id[2]=id[2]+id[6] id[3]=id[3]+id[7] if id[13]==1 then if id[6]>0 then id[6]=id[6]-.05 if id[6]<0 then id[6]=0 end end if id[6]<0 then id[6]=id[6]+.05 if id[6]>0 then id[6]=0 end end if id[8]==0 then id[7]=id[7]+.0125 end if id[7]>2 then id[7]=2 end end id[8]=0 for i=0,15 do for j=0,15 do ctile=st(ct[i+1][j+1]) if ctile>0 and ctile<5 or ctile>6 and ctile<9 then --bottom btm=0 if id[5]<2 and id[2]+.4>j and id[2]+.4i and id[3]+11 and id[2]+.4>j and id[2]+.4i and id[3]+2.5.2 and id[5]>1 then boom=2 sfx(63,"C-1",-1,2) end id[7]=0 id[8]=1 if id[5]<2 then id[3]=i-1 else id[3]=i-2.5 end end if id[1]==9 then id[7]=-id[7] id[7]=id[7]/2 id[3]=i-1 if id[7]<.1 then id[8]=1 end end if id[13]==0 then id[7]=-id[7] end if id[1]==33 then if id[10]==0 then id[6]=.1 else id[6]=-.1 end id[7]=0 id[3]=i-1 id[9]=3 end end end --top if ctile>0 and ctile<5 and id[2]+.4>j and id[2]+.4i and (id[3]-.1)-id[5]0 and ctile<5 and id[2]+1+(id[4]/5)>j and id[2]+1+(id[4]/5)i and id[3]+.50 and ctile<5 and id[2]-id[4]/2>j and id[2]-id[4]/2i and id[3]+.515 and id[1]~=23 and id[1]~=28 then if id[1]==12 or id[1]==22 then id[2]=0 else id[2]=17;id[3]=17;id[9]=0;id[1]=-1 end end if id[1]==23 then if id[3]>15 then id[3]=0 end if id[3]<0 then id[3]=15 end end if ctile>9 and ctile<12 and id[2]+.5>j and id[2]+.5i and id[3]+.5j and id[2]+.5i and id[3]+.5j and id[2]+.4i and id[3]+10 and id[2]>swx/8 and id[2]+1<(swx/8)+3 and id[3]+.5>(swy/8)-lup/2 and id[3]+.5<(swy/8)+(2-lup/2) then hit=1 end if id[5]>1 and swipe>0 then if id[2]-4<(swx/8) and id[2]+2>(swx/8) and id[3]-4<(swy/8)-(lup/2) and id[3]+4>(swy/8)+(2-lup/2) or id[2]-4<((swx-1)/8) and id[2]+2>((swx-1)/8) and id[3]-4<(swy/8)-(lup/2) and id[3]+4>(swy/8)+(2-lup/2) or id[2]-4<((swx+1)/8) and id[2]+2>((swx+1)/8) and id[3]-4<(swy/8)-(lup/2) and id[3]+4>(swy/8)+(2-lup/2) then hit=1 end end if shot==1 and rox/8>id[2]-1 and rox/8id[3]-1 and roy/8id[2]-2 and projectiles[a][2]id[3]-2 and projectiles[a][3]0 then ed[i][3]=1 if id[1]==202 then --final boss id[17]=1 if id[14]==7 then break end end if hit==1 then ed[i][2]=ed[i][2]-(3-bingo) else ed[i][2]=ed[i][2]-4 end end if hit==1 then boom=.5 if lup==0 then yvel=-1 end if flip==0 then xvel=-2 else xvel=2 end end if ed[i][2]<1 then if id[1]==100 then id[14]=-3 id[16]=200 ed[i][3]=0 music() sfx(41,'F-5',-1,3) break end if id[1]==101 then --lord bandit id[14]=-2 ed[i][3]=0 music() sfx(20,'A-3',-1,3) ed[i][2]=1 id[16]=0 id[18]=100 cld=0 sm=1 break end if id[1]==201 then --black mirror if id[14]==1 then sfx(52,"C-1",-1,0) sfx(52,"C-2",-1,1) sfx(52,"C-3",-1,2) music(4) boom=7 id[14]=2 end ed[i][2]=1 break end if id[1]==202 then --final boss if id[14]==2 then music() boom=2 id[14]=3 end if id[14]==3 or id[14]==4 or id[14]==8 or id[14]==9 then if id[14]==8 then id[16]=0 id[14]=9 music() sfx(52,"C-1",-1,0) sfx(52,"C-2",-1,1) sfx(52,"C-3",-1,2) blue=1 end ed[i][2]=1 break end end if id[1]~=41 and id[1]~=8 and id[1]~=24 and id[1]~=25 then ecount=ecount-1 end drops=math.random(1,5) if drops==1 then if ed[i][4]==1 then --coin table.insert(entities,{96,id[2],id[3],0,0,0,0,0,0,0,0,0,0}) end if ed[i][4]==2 then --heart table.insert(entities,{97,id[2],id[3],0,0,0,0,0,0,0,0,0,0}) end end if ed[i][4]==3 then --rocks table.insert(entities,{95,id[2],id[3],0,0,0,0,0,0,0,0,0,0}) end if id[1]==25 then cur_tiles[id[3]+1][id[2]+1]=0 end packet=kille(ed,el,id,i) ed=packet[1] el=packet[2] break end if ed[i][3]==1 then if id[1]==10 then --slime id[7]=-.1 if id[10]==1 and xid[2]*8 then id[10]=1 end end if id[1]==27 then --magpie id[7]=-.01 id[13]=0 id[14]=3 end if id[1]==8 then --rock if x>id[2]*8 then id[6]=-.75;id[7]=-.125 end if x50 then spr(352,param[2],(param[3]+param[4]/10)-10,0) else spr(352,param[2],param[3]-5,0) end end if param[1]==1 then --splash spr(87+8-param[4],param[2],param[3],0) end if param[1]==2 then --bubble spr(110,param[2],(param[3]+param[4]/20)+1,0) end if param[1]==3 then --dandelion seed pix(param[2]+(sin(param[4]/20)*math.pi)*param[5]/100,param[3]-param[5]/10,12) param[5]=param[5]+param[6] end if param[1]==4 then --rain drop pix(param[2],param[3]+(100-param[4]),param[5]) if param[3]+(100-param[4])>(16*8)-4 then param[5]=0 end end if param[1]==5 then --poof 1 spr(163+4-param[4]/6.25,param[2],param[3],0,1,2) end if param[1]==6 then --dash blur for i=0,math.abs(xvel)*16 do if xvel>0 then spr(((257+(bingo*32))+anim*2)+turned*10+blink*8,(param[2]+i)+48+quakex,(param[3])+quakey-8,0,1,flip,0,2,2) else spr(((257+(bingo*32))+anim*2)+turned*10+blink*8,(param[2]-i)+48+quakex,(param[3])+quakey-8,0,1,flip,0,2,2) end end end if param[1]==7 then --poof 2 spr(163+4-param[4]/6.25,param[2],param[3],0) end if param[1]==8 then --bump spr(416,param[2],param[3],0,1,0,math.random(0,3)) end if param[1]==9 then --item gain if param[4]>50 then spr(param[5],param[2],(param[3]+param[4]/10)-10,0) else spr(param[5],param[2],param[3]-5,0) end end if param[1]==10 then --poof 3 spr(163,param[2],param[3],0) end if param[1]==11 then --swipe if swipe==0 then swipe=2 swx=(param[2]-8+param[5]*8)-60 swy=param[3] end spr(368,param[2],param[3],0,1,param[5]) if param[4]>3 then spr(368,param[2],param[3]+8,0,1,param[5]+2) end --rectb(param[2]-8+param[5]*8,param[3],16,16,1) end if param[1]==12 then --swipe 2 if param[5]==0 then spr(368,param[2],param[3]-8,0,1,2,1) if param[4]>3 then spr(368,param[2]-8,param[3]-8,0,1,3,1) end if swipe==0 then swipe=2 swx=(param[2]-8)-60 swy=param[3]-8 end --rectb(param[2]-8,param[3]-8,16,8,1) else spr(368,param[2],param[3]-8,0,1,3,1) if param[4]>3 then spr(368,param[2]+8,param[3]-8,0,1,2,1) end if swipe==0 then swipe=2 swx=(param[2]+8)-60 swy=param[3]-8 end --rectb(param[2],param[3]-8,16,8,1) end end if param[1]==13 then --dark seed spr(384,param[2]+(sin(param[4]/20)*math.pi)*param[5]/100,param[3]-param[5]/10,0) param[5]=param[5]+param[6] end vbank(0) end --update projectiles function upd_proj(param,el,iter) for i=1,#el do ex=(el[i][2]*8)+54 ey=el[i][3]*8 --stick spark if param[1]==0 and el[i][1]==39 and el[i][14]==0 and mp[bingo+1]>0 and turned==0 then if x+param[2]-(-8+(16*flip)-4)>ex-4 and x+param[2]-(-8+(16*flip)-4)ey-4 and y-4ex-56 and param[2]*8ey-4 and param[3]*80 and turned==0 then if x+param[2]-(-8+(16*flip)-4)>ex-4 and x+param[2]-(-8+(16*flip)-4)ey-4 and y-4maxmp[bingo+1] then mp[bingo+1]=mp[bingo+1]-1 end sfx(58,"C-4",-1,2) end end end end --render projectiles function rproj(param) if param[1]==0 then --stick wand vbank(1) spr(272+bingo*16,x+param[2],y-2,0,1,param[5]) spr(387,x+param[2]+((param[2]-52)/2),y-6,0,1,param[5]) end if param[1]==1 then --sword vbank(1) if btnp(5) then return 0 end if lup==1 then if param[4]>7 then spr(272+bingo*16,x+param[2],y-2,0,1,param[5]) spr(401,x+param[2]+((param[2]-52)/2),y-6,0,1,param[5]) end else if param[4]>7 then spr(401,x+param[2]+((param[2]-52)/16),y+4,0,1,param[5],1) end end end if param[1]==2 then --slingshot vbank(1) if lup==1 then spr(272+bingo*16,x+param[2],y-2,0,1,param[5]) if flip==0 then spr(386,x+param[2]+((param[2]-52)/2)-6,y-6,0,1,param[5],3) else spr(386,x+param[2]+((param[2]-52)/2)+6,y-6,0,1,param[5],3) end else spr(272+bingo*16,x+param[2],y-2,0,1,param[5]) spr(386,x+param[2]+((param[2]-52)/2),y-6,0,1,param[5]) end end if param[1]==4 then --wind feather vbank(1) spr(272+bingo*16,x+param[2],y-2,0,1,param[5]) spr(389,x+param[2]+((param[2]-52)/2),y-6,0,1,param[5]) end end function chst_cat(c,px,py,b) --chest catalog --health increase if c[1]==1 and c[2]==3 and b==0 or c[1]==0 and c[2]==5 and b==0 or c[1]==4 and c[2]==0 and b==0 or c[1]==4 and c[2]==2 and b==0 or c[1]==7 and c[2]==2 and b==0 or c[1]==10 and c[2]==0 and b==0 or c[1]==6 and c[2]==3 and b==0 or c[1]==14 and c[2]==1 and b==0 or c[1]==8 and c[2]==1 and b==0 or c[1]==5 and c[2]==0 and b==0 or c[1]==10 and c[2]==5 and b==0 or c[1]==11 and c[2]==4 and b==0 or c[1]==13 and c[2]==4 and b==0 and fb==1 or c[1]==2 and c[2]==0 and b==1 or c[1]==6 and c[2]==2 and b==1 or c[1]==7 and c[2]==4 and b==1 or c[1]==14 and c[2]==7 and b==1 or c[1]==13 and c[2]==0 and b==1 or c[1]==14 and c[2]==0 and b==1 or c[1]==7 and c[2]==7 and b==1 or c[1]==5 and c[2]==5 and b==2 or c[1]==5 and c[2]==6 and b==2 or c[1]==5 and c[2]==3 and b==2 or c[1]==12 and c[2]==3 and b==2 or c[1]==0 and c[2]==6 and b==2 or c[1]==10 and c[2]==1 and b==2 then bc=bc+1 maxhp[bingo+1]=maxhp[bingo+1]+3-bingo hp[bingo+1]=maxhp[bingo+1] table.insert(particles,{9,(px-4)+60,(py-4)-8,100,495}) sfx(48,'A-5',-1,1) ml=200 broadcast="Max. HP +"..tonumber(3-bingo) end --magic increase if c[1]==2 and c[2]==7 and b==0 or c[1]==11 and c[2]==2 and b==0 or c[1]==9 and c[2]==3 and b==0 or c[1]==12 and c[2]==0 and b==0 or c[1]==6 and c[2]==1 and b==0 or c[1]==7 and c[2]==7 and b==0 or c[1]==5 and c[2]==4 and b==1 or c[1]==11 and c[2]==4 and b==1 or c[1]==10 and c[2]==2 and b==1 or c[1]==12 and c[2]==1 and b==1 or c[1]==12 and c[2]==0 and b==1 or c[1]==7 and c[2]==6 and b==1 or c[1]==7 and c[2]==5 and b==2 or c[1]==14 and c[2]==5 and b==2 or c[1]==5 and c[2]==1 and b==2 then bc=bc+1 maxmp[bingo+1]=maxmp[bingo+1]+2+bingo mp[bingo+1]=maxmp[bingo+1] table.insert(particles,{9,(px-4)+60,(py-4)-8,100,479}) sfx(49,'D-7',-1,1) ml=200 broadcast="Max. MP +"..tonumber(2+bingo) end --stick wand if c[1]==5 and c[2]==7 and b==0 then table.insert(inventory,1) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,387}) sfx(33,'C-6',-1,1) ml=200 shrink=false broadcast="Got the Stick Wand!" sw=1 end if c[1]==4 and c[2]==5 and b==0 --pady-melon then table.insert(items,1) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,388}) sfx(33,'C-6',-1,1) ml=200 shrink=false broadcast="Ate the Pady-melon!" padymelon=1 end if c[1]==5 and c[2]==6 and b==0 --slingshot then table.insert(inventory,3) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,386}) sfx(33,'C-6',-1,1) ml=200 shrink=false broadcast="Got the Slingshot!" ss=1 rocks=rocks+30 if rocks>99 then rocks=99 end end if c[1]==10 and c[2]==5 and b==1 then --buffsicum table.insert(items,2) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,402}) sfx(35,'C-7',-1,1) ml=200 shrink=false broadcast="Got the Buffsicum!" fs=1 end if c[1]==13 and c[2]==1 and b==0 then --wind feather table.insert(inventory,5) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,389}) sfx(49,'C-7',-1,1) ml=200 shrink=false broadcast="Got the Wind Feather!" wf=1 end if c[1]==13 and c[2]==4 and b==0 and fb==0 then --viking helmet table.insert(items,3) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,432}) sfx(49,'C-7',-1,1) ml=200 shrink=false broadcast="Got the Viking Helmet!" vh=vh+1 end if c[1]==9 and c[2]==0 and b==1 then table.insert(inventory,7) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,448}) sfx(49,'C-7',-1,1) ml=200 bcol=12 shrink=false broadcast="Got the Hey-Go!" heygo=1 end if c[1]==12 and c[2]==0 and b==2 --black feather then table.insert(items,4) table.insert(particles,{9,(px-4)+60,(py-4)-8,100,405}) sfx(33,'C-6',-1,1) ml=200 shrink=false broadcast="Got the Black Feather!" bf=1 end end function swtch_cat(c,b) if b==0 then if c[1]==4 and c[2]==2 then for a=0,3 do cur_tiles[8+a][14]=0 mset(77,39+a,0) end sfx(46,"C-1",-1,1) boom=2 end if c[1]==9 and c[2]==3 then for a=0,2 do cur_tiles[13+a][7]=0 mset(150,60+a,0) end sfx(46,"C-1",-1,1) boom=2 end if c[1]==8 and c[2]==3 then for a=0,2 do cur_tiles[4+a][9]=0 mset(136,51+a,0) end sfx(46,"C-1",-1,1) boom=2 end if c[1]==5 and c[2]==4 then for a=0,4 do cur_tiles[6+a][1]=0 mset(80,69+a,0) mset(79,69+a,0) end sfx(46,"C-1",-1,1) boom=2 end if c[1]==1 and c[2]==3 then for a=0,6 do mset(74,86+a,0) end broadcast="A passage opens somewhere..." ml=200 shrink=1 end if c[1]==4 and c[2]==7 then for a=0,1 do mset(6,124+a,11) mset(3,75+a,11) end broadcast="A passage opens somewhere..." ml=200 shrink=1 end if c[1]==0 and c[2]==0 then for a=0,2 do mset(0,6+a,0) mset(239,6+a,0) cur_tiles[7+a][1]=0 end sfx(46,"C-1",-1,1) boom=2 end if c[1]==14 and c[2]==1 then for a=0,2 do mset(0,43+a,0) mset(239,43+a,0) end broadcast="A passage opens somewhere..." ml=200 shrink=1 end if c[1]==9 and c[2]==5 then for a=0,2 do mset(150,89+a,0) cur_tiles[10+a][7]=0 end sfx(46,"C-1",-1,1) boom=2 end if c[1]==1 and c[2]==2 then mset(22,44,0) cur_tiles[13][7]=0 mset(22,45,98) cur_tiles[14][7]=98 for a=1,#entities do if entities[a][1]==54 then entities[a][1]=51 entities[a][3]=entities[4][3]+1 sfx(49,"D-7",-1,1) break end end end end if b==1 then if c[1]==5 and c[2]==1 and mget(71,44)==51 then mset(71,44,0) mset(71,45,10) mset(71,46,11) sfx(49,"D-7",-1,1) end if c[1]==6 and c[2]==1 and mget(79,38)==51 then mset(79,38,0) mset(79,39,0) mset(79,40,0) sfx(49,"D-7",-1,1) end if c[1]==5 and c[2]==5 and mget(89,82)==51 and math.floor(x/8)==7 then for a=0,2 do mset(89,82+a,0) cur_tiles[3+a][10]=0 end sfx(46,"C-1",-1,1) boom=2 end if c[1]==5 and c[2]==5 and mget(95,92)==51 and math.floor(x/8)==12 then for a=0,2 do mset(95,92+a,0) mset(69,86+a,0) mset(70,86+a,0) mset(71,86+a,0) mset(72,86+a,0) mset(73,86+a,0) cur_tiles[13+a][16]=0 end sfx(46,"C-1",-1,1) boom=2 end if c[1]==8 and c[2]==5 and mget(135,87)==1 then mset(135,86,0) mset(135,87,0) mset(135,93,151) for a=0,1 do mset(148+a,79,53) end mset(150,79,0) cur_tiles[8][8]=0 sfx(46,"C-1",-1,1) end if c[1]==7 and c[2]==4 and mget(156,78)==147 then mset(156,78,131) mset(155,78,229) end if c[1]==10 and c[2]==4 and mget(152,70)==1 then mset(152,69,0) mset(152,70,0) mset(152,78,175) end if c[1]==5 and c[2]==6 and mget(95,92)==51 then mset(63,92,0) mset(63,93,0) mset(63,94,0) sfx(46,"C-1",-1,1) end if c[1]==7 and c[2]==2 and mget(223,39)==51 then mset(223,39,0) mset(223,40,0) mset(223,41,0) sfx(46,"C-1",-1,1) end if c[1]==5 and c[2]==2 and mget(80,42)==51 then mset(80,42,0) mset(79,42,0) mset(80,43,0) mset(79,43,0) mset(80,44,0) mset(79,44,0) cur_tiles[11][1]=0 cur_tiles[12][1]=0 cur_tiles[13][1]=0 sfx(46,"C-1",-1,1) boom=2 end if c[1]==6 and c[2]==6 and mget(63,92)==51 then mset(63,92,0) mset(63,93,0) mset(63,94,0) sfx(46,"C-1",-1,1) end end if b==2 then if c[1]==0 and c[2]==2 and mget(44,26)==20 then mset(44,26,8) mset(45,26,8) mset(46,26,8) sfx(54,"D-4",-1,1) end if c[1]==6 and c[2]==4 and mget(98,76)==38 then mset(98,76,0) mset(98,77,98) cur_tiles[13][3]=0 cur_tiles[14][3]=98 table.insert(entities,{51,2,13,0,0,0,0,0,0,2,13,0,0}) sfx(54,"D-4",-1,1) end if c[1]==13 and c[2]==4 and mget(209,73)==51 then mset(209,73,0) mset(207,73,0) mset(209,74,0) mset(207,74,0) mset(209,75,0) mset(207,75,0) cur_tiles[10][2]=0 cur_tiles[11][2]=0 cur_tiles[12][2]=0 sfx(54,"D-4",-1,1) end if c[1]==7 and c[2]==6 and mget(117,111)==20 then mset(117,111,43) mset(118,111,43) mset(119,111,43) cur_tiles[16][6]=43 cur_tiles[16][7]=43 cur_tiles[16][8]=43 sfx(54,"D-4",-1,1) end if c[1]==2 and c[2]==5 and mget(209,62)==0 then for i=0,14 do mset(209,48+i,56) mset(210,48+i,56) end for i=0,12 do mset(23,63+i,56) mset(24,63+i,56) end broadcast="A ladder appears somewhere..." ml=200 shrink=1 end if c[1]==13 and c[2]==0 and mget(230,16)~=0 then mset(230,16,0) mset(231,16,0) mset(232,16,28) sfx(54,"D-4",-1,1) end end end --end of switch catalog function door_cat(c,b) if b==0 then if c[1]==5 and c[2]==5 then x=12*8;y=14*8 xvel=0;yvel=0 flip=1 target={2,2} tb=2 sync(2,4,false) sync(4,4,true) sfx(61,"C-3",-1,2) beento[1]=1 end if c[1]==9 and c[2]==0 then x=13*8;y=7*8 xvel=0;yvel=0 flip=0 target={3,0} tb=2 sync(2,4,false) sync(4,4,true) sfx(61,"C-3",-1,2) beento[1]=1 end if c[1]==12 and c[2]==3 then x=12*8;y=11*8 xvel=0;yvel=0 flip=1 target={8,4} tb=2 sync(2,4,false) sync(4,4,true) sfx(61,"C-3",-1,2) beento[1]=1 end if c[1]==8 and c[2]==2 then x=14*8;y=13*8 xvel=0;yvel=0 flip=1 target={5,7} sfx(61,"C-3",-1,2) end if c[1]==5 and c[2]==7 then x=10*8;y=10*8 xvel=0;yvel=0 target={8,2} sfx(61,"C-3",-1,2) end if c[1]==9 and c[2]==2 then x=7*8;y=8*8 xvel=0;yvel=0 flip=0 target={10,2} sfx(61,"C-3",-1,2) end if c[1]==10 and c[2]==2 then x=10*8;y=9*8 xvel=0;yvel=0 flip=1 target={9,2} sfx(61,"C-3",-1,2) end if c[1]==4 and c[2]==2 then x=3*8;y=14*8 xvel=0;yvel=0 flip=0 target={6,7} sfx(61,"C-3",-1,2) end if c[1]==6 and c[2]==7 then x=7*8;y=11*8 xvel=0;yvel=0 flip=1 target={4,2} sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==6 then x=4*8;y=14*8 xvel=0;yvel=0 flip=0 target={6,6} sfx(61,"C-3",-1,2) end if c[1]==6 and c[2]==6 then x=3*8;y=12*8 xvel=0;yvel=0 flip=0 target={0,6} sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==6 and math.floor(x/8)==14 then x=3*8;y=8*8 xvel=0;yvel=0 flip=0 target={0,1} sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==6 and math.floor(x/8)==8 then x=9*8;y=3*8 xvel=0;yvel=0 flip=0 target={12,0} sfx(61,"C-3",-1,2) end if c[1]==12 and c[2]==0 and math.floor(x/8)==8 then x=8*8;y=8*8 xvel=0;yvel=0 flip=1 target={7,6} sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==1 then x=14*8;y=14*8 xvel=0;yvel=0 flip=1 target={7,6} sfx(61,"C-3",-1,2) end if c[1]==3 and c[2]==0 then x=14*8;y=6*8 xvel=0;yvel=0 flip=1 target={5,6} sfx(61,"C-3",-1,2) end if c[1]==5 and c[2]==6 and math.floor(x/8)==14 and math.floor(y/8)==6 then x=11*8;y=12*8 xvel=0;yvel=0 flip=0 target={3,0} sfx(61,"C-3",-1,2) end if c[1]==5 and c[2]==6 and math.floor(x/8)==11 and math.floor(y/8)==11 then x=13*8;y=7*8 xvel=0;yvel=0 flip=1 target={7,7} sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==7 and math.floor(x/8)==13 then x=11*8;y=11*8 xvel=0;yvel=0 flip=1 target={5,6} sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==7 and math.floor(x/8)==1 and math.floor(y/8)==14 then x=14*8;y=11*8 xvel=0;yvel=0 flip=1 target={10,5} sfx(61,"C-3",-1,2) end if c[1]==10 and c[2]==5 then x=2*8;y=14*8 xvel=0;yvel=0 flip=0 target={7,7} sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==2 then x=11*8;y=12*8 xvel=0;yvel=0 flip=1 target={8,7} sfx(61,"C-3",-1,2) end if c[1]==8 and c[2]==7 then x=8*8;y=12*8 xvel=0;yvel=0 flip=0 target={2,2} sfx(61,"C-3",-1,2) end if c[1]==11 and c[2]==4 then x=14*8;y=14*8 xvel=0;yvel=0 flip=1 target={7,7} sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==7 and math.floor(x/8)==14 and math.floor(y/8)==14 then x=7*8;y=3*8 xvel=0;yvel=0 flip=0 target={11,4} sfx(61,"C-3",-1,2) end if c[1]==1 and c[2]==2 then x=3*8;y=13*8 xvel=0;yvel=0 flip=0 target={0,0} tb=1 sync(2,4,false) sync(4,4,true) beento[1]=1 sfx(61,"C-3",-1,2) end if c[1]==4 and c[2]==1 then x=3*8;y=11*8 xvel=0;yvel=0 flip=0 target={7,3} tb=1 sync(2,4,false) sync(4,4,true) beento[1]=1 sfx(61,"C-3",-1,2) end end if b==1 then if c[1]==0 and c[2]==0 and math.floor(x/8)==2 and math.floor(y/8)==13 then x=7*8;y=13*8 xvel=0;yvel=0 flip=0 target={1,2} tb=0 sync(2,5,false) sync(4,5,true) beento[2]=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==0 and math.floor(x/8)==6 and math.floor(y/8)==14 then x=4*8;y=13*8 xvel=0;yvel=0 flip=0 target={0,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==0 and math.floor(x/8)==12 and math.floor(y/8)==14 then x=3*8;y=13*8 xvel=0;yvel=0 flip=0 target={1,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==1 then x=6*8;y=14*8 xvel=0;yvel=0 flip=1 target={0,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==1 and c[2]==1 then x=12*8;y=14*8 xvel=0;yvel=0 flip=1 target={0,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==1 and c[2]==0 and math.floor(x/8)==5 and math.floor(y/8)==14 then x=3*8;y=13*8 xvel=0;yvel=0 flip=0 target={2,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==1 then x=5*8;y=14*8 xvel=0;yvel=0 flip=1 target={1,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==1 and c[2]==0 and math.floor(x/8)==13 and math.floor(y/8)==14 then x=3*8;y=13*8 xvel=0;yvel=0 flip=0 target={3,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==3 and c[2]==1 then x=13*8;y=14*8 xvel=0;yvel=0 flip=1 target={1,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==0 and math.floor(x/8)==5 and math.floor(y/8)==14 then x=6*8;y=13*8 xvel=0;yvel=0 flip=0 target={4,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==0 and math.floor(x/8)==11 and math.floor(y/8)==14 then x=3*8;y=12*8 xvel=0;yvel=0 flip=0 target={7,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==4 and c[2]==1 then x=5*8;y=14*8 xvel=0;yvel=0 flip=1 target={2,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==3 and c[2]==0 then x=3*8;y=13*8 xvel=0;yvel=0 flip=0 target={5,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==5 and c[2]==1 then x=6*8;y=14*8 xvel=0;yvel=0 flip=1 target={3,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==1 then x=11*8;y=14*8 xvel=0;yvel=0 flip=1 target={2,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==10 and c[2]==1 then x=6*8;y=12*8 xvel=0;yvel=0 flip=0 target={0,4} tb=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==4 then x=9*8;y=12*8 xvel=0;yvel=0 flip=1 target={10,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==5 then x=9*8;y=9*8 flip=0 target={0,6} tb=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==6 then x=3*8;y=5*8 flip=0 target={0,5} tb=1 sfx(61,"C-3",-1,2) end if c[1]==6 and c[2]==5 then x=3*8;y=13*8 flip=0 target={7,5} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==5 then x=13*8;y=14*8 flip=1 target={6,5} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==3 then x=4*8;y=8*8 flip=1 target={4,1} tb=0 sync(4,5,true) beento[2]=1 sfx(61,"C-3",-1,2) end if c[1]==14 and c[2]==7 then x=8*8;y=3*8 flip=0 target={1,6} tb=1 sfx(61,"C-3",-1,2) end if c[1]==1 and c[2]==6 then x=8*8;y=5*8 flip=1 target={14,7} tb=1 sfx(61,"C-3",-1,2) end if c[1]==14 and c[2]==2 then x=8*8;y=14*8 flip=0 target={14,1} tb=1 sfx(61,"C-3",-1,2) end if c[1]==14 and c[2]==1 then x=6*8;y=9*8 flip=1 target={14,2} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==5 and math.floor(x/8)==9 and math.floor(y/8)==14 then x=10*8;y=9*8 flip=1 target={6,6} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==5 and math.floor(x/8)==2 and math.floor(y/8)==14 then x=14*8;y=12*8 flip=1 target={5,2} tb=1 sfx(61,"C-3",-1,2) end if c[1]==6 and c[2]==6 then x=9*8;y=14*8 flip=1 target={2,5} tb=1 sfx(61,"C-3",-1,2) end if c[1]==5 and c[2]==2 then x=2*8;y=14*8 flip=0 target={2,5} tb=1 sfx(61,"C-3",-1,2) end if c[1]==11 and c[2]==0 then x=7*8;y=12*8 flip=0 target={10,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==10 and c[2]==0 then x=4*8;y=12*8 flip=0 target={9,0} tb=1 sfx(61,"C-3",-1,2) end if c[1]==9 and c[2]==0 then x=3*8;y=13*8 flip=0 target={7,5} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==4 and math.floor(x/8)==3 then x=3*8;y=12*8 flip=0 target={7,7} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==4 and math.floor(x/8)==12 then x=12*8;y=12*8 flip=1 target={7,7} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==7 and math.floor(x/8)==3 then x=3*8;y=12*8 flip=0 target={2,4} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==7 and math.floor(x/8)==12 then x=12*8;y=12*8 flip=1 target={2,4} tb=1 sfx(61,"C-3",-1,2) end if c[1]==2 and c[2]==3 then x=7*8;y=14*8 flip=0 target={7,6} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==6 then x=10*8;y=14*8 flip=1 target={2,3} tb=1 sfx(61,"C-3",-1,2) end if c[1]==7 and c[2]==6 then x=10*8;y=14*8 flip=1 target={2,3} tb=1 sfx(61,"C-3",-1,2) end if c[1]==0 and c[2]==3 then x=11*8;y=10*8 flip=1 target={8,6} tb=1 sfx(61,"C-3",-1,2) end if c[1]==8 and c[2]==6 then x=5*8;y=11*8 flip=0 target={0,3} tb=1 sfx(61,"C-3",-1,2) end end if b==2 then if c[1]==8 and c[2]==4 then x=5*8;y=9*8 flip=0 target={12,3} tb=0 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==10 and c[2]==3 then x=3*8;y=14*8 flip=0 target={3,5} tb=1 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==6 and c[2]==4 then x=6*8;y=7*8 flip=0 target={3,0} tb=1 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==8 and c[2]==3 then x=6*8;y=12*8 flip=0 target={0,6} tb=0 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==3 and c[2]==0 then x=3*8;y=4*8 flip=1 target={9,0} tb=0 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) pd=1 end if c[1]==11 and c[2]==1 then x=13*8;y=13*8 flip=1 target={0,5} tb=2 sfx(29,"C-8",-1,2) end if c[1]==0 and c[2]==5 then x=9*8;y=8*8 flip=0 target={11,1} tb=2 sfx(29,"C-8",-1,2) end if c[1]==8 and c[2]==0 then x=8*8;y=13*8 flip=0 target={7,5} tb=1 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==12 and c[2]==0 then x=5*8;y=8*8 flip=0 target={6,6} tb=2 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==14 and c[2]==0 then x=8*8;y=14*8 flip=0 target={12,0} tb=2 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==2 and c[2]==2 then x=8*8;y=11*8 xvel=0;yvel=0 flip=0 target={5,5} tb=0 sync(2,6,false) sync(4,6,true) sfx(29,"C-8",-1,2) end if c[1]==0 and c[2]==0 then target={-1,-1} sfx(29,"C-8",-1,2) end end end --end of door catalog function sgn_cat(c,b) m="" bcol=12 if c[1]==1 and c[2]==0 and b==2 then m="ONLY ONE WITH THE GOD'S HALO MAY INITIATE THE TRIAL" end if c[1]==4 and c[2]==4 and b==1 and x/8<8 then m="I'm walkin' here! You're all right though, love." end if c[1]==4 and c[2]==4 and b==1 and x/8>8 then m="Fuhgedaboudit!... mate!" end if c[1]==5 and c[2]==4 and b==1 then m="Someone crashed a car into the convienince store! Was it you??" end if c[1]==7 and c[2]==7 and b==1 then m="My curtains smell like cat pee.I miss the village." end if c[1]==2 and c[2]==4 and b==1 and x/8<8 then m="Life is like your favorite food. Sometimes you can't stand it." end if c[1]==2 and c[2]==4 and b==1 and x/8>8 then m="Why do the gargoyles spit fire??" end if c[1]==0 and c[2]==3 and b==1 then m="Chim-chimney, chim-chimney!" end if c[1]==4 and c[2]==3 and b==1 then m="How did I even get here?" end if c[1]==3 and c[2]==4 and b==1 then m="Wizards can't hide behind theircurses and runes. They're such cowards!" end if c[1]==9 and c[2]==5 and b==0 then m="-KRS:N:CL:VNGFL:MTR::HD:HR:YS:WN:W:HRM:NTR-" end if c[1]==4 and c[2]==6 and b==0 then m="-JNX:N:BNDT:GD:F:SM::M:N:WN:KM:T:S:HS:NM-" end if c[1]==12 and c[2]==1 and b==0 then m="-BLW:&:BNG:R:TR:NMS::T:DRKND:HRT:T:WL:NT:TM-" end if c[1]==11 and c[2]==0 and b==0 then m="-GBLN:TVS:T:B:R:SLVS::BRS:FLK:H:LV:N:KVS-" end if c[1]==10 and c[2]==0 and b==0 then m="The wizards like to write in code. That irks me a lot." end if c[1]==7 and c[2]==7 and b==0 then m="-DG:TT:&:GBLN:BNS::WZRD:LT:IS:FR:NN:T:WN-" end if c[1]==5 and c[2]==6 and b==0 then m="The wizards keep a skull of oneof our own. They can betray us easily." end if c[1]==5 and c[2]==7 and b==0 then m="I am Error. I lived here." end if c[1]==1 and c[2]==2 and b==0 then m="Gnomes were spotted here going through a secret door." end if c[1]==3 and c[2]==1 and b==0 then m="This feels like a metaphor." end if c[1]==2 and c[2]==2 and b==0 then m="Mr. Gnomesly once lived here before the goblins came." end if c[1]==3 and c[2]==2 and b==0 then m="This plaque commemorates the alliance of wizards and goblins." end if c[1]==5 and c[2]==2 and b==0 then m="NOTE: If you don't turn your back to it, it won't swoop." end if c[1]==8 and c[2]==7 and b==0 then m="If you can jump high, there's aslingshot for you in a cave-house." end if c[1]==4 and c[2]==5 and b==0 then m="The switch is by a chest." end if c[1]==4 and c[2]==2 and b==0 then m="Key Store" end if c[1]==0 and c[2]==2 and b==0 then m="When she's awake, put out the flames again." end if c[1]==11 and c[2]==2 and b==0 then m="Notice: Intruder was spotted at the first gate." end if c[1]==12 and c[2]==5 and b==0 then m="Two make a way. As above, so below." end if c[1]==13 and c[2]==3 and b==0 then m="We've seen many tears shed here." end if c[1]==13 and c[2]==4 and b==0 then m="The fearful are wise in this place!" end if c[1]==14 and c[2]==3 and b==0 then m="Some go so that others may come." end if c[1]==4 and c[2]==0 and b==0 then m="I'm a bilby, incase you were curious." end if c[1]==5 and c[2]==5 and b==0 then m="This is the door to escape. Do you have the Black Feather?" end if c[1]==0 and c[2]==6 and b==0 then m="Warp Zone" end if c[1]==3 and c[2]==4 and b==0 then m="The old stick of the old house will do the trick! Mind the magpie." end if c[1]==4 and c[2]==4 and b==0 then m="REMINDER: The sword downstairs is our property. -Wizards' Guild" end if c[1]==5 and c[2]==4 and b==0 then m="There's wind in an orange feather. Check east in a tree." end if c[1]==6 and c[2]==4 and b==0 then m="Not every coin is worth collecting." end if c[1]==11 and c[2]==4 and b==0 then m="The Mistress is in a bad mood." end if c[1]==0 and c[2]==0 and b==1 then m="Gnometown" end if c[1]==1 and c[2]==0 and b==1 then m="The city's so pretty in front of the mountain." end if c[1]==2 and c[2]==0 and math.floor(x/8)==3 and math.floor(y/8)==14 and b==1 then m="You got my slingshot! How's my old house?" end if c[1]==2 and c[2]==0 and math.floor(x/8)==10 and math.floor(y/8)==14 and b==1 then m="Bayport City Bridge" end if c[1]==0 and c[2]==1 and b==1 then m="Swords can break metal boxes." end if c[1]==1 and c[2]==1 and b==1 then m="I am Error." end if c[1]==2 and c[2]==1 and b==1 then m="Legends tell of people who can pass through objects!" end if c[1]==3 and c[2]==1 and b==1 then m="Ornate eyes can be shut with a pebble. There are two of them here!" end if c[1]==12 and c[2]==0 and b==0 then m="Three make the door appear." end if c[1]==0 and c[2]==4 and b==1 then m="This city has some pernicious folk, so watch your step around here." end if c[1]==1 and c[2]==4 and b==1 then m="The Gnometown treasure is a well-guarded secret." end if c[1]==0 and c[2]==5 and b==1 then m="City sewers are off limits." end if c[1]==10 and c[2]==1 and b==1 then m="Welcome to Bayport." end if c[1]==6 and c[2]==1 and b==1 then m="Behold the One who steers the heavens!" end if c[1]==4 and c[2]==1 and b==1 then m="Light the way." end if c[1]==2 and c[2]==5 and b==1 then m="The mountain god will be aware of you if you go into his domain." end if c[1]==5 and c[2]==1 and b==1 then m="The White Feather is a gift from our guardian deity." end if c[1]==3 and c[2]==0 and b==1 then m="You seem familiar." end if c[1]==6 and c[2]==5 and b==1 then m="DANGER: Ahead is the Mountain God's realm." end if c[1]==8 and c[2]==5 and b==1 then m="The hard way is quicker." end if c[1]==6 and c[2]==6 and b==1 then m="You need two relics to reach the god. The second is in the mountain." end if c[1]==2 and c[2]==3 and b==1 then m="This is a PAWN shop, not a ''prawn'' shop. Now I'm hungry!" end if c[1]==7 and c[2]==6 and math.floor(y/8)==14 and b==1 then m="Here's my policy on theft: Can you not, please?" end if c[1]==7 and c[2]==6 and math.floor(y/8)==10 and b==1 then m="One key is equal to one chest!" end if c[1]==8 and c[2]==6 and b==1 then m="Moneys can get you many things,but trust is priceless!" end return m end function room_cat(c,b) if b==0 then if mget(87,91)==0 and bf==1 then mset(87,91,98) sfx(26,"C-2",-1,0) broadcast="Are you afraid of the dark??" ml=200 bcol=1 shrink=1 end if mget(227,57)==131 and mget(229,24)==131 and mget(213,2)==131 and mget(196,57)==16 then mset(196,57,98) sfx(48,"A-4",-1,2) broadcast="Come to my garden!" ml=200 bcol=3 shrink=1 end if c[1]==11 and c[2]==2 then if mget(179,41)==131 and mget(188,41)==131 and mget(191,44)==51 then for a=0,2 do mset(191,44+a,0) mset(192,44+a,0) cur_tiles[13+a][16]=0 end sfx(46,"C-1",-1,1) boom=2 end end if c[1]==10 and c[2]==3 then if mget(170,61)==77 and mget(166,59)==66 then for a=0,3 do mset(166+a,59,8) cur_tiles[12][7+a]=8 end sfx(46,"C-1",-1,1) boom=2 end end if mget(189,118)==131 and mget(200,84)==131 and mget(144,109)==51 then mset(144,109,11) mset(144,110,11) sfx(46,"C-1",-1,1) boom=2 end if mget(101,104)==131 and mget(103,98)==51 then for a=0,2 do mset(103,98+a,0) cur_tiles[3+a][8]=0 end sfx(46,"C-1",-1,1) boom=2 end if mget(88,101)==131 and mget(81,103)==66 then for a=0,1 do mset(81+a,103,8) cur_tiles[8][2+a]=8 end sfx(46,"C-1",-1,1) boom=2 end if mget(55,66)==131 and mget(58,66)==131 and mget(55,75)==51 then for a=0,2 do mset(55,75+a,0) cur_tiles[12+a][8]=0 end sfx(46,"C-1",-1,1) boom=2 end if mget(92,77)==77 and mget(95,75)==51 then for a=0,2 do mset(95,75+a,0) cur_tiles[12+a][16]=0 end sfx(46,"C-1",-1,1) boom=2 end if c[1]>=6 and c[1]<=10 and c[2]==4 and ecount==0 then for a=0,2 do ofs=(c[1]-6)*16 cur_tiles[12+a][1]=0 cur_tiles[12+a][16]=0 mset(96+ofs,75+a,0) mset(96+ofs+15,75+a,0) end sfx(46,"C-1",-1,1) boom=2 ecount=-1 end if mget(184,77)==131 and mget(182,70)==51 then for a=0,2 do mset(182,69+a,0) cur_tiles[6+a][7]=0 end sfx(46,"C-1",-1,1) boom=2 end if mget(75,42)==77 and mget(58,24)==147 then mset(58,24,77) ml=200 shrink=true broadcast="A shortcut opened somewhere..." end end if b==1 then if mget(117,27)==131 and mget(72,30)==66 then mset(72,30,8) sfx(49,"D-7",-1,1) end if mget(65,43)==131 and mget(102,26)==51 then mset(102,26,5) mset(102,27,0) mset(102,28,0) sfx(49,"D-7",-1,1) end if mget(54,7)==131 and mget(107,26)==51 then mset(107,26,5) mset(107,27,0) mset(107,28,0) mset(95,19,131) sfx(49,"D-7",-1,1) end if c[1]==12 and c[2]==4 and mget(194,77)==66 and x>20 and x<70 then for a=0,10 do mset(194+a,77,0) cur_tiles[14][3+a]=0 sfx(46,"C-1",-1,1) boom=2 end end if mget(189,106)==131 and mget(199,126)==77 then mset(199,126,147) for a=0,3 do mset(205,101+a,0) mset(206,101+a,0) mset(200,101,236) end sfx(46,"C-1",-1,1) end if mget(210,72)==131 and mget(208,74)==51 then for a=0,2 do mset(207,74+a,0) mset(208,74+a,0) cur_tiles[11+a][1]=0 end sfx(46,"C-1",-1,1) boom=2 end if mget(154,50)==131 and mget(238,77)==131 and mget(237,50)==131 and mget(200,48)==1 then for a=0,4 do mset(200+a,48,0) end sfx(46,"C-1",-1,1) end if mget(226,114)==131 and mget(231,126)==77 then mset(231,126,147) table.insert(entities,{39,7,14,1,1,0,0,0,0,0,0,0,1,3}) end if mget(77,99)==131 and mget(26,108)==77 then mset(26,108,147) end if mget(6,104)==77 and mget(92,104)==1 then for a=0,2 do mset(92+a,104,0) end sfx(46,"C-1",-1,1) end if mget(164,40)==77 and mget(160,39)==51 then for a=0,2 do mset(160,39+a,0) cur_tiles[8+a][1]=0 end sfx(46,"C-1",-1,1) boom=2 end if mget(153,40)==131 and mget(155,40)==131 and mget(144,39)==51 then for a=0,2 do mset(144,39+a,0) cur_tiles[8+a][1]=0 end mset(148,41,0) sfx(46,"C-1",-1,1) boom=2 end if mget(157,40)==131 then mset(153,40,77) mset(155,40,77) mset(157,40,77) for a=0,2 do mset(144,39+a,51) cur_tiles[8+a][1]=51 end sfx(46,"C-1",-1,1) boom=2 end if mget(132,40)==131 and mget(122,33)==1 then for a=0,3 do mset(122,33+a,6) mset(113+a,38,6) mset(117,38+a,6) end for a=0,4 do mset(122+a,37,6) end end if mget(132,40)==77 and mget(122,33)==6 then for a=0,3 do mset(122,33+a,1) mset(113+a,38,1) mset(117,38+a,1) end for a=0,4 do mset(122+a,37,1) end end if mget(138,40)==131 and mget(116,33)==17 then for a=0,2 do mset(116,33+a,16) end end if mget(138,40)==77 and mget(116,33)==16 then for a=0,2 do mset(116,33+a,17) end end if mget(135,40)==131 and mget(166,36)==67 then mset(166,36,21) mset(167,36,21) end if mget(135,40)==77 and mget(166,36)==21 then mset(166,36,67) mset(167,36,67) end if mget(215,29)==131 and mget(235,16)==67 then mset(235,15,21) mset(235,16,21) mset(236,15,21) mset(236,16,21) mset(237,15,21) mset(237,16,21) mset(238,15,21) mset(238,16,21) mset(177,6,21) mset(178,6,21) mset(179,6,21) mset(180,6,21) mset(191,28,67) mset(192,28,67) mset(191,29,67) mset(192,29,67) mset(191,30,67) mset(192,30,67) mset(207,3,67) mset(208,3,67) mset(207,4,67) mset(208,4,67) mset(207,5,67) mset(208,5,67) end if mget(215,29)==77 and mget(235,16)==21 then mset(235,15,67) mset(235,16,67) mset(236,15,67) mset(236,16,67) mset(237,15,67) mset(237,16,67) mset(238,15,67) mset(238,16,67) mset(177,6,67) mset(178,6,67) mset(179,6,67) mset(180,6,67) mset(191,28,21) mset(192,28,21) mset(191,29,21) mset(192,29,21) mset(191,30,21) mset(192,30,21) mset(207,3,21) mset(208,3,21) mset(207,4,21) mset(208,4,21) mset(207,5,21) mset(208,5,21) end if mget(177,21)==131 and mget(207,7)==17 then mset(207,7,16) mset(208,7,16) mset(207,8,16) mset(208,8,16) mset(207,9,16) mset(208,9,16) mset(207,28,17) mset(208,28,17) mset(207,29,17) mset(208,29,17) mset(207,30,17) mset(208,30,17) mset(177,4,16) mset(178,4,16) mset(179,4,16) mset(180,4,16) mset(193,15,16) mset(194,15,16) mset(195,15,16) mset(193,16,16) mset(194,16,16) mset(195,16,16) end if mget(177,21)==77 and mget(207,7)==16 then mset(207,7,17) mset(208,7,17) mset(207,8,17) mset(208,8,17) mset(207,9,17) mset(208,9,17) mset(207,28,16) mset(208,28,16) mset(207,29,16) mset(208,29,16) mset(207,30,16) mset(208,30,16) mset(177,4,17) mset(178,4,17) mset(179,4,17) mset(180,4,17) mset(193,15,17) mset(194,15,17) mset(195,15,17) mset(193,16,17) mset(194,16,17) mset(195,16,17) end if mget(198,3)==131 and mget(223,3)==1 then mset(223,3,6) mset(224,3,6) mset(223,4,6) mset(224,4,6) mset(223,5,6) mset(224,5,6) mset(191,19,6) mset(192,19,6) mset(191,20,6) mset(192,20,6) mset(191,21,6) mset(192,21,6) mset(223,7,1) mset(224,7,1) mset(223,8,1) mset(224,8,1) mset(223,9,1) mset(224,9,1) mset(177,5,6) mset(178,5,6) mset(179,5,6) mset(180,5,6) mset(207,24,6) mset(208,24,6) mset(207,25,6) mset(208,25,6) mset(207,26,6) mset(208,26,6) end if mget(198,3)==77 and mget(223,3)==6 then mset(223,3,1) mset(224,3,1) mset(223,4,1) mset(224,4,1) mset(223,5,1) mset(224,5,1) mset(191,19,1) mset(192,19,1) mset(191,20,1) mset(192,20,1) mset(191,21,1) mset(192,21,1) mset(223,7,6) mset(224,7,6) mset(223,8,6) mset(224,8,6) mset(223,9,6) mset(224,9,6) mset(177,5,1) mset(178,5,1) mset(179,5,1) mset(180,5,1) mset(207,24,1) mset(208,24,1) mset(207,25,1) mset(208,25,1) mset(207,26,1) mset(208,26,1) end if mget(163,6)==131 and mget(166,6)==131 and mget(169,6)==131 and mget(172,6)==131 and mget(167,3)==253 then mset(163,6,77) mset(166,6,77) mset(169,6,77) mset(172,6,77) sfx(52,"C-4",-1,0) sfx(52,"C-5",-1,1) sfx(52,"C-6",-1,2) sfx(52,"C-7",-1,3) ltnng(7.5*16,0,8*16,12*16) ltnng(7.5*16,0,8*16,12*16) ltnng(7.5*16,0,8*16,12*16) ltnng(7.5*16,0,8*16,12*16) ltnng(7.5*16,0,8*16,12*16) ltnng(7.5*16,0,8*16,12*16) ltnng(7.5*16,0,8*16,12*16) boom=8 sm=0 cld=1 yvel=-4 screamed=1 jump=1 dj=1 end end if b==2 then if mget(28,109)==131 and mget(56,109)==77 and mget(39,96)==20 then mset(39,95,0) mset(39,96,0) mset(40,95,0) mset(40,96,0) sfx(54,"D-4",-1,1) end if c[1]==12 and c[2]==0 and ecount==0 and mget(200,14)==0 then mset(199,4,162) mset(200,14,98) mset(196,6,0) table.insert(entities,{51,8,14,0,0,0,0,0,0,14,9,0,0}) music() sfx(54,"D-4",-1,1) table.insert(items,4) table.insert(particles,{9,x+56,y-12,100,405}) ml=200 shrink=false broadcast="Got the Black Feather!" bf=1 end if heygo==1 and mget(23,13)==51 then mset(23,13,115) mset(23,9,0) mset(23,6,162) broadcast="THE TRIAL AWAITS" ml=150 shrink=1 bcol=1 end if c[1]==1 and c[2]==0 then vbank(0) spr(422,108,74,0,1,0,0,2,2) spr(424,108,90,0,1,0,0,2,2) vbank(1) end end end --end of room catalog function msg(m) if #m<16 then print(m,56,128,bcol,0,1,shrink) else vbank(0) rect(56,120,16*8,16,0) vbank(1) rect(56,120,16*8,16,0) print(string.sub(m,1,31),56,120,bcol,0,1,shrink) print(string.sub(m,32,#m),56,128,bcol,0,1,shrink) vbank(0) end end function rin() --render inventory print("Items",185,0,12) for i=1,#inventory do if itsel==i then rectb(185+(itsel-1)*8,8,8,8,1) end if inventory[i]==1 then --stick wand spr(387,185+(i-1)*8,8,0) end if inventory[i]==2 then --sword spr(401,185+(i-1)*8,8,0) end if inventory[i]==3 then --slingshot spr(386,185+(i-1)*8,8,0) end if inventory[i]==4 then --white feather spr(385,185+(i-1)*8,8,0) end if inventory[i]==5 then --wind feather spr(389,185+(i-1)*8,8,0) end if inventory[i]==6 then --swap sister if bingo==0 then spr(404,185+(i-1)*8,8,0) else spr(403,185+(i-1)*8,8,0) end end if inventory[i]==7 then --hey-go spr(448,185+(i-1)*8,8,0) end end print("Key Items",185,16,12) for i=1,#items do if items[i]==1 then --padymelon spr(388,185+(i-1)*8,24,0) end if items[i]==2 then --buffsicum spr(402,185+(i-1)*8,24,0) end if items[i]==3 then --viking helmet spr(432,185+(i-1)*8,24,0) end if items[i]==4 then --black feather spr(405,185+(i-1)*8,24,0) end if items[i]==5 then --crown spr(480,185+(i-1)*8,24,0) end end end function updin() if #inventory==0 then itsel=0 else if itsel==0 then itsel=1 end if btnp(6) then dshchg=500 itsel=itsel+1 if itsel>#inventory then itsel=1 end sfx(34,"C-4",-1,3) end end end function rup() --rock update if shot==1 then spr(463,rox+56,roy,0) rox=rox+rxvel roy=roy+ryvel if rox/8>16 or rox/8<0 or roy/8>16 or roy/8<0 then shot=0 return end ctile=st(cur_tiles[math.floor(roy/8)+1][math.floor(rox/8)+1]) if ctile>0 and ctile<5 or ctile>6 and ctile<9 then shot=0 sfx(45,"A-7",-1,3) table.insert(particles,{8,rox+56,roy,10}) end end end function chilli_msg(clock) if clock==0 then queue={"","Relax for a while, kid!","You've got plenty of time.","You can do lots of things with that wand of yours.","There are legends of a magic capsicum that can make it stronger."} if sword==1 then table.insert(queue,"That's a useful sword you got there!") table.insert(queue,"It's dangerous to go alone, afterall!") end if wf==1 then table.insert(queue,"That orange feather can put outtorches!") table.insert(queue,"If you're out of magic, it can be really handy, too.") if fb==0 and vh==0 then table.insert(queue,"Bingo is sleeping somewhere andshe's not going to be happy with you.") table.insert(queue,"I won't tell you how, but you can use that feather to calm her down.") end end if whf==1 then table.insert(queue,"That white feather is your dad's!") table.insert(queue,"The faster you go, the further you can go with it.") end if ss==1 then table.insert(queue,"You can shoot switches with that slingshot!") table.insert(queue,"Just don't shoot your eye out.") end if maxhp[bingo+1]>=50 and bf==0 then table.insert(queue,"You might just be strong enoughto fight that giant magpie!") if ss==0 then table.insert(queue,"You'll need a slingshot to get to him, though.") table.insert(queue,"A gnome once told me he's got one locked away in his old house.") end table.insert(queue,"Go underwater to a painted cave.") table.insert(queue,"Shoot the flower and come back here.") table.insert(queue,"Then, go west to find a ladder.") end if heygo==1 then table.insert(queue,"There's your dad's halo...") table.insert(queue,"It looks like your quest is almost over!") table.insert(queue,"That thing can do a bit more than just teleport you, too.") table.insert(queue,"Now, during the final battle...") table.insert(queue,"...remember that blue fire can't be put out!") end table.insert(queue,"Good luck on your journey!") ci=1 end if clock==1 or clock%250==0 then if ci<=#queue then broadcast=queue[ci] ml=250 bcol=3 shrink=1 ci=ci+1 end end end function upd_time() --only accurate assuming that the game maintains 60 fps consistently counter=counter+1 if counter==60 then counter=0 seconds=seconds+1 end if seconds>59 then seconds=0 minutes=minutes+1 end if minutes>59 then minutes=0 hours=hours+1 end if hours>256 then hours=256 end end function cutscene() cls(0) if page>0 then print(string.sub(story[page],1,math.floor(tscan)),0,120,4,false,1,true) end turn=turn+1 flicker=flicker+1 if flicker==2 then flicker=0 end if page>0 and tscan<#story[page] then tscan=tscan+.5 if tscan%1==0 and string.sub(story[page],math.floor(tscan),math.floor(tscan))~=" " then sfx(24,"B-6",-1,3) end end if turn==350 then page=page+1 if page==0 or page==16 then music() end if page==1 then music(3) end if page==20 then music(0) end if page==21 then cls(0);mode=0 end turn=0 tscan=0 end if page==0 then if turn==1 then sfx(33,"C-6",-1,3) end if turn<300 then spr(238,120-8,68-8,-1,1,0,0,2,2);print("fizzii01",102,85,12);print("2026",109,95,12) end if turn>300 and turn<310 and flicker==1 then spr(238,120-8,68-8,-1,1,0,0,2,2) end if turn>300 and turn<305 then print("fizzii01",102,85,13);print("2026",109,95,13) end if turn>305 and turn<310 then print("fizzii01",102,85,14);print("2026",109,95,14) end if turn>310 and turn<315 then print("fizzii01",102,85,15);print("2026",109,95,15) end if turn>315 and turn<320 then print("fizzii01",102,85,16);print("2026",109,95,16) end end if page==1 then spr(201,120-16,68-16,-1,1,0,0,4,4) end if page==2 then spr(197,120-16,68-16,-1,1,0,0,4,4) end if page>3 and page<6 then spr(0,120-32,68-32,-1,1,0,0,8,8) end if page==6 then spr(8,120-16,68-16,-1,1,0,0,4,4) end if page==7 then spr(72,120-16,68-16,-1,1,0,0,4,4) end if page>7 and page<12 then spr(76,120-16,68-16,-1,1,0,0,4,4) end if page==12 then spr(12,120-16,68-16,-1,1,0,0,4,4) end if page==13 then spr(128,120-16,68-16,-1,1,0,0,4,4) end if page==14 then spr(192,120-16,68-16,-1,1,0,0,4,4) end if page>15 and page<18 then spr(132,120-16,68-16,-1,1,0,0,4,4) end if page==17 and turn<340 and flicker==1 then spr(136,120-32,80-turn/20,0,1,0,0,2,2) end if page==17 and turn>=340 then spr(138,120-32,68-16,0,1,0,0,4,4) end if page==18 and turn==1 then sfx(42,"C-6",-1,3) end if page==20 then spr(264,120-32,68-32,-1,1,0,0,8,8) end if page==20 and turn>30 and turn<35 then print("BlueyVANIA",92,112,16) end if page==20 and turn>35 and turn<40 then print("BlueyVANIA",92,112,15) end if page==20 and turn>40 and turn<45 then print("BlueyVANIA",92,112,14) end if page==20 and turn>45 and turn<50 then print("BlueyVANIA",92,112,13) end if page==20 and turn>50 then print("BlueyVANIA",92,112,12) end if btnp(4) then mode=0;music(0) end end function endscreen() cls(0) print("THE END",110,50,12) print("Time Elapsed:",110,58,10) print(hours,184,58,12) print(minutes,202,58,12) print(seconds,220,58,12) print(":",194,58,12) print(":",214,58,12) print("Bonus Chests:",110,66,3) print(bc,186,66,12) print("/41",202,66,12) if fb==0 then spr(384,40,30,0,1,0,0,8,8) else spr(392,40,30,0,1,0,0,8,8) end end function save() mset(0,0,1) --indicates that a save file exists if moneys>255 then mset(1,0,255) mset(1,1,moneys-255) else mset(1,0,moneys) mset(1,1,0) end mset(2,0,sw) mset(3,0,sword) mset(4,0,wf) mset(5,0,whf) mset(6,0,ss) mset(7,0,fb) mset(8,0,heygo) mset(9,0,padymelon) mset(10,0,fs) mset(11,0,bf) mset(12,0,vh) mset(13,0,rocks) mset(14,0,keys) mset(15,0,bc) mset(16,0,maxhp[1]) mset(17,0,maxmp[1]) mset(18,0,maxhp[2]) mset(19,0,maxmp[2]) mset(20,0,beento[1]) mset(21,0,beento[2]) mset(22,0,beento[3]) mset(23,0,beento[4]) mset(24,0,#items) mset(24,1,#inventory) for i=1,#items do mset(24+i,0,items[i]) end for i=1,#inventory do mset(24+i,1,inventory[i]) end end function load() moneys=mget(1,0)+mget(1,1) sw=mget(2,0) sword=mget(3,0) wf=mget(4,0) whf=mget(5,0) ss=mget(6,0) fb=mget(7,0) heygo=mget(8,0) padymelon=mget(9,0) fs=mget(10,0) bf=mget(11,0) vh=mget(12,0) rocks=mget(13,0) keys=mget(14,0) bc=mget(15,0) maxhp[1]=mget(16,0) maxmp[1]=mget(17,0) maxhp[2]=mget(18,0) maxmp[2]=mget(19,0) beento[1]=mget(20,0) beento[2]=mget(21,0) beento[3]=mget(22,0) beento[4]=mget(23,0) for i=1,mget(24,0) do table.insert(items,mget(24+i,0)) end for i=1,mget(24,1) do table.insert(inventory,mget(24+i,1)) end hp[1]=mget(16,0) mp[1]=mget(17,0) hp[2]=mget(18,0) mp[2]=mget(19,0) end --<3 function hug(cx,cy) spr(267,cx-2,cy,0,1,0,0,2,2) spr(299,cx+4,cy,0,1,1,0,2,2) spr(272,cx+8,cy+7,0,1,0,0,1,1) spr(304,cx+1,cy+5,0,1,1,0,1,1) end