SRL Archive - Outdated / Broken

HobGoblins


pwnaz0r

2007-09-03 02:28:01

[LEFT]


{-----------------------------------------------------------|
| |
| HobGoblins Combat Trainer |
| by : Pwnaz0r |
| |
| |
| Designed to level up your combat while |
| training on Hobgoblins on the point |
| near the crafting guild, where you can |
| pick snape grass. |
| |
| |
| |
| |
| Setup : - Declare the Player Array |
| - Set your characters at the point |
| - Run! |
| |
| |
| |
| Features : - MultiThreading! |
| - AutoColor |
| - Alpha Release |
| - Running Away |
| - Will Adapt to AutoRetaliate |
| - Gains Levels Fast! |
| |
| |
| |
| |
|------------------------------------------------------------}



[/LEFT]

Make Sure your characters are positioned here!




Bobarkinator

2007-09-03 02:31:49

Good script. Although I hate your standards.

pwnaz0r

2007-09-03 02:33:24

LOL. Its not supposed to be public yet so lets edit that out k :P

RudeBoiAlex

2007-09-03 09:11:45

Woah i might use on my pure has it got food eating?

Harry

2007-09-03 09:13:07

pwnaz0r, you have wwaayy too much time ^.^ Good job.

Buckleyindahouse

2007-09-03 09:50:13

This is a noob script. Don't use it!!!111!.

No, I'm jk. Nice work, I might use multi-threading in my next script.

Town

2007-09-03 10:00:23

var
V : String;

Procedure Ver;
begin
V := '1.00';
end;

Is that really necessary?

You call Killed; so much that using a bitmap may cause lag. Maybe try CountColor? I'm not sure whether or not that would work.

Shouldn't:

function Health : Integer;
var
tmp1, tmp2 : integer;
begin

If Not InFight then result := HPPercent;

tmp1 := CountColor(65280,243,148,276,157);
tmp2 := tmp1 + CountColor(255,243,148,276,157);

If (tmp2 = tmp1) then
begin
result := 100;
Exit;
end;

result := (tmp1 * 100) / tmp2;

end;

Be:

function Health : Integer;
var
tmp1, tmp2 : integer;
begin

If Not InFight then
begin
result := HPPercent;
Exit;
end;

tmp1 := CountColor(65280,243,148,276,157);
tmp2 := tmp1 + CountColor(255,243,148,276,157);

If (tmp2 = tmp1) then
begin
result := 100;
Exit;
end;

result := (tmp1 * 100) / tmp2;

end;

Good script, though.

pwnaz0r

2007-09-03 12:05:39

From: Town
var
V : String;

Procedure Ver;
begin
V := '1.00';
end;

Is that really necessary?

You call Killed; so much that using a bitmap may cause lag. Maybe try CountColor? I'm not sure whether or not that would work.

Shouldn't:

function Health : Integer;
var
tmp1, tmp2 : integer;
begin

If Not InFight then result := HPPercent;

tmp1 := CountColor(65280,243,148,276,157);
tmp2 := tmp1 + CountColor(255,243,148,276,157);

If (tmp2 = tmp1) then
begin
result := 100;
Exit;
end;

result := (tmp1 * 100) / tmp2;

end;

Be:

function Health : Integer;
var
tmp1, tmp2 : integer;
begin

If Not InFight then
begin
result := HPPercent;
Exit;
end;

tmp1 := CountColor(65280,243,148,276,157);
tmp2 := tmp1 + CountColor(255,243,148,276,157);

If (tmp2 = tmp1) then
begin
result := 100;
Exit;
end;

result := (tmp1 * 100) / tmp2;

end;

Good script, though.


Its so people wont edit the version, no you cant do count color and it doesn't lag it and yes :)

Town

2007-09-03 12:21:37

From: pwnaz0r
Its so people wont edit the version, no you cant do count color and it doesn't lag it and yes :)


Heh, I'm alright with 1 out of 3 :)

pwnaz0r

2007-09-03 12:29:02

:P

the scar noob

2007-09-08 09:02:14

your the scripting machine :p
however couldn't there be more failsafes or so?"(suggesting)

Bourdou!

2007-09-09 12:10:44

For some reason my SRL stats got screwed up so the script won't work. I am going to have to toy around a bit.

Tim0suprem0

2007-09-09 12:15:58

Wow pwnaz0r you are cranking them out! Cool script, I want to check out the multi threading.

n3ss3s

2007-09-09 12:44:02

Good job, your global variable declaration locations are in a bit odd places?

pwnaz0r

2007-09-09 13:38:51

yeah, they are. but i usually do that so people wont tamper with them. I think its just a habit.

And as for failsafes, its only alpha