zenma
08-11-2007, 06:38 PM
hey guys im just gonna post it here but im gonna fix some stuff that needs to be fixed first so in a few hours or less itll be edited into this post
{.include srl/srl.scar}
{.include srl/srl/extended/xantiban.scar}
//credits: dvdcrayola for suggesting the sometimes dont backspace letter thing
const
pmx1 = 542;
pmy1 = 208;
pmx2 = 742;
pmy2 = 259;
var
attempts: integer;
i: integer;
procedure Typeno8(Text: string);
var
i: Integer;
Shift: Boolean;
begin
for i := 1 to Length(Text) do
begin
Shift := (Text[i] = ':') or (Text[i] = '!') or (Text[i] = '+') or
(Text[i] = '?') or (Text[i] = '<') or (Text[i] = '>') or
(Text[i] = '@') or (Text[i] = '#') or (Text[i] = '$') or
(Text[i] = '&') or (Text[i] = '%') or (Text[i] = '*');
if (Shift) then
begin
KeyDown(VK_Shift);
Wait(5 + Random(20));
end;
TypeByte(GetKeyCode(Text[i]));
if (Shift) then
begin
KeyUp(VK_Shift);
Wait(5 + Random(20));
end;
Wait(50 + Random(120));
end;
Wait(100 + Random(100));
end;
function MSpeed: Integer;
begin
case random(11) of
1: Mousespeed := Mousespeed;
2: Mousespeed := Mousespeed;
3: Mousespeed := Mousespeed;
4: Mousespeed := Mousespeed;
5: Mousespeed := 9;
6: Mousespeed := 10;
7: Mousespeed := 11;
8: Mousespeed := 12;
9: Mousespeed := 13;
10: Mousespeed := 14;
0: Mousespeed := 15;
end;
end;
var
times, xtimes: integer;
letter: integer;
threalm, adventure, alkharid, alone, arabian, arabian2, lteleport, alternativeroot, ambientjungle, reportabuse: integer;
blackdot: integer;
whitedot: integer;
orangedot: integer;
world: integer;
gangplank: integer;
procedure unloadbmaps;
begin
freebitmap(threalm);
freebitmap(adventure);
freebitmap(alkharid);
freebitmap(alone);
freebitmap(arabian);
freebitmap(arabian2);
freebitmap(alternativeroot);
freebitmap(ambientjungle);
freebitmap(reportabuse);
freebitmap(lteleport);
freebitmap(world);
end;
procedure ftwaitalls(Time: Integer); // WT-Fakawi.
var t: integer;
fifty: integer;
timedone: integer;
begin
time := time * 250;
for T := 1 to Time do
begin
fifty := random(50);
Wait(250 + random(fifty));
FindTalk;
timedone := timedone + 250 + fifty;
FindNormalRandoms;
Wait(10 + random(6));
UseBoxSolver := true;
Wait(10 + random(6));
UseCerterSolver := true;
Wait(10 + random(6));
UseSandwichSolver := true;
Wait(10 + random(6));
FindMaze;
Wait(10 + random(6));
Solvepinball;
Wait(10 + random(6));
end;
end;
{-------------------------------------------------------------------------------
Procedure FTWaitAll(Time:Integer); // By WT-Fakawi.
Anti-Random and Wait Procedure.
-------------------------------------------------------------------------------}
var Ry: integer;
procedure ZenmaAntiBan1;
begin
Status('zenmaantiban1');
Ry := Random(42);
case Ry of
0: begin
ftwaitalls(1);
HoverSkill('defence', false);
end;
1: begin
PickUpMouse;
ftwaitalls(1);
end;
2: begin
HoverSkill('hitpoints', false);
ftwaitalls(1);
end;
3: begin
Mspeed;
ftwaitalls(1);
end;
5: Wait(153 + random(22));
6: Wait(100 + Random(14));
7: Wait(82 + Random(15));
8: begin; GameTab(Random(7) + 1)Wait(304 + Random(53)) end;
10: HoverSkill('defence', false);
11: Mspeed;
13: begin; GameTab(Random(7) + 1)Wait(300 + Random(50)) end;
14: Wait(104 + Random(44));
16: Mspeed;
17: PickUpMouse;
18: Wait(99 + Random(15));
19: PickUpMouse;
19: begin
PickUpMouse;
wait(random(494) + random(532));
end;
20: begin
MSpeed;
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
ftwaitalls(4 + random(3));
end;
21: begin
AlmostLogOut;
wait(4594 + random(523));
GameTab(4);
end;
22: begin
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
wait(178 + random(1367));
Mspeed;
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
wait(641 + random(1322));
end;
23: begin
GameTab(1 + Random(12));
ftwaitalls(7 + random(4));
GameTab(4);
end;
24: begin Gametab(14); //
case random(8) of //
1: begin //
threalm := BitmapFromString2(False, 'a95AED78DAED96D10E832' +
'00C457FA913017D1C4EFEFF93C6F56159B2CC404174CB3D0F 8D29' +
'B5B517681411894B3212A6648C0CC93A8B671BE07606AB767 2B0E' +
'30ABB6EAB119E611AF16C9797C7218198BB4FD607ACBA2DDE CF5B' +
'E66061FD0D9E016F79F340F119314E909F1C408C7BB6344FD B6FE' +
'8A940FF2AFB75EBF5BC4EA77DF2534FEA79AE9E398A7D9B6F EF9E' +
'D219A89B2D39557222F7FD6DFBD2F558BAFBA5FAD4EC484EA 4CEA' +
'3EBFA883BFB79065A55C9F973F86F3DEBF539F77C1E3D0D6A 764A' +
'373D7E454FDD9C6CABA7EE94F6BFEF8410420821841042082 1849' +
'4F10406E'); //
wait(500 + random(200));
if findbitmaptolerancein(threalm, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(threalm, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(threalm, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
2: begin
adventure := BitmapFromString2(False, 'aB4F9A78DAEDD75B0E83' +
'201085E12D8155D0C76A65FF4BAA33496B93A6868B179AFCD F033' +
'1038A09C70BC6186BAD594C6169BA7696D6F74BEB7C2BC7BD 9363' +
'23C7AED3BAD3CA6D7AF736BD8EECB412B4B7317A05B9B2BB4 BAF7' +
'F687DECE45867F1A3D627AD0CCDABD7B6F3A033CA18E04421 AC6D' +
'DEB9404C3652D3525BBA487BFDAB10BF46A40BA40B57FD6BF D6AE' +
'3CF8D59DFEDFAF6BC9FF59891E5F7F63D63DE9DF3EE4A4D42 DE9F' +
'5BF9C892D9F79A31EF09225D7B2521F5D93F2287473C35A4E B1FD' +
'395FA65AC275D7C19AF4AD7397B87DADE5D285F85D4FFFFBC FDC5' +
'5E3B85F27D046F30000000000000000000000000AC9E9A4') ;
wait(500 + random(200));
if findbitmaptolerancein(adventure, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(adventure, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(adventure, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
3: begin
alkharid := BitmapFromString2(False, 'a359BE78DAED95C10E832' +
'010447F69B50A72142BFFFF496548D3DEC852A06A3BEF3031 DBED' +
'988CCB222212B628E29728F3B443F7F47C5FA15E5E7573DB5 225F' +
'558F48CCB84E739D58341CF887E6387A87644DD0EB030C9F3 5977' +
'6832C141573878977E153813724142786BBE47E3A3A96BDC8 E4DA' +
'3D57FF599F476BB569EA5D3589A67FDB4334FCDDE382A4FFD 1B6B' +
'F2CC6BABFDA99964CDF7CD77EA4FC767FEE79F4FCD5B4AEFB 8D28' +
'DDDEAAE3CE7FECCD76B4E50EFBBB2779E35B9F598ABDFC8B3 5F4A' +
'FF9CA77E1B7CF3BCEB9D092184104208218410420878002D4 ');
wait(500 + random(200));
if findbitmaptolerancein(alkharid, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(alkharid, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(alkharid, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
4: begin
alone := BitmapFromString2(False, 'a54AB478DAED964B0EC2300C' +
'44AFE486E6C3B6D0DCFF4864B2810D955B2908CA7B8B51645 95E4' +
'CDA71CCCC967B13CB9726715EA56B699AA620B55995929A86 D2CF' +
'F126ADAA24B558CA930604D573ACD23E272D51E3AF7D9AA90 283A' +
'9F5A9DB3DE071D2E31B7EEE75F298CF809FA333F39DFA7360 3B81' +
'5FEBFEACF6749EE9FBF427ADFF8E7E37BD3FEFE7B9B7E137F BC9F' +
'F3EBAF37FF6FBDE7D746C26AF0B000000000000000038270F 5E6');
wait(500 + random(200));
if findbitmaptolerancein(alone, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(alone, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(alone, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
5: begin
alternativeroot := BitmapFromString2(False, 'aCA66A78DAED96C1B28' +
'3200C457F09AD88DDDA96FFFFA4127CF39CE9C209D8D0323D 6791' +
'61E45662B98438E78625BA14FD35453F3D243E9614672FD12 FB38' +
'C2F37896EFAD7FCCDAE791CA657E530EE312BC7256BBCCCFA 9895' +
'32997E3BA41846791E56D1CCAB97F155A6C3B6D6A6D966A3E 419E' +
'EF3ABD2C73D8A72B884AC71F20680D3C4B8C7630DB4D905CD 8E7C' +
'364F8D37F4CA5E76A797ACDA64AB59A5B4AAE0193C8367BEC D51B' +
'D78E6386A3C737CF3EA351A67EAFBAEF3599DD9CDBA9EA4F4 54EA' +
'57B1D8298B3A53DA1769BEA54D2766F1E6BA53FCAEFFF65DD DE9B' +
'779C6EE8C5BAC5897957E477ED9331615AF7D9D29F58CF5DD F46B' +
'75A65FCF58F7CF2DBFF4539E29ED46EC6E8A33F5CDE22CD45 51BB' +
'B4EBB4E090000000000000000000000000000D0074FD05');
wait(500 + random(200));
if findbitmaptolerancein(alternativeroot, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(alternativeroot, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(alternativeroot, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
6: begin
ambientjungle := BitmapFromString2(False, 'a74C8178DAED98CD0E8' +
'32010845F09A92CF4E81FEFFF48754C5A0F4D139505B1CE77 9898' +
'6585753B055B634C23CECC6AFB595D3B41A340DD00ED97484 0444' +
'C0B75019101A3226BDC75163A854FBE0DED3ACF32A720C588 6F66' +
'F58F11D70121894F688F4AFC5283EF71AF371D7458E3327A5 CDBE' +
'19DDFD8252206A3842413E3AA3966FE8FCEFCD27AEA2C33B3 EE5A' +
'B53924BD9E3A3D5FFEDBADB5221D428768555EA6F37448EE1 3F67' +
'B747BFEB1A7D85E55C97A52E2DBAB3DD601ADE7DDBB87E48B 6865' +
'A6AC5EDE21B97BB5B7CE7A1C5283976A7048EECCFB38247D8 F4D7' +
'1487AE7CF75C8154F99F47BE99073CFD31C0ED17DD7D2FAD4 F63A' +
'704BBEEE8EA7D5813AFFE523D7FA6D4BE810721F27D02164E FBB0' +
'D2184104208218410420821849012BC00202');
wait(500 + random(200));
if findbitmaptolerancein(ambientjungle, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(ambientjungle, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(ambientjungle, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
7: begin
arabian2 := BitmapFromString2(False, 'aF921178DAED95410E842' +
'00C45AF541110B710B9FF910658C8C24840A983E6BF454328 D2F2' +
'859688C8BB60C89A6094DC82D5B3DBC74AA5B1DDB29764B0C 2C67' +
'961645EE375F48AB8995EA6609755EC636DD2D8AFD99B769B 559C' +
'7794BC146700F810DE67FB4CAC7769722DE7E357DC671F5FD BB30' +
'CEB332FAFE453E02DF7F64EFEE36B3BE65FA8D7B66CCFF62C BF9A' +
'728DEA55C76AA2F4ED267C35A1FE2CADF5FCCEB7ADD9F6EA4 A1CD' +
'A5E7B0B1C4AF68AC25197FA6ACB77F7B8A370547B68CBD743 FF5B' +
'135AFBD19335A1B5CB0300000000000000000080B1F801B41 ');
wait(500 + random(200));
if findbitmaptolerancein(arabian2, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(arabian2, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(arabian2, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
0: begin
arabian := BitmapFromString2(False, 'aD544178DAED954D128320' +
'0C85AF9422BFCBDA81FB1F4960216E608C16B4F67D8B4C463 424C' +
'F048888BC8986DEAF6894F4D1EAE9B3FA4A657FF6659564B4 C2CA' +
'B21A747A2E52186D521CE3C4EA6B9BFDE0CA6A8E333B9BA32 51F7' +
'4268462C7ECF56C2547D6FB543DDB75F5AB1A7A5EA5E76F29 BF3D' +
'336BB6565DADD27684FDEF70336FFF8B31B703B73FF7E7CF3 D9FC' +
'F7CCBCDF6AAB93B9609B7CFCFA8F7AD5DEEA967BF1EEBBD0B F4FC' +
'073DB993C8BD53EE3FEF00000000000000000000001C61019 18');
wait(500 + random(200));
if findbitmaptolerancein(arabian, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(arabian, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(arabian, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false); //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
25: LeaveScreenEvery(10 + Random(10));
{ 26: begin
Times := random(10);
repeat
xtimes := xtimes + 1;
setchat('on', 2);
setchat('off', 2);
until (times = xtimes);
end; }
27: begin
case random(27) of
1: typeno8('a');
2: typeno8('b');
3: typeno8('c');
4: typeno8('d');
5: typeno8('e');
6: typeno8('f');
7: typeno8('g');
8: typeno8('h');
9: typeno8('i');
10: typeno8('j');
11: typeno8('k');
12: typeno8('l');
13: typeno8('m');
14: typeno8('n');
15: typeno8('o');
16: typeno8('p');
17: typeno8('q');
18: typeno8('r');
19: typeno8('s');
20: typeno8('t');
21: typeno8('u');
23: typeno8('v');
24: typeno8('w');
25: typeno8('x');
26: typeno8('y');
0: typeno8('z');
end;
case random(2) of
1: begin
wait(3000 + random(2000));
keydown(8);
wait(500 + random(400));
keyup(8);
end;
0: begin
writeln('didnt backspace letter'); end;
end;
end;
28: begin
Gametab(1);
ftwaitalls(12);
Gametab(4);
end;
29: begin
gametab(7);
lteleport := BitmapFromString2(False, 'a56B1178DAED97D10A85' +
'200C865FC96953CF6575F4FD1FA996078F30265D443968C2D F583' +
'FEC43CBCC180300668F35EF8229EEEA9114A3AF95927B4B46 0F74' +
'F16EAD4E1B27F2205530FF9DC152252C74D72F582BBF3C1C1 EA4B' +
'EE163AB13D7C363927963C480133A04614CF19B1DD7116825 B671' +
'98DBEE80606DEEEBFDB4126198C39C23D7FB6939A1C4D6671 6682' +
'FE694E6D0A19B7CE2DA9FDB6B67F50C613E46DBB754EEA1ED AF75' +
'6168A93867C925DAAB9E0189B3253CC3C9699FE5E4E359CED 1D65' +
'DCB7BA46B5FD2B5CF6BF96EEA3A87E83AD7E93A27ABFAEF78 4365' +
'6CB89');
if (findbitmaptolerancein(lteleport, x, y, MIX1, MIY1, MIX2, MIY2, 5)) then
begin
mmouse(x, y, 5, 6);
wait(2500 + random(1500));
end;
gametab(4);
end;
30: begin
gametab(9);
world := BitmapFromString2(False, 'aF5D7D78DAED94490AC52010' +
'44AFD431D1F62F33E8FD8FF42D578140683380817A8B87341 DB50' +
'C2A22B26C45A26351880E1EAAC7B5D8A7082BECE284B1AFF5 1CD0' +
'E3EAA749619FE11F4AEAD01366F4EB9630169810D239B9F04 4CF7' +
'BABDFDF033332E377335A2AFBFADEE7F3DB67B6CFFF5E464B A2E3' +
'3EED7FA7F5347AC878677566BC96F4FC067D37E3B53BDEFAE 6B49' +
'ED5536F0E2184104208E99F3FE60');
if (findbitmaptolerancein(world, x, y, MIX1, MIY1, MIX2, MIY2, 5)) then
begin
x := x - 35 - random(50);
y := y + 4 + random(3);
mmouse(x, y, 5, 1);
wait(500 + random(200));
if (isuptext('essa')) then
begin
getmousepos(x, y);
Mouse(X, y, 0, 0, true);
wait(1300 + random(500));
case random(10) of
1: typeno8('sup');
2: typeno8('sup dude');
3: typeno8('hey');
4: typeno8('ey man');
5: typeno8('wassup?');
6: typeno8('wasup');
7: typeno8('wassup dude');
8: typeno8('wassup dude?');
9: typeno8('hi');
0: typeno8('sup foo');
end;
for i := 1 to 15 + random(5) do
begin
wait(190 + random(30));
typebyte(8);
end;
TypeByte(13);
end;
end;
end;
31: begin
if (getcolor(426, 490) = 16777215) then
begin
mouse(412, 483, 60, 6, true);
wait(5422 + random(600));
Mouse(478, 34, 9, 8, true);
end;
end;
32: boredhuman;
33: SetRun(true);
34: begin
writeln('logging out real quick as an antiban');
logout;
wait(180000 + random(120000));
writeln('loigging back in');
end;
end;
unloadbmaps;
end;
function RandomAngleToAngle: Integer;
begin
writeln('generating compass angle...');
case random(7) of
1: begin
Result := 1;
Makecompass('n');
end;
2: begin
Result := 2;
Makecompass('e');
end;
3: begin
Result := 3;
Makecompass('s');
end;
6: zenmaantiban1;
0: begin
Result := 6;
Makecompass('w');
end;
end;
if result = 1 then
begin
case random(6) of
1: Makecompass('w');
2: Makecompass('e');
3: Makecompass('s');
5: zenmaantiban1;
end;
end;
if result = 2 then
begin
case random(6) of
1: Makecompass('n');
2: Makecompass('w');
3: Makecompass('s');
5: zenmaantiban1;
end;
end;
if result = 3 then
begin
case random(6) of
1: Makecompass('n');
2: Makecompass('e');
3: Makecompass('w');
5: zenmaantiban1;
end;
end;
if result = 7 then
begin
case random(6) of
1: Makecompass('n');
2: Makecompass('e');
3: Makecompass('s');
5: zenmaantiban1;
end;
end;
end;
var RX: integer;
procedure ZenmaAntiBan;
begin
Status('zenmaantiban');
RX := Random(42);
case RX of
0: HoverSkill('defence', false);
1: PickUpMouse;
2: randomangletoangle;
3: Mspeed;
5: Randomangletoangle;
6: Wait(100 + Random(14));
7: Wait(82 + Random(15));
8: begin; GameTab(Random(7) + 1)Wait(304 + Random(53)) end;
10: randomangletoangle;
11: Mspeed;
13: begin; GameTab(Random(7) + 1)Wait(300 + Random(50)) end;
14: Wait(104 + Random(44));
16: Mspeed;
17: PickUpMouse;
18: Wait(99 + Random(15));
19: PickUpMouse;
19: begin
PickUpMouse;
wait(random(494) + random(532));
end;
20: begin
MSpeed;
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
wait(123 + random(1782));
end;
21: begin
AlmostLogOut;
ftwaitalls(10 + random(4));
GameTab(4);
end;
22: begin
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
wait(178 + random(1367));
Mspeed;
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
wait(641 + random(1322));
end;
23: begin
GameTab(1 + Random(12));
ftwaitalls(9);
GameTab(4);
end;
24: begin Gametab(13); //
case random(8) of //
1: begin //
threalm := BitmapFromString2(False, 'a95AED78DAED96D10E832' +
'00C457FA913017D1C4EFEFF93C6F56159B2CC404174CB3D0F 8D29' +
'B5B517681411894B3212A6648C0CC93A8B671BE07606AB767 2B0E' +
'30ABB6EAB119E611AF16C9797C7218198BB4FD607ACBA2DDE CF5B' +
'E66061FD0D9E016F79F340F119314E909F1C408C7BB6344FD B6FE' +
'8A940FF2AFB75EBF5BC4EA77DF2534FEA79AE9E398A7D9B6F EF9E' +
'D219A89B2D39557222F7FD6DFBD2F558BAFBA5FAD4EC484EA 4CEA' +
'3EBFA883BFB79065A55C9F973F86F3DEBF539F77C1E3D0D6A 764A' +
'373D7E454FDD9C6CABA7EE94F6BFEF8410420821841042082 1849' +
'4F10406E'); //
wait(500 + random(200));
if findbitmaptolerancein(threalm, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(threalm, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(threalm, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
2: begin
adventure := BitmapFromString2(False, 'aB4F9A78DAEDD75B0E83' +
'201085E12D8155D0C76A65FF4BAA33496B93A6868B179AFCD F033' +
'1038A09C70BC6186BAD594C6169BA7696D6F74BEB7C2BC7BD 9363' +
'23C7AED3BAD3CA6D7AF736BD8EECB412B4B7317A05B9B2BB4 BAF7' +
'F687DECE45867F1A3D627AD0CCDABD7B6F3A033CA18E04421 AC6D' +
'DEB9404C3652D3525BBA487BFDAB10BF46A40BA40B57FD6BF D6AE' +
'3CF8D59DFEDFAF6BC9FF59891E5F7F63D63DE9DF3EE4A4D42 DE9F' +
'5BF9C892D9F79A31EF09225D7B2521F5D93F2287473C35A4E B1FD' +
'395FA65AC275D7C19AF4AD7397B87DADE5D285F85D4FFFFBC FDC5' +
'5E3B85F27D046F30000000000000000000000000AC9E9A4') ;
wait(500 + random(200));
if findbitmaptolerancein(adventure, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(adventure, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(adventure, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
3: begin
alkharid := BitmapFromString2(False, 'a359BE78DAED95C10E832' +
'010447F69B50A72142BFFFF496548D3DEC852A06A3BEF3031 DBED' +
'988CCB222212B628E29728F3B443F7F47C5FA15E5E7573DB5 225F' +
'558F48CCB84E739D58341CF887E6387A87644DD0EB030C9F3 5977' +
'6832C141573878977E153813724142786BBE47E3A3A96BDC8 E4DA' +
'3D57FF599F476BB569EA5D3589A67FDB4334FCDDE382A4FFD 1B6B' +
'F2CC6BABFDA99964CDF7CD77EA4FC767FEE79F4FCD5B4AEFB 8D28' +
'DDDEAAE3CE7FECCD76B4E50EFBBB2779E35B9F598ABDFC8B3 5F4A' +
'FF9CA77E1B7CF3BCEB9D092184104208218410420878002D4 ');
wait(500 + random(200));
if findbitmaptolerancein(alkharid, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(alkharid, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(alkharid, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
4: begin
alone := BitmapFromString2(False, 'a54AB478DAED964B0EC2300C' +
'44AFE486E6C3B6D0DCFF4864B2810D955B2908CA7B8B51645 95E4' +
'CDA71CCCC967B13CB9726715EA56B699AA620B55995929A86 D2CF' +
'F126ADAA24B558CA930604D573ACD23E272D51E3AF7D9AA90 283A' +
'9F5A9DB3DE071D2E31B7EEE75F298CF809FA333F39DFA7360 3B81' +
'5FEBFEACF6749EE9FBF427ADFF8E7E37BD3FEFE7B9B7E137F BC9F' +
'F3EBAF37FF6FBDE7D746C26AF0B000000000000000038270F 5E6');
wait(500 + random(200));
if findbitmaptolerancein(alone, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(alone, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(alone, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
5: begin
alternativeroot := BitmapFromString2(False, 'aCA66A78DAED96C1B28' +
'3200C457F09AD88DDDA96FFFFA4127CF39CE9C209D8D0323D 6791' +
'61E45662B98438E78625BA14FD35453F3D243E9614672FD12 FB38' +
'C2F37896EFAD7FCCDAE791CA657E530EE312BC7256BBCCCFA 9895' +
'32997E3BA41846791E56D1CCAB97F155A6C3B6D6A6D966A3E 419E' +
'EF3ABD2C73D8A72B884AC71F20680D3C4B8C7630DB4D905CD 8E7C' +
'364F8D37F4CA5E76A797ACDA64AB59A5B4AAE0193C8367BEC D51B' +
'D78E6386A3C737CF3EA351A67EAFBAEF3599DD9CDBA9EA4F4 54EA' +
'57B1D8298B3A53DA1769BEA54D2766F1E6BA53FCAEFFF65DD DE9B' +
'779C6EE8C5BAC5897957E477ED9331615AF7D9D29F58CF5DD F46B' +
'75A65FCF58F7CF2DBFF4539E29ED46EC6E8A33F5CDE22CD45 51BB' +
'B4EBB4E090000000000000000000000000000D0074FD05');
wait(500 + random(200));
if findbitmaptolerancein(alternativeroot, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(alternativeroot, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(alternativeroot, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
6: begin
ambientjungle := BitmapFromString2(False, 'a74C8178DAED98CD0E8' +
'32010845F09A92CF4E81FEFFF48754C5A0F4D139505B1CE77 9898' +
'6585753B055B634C23CECC6AFB595D3B41A340DD00ED97484 0444' +
'C0B75019101A3226BDC75163A854FBE0DED3ACF32A720C588 6F66' +
'F58F11D70121894F688F4AFC5283EF71AF371D7458E3327A5 CDBE' +
'19DDFD8252206A3842413E3AA3966FE8FCEFCD27AEA2C33B3 EE5A' +
'B53924BD9E3A3D5FFEDBADB5221D428768555EA6F37448EE1 3F67' +
'B747BFEB1A7D85E55C97A52E2DBAB3DD601ADE7DDBB87E48B 6865' +
'A6AC5EDE21B97BB5B7CE7A1C5283976A7048EECCFB38247D8 F4D7' +
'1487AE7CF75C8154F99F47BE99073CFD31C0ED17DD7D2FAD4 F63A' +
'704BBEEE8EA7D5813AFFE523D7FA6D4BE810721F27D02164E FBB0' +
'D2184104208218410420821849012BC00202');
wait(500 + random(200));
if findbitmaptolerancein(ambientjungle, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(ambientjungle, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(ambientjungle, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
7: begin
arabian2 := BitmapFromString2(False, 'aF921178DAED95410E842' +
'00C45AF541110B710B9FF910658C8C24840A983E6BF454328 D2F2' +
'859688C8BB60C89A6094DC82D5B3DBC74AA5B1DDB29764B0C 2C67' +
'961645EE375F48AB8995EA6609755EC636DD2D8AFD99B769B 559C' +
'7794BC146700F810DE67FB4CAC7769722DE7E357DC671F5FD BB30' +
'CEB332FAFE453E02DF7F64EFEE36B3BE65FA8D7B66CCFF62C BF9A' +
'728DEA55C76AA2F4ED267C35A1FE2CADF5FCCEB7ADD9F6EA4 A1CD' +
'A5E7B0B1C4AF68AC25197FA6ACB77F7B8A370547B68CBD743 FF5B' +
'135AFBD19335A1B5CB0300000000000000000080B1F801B41 ');
wait(500 + random(200));
if findbitmaptolerancein(arabian2, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(arabian2, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(arabian2, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
0: begin
arabian := BitmapFromString2(False, 'aD544178DAED954D128320' +
'0C85AF9422BFCBDA81FB1F4960216E608C16B4F67D8B4C463 424C' +
'F048888BC8986DEAF6894F4D1EAE9B3FA4A657FF6659564B4 C2CA' +
'B21A747A2E52186D521CE3C4EA6B9BFDE0CA6A8E333B9BA32 51F7' +
'4268462C7ECF56C2547D6FB543DDB75F5AB1A7A5EA5E76F29 BF3D' +
'336BB6565DADD27684FDEF70336FFF8B31B703B73FF7E7CF3 D9FC' +
'F7CCBCDF6AAB93B9609B7CFCFA8F7AD5DEEA967BF1EEBBD0B F4FC' +
'073DB993C8BD53EE3FEF00000000000000000000001C61019 18');
wait(500 + random(200));
if findbitmaptolerancein(arabian, x, y, pmX1, pmY1, pmX2, pmY2, 8) then exit;
if findbitmaptolerancein(arabian, x, y, MIX1, MIY1, MIX2, MIY2, 8) then
begin
mmouse(x, y, 15, 5);
wait(1500 + random(500)); //
repeat
attempts := attempts + 1;
getmousepos(x, y);
Mouse(x, y, 0, 0, true);
wait(2000 + random(1000));
if attempts = 5 then break;
if findbitmaptolerancein(arabian, x, y, pmX1, pmY1, pmX2, pmY2, 8) then break;
until (false) //
end; // // //
gametab(4); //
attempts := 0;
if attempts = 5 then writeln('failed to play music in music box') else
writeln('played music succesffuly');
end;
25: LeaveScreenEvery(10 + Random(10));
{ 26: begin
Times := random(10);
repeat
xtimes := xtimes + 1;
setchat('on', 2);
setchat('off', 2);
until (times = xtimes);
end; }
27: begin
case random(27) of
1: typeno8('a');
2: typeno8('b');
3: typeno8('c');
4: typeno8('d');
5: typeno8('e');
6: typeno8('f');
7: typeno8('g');
8: typeno8('h');
9: typeno8('i');
10: typeno8('j');
11: typeno8('k');
12: typeno8('l');
13: typeno8('m');
14: typeno8('n');
15: typeno8('o');
16: typeno8('p');
17: typeno8('q');
18: typeno8('r');
19: typeno8('s');
20: typeno8('t');
21: typeno8('u');
23: typeno8('v');
24: typeno8('w');
25: typeno8('x');
26: typeno8('y');
0: typeno8('z');
end;
case random(2) of
1: begin
wait(3000 + random(2000));
keydown(8);
wait(500 + random(400));
keyup(8);
end;
end;
end;
28: begin
Gametab(random(13));
ftwaitalls(10 + random(6));
Gametab(4);
end;
29: begin
case random(3) of
1: zenmaantiban;
2: begin
zenmaantiban;
zenmaantiban;
end;
0: begin
zenmaantiban;
zenmaantiban;
zenmaantiban;
end;
end;
end;
30: begin
gametab(7);
lteleport := BitmapFromString2(False, 'a56B1178DAED97D10A85' +
'200C865FC96953CF6575F4FD1FA996078F30265D443968C2D F583' +
'FEC43CBCC180300668F35EF8229EEEA9114A3AF95927B4B46 0F74' +
'F16EAD4E1B27F2205530FF9DC152252C74D72F582BBF3C1C1 EA4B' +
'EE163AB13D7C363927963C480133A04614CF19B1DD7116825 B671' +
'98DBEE80606DEEEBFDB4126198C39C23D7FB6939A1C4D6671 6682' +
'FE694E6D0A19B7CE2DA9FDB6B67F50C613E46DBB754EEA1ED AF75' +
'6168A93867C925DAAB9E0189B3253CC3C9699FE5E4E359CED 1D65' +
'DCB7BA46B5FD2B5CF6BF96EEA3A87E83AD7E93A27ABFAEF78 4365' +
'6CB89');
if (findbitmaptolerancein(lteleport, x, y, MIX1, MIY1, MIX2, MIY2, 5)) then
begin
mmouse(x, y, 5, 6);
wait(2500 + random(1500));
end;
gametab(4);
end;
31: begin
gametab(9);
world := BitmapFromString2(False, 'aF5D7D78DAED94490AC52010' +
'44AFD431D1F62F33E8FD8FF42D578140683380817A8B87341 DB50' +
'C2A22B26C45A26351880E1EAAC7B5D8A7082BECE284B1AFF5 1CD0' +
'E3EAA749619FE11F4AEAD01366F4EB9630169810D239B9F04 4CF7' +
'BABDFDF033332E377335A2AFBFADEE7F3DB67B6CFFF5E464B A2E3' +
'3EED7FA7F5347AC878677566BC96F4FC067D37E3B53BDEFAE 6B49' +
'ED5536F0E2184104208E99F3FE60');
if (findbitmaptolerancein(world, x, y, MIX1, MIY1, MIX2, MIY2, 5)) then
begin
x := x - 35 - random(50);
y := y + 4 + random(3);
mmouse(x, y, 5, 1);
wait(500 + random(200));
if (isuptext('essa')) then
begin
getmousepos(x, y);
Mouse(X, y, 0, 0, true);
wait(1300 + random(500));
case random(10) of
1: typeno8('sup');
2: typeno8('sup dude');
3: typeno8('hey');
4: typeno8('ey man');
5: typeno8('wassup?');
6: typeno8('wasup');
7: typeno8('wassup dude');
8: typeno8('wassup dude?');
9: typeno8('hi');
0: typeno8('sup foo');
end;
for i := 1 to 15 + random(5) do
begin
wait(190 + random(30));
typebyte(8);
end;
TypeByte(13);
end;
end;
end;
33: boredhuman;
34: SetRun(true);
35: begin
writeln('logging out real quick as an antiban');
logout;
wait(180000 + random(120000));
writeln('loigging back in');
end;
end;
unloadbmaps;
end;
i just commented off the play with private chat because i dont know what to do with that one. oh yeah and also if someone could help me fix the error in script syntax error, cause im not sure where its at. if you do help me ill give you credit for error fixing. you dont have to fix errors after that (if any because scar wants me to fix that error before itl show me other ones)if u got an idea or suggestion tell me
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.