PDA

View Full Version : Script RPG Template



wantonman
05-11-2012, 04:29 AM
HErEs a nice TUT for a casual rpg... Whits these Functions And Sytax rules you may proceed as a casual gamer





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,KVILLA GE_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' +
'+WZgM6IPPkshlqAQOTJbjHUAqdIPYFXgAO8AhHAKxDBqSeEKt L14F' +
'54DbShV3C1CseZpnml+3mzvNXz4H67cFFLdERaaYBPmldX20o TiNs' +
'ZOPIMr04vgVeFRDTf7pX0u9vpJfleEbnNpnRQB4x3ldt5RRvF Kb/c' +
'hISGhPZZvVJ0SehNg2nRMIEH39DKvdI5QF+icNVel9SrOO2Tz cn0S' +
'mSLo1ei20W+VI/xSjfToNN99b61VJleuXdDV9pTvQqajjqBHK8iev' +
'Jsr0Szjh6Q1/siUyr1ifAqoZy2XsU1R+eVtIeK0hybnOnV7jhj/k3' +
'eAo6bD0vjZ0XnluAVJ1tHrxwliUtVP7v19Rdvr3S09SpBqnt7 tXWJ' +
'R6ZXIrUcm6zL6sFeiacm94pS6+dG18er48obSdXHK9qfJK+uv 1ri1' +
'XbxvaRq4dVooPf16rQtQRNvJVWlV+Zx67yKkEc6zYiJ9zGqxi u/Wd' +
'/Cq6FaoUZN4ZX3rKu8ku6QP75yqZK8ipm12iu7Wk28aitVuFdhg 7Z' +
'IFeTV1bZVXhVKFehV5KCNUj3Dq85SOXpllCFTKv6JisTKpSo3 Ktkr' +
'WolkqZiH6nLbvwKvgr0ixEiwSKEWcxkr2/ip9ZEKXl0dfTzd6pWrX' +
'c2lgldXR5+ebpXKz67+Xh2T1BU1g1fOeeZOrVYtRUWP9Crn6J fNru' +
'ZSybh+g+8mAq+4lM+0FnIQp+PgD0s6XF8BKqWa3K6RA8MPJHR XLTc' +
'3zRCDRVWSNs0mGBzgwBdV+rHtlgQNsRu84Vo6SX9g4+A51g4k jLUW' +
'tgaWNsKrc+LGWgvbBGMD4dUlvgPtAFsGlwZCKgr1EFuR0qujG JCKQ' +
'jTBhqRLpVYrJ9VGcMbXkxSFaE9g1AD+NJtQKhWEEbBUq8KngV RQS8' +
'BSLQyHNlLBKwGLde4nzTfvCa8ewuImlbNXckMUl0CqQBbx0C/7L9+' +
'KkMpdAEiVzXDQG6gRSPYhpFLfWAgNhpdAqhDoWW+I9comlcIr Yk39' +
'UJ7BccpnBHpllsro1XZZ/TiexKLR6b5e1Te8PZ69WsRSuXwH3FYBr' +
'zrg364l+051WoiXV1IJwVXTHHZesrxS1TJUxfFeNyfqLo3XL/Fe8W' +
'qRiuF7u5sTXYu4l0T/z5gCvPKSc3IU/ZF1Ne6WJUkMXuXj6NXptfB' +
'qTvj90bU3xCut85ycIVWmV5YmO3slL0eqBKSyE9RnkVqOXimy tfcH' +
'8KdgmZRiBy+pcvpTPrX+cMSg1+Tdstr0p3xq/bF45bIJvHoqOiU4O' +
'wj0WzpKxakdqLtX71XXzgBF9z4N9PKKOmiBV1GZd8iho1c9pp Omls' +
'sRTd4IFq9oqY5FwSv+cY45t2ogp7GxXhV1Y1hd5giq9gltoB3 OWW2' +
'9yhwTvEryqlQnIuHMERTuIz2Onwy8YnbP/RTLWZlecU5JU4vlVbVI' +
'VdhN8PVKdH/gL8u5ZcErR/hTkG7FOYifT4RX2+O+ny6Qyg0vr4abc' +
'E4hkpH6oylngVduuHjF2cTolaU07iULpPLEPs2eXolZ4NUA0S eN5l' +
'7l9W2BVBT8DyHD9Y4nMvcvk2qd2qthz3UztVvh5dV2q+z2Ln+ kKhO' +
'7CMX7PdSK7SaOXpWxfHvFT7JpFWapTotSz9So1jO84ufZuhCz VGo9' +
'REcwt5rHqxvUUuGV9Aj+bjeWisyfs6w8+bh6jSXbveJvUt5SU RMcm' +
'xytxHr9ycRiS7lXd6fEK2lvdZOyFGIxYbgeXkX0QTostVTHDX 29kl' +
'4Lr+K8cjFBrZa7V8xewatQrxSTqvJKly28glcRXkWkcVPglTF nhVf' +
'HleUawKtV+O8ejV7xbeEXtVtf7sCNvFK8ndt6RSev9urZRHil 67zo' +
'6ASvXDaHV15eSU3YfkmUHv8URSEKaekaZ0M0OHqNdCKcnvM9k a6Xy' +
'qy+tnzEfbxitpT5YpxXivWcrVwynxy1Vy4e5nu1XWPpSfngmp PpTx' +
'Ov7G0pn1p/3L1S+OboiaMGkMqCuyeP8QpYUGszXJDvVfkdZv36pny' +
'mHeDMglgArzan/6V8rOVwBlHo1fEqaS05Xm2lgldXs+APK8Gr7YWK' +
'clJ6CK/Gg2jolbqirB7CK2oKz/CKi9PRR6ng1U9bxrMmFoi8Oq4vK' +
'Pn/Q3dYGwivTtvCuoeIrGPeAAvqPUplU+tUKnj10xmH7018qSq5kk ' +
'qrFqQim9PYBEdoqTRvJXg1bNHTpVpJr1bxZ3hCKnj1b6OeK9X wTiW' +
'8X9FSwasp4EvFVgtegb0/29DesiDV7GzvRTupPiFUC1KBbwijfsPP' +
'q/piQRoviVqMDeEV4MZOKlIwSAW4sf15cHTvglezIw3ej4fwanbo z' +
'1THOP5G4vzv3+HV3Aw/rh/j9JJ/t4VXsyMNwsPNtvBqdlxifT++gV' +
'ez4xvvbeHVvLjHe2f8UnRetrF7qov3T4WQamqI+Pz2gF6wi/fOcGl' +
'efONXs83+kGpS3KO8IlCOV5C/bwcz8no/WkL1X1KAJ+MS5VWAhhiD' +
'2LC8NFDLJ6R/77yL9ewVMDm6OL1wPTwF02KPq02qKgLlREd0/qAno' +
'ZFWBehGaKRVAboRFIUVgQ64xLp5fFVXBDpgj/ISQEO8orwQ0I1jnL' +
'54FeX5g8683o+iKE8b3AVRbK8qzxx0RhTr4SkApzCDWFxeAug GM+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+i vVCa' +
'mKIHSVRT1f7C6mMYV+EeQ5dVbIv3by3+q7+OoquKsmO6vQWUd OK1d' +
'OVR7ptXeHD6ao/raIKTKtYPV3VeM+eT1fNSe3KMDykq3r1dOVXnze' +
'Z99UYboxqc36lerryB5A09kgEXTUnKYD1tf6udk5eqZ6uNu2s xXnG' +
'Oic/3uK7aXRVyXohGe+ro5eM/xbOBwlZ4wuxfc0fl2bual/H0UC6K' +
'sbc1Xpvnq72vRTcImqNb8PT1WJ1IV1l11u5xrfRvyvz2eiqc1 drff' +
'Vdfb0pXbVlcyGne/vu87Fp5UWV+r14Q3L7T+33EqjSX68wqjckl/R' +
'otrFRXT2OahvVmLRadbVpdvMu93Y1IK2GXa39Ht3FcAx5UXR1 NFl4' +
'+NNjyKMa0FVqANlbKvtSEFXPALKPfYuUV0V1L3iBDOgKMqAry ICuI' +
'AO6giSICpIgKgAAAPgOfk6AWPjHMoTD/z+Cnxf+sgRk885fwoFwDL' +
'/TRVewhqIgnP5RkXE9fvW3REVaR+uKWrg5g4uiIq2jdTn37Izh9 Kp' +
'Kv3RVsCtPVIu72KKqUSx/YV6EbVH+qE7Tijp5+K5IyyNxc710BWY7' +
'kq48A7PXRVchi3pzV7aNvRCDo9SonPOFG5OrbEWGd8/wzVs07Iq0/' +
'FsqkNuwqMezyW02wWzKZvnPzyw+3zaq9dnkTjvg8XV64em9eh b1eD' +
'y50w44re1fa4ikubiGx4s6hn+I84Wwf/lmV19vd/pa03qUdxV1kow' +
'htkXtNxOeltZpn67M7pKeqGdXv25q+NMbbfY5SfacJmmZg7zL Zp+T' +
'FHf1ODmpK8PkDjbr04o6Q9QTBfp6YVeL46XeK6+rqCeKVSbvq jiq2' +
'K7W167nF3R1NNDmuiat04H1UQWm5cwmdicNuwqsa3+UqqjHE3 omNO' +
'wqL4C8Ykd2tXm2bl05B5pd16S1v1U52V39+RnbkBldOdM62qo cz9I' +
'2r1oPjFLmH1jQlScteSqBT2q4sCyD8IHrPQQe8g1RPe4zu4ey rvxf' +
'k2LXV0dldhHYQ4dX1uYlA1wXQ1exZwDbYgMtmP/mOp0Z+PiQ5GL/w' +
'xKtwq8JeHa7+WHPNLqawb6LzU/6zZrlfjft8aVKV/9+Pv8TOHDTxb' +
'4yYVdHA8NvfSk/i5J0tfjMZldHb4yMrpznnMrXqGK7etzwUVQGX+F' +
'y6WrNby017MqjNc+vpyu59FQWRfXp6nSgMwP/E3kOeTuPRRV3ZZOe' +
'+n4zP5HhMzPYjKqmK4/006voKoP9nOjK80SPaclLCMQQVVlXnr+h/' +
'F15RO8PnBSVraX6n6/e0NUk6Gr/ALEP9Zn1gvoE5dShK6fW0zOkPp' +
'Q8CT+BUYV3tWlhXle3pxUbVUZXGSJOL6SrR8JDurGrz+EPM+H er+s' +
'qOxtJV3IRdDW1qx0XF3X1+DjykPoUld2V0EXS7ZpHJW+JroYh r6i4' +
'q+8UN+zq3vzkCUm6+s5yfVf7yFO5Paqarv4quvh2w9KSZ9Okq 99cV' +
'95rXlfyZlp1VczIruS10JUzLfnh7y1qfFe2tORnvrel93R1mp b8tH' +
'QFeciroKt5yJOgq0nIS6CrYcgboKt5yAOgq2HI1dPVPOTe6Wo ecul' +
'0NQ+5cbqah1w3XQ1DLpqu5iG3TFfzkCumq3nI/dLVMORm6Woecq1y' +
'5ApGItcqR65gHnKnHZBbmITcZh/kLsYgV9kKuY4ZyD12Q25kAHKJD' +
'ZFLuRe5u87I7dyI3Fp/5I7uQu7rFuSmrkCu6Trkyjojt3MvcncNkU' +
'sZgFxiK+Q6xiBXKUeuYCRyrXQyEnkGhDQSeRXkNBJ5HuQ0Enk n5DQ' +
'SeTD0MxJSgQyICjIgJ8iAnCADioIM6AoyoCLIgJwgA4qCDOgK MiAn' +
'yICoIAO6ggwoCjKgKMiAogAAAAAAAAAAAAAAAAAAAAAAAGz8B xNew9o=');

