`,]']±>Sï}WÿÍu§ðp8·d%qy)6o;]ÉA¦ösï÷ôôô”°ÂVl†3Sï}WÿÍu§ðp8·d%qy)6o;]ÉA¦ösï÷ôôô”°ÂVl†3"4àA$TDB"BD$D"B$DC3á##áá!"""!"Ý ÐÌÝÍÌÜÍÌ ÍÌ ÑÝðáÎñ"Îà,,àÂÌ,Áá,ÌìÎÎÌÌÏ,ñüáÂ/ò!,ÌÌî ÿÿ""""""!ÐÝÝÝÍÌÌÌÐÝÝÝ"""""""ÝÝÝ ÌÌÌÜÝÝÝ PfffffPP`f U "RPef`fU%fbU%!&`f`f`fff"`"`"eVU`e"`f `` """"""!""""U""""""3""2333Q""!""!"""""333#3333CDD4D33C!!"!"!""""#""3""4`f` 3C3C3C3C3C3C1C"1C3333334s3D3s343s4CD4D333D333D4C3444wsfcfcf` B$ DDB DDD DDD DDDBDD DD"DD$D$D$D$D$`Ve``UUV`UUU`UUU`UUUVUU`UUfUUeUeUeUeUe  º«  »»º »»» »»» »»»º»» »»ª» »«»«»«»«» «"" "!C"2!""" """ """3C43333""""""""""""""""!b""""""""!BD $VU`eº» « ÿðÿðÿðÿÿÿÿÿÿÿÿÿÿÿÿîþîÿÿîîÿïîîïîþÿîþîàîðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÍÌÿÜÌÌÌÝÝÌÝÝÀÌÝÝÜÝÝÝÝÿÿÿÿÍÌüÿÌÌðÿÝÍ ðÝÍÌÜÝÝÌÌÝÝÝÝíÞÝÝðîÿÿïÿÿïÿÿïÿÿýÿÝÝÿþÿîÿîÿïîþïîîðïîÀÜÐÝÀÝÝÝÝÝÝÿÿßÝÿÿßÝÿÿÿßþÿÿÿîÿÿÞÝÝÝÝÝÝÝÝÝÝíîîÞîîîîîíîîîÿðÿþÿÿÿÝ Ý îîÿîþÿîþÿîÿÿÿÿÿÿðîïïðÿàÿîÿàîàîÿðÿÿÿðÿÿÿðÿþÿÿÿÿ``f`f`ffvffgffffgwffwwvgvw pwgv&fffbfvwgwwwwrwwUrw`fffvwfffwwfvgwg™ €©˜©š˜™™™™‰ˆ ˜‰ˆªªŠˆªªŠˆš‰ˆˆ ˆˆˆˆˆŒÌŒÈŒ¼Ëˆˆ‹ˆ¸»»ˆ Œˆ ÈÊÈ‹¨Ê ¸ˆÈ ffpfwpvgpwgpwgpw```wgvwwgwwfgfwvff`ffffff`&VUVbReV"RUf"RU&"2U""S!",2!Â"2Ugvfwugvpw`UUU`UU€©ªŠªªˆŠŠˆšŠ™˜Š˜™š™˜ª™ šˆˆÊ™ˆ¨¼‰ˆÈÌ™‰À¼™ ̪̪°Ìª»ÌªÌº‹ˆ¼»»ª»»«ª«»»»ªªªªªªªªªªªªÊ¼ªªˆ›ˆ ¹ˆ ‰¸›™ˆ»ˆš™ˆª™‰ª `pwwff`ff`fw`VwwVvwwgffwwwwvwpvvf!!"c!"cff3cUUfUUUUUwuwUwwwWwwwWUU`UUUwUuwUuwwUuwwUwwfwUff™ª ™‰€‰ ̪˪ˬ™™À¼Š˜À»™‰™º‰™™ˆ‰ˆˆˆºªªªªªªªªªªªªªªª»ªªª«»»ª«ªª»¸‹ˆˆªªªªª‹ˆˆˆˆ¨ ˆˆ«º`ff`f`vg`w`ffvwwffgfe`ff`e``ffffff`P`‰ˆˆˆ‰ˆˆ¸€€ˆˆˆˆˆˆ»‹°‹‹»ºª«»»«@ðÿÿÿÿÿÿÀðÿÿÀ ÿÿÀÌðÿÀÌ ÿÀÌÌðÀÌÌ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÀÿÿÀÀÿÿÀÀÿÿÀÀÿÀÌÿÿÿÿÿÿÿÿÿÿÿÀðÿÿÀÿÿÀÀðÿÀÀðÿÌÌðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÀÀÿÀÌÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÀÿÿÀÀðÿÌÌðÿÿÿÿÿÿÿÿÿÿÀðÿÿÀðÿÿÀÿÿÀÀÿÿÀÀÿÀÌÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÀÿÿÀÀðÿÌÌðÿÿÿÿÿÿÿÿÿÿÿÀÿÿÌÿÿÿÀÿÿÿÀÿÿÿÀÿÿÿÀÿÿÿÿðÿÿÿ ÿÿÿÌðÿÿ ÿÿÿ ÿÿÿ ÿÿÿ ÿÿÿÀÌÌÌÀÌÀ ÿÿÀðÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÀÌÿÀÀÌÿÌÌÿÿÀÌÿÿÀÌÿÿÌÿÿÌÿÿÿÌÌðÿÌÌðÿÌÌðÿÌÌðÿÌÌðÿÌ ÿÿÌ ÿÿðÿÿÿÀÀÌÿÀÀÌÿÌÌÿÿÀÌÿÿÀÌÿÿÌÿÿÌÿÿÿÌÌðÿÌÌðÿÌÌðÿÌÌðÿÌÌðÿÌ ÿÿÌ ÿÿðÿÿÿÀÀÌÿÀÀÌÿÌÌÿÿÀÌÿÿÀÌÿÿÌÿÿÌÿÿÿÌÌðÿÌÌðÿÌÌðÿÌÌðÿÌÌðÿÌ ÿÿÌ ÿÿðÿÿÿÿÿÀÿÿÿÀÿÿÿÀÿÿÿÀÿÿÌÿÿÿÀÿÿÿÿÿÿÿ ÿÿÿ ÿÿÿ ÿÿÿ ÿÿÿÌðÿÿ ÿÿÿðÿÿÿÿÿÿÿ >‰?»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»»»»»»»ªªª»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»»»»»»»ªªª»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»»ª»»»™ª»»»»ªª»»»»»»»»»»»»»»»»»»»»ª»»»»ª»»ª»»»™ª»»»»ªª»»»»»»»»»»»»»»»»»»»ªª»ªª»ª»»»»™»»»»™»»»»»»»»»»»»»»»»»»»»»»»»ªª»ªª»ª»»»»™»»»»™»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªªª»»»™»™ª™™™™™™»»»»ª»ª»»»»»»»»»»»»»»»»»»»»ªªªª»»»™»™ª™™™™™™»»»»ª»ª»»»»»»»»»»»»»»»»»»»»ª»»»ª»ªªªªª»ª»™»™™™™™»ªª»»ªªªª»»»»»»»»»»»»»»»»»»ª»»»ª»ªªªªª»ª»™»™™™™™»ªª»»ªªªª»»»»»»»»»»»»»»»»»»™»»»»»™ªªª»™ª™ª™™»»»»™™»»»ªªªª»ª»»»»»»»»»»»»»»»»»™»»»»»™ªªª»™ª™ª™™»»»»™™»»»ªªªª»ª»»»»»»»»»»»»»»»»ªªª»»ª»ªªª™»ª™»ª™™™™™»™™»ª»»»»»ªª»»»»»»»»»»»»»»»ªªª»»ª»ªªª™»ª™»ª™™™™™»™™»ª»»»»»ªª»»»»»»»»»»»»»»»»ªª»»»ª»»»ª»™ªª™»ª»™»™»™»»»»™»ªª»»ª»»»»»»»»»»»»»»»»»»»»ªª»»»ª»»»ª»™ªª™»ª»™»™»™»»»»™»ªª»»ª»»»»»»»»»»»»»»»»»»»ªª»ª»ª»ªª»ª™ª™™ˆ»ˆˆˆ»ˆˆ™»™ªªª™»ª»»»»»»»»»»»»»»»»»»»»ªª»ª»ª»ªª»ª™ª™™ˆ»ˆˆˆ»ˆˆ™»™ªªª™»ª»»»»»»»»»»»»»»»»»»»»»»ªª»»ª»™™™™»™»ªˆˆˆ»ˆˆ»»»»™™ªª™™™ª»ª»»»»»»»»»»»»»»»»»»ªª»»ª»™™™™»™»ªˆˆˆ»ˆˆ»»»»™™ªª™™™ª»ª»»»»»»»ˆ»»»»»»»»»™™»»»ª™ª™ª™™ªˆˆˆ»ªˆˆ»ˆˆˆ»ˆˆ»™»™ª»»ª»»»»»»»»»»ˆ»»»»»»»»»™™»»»ª™ª™ª™™ªˆˆˆ»ªˆˆ»ˆˆˆ»ˆˆ»™»™ª»»ª»»»»»»»»»»»»»»»»»»»™™™»™™™ª™ª»ª™™™ˆˆˆˆˆˆˆ»»ˆˆˆˆªª™ª»™ªªª»»»»»»»»»»»»»»»»™™™»™™™ª™ª»ª™™™ˆˆˆˆˆˆˆ»»ˆˆˆˆªª™ª»™ªªª»»»»»»ˆ»»»™»™™»™ªªªªªª»ª»ªªª»»ª»»ˆˆˆˆ»ˆ»ˆ»ˆˆ™™ªª»ª»»»»»»»»»ˆ»»»™»™™»™ªªªªªª»ª»ªªª»»ª»»ˆˆˆˆ»ˆ»ˆ»ˆˆ™™ªª»ª»»»»»»»ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™»™»»»»»ªªªªªªªª™ª™‰ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‰ˆˆˆˆˆ¸»ªª»»ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™»™»»»»»ªªªªªªªª™ª™‰ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ‰ˆˆˆˆˆ¸»ªª»»ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ»»»»»»»»ªªª™™ªªªª»™ŠˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆŠˆˆˆˆˆ¸ª»ª»»»ˆˆˆˆˆˆˆ¸»»‹ˆ»»»ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ¸»»‹ˆ»‹ˆˆˆˆˆˆˆˆ¨™™ªªªª»™Šˆ»»»»»»ˆˆˆˆ¸»»‹ˆˆŠˆ»»»ˆ¸ª»Šˆˆˆˆˆˆˆˆ¸»»‹ˆˆ¸»»‹ˆ»»»ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ¸»ˆ¸»»‹ˆ»‹ˆˆˆˆˆˆˆˆ˜™ªªª™™™ˆˆˆ»»»»»»ˆˆˆˆ¸»»‹ˆˆŠˆ»»»ˆ¸»»‹ˆˆˆˆˆˆˆˆ¸»»‹ˆˆ¸»»‹ˆ»»»ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ¸»ˆ¸»»‹ˆ»‹ˆˆˆˆˆˆˆˆ˜™ªªª™™™ˆˆˆ»»»»»»ˆˆˆˆ¸»»‹ˆˆŠˆ»»»ˆ¸»»‹ˆˆˆˆˆˆˆˆ¸»»‹ˆˆ¸»»»»»»»ˆ¸»»‹ˆˆ¸»ˆˆˆ»»»»»»ˆ¸»ˆˆˆˆˆˆˆˆˆ»»»»»»ˆ¨ªªªªªˆ»»ˆˆˆ¸»»‹ˆˆˆˆˆˆˆˆˆˆ™‹ˆ»»»ˆ¸»ˆˆˆ»»»»‹ˆˆˆ¸»»‹ˆˆ¸»»»»»»»ˆ¸»»‹ˆˆ¸»ˆˆˆ»»»»»»ˆ¸»ˆˆˆˆˆˆˆˆˆ»»»»»»ˆ¨ªªªªªˆ»»ˆˆˆ¸»»‹ˆˆˆˆˆˆˆˆˆˆ™‹ˆ»»»ˆ¸»ˆˆˆ»»»»‹ˆˆˆ¸»»‹ˆˆ¸»»»»»»»ˆ¸»»‹ˆˆ¸»ˆˆˆ»»»»»»ˆ»ˆˆˆˆˆˆˆˆˆ»»»»»»ˆ¨ª™ª™™ªˆˆ‰ˆˆ¸»»‹ˆˆˆˆˆˆˆˆˆˆ™‰ˆ»»»ˆ¸ªˆˆˆ»»»»‹ˆˆˆ¸»»‹ˆˆ¸»»»»»»»ˆ¸»»‹ˆˆ¸»ˆ¸»»»»ˆˆˆˆ»ˆ¸»»‹ˆˆ¸»»»»ˆˆˆˆ¨ª™ª™™ªˆˆ™ˆˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ™‰ˆ»»»ˆ¸ªˆ¸»»‹ˆ»»»ˆˆ¸»»‹ˆˆ¸»»»»»»»ˆ¸»»‹ˆˆ¸»ˆ¸»»»»ˆˆˆˆ»ˆ¸»»‹ˆˆ¸»»»»ˆˆˆˆ¨ª™™™™ˆˆˆˆ»ˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ»‰ˆ»»»ˆ¸»ˆ¸»»‹ˆ»»»ˆˆ¸»»‹ˆˆ¸»»»»»»»ˆ¸»»‹ˆˆ¸»ˆ¸»»»»ˆˆˆˆ»ˆ¸»»‹ˆˆ¸»»»»ˆˆˆˆ¨ª™™™™ˆˆˆˆ»ˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ»‰ˆ»»»ˆ¸»ˆ¸»»‹ˆ»»»ˆˆ¸»»‹ˆˆ¸»ˆ¸»ˆ¸»ˆ¸»»‹ˆˆ¸»ˆˆˆˆ¸»»»»ˆˆ¸»»‹ˆˆ¸»»»»ˆˆˆˆ˜™™™™™ˆˆˆªˆˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ™‰ˆ»»»ˆˆˆˆ¸»»»»ˆˆˆˆˆˆˆˆˆˆˆ¸»ˆ¸»ˆ¸»ˆ¸»»‹ˆˆ¸»ˆˆˆˆ¸»»»»ˆˆ¸»»‹ˆˆ¸»»»»ˆˆˆˆ˜™™™™™ˆˆˆªˆˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ™‰ˆ»»»ˆˆˆˆ¸»»»»ˆˆˆˆˆˆˆˆˆˆˆ¸»ˆ¸»ˆ¸»ˆ¸»»‹ˆˆ¸»ˆˆˆˆ¸»»»»ˆ¸»ˆ¸»»‹ˆˆ¸»»»»ˆˆˆˆ˜™™™™™™™ˆ™ˆˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ™‹ˆ»»»ˆˆˆˆ¸»»»»ˆˆˆˆˆˆˆˆˆˆˆ¸»ˆˆˆˆ¸»ˆˆˆ»»»»‹ˆˆ¸»»»»»‹ˆˆ¸»ˆ¸»»‹ˆˆˆˆ»»»»»»ˆ˜™™™™™™™ˆ™ˆˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ™‹ˆˆ¸»»»»ˆˆˆ»»»»‹ˆˆ¸»»‹ˆˆ¸»ˆˆˆˆ¸»ˆˆˆ»»»»‹ˆˆ¸»»»»»‹ˆˆˆ¸»»‹ˆˆˆˆ»»»»»»ˆ˜™™™™ˆ™™™™™ˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ»‰ˆˆ¸»»»»ˆˆˆ»»»»‹ˆˆ¸»»‹ˆˆ¸»ˆˆˆˆ¸»ˆˆˆ»»»»‹ˆˆ¸»»»»»‹ˆˆˆ¸»»‹ˆˆˆˆ»»»»»»ˆ˜™™™™ˆ™™™™™ˆ¸»»‹ˆˆˆˆˆ¸»»‹ˆ»‰ˆˆ¸»»»»ˆˆˆ»»»»‹ˆˆ¸»»‹ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ»‹ˆˆˆˆˆˆˆˆ˜™™™ªª™ªˆˆˆˆˆˆˆˆˆˆˆªˆˆˆˆˆˆ™™ªˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ»‹ˆˆˆˆˆˆˆˆ˜™™™ªª™ªˆˆˆˆˆˆˆˆˆˆˆªˆˆˆˆˆˆ™™ªˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ»‰ˆˆˆˆˆˆˆˆ¨™™™ªªªˆˆ™ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ™»ªˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ»»»»»»™»™ªª™ª™™™™ª™™™ªªªˆˆ™ˆ™ˆ™ˆ™ˆˆˆˆˆˆªˆ™™™»ª»ªª»»»»»»»»»»»™»»ªªªªªªª™»»»ªªªˆˆªª™ˆ™™ˆˆªˆˆˆˆˆˆˆ™™™ª»»ªªª»»»»»»»»»»™»»ªªªªªªª™»»»ªªªˆˆªª™ˆ™™ˆˆªˆˆˆˆˆˆˆ™™™ª»»ªªª»»»»»»»»»»»»»»ªª™ª™»™»»»»»»ªªˆ™ˆªˆªˆªˆªˆˆªªˆˆˆ™™»»»»ª»»»»»»»»»»»»»»»»ªª™ª™»™»»»»»»ªªˆ™ˆªˆªˆªˆªˆˆªªˆˆˆ™™»»»»ª»»»»»»»»»»»»»»™»»»»»»»»»»»»»»»»ªªˆˆªˆªˆˆˆˆˆˆªˆˆªˆˆ™™™»»™ª»»»»»»»»»»»»»»™»»»»»»»»»»»»»»»»ªªˆˆªˆªˆˆˆˆˆˆªˆˆªˆˆ™™™»»™ª»»»»»»»»»»»»»»»»™»»»»™ª»»»»»»»ˆªªª™ˆªª™ˆˆˆˆˆˆˆˆˆ™»™™ª»»»»»»»»»»»»»»»»»»™»»»»™ª»»»»»»»ˆªªª™ˆªª™ˆˆˆˆˆˆˆˆˆ™»™™ª»»»»»»»»»»»»»»»»»ª»»»»»»»»»ª»ªªª™ˆˆªˆª™ˆˆˆˆˆˆˆ™™™™»™»»»»»»»»»»»»»»»»ª»»»»»»»»»ª»ªªª™ˆˆªˆª™ˆˆˆˆˆˆˆ™™™™»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªªª™ˆªªˆˆˆˆˆˆ™™»»ª»ª™ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªªª™ˆªªˆˆˆˆˆˆ™™»»ª»ª™ª»»»»»»»»»»»»»»»»»»»ˆ»»»»»»»»ª»»ªªª™ªªªª™™™™™™™™™™»ªª»»™»»»»»»»»»»»»»»»ˆ»»»»»»»»ª»»ªªª™ªªªª™™™™™™™™™™»ªª»»™»»»»»»»»»»»»»»»»»»ª»»»»»ªªˆªª™™™™™™™™™»ªª»ªªª™»»»»»»»»»»»»»»»»»»»»»ª»»»»»ªªˆªª™™™™™™™™™»ªª»ªªª™»»»»»»»»»»»»»»»»»»»»»ª»»»»»ªªªª™™™ª™™™™ª»™ª»ª»ª™»»»»»»»»»»»»»»»»»»»»»»ª»»»»»ªªªª™™™ª™™™™ª»™ª»ª»ª™»»»»»»»»»»»»»»»»»»»ˆ»»»»»»»»»ªªª™™™™ª™™™ªªªª»ª»™»»»»»»»»»»»»»»»»»»ˆ»»»»»»»»»ªªª™™™™ª™™™ªªªª»ª»™»»»»»»»»»»»»»»»»»»»»ªª»»»»ªª»™ª™ª™™™™»™»ªª™ªª»»»™»»»»»»»»»»»»»»»»»»»ªª»»»»ªª»™ª™ª™™™™»™»ªª™ªª»»»™»»»»»»»»»»»»»»»»»»»»»»»»»»ªªª™ªª™™ª™™»ªª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªª™ªª™™ª™™»ªª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»ªªª™ªªªª™™ª™ªªª»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»ªªª™ªªªª™™ª™ªªª»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»ªªªªªªªª™™™™»»»»»»»»»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»ªªªªªªªª™™™™»»»»»»»»»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»ªªª™ªªªª»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»ªªª™ªªªª»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»ª»»»ªªª™™ªªªª»»ª»»ª»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»ª»»»ªªª™™ªªªª»»ª»»ª»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªªªªªªª»»»»»»»»»»»»»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªªªªªªª»»»»»»»»»»»»»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªª™ªªªª»»»»ª»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªª™ªªªª»»»»ª»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªª»™»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ªªª»™»»»»»»»»»»»»»»»»»»»ˆ»»»»»»»»»»»»»»»»»»»»»™»»»»»»»»»ª»»»»»»»»»»ˆ»»»»»»»»»»»»»»»»»»»»»™»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»ª»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»˜n-- title: music tile -- author: SONENEIS -- desc: you are a little ball that will bounce on a trail of mystical tiles. -- script: lua W,H=240,136 CX,CY=W//2,H//2 TILE=8 mpp=false mx,my,mp=mouse() gui={ cursor_mode='arrow', mtx={}, clear=function() for i=0,W do gui.mtx[i]={} for j=0,H do gui.mtx[i][j]='arrow' end end end, cursor=function(sprs) mx=math.max(0,math.min(mx,240)) my=math.max(0,math.min(my,136)) if gui.mtx[mx][my]=='arrow'then gui.cursor_mode='arrow' elseif gui.mtx[mx][my]=='click'then gui.cursor_mode='click' end if gui.cursor_mode=='arrow'then spr(sprs[1],mx,my,15,1,0,0,2,2) elseif gui.cursor_mode=='click'then spr(sprs[2],mx,my,15,1,0,0,2,2) end end, button=function(text,px,py,w,h,style,func) px=px//1 py=py//1 w=w//1 h=h//1 local len=print(text,-50,-50,0,0) x=px-(w//2) y=py-(h//2) local pal=style[1] for i=x,x+w do for j=y,y+h do gui.mtx[i][j]='click' end end if mx>x-1 and mxy-1 and myx and mxy and mydx and mxdy and myx and mxy and my=W then bats[i].x=0 end end end function bats_draw() for i=1,#bats do local v=bats[i] elli(v.x,v.y,2,1,cs) line( v.x,v.y, v.x-4,v.y+(math.sin(v.ang)*2.5), cs ) line( v.x,v.y, v.x+4,v.y+(math.sin(v.ang)*2.5), cs ) end end end do --matrice local cs if pal=='red'then cs=3 elseif pal=='green'then cs=5 elseif pal=='blue'then cs=11 end local mtx={} for row=0,H//TILE do mtx[row]={} for col=0,W//TILE do mtx[row][col]={ char=string.char(math.random(48,49)), show=math.random(0,15), x=col*TILE, y=row*TILE } end end function matrices_upd() if pal=='red'then cs=3 elseif pal=='green'then cs=5 elseif pal=='blue'then cs=11 end for row=0,H//TILE do for col=0,W//TILE do mtx[row][col].y=mtx[row][col].y+.6 mtx[row][col].x=mtx[row][col].x-p.dx*.025 if mtx[row][col].y>=H+6 then mtx[row][col].y=-6 end if mtx[row][col].x>=W+6 then mtx[row][col].x=-6 elseif mtx[row][col].x<=-6 then mtx[row][col].x=W+6 end end end end function matrices_draw() for row=0,H//TILE do for col=0,W//TILE do if mtx[row][col].show==1 then print( mtx[row][col].char, mtx[row][col].x,mtx[row][col].y, cs, 0,1,1 ) end end end end end do --rain local cs local ax=({-1,0,1})[math.random(1,3)] if pal=='red'then cs=3 elseif pal=='green'then cs=5 elseif pal=='blue'then cs=11 end local water={} for i=1,50 do water[i]={ x=math.random(0,W), y=math.random(0,H), vel=math.random(1,2), size=({1,5,10,12,10,5,1,5,1,1})[math.random(1,10)] } end function rains_upd() if pal=='red'then cs=3 elseif pal=='green'then cs=5 elseif pal=='blue'then cs=11 end for i=1,#water do local v=water[i] water[i].x=water[i].x+(v.vel*ax) water[i].y=water[i].y+v.vel if v.x>=W+v.size then water[i].x=-v.size elseif v.x<=-v.size then water[i].x=W+v.size end if v.y>=H then water[i].y=-v.size end end end function rains_draw() for i=1,#water do local v=water[i] line(v.x,v.y,v.x+(ax*v.size),v.y+v.size,cs) end end end do --lump local cs local ax=({-1,1})[math.random(1,2)] if pal=='red'then cs={1,2} elseif pal=='green'then cs={7,6} elseif pal=='blue'then cs={8,9} end lumps_shadow={} lumps_light={} for i=1,20 do lumps={ x=math.random(0,W), y=math.random(0,CY), rad=math.random(2,5), vl=.5+math.random()*1.5 } lumps_shadow[i]=lumps lumps_light[i]=lumps end function lumps_upd() if pal=='red'then cs={1,2} elseif pal=='green'then cs={7,6} elseif pal=='blue'then cs={8,9} end for i=1,#lumps_shadow do local v=lumps_shadow[i] lumps_shadow[i].x=lumps_shadow[i].x+ax*v.vl if lumps_shadow[i].x>=W+v.rad then lumps_shadow[i].x=-v.rad elseif lumps_shadow[i].x<=-v.rad then lumps_shadow[i].x=W+v.rad end end for i=1,#lumps_light do local v=lumps_light[i] lumps_light[i].x=lumps_light[i].x+ax*v.vl if lumps_light[i].x>=W+v.rad then lumps_light[i].x=-v.rad elseif lumps_light[i].x<=-v.rad then lumps_light[i].x=W+v.rad end end end function lumps_draw() for i=1,#lumps_shadow do local v=lumps_shadow[i] circ(v.x,v.y,v.rad+1,cs[1]) end for i=1,#lumps_light do local v=lumps_light[i] circ(v.x,v.y,v.rad-1,cs[2]) end end end end function SCN(y) if mode=='play'then if pal=='red'then poke(0x3fc0+(3*15),H-y) poke(0x3fc1+(3*15),0) poke(0x3fc2+(3*15),0) elseif pal=='green'then poke(0x3fc0+(3*15),0) poke(0x3fc1+(3*15),H-y) poke(0x3fc2+(3*15),0) elseif pal=='blue'then poke(0x3fc0+(3*15),0) poke(0x3fc1+(3*15),0) poke(0x3fc2+(3*15),H-y) end end if mode=='home'then if pal=='red'then poke(0x3fc0+(3*15),H-y) poke(0x3fc1+(3*15),0) poke(0x3fc2+(3*15),0) elseif pal=='green'then poke(0x3fc0+(3*15),0) poke(0x3fc1+(3*15),H-y) poke(0x3fc2+(3*15),0) elseif pal=='blue'then poke(0x3fc0+(3*15),0) poke(0x3fc1+(3*15),0) poke(0x3fc2+(3*15),H-y) end end do --home background patern if pal=='red'then poke(0x3fc0+(3*14),y) poke(0x3fc1+(3*14),0) poke(0x3fc2+(3*14),0) elseif pal=='green'then poke(0x3fc0+(3*14),0) poke(0x3fc1+(3*14),y) poke(0x3fc2+(3*14),0) elseif pal=='blue'then poke(0x3fc0+(3*14),0) poke(0x3fc1+(3*14),0) poke(0x3fc2+(3*14),y) end if mode=='shop'then if pal=='red'then poke(0x3fc0+(3*15),136-y) poke(0x3fc1+(3*15),0) poke(0x3fc2+(3*15),0) elseif pal=='green'then poke(0x3fc0+(3*15),0) poke(0x3fc1+(3*15),136-y) poke(0x3fc2+(3*15),0) elseif pal=='blue'then poke(0x3fc0+(3*15),0) poke(0x3fc1+(3*15),0) poke(0x3fc2+(3*15),136-y) end end end if pal=='green'then poke(0x3fc0+(3*8),0x20) poke(0x3fc1+(3*8),0x56) poke(0x3fc2+(3*8),0x50) else poke(0x3fc0+(3*8),0x29) poke(0x3fc1+(3*8),0x36) poke(0x3fc2+(3*8),0x6f) end end --background bg=nil do --skins --skins: --"glow", "rubber", "shadow", --"dark", "white", "black", "black2" --"cut", "invisible", "-1L" skins={'glow','rubber','shadow','dark','white','black','black2','cut','invisible','-1L'} skin_ind=1 cur_skin=1 skin=skins[skin_ind] function skins_draw(x,y,rad) table.insert(p.trail,{x=x,y=y}) if #p.trail>=rad then table.remove(p.trail,1) end if skin==skins[1]then --glow for k,v in ipairs(p.trail)do circ(v.x,v.y,k+1,(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11)) end for k,v in ipairs(p.trail)do circ(v.x,v.y,k,12) end elseif skin==skins[2]then --rubber for k,v in ipairs(p.trail)do circ(v.x,v.y,k,(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11)) end circ(x,y,rad,(pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 10)) circb(x,y,rad,(pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8)) circ(x-3,y-3,rad//4,(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11)) elseif skin==skins[3]then --shadow for k,v in ipairs(p.trail)do circ(v.x,v.y,k+1,(pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8)) end for k,v in ipairs(p.trail)do circ(v.x,v.y,k,0) end elseif skin==skins[4]then --dark for k,v in ipairs(p.trail)do circ(v.x,v.y,k+2,(pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8)) end for k,v in ipairs(p.trail)do circ(v.x,v.y,k-2,0) end circ(x,y,rad,0) circb(x,y,rad,(pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8)) circ(x-3,y-3,rad//4,(pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 10)) elseif skin==skins[5]then --white local bc=(pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8) for k,v in ipairs(p.trail)do circ(v.x,v.y,k+2,bc) end for k,v in ipairs(p.trail)do circ(v.x,v.y,k-2,12) end circ(x,y,rad,bc) circ(x,y,rad-4,12) elseif skin==skins[6]then --black local bc=(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11) for k,v in ipairs(p.trail)do circ(v.x,v.y,k+2,bc) end for k,v in ipairs(p.trail)do circ(v.x,v.y,k-2,0) end circ(x,y,rad,bc) circ(x,y,rad-4,0) elseif skin==skins[7]then --black2 local bc=(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11) for k,v in ipairs(p.trail)do circ(v.x,v.y,k+2,bc) end for k,v in ipairs(p.trail)do circ(v.x,v.y,k-2,0) end circ(x,y,rad+2,0) circ(x,y,rad-4,bc) elseif skin==skins[8]then --cut for k,v in ipairs(p.trail)do circ(v.x,v.y,k,bg) end elseif skin==skins[9]then --invisible --empty elseif skin==skins[10]then for k,v in ipairs(p.trail)do circ(v.x,v.y,k,2) end circ(x,y,rad-1,2) end if skin_ind>#skins or skin_ind<=0 then rect(x-(rad//2),y-(rad//2),rad*2,rad*2,0) end end end do local maps={ function() x=x~(x<<14) x=x~(x<<13) x=x~(x<<1) x=x~(x>>15) x=x~(x>>13) x=x~(x<<17) x=x~(x>>16) x=x~(x>>17) x=x~(x<<3) x=x~(x<<13) x=x~(x>>1) return x//1 end, function() x=x~(x<<14) x=x~(x<<17) x=x~(x<<1) x=x~(x>>13) x=x~(x>>17) x=x~(x<<1) x=x~(x>>13) x=x~(x>>17) x=x~(x<<1) x=x~(x<<13) x=x~(x>>17) return x//1 end, function() x=x~(x<<16) x=x~(x<<17) x=x~(x<<1) x=x~(x>>13) x=x~(x>>17) x=x~(x<<4) x=x~(x>>14) x=x~(x>>17) x=x~(x<<13) x=x~(x<<11) x=x~(x>>12) return x//1 end, function() x=x~(x<<8) x=x~(x<<2) x=x~(x<<18) x=x~(x>>11) x=x~(x>>17) x=x~(x<<4) x=x~(x>>14) x=x~(x>>17) x=x~(x<<13) x=x~(x<<11) x=x~(x>>12) return x//1 end, function() x=x~(x<<18) x=x~(x<<4) x=x~(x<<18) x=x~(x>>24) x=x~(x>>17) x=x~(x<<4) x=x~(x>>14) x=x~(x>>12) x=x~(x<<13) x=x~(x<<11) x=x~(x>>31) return x//1 end, function() x=x~(x<<98) x=x~(x<<6) x=x~(x<<8) x=x~(x>>24) x=x~(x>>17) x=x~(x<<4) x=x~(x>>14) x=x~(x>>5) x=x~(x<<9) x=x~(x<<12) x=x~(x>>31) return x//1 end, function() x=x~(x<<98) x=x~(x<<4) x=x~(x<<30) x=x~(x>>1) x=x~(x>>14) x=x~(x<<6) x=x~(x>>10) x=x~(x>>5) x=x~(x<<21) x=x~(x<<12) x=x~(x>>2) return x//1 end, function() x=x~(x<<3) x=x~(x<<49) x=x~(x<<3) x=x~(x>>13) x=x~(x>>47) x=x~(x<<6) x=x~(x>>6) x=x~(x>>58) x=x~(x<<8) x=x~(x<<1) x=x~(x>>29) return x//1 end, function() x=x~(x<<33) x=x~(x<<49) x=x~(x<<38) x=x~(x>>1) x=x~(x>>47) x=x~(x<<6) x=x~(x>>6) x=x~(x>>58) x=x~(x<<8) x=x~(x<<18) x=x~(x>>42) return x//1 end, function() x=x~(x<<33) x=x~(x<<5) x=x~(x<<3) x=x~(x>>93) x=x~(x>>4) x=x~(x<<64) x=x~(x>>60) x=x~(x>>52) x=x~(x<<84) x=x~(x<<1) x=x~(x>>41) return x//1 end, } local map_ind=math.random(#maps) function draw_3dTiles() for row=1,H do depth=math.floor((W/row)+p.z) x=depth*W w=.8525 x=maps[map_ind]() x=((x&3)/2)+p.x rect( CX+(row*x)+p.dx,row, row*w,row/3, (pal=='red' and 3 or pal=='green' and 5 or pal=='blue' and 10)+depth%2 ) rect( CX+(row*x)+p.dx,row, row*w,1, (pal=='red' and 1 or pal=='green' and 7 or pal=='blue' and 8)+depth%2 ) if row==CX and p.y>0 then if x>0 or x+w<0 then p.lifes=p.lifes-1 skin='-1L' else skin=skins[cur_skin] scorre=scorre+1 end end end end draw_3dTiles() end function star_draw(x,y,scal,c,ang) ang=ang or math.pi*2.189 for i=0,5 do lineAng=((math.pi*4)/5)*(i+ang) lx=x+(math.cos(lineAng)*scal) ly=y+(math.sin(lineAng)*scal) if i==0 then dx,dy=lx,ly end tri(x,y,lx,ly,dx,dy,c) dx,dy=lx,ly end end function rays_draw(x,y,scale,rays,space,fit,color,angle) local sc=scale local sp=space local c=color local a=angle for i=1,rays do tri( x,y, x+(sc*math.cos(sp*(i*(math.pi/3)+(math.pi/fit)+a))), y+(sc*math.sin(sp*(i*(math.pi/3)+(math.pi/fit)+a))), x+(sc*math.cos(sp*(i*(math.pi/3)-(math.pi/fit)+a))), y+(sc*math.sin(sp*(i*(math.pi/3)-(math.pi/fit)+a))), c ) end end ySLIDEPH=0 vySLIDEPH=0 spSLIDEPH=65 function OVR() if mode=='new patent'then spr(cur_patent[2],15,68-16*2,0,2,0,0,4,4) elseif mode=='home'then spr(cur_patent[2],201,100,0,1,0,0,4,4) end if mode=='patent help'then for k,v in ipairs(patents)do local spsp=(4*8)+spSLIDEPH local y=(k*spsp)-spsp-ySLIDEPH spr(v[2],4,y+3,0,2,0,0,4,4) end line(0,0,120,0,12) line(0,135,120,135,12) end gui.cursor({256,262}) end mrelTable={ cx=120,cy=68, offx=0,offy=0 } function mouse_getRel(mx,my,mp,mpp) if not mpp then mrelTable.offx=mx-mrelTable.cx mrelTable.offy=my-mrelTable.cy end mrelTable.cx=mx-mrelTable.offx mrelTable.cy=my-mrelTable.offy local mrel={mrelTable.cx,mrelTable.cy} return mrel end frame=0 function TIC() cls(nil) mx,my,mp=mouse() mrel=mouse_getRel(mx,my,mp,mpp) mrx,mry=mrel[1],mrel[2] pal_ind=pal_ind%pal_max pal=pal_ls[pal_ind//1] if mode=='home'then cls(15) if frame==0 then gui.clear() p={ x=-1.25,y=0,z=100, dx=1, s=0,f=0, t=0, lifes=3, trail={} } end do --potato imaginator | pixel dailies ( celebration ) local a=(time()/80)%31 for i=-2,15 do for j=-2,8 do --pal=='red'and 1 or pal=='green' and 7 or pal=='blue'and 8 circ( 16*i+a,16*j+a, 4+2*math.sin(a/16*math.pi+((i+j)%2)*math.pi), 14 ) end end end p.z=p.z+.05 draw_3dTiles() do --my name circ(235,-75,100,(pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 10)) print('SONENEIS',191,7,(pal=='red'and 3 or pal=='green'and 5 or pal=='blue'and 11)) end do local txt='Music Tile!' local x,y=120,50 local c1=pal=='red'and 1 or pal=='green' and 7 or pal=='blue'and 8 local c2=pal=='red'and 4 or pal=='green' and 5 or pal=='blue'and 11 for i=-3,3 do for j=-3,3 do printc(txt,x+i,y+j,c1,0,3) end end printc(txt,x,y,c2,0,3) end do --button to play local x,y=120,100 local txt='click me to start' local len=print(txt,-50,-50,0,2,1) local c1=(pal=='red'and 1 or pal=='green'and 8 or pal=='blue'and 8) local c2=(pal=='red'and 3 or pal=='green'and 5 or pal=='blue'and 11) gui.txtBtn( txt, x,y, {{c1,c2},{c2,c1}}, false,2,true,2, function() frame=0 mode='play' end ) end do --shop local c1=pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8 local c2=pal=='red'and 3 or pal=='green'and 5 or pal=='blue'and 11 gui.button( 'shop', 26,11, 50,20, {{c1,c2},{c2,c1}}, load'frame=0 mode="shop"' ) end for i=-1,1 do for j=-1,1 do print(version,5+i,(H-9)+j,0) end end print(version,5,H-9,12) do local c=pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11 gui.txtBtn( 'points: '..pmem(points), 120,7, {{0,c},{c,0}}, false,1,false,2, load'' ) end gui.button('', 218,115, 42,40, {{0,12},{12,0}}, function() mode='patent help' end ) end if mode=='play'then if frame==0 then gui.clear() p={ x=-1.5,y=0,z=0, dx=1, s=0,f=0, t=0, lifes=3, trail={} } end if ef=='rain' and time()//100%30==0 then bg=(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11) else bg=15 end cls(bg) if(ef=='star'or tm=='night')and not(ef=='matrice')then stars_upd() stars_draw() end if tm=='day'then day() elseif tm=='night'then night() end if ef=='bat'then bats_upd() bats_draw() elseif ef=='matrice'then matrices_upd() matrices_draw() elseif ef=='rain'then rains_upd() rains_draw() end draw_3dTiles() if ef=='bat'then bats_upd() bats_draw() elseif ef=='rain'then rains_upd() rains_draw() end do local x=CX+p.x+p.dx local y=(H-31)+p.y local rad=12 skins_draw(x,y,rad) end if ef=='rain'then rains_upd() rains_draw() elseif ef=='lump'then lumps_upd() lumps_draw() end if p.y>0 then p.y=0 p.s=0 p.f=.8 end do local txt=scorre local wid=print(txt,-50,-50,0,2) local x=(W//2)-wid local c=(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11) local dc=(pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 10) for i=-1,1 do for j=-1,1 do print(txt,i+x-1,j+5,dc,0,2) end end print(txt,x-1,5,c,0,2) end do local txt=p.lifes local width=print(txt,-50,-50,15,0,2) local x=207-width local y=10 local c=(pal=='red'and 4 or pal=='green'and 5 or pal=='blue'and 11) local dc=(pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 10) if p.lifes==-1 then mode='game over' end for i=-1,1 do for j=-1,1 do print(txt,x+i,y+j,dc,0,2) end end print(txt,x,y,c,0,2) spr( (pal=='red'and 112 or pal=='green'and 114 or pal=='blue'and 116), 211,4, 0,2,0,0,2,2 ) end if btn(4)and frame>=30 then if btn(2)then p.x=p.x+(vl/1.25) p.dx=p.dx-2 elseif btn(3)then p.x=p.x-(vl/1.25) p.dx=p.dx+2 end p.s=(p.s-p.f)-(.15525-(vl/2)) p.z=p.z+vl p.f=p.f*.9 p.s=p.s+.4 p.y=p.y+p.s vl=math.min(5,vl+1e-5) else rect(0,80,W,30,15) rectb(0,80,W,30,0) rectb(1,81,W-2,28,14) for i=-1,1 do for j=-1,1 do print('Press button',29+i,89+j,(pal=='red' and 1 or pal=='green' and 7 or pal=='blue' and 8),0,2) end end print('Press button',29,89,(pal=='red' and 2 or pal=='green' and 6 or pal=='blue' and 10),0,2) spr(5,180,86,0,2) end elseif mode=='game over'then cls(15) if frame==0 then gui.clear() end do --reset function mreset() pmem(points,pmem(points)+scorre) reset() end print('Game Over!',32-1,55,14,0,3) print('Game Over!',32,55-1,14,0,3) print('Game Over!',32+1,55,14,0,3) print('Game Over!',32,55+1,14,0,3) do local c=(pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 9) gui.txtBtn( '>> go to home <<', 120,90, {{14,c},{c,14}}, 0,1,false,1, mreset ) end do local c=pal=='red'and 2 or pal=='green'and 6 or pal=='blue'and 9 print('scorre: '..scorre,5,6,c) end do local c=pal=='red'and 3 or pal=='green'and 6 or pal=='blue'and 10 gui.txtBtn( pmem(points)..' + '..scorre, 120,7, {{15,c},{c,15}}, false,1,false,2, load'' ) end do local t=time()/400 local x=CX+p.x+p.dx local y=(H-31)+p.y local rad=12 --head circ(x,y,rad,14) --eyes circ(x-5,y-3,rad//4,15) circ(x+5,y-3,rad//4,15) --mouth circ(x,y+5,rad//3,15) circ(x,y+8,rad//3,14) p.y=p.y-.5 p.x=math.cos(t)*(math.cos(t/2)*100) end end elseif mode=='shop'then cls(15) if frame==0 then gui.clear() end do --quit local x,y=5,9 local txt='quit' local len=print(txt,-50,-50,0,0) local c1=pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8 local c2=pal=='red'and 3 or pal=='green'and 5 or pal=='blue'and 11 gui.button( 'x', 11,11, 20,20, {{2,12},{0,2}}, load'frame=0 mode="home"' ) end do --stars local txt=pmem(stars) local wid=print(txt,-50,-50,0,1,1) local x,y=14,124 starWID_=wid+25 rect(x-8,y-8,wid+21,15,12) rect(x-7,y-7,wid+19,13,0) star_draw(x,y,6,12) print(txt,x+10,y-3,12,1,1) end do --crystals local txt=pmem(crystals) local wid=print(txt,-50,-50,0,1,1) local x,y=14+starWID_,124 rect(x-8,y-8,wid+21,15,12) rect(x-7,y-7,wid+19,13,0) crystal={ {0,0,1,1,1,1,1,1,1,1,0,0}, {0,1,1,1,1,1,1,1,1,1,1,0}, {1,1,1,1,1,1,1,1,1,1,1,1}, {1,1,1,1,1,1,1,1,1,1,1,1}, {1,1,1,1,1,1,1,1,1,1,1,1}, {0,1,1,1,1,1,1,1,1,1,1,0}, {0,0,1,1,1,1,1,1,1,1,0,0}, {0,0,0,1,1,1,1,1,1,0,0,0}, {0,0,0,0,1,1,1,1,0,0,0,0}, {0,0,0,0,0,1,1,0,0,0,0,0}, } for row=1,10 do for col=1,12 do if crystal[row][col]==1 then pix(col+x-6,row+y-6,12) end end end print(txt,x+10,y-3,12,1,1) end end if mode=='new patent'then local c1=pal=='red'and 1 or pal=='green'and 7 or pal=='blue'and 8 local c2=pal=='red'and 3 or pal=='green'and 5 or pal=='blue'and 11 rays_draw( 120,68, 240,5,1.2,9, 0,time()/1000 ) rays_draw( 120,68, 240,5,1.2,10, c1,time()/1000 ) rays_draw( 120,68, 200,5,1.2,20, c2,time()/1000 ) rect(0,30,240,80,0) rectb(0,30,240,80,12) gui.txtBtn( 'new patent!', 150,45, {{c1,c2},{c2,c1}}, false,1,false,1, load'' ) gui.button( 'Okay', 150,80, 70,40, {{c1,c2},{5,7}}, function() if cur_patent==patents[1]then pmem(landN,1) elseif cur_patent==patents[2]then pmem(woodN,1) elseif cur_patent==patents[3]then pmem(stoneN,1) elseif cur_patent==patents[4]then pmem(sapphireN,1) elseif cur_patent==patents[5]then pmem(jadeN,1) end mode='home' end ) end if mode=='patent help'then if btn(0)then vySLIDEPH=vySLIDEPH-.05 end if btn(1)then vySLIDEPH=vySLIDEPH+.05 end if mp then ySLIDEPH=-mry+68 end ySLIDEPH=ySLIDEPH+vySLIDEPH if ySLIDEPH<=0 then ySLIDEPH=0 vySLIDEPH=0 end if ySLIDEPH>=350 then ySLIDEPH=350 vySLIDEPH=0 end for k,v in ipairs(patents)do local spsp=(4*8)+spSLIDEPH local y=(k*spsp)-spsp-ySLIDEPH line(0,y+spsp,240,y+spsp,12) printc(v[1],37,y-30+spsp,12) printc('points:',37,y+30+spsp*1.5,12) printc(patents[k][3],37,y+37+spsp*1.5,12) printc(0,37,spsp-11-ySLIDEPH,12) printc('points:',37,spsp-18-ySLIDEPH,12) line(72,0,72,136,12) print('stars: '..v[4],80,y-90+spsp,12,0,2) print('crystals: '..v[5],80,y-70+spsp,12,0,2) end rectb(0,0,240,136,12) gui.button( 'x', 229,11, 20,20, {{2,12},{0,2}}, function() ySLIDEPH=0 vySLIDEPH=0 mode='home' end ) end if time()//30%200==0 then cls(12) pal_ind=pal_ind+1 end frame=frame+1 gui.cursor({256,262}) mpp=mp end function printc(txt,x,y,c,f,s,sf) txt=txt or '' x=x or 0 y=y or 0 c=c or 0 f=f or 0 s=s or 1 sf=sf or false local w=print(txt,-50,-50,0,f,s,sf) print(txt,x-(w//2),y,c,f,s,sf) end