Results 1 to 10 of 10

Thread: Create your tech monster

  1. #1
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, this is quite fun to play Good game to pass time.


  3. #3
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    got something for ya
    Simba Code:
    program new;
    {$i srl/srl.scar}

    var
      NumLose, NumWin: Integer;
      Where: string;

    procedure Setup;
    begin
      Where:= 'Start';
    end;

    procedure Proggy;
    var
      H, M, S: Integer;
    begin
      ConvertTime(GetTimeRunning, H, M, S);
      Writeln('***************************************');
      Writeln('Running For: '+IntToStr(H)+':'+IntToStr(M)+':'+IntToStr(S));
      Writeln('***************************************');
      Writeln('Won '+IntToStr(NumWin)+' times');
      Writeln('Lost '+IntToStr(NumLose)+' times');
      Writeln('***************************************');
    end;

    procedure StartGame;
    var
      RandomMatch, x, y: Integer;
    begin                  
      RandomMatch:= BitmapFromString(31, 19, 'meJztk7mKAkEQhh9mFO/7mEBZTT' +
            'URAwNH8C0UFEExMTAxFDE1ESMxEYRhAgMNTExEEUw0EU/EAwT3Z4p' +
            'tBmd3MVtY/IOmq7r6q+6qbo5764/lcDg8soxG49OSRqNxu91KD8Js' +
            'NhszscXlcmFiMBgI8rR9NBo9vrRarXieZ6vVavV2u4XDYTL9fv/1e' +
            'l0ul3a7nTyFQmG73ZrN5mw2SwQ1vN1um0ymUCiEjd1ul5bgWa/XSN' +
            'dsNhn8fD5vNptGo6GGHw6HYDD4LZzMfr8/GAxonkqlTqdTuVzGSMU' +
            'heKVSwXUSiYQabrVa1XAAO50Oxvv9nk6n4dfpdJPJpNVqoYzH47FY' +
            'LDI4sL1ebz6fWyyWV+DD4RDx+/0+EomQPx6P43hkIu9sNtPr9QQXB' +
            'MHn8+12u1qt9gocZUEAKszKi8o/FMKNkskkgyMgk8kgOzr+ChzzXC' +
            '6H+Fgshr4Aks/nP2QFAoHFYiGKohKu1WolSYJfCUfwT3BcfDqdjsf' +
            'jer3OmkgqlUqXyyUajTI4hDOgHb88RQgQ+ggQPgjeOUz1d4Af2TGi' +
            '18zvdDq9Xi8nv1teFvfW/9InRyXyZA==');
      if FindBitmap(RandomMatch, x, y) then
      begin
        Mouse(x, y, 0, 0, True);
        Where:= 'In Game';
      end;
      FreeBitmap(RandomMatch);
    end;

    procedure WonOrLost;
    var
      Won, Lose, x, y: integer;
    begin
      Won:= BitmapFromString(45, 14, 'meJxTViYANmzY8P//fwaiwefPnz' +
            'U0NPCbmZeXh2YmfvWqqqovX74k3g00ckZcXBxJQUEjZ0yfPv0/GAy' +
            'sMy5evDjgoeHm5kZqUNDCGfX19aS6gRbO2LFjx4A7Q09P7+PHj6S6' +
            'gerOSE9PJyMoyHaGFQ6wYMECsp2By0w4wHTGf9yADDcgG4jfcLLNH' +
            'wkAAN3UJ64=');
      Lose:= BitmapFromString(40, 15, 'meJzF1C8KhTAcwPHd5RWTCAZh6X' +
            'kCdwOzYBMsnkGrYBE8yZrRYDNtQZvJA8wfT56If3CTx943z302p0N' +
            'ILSFEkiQvubIsg/GKwqXbtq2kC+V5/hNafIrjWJ4Ow7Dv+50uJDrS' +
            'XddZliVPu65bFMU0Tesk77vgNE93XVWVvLuEMU7TlFIKC7gdDO7pl' +
            'iF4gar0kmmaz9yFHobB87xn9GN3e1J/ceu6dhxHvwvBH00I0e/CgH' +
            'EcgyDQ7KLvF16WpW3bOt2VZoxFUaTTRZvbr2kaeNAwjKtp8V1K7m4' +
            'NnHO4Hn3fP7ozQMVcrA==');
      if FindBitmap(Won, x, y) then
      begin
        Inc(NumWin)
        Where:= 'OK';
      end;
      if FindBitmap(Lose, x, y) then
      begin
        Inc(NumLose)
        Where:= 'OK';
      end;
      FreeBitmap(Won);
      FreeBitmap(Lose);
    end;

    procedure ClickOk;
    var
      OK, x, y: Integer;
    begin
      OK:= BitmapFromString(12, 12, 'meJzNjjEKhDAQRQ8zVRCCIEjATl' +
            'vB0tpCq3iBgOQEYuMxksLDCFaWprMRtJLssEHJ3mBf9TN5/BlCCAC' +
            '0bXuep1IKsxDiOA5KKQZr7TiO8CClvK4rSRLnOGEYBvDI8xyHdV3j' +
            'L3Zi7vsefkHnvu+maVzPsizbtjHGfKfrOn9XmqbGmHVdoygi35s55' +
            '9ivtfZvzrJs3/d5nu3DNE3Ofx3MRVFgLsuyqqo4jt+lQRD4zzAM4c' +
            '/4AGCkl58=');
      if FindBitmap(OK, x, y) then
      begin
        Mouse(x, y, 0, 0, True);
        Where:= 'Start';
        Proggy;
        Wait(3000);
      end;
      FreeBitmap(OK);
    end;

    begin
      SetupSRL;
      Setup;
      repeat
        case Where of
          'Start': StartGame;
          'In Game': WonOrLost;
          'OK': ClickOk;
        end;
      until(False);
    end.

    ~shut

  4. #4
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice Now make it use the special powers and it'll be perfect!


  5. #5
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  6. #6
    Join Date
    Jan 2007
    Location
    the middle of know-where
    Posts
    1,308
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    lol...

    Shut post 1 = 'found a sweet game!!'
    Shut post 2 = 'found how to cheat at sweet game!!'

    =[, it won't load for me.. Just gives me a blank page... suggestions please?
    Last edited by anonymity; 12-07-2010 at 08:21 PM.
    On vacation in NeverLand,
    Code:
    typedef int bool;
    enum { false, true };

  7. #7
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Progress Report:
    ***************************************
    Running For: 9:40:15
    ***************************************
    Won 337 times
    Lost 379 times
    ***************************************


    just a small one, it was still running well, but i stopped it because, i had to do something

    ~shut

  8. #8
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    with specials
    Simba Code:
    program new;
    {$i srl/srl.scar}

    var
      NumLose, NumWin: Integer;
      Where: string;

    procedure Setup;
    begin
      Where:= 'Start';
    end;

    procedure Proggy;
    var
      H, M, S: Integer;
    begin
      ConvertTime(GetTimeRunning, H, M, S);
      Writeln('***************************************');
      Writeln('Running For: '+IntToStr(H)+':'+IntToStr(M)+':'+IntToStr(S));
      Writeln('***************************************');
      Writeln('Won '+IntToStr(NumWin)+' times');
      Writeln('Lost '+IntToStr(NumLose)+' times');
      Writeln('***************************************');
    end;

    procedure StartGame;
    var
      RandomMatch, x, y: Integer;
    begin
      RandomMatch:= BitmapFromString(31, 19, 'meJztk7mKAkEQhh9mFO/7mEBZTT' +
            'URAwNH8C0UFEExMTAxFDE1ESMxEYRhAgMNTExEEUw0EU/EAwT3Z4p' +
            'tBmd3MVtY/IOmq7r6q+6qbo5764/lcDg8soxG49OSRqNxu91KD8Js' +
            'NhszscXlcmFiMBgI8rR9NBo9vrRarXieZ6vVavV2u4XDYTL9fv/1e' +
            'l0ul3a7nTyFQmG73ZrN5mw2SwQ1vN1um0ymUCiEjd1ul5bgWa/XSN' +
            'dsNhn8fD5vNptGo6GGHw6HYDD4LZzMfr8/GAxonkqlTqdTuVzGSMU' +
            'heKVSwXUSiYQabrVa1XAAO50Oxvv9nk6n4dfpdJPJpNVqoYzH47FY' +
            'LDI4sL1ebz6fWyyWV+DD4RDx+/0+EomQPx6P43hkIu9sNtPr9QQXB' +
            'MHn8+12u1qt9gocZUEAKszKi8o/FMKNkskkgyMgk8kgOzr+ChzzXC' +
            '6H+Fgshr4Aks/nP2QFAoHFYiGKohKu1WolSYJfCUfwT3BcfDqdjsf' +
            'jer3OmkgqlUqXyyUajTI4hDOgHb88RQgQ+ggQPgjeOUz1d4Af2TGi' +
            '18zvdDq9Xi8nv1teFvfW/9InRyXyZA==');
      if FindBitmap(RandomMatch, x, y) then
      begin
        Mouse(x, y, 0, 0, True);
        Where:= 'In Game';
      end;
      FreeBitmap(RandomMatch);
    end;

    procedure ClickSpecials;
    var
      Health, HealthBar, Rocket, Swing, x, y: Integer;
    begin
      HealthBar:= BitmapFromString(1, 263, 'meJw1wgdXTmEAAOB/8K723jsSiU' +
            'hJJBKRSCTS3nuX9t2znfbW3vNrh7/lvfecnvNY/7NY038PbP7s2l5' +
            't211u2F+sOZwvO54tOp3OO5/MuBxPuVrG3Y5G3Q+HPQ4GPff7vPZ6' +
            'vPdUn13Jd0fw22b9t7oDNjsCNtoC11uC1pqCV+tvrNTQN5erQpbKb' +
            'y2Whv4uur1QcGc+N2w+++5cZvhsxr2Z9PvTaRFTqQ8mUx5OJEeOJz' +
            '0aS4waTYgeiY/+Ffd4ODZmKObJYFTsQOTTgYhn/eFxfWHPe0Pje0J' +
            'e6MH0Sy0wQfV7pfgkyp6vJbc3okuS4PiWt3/H2SSzVu8ZlMKADwz4' +
            'yIBUBnxiQBoDPjPgCwPSWfCVBRks+MaC7yzIZEEWC7JZkMOBXHMeB' +
            '/I5WMDBQg4WcbCYhyU8LOVhGQ8reFjJwyoeVvOwRoC1AqwTYL0AGw' +
            'TYKMAmATULqEVErSJqE1G7iDpE1CmiLhF1S0ZGQqyEOAnxEhIkJEp' +
            'IlpAiI1VGmox1GffIuFfGfTLul/GAggcVPKTgYQWPKHhUwWMKHlfx' +
            'hIonVTyl4mkVz6iEnlXJnErmNbKgkUWNLGlkWSMrGlnVyJpG1nWyo' +
            'ZNNnWzpZFsnOzrZ1cl+j9W+brWvmVVro2I8kG2M0nXR1ijYHtK8nZ' +
            'Gj7Q9Z4xFDOxx1m7tox6NOo6WDdrK0O1nazK3O9PFP2uW45Xoz7Xr' +
            'c5HpCN9JuJw3metr9pM79lK6lPU5rzNWe9FmVudLLWOF1Vk57n5eZ' +
            'S2kfY4m5mPa9KDIX+hkLzPn+l3SeOTfAmGO8yg40Zpl/BNH/AU0dRrM=');
      Health:= BitmapFromString(16, 13, 'meJytkksNQyEQRcUgAQEYQAECkI' +
            'APhKAAC6xRgAIM9J10UkIhlE3varg588kwSn0phFBKeX2UUlI3ee8' +
            'hySJwzl15mJwzja6k1nopSAvME1xrjTHOJk/MPcUYg8/YO4+5p4h/' +
            '4v/o09paKyaBDPmDR7338hbBMBde/ugkEgGWFbH5ueBQa21MuIilz' +
            'ccjV7Fs8gGUlAw5');
      if ((not(FindBitmap(HealthBar, x, y))) and FindBitmap(Health, x, y)) then
        Mouse(x, y, 0, 0, True);
      if (Random(200)<10) then
      begin
        Swing:= BitmapFromString(22, 14, 'meJydkKERhEAMRYs5hUZisHgUBa' +
            'BOY7C0sAKPpQMaoAEUFonF7r0hc7nMAivui51s8vPzk9crRJ7nRVH' +
            'YDN/jOGwmTdO6ri+tvyp8K9J1nfceZSUsyxJRABCsyDzPKDRNo+18' +
            'CYK5NuOcg6Mi/sQ4jiJOzHt1ThK3urh0IYJbibdtE2UwDIMezZ5La' +
            'OKWAJolCKhSQpahEGgJqjJCzUQgxwkUAMuKB0GSJHh7n2BuWZZkdP' +
            'FpmnSdW9C17zun8F8Qk+n7XnUiYLSseQvr8xZZlrkTTwr4jyu0bQu' +
            'H90lhXde4AveEVlXV3wrq357xSeED6niQlg==');
        if FindBitmap(Swing, x, y) then
          Mouse(x, y, 0, 0, True) else
        begin
          Rocket:= BitmapFromString(14, 15, 'meJylkVENwCAMRMUgAQEYQAECkI' +
            'ACDKAABShAAXYwwC40Y4R1bMnu6114IbQIcSXnHGMUb/Hetx7n3Eb' +
            'TWrcztVbUJ9Na26agPpnGmNlE/W9KKWcT9ctEm3diLaWU2US9LxYa' +
            'HQ158LLY5XRh1sRXEgP2ZgiBGMCapgezK6WIAajE7AZSSnQPgBUOp' +
            'E8b0g==');
          if FindBitmap(Rocket, x, y) then
            Mouse(x, y, 0, 0, True);
          FreeBitmap(Rocket);
        end;
        FreeBitmap(Swing);
      end;
      FreeBitmap(HealthBar);
      FreeBitmap(Health);
    end;

    procedure WonOrLost;
    var
      Won, Lose, x, y: integer;
    begin
      Won:= BitmapFromString(45, 14, 'meJxTViYANmzY8P//fwaiwefPnz' +
            'U0NPCbmZeXh2YmfvWqqqovX74k3g00ckZcXBxJQUEjZ0yfPv0/GAy' +
            'sMy5evDjgoeHm5kZqUNDCGfX19aS6gRbO2LFjx4A7Q09P7+PHj6S6' +
            'gerOSE9PJyMoyHaGFQ6wYMECsp2By0w4wHTGf9yADDcgG4jfcLLNH' +
            'wkAAN3UJ64=');
      Lose:= BitmapFromString(40, 15, 'meJzF1C8KhTAcwPHd5RWTCAZh6X' +
            'kCdwOzYBMsnkGrYBE8yZrRYDNtQZvJA8wfT56If3CTx943z302p0N' +
            'ILSFEkiQvubIsg/GKwqXbtq2kC+V5/hNafIrjWJ4Ow7Dv+50uJDrS' +
            'XddZliVPu65bFMU0Tesk77vgNE93XVWVvLuEMU7TlFIKC7gdDO7pl' +
            'iF4gar0kmmaz9yFHobB87xn9GN3e1J/ceu6dhxHvwvBH00I0e/CgH' +
            'EcgyDQ7KLvF16WpW3bOt2VZoxFUaTTRZvbr2kaeNAwjKtp8V1K7m4' +
            'NnHO4Hn3fP7ozQMVcrA==');
      if FindBitmap(Won, x, y) then
      begin
        Inc(NumWin)
        Where:= 'OK';
      end;
      if FindBitmap(Lose, x, y) then
      begin
        Inc(NumLose)
        Where:= 'OK';
      end;
      FreeBitmap(Won);
      FreeBitmap(Lose);
      ClickSpecials;
    end;

    procedure ClickOk;
    var
      OK, x, y: Integer;
    begin
      OK:= BitmapFromString(12, 12, 'meJzNjjEKhDAQRQ8zVRCCIEjATl' +
            'vB0tpCq3iBgOQEYuMxksLDCFaWprMRtJLssEHJ3mBf9TN5/BlCCAC' +
            '0bXuep1IKsxDiOA5KKQZr7TiO8CClvK4rSRLnOGEYBvDI8xyHdV3j' +
            'L3Zi7vsefkHnvu+maVzPsizbtjHGfKfrOn9XmqbGmHVdoygi35s55' +
            '9ivtfZvzrJs3/d5nu3DNE3Ofx3MRVFgLsuyqqo4jt+lQRD4zzAM4c' +
            '/4AGCkl58=');
      if FindBitmap(OK, x, y) then
      begin
        Mouse(x, y, 0, 0, True);
        Where:= 'Start';
        Proggy;
        Wait(3000);
      end;
      FreeBitmap(OK);
    end;

    begin
      SetupSRL;
      Setup;
      repeat
        case Where of
          'Start': StartGame;
          'In Game': WonOrLost;
          'OK': ClickOk;
        end;
      until(False);
    end.

    ~shut

  9. #9
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Nice script and nice site!

    PHP Code:
    ***************************************
    Running For: 0:18:48
    ***************************************
    Won 20 times
    Lost 4 times
    *************************************** 
    Is there a way to save the monster, so I can play at home too?
    There used to be something meaningful here.

  10. #10
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •