SRL Archive - News and General

Create your tech monster

Shuttleu

2010-12-06 18:24:53

http://www.verbatim.jp/senshuken/?id=1172573

go there, you create your own tech monster and use it to fisght other tech monsters

it may sound lame, but its quite interesting :p

~shut

Cazax

2010-12-06 19:16:15

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

Shuttleu

2010-12-06 19:21:31

got something for ya

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

Cazax

2010-12-06 19:26:31

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

Shuttleu

2010-12-06 19:27:40

From: Cazax
Nice :) Now make it use the special powers and it'll be perfect!

i plan on doing that tomorrow, but not tonight, im tired and need to catch the chinchillas -_-'

~shut

anonymity

2010-12-06 19:45:43

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?

Shuttleu

2010-12-07 06:04:28

***************************************
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 :shifty:

~shut

Shuttleu

2010-12-07 06:36:09

with specials

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

Frement

2010-12-07 07:33:58

Nice script and nice site!

[PHP]***************************************
Running For: 0:18:48
***************************************
Won 20 times
Lost 4 times
***************************************[/PHP]

Is there a way to save the monster, so I can play at home too?

Shuttleu

2010-12-07 13:57:10

I don't know, I hope there is so I can ~~bot~~ play on my desktop

~shut