SRL Archive - First Scripts

i think it won't work, but if you make a black bitmap bigger then 300,300 ( x, y ) and replace it with the line that has my bitmap in it. it will. :)

here it is, my gambler:

program EduardGamble;
var
lose,i,points,eerstegetal,tweedegetal,mijnpunten,derdegetal:integer;
s:string;
eduard123,xtreme,zwart,plaatje1,plaatje2,plaatje3:integer;
extremegamble:boolean;

procedure declarebtmaps;
begin
plaatje1 := BitmapFromString(55, 60, 'beNrt2MERgCAMRUH6bxo7cH' +
       'RIMMF9QwF7JH9OSZK6NkZd2M0rzqtAfS78xPmWt5+6ItzjXBducNZ' +
       'HRglTnfWRscIMZ4Yw3AlZXBjohISEhISEhPQL+i2yxfngWrRgnD0H' +
       'mf56jaiN5uguw74kScd0AS8q3Mk=');
plaatje2 := BitmapFromString(55, 60, 'beNrtzjENAAAMw7DyJ92R' +
       '6DPJVgCkBQDgu2ScSZMmTZo0adKkSZMmTZo0adKkSZMAADB2Y+BvU' +
       'w==');
plaatje3 := BitmapFromString(55, 60, 'beNrt18ENwDAIBEH6b5oU' +
       'EWxxyYwoYCUe2N0AAAAH1Iu5lrc5tQ7M/sLZ1BI50Vm3RqTIVYXWL' +
       'fJjkREXJ+V2d0hkxHtyvPPnfxwAAIAEDxEk/u0=');
zwart := BitmapFromString(107, 104, 'beNrtwTEBAAAAwqD1T20LL' +
       '6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHgYgmgAAQ' +
       '==');
xtreme := BitmapFromString(177, 55, 'beNrtmTFOxDAQRee4HIIjc' +
       'AIuQE9PTUtLSUlHSbeMNNLXyHa8cWIgWb2n1crrZB078zMznpgBAA' +
       'AAAAAAAAAAAAAAAAAAAAAAAMAs7u3+Yhf/fNpnfdQ746if5j+j3fn' +
       'oj82j3/b9bu8xVGblsEXnoz1qBG8PzaR55hIP9vBmb1/2Fed7w396' +
       '59Iqnuxp6VDnKuvn8we82EtMxhv9/p2SkDAKVWyTRJ6tpjpdEq/2u' +
       'vRHP9RchS/w7JKovcGS95giCf+4r9gviQ/70Aje/g1J1ErryHKp/6' +
       'SSkAB0n3WTaz+/ZgnNo8/23OxfeTfyY9i0u/qbkhi9J3d2l+WnOOU' +
       'hIyvQT6slUTiKM0oiPxFuONmuUPtOSSz1j0pCFomA7t9F/xRJKGRk' +
       'd1T7JYWPYnqebwzNIfRcB50jhA+fVUyvmXBO8RKeoe2RRFZvHjb7+' +
       'f2SUDDNeWyd0Oou6UJyubUD6VwuhNSU3xHCRz9kDEniagi+enJ9mp' +
       'sj7BU5iX+HafK+Y3TwDZ58KdXxtruInDKdVxJaS+H35kqidj6jkoh' +
       'dobxNbA9jY3gQSSgPidC25nKxoqu3/ca8hMejes++TRIKFpKB9xxH' +
       'EjJxPPXrdzed5O3GcglF+eaYo7mEm17Wl1vLnf+bSxQblmY4O4UkZ' +
       'DV/kP0zfcch29VjbpBE/fjnrcfcHUe/rlvvOIoRVPbszyEm35TfDd' +
       'cl4ua4C1IqvkcSMoqsNlcSuS4Ruav8Q750f1uRSyWHqjmsDxlaoDf' +
       '64WODJOR8iiRqtHpZuJ084NzqZaeaXde0mwMW9c/be8exv1QlL5qd' +
       'zzZJ5FpoFCimS2LbO45mDepEkhh6E7pfErnSuFMSOUzoveQR3oR2X' +
       'pScq6ANAAAAAAAAAAAAAAAAAAAAAAAAAAD2A5S1iZo=');
  eduard123 := BitmapFromString(244, 68, 'beNrt2j+SgyAYh2GO6y' +
       'FyBE/ABejtrbelTUlpZ2mX3XFHB+SPn5DMJLvvM1slREF/4ieuUgA' +
       'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHhnj7M/4c/fZyASg1Juaz8r' +
       'dV8/ed1+3+Eovc+ZItsvOndaqSUz0p/PDdkm25+ZbSMYrybbfy7bn' +
       '37EJD3ZZ+wpzLDxvprJ9r/M9rie+t/bt039PLe1+PPbuoXZ++qn6O' +
       '1TP7ltzaYrPUl2/hFtZ9evG/xad3eY6p23cRfVLcmhLeGOJG32B4H' +
       'J6+eY39cYtjy93Szb4SLbMRfdvqfabN/yJYGJfrJ4uZL3pNB/edVh' +
       'M520+aHpVGglbXK7c6ntTKmWg+D0OertKCfGS1q/TXRLbban6Fz00' +
       'aT6iD65XelJ+025L+7IpDZrMrcGSRsTXTi2eL3rqNlMtquynZz0dE' +
       'NN8qtbE/5VvAVowfSra7NdGPU9ipafQBdtweZrHkkbl++eKx6TTnb' +
       'Z2uiOQ7YvhVaebZ0qLVouk6dne7k45GQV0dKm/ZjEjxsj9XZtooTN' +
       'TPgIOYQV+Iuy7VLzcHuQJAuJ1W3I9sdle18e6Z9xCxAOZDirSxvnb' +
       'eutfsz5muS0TftZKDw+aLItW2Qw+RPdXSzL5fO2sCfl9e05nL11uE' +
       'ZRV28fVhrH/EFOtonH1UUXY0u2/yHhe0nh6sQUPezrcBH7MG+P26b' +
       'ky4nV6yRK9l5yku3I5Pu5L7x3V9r46ydd5uJqyTbv3AuPk1awqqwz' +
       'aZE0m72XNeVzYavWt/cILfnBjs3r28nVPEmb3O7sk2oSsl3+fxLJ2' +
       '0CderN22sx4ZcldcC4q3kseau/D28YhrKP8EN7DJ18jyIwLHygkbf' +
       'bd+f+gOD6v3qZuAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
       'AAICP9A2EVC9J');

