Eicca
2007-11-02 13:31:48
(All the wnb leet scripters include the picture of their face! :D )Introducing teh cow fighter! The idea in this is that when you run this with a 40+ combat dude, you'll not take that much damage. When hp gets under 10, it'll go to rest, just idle and do some typing etc. This script is just an alpha version and i've been coding this for few hours so I'm gonna take a brake now.
program CowKillerForHighLevelChars;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\fighting.scar}
{
CowKillerForHighLevelChars aka CKFHLC is out now!! Zomg :D
Thanks to: Masquerader, Narcle, Knives, Stupid3ooo, Starblaster100 and MasterKill
By: Eicca; for SRL community! <3
}
Const StartPlayer = 0;
Var CowColor, Minutes, Kills: Integer;
Procedure Setupping;
begin
CowColor := 3426126; // <- !
Kills := 50 // <- !
end;
//Dont touch below!
Procedure DeclarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=StartPlayer;
Players[0].Name :='username'; // <- !
Players[0].Pass :='password'; // <- !
Players[0].Nick :='ser'; // <- !
Players[0].Active:=True;
{
Players[1].Name :='username';
Players[1].Pass :='password';
Players[1].Nick :='ser';
Players[1].Active:=True;
Players[2].Name :='username';
Players[2].Pass :='password';
Players[2].Nick :='ser';
Players[2].Active:=True;
}
writeln('>> ' +inttostr(HowManyPlayers)+ ' players and the first one is: '+ players[currentplayer].name);
End;
Procedure Talking;
Begin
if (random(10) = 1) then
begin
Case Random(100) Of //line 54
0: Typesendd := 'loldies'
1: Typesendd := 'omg'
2: Typesendd := 'lol :D'
3: Typesendd := 'nubs?!'
4: Typesendd := 'hehe cow D:D:D'
5: Typesendd := 'suomalaisii?'
6: Typesendd := 'på svenska?'
7: Typesendd := 'lolzomg'
8: Typesendd := 'almost a level'
9: Typesendd := 'i shud train str'
10: Typesendd := 'attack levels?'
11: Typesendd := 'str levels?'
12: Typesendd := 'mining levels?'
13: Typesendd := 'fishing lvls?'
14: Typesendd := 'cooking lvls?'
15: Typesendd := 'whaddup?'
16: Typesendd := 'zomggs'
17: Typesendd := 'i are zombie'
18: Typesendd := 'lolled, cows xD'
19: Typesendd := 'i prefer chickens'
20: Typesendd := 'i am not noob'
21: Typesendd := 'are you a noob?!'
22: Typesendd := 'woooot?'
23: Typesendd := 'server restart?'
24: Typesendd := 'heheheheee'
25: Typesendd := 'comback'
26: Typesendd := 'suomi finland perkl'
27: Typesendd := 'ruotsi on syvältä'
28: Typesendd := 'öäå'
29: Typesendd := 'åmmggggg'
30: Typesendd := 'tycker du svenska?'
31: Typesendd := 'lolosfdl'
32: Typesendd := ':D'
33: Typesendd := ':)'
34: Typesendd := 'I like cows'
35: Typesendd := 'I dont like cows..'
36: Typesendd := 'Does anyone here like dogs?'
37: Typesendd := 'I like my grand mother'
38: Typesendd := 'poor cows xD'
39: Typesendd := ':O'
40: Typesendd := 'white: is this text white?'
41: Typesendd := 'hehehehf'
42: Typesendd := 'gl hf'
43: Typesendd := 'gl stands for Good Luck'
44: Typesendd := 'did you know that hf stands for Have Fun?'
45: Typesendd := 'how are you fellow runescape people?'
46: Typesendd := 'This is boring'
47: Typesendd := 'should i go to mining?'
48: Typesendd := 'do you guys have a favorite server?'
49: Typesendd := 'hmm i think that i should raise my fishing level.'
50: Typesendd := 'tell me people, what are your cooking levels?'
51: Typesendd := 'does anyone here like naruto?'
52: Typesendd := 'does any of you like beef?'
53: Typesendd := 'mammas köttbullars :D'
54: Typesendd := 'jag tycker inte sweden'
55: Typesendd := 'suomi on kiva maa' //Don't worry fellow non finnish people,
56: Typesendd := 'ootte kivoja'//most of these sentences stands for like
57: Typesendd := 'lehmät on kivoja'//"Finland is cool country", "I like cows" etc xD
58: Typesendd := 'what is a proton?'
59: Typesendd := 'what does atom mean?'
60: Typesendd := 'do you people speak english?'
61: Typesendd := 'do you people speak finnish?'
62: Typesendd := 'all your base are belong to us'
63: Typesendd := 'what is google?'
64: Typesendd := 'what is firefox?'
65: Typesendd := 'omgzor :D'
66: Typesendd := 'hehehe this is fun'
67: Typesendd := 'my biggest crit is 10'
68: Typesendd := 'what is your biggest crits?'
69: Typesendd := 'what is your magic level?'
70: Typesendd := 'how much xp do you guys need to level up?'
71: Typesendd := 'omg need so much exp'
72: Typesendd := 'lol this is not fun'
73: Typesendd := 'does anyone play travian?'
74: Typesendd := 'i like gladiatus'
75: Typesendd := 'almost a level!'
76: Typesendd := 'chickeeeeen'
77: Typesendd := 'cow says moooo'
78: Typesendd := 'i like runescape very much'
79: Typesendd := 'me arnold swarchenegger'
80: Typesendd := 'me terminator'
81: Typesendd := 'jaguar is good car'
82: Typesendd := 'i like lamborgini'
83: Typesendd := 'what can i do with a bronze axe?'
84: Typesendd := 'i hate chinese bots'
85: Typesendd := 'i hate bots'
86: Typesendd := 'i hate all autoers'
87: Typesendd := 'i would like to be a member'
88: Typesendd := 'lolled almost done'
89: Typesendd := 'i like beef'
90: Typesendd := 'what does irl mean?'
91: Typesendd := 'ok'
92: Typesendd := 'i want to be zezima'
93: Typesendd := 'i would want a party hat'
94: Typesendd := 'omg system restore!'
95: Typesendd := 'omg a party hat!'
96: Typesendd := 'lol milk'
97: Typesendd := 'i like milk'
98: Typesendd := 'i am not a cow'
99: Typesendd := 'are yo noob?'
99: Typesendd := 'You are dead?'
TypeSend(Typesendd);
end;
end;
function GetXp2(skill: string): Integer;//Original by Masquerader, edited by Narcle
var
textx, texty, XPboxedge, len, x, y, x1, y1, I, II, l, WaitT: Integer;
xp, Nums, text2, xpis : string;
t: TPoint;
begin
XPboxedge := DTMFromString('78DA635CC2C8C0100CC458004C947131916A8' +
'250D5FCFFBF0055CD124C3558CD3121600E488D3101739610A9C6' +
'04BF1A00F7DF0C91');
Result := -1;
GameTab(2);
t := skilltocoords(skill);
MMouse(t.x, t.y + 12, 5, 5);
repeat
WaitT := WaitT+1;
wait(10);
if WaitT >= 3000 then exit;
until findcolor(x, y, 10551295, 554, 205, 743, 465);
wait(300 + Random(100))
if FindDtm(XPboxedge, x1, y1, 554, 205, 743, 465) then
if (istextinareaex(554, 205, 743, 465, textx, texty, 'XP', 0, smallchars, False, True, 0, 2, 0))then;
begin
len := (x1 - textx - 22) div 7;
xp := Trim(gettextatex(textx+22, texty, 5, smallchars, False, False, 0, 3, 0, len, False, tr_AllChars))
try
begin
for l := 1 to Length(xp) do
begin
if (xp[l] = 'O') then text2 := text2 + '0' else text2 := text2+ xp[l];
end;
Nums := '01234567890';
for I := 1 to Length(Text2) do
begin
for II := 1 to 10 do
begin
if (Copy(text2, I, 1) = Copy(Nums, II, 1)) then
xpis := xpis + Copy(Text2, I, 1);
end;
end;
end;
result := strtoint(xpis);
except
WriteLn('Failed to get XP');
end;
WriteLn(Skill + ' = ' + IntToStr(Result));
end;
freeDTM(XPboxedge);
end;
Procedure MMNorth100; //By Knives (<3)
var
Line,a,b,I: Integer;
E: Extended;
begin
Line := DTMFromString('78DA632C656260706140012FBEBF651001D28' +
'C503E23488D3B116A3CA9A4C6990835DE44A8F1C5ADE63F100000' +
'9B301D64');
MakeCompass('E')
Wait(500+random(500))
SendArrowWait(1,620+random(80))
repeat
SendArrowWait(1,30+random(20))
Wait(100+random(400))
I:= I + 1;
until FindDTMRotated(Line,a,b,620,49,662,98,0,0,0.01,E) or (I = 10)
SendArrowWait(1,30+random(20))
FreeDTM(Line)
end;
Function FindEnemyOutAttack(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; AnemyHight, Tolerance: Integer): Boolean; //By: Stupid3ooo and Starblaster100 and MasterKill
var
a, b, c, i, x1, y1, x2, y2, x3, y3: Integer;
Start: Boolean;
begin
For b := 0 to (GetArrayLength(Color)-1) do
Begin
if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
Begin
Start := True;
Break;
end;
end;
If(Start)then
Begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
If not(LoggedIn)then
break;
a := a + 1;
If (a = 1) then
c := c + 1
else If (a = 3) then
c := c + 1;
For i := 1 to c do
Begin
If (a = 1) then
Begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
If (a = 2) then
Begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
If (a = 3) then
Begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
If (a = 4) then
Begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
If (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
If (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
If (x2 > 515) then
Break;
For b := 0 to (GetArrayLength(Color)-1) do
Begin
If (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
Begin
if (not FindColor(x3, y3, 65280, (cx - AnemyHight), (cy - AnemyHight), (cx + AnemyHight), (cy + AnemyHight))) or
(not FindColor(x3, y3, 255, (cx - AnemyHight), (cy - AnemyHight), (cx + AnemyHight), (cy + AnemyHight))) then
begin
MMouse(cx, cy, 0, 0)
Wait(random(50));
if (IsUpTextMultiCustom(Text)) then
Begin
Result := True;
Exit;
end;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
Procedure RunOnce;
begin
Setupping;
DeclarePlayers;
ClearDebug;
SetupSRL;
HighestAngle;
FTWait(1);
ActivateClient;
FTWait(1);
DoChats;
end;
Procedure RepeatThis;
begin
repeat
FindEnemyOutAttack(x, y, ['att', 'ack'], CowColor, 40, 5)
kills := kills - 1;
until (kills = 0)
end;
begin
RunOnce;
RepeatThis;
end.
Edit n:o 1