HErEs a nice TUT for a casual rpg... Whits these Functions And Sytax rules you may proceed as a casual gamer



Code:
program
The_Vally_of_Hurmishular;

{
 use arrowkeys to move.

 by pressing "shift" you may check your
 current position.

 by pressing 'ctrl' you may see the
 extra screen if avaliable.

 fill out const below.
}

const
name='Adventurer';

var
x,y,Title_splash,KV_HUT,HUT_SPLASH,KVILLAGE,KVILLAGE_SPLASH:integer;


function position_check: string;
begin
if inrange(x,0,499) then
result:='Vally'
else
if inrange(x,500,1999) then
result:='Rock Lands'
else
if inrange(x,2000,2999) then
result:='Plains'
else
result:='unknown'
end;





procedure Title;
var
i:integer;

begin
ClearDebug;
ClearDebugImg;
DisplayDebugImgWindow(200,200);
DrawBitmapDebugImg(title_splash);
writeln('welcome to The Vally of Hurmishular')
wait(6000);
for i:=0 to 5 do
begin
wait(10);
writeln('.');
end;
writeln('Press Shift');
repeat
wait(10);
if iskeydown(16) then
break;
until(false);


DrawBitmapDebugImg(KVILLAGE_SPLASH);
wait(1000);
DrawBitmapDebugImg(KVILLAGE);
wait(1000);
DrawBitmapDebugImg(HUT_SPLASH);
wait(1000);
DrawBitmapDebugImg(KV_HUT);




wait(2000);
for i:=0 to 35 do
begin
wait(10);
writeln('.');
end;
writeln('greetings ' + name);
wait(1000);
writeln('this is the start of your journy...')
wait(1000);
writeln('where do you want to go?');
wait(1000);
writeln('/\ or \/ or < or >');
end;


procedure
MAIN_WORLD_OVERVIEW;

var
z:integer;
vally,Rock_lands,Plains:integer;

begin
x:=2400;
y:=2500;

while z=0 do
begin
wait(10);


if(iskeydown(16)) then         //to check posistion (shift)
begin
wait(500);
//writeln(IntToStr(x)+'/'+inttostr(y));
writeln(position_check);
end;

if(iskeydown(17)) then        //to check extra screen
begin
wait(500);
DisplayDebugImgWindow(300,400);
end;



if(iskeydown(38)) then        //movement
begin
wait(500);
inc(x);
end;

if(iskeydown(40)) then
begin
wait(500);
dec(x);
end;

if(iskeydown(39)) then
begin
wait(500);
inc(y);
end;

if(iskeydown(37)) then
begin
wait(500);
dec(y);
end;

end;
end;

begin
Title_splash := BitmapFromString(200, 200, 'meJztnQly20gMRXU0Ho0394zt' +
        'SGG4oLEDZH/UK1UkN7uxPNGyk6l5LesLAAAAAAAAAAAAAIAR69fXL' +
        '+WZgM6IPPkshlqAQOTJbjHUAqdIPYFXgAO8AhHAKxDBqSeEKtL14F' +
        '54DbShV3C1CseZpnml+3mzvNXz4H67cFFLdERaaYBPmldX20oTiNs' +
        'ZOPIMr04vgVeFRDTf7pX0u9vpJfleEbnNpnRQB4x3ldt5RRvFKb/c' +
        'hISGhPZZvVJ0SehNg2nRMIEH39DKvdI5QF+icNVel9SrOO2Tzcn0S' +
        'mSLo1ei20W+VI/xSjfToNN99b61VJleuXdDV9pTvQqajjqBHK8iev' +
        'Jsr0Szjh6Q1/siUyr1ifAqoZy2XsU1R+eVtIeK0hybnOnV7jhj/k3' +
        'eAo6bD0vjZ0XnluAVJ1tHrxwliUtVP7v19Rdvr3S09SpBqnt7tXWJ' +
        'R6ZXIrUcm6zL6sFeiacm94pS6+dG18er48obSdXHK9qfJK+uv1ri1' +
        'XbxvaRq4dVooPf16rQtQRNvJVWlV+Zx67yKkEc6zYiJ9zGqxiu/Wd' +
        '/Cq6FaoUZN4ZX3rKu8ku6QP75yqZK8ipm12iu7Wk28aitVuFdhg7Z' +
        'IFeTV1bZVXhVKFehV5KCNUj3Dq85SOXpllCFTKv6JisTKpSo3Ktkr' +
        'WolkqZiH6nLbvwKvgr0ixEiwSKEWcxkr2/ip9ZEKXl0dfTzd6pWrX' +
        'c2lgldXR5+ebpXKz67+Xh2T1BU1g1fOeeZOrVYtRUWP9Crn6JfNru' +
        'ZSybh+g+8mAq+4lM+0FnIQp+PgD0s6XF8BKqWa3K6RA8MPJHRXLTc' +
        '3zRCDRVWSNs0mGBzgwBdV+rHtlgQNsRu84Vo6SX9g4+A51g4kjLUW' +
        'tgaWNsKrc+LGWgvbBGMD4dUlvgPtAFsGlwZCKgr1EFuR0qujGJCKQ' +
        'jTBhqRLpVYrJ9VGcMbXkxSFaE9g1AD+NJtQKhWEEbBUq8KngVRQS8' +
        'BSLQyHNlLBKwGLde4nzTfvCa8ewuImlbNXckMUl0CqQBbx0C/7L9+' +
        'KkMpdAEiVzXDQG6gRSPYhpFLfWAgNhpdAqhDoWW+I9comlcIrYk39' +
        'UJ7BccpnBHpllsro1XZZ/TiexKLR6b5e1Te8PZ69WsRSuXwH3FYBr' +
        'zrg364l+051WoiXV1IJwVXTHHZesrxS1TJUxfFeNyfqLo3XL/Fe8W' +
        'qRiuF7u5sTXYu4l0T/z5gCvPKSc3IU/ZF1Ne6WJUkMXuXj6NXptfB' +
        'qTvj90bU3xCut85ycIVWmV5YmO3slL0eqBKSyE9RnkVqOXimytfcH' +
        '8KdgmZRiBy+pcvpTPrX+cMSg1+Tdstr0p3xq/bF45bIJvHoqOiU4O' +
        'wj0WzpKxakdqLtX71XXzgBF9z4N9PKKOmiBV1GZd8iho1c9ppOmls' +
        'sRTd4IFq9oqY5FwSv+cY45t2ogp7GxXhV1Y1hd5giq9gltoB3OWW2' +
        '9yhwTvEryqlQnIuHMERTuIz2Onwy8YnbP/RTLWZlecU5JU4vlVbVI' +
        'VdhN8PVKdH/gL8u5ZcErR/hTkG7FOYifT4RX2+O+ny6Qyg0vr4abc' +
        'E4hkpH6oylngVduuHjF2cTolaU07iULpPLEPs2eXolZ4NUA0SeN5l' +
        '7l9W2BVBT8DyHD9Y4nMvcvk2qd2qthz3UztVvh5dV2q+z2Ln+kKhO' +
        '7CMX7PdSK7SaOXpWxfHvFT7JpFWapTotSz9So1jO84ufZuhCzVGo9' +
        'REcwt5rHqxvUUuGV9Aj+bjeWisyfs6w8+bh6jSXbveJvUt5SURMcm' +
        'xytxHr9ycRiS7lXd6fEK2lvdZOyFGIxYbgeXkX0QTostVTHDX29kl' +
        '4Lr+K8cjFBrZa7V8xewatQrxSTqvJKly28glcRXkWkcVPglTFnhVf' +
        'HleUawKtV+O8ejV7xbeEXtVtf7sCNvFK8ndt6RSev9urZRHil67zo' +
        '6ASvXDaHV15eSU3YfkmUHv8URSEKaekaZ0M0OHqNdCKcnvM9ka6Xy' +
        'qy+tnzEfbxitpT5YpxXivWcrVwynxy1Vy4e5nu1XWPpSfngmpPpTx' +
        'Ov7G0pn1p/3L1S+OboiaMGkMqCuyeP8QpYUGszXJDvVfkdZv36pny' +
        'mHeDMglgArzan/6V8rOVwBlHo1fEqaS05Xm2lgldXs+APK8Gr7YWK' +
        'clJ6CK/Gg2jolbqirB7CK2oKz/CKi9PRR6ng1U9bxrMmFoi8Oq4vK' +
        'Pn/Q3dYGwivTtvCuoeIrGPeAAvqPUplU+tUKnj10xmH7018qSq5kk' +
        'qrFqQim9PYBEdoqTRvJXg1bNHTpVpJr1bxZ3hCKnj1b6OeK9XwTiW' +
        '8X9FSwasp4EvFVgtegb0/29DesiDV7GzvRTupPiFUC1KBbwijfsPP' +
        'q/piQRoviVqMDeEV4MZOKlIwSAW4sf15cHTvglezIw3ej4fwanboz' +
        '1THOP5G4vzv3+HV3Aw/rh/j9JJ/t4VXsyMNwsPNtvBqdlxifT++gV' +
        'ez4xvvbeHVvLjHe2f8UnRetrF7qov3T4WQamqI+Pz2gF6wi/fOcGl' +
        'efONXs83+kGpS3KO8IlCOV5C/bwcz8no/WkL1X1KAJ+MS5VWAhhiD' +
        '2LC8NFDLJ6R/77yL9ewVMDm6OL1wPTwF02KPq02qKgLlREd0/qAno' +
        'ZFWBehGaKRVAboRFIUVgQ64xLp5fFVXBDpgj/ISQEO8orwQ0I1jnL' +
        '54FeX5g8683o+iKE8b3AVRbK8qzxx0RhTr4SkApzCDWFxeAugGM+i' +
        'V5VWAbnBi3TwSXwXgAzPoleVVgIYMY7imvATQEGOU5w/aoo7yzEFz' +
        'trF7evViec6gOa9/H5lRnjZozm98/jCM9f0IwCm6KE8bdEYd5ZmDz' +
        'hBx/Oq6+QMAV/BjfT8CwOE01sNTAEScxudL5emB+7KL8nzAk3hVJw' +
        'AAAAAAAAAAAAAAAAAAAAAAAACAEf8BYFWvIQ==');