end;



procedure punten;
begin
points:= 5000;
writeln('You start with 5000 credits.');
writeln('Every time you press "G" the gamble starts.');
wait(10000);
end;

procedure checkfornewgame;
begin
if(FileExists('C:\save.ini')) then
begin
s := readini('eduard','eduard','C:\save.ini');
end;
if not(FileExists('C:\save.ini')) then
begin
punten;
end;
end;

procedure nummer1;
begin
 if(eerstegetal = 0) then
SafeDrawBitmap(plaatje1, GetDebugCanvas, 30, 140);
if(eerstegetal = 1) then
SafeDrawBitmap(plaatje2, GetDebugCanvas, 30, 140);
if(eerstegetal = 2) then
SafeDrawBitmap(plaatje3, GetDebugCanvas, 30, 140);
end;

procedure nummer2;
begin
if(tweedegetal = 0) then
SafeDrawBitmap(plaatje1, GetDebugCanvas, 120, 140);
if(tweedegetal = 1) then
SafeDrawBitmap(plaatje2, GetDebugCanvas, 120, 140);
if(tweedegetal = 2) then
SafeDrawBitmap(plaatje3, GetDebugCanvas, 120, 140);
end;

procedure nummer3;
begin
if(derdegetal = 0) then
SafeDrawBitmap(plaatje1, GetDebugCanvas, 210, 140);
if(derdegetal = 1) then
SafeDrawBitmap(plaatje2, GetDebugCanvas, 210, 140);
if(derdegetal = 2) then
begin
SafeDrawBitmap(plaatje3, GetDebugCanvas, 210, 140);
end;
end;
procedure tekentjes;
begin
  eerstegetal := random(3);
  tweedegetal := random(3);
  derdegetal := random(3);
nummer1;
wait(random(1200));
nummer2;
wait(random(1200));
nummer3;
wait(random(1200));
wait(3000);
LoadDebugBitmap('C:\Documents and Settings\Truggelaar\Mijn documenten\Mijn afbeeldingen\zwart.bmp');
writeln(' '+inttostr(eerstegetal)+' '+inttostr(tweedegetal)+' '+inttostr(derdegetal)+' ');
end;

procedure extremegamble1;
begin
if(extremegamble) then
 begin
 lose := 1000;
 end;
end;


procedure gamblecheck;
begin
  if(IsKeyDown('x')) then
   begin
     extremegamble := true;
        end;
if(eerstegetal = 1) then
begin
  if(tweedegetal = 1) then
    begin
     if(derdegetal = 1) then
       begin
         writeln('You won !!');
         points := points + i;
       end;
     end;
  end;
if(eerstegetal = 2) then
begin

  if(tweedegetal = 2) then
    begin

     if(derdegetal = 2) then
       begin

         writeln('You won !! ');
         points := points + i;
       end;
     end;
  end;
if(eerstegetal = 0) then
begin

  if(tweedegetal = 0) then
    begin

     if(derdegetal =0) then
       begin

         writeln('You won !!');
         points := points + i;
       end;
     end;
  end;
end;






begin
extremegamble := false;
declarebtmaps;
 DisplayDebugImgWindow(300, 300);
  i:= 300;
  points:= 5000;
  lose:= 100;
  points := strtoint(s);
  cleardebug;
  repeat
   if(IsKeyDown('p')) then
    begin
     WriteINI('Eduard','Eduard',inttostr(points),'C:\save.ini');
   terminatescript();
   end;
    if(IsKeyDown('g'))then
      begin
        if(extremegamble) then
         begin
         SafeDrawBitmap(xtreme, GetDebugCanvas, 70, 220);
         lose:= 250;
           i := 3000;
         end;
   end;

  tekentjes;
     SafeDrawBitmap(eduard123, GetDebugCanvas, 30, 30);
  gamblecheck;
  points := points - lose;
  wait(400);
  writeln('points are :'+inttostr(points)+'');
  wait(1000);
     if(points < 200) then
   begin
     writeln('new points coming !')
     points := points + 5000;
  end;
 until(points < 100)
end.

Very good first script, but idk how to play :s