Offipalsta.COM

Offipalsta.COM (https://forums.offipalsta.com/index.php)
-   Jokes (https://forums.offipalsta.com/forumdisplay.php?f=86)
-   -   Ultimate barcode (https://forums.offipalsta.com/showthread.php?t=45533)

SamppaFIN 14.08.2002 12:56

Ultimate barcode
 
#define JAKSAA_OLLA_TOISSA 3
#define VITUTUS_RAJA_BAARIA_VARTEN 3
#define OLUEN_HINTA 3.8
int TehdytTunnit(0);
double LompakossaRahaa(10);
BOOL LuottokorttiMatkassa = TRUE;

void Main()
{
if (TehdytTunnit > JAKSAA_OLLA_TOISSA * VITUTUS_RAJA_BAARIA_VARTEN)
MeneBaariin(LompakossaRahaa, LuottokorttiMatkassa);
else TehdytTunnit++;
}

BOOL Baari::MeneBaariin(double LompakossaRahaa, BOOL LuottokorttiMarkassa)
{
for(int JuotujenKaljojenMaara = 0; JuotujenKaljojenMaara++;JuotujenKaljojenMaara > ViinaPaa)
{
if(LompakossaRahaa > OLUEN_HINTA)
VahennaLompakonTilavuutta(TilaaOlut(), LompakossaRahaa)
else if (LuottokorttiMatkassa)
HoylaaKorttiaJaItkeMyohemmin();
else return Kotio;

if (VirtsaRakkoOverflows == TRUE) Rakko->Tyhjenna();
if (iLMLights > 0) PoltaSavuke(iLMLights--);
else OstaAski(iLMLights = 20, LuottoKortti|LompakossaRahaa);
}

BeginWaitPortsar();
Retteloi();
EndWaitPortsar();

return Rahalle;
}


Jos tulee muita toimintoja mieleen, saa määritellä..



Sivu luotu: 16:47 (GMT +2).