KVILLAGE := BitmapFromString(200, 200, 'meJztmAGOxCoORDlajtY33/1S' +
'/2U9LrswhASStlSKCDHG2K/NaI7P50ilUm/X5z//wVf1VFoec+pB4' +
'iwlXakuYb/q1fIjpPaR7E51ZljLj5Naq4rBLKISrZRi6fvsZSbRSn' +
'mKs2T2N+Jh+dFS90vR0iRKLjSZSbRS/yh49ynj+vR8Jlq/rODdh2w' +
'0UUmuflkRlnBSDrqcLz9v6mo1G5S0qWP5SbqK77L84Knr1AuV mpRO' +
'5NfgRsuPn5qu4N9RCJhcrhzWJ+7l7bg8D6mJ4lChsVyFY2WGG 5F9l' +
'6ciNUsEKn674Sfz7y5pqVaZuy9PSOqkgm1KcWI2HHOGcxKBOf U4NQ' +
'uK/QqXq7H5Nxh6Q1CTq3eIQGU2JblKTnInpge1isSzPEupLvVePeb ' +
'NaHY2TqkHledkeaJSQUWI8v468i4v5RYt1XJ8za71aAXblFlK b21c' +
'1bO3aW8XTe2ggaqdZymO3FiEqbWKd6o9tTyBKaVmpZYzk2g9T sthS' +
'MDep0tr+mn98yrReqvmFvET/rdAhMaT4S3P7W9qFkiqgh5OcsYbEz' +
'4HYFue4R/U+Z+/ogLdKmP82mTMmwzOpO7XrNtE2fAqN7uNZ6ZiNp0' +
'sT2nqHw10KsVP8xnZTn6qY2Uv3f4OVM89WrCfSHviAQEgY84Y DsgW' +
'D02+mcBeLY/fO1TwsOZCE8sIPwPZw10ekWGS+elafijFAKGFQBVMV' +
'POTt2NzvGdWg2m/WsuPGTm4qqziQa0NYkCyYTqRsZlxLs9bb1bfB5' +
'iqIBLCI/z8bTXE3nwlSTZx8mJ4ClcnqXgiYOrsHid1XhmYM6afSIa' +
'JQbNMy+E5A5WyN1/NbG9LF0ZrxlwnvbxhGnuToFyZWKqA9+fqTIkj' +
'v6Zt6fpAqyEkmEf22EAw4nRxY/PrcoR6ocJfkHeuyGGlk2Cqpyct4' +
'tDLACZELTHXcnJIHpqRbMsVB0n9BnHerJd3ZPO1+fOcnjoOPK kmHg' +
'GXm7klqW7+MCOsbsVVsHyRVEeS5iVfzdwJmEdFJH7TGG26JJd 4Cd+' +
'cq0jJIvB4n5QHZYyrguFNySTZztvajLw32l7MHsdVHCpMKWHJ zCGm' +
'gvhXdb8OLcxGM0XNtJgVj5wiUgsPsP25Ms2CaWm6RdiwTAoqH u3VK' +
'W0es5koNR/MpEmst+lWXMXr4h3T/DFyBmSSzSxhyXgax7LqOVcHCR' +
'6hN0jiv1kX3G5zrppV6EoRSZrExuTQLHcz/uHcYo34LpEl3ok4sc2' +
'0RCK8lJmBosRL0OTnjFTye08xJb1mWZVbaYPlbp5R2qgjKxtp jLvj' +
'XjeDxCsyvPBm3UOXWX1FO6n4p//npuwVOWZgG3IVz/9aiq5D0Txp5' +
'OzK2EMOgZHzalOPMS+wp3D1VqLGsq0KarriEHoZ9lx5BKoYMM JHcL' +
'W89PtgpopIeJA2uIRjyW3QbVc1l0N1Wx3NgSziDpjJYEjFuxJ LQDJ' +
'JxsygwVZcXQpMc9LMKhqbxb2BurlV49lQjHkeIpPxg2wLUsQn N8CE' +
'K4oIUVefdJirD3QV80TEOH7MgfA2xAlTQTDwoGpOqgzjvDmYf vaTh' +
'TOJMlNHtn4rV8QbSUsQziZaHmn4SkoQP1GwHEGHGB4Cg5ORE3 XVej' +
'pLPG/DUKm08Iw1ufJq2huhjOfqPPeCagJD4FG/nSvCm6UgPMGQMCc' +
'qY5hDRWAEOf4aT/tCrshCPAj+UsboWsXV+ZBMSHhmTIQwq8QSk0x+' +
'8pfmudch5oRnbK5mIXR1xrCyZpYwe+i5K6teaczAzmDQm6XNt Ryqe' +
'AnMT0iUB1WvJfn6gZaFsSVXy9UVkrL5QO9SZiYwEbTQs9pCRZ VcPZ' +
'erD/QcM+FqkvPWdGgujJD2s1wtJypeAvVJjb3l8bojhOSrhE3ZE/+' +
'bc7Ucg+kKHlBVU65VTtAeP3Go0LMayFcVUu+5BhLFbbz4cf6K IPdR' +
'5GiYLi8zc3+5BDkTY0LvPZn00qviV6G+UvF+ZVbNdGK2GrM1d a0yC' +
'+QFubAVNNO4sNx3JiGYf2wmKlcmGCqZXumJK8IeiXAhVyRpJP iXqZ' +
'l/nplIB8NdPJnxmGbNAm3C1c8qwpXqA3yyix+5Cnck7YsHGTnXzU l' +
'eG8CSI8fzb1406MTz6dEiPfN4TBSVh4FzpaYrkn/zAuIXFn/ttTTj' +
'VFwNnCt1neJcyVdvOe9avJXxdtdshgPnSl2nLq4i/adJzndsbv1xr' +
'jZciMZyo+C5Utepmf9mT6g2ZofBLcwmxs3IkuFzpS6Vd+kQG9 MS2Z' +
'Cv5r7m7sEZ9MMDXp7nX5PXEOpXc0CaDE7iXsoh71deGKZ/cqjUnQp' +
'2A/nJREI5RM9mBzO/mvNmqOZxvHOl7lSwWGjD+8x3Hpeb9nJSjfGT' +
'F54XbXK1RB4z0sA041yZlsq51468TZt+SFTL8/xrIvlHfuSrmjGLj' +
'g69xkImzd3NVWZIydUSkW5ALh3vFjM/yafirdnlmi2x+pGD5Gq5OF' +
'dmrc2vTULkKtzCi6SJoumHnCt1j5r5x8qqhaYTwlVdrsw8P9y/+XO' +
'InGtuDpfXcTfxK8O8aIaJwvx7SxAtM1STKNP4hrxlh+T5MW3q Uy2U' +
'HnBS+ZdOeDnIcnNGxmn6vy5dES2v8v3y+gOpUTyZZj8hjKm9M Bhzi' +
'dzCC3h6opKurnTVGfnVK5xnjMlUA06Lis1ciGvN48wq63mofo 0u89' +
'TYbYgl4qSMTQ/81Vul7M2zeKtmpSjpGkhanVScyDoib8oVGhN4vJy' +
'jt2aliM/hUo6xkXSRVkBqSmqHYGDd1VeFhPyqHMq16NA0Gy5ihIeI' +
'2x9Ei/eKmrdmT1A2mHBCozIm6PKYPT9jFWySgPkZdvg+usjpkDFlj' +
'66UW/MTVgS3IGFE7AnAY2mJOAn6/xG0eOvACprdiXcqOaO2aG6tJs' +
'1IuP1ErnCjYRheT1ekX6nXCF1Io+cZmSQeSL9ScJ4pWXMhxm+ G1Lv' +
'Lm9DiXJF2ZLYRdCu/kmaFMZC0D2sgIXzVeQZeidYVtdtZw1x9oCOZ' +
'9mOwnQx4Qy0v9G5cNZfgPOI3l67lkCRX07kyDZCfz9+/FtTMD6K1v' +
'NBbccXtTQ+KH6ROWSZaO0jVjpfp4/x5Ey8ND0DyI6My7U/C8A60xg' +
'4enIz7IXX0PEfoGm4UkbWqTcmFw5F48fwaWvHzEstgHeMOe71 xqJp' +
'9lffbMSR+Fq2B8u0ZDCmf6j+mAd6AXsvt/fn8OFpPFymcyZVchQOv' +
'lSmfY7ElWk8Rrxq55rpuQ+nqfISJ1v7y/ijCQQQqYim91XGQkETrc' +
'WoWy4NHPvn1592DXXgkWg9SpFIIT31Vfjwzj0ZpMBZtorWneI 3Mdq' +
'Tm0YC0MrlqSsCJ1p4iBcLbqolTZF75Me/HrpgTrd3UrI5Z+i5mIuy' +
'ZG/VGnmjtI68uZo1k+1Kvph+OVkRdwSda+6hZlEjz2U3Ls/rjWg5A' +
'ovUaLa94cvU+LS93ovVKLa+1LPrAp+RqT80tlseAt1EzgLnHW Z7tn' +
'1JXP5FL6gwWzsMGnaCZ93ryRMvznPrKrAunDmHjq0zkPMZORp 7aRI' +
'Sr76A+pbFajl/VvHzOur+Sq51F+ol8mjh5l1oTJNO+Tg5HntpHvDq' +
'8a41BxfuVonc48tRa8fsI7zJCBTfmyz204pEvz2RKqckVv8tM DxGc' +
'1O5yu/qUg3jYP65yrI/hHwUbiAmDRxFxy3dEnDxskqvN1Vtf82kiN' +
'yYZmBqQsJen8SKVg71+Z3DSM75T/IZCAzUjX71xF1RBTl7PVfkfMC' +
'Ye5lc1NhfeJrOy8klYwuWz+hVvVmbYz5XHAE5+Z/AZ2SJuPEWkHX3' +
'HaIarsMvVtc2mh85xbSTsJypSbvm1HPZrfVYtPxrBg4DRJOFk y1Jd' +
'MRj2I4R1L86Vh/MmMNKhaSAtbzum10nkJzQzq++RFmfJdB4M+ymSt' +
'OC4QM8ptP8Ui8kuDxcpWCDOmDnvWUaIUnAOh72VJAD1idVXGJ TDWC' +
'IN1BZo5u14qbxLzes89VWZmU1sQNKD3D0S9s6q1awVRwbw0wG EIC3' +
'yVc0Tt1cr0mRkfdFM+vEqPgaY3LcZ9uZCDMxym/MED9MS52UM3utc' +
'EYoIKt4VRow5P02qn8gVVh8Z40JjOUOcKMZMluT4NrTMW6kJA 1oSt' +
'Lx5bJLNmJcjZIqX/k7VeOqrnL+HK6QCiZJFj7ejpjyfT+RKlg8r20' +
'sFnxzAWMV5A1eyvooo/FQN4vAE6eJda3+uZOGChTbH8VURY4nf1Qc' +
'nTUPV1IPNZGAKVx4zj+BqoO69Ns0lJtt15mauTBvvSdqX6Zx8 RbTO' +
'xLyDIqWPSDmRr73+a1RycIXIJSi/yhk1T9hA0ghOnsPHcRUvNwEmM' +
'h+Xikq+3sYVGqiBpIUz1qQoAtjjuDqPwVzJeCRal8qrqUkXwc lzG0' +
'dL+vfcPoKrkwxch+VtUHk1wovPW+sBNtC1cN9ncUXqWEs5AAO uHfB' +
'TPaCfO7mSzHglJj3KY0m6wtYXIWpnrpQQgKOfh4uk6LqTqyZF 3qTy' +
'Wc1IQ8Otm8HsydXJEjctDwvX4e0uTQWvbxOhiH81Ni9ZbI+P4 8orH' +
'76ukozzhoRcVybz+lPkkMv3/oCHpaq2s2S0l+qiMnl/VkmEpPHygE' +
'9KlqxMZWCuqs+rE3J1mYJ3q4fc/QGPSRWrXEPFeWGEFyUE/8R6lpY' +
'TpfhpQjXAW+8Sbi+/XpeT5WC8gCuka0AekHXm5C51eX1equVgvIAr' +
'VbXh6kuEcFKNz2xxA1rLwXgZVxPV5XNg96vTspyNR0Olql8xG 6s1c' +
'jKFWOVhebrm0lufOP90lXk9ikziYHiL5Rm7VO+A6hCVKpMAK3 8ZqK' +
'/BLbjZ8nRdp1cSdTjV9Oab4m6HtTxpKa7S2UbmqndTGfby1KV6V W4' +
'HrKkaWH2mdlY5/n3KQeQ1ruGFxGHqESrH/wee+NeJMjeSQaaeonL8' +
'GRM1DaYvlB5Sj1A5/ozLVAaaM70OVcCp/VWOP+P6+h2UGWD0Sm2ng' +
'kxtq3LYk9/5+rxCpmc5KYORM6nnqlyPTdCJXHJkv3qgyt+eUE7wE5' +
'e3XM57sS3PWIqrHMZgQ8kIU89Sce6gVcLYlqcoFVQ57Fc5uF9 mbKk' +
'HqRz/H8hxnSl/y42Tl0rGqWZSO6scxsx3sj5NkU/qK7f0lkdCTe2s' +
'cvz7LH8xOIAHnEFFbIKramwq1NRTVI4/zxKAhHzqVY2hjtWMmk89S' +
'8XvV3LsKWITXLU8FanzKtA0vq+F0uLNnxdGknquyt9L5/s8Pn081K' +
'eaQT/eJzlfvy5PTuqMyvHvE1XnmwbczPNZdzdDSr1DxUflAGBwhht' +
'wtzKG5XlInVc59PMAAI6PCxKfNL9WnxiG95p6lgpUub5+BwXQ Oj4M' +
'KtOnWoKucDv0kHqcitVkDp8fuYrYoBO1KY5Ny9QLVI5/n3WgvhaLp' +
'QP4wVflRM2XJOqlKoceHJ8/dBXoPOVwJQ0On5+SOP2MilN69fRe1R' +
'gd4nbLj5y6WuUwxt8BPr1VUugfJ1M/pXI0Zop15SlLdJJKmSp+zyl' +
'/7746PpK0lFN6czLopHdt6qdUDndefir5R1QqlUqlUqn36r/QIDTB');

