SRL Archive - Simba (Testing) Scripts

Hello everyone,

I've recently followed a couple videos of Yohojo and made my first two scripts by following the video for beginners. I wasn't quite ready for RuneScape scripts yet so I decided to make another flash game script.

I remembered this old game and decided to make a script for this. After reading some guides on Villavu I also figured out how bitmap works which comes in handy for RuneScape I guess.

The script is made for this Flash Game "Bloody Penguin Baseball"
http://www.methodshop.com/games/play/yeti/yeti1-blood.shtml

The script

program BloodyPenguin;

procedure HitPenguin;
begin
    MoveMouse(633, 374);
    ClickMouse(633, 374, 1);
    Wait(RandomRange(1240, 1280));
    ClickMouse(633, 374, 1);
end;

procedure ClickOnOK;

var
okbox, x, y:Integer;

begin
  okbox := BitmapFromString(16, 8, 'meJyNUMERwCAIy0QO4BgO4QJdRCf' +
        'x5xRs0GFsTrhK73q2HA8MIQQhA8xQoJEARRrBCDntibxaJB/R6tQN' +
        '93ySa37X0a70hXsys4616F7XivEREfBQ2/BJZuHd/vGjg97S5730w' +
        'KCIH9n/J3XmIRfMTqGJ');
  if (FindBitmapToleranceIn(okbox, X, Y, 0, 300, 720, 460, 15)) then
  MoveMouse(x, y);
  ClickMouse(x, y, 1);
  FreeBitMap(okbox);
  wait(2000);
end;

 begin
  ActivateClient;
  HitPenguin;
  Repeat
  ClickOnOK;
  HitPenguin;
  until(false);

 end.

Any suggestions for me to improve it, or is there any unnecessary code?

Greetz,

JJ.

I'm sure you can remove the

ActivateClient;

part.

Otherwise, it seems great! I have a highscore of 883.2 using this :P
By the way, what's your highscore (legit one)? Mine's 667.8 :D

From: injustice
I'm sure you can remove the

ActivateClient;

part.

Otherwise, it seems great! I have a highscore of 883.2 using this :P
By the way, what's your highscore (legit one)? Mine's 667.8 :D

ActivateClient;

Brings the positions that have been crosshaired to the front of the screen so the macro does not perform the task without the game being selected, so it is quite useful. ;)

Nice script. :p

indent your code so its easier to read.

Just a note - put your code into

 Tags rather than [CODE] tags.

I might use this later today even though I've never played this game before :p

It took me five minutes to figure out how to stop the script. D:

From: NKN
It took me five minutes to figure out how to stop the script. D:

D:
Look where I am now when this was my first script ever haha.

From: J J
D:
Look where I am now when this was my first script ever haha.

There was quite a jump between this and the GOP script.

From: J J
Hello everyone,

I've recently followed a couple videos of Yohojo and made my first two scripts by following the video for beginners. I wasn't quite ready for RuneScape scripts yet so I decided to make another flash game script.

I remembered this old game and decided to make a script for this. After reading some guides on Villavu I also figured out how bitmap works which comes in handy for RuneScape I guess.

The script is made for this Flash Game "Bloody Penguin Baseball"
http://www.methodshop.com/games/play/yeti/yeti1-blood.shtml

The script

program BloodyPenguin;

procedure HitPenguin;
begin
    MoveMouse(633, 374);
    ClickMouse(633, 374, 1);
    Wait(RandomRange(1240, 1280));
    ClickMouse(633, 374, 1);
end;

procedure ClickOnOK;

var
okbox, x, y:Integer;

begin
  okbox := BitmapFromString(16, 8, 'meJyNUMERwCAIy0QO4BgO4QJdRCf' +
        'x5xRs0GFsTrhK73q2HA8MIQQhA8xQoJEARRrBCDntibxaJB/R6tQN' +
        '93ySa37X0a70hXsys4616F7XivEREfBQ2/BJZuHd/vGjg97S5730w' +
        'KCIH9n/J3XmIRfMTqGJ');
  if (FindBitmapToleranceIn(okbox, X, Y, 0, 300, 720, 460, 15)) then
  MoveMouse(x, y);
  ClickMouse(x, y, 1);
  FreeBitMap(okbox);
  wait(2000);
end;

 begin
  ActivateClient;
  HitPenguin;
  Repeat
  ClickOnOK;
  HitPenguin;
  until(false);

 end.

Any suggestions for me to improve it, or is there any unnecessary code?

Greetz,

JJ.

You missed out a 'begin' after the if FindBitMapblabla then, as you are performing multiple actions after that :p

I shall find some time to make my first script too…

From: riwu


I shall find some time to make my first script too…

Have you forgotten about Riwu's Domdaggs? I'm pretty sure you made that.
EDIT: BTW JJ, I have like a 500 score on that game, your script is going to put me to shame. I'll try it out