KVILLAGE_SPLASH := BitmapFromString(200, 200, 'meJztmmuO3DgMBvdoe7S+eXaB' +
        'AMEgycgSXx9FF1D/0qZlVrUzQebz48cHAAAAAAAAAAAAAAAAAAAA4' +
        'H7++fzzC/lhds4pPwk88jWqztauOCT85M+oUq2Zb1F5SPBT2ZXnLn' +
        'R1F2VdOW8Udc6dC7+7FyUb9lz/sqrvaufaRVR+5LrLuL2r/Tk7V6V' +
        'G9aq0/I78VXiOuj+nSVcvSStEUJOu1qPoqnNXtl1FrTq7q5q05NK7' +
        'dWXe1UVdZaclN96qq3ChtoXXdJVXmlx3q66c6wpcu6qrkDW+ivVCa' +
        'mKIHSVRT1f7C6mMYV+EeQ5dVbIv3by3+q7+OoquKsmO6vQWUdOK1d' +
        'OVR7ptXeHD6ao/raIKTKtYPV3VeM+eT1fNSe3KMDykq3r1dOVXnze' +
        'Z99UYboxqc36lerryB5A09kgEXTUnKYD1tf6udk5eqZ6uNu2sxXnG' +
        'Oic/3uK7aXRVyXohGe+ro5eM/xbOBwlZ4wuxfc0fl2bual/H0UC6K' +
        'sbc1Xpvnq72vRTcImqNb8PT1WJ1IV1l11u5xrfRvyvz2eiqc1drff' +
        'Vdfb0pXbVlcyGne/vu87Fp5UWV+r14Q3L7T+33EqjSX68wqjckl/R' +
        'otrFRXT2OahvVmLRadbVpdvMu93Y1IK2GXa39Ht3FcAx5UXR1NFl4' +
        '+NNjyKMa0FVqANlbKvtSEFXPALKPfYuUV0V1L3iBDOgKMqAryICuI' +
        'AO6giSICpIgKgAAAPgOfk6AWPjHMoTD/z+Cnxf+sgRk885fwoFwDL' +
        '/TRVewhqIgnP5RkXE9fvW3REVaR+uKWrg5g4uiIq2jdTn37Izh9Kp' +
        'Kv3RVsCtPVIu72KKqUSx/YV6EbVH+qE7Tijp5+K5IyyNxc710BWY7' +
        'kq48A7PXRVchi3pzV7aNvRCDo9SonPOFG5OrbEWGd8/wzVs07Iq0/' +
        'FsqkNuwqMezyW02wWzKZvnPzyw+3zaq9dnkTjvg8XV64em9ehb1eD' +
        'y50w44re1fa4ikubiGx4s6hn+I84Wwf/lmV19vd/pa03qUdxV1kow' +
        'htkXtNxOeltZpn67M7pKeqGdXv25q+NMbbfY5SfacJmmZg7zLZp+T' +
        'FHf1ODmpK8PkDjbr04o6Q9QTBfp6YVeL46XeK6+rqCeKVSbvqjiq2' +
        'K7W167nF3R1NNDmuiat04H1UQWm5cwmdicNuwqsa3+UqqjHE3omNO' +
        'wqL4C8Ykd2tXm2bl05B5pd16S1v1U52V39+RnbkBldOdM62qocz9I' +
        '2r1oPjFLmH1jQlScteSqBT2q4sCyD8IHrPQQe8g1RPe4zu4eyrvxf' +
        'k2LXV0dldhHYQ4dX1uYlA1wXQ1exZwDbYgMtmP/mOp0Z+PiQ5GL/w' +
        'xKtwq8JeHa7+WHPNLqawb6LzU/6zZrlfjft8aVKV/9+Pv8TOHDTxb' +
        '4yYVdHA8NvfSk/i5J0tfjMZldHb4yMrpznnMrXqGK7etzwUVQGX+F' +
        'y6WrNby017MqjNc+vpyu59FQWRfXp6nSgMwP/E3kOeTuPRRV3ZZOe' +
        '+n4zP5HhMzPYjKqmK4/006voKoP9nOjK80SPaclLCMQQVVlXnr+h/' +
        'F15RO8PnBSVraX6n6/e0NUk6Gr/ALEP9Zn1gvoE5dShK6fW0zOkPp' +
        'Q8CT+BUYV3tWlhXle3pxUbVUZXGSJOL6SrR8JDurGrz+EPM+Her+s' +
        'qOxtJV3IRdDW1qx0XF3X1+DjykPoUld2V0EXS7ZpHJW+JroYhr6i4' +
        'q+8UN+zq3vzkCUm6+s5yfVf7yFO5Paqarv4quvh2w9KSZ9Okq99cV' +
        '95rXlfyZlp1VczIruS10JUzLfnh7y1qfFe2tORnvrel93R1mpb8tH' +
        'QFeciroKt5yJOgq0nIS6CrYcgboKt5yAOgq2HI1dPVPOTe6Woecul' +
        '0NQ+5cbqah1w3XQ1DLpqu5iG3TFfzkCumq3nI/dLVMORm6Woecq1y' +
        '5ApGItcqR65gHnKnHZBbmITcZh/kLsYgV9kKuY4ZyD12Q25kAHKJD' +
        'ZFLuRe5u87I7dyI3Fp/5I7uQu7rFuSmrkCu6Trkyjojt3MvcncNkU' +
        'sZgFxiK+Q6xiBXKUeuYCRyrXQyEnkGhDQSeRXkNBJ5HuQ0Enkn5DQ' +
        'SeTD0MxJSgQyICjIgJ8iAnCADioIM6AoyoCLIgJwgA4qCDOgKMiAn' +
        'yICoIAO6ggwoCjKgKMiAogAAAAAAAAAAAAAAAAAAAAAAAGz8BxNew9o=');

KVILLAGE := BitmapFromString(200, 200, 'meJztmAGOxCoORDlajtY33/1S' +
        '/2U9LrswhASStlSKCDHG2K/NaI7P50ilUm/X5z//wVf1VFoec+pB4' +
        'iwlXakuYb/q1fIjpPaR7E51ZljLj5Naq4rBLKISrZRi6fvsZSbRSn' +
        'mKs2T2N+Jh+dFS90vR0iRKLjSZSbRS/yh49ynj+vR8Jlq/rODdh2w' +
        '0UUmuflkRlnBSDrqcLz9v6mo1G5S0qWP5SbqK77L84Knr1AuVmpRO' +
        '5NfgRsuPn5qu4N9RCJhcrhzWJ+7l7bg8D6mJ4lChsVyFY2WGG5F9l' +
        '6ciNUsEKn674Sfz7y5pqVaZuy9PSOqkgm1KcWI2HHOGcxKBOfU4NQ' +
        'uK/QqXq7H5Nxh6Q1CTq3eIQGU2JblKTnInpge1isSzPEupLvVePeb' +
        'NaHY2TqkHledkeaJSQUWI8v468i4v5RYt1XJ8za71aAXblFlKb21c' +
        '1bO3aW8XTe2ggaqdZymO3FiEqbWKd6o9tTyBKaVmpZYzk2g9TsthS' +
        'MDep0tr+mn98yrReqvmFvET/rdAhMaT4S3P7W9qFkiqgh5OcsYbEz' +
        '4HYFue4R/U+Z+/ogLdKmP82mTMmwzOpO7XrNtE2fAqN7uNZ6ZiNp0' +
        'sT2nqHw10KsVP8xnZTn6qY2Uv3f4OVM89WrCfSHviAQEgY84YDsgW' +
        'D02+mcBeLY/fO1TwsOZCE8sIPwPZw10ekWGS+elafijFAKGFQBVMV' +
        'POTt2NzvGdWg2m/WsuPGTm4qqziQa0NYkCyYTqRsZlxLs9bb1bfB5' +
        'iqIBLCI/z8bTXE3nwlSTZx8mJ4ClcnqXgiYOrsHid1XhmYM6afSIa' +
        'JQbNMy+E5A5WyN1/NbG9LF0ZrxlwnvbxhGnuToFyZWKqA9+fqTIkj' +
        'v6Zt6fpAqyEkmEf22EAw4nRxY/PrcoR6ocJfkHeuyGGlk2Cqpyct4' +
        'tDLACZELTHXcnJIHpqRbMsVB0n9BnHerJd3ZPO1+fOcnjoOPKkmHg' +
        'GXm7klqW7+MCOsbsVVsHyRVEeS5iVfzdwJmEdFJH7TGG26JJd4Cd+' +
        'cq0jJIvB4n5QHZYyrguFNySTZztvajLw32l7MHsdVHCpMKWHJzCGm' +
        'gvhXdb8OLcxGM0XNtJgVj5wiUgsPsP25Ms2CaWm6RdiwTAoqHu3VK' +
        'W0es5koNR/MpEmst+lWXMXr4h3T/DFyBmSSzSxhyXgax7LqOVcHCR' +
        '6hN0jiv1kX3G5zrppV6EoRSZrExuTQLHcz/uHcYo34LpEl3ok4sc2' +
        '0RCK8lJmBosRL0OTnjFTye08xJb1mWZVbaYPlbp5R2qgjKxtpjLvj' +
        'XjeDxCsyvPBm3UOXWX1FO6n4p//npuwVOWZgG3IVz/9aiq5D0Txp5' +
        'OzK2EMOgZHzalOPMS+wp3D1VqLGsq0KarriEHoZ9lx5BKoYMMJHcL' +
        'W89PtgpopIeJA2uIRjyW3QbVc1l0N1Wx3NgSziDpjJYEjFuxJLQDJ' +
        'JxsygwVZcXQpMc9LMKhqbxb2BurlV49lQjHkeIpPxg2wLUsQnN8CE' +
        'K4oIUVefdJirD3QV80TEOH7MgfA2xAlTQTDwoGpOqgzjvDmYfvaTh' +
        'TOJMlNHtn4rV8QbSUsQziZaHmn4SkoQP1GwHEGHGB4Cg5ORE3XVej' +
        'pLPG/DUKm08Iw1ufJq2huhjOfqPPeCagJD4FG/nSvCm6UgPMGQMCc' +
        'qY5hDRWAEOf4aT/tCrshCPAj+UsboWsXV+ZBMSHhmTIQwq8QSk0x+' +
        '8pfmudch5oRnbK5mIXR1xrCyZpYwe+i5K6teaczAzmDQm6XNtRyqe' +
        'AnMT0iUB1WvJfn6gZaFsSVXy9UVkrL5QO9SZiYwEbTQs9pCRZVcPZ' +
        'erD/QcM+FqkvPWdGgujJD2s1wtJypeAvVJjb3l8bojhOSrhE3ZE/+' +
        'bc7Ucg+kKHlBVU65VTtAeP3Go0LMayFcVUu+5BhLFbbz4cf6KIPdR' +
        '5GiYLi8zc3+5BDkTY0LvPZn00qviV6G+UvF+ZVbNdGK2GrM1da0yC' +
        '+QFubAVNNO4sNx3JiGYf2wmKlcmGCqZXumJK8IeiXAhVyRpJPiXqZ' +
        'l/nplIB8NdPJnxmGbNAm3C1c8qwpXqA3yyix+5Cnck7YsHGTnXzUl' +
        'eG8CSI8fzb1406MTz6dEiPfN4TBSVh4FzpaYrkn/zAuIXFn/ttTTj' +
        'VFwNnCt1neJcyVdvOe9avJXxdtdshgPnSl2nLq4i/adJzndsbv1xr' +
        'jZciMZyo+C5Utepmf9mT6g2ZofBLcwmxs3IkuFzpS6Vd+kQG9MS2Z' +
        'Cv5r7m7sEZ9MMDXp7nX5PXEOpXc0CaDE7iXsoh71deGKZ/cqjUnQp' +
        '2A/nJREI5RM9mBzO/mvNmqOZxvHOl7lSwWGjD+8x3Hpeb9nJSjfGT' +
        'F54XbXK1RB4z0sA041yZlsq51468TZt+SFTL8/xrIvlHfuSrmjGLj' +
        'g69xkImzd3NVWZIydUSkW5ALh3vFjM/yafirdnlmi2x+pGD5Gq5OF' +
        'dmrc2vTULkKtzCi6SJoumHnCt1j5r5x8qqhaYTwlVdrsw8P9y/+XO' +
        'InGtuDpfXcTfxK8O8aIaJwvx7SxAtM1STKNP4hrxlh+T5MW3qUy2U' +
        'HnBS+ZdOeDnIcnNGxmn6vy5dES2v8v3y+gOpUTyZZj8hjKm9MBhzi' +
        'dzCC3h6opKurnTVGfnVK5xnjMlUA06Lis1ciGvN48wq63mofo0u89' +
        'TYbYgl4qSMTQ/81Vul7M2zeKtmpSjpGkhanVScyDoib8oVGhN4vJy' +
        'jt2aliM/hUo6xkXSRVkBqSmqHYGDd1VeFhPyqHMq16NA0Gy5ihIeI' +
        '2x9Ei/eKmrdmT1A2mHBCozIm6PKYPT9jFWySgPkZdvg+usjpkDFlj' +
        '66UW/MTVgS3IGFE7AnAY2mJOAn6/xG0eOvACprdiXcqOaO2aG6tJs' +
        '1IuP1ErnCjYRheT1ekX6nXCF1Io+cZmSQeSL9ScJ4pWXMhxm+G1Lv' +
        'Lm9DiXJF2ZLYRdCu/kmaFMZC0D2sgIXzVeQZeidYVtdtZw1x9oCOZ' +
        '9mOwnQx4Qy0v9G5cNZfgPOI3l67lkCRX07kyDZCfz9+/FtTMD6K1v' +
        'NBbccXtTQ+KH6ROWSZaO0jVjpfp4/x5Ey8ND0DyI6My7U/C8A60xg' +
        '4enIz7IXX0PEfoGm4UkbWqTcmFw5F48fwaWvHzEstgHeMOe71xqJp' +
        '9lffbMSR+Fq2B8u0ZDCmf6j+mAd6AXsvt/fn8OFpPFymcyZVchQOv' +
        'lSmfY7ElWk8Rrxq55rpuQ+nqfISJ1v7y/ijCQQQqYim91XGQkETrc' +
        'WoWy4NHPvn1592DXXgkWg9SpFIIT31Vfjwzj0ZpMBZtorWneI3Mdq' +
        'Tm0YC0MrlqSsCJ1p4iBcLbqolTZF75Me/HrpgTrd3UrI5Z+i5mIuy' +
        'ZG/VGnmjtI68uZo1k+1Kvph+OVkRdwSda+6hZlEjz2U3Ls/rjWg5A' +
        'ovUaLa94cvU+LS93ovVKLa+1LPrAp+RqT80tlseAt1EzgLnHWZ7tn' +
        '1JXP5FL6gwWzsMGnaCZ93ryRMvznPrKrAunDmHjq0zkPMZORp7aRI' +
        'Sr76A+pbFajl/VvHzOur+Sq51F+ol8mjh5l1oTJNO+Tg5HntpHvDq' +
        '8a41BxfuVonc48tRa8fsI7zJCBTfmyz204pEvz2RKqckVv8tMDxGc' +
        '1O5yu/qUg3jYP65yrI/hHwUbiAmDRxFxy3dEnDxskqvN1Vtf82kiN' +
        'yYZmBqQsJen8SKVg71+Z3DSM75T/IZCAzUjX71xF1RBTl7PVfkfMC' +
        'Ye5lc1NhfeJrOy8klYwuWz+hVvVmbYz5XHAE5+Z/AZ2SJuPEWkHX3' +
        'HaIarsMvVtc2mh85xbSTsJypSbvm1HPZrfVYtPxrBg4DRJOFky1Jd' +
        'MRj2I4R1L86Vh/MmMNKhaSAtbzum10nkJzQzq++RFmfJdB4M+ymSt' +
        'OC4QM8ptP8Ui8kuDxcpWCDOmDnvWUaIUnAOh72VJAD1idVXGJTDWC' +
        'IN1BZo5u14qbxLzes89VWZmU1sQNKD3D0S9s6q1awVRwbw0wGEIC3' +
        'yVc0Tt1cr0mRkfdFM+vEqPgaY3LcZ9uZCDMxym/MED9MS52UM3utc' +
        'EYoIKt4VRow5P02qn8gVVh8Z40JjOUOcKMZMluT4NrTMW6kJA1oSt' +
        'Lx5bJLNmJcjZIqX/k7VeOqrnL+HK6QCiZJFj7ejpjyfT+RKlg8r20' +
        'sFnxzAWMV5A1eyvooo/FQN4vAE6eJda3+uZOGChTbH8VURY4nf1Qc' +
        'nTUPV1IPNZGAKVx4zj+BqoO69Ns0lJtt15mauTBvvSdqX6Zx8RbTO' +
        'xLyDIqWPSDmRr73+a1RycIXIJSi/yhk1T9hA0ghOnsPHcRUvNwEmM' +
        'h+Xikq+3sYVGqiBpIUz1qQoAtjjuDqPwVzJeCRal8qrqUkXwclzG0' +
        'dL+vfcPoKrkwxch+VtUHk1wovPW+sBNtC1cN9ncUXqWEs5AAOuHfB' +
        'TPaCfO7mSzHglJj3KY0m6wtYXIWpnrpQQgKOfh4uk6LqTqyZF3qTy' +
        'Wc1IQ8Otm8HsydXJEjctDwvX4e0uTQWvbxOhiH81Ni9ZbI+P48orH' +
        '76ukozzhoRcVybz+lPkkMv3/oCHpaq2s2S0l+qiMnl/VkmEpPHygE' +
        '9KlqxMZWCuqs+rE3J1mYJ3q4fc/QGPSRWrXEPFeWGEFyUE/8R6lpY' +
        'TpfhpQjXAW+8Sbi+/XpeT5WC8gCuka0AekHXm5C51eX1equVgvIAr' +
        'VbXh6kuEcFKNz2xxA1rLwXgZVxPV5XNg96vTspyNR0Olql8xG6s1c' +
        'jKFWOVhebrm0lufOP90lXk9ikziYHiL5Rm7VO+A6hCVKpMAK38ZqK' +
        '/BLbjZ8nRdp1cSdTjV9Oab4m6HtTxpKa7S2UbmqndTGfby1KV6VW4' +
        'HrKkaWH2mdlY5/n3KQeQ1ruGFxGHqESrH/wee+NeJMjeSQaaeonL8' +
        'GRM1DaYvlB5Sj1A5/ozLVAaaM70OVcCp/VWOP+P6+h2UGWD0Sm2ng' +
        'kxtq3LYk9/5+rxCpmc5KYORM6nnqlyPTdCJXHJkv3qgyt+eUE7wE5' +
        'e3XM57sS3PWIqrHMZgQ8kIU89Sce6gVcLYlqcoFVQ57Fc5uF9mbKk' +
        'HqRz/H8hxnSl/y42Tl0rGqWZSO6scxsx3sj5NkU/qK7f0lkdCTe2s' +
        'cvz7LH8xOIAHnEFFbIKramwq1NRTVI4/zxKAhHzqVY2hjtWMmk89S' +
        '8XvV3LsKWITXLU8FanzKtA0vq+F0uLNnxdGknquyt9L5/s8Pn081K' +
        'eaQT/eJzlfvy5PTuqMyvHvE1XnmwbczPNZdzdDSr1DxUflAGBwhht' +
        'wtzKG5XlInVc59PMAAI6PCxKfNL9WnxiG95p6lgpUub5+BwXQOj4M' +
        'KtOnWoKucDv0kHqcitVkDp8fuYrYoBO1KY5Ny9QLVI5/n3WgvhaLp' +
        'QP4wVflRM2XJOqlKoceHJ8/dBXoPOVwJQ0On5+SOP2MilN69fRe1R' +
        'gd4nbLj5y6WuUwxt8BPr1VUugfJ1M/pXI0Zop15SlLdJJKmSp+zyl' +
        '/7746PpK0lFN6czLopHdt6qdUDndefir5R1QqlUqlUqn36r/QIDTB');

HUT_SPLASH := BitmapFromString(200, 200, 'meJzt2luO2zoQRdEM7Q7NM08u' +
        'YKDR8IMq1oOHLG1gfwUWZVWtdpB2Hn//PoiIiIiIiIiIiIiIiIi27' +
        'M/jzzP5O6E2/aCCFmX1guobrY8vm03+sPcscf72bVoApKCCVvXS7f' +
        'v13W7qkMubJqKC1nj41edHbjd7CK5ULRhO4i5mD8GVqurh5O4i3ZX' +
        'xHYIqZe/V51e4soPxvUlQxfdeff5urlTDaVwnV7+PqrudfGVHNDU6' +
        'x3h3c1U3HPKNzjFhCypctcw4Ot+ajK4qPv1SSODKXT9Xz9Nwpc0yO' +
        'rcHXN22y9FFMNhdGfc1dSCuhI1HF1xT+t5xdUqD0a3/eEk/EFeqSh' +
        'eUfvJKVN9uJ1/Z/lUvKPfwxR9W3+4o39r+VW8nFwCuTql6Nbi6Z3u' +
        '6+najb6+Mv/OgWNS1dHV5o2WooOUe6RpXH280ftkmqKClcmW/+9Rp' +
        'H19WMQFcuac6HvgyVy/3qtggrpa5upx51vmWtU6dljgEUKWP9HLgW' +
        'edbNjt+ZekcQJU7TwcM9/mRV8qnR9+q/oiYZckPfo9m/54qOp/6Vb' +
        'p0XN250o2DiooCFREREREtiF/j0yAfhilU0LpbPgwOVNDavMQduTH' +
        'gqlmJa4pgwFWnEjcVxHBnVKWPs35WufsKYgBV8CfOd/iCJwq+hyCG' +
        '3nimntox1Y+zcs8zOPzcD4TgCad/Xv33eGTNP2smvqHFh5y7u8Hlx' +
        'gPPpfU/qndXl29yQ1cpQ87d3bdr7Qc6xrgDrSeqF1eXb9LyRCe6St' +
        '9dComzXP2IenFleZ/Gx4mM4raugmPUunpBVeTKPpMUJItdWQ73uXo' +
        '5+QhU76IsrixPmrv0m7v6ffj+qHCVbkDoSkUo19XPgyROGFc9XH1D' +
        'Nf734B1cpQCoO3ZzWkFXzwfBFa6MqAa/FzW68i2uvavIybdy5X7An' +
        'V1FUPkexHHmnq7GqD5+P7ihq/RLZi/03eJydEFXKmmXqHBV6spyoe' +
        '/WH/98c1dTtPq5ynoQe+PT7LtYRutEV8a7pyw9CHjNEnGVdcLshe5' +
        '7Rcyv2eCGriyoilxNjeLlEMeFufdaBuZEV0ZU31zZHyeO6uWcaleX' +
        '95JD6u3K+EQ7uMq9Sg7JPdJ9UG3oyjfGrHvJCbl3seA9ZLm6fJwIy' +
        'CBO900HF8rx7NwUqktX72M3biGCyt0OP9RdS3dF9MAVFTSLCldkCV' +
        'eUngMVrmicDxWuaJAbFa7oYxFRuKKPxVHNuuIXjHdopaup313D7+j' +
        'WuJr9WoSvTs4tRZTFVcqXv5bDE4cz+603/p8lohq7yvpPBcbDHXKy' +
        'UN2cVq6oZa7eXxnZ7OCSCKrb0qpAFXE1e0mKq/FVuNpBVMRV8BJcy' +
        'StF5XPlWP37VYmHW44F1UpUFa6MFxa5ctOS77oHJ4sr4x5zXY3Pn3' +
        'r9nQnd1pVv79Wvb9xKVG5XKX/XOD6yUlzdkNZiVD5XkYK0cHUEKly' +
        '1T4JK7mp29Q4kd3alQrWDq6nV42p/UXd21ZiWXJTbVcRbcPW46u3K' +
        'Eq5ui2pzV5HPwKynOCU5pA1dBWnhSq4IV81cyf1s7ipCy/Fm5B66c' +
        'jK6Cm5k6tpSV7/Pl6toj8riKriRyKdKIqo2ycEkuloZqMbJwRzqig' +
        'bJteCqX3IquGqZnAquWiangqt+yZ3gqmVyJ7jqlxwJrvolF4Krfsl' +
        '54Kplch64apmcB656JPeAq2bJJeCqWXIDuGqWfPu4Oj35onHVJvly' +
        'cdUv+WZx1Sz5TndIvoVOybe5T/JdNEi+xA2TL+Xc5LvbOfl2Tky+t' +
        'f2T7+ig5Ms6KPmyjki+puOSr2z/5Ds6MfnWNk++oEOTL27n5Ns5N/' +
        'nutkq+jjbJV7lD8i30S75TLLVMvl9QtUy+YlC1TL5lRLVMvmtQtUy' +
        '+bkS1TL50RLVMvnpEtUwOAE4tk0uAU8vkJODUMrkNRLVMLgRRLZM7' +
        'wU/L5H5A1TI5IVC1TK4IUS0DElUEJ6oIVFQRkKgiLFFFoKKKEEUVI' +
        'YoqAhVVhCiqCFFUEZyoIlBRRaCiikBFFYGKKsIVVQQqqghUVBGoqC' +
        'JQUUVwoopARRXhiioCFVWEK6oIVERERERERERERERE8f4B4ItDfQ==');

KV_HUT := BitmapFromString(200, 200, 'meJztXQuS4ziunKPxaLy539vu' +
        'totCfpikZKumpxiKCpkCgQSQTMpVvbP98eh/79V6//9r2f44cGZ53' +
        'F2Hn+ue6xd5Cn/aVaT64dV/7RrI0351v5WZ0+PLye3J/lwfuLDvQq' +
        'B22PXb//iz/yHt/Yn/XO+52uuNqzBnmOlGr45mjleDnzZ8/PP07jr' +
        '8XBdeDRrt6eHMHppgjyNzhnP2a340fvww7V92tV4PoDa8ShUmUBY1' +
        '5OHDMurxKJavta28bg2uRoQ/13e+2qgSwyQxoKcVUKvyZzoeRIVe4' +
        'W6vz8+1ev3umupdeXrg3pEzBy6NBsifR9UoYg8KWRH+kO0bXyNhum' +
        'ZRY2r2v6szLXp5KE9fS/Dp8aYdl5CPd9ft58ILaVPux5k2nmtMNF6' +
        'PDveDwZ+ffgxUPLDo1ziwdMRAIf1cH7/aUXYKlyqRBvl69bo9f44U' +
        'asOjAyUe+ihUTx9wLI4AHodvi22YwUxvr/Zff41EKpPl0Rc3hrZ2J' +
        'lNjl78o94BjbrQHt4f7B5yMjwO1CH8gVjFo9Oz+uS66GvzlBevfX5' +
        '16EMX4ugc6VTKMH81TajNieBq8sL3wd7FTfq7PXA2OM2kML1H48bc' +
        'Z+anI82AsfQBpX6vQ8ohQ5Yiplazb8XD/91734veVLPOVMMP4WlvI' +
        'A5aVG2j8OLLOLEF7Xdg2+DQE60eO3d6gf+9VqlcIVkk1XooDr6dqC' +
        'V37ABaZj2VSZNTKHyjBxsz88GrjaqhC4iteuT/UGbs8XoUwZQnlSU' +
        'KkB+Pb8HOE19jHgr8k1UC36cztHfxuV2OMkk+fvWtD11rpu6ETcuC' +
        'hpenB5KtMmiWPI7UC1X0lUqi1UCVt89+5XtVrrJgNG4FNVFyihHmA' +
        '4OBT5BKGUE5oUBP3ad+O308bkyxavcP8sByr+h+5GryW430DvjU4M' +
        'up9mcGB3HgctYhyYCQMZQ7tXUFYgtqPY+JYsdd8E197GxyUf/31qg' +
        '8mTus2PuX9LcQoPwtnqEGynHKA3pR744e+wx85M7KlM2H/8jB+OwZ' +
        'jrOffdGFemDtaHp6qXkxbD42T9FBL8GMxo34KQkVFYE4blrTxZijL' +
        'aNyOltX5X0qqUoFXjvQjLUUtC35EYnhKsOITttCbwhPEQCfRRo3BX' +
        'hWHQD2Wuiz/y65Gf5NplWp8dChmKTtWVbRGdrMwSjEQl5dVlDClFD' +
        '4ihYq0DH7Ndajtr9HyXwD+e65Xjk0rla/Mqz6kTbMukObSLqtVtOk' +
        'FT7kZMRhsxafJ6MG4+hytc5I0/OvV0UPTxf/+V2M7pTF2NShRK0pV' +
        'bgo3sNG+WWUUJ8Y+IQaGUMSbogU/7Xnbgi/Uhy4MSIrBv+saK9CPG' +
        '6SJk/Er03FJh76re2zcOG88lP4ih8cLeu0+UgB0IAaVY2diPhi340' +
        '07/jrC/PzOF+aiuFQzGoXr+P26tjX8WDwUV9g1NdM790w7jsOAoVF' +
        'MaLhpmN2v0YaFrSDBDfI9OLNgOYyvtcePDYtgsk7qoAblW+ldaZO6' +
        'p2BoIJoOxaYwF4SAv5WnEL0dfw/Whs17aAd6+E5XG867QxYvvh3/c' +
        'lEz8uXtjAOms6FZF0wrEUdLY6+cINMMnylIivn4qPWDRh1u8PeoCu' +
        'd3utoRVRvSoZPtmdFr8suYlrQDPRAGtVEVK1VF/ig2Fjy4nNIVXXX' +
        'g0pS9llQd3x+Gpw2iNHiDbbRQH7h03Eb/4Qdb3lRGpVOqX6pxWNLy' +
        'E7pA/ONyNUOxFf+Uq4i2+PSpYWhvc5xv4rxoT2+vm297NZZao390w' +
        'GIaJmPRlIHqez/yBGNRYGVeLVeoEEM/EoNmV+5VxZBmz5lWfs/wnO' +
        'zwdbJ9p9/PtxH8cb6x+pRcDpO0lcUDpQp+xOXmKaUchvOBqB9kFFJ' +
        'LRVQG5aaUbphp7M/WI4A2fvv+TqQq4Bv9fd1zNJRfWroO7aM1pwbF' +
        'oSGqIoaJ3nVbfUcwTRq9eDZFMOR8NuL3fWOiNLpqRxjNJ/KZ64mzH' +
        'dG2kV3HWrXjR1IZVWqkRAc+FOfKzLemBPIEo/PUSTFQ4EvuijwYSK' +
        'BqpRfPn+3Yi9f9Yf4mUrUnkprpM6MDbHyhwoqVJpq+GAJQD3Q5Oi+' +
        '9Uxioz/EmaU0y0Bs1EKQaRys3pUr4MnwTqXr5A01Jln2rrU3BgiCF' +
        'umCCaavhoQqNdUbklBK4pDyimCkJ0Yk3U1wqDXrejPfVAPJto+UHL' +
        'wL4hQfLPvxsOF+G6r6it6IQZeOx7HwGe0QNqHOamqIifWoGpa5Zaz' +
        'g/2DT60nLL3w1ppqXRlHJohm2ifJjiUUgMQkUPxStsE41SikM9F8y' +
        'eAGbV45/o+jVaHw6XY6D6aOAVKcJbeTVk9wLwQoU3pFxYSdpB3wJK' +
        'PzpfIipLtDEhin8ThabsQ1P7g5+MVE9qNeO/ej7yquT+NlK1I5hGM' +
        'Q9PZZ2RRcVStRWf4kK8px2kSAzUEBhNh5aI0pIiPDxaIVVRrWG0/l' +
        'QG88vGD5BqaEorwB6PeoOo8CN2rRRcAeDV1m2lP6mH0RWCoYBxieE' +
        'zBkIPCKyu2uRV8daetw3estoTz+vmraRqWAH4OzLvAq2/L+yUYIai' +
        '2BE1qTAjntChWU7xo3M6c3i6zivlECrQEGeZuZpUiKQdSdUKBlMrr' +
        'HyxKfUvSxTrinMsHQVDIdHEKTZKFYpNecYh4W0w6h/nf7hp7M/Q76' +
        'ZWg5elVlO2fSxVVaUznKEJKs9qR4xmtM5qRuwsyX+8Qculsceo30o' +
        'VZNcAakPkl18mNP1jH+I3LMIZyoeXwYihrKUAsJsh8QwfpiTxlENj' +
        'heHP5GlS4TYc7tsRTGN/m3sXr56jFbXMx7SqpQj4Ee9HJ6V0dAbrU' +
        '2CoJfiIJqKQK8xmfMXaJtU/h0NQgX9R6/Ho8Duuw0dBj6Yfmas947' +
        '9uorK8bAQ/iROW79dN6YvxiQAKEnyqMJR52hrFtxLaJKjC/bk/x6v' +
        'yfjVNUKhKU0/3LlaN9vpJazsusXvksFYxkLaGUmWP5xjUtzsMioDp' +
        '7qAL681pXoWVgY9tSLldSq32jNNKufKBS7AvhlSlEWhTnioMJQoaK' +
        '7eGcgotZnqmaJfoFQUwA9/Q8hJewWg4ZQpSkBR4BaSaLKlRP+YeS4' +
        'dmvuneRjG8s14kHrjNOVItjuZxnuYV+q8z+TbERqMOlPojzSgrPCQ' +
        'jNTnmES0lKnobwRsYcwynlcpkpwvYYLpd9Q/gp/+8U0DiH6lqFZD9' +
        'WH+vLUrNUNYM/ShzlNnUp5k3w+yU92lUiBOOwva6P8Gr12jdDlSY3' +
        'LisKvTYizJdO7VHDPnC6aPQ/t1fABPAz1K34eef+St4tQzSrKWsGH' +
        'WmAKBCNM4ohEZ8pjI1TcRQ10wuBTpJqjOhh9HU/8jlBK9accXTDzS' +
        'qIMG1yJnpktGg3HvA5ZFnu88xyXrj0R+DE3plDsSkX4oGK/xpyv5N' +
        'AwUH6dG7/Fj8UN3zKUxLGoLPHyX+KaUvpNZU2+Omt9H+TbyaNppaF' +
        'uNCIboW2agAUId+1dI+UvwJpXJ1XEWt0p0NpR2q2p43y5cJvV002u' +
        '4yUyYN2ykZUPqSVRTDdgsS/6G3/626glfhETkb7ZXIlli1aZWWhtI' +
        'KRafxkSe5clUm/Tbxj6YYqBPPoiWCvY9XSC2P2e/3UKyWCoLto11G' +
        'kDg/daioiOkjAHRCoxtviXM1cgGs9h+hVum+qfP6Odjwvz2S1yEpE' +
        'cWMskNnqBNDddPrJKMzWXt13XD+GV4hMDxESmtipWqjc7/BXR1mO7' +
        'pQSNXcKJgKR4mqPnrkOf3Ob71kfOwtK9HeDV69FpZASjQSbGo7JH0' +
        'sqoVbxkSn1KILp66SYUQyXE79PN7zAj/NAo+PYgNXg0e/Zxp68Ikb' +
        'qVGqVbhhUsPsyk+TuHFOHy2pU7KjzXJqY9x+gFRhxzeu52hYAbxXf' +
        'Ula6ZUhpAqV0+JcMfOkqtBBcZpCLfl8qzqFMAKxkvJlHHpeTTdy2M' +
        '2RCTQR+siD99o43Q4Kp5+fCnLu9rFxCAolLDeoRXRVsSkeNgiWSIc' +
        'sxWyf0uWYvhpTJvunyEyDzXPjjPRNE/wCs0UtxagSyEhH4V7vBz8Z' +
        'o1r5+3Wh6OjT/ORlmUmNygKTyrlXsqCokiJvD7prFMJiQzAvUqv3W' +
        'ltV3gQ5Lt9g1NSnrwB3sz9qvirNgoEysDCTIqeedWLz+4InHzydVe' +
        '0aFExhe837dFao1UYzXEt94g2r/xkuTTiGyuMxq3pud9nYlHYkDU3' +
        'CfaW2x6t/vpwokOZnYYifgf/nkUNGGJoKF8X2HlL9oZbIhSsS7ZGZ' +
        'DEe4lgKYwjP8/5PpCWr1js2SykzZNd6rXvwabfjJs1P6ICr27nGI6' +
        'PegqZ4SBJ8mVcLEf7GcPqJk+3p6WrUwa8xFpUw39ZB+o//9UrpQBY' +
        'VVnxkEbakA7sqClhbQG7N8ySO17zrUmQ7cCBzDOdUaszDJUnbNeEU' +
        'saWWwR8LPp2j1i1qK7apl4TzNV42UAzO6Gm3skNrj3Gn4eo03gBHb' +
        'Bq8wKUMzdHt48kFeYeU97c0GKYnT5vqyl+KgQ1XeYqNqjhHP8MrgN' +
        '/OqnsfatpII/ageiU19A6+Q3moSc6FlXFIS5b/3CkD5VH4MOf9Ynt' +
        'OrRKxMlUqauDXGp2g/Liz3rBof5ZXaEVOa5eUqlVniSSGG95Dg6di' +
        'yE3pF4RkwZt9R+VU10ULHF36WVA/PcHo/7em0yFhbVfMpdSk2YzPG' +
        '+opyjlQJtumgDElSM6uOSG7gla/MNEfjAb35GWNZNrKB51ERZb6CV' +
        'ElGmEJJUJ0dowGqU6kJatcfZ5/lVUnTqE0iVqaeip9+OSsRN6DhfD' +
        'p9hVdTnxv1UZke4LEXkmKAScHHG3iF1fbVo2VRj0wZQ8slD7T1tC/' +
        'jx5BUShMMzmlSZteUWFS0Edi46uDpe/BKzXip92Yo9ep+atCheiHO' +
        'YvC1XDOq677TQIbVSwNJQrmEM4yr9/CK3vgDaLynbKHzuFyFmD6ir' +
        'rrIhc4rP0kf+zHHpeG3QJKyWqKpeA+vaI4mO6/eviY0kCn1lAYUmH' +
        'JLUzYhppkmVcJAhuThjMkFq/dhVvmWhRzz1VjdjFO36HwqWa9q0xb' +
        '3uONovyFWHqqJZcy8rvY7eGW2tq8GPSxM4vQcCWOdmaQ2U5Epxifl' +
        'ZRpo9enLBg++zgr7eV71Y6mVwIZjWuSNLiRMWDqnPE8SDx8YSlrLU' +
        '7QUOnwnr5TeJieCSdxbev/JWCJJWXXhibY08vcKepSok50KRf8e71' +
        'd5BWi++fIwbk4br417SD7GN0okpT/lcAlAfppX/nVorzIb46rzKN8' +
        'FicNLhHQ7CrIL1dV8PLr9NK9oXtM3lqX27dlQY386T0/k0MCbeftV' +
        'kdRMkB5yn4PlDbxahX35uCRi+EJ4Ptw7xHzpHY++D89ifZpX03NQv' +
        'TeG41qWhqH3XvPMqjfttYQY6j3TYGPHzW28mm6oPRE4/95+3mFyNr' +
        '2JQu84EZbSed5/mlcCxlqOqy8VxtX2cupQAdt4T9s2OFmNbosc7/d' +
        '7eNWPNR8xFxvV/W1WLL1aqOX3jvxbzPQ9fyO0Oh+P/u/hlcdGE7n8' +
        'ZfsSJ+eV80K19JPvOA21fN3DK4o534ar4x1HTxj0ws5eG/19wG55v' +
        '0rSmdLgrQ368EmXh9v71tlnL0XlJeSS0+HDrLrwRAtScx+V/SrCpS' +
        '+tZ14RcwoVz/Sezng8oSZ8Pf84r3xNtsfJN/ku2pEszONO34JORt9' +
        '4l0C2GGGMa/uNeEVzWdIZlXvepj1uh/ulnDX0KU5OPSfEUIHeNr4v' +
        'r7aSmc9sOFly6OlBexqKzJKsTallfPqtOr6P6Vg38+rDL8lh0M9/L' +
        '8i/whjjxB5pMxVM41MjuZlX05qEg+6yZNVnhpKpETNttznpppMKQD' +
        'H2dVOn9mx8I14tIr/GFb7wTL3RF+aNQMmboTFTxuZQUI/CN8AE1de' +
        'nO3ilTueTpKKulo6YKYY9hNs+p1lM4+akSpaYKEdv9/DKg8xHyElv' +
        'tqE/uc0GH+jrULJKJVLOu/Cj2qRZzW/mVUgGM6/SNN2hJTU+t1V07' +
        '8Qs9kvvUV1wQIlSkRp6DtKFGK4a3sorCiw0wxLR3Ke0UW7NmIoDPt' +
        'rjmIlSCKC2ybSYimDlkYcHHL6BV9O9RhMJNWRJElV079ZQaCnc3lC' +
        'ULmpjlKoDH1CjfL5BkW/glcVDcjeW00fFzLMxf7qncmgwPXSKpQmk' +
        '5IsG9T5xLXVlT4obeOX3+3TQ1tBCbYeYBl012M40dxueAuakM1KWZ' +
        'PGtzsFcCmaJXDYSkPnaM3G7zpGqE1JlvOlAJ4UhsZxn83Fe+Yzoxz' +
        'iZnVVqYT65ugQ7Pj4yDUV5UVHMR314ObEy6bAQd/IqpAHNOl+lnvr' +
        'G9VnlV6MbClEbT1E81KhYlYUjW0osL2vofzbu5JXGVFP2ltMNXu5V' +
        'zUNI3iC37FadvCwoUk2lDMMV5Go3Lar3bbyi9Zwa+HQ2hMUMCmZJK' +
        'n0K8d7nq/LdRFUOLT0YtLTIb+NVt2X3SSV1oFF8i6chVqFOhQJ3wb' +
        'TRHir1g0JEHRa5W2I+2NzJK4rqwkPK7GW/zZNjwsedniDKw4aYoAT' +
        'hsUjVhh58StBChj8n7+TV3lFF93h+LnTdayUmHmqoOUuEUS2m2qtO' +
        'usIuCpumeeZ0+LK9j1cJWrNf6ORGiNwmXKU6nkRRWkHZ0hkxkJNlM' +
        'tlWFInvRXV2N6+SkS/0wkJ7MXVoeqFCG4nojDDqqFJ4OpCN3qiPBr' +
        'wi9jSpo8E9vFrn/6QC1K03Sxz6hRg30U809jaJblD+KNWiaykzC6S' +
        'wTb/M7uGVqmfyNFzl62AYSFvpb5TxXgoKTMKWcbni2HRTJ7veq98t' +
        'vDK72ySiLE0Hp/JCjSmpcreIbXVglajUUE0zqoV4lHxRSLlY3aJXp' +
        'lO5EE1tppN9xsm9oTbOknIqbnQogtEuRadQ7gqYPOvD9Ad5NcW8Km' +
        'JT9Rstp87D3arUIxyUS5QAaqHXpc7ISWMlHVnN7mvRTbyawVozU41' +
        'IakVPkwSVOYyStfQYwntPG4yC9PNOytrpfk+28Od5pVqTDHUc4KSv' +
        'DD6a7lyMpSjtXSWWtL9T2TGcoTyk/s1OLGO2+z7NKwojlwiTkS+II' +
        'TD2K4niNUopSb6EWlLxmV6dpa9EL5Oj6oQb3kcqBZXmGG4ltDd0ou' +
        'KjemGQoGhQyynffBZUmjzZPMKkpEkXaMqfJ9UqQ3w6IqkFG/S/ISw' +
        'K9lIT0XOoD6i6hkIGVagAyZ79c/spUu2NsDuGV7lmKm/USdE36sqe' +
        'F1KykiMJWYFqRuXLAIs545YM4d5FKiULSztlOhKBEolPgC2BVBzzn' +
        'PQOkSfonN6ohZjOGV1VsENXe2U5P5KjTa1S4u8ncSGFUZz4beKPMK' +
        'Mk40JTcMwUqTLdX34X0FjK7XRs6HM/ppZXeMkgwRDab8Tytc1367j' +
        'ciAZ23NDbqBb1sNfia4ff3asNOrnHp9vfezBjmpEBgH5yciaiOhLD' +
        'Cxru7lDxOlTAoELYNG4yPMOnyM9vB+rK3HsC08lEFkzW2HETQjEnz' +
        'MU3nWZEU1De0DkNp4KuMtnM4KNV0Uiyo73biHXGeKkaaImyMNVYmq' +
        'zfFMkSA7LcmLUKtiK/n8kRrkqW2XcUgEoBF16VVDLyPoY2uQJMGZU' +
        'U01BXuZ2OKUtD2dwIHfrss7Ng6kc98iJAZ9BzESIVV3EAPdCsKaqp' +
        '+ilI0+3vC1sISdeePFOS5Z5y0xT2Zjyj0CyHF2q+ieWXTEP78pakP' +
        'Pdwubo/I1+5/E6XrI4lnyqvhEuvj55RyfGxOvLO4rxSs5Oo0AmGMM' +
        'j3omwsR29TY1q3QrMLm6iMpzR7E4ZcxBTCBFtyCCpFQvslsiVKvjc' +
        '2NlFiYAR8VWAf7FVkVcfC+akruuM8/abknB5zHqfSTGpWkFMYIYZV' +
        'hV8aG3Fzh1ed44k3Kix46JRHlPM+6NSnB4mWlwhUbrC06mQ3w5PIv' +
        '29gjxJl29Ao3OM58gL+oV+BplKmSEIXon8PMjHwmjAt7Fv1Sg1/QI' +
        'ewc7omokFPCnq6TYHhQrM8R04dFpZuk8rDoDerJ6N/uoSQKkzZ0as' +
        'j51IewmvIlNJ5N6erljiskC8pz3gfsuJNatOBscZM5VjqEB4BUxuK' +
        'czpZkNAdGpbdS8p0eVlFnShiYyDMxXBP9RQ95Lvjwsnpo3zhlL2JU' +
        'ITkx7IvkQpXqZlkhPiRe0p4w32xCnXKCmVgFHUq8nRtKHQemDeYNs' +
        'LrJHWYHAFer/xaXILelO4ZLqm4qxQyNAiX0KdLxfEYvFafhKo6S23' +
        'whobYKCnaY/WmUDujio9SFpZAinKrAovCSGFsS8dUA6f+KVd9XlO5' +
        'M9t2D546U8KxYaka7fWqYO6MPCZ95ZwC810w+zQn3qvsIRmmxOiQo' +
        '9fzVcB+Oc1FPVU7ayrF1InpPl1I/UwjJmrgNTZHuzoSBfB0PS+YRp' +
        'RWJ/dmKAxjmTx9OUwItjRMm7wUqz0SKsO4cKlQ1CZk8lV1S/KdZjc' +
        'Kr5ffu0Zy+tCZk1R/mSlqhXxbEhNsk0/82n4pnxSGEnZztNHdqo6J' +
        '8wMrX7aDwlCceL1VJyb6RPHE7fmODTjdO0t7wThXp8N0y9B6Kv8Yn' +
        'fbUR8+HSkSl6Y8VBWwDJA3XId+8uZ1VeNXPa8lS3D5r4nR5vsowk0' +
        'anbdoOasqbiL/aHWHTc2U229MrHo2+V7ftTdGhqtOCnIehxFwdK2p' +
        '5CCYftF9ec0LMuXHy0TBq1XmuP1NvS4PujmQz+tbsbQS/kUMnfvIB' +
        '7zPFbE+OktDhMB2h0Y1ZgRGC9xKtiGp8YmGnLV7ajOHyM9tEhVD6u' +
        'ZHUkvFqBZIlLzNPM59sntSZA24vhGqKScFsQLpP3zHUKXPmFMj1OV' +
        'HIac2XqL709GWzfXoag6RKIf/p6ZY4nHrOh/G8JM4KVXIMLTlfjbu' +
        'x1ntTSviOkeuzWqI+FtXKYy2NlyR6YacG5ztIJ/ckcckSa36+j8m8' +
        'qUDIVe88X2hEUrkKJb34oaGnuzWPS/k51bTQeTgKhvAsuBDkXhbn9' +
        'w6WHXO/sMIYqETMQ28r6iUHeu5WvdWYTIvBO8gTHmEb4d5HoXAkuj' +
        'dV2jMVUN4ueV+66kXi8jN6QzBXx8msN477C6N/ckzfJfZ85o+S14/' +
        'L63kVpUO9Pb+dlbfpAXEGhh/5WXNVlc4U85tvSfXSldi/ZvY28iUb' +
        'MBHGvVfQxPm9+vDhcVXWtDWm1Be+5yj75H0s9/yBF/73MfB9Y+MLV' +
        'DHbfsfLYSSv3Kvv6sm46qT+2LgKwIWJXP5y9Zj9smVjFPU7/44Xzt' +
        '/ydebDbt831OvEEjFGLp15bzH9Td6plsZ37tSZvfO+4TuYv/w8jr9' +
        'yfLDfQD6Ov5zM2VhclaONTvrs3lHwbT3/fPf9y8N5PKqz+WZPXrqQ' +
        'cuM9pWvyLlSKg4xdFbSfcXIbYoP2vrOY44bSgB6d6Cd88zm/3ajEe' +
        'Sd3sVHt33CezqwaJEvMzLTFG4cXlSw8zugB56MjN84oktkpG67OeP' +
        'BLlkCaUmCtVmHTatP7qRqYPY488ZAQgPGgwKsT0Ozl8cKnxYbmoh5' +
        'RGVdRwrHEMUwtd9VZAdWGPZmC4psqXYJB5e6JhAtN+tNYdFDAZgf5' +
        'tV4EErbQvePtDfJEVULPyqzECktn8EwbUWIp/uQFNMBQvhCAGXRtC' +
        'X3JblV7dslV4sHvVuN/unPDbTINZPwrJRkNqJNp40wXcjGhrnCgJS' +
        '11YuD946RH5bup2GL6bkg4bVyodQmMEiURRipEuNzMUFSGzwp5jpa' +
        'iKkxORE8hMfNd9CvhW7hfDP0Szdx76ved37YjPLWFS2omU9yGmLhi' +
        'YwKV7kelCSqWVwAFG5+G+5SmoDB4kihIXoXOEFINqjwIprPEETBd5' +
        'ak4RYUA0JIiKVCVW3SCUoZZl0uFpjd+YH3oZqSrMKmpTZlXWU+hmu' +
        'G3bVIxjypRj4IBbZQH019KGxrOl0h12VtOm0ud06fJmG7VhOdGCox' +
        '9DrJA6qyYtKG+mJ45NBZyA1dRzaHkoQqwISzhTqcOE80xqzbQ4swU' +
        'pFmbgDEaQhea5vrQVFKUQ8MlqjwdajU6UTBwVcgxmgt6UJPTEXLSN' +
        '46u8tvcpx9uByovGEVt82Lp3VJ6G25QMMqDulQUE1GRUMEzBaQA6J' +
        'g2Qg21U6gN4pn6N2BMaOSMd6X8KzLgLvYULc7NDUZHOtG1U57QYYg' +
        '3ne+6RKsDUzBlRzCUV+hfefaBjJ8wcUUP0ymTLH6crlW7RtGYBjI8' +
        'NFcX/MGMpo3zT6ft8DVMdmu40I8ptei86iB9RN2qLeYL65H0Y+Omp' +
        'MJdMDpRzKSoEuHyGakC+spMhwk0DT013tgj3oB2U5Wd6lVSfB/ddN' +
        'yEKGAUbEU8k6YHv8GK1S3fdTUwKeUtVM4pkulTb2lkebrLfEO9ARv' +
        '/B4VaBYg=');
Title;
main_world_overview;
end.


But the basics arent yet what you need is a progress route as you can seee+