C
 Т Tilemap demo - Original concept, graphics and map by tr1p1ea.C Т ============================================================= :( Т Error handler.42 Н ┘ ш : К 0 : Г ÷=17 Ю ▀ Ж : Я " at line ";· : Ю< Т Initialise VDU.F К 4P О 20,26,23,1,0;0;0;0;Z Ш 0 : Ш 255d Т Load map.n ч map$(15)*x Ц y%=0 ╦ 15 : map$(y%)=д16,".") : М y%┌ Ц y%=0 ╦ 15▄ map$(y%)=""√ Ц x%=0 ╦ 15&═ С m% : map$(y%)=map$(y%)+Ґ(128+m%)╙ М x%Є М y%Ў Т Load sprites.
х ч d% 7р Ц s%=0 ╦ 23э С a%,b% : d%!0=a% : d%!4=b%Ф О 23,s%+128П Ц i%=0 ╦ 7 : О d%?i% : М i%З М s%Т Player/Camera variables.pX%=1 : pY%=1camX%=0 : camY%=0"Т Last key value and time.,lastGK%=0 : lastGKT%=▒6:@Т Main loop.JУ#TТ Draw the map onto the screen.;^Ц r%=0 ╦ 7 : Я┼0,r%)аmap$(r%+camY%),camX%+1,12); : М r%hТ Get the player's key.!rk%=ё : У : k%=є_getKey : Щ k%|Т We have a key to handle.├newX%=pX% : newY%=pY%$░Г k%=1 ─ newY%>0 : newY%=newY%-1% Г k%=2 ─ newY%<15 : newY%=newY%+1$єГ k%=4 ─ newX%>0 : newX%=newX%-1%ўГ k%=8 ─ newX%<15 : newX%=newX%+1╦Т Is it walkable?=бГ аmap$(newY%),newX%+1,1)<>Ґ(128) ▄ newX%=pX% : newY%=pY%"лТ Move man within map strings.;жmap$(pY%)=аmap$(pY%),1,pX%)+Ґ(128)+аmap$(pY%),pX%+2,16)EЮmap$(newY%)=аmap$(newY%),1,newX%)+Ґ(129)+аmap$(newY%),newX%+2,16)ЙТ Scroll map around.:ТГ newX%>pX% ─ newX%-camX%=11 ─ camX%<4 ▄ camX%=camX%+1:ЧГ newX%<pX% ─ newX%-camX%=1  ─ camX%>0 ▄ camX%=camX%-1:Г newY%>pY% ─ newY%-camY%=7  ─ camY%<8 ▄ camY%=camY%+1:Г newY%<pY% ─ newY%-camY%=1  ─ camY%>0 ▄ camY%=camY%-1pX%=newX% : pY%=newY%&Щ ё0Ю::DТ Gets the key.Nщ є_getKey : Й r%Xr%=0bГ і-58:r%=r% └ 1lГ і-42:r%=r% └ 2vГ і-26:r%=r% └ 4─Г і-122:r%=r% └ 8A┼Г r%<>lastGK% └ ▒>lastGKT%+10 ▄ lastGK%=r% : lastGKT%=▒ : =r%■=0
·Т Map.4╗э 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 24╡э 3, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 44╪э 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 44фэ 3, 0, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 0, 44пэ 3, 0, 3,11,12,13, 0, 0, 0, 4, 0, 0, 0, 0, 0, 44зэ 3, 0, 3, 8, 9,10, 0,14,14, 4, 0, 0, 0, 0, 0, 44Дэ 3, 0, 3, 5, 6, 7, 0,14,14, 4, 0, 0, 0, 0, 0, 44Нэ 3, 0, 3, 0, 0, 0, 0,14,14, 4, 0, 0, 0, 0, 0, 44Ьэ 3, 0, 3, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 44э 3, 0, 2, 2, 0, 2, 2, 2, 2, 2, 0, 0, 0, 0, 0, 44э 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 44э 3, 0, 0, 0, 0, 0, 0, 0, 0, 0,16,17,17,17,18, 44 э 3, 0, 0, 0, 0, 0, 0, 0, 0, 0,22,15,15,15,23, 44*э 3, 0, 0, 0, 0, 0, 0, 0, 0, 0,19,20,20,20,21, 444э 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 44>э 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2HТ Sprite data.Rэ &00205000,&00040A00\э &99A5FF7E,&7EBDA57Efэ &00FFAA55,&00FFAAFFpэ &C0A0A0C0,&C0A4AAC0zэ &03255503,&03050503└э &80C09ED6,&7FFFFFC0▌э &42424A42,&FFFFFF42≤э &0103795B,&FEFFFF03╒э &FFFFD5A0,&92DA9EC0╛э &FFFF5500,&423C0000Іэ &FFFF5705,&496B7903юэ &7C3A1F07,&D0EFF8EAйэ &44AAFFFF,&00FF0010тэ &5EBCF8E0,&0BF71F97чэ &1A6C3400,&002C3658Хэ &20000000,&00040810Рэ &40AA5500,&41824480Ээ &00AA5500,&01020400э &04AA5400,&04020402э &42844080,&55AA4081э &02040000,&55AA0001$э &04020402,&54AA0402.э &40804080,&408040808э &04020402,&04020402 ЪЪ