HUT_SPLASH := BitmapFromString(200, 200, 'meJzt2luO2zoQRdEM7Q7NM08u' +
'YKDR8IMq1oOHLG1gfwUWZVWtdpB2Hn//PoiIiIiIiIiIiIiIiIi27' +
'M/jzzP5O6E2/aCCFmX1guobrY8vm03+sPcscf72bVoApKCCVvXS7f' +
'v13W7qkMubJqKC1nj41edHbjd7CK5ULRhO4i5mD8GVqurh5O4 i3ZX' +
'xHYIqZe/V51e4soPxvUlQxfdeff5urlTDaVwnV7+PqrudfGVHNDU6' +
'x3h3c1U3HPKNzjFhCypctcw4Ot+ajK4qPv1SSODKXT9Xz9Nwp c0yO' +
'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+qHCVbkDoSkUo19XPgyROGFc9 XH1D' +
'Nf734B1cpQCoO3ZzWkFXzwfBFa6MqAa/FzW68i2uvavIybdy5X7An' +
'V1FUPkexHHmnq7GqD5+P7ihq/RLZi/03eJydEFXKmmXqHBV6spyoe' +
'/WH/98c1dTtPq5ynoQe+PT7LtYRutEV8a7pyw9CHjNEnGVdcLshe5' +
'7Rcyv2eCGriyoilxNjeLlEMeFufdaBuZEV0ZU31zZHyeO6uWc aleX' +
'95JD6u3K+EQ7uMq9Sg7JPdJ9UG3oyjfGrHvJCbl3seA9ZLm6f JwIy' +
'CBO900HF8rx7NwUqktX72M3biGCyt0OP9RdS3dF9MAVFTSLCl dkCV' +
'eUngMVrmicDxWuaJAbFa7oYxFRuKKPxVHNuuIXjHdopaup313 D7+j' +
'WuJr9WoSvTs4tRZTFVcqXv5bDE4cz+603/p8lohq7yvpPBcbDHXKy' +
'UN2cVq6oZa7eXxnZ7OCSCKrb0qpAFXE1e0mKq/FVuNpBVMRV8BJcy' +
'StF5XPlWP37VYmHW44F1UpUFa6MFxa5ctOS77oHJ4sr4x5zXY 3Pn3' +
'r9nQnd1pVv79Wvb9xKVG5XKX/XOD6yUlzdkNZiVD5XkYK0cHUEKly' +
'1T4JK7mp29Q4kd3alQrWDq6nV42p/UXd21ZiWXJTbVcRbcPW46u3K' +
'Eq5ui2pzV5HPwKynOCU5pA1dBWnhSq4IV81cyf1s7ipCy/Fm5B66c' +
'jK6Cm5k6tpSV7/Pl6toj8riKriRyKdKIqo2ycEkuloZqMbJwRzqig' +
'bJteCqX3IquGqZnAquWiangqt+yZ3gqmVyJ7jqlxwJrvolF4K rfsl' +
'54Kplch64apmcB656JPeAq2bJJeCqWXIDuGqWfPu4Oj35onHV Jvly' +
'cdUv+WZx1Sz5TndIvoVOybe5T/JdNEi+xA2TL+Xc5LvbOfl2Tky+t' +
'f2T7+ig5Ms6KPmyjki+puOSr2z/5Ds6MfnWNk++oEOTL27n5Ns5N/' +
'nutkq+jjbJV7lD8i30S75TLLVMvl9QtUy+YlC1TL5lRLVMvmt QtUy' +
'+bkS1TL50RLVMvnpEtUwOAE4tk0uAU8vkJODUMrkNRLVMLgRR LZM7' +
'wU/L5H5A1TI5IVC1TK4IUS0DElUEJ6oIVFQRkKgiLFFFoKKKEEUVI ' +
'YoqAhVVhCiqCFFUEZyoIlBRRaCiikBFFYGKKsIVVQQqqghUVB GoqC' +
'JQUUVwoopARRXhiioCFVWEK6oIVERERERERERERERE8f4B4It DfQ==');

KV_HUT := BitmapFromString(200, 200, 'meJztXQuS4ziunKPxaLy539vu' +
'totCfpikZKumpxiKCpkCgQSQTMpVvbP98eh/79V6//9r2f44cGZ53' +
'F2Hn+ue6xd5Cn/aVaT64dV/7RrI0351v5WZ0+PLye3J/lwfuLDvQq' +
'B22PXb//iz/yHt/Yn/XO+52uuNqzBnmOlGr45mjleDnzZ8/PP07jr' +
'8XBdeDRrt6eHMHppgjyNzhnP2a340fvww7V92tV4PoDa8ShUm UBY1' +
'5OHDMurxKJavta28bg2uRoQ/13e+2qgSwyQxoKcVUKvyZzoeRIVe4' +
'W6vz8+1ev3umupdeXrg3pEzBy6NBsifR9UoYg8KWRH+kO0bXy Nhum' +
'ZRY2r2v6szLXp5KE9fS/Dp8aYdl5CPd9ft58ILaVPux5k2nmtMNF6' +
'PDveDwZ+ffgxUPLDo1ziwdMRAIf1cH7/aUXYKlyqRBvl69bo9f44U' +
'asOjAyUe+ihUTx9wLI4AHodvi22YwUxvr/Zff41EKpPl0Rc3hrZ2J' +
'lNjl78o94BjbrQHt4f7B5yMjwO1CH8gVjFo9Oz+uS66GvzlBe vfX5' +
'16EMX4ugc6VTKMH81TajNieBq8sL3wd7FTfq7PXA2OM2kML1H 48bc' +
'Z+anI82AsfQBpX6vQ8ohQ5Yiplazb8XD/91734veVLPOVMMP4WlvI' +
'A5aVG2j8OLLOLEF7Xdg2+DQE60eO3d6gf+9VqlcIVkk1XooDr 6dqC' +
'V37ABaZj2VSZNTKHyjBxsz88GrjaqhC4iteuT/UGbs8XoUwZQnlSU' +
'KkB+Pb8HOE19jHgr8k1UC36cztHfxuV2OMkk+fvWtD11rpu6E TcuC' +
'hpenB5KtMmiWPI7UC1X0lUqi1UCVt89+5XtVrrJgNG4FNVFyi hHmA' +
'4OBT5BKGUE5oUBP3ad+O308bkyxavcP8sByr+h+5GryW430Dv jU4M' +
'up9mcGB3HgctYhyYCQMZQ7tXUFYgtqPY+JYsdd8E197GxyUf/31qg' +
'8mTus2PuX9LcQoPwtnqEGynHKA3pR744e+wx85M7KlM2H/8jB+OwZ' +
'jrOffdGFemDtaHp6qXkxbD42T9FBL8GMxo34KQkVFYE4blrTx ZijL' +
'aNyOltX5X0qqUoFXjvQjLUUtC35EYnhKsOITttCbwhPEQCfRR o3BX' +
'hWHQD2Wuiz/y65Gf5NplWp8dChmKTtWVbRGdrMwSjEQl5dVlDClFD' +
'4ihYq0DH7Ndajtr9HyXwD+e65Xjk0rla/Mqz6kTbMukObSLqtVtOk' +
'FT7kZMRhsxafJ6MG4+hytc5I0/OvV0UPTxf/+V2M7pTF2NShRK0pV' +
'bgo3sNG+WWUUJ8Y+IQaGUMSbogU/7Xnbgi/Uhy4MSIrBv+saK9CPG' +
'6SJk/Er03FJh76re2zcOG88lP4ih8cLeu0+UgB0IAaVY2diPhi340' +
'07/jrC/PzOF+aiuFQzGoXr+P26tjX8WDwUV9g1NdM790w7jsOAoVF' +
'MaLhpmN2v0YaFrSDBDfI9OLNgOYyvtcePDYtgsk7qoAblW+ld aZO6' +
'p2BoIJoOxaYwF4SAv5WnEL0dfw/Whs17aAd6+E5XG867QxYvvh3/c' +
'lEz8uXtjAOms6FZF0wrEUdLY6+cINMMnylIivn4qPWDRh1u8P eoCu' +
'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+GAJQD3Q 5Oi+' +
'9Uxioz/EmaU0y0Bs1EKQaRys3pUr4MnwTqXr5A01Jln2rrU3BgiCF' +
'umCCaavhoQqNdUbklBK4pDyimCkJ0Yk3U1wqDXrejPfVAPJto +UHL' +
'wL4hQfLPvxsOF+G6r6it6IQZeOx7HwGe0QNqHOamqIifWoGpa 5Zaz' +
'g/2DT60nLL3w1ppqXRlHJohm2ifJjiUUgMQkUPxStsE41SikM9F8 y' +
'eAGbV45/o+jVaHw6XY6D6aOAVKcJbeTVk9wLwQoU3pFxYSdpB3wJK' +
'PzpfIipLtDEhin8ThabsQ1P7g5+MVE9qNeO/ej7yquT+NlK1I5hGM' +
'Q9PZZ2RRcVStRWf4kK8px2kSAzUEBhNh5aI0pIiPDxaIVVRrW G0/l' +
'QG88vGD5BqaEorwB6PeoOo8CN2rRRcAeDV1m2lP6mH0RWCoYB xieE' +
'zBkIPCKyu2uRV8daetw3estoTz+vmraRqWAH4OzLvAq2/L+yUYIai' +
'2BE1qTAjntChWU7xo3M6c3i6zivlECrQEGeZuZpUiKQdSdUKB lMrr' +
'HyxKfUvSxTrinMsHQVDIdHEKTZKFYpNecYh4W0w6h/nf7hp7M/Q76' +
'ZWg5elVlO2fSxVVaUznKEJKs9qR4xmtM5qRuwsyX+8Qculsce o30o' +
'VZNcAakPkl18mNP1jH+I3LMIZyoeXwYihrKUAsJsh8QwfpiTx lENj' +
'heHP5GlS4TYc7tsRTGN/m3sXr56jFbXMx7SqpQj4Ee9HJ6V0dAbrU' +
'2CoJfiIJqKQK8xmfMXaJtU/h0NQgX9R6/Ho8Duuw0dBj6Yfmas947' +
'9uorK8bAQ/iROW79dN6YvxiQAKEnyqMJR52hrFtxLaJKjC/bk/x6v' +
'yfjVNUKhKU0/3LlaN9vpJazsusXvksFYxkLaGUmWP5xjUtzsMioDp' +
'7qAL681pXoWVgY9tSLldSq32jNNKufKBS7AvhlSlEWhTnioMJ QoaK' +
'7eGcgotZnqmaJfoFQUwA9/Q8hJewWg4ZQpSkBR4BaSaLKlRP+YeS4' +
'dmvuneRjG8s14kHrjNOVItjuZxnuYV+q8z+TbERqMOlPojzSg rPCQ' +
'jNTnmES0lKnobwRsYcwynlcpkpwvYYLpd9Q/gp/+8U0DiH6lqFZD9' +
'WH+vLUrNUNYM/ShzlNnUp5k3w+yU92lUiBOOwva6P8Gr12jdDlSY3' +
'LisKvTYizJdO7VHDPnC6aPQ/t1fABPAz1K34eef+St4tQzSrKWsGH' +
'WmAKBCNM4ohEZ8pjI1TcRQ10wuBTpJqjOhh9HU/8jlBK9accXTDzS' +
'qIMG1yJnpktGg3HvA5ZFnu88xyXrj0R+DE3plDsSkX4oGK/xpyv5N' +
'AwUH6dG7/Fj8UN3zKUxLGoLPHyX+KaUvpNZU2+Omt9H+TbyaNppaF' +
'uNCIboW2agAUId+1dI+UvwJpXJ1XEWt0p0NpR2q2p43y5cJvV 002u' +
'4yUyYN2ykZUPqSVRTDdgsS/6G3/626glfhETkb7ZXIlli1aZWWhtI' +
'KRafxkSe5clUm/Tbxj6YYqBPPoiWCvY9XSC2P2e/3UKyWCoLto11G' +
'kDg/daioiOkjAHRCoxtviXM1cgGs9h+hVum+qfP6Odjwvz2S1yEpE' +
'cWMskNnqBNDddPrJKMzWXt13XD+GV4hMDxESmtipWqjc7/BXR1mO7' +
'pQSNXcKJgKR4mqPnrkOf3Ob71kfOwtK9HeDV69FpZASjQSbGo 7JH0' +
'sqoVbxkSn1KILp66SYUQyXE79PN7zAj/NAo+PYgNXg0e/Zxp68Ikb' +
'qVGqVbhhUsPsyk+TuHFOHy2pU7KjzXJqY9x+gFRhxzeu52hYA bxXf' +
'Ula6ZUhpAqV0+JcMfOkqtBBcZpCLfl8qzqFMAKxkvJlHHpeTT dy2M' +
'2RCTQR+siD99o43Q4Kp5+fCnLu9rFxCAolLDeoRXRVsSkeNgi WSIc' +
'sxWyf0uWYvhpTJvunyEyDzXPjjPRNE/wCs0UtxagSyEhH4V7vBz8Z' +
'o1r5+3Wh6OjT/ORlmUmNygKTyrlXsqCokiJvD7prFMJiQzAvUqv3W' +
'ltV3gQ5Lt9g1NSnrwB3sz9qvirNgoEysDCTIqeedWLz+4InHz ydVe' +
'0aFExhe837dFao1UYzXEt94g2r/xkuTTiGyuMxq3pud9nYlHYkDU3' +
'CfaW2x6t/vpwokOZnYYifgf/nkUNGGJoKF8X2HlL9oZbIhSsS7ZGZ' +
'DEe4lgKYwjP8/5PpCWr1js2SykzZNd6rXvwabfjJs1P6ICr27nGI6' +
'PegqZ4SBJ8mVcLEf7GcPqJk+3p6WrUwa8xFpUw39ZB+o//9UrpQBY' +
'VVnxkEbakA7sqClhbQG7N8ySO17zrUmQ7cCBzDOdUaszDJUnb NeEU' +
'saWWwR8LPp2j1i1qK7apl4TzNV42UAzO6Gm3skNrj3Gn4eo03 gBHb' +
'Bq8wKUMzdHt48kFeYeU97c0GKYnT5vqyl+KgQ1XeYqNqjhHP8 MrgN' +
'/OqnsfatpII/ageiU19A6+Q3moSc6FlXFIS5b/3CkD5VH4MOf9Ynt' +
'OrRKxMlUqauDXGp2g/Liz3rBof5ZXaEVOa5eUqlVniSSGG95Dg6di' +
'yE3pF4RkwZt9R+VU10ULHF36WVA/PcHo/7em0yFhbVfMpdSk2YzPG' +
'+opyjlQJtumgDElSM6uOSG7gla/MNEfjAb35GWNZNrKB51ERZb6CV' +
'ElGmEJJUJ0dowGqU6kJatcfZ5/lVUnTqE0iVqaeip9+OSsRN6DhfD' +
'p9hVdTnxv1UZke4LEXkmKAScHHG3iF1fbVo2VRj0wZQ8slD7T 1tC/' +
'jx5BUShMMzmlSZteUWFS0Edi46uDpe/BKzXip92Yo9ep+atCheiHO' +
'YvC1XDOq677TQIbVSwNJQrmEM4yr9/CK3vgDaLynbKHzuFyFmD6ir' +
'rrIhc4rP0kf+zHHpeG3QJKyWqKpeA+vaI4mO6/eviY0kCn1lAYUmH' +
'JLUzYhppkmVcJAhuThjMkFq/dhVvmWhRzz1VjdjFO36HwqWa9q0xb' +
'3uONovyFWHqqJZcy8rvY7eGW2tq8GPSxM4vQcCWOdmaQ2U5Ep xifl' +
'ZRpo9enLBg++zgr7eV71Y6mVwIZjWuSNLiRMWDqnPE8SDx8YS lrLU' +
'7QUOnwnr5TeJieCSdxbev/JWCJJWXXhibY08vcKepSok50KRf8e71' +
'd5BWi++fIwbk4br417SD7GN0okpT/lcAlAfppX/nVorzIb46rzKN8' +
'FicNLhHQ7CrIL1dV8PLr9NK9oXtM3lqX27dlQY386T0/k0MCbeftV' +
'kdRMkB5yn4PlDbxahX35uCRi+EJ4Ptw7xHzpHY++D89ifZpX0 3NQv' +
'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+rDL8lh0 M9/L' +
'8i/whjjxB5pMxVM41MjuZlX05qEg+6yZNVnhpKpETNttznpppMKQD ' +
'H2dVOn9mx8I14tIr/GFb7wTL3RF+aNQMmboTFTxuZQUI/CN8AE1de' +
'nO3ilTueTpKKulo6YKYY9hNs+p1lM4+akSpaYKEdv9/DKg8xHyElv' +
'tqE/uc0GH+jrULJKJVLOu/Cj2qRZzW/mVUgGM6/SNN2hJTU+t1V07' +
'8Qs9kvvUV1wQIlSkRp6DtKFGK4a3sorCiw0wxLR3Ke0UW7NmI oDPt' +
'rjmIlSCKC2ybSYimDlkYcHHL6BV9O9RhMJNWRJElV079ZQaCn c3lC' +
'ULmpjlKoDH1CjfL5BkW/glcVDcjeW00fFzLMxf7qncmgwPXSKpQmk' +
'5IsG9T5xLXVlT4obeOX3+3TQ1tBCbYeYBl012M40dxueAuakM 1KWZ' +
'PGtzsFcCmaJXDYSkPnaM3G7zpGqE1JlvOlAJ4UhsZxn83Fe+Y zoxz' +
'iZnVVqYT65ugQ7Pj4yDUV5UVHMR314ObEy6bAQd/IqpAHNOl+lnvr' +
'G9VnlV6MbClEbT1E81KhYlYUjW0osL2vofzbu5JXGVFP2ltMN Xu5V' +
'zUNI3iC37FadvCwoUk2lDMMV5Go3Lar3bbyi9Zwa+HQ2hMUMC mZJK' +
'n0K8d7nq/LdRFUOLT0YtLTIb+NVt2X3SSV1oFF8i6chVqFOhQJ3wb' +
'TRHir1g0JEHRa5W2I+2NzJK4rqwkPK7GW/zZNjwsedniDKw4aYoAT' +
'hsUjVhh58StBChj8n7+TV3lFF93h+LnTdayUmHmqoOUuEUS2m 2qtO' +
'usIuCpumeeZ0+LK9j1cJWrNf6ORGiNwmXKU6nkRRWkHZ0hkxk JNlM' +
'tlWFInvRXV2N6+SkS/0wkJ7MXVoeqFCG4nojDDqqFJ4OpCN3qiPBr' +
'wi9jSpo8E9vFrn/6QC1K03Sxz6hRg30U809jaJblD+KNWiaykzC6S' +
'wTb/M7uGVqmfyNFzl62AYSFvpb5TxXgoKTMKWcbni2HRTJ7veq98t' +
'vDK72ySiLE0Hp/JCjSmpcreIbXVglajUUE0zqoV4lHxRSLlY3aJXp' +
'lO5EE1tppN9xsm9oTbOknIqbnQogtEuRadQ7gqYPOvD9Ad5Nc W8Km' +
'JT9Rstp87D3arUIxyUS5QAaqHXpc7ISWMlHVnN7mvRTbyawVo zU41' +
'IakVPkwSVOYyStfQYwntPG4yC9PNOytrpfk+28Od5pVqTDHUc 4KSv' +
'DD6a7lyMpSjtXSWWtL9T2TGcoTyk/s1OLGO2+z7NKwojlwiTkS+II' +
'TD2K4niNUopSb6EWlLxmV6dpa9EL5Oj6oQb3kcqBZXmGG4ltD d0ou' +
'KjemGQoGhQyynffBZUmjzZPMKkpEkXaMqfJ9UqQ3w6IqkFG/S/ISw' +
'K9lIT0XOoD6i6hkIGVagAyZ79c/spUu2NsDuGV7lmKm/USdE36sqe' +
'F1KykiMJWYFqRuXLAIs545YM4d5FKiULSztlOhKBEolPgC2BV Bzzn' +
'PQOkSfonN6ohZjOGV1VsENXe2U5P5KjTa1S4u8ncSGFUZz4be KPMK' +
'Mk40JTcMwUqTLdX34X0FjK7XRs6HM/ppZXeMkgwRDab8Tytc1367j' +
'ciAZ23NDbqBb1sNfia4ff3asNOrnHp9vfezBjmpEBgH5yciai OhLD' +
'Cxru7lDxOlTAoELYNG4yPMOnyM9vB+rK3HsC08lEFkzW2HETQ jEnz' +
'MU3nWZEU1De0DkNp4KuMtnM4KNV0Uiyo73biHXGeKkaaImyMN VYmq' +
'zfFMkSA7LcmLUKtiK/n8kRrkqW2XcUgEoBF16VVDLyPoY2uQJMGZU' +
'U01BXuZ2OKUtD2dwIHfrss7Ng6kc98iJAZ9BzESIVV3EAPdCs Kaqp' +
'+ilI0+3vC1sISdeePFOS5Z5y0xT2Zjyj0CyHF2q+ieWXTEP78 pakP' +
'Pdwubo/I1+5/E6XrI4lnyqvhEuvj55RyfGxOvLO4rxSs5Oo0AmGMM' +
'j3omwsR29TY1q3QrMLm6iMpzR7E4ZcxBTCBFtyCCpFQvslsiV Kvjc' +
'2NlFiYAR8VWAf7FVkVcfC+akruuM8/abknB5zHqfSTGpWkFMYIYZV' +
'hV8aG3Fzh1ed44k3Kix46JRHlPM+6NSnB4mWlwhUbrC06mQ3w 5PIv' +
'29gjxJl29Ao3OM58gL+oV+BplKmSEIXon8PMjHwmjAt7Fv1Sg 1/QI' +
'ewc7omokFPCnq6TYHhQrM8R04dFpZuk8rDoDerJ6N/uoSQKkzZ0as' +
'j51IewmvIlNJ5N6erljiskC8pz3gfsuJNatOBscZM5VjqEB4B UxuK' +
'czpZkNAdGpbdS8p0eVlFnShiYyDMxXBP9RQ95Lvjwsnpo3zhl L2JU' +
'ITkx7IvkQpXqZlkhPiRe0p4w32xCnXKCmVgFHUq8nRtKHQemD eYNs' +
'LrJHWYHAFer/xaXILelO4ZLqm4qxQyNAiX0KdLxfEYvFafhKo6S23' +
'whobYKCnaY/WmUDujio9SFpZAinKrAovCSGFsS8dUA6f+KVd9XlO5' +
'M9t2D546U8KxYaka7fWqYO6MPCZ95ZwC810w+zQn3qvsIRmmx OiQo' +
'9fzVcB+Oc1FPVU7ayrF1InpPl1I/UwjJmrgNTZHuzoSBfB0PS+YRp' +
'RWJ/dmKAxjmTx9OUwItjRMm7wUqz0SKsO4cKlQ1CZk8lV1S/KdZjc' +
'Kr5ffu0Zy+tCZk1R/mSlqhXxbEhNsk0/82n4pnxSGEnZztNHdqo6J' +
'8wMrX7aDwlCceL1VJyb6RPHE7fmODTjdO0t7wThXp8N0y9B6K v8Yn' +
'fbUR8+HSkSl6Y8VBWwDJA3XId+8uZ1VeNXPa8lS3D5r4nR5vs owk0' +
'anbdoOasqbiL/aHWHTc2U229MrHo2+V7ftTdGhqtOCnIehxFwdK2p' +
'5CCYftF9ec0LMuXHy0TBq1XmuP1NvS4PujmQz+tbsbQS/kUMnfvIB' +
'7zPFbE+OktDhMB2h0Y1ZgRGC9xKtiGp8YmGnLV7ajOHyM9tEh VD6u' +
'ZHUkvFqBZIlLzNPM59sntSZA24vhGqKScFsQLpP3zHUKXPmFM j1OV' +
'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' +
'Sd3sVHt33CezqwaJEvMzLTFG4cXlSw8zugB56MjN84oktkpG6 7OeP' +
'BLlkCaUmCtVmHTatP7qRqYPY488ZAQgPGgwKsT0Ozl8cKnxYb moh5' +
'RGVdRwrHEMUwtd9VZAdWGPZmC4psqXYJB5e6JhAtN+tNYdFDA Zgf5' +
'tV4EErbQvePtDfJEVULPyqzECktn8EwbUWIp/uQFNMBQvhCAGXRtC' +
'X3JblV7dslV4sHvVuN/unPDbTINZPwrJRkNqJNp40wXcjGhrnCgJS' +
'11YuD946RH5bup2GL6bkg4bVyodQmMEiURRipEuNzMUFSGzwp 5jpa' +
'iKkxORE8hMfNd9CvhW7hfDP0Szdx76ved37YjPLWFS2omU9yG mLhi' +
'YwKV7kelCSqWVwAFG5+G+5SmoDB4kihIXoXOEFINqjwIprPEE TBd5' +
'ak4RYUA0JIiKVCVW3SCUoZZl0uFpjd+YH3oZqSrMKmpTZlXWU +hmu' +
'G3bVIxjypRj4IBbZQH019KGxrOl0h12VtOm0ud06fJmG7VhOd GCox' +
'9DrJA6qyYtKG+mJ45NBZyA1dRzaHkoQqwISzhTqcOE80xqzbQ 4swU' +
'pFmbgDEaQhea5vrQVFKUQ8MlqjwdajU6UTBwVcgxmgt6UJPTE XLSN' +
'46u8tvcpx9uByovGEVt82Lp3VJ6G25QMMqDulQUE1GRUMEzBa QA6J' +
'g2Qg21U6gN4pn6N2BMaOSMd6X8KzLgLvYULc7NDUZHOtG1U57 QYYg' +
'3ne+6RKsDUzBlRzCUV+hfefaBjJ8wcUUP0ymTLH6crlW7RtGY BjI8' +
'NFcX/MGMpo3zT6ft8DVMdmu40I8ptei86iB9RN2qLeYL65H0Y+Omp' +
'MJdMDpRzKSoEuHyGakC+spMhwk0DT013tgj3oB2U5Wd6lVSfB/ddN' +
'yEKGAUbEU8k6YHv8GK1S3fdTUwKeUtVM4pkulTb2lkebrLfEO 9ARv' +
'/B4VaBYg=');
Title;
main_world_overview;
end.




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