SRL Archive - General

Help me correct my neopets script.

masterofjoe

2006-06-24 16:40:27


program NeopetsSnowball;
var x, y, a, b, c, d, e, f, g, h, i, j, k, l, bmp1, bmp2, bmp3, bmp4, bmp5, bmp6, bmp7: Integer;
var Sendscore: Boolean;
{Go to http://neopets.com/games/snowballfight.phtml and start the game,
then run this script.}
Procedure Bitmaps;
begin
Sendscore := False;

bmp1 := BitmapFromString(15, 12, 'z78DA85924192C4200845AF04' +
       '820A4B35C9FD8F349A1F2776D253C382B2101FF8812825EAD6DAD' +
       '3230E2B71F87AFA62C3FBB6DCDA775F8F27D39D1E86F8FA2AF9FF' +
       'E495892AD4CF22C139FC4D16BDC92E77DCFE204BCF895123EF294' +
       '5098A48BFF527990A113B2BF59B2CB73E723CC939CC3ECDD22134' +
       'C97C32DBABAB6171D3169848FDD68797598CE9A07A3E92850D649' +
       'C7FD5906F0A2373D2E24B9FD155DA63091999AB67A68DFA8ED472' +
       '93072104AED4908373E7741D66FEC85195CCB6D23CE72A5795394' +
       '7C304DB9CDDAA9B36D93BFB3454610E81D2AA806B7649E5F05E0F' +
       '114CB3F7E0F73E87F2D90F08E81664BC5ABB2DCD360DD5DDD451E' +
       '552DBC678CF65BCC8EFB7C87CABEA9C932898F02599C9F1D0A44C' +
       '3236E73D1770E0AF6EC944DA4A86B73DAB48CE89070FBB2D34C97' +
       '8F5F1EBB39FE256957F00EEC8E040');

bmp2 := BitmapFromString(1, 8, 'z78DA7373B37476B674239A0400' +
       '2A4F0C21');

 bmp3 := BitmapFromString(15, 10, 'z78DAB592496A04310C45AFA4' +
       '79584AB6EBFE478A4355A0A153844ED29B87B1F1B3F4E54A0CD45' +
       '4343862AFA08336EB998E48101C902018C0805438905539C91D65' +
       'B03CF2CE6389F8E521D93B8789247B0D9F3AA765392C2D71FF869' +
       '287D3A34D1126182B2692B3BA70772C1BCBEB087B9557558ABBD9' +
       '4023E9DF799E996053F9EE74AE529FC3228DF610945B172FEA345' +
       'BF7B77E205604F467AA7E394D90AF94826D68CEEE3DBC57CD5332' +
       '1D4F332311C6D9DDC92BFF6889F972CD521D3C244C0F6A02CC51F' +
       'B2DFDAF299CFCCB0F79073F0067F9CF66');

       

       
       bmp4 := BitmapFromString(14, 14, 'z78DAC5945B6EC4200C45B764' +
       'FCC2FE3460F6BFA43AC974DAAAEA281FAD1A94A308A4934B62B37' +
       'D6F1FBBD8E741808BB2C40128890046F8F1BCB49969466E7ACDC3' +
       '30E383EFCEB68F51CEBA1F4EA2C075C7396294213D9FB667CE2DC' +
       'B87D72E78D139C313407BD48B5E3B61288E86C2D90D070D9A4736' +
       '28F5C7E85315E022014F8DD766D846B90402767BCC83DB62746E3' +
       '2E0BC285868B249C8905A9CF23AA768D0D3F67DF534DCF1FC39CF' +
       '9DFE73861B14ACDFADBFFBC5AA425280173321B4066D41E7D6155' +
       '6C7B9116C64123AE5560CDB78AB8F2A60B48BCB27D8D4A9C05A76' +
       '6906211178D55BAB62CA45E9B641AD5A05EF383F336DA66B7513D' +
       '20446E3B8923FFC61968BC357F9BF39732F0FFDC97C714448B7B3' +
       'F73B18BBC965FEE2E73A891EF9DF0051521818');
       
       bmp5 := BitmapFromString(1, 1, '022427');
       
       bmp6 := BitmapFromString(28, 1, '5C5F5F2E2F2F5C1F00250C0000' +
       '0000C6CECEB1BBBC978503F2D605F4EA02F7FF00F7FF00F7FF00F' +
       '7FF00F7FF00F7FF00F7FF00F7FF00F6FC00F2DD04F6FC00F3E503' +
       'A69303F2D605F2DB0497850395A4A7D9EFF3');
       
       end;
Procedure Find1;
begin
if FindBitmap(bmp1,x,y) then
wait(30+Random(8));
Clickmouse(x+Random(10),y+Random(10), true);
end;

Procedure Find2;
begin
if FindBitmap(bmp2,a,b) then
Clickmouse(a+Random(10),b+Random(10), true);
end;

Procedure Find3;
begin
if FindBitmap(bmp3,c,d) then
Clickmouse(c+Random(10),d+Random(10), true);
end;

Procedure Find4;
begin
if FindBitmap(bmp4,e,f) then
Clickmouse(e+Random(10),f+Random(10), true);
end;

Procedure Find5;
begin
if FindBitmap(bmp5,g,h) then
Clickmouse(g+Random(10),h+Random(10), true);
end;

Procedure Find6;
begin
if FindBitmap(bmp6,i,j) then
Clickmouse(i+Random(10),j+Random(10), true);
end;

Begin
Bitmaps;
repeat
Activateclient;
Find1;
Find2;
Find3;
Find4;
Find5;
Find6;
until ( Sendscore = true )
end.

Whenever I start it, it just keeps constantly clicking in the top right corner of the screen. Btw, I wrote this myself, so I'm sure I made a mistake somewhere.

Bebe

2006-06-24 17:00:37

program NeopetsSnowball;
var x, y, a, b, c, d, e, f, g, h, i, j: Integer;
   bmp:array [1..6] of integer;
   Sendscore: Boolean;
{Go to http://neopets.com/games/snowballfight.phtml and start the game,
then run this script.}

Procedure Bitmaps;
begin
Sendscore := False;

bmp[1] := BitmapFromString(15, 12, 'z78DA85924192C4200845AF04' +
       '820A4B35C9FD8F349A1F2776D253C382B2101FF8812825EAD6DAD' +
       '3230E2B71F87AFA62C3FBB6DCDA775F8F27D39D1E86F8FA2AF9FF' +
       'E495892AD4CF22C139FC4D16BDC92E77DCFE204BCF895123EF294' +
       '5098A48BFF527990A113B2BF59B2CB73E723CC939CC3ECDD22134' +
       'C97C32DBABAB6171D3169848FDD68797598CE9A07A3E92850D649' +
       'C7FD5906F0A2373D2E24B9FD155DA63091999AB67A68DFA8ED472' +
       '93072104AED4908373E7741D66FEC85195CCB6D23CE72A5795394' +
       '7C304DB9CDDAA9B36D93BFB3454610E81D2AA806B7649E5F05E0F' +
       '114CB3F7E0F73E87F2D90F08E81664BC5ABB2DCD360DD5DDD451E' +
       '552DBC678CF65BCC8EFB7C87CABEA9C932898F02599C9F1D0A44C' +
       '3236E73D1770E0AF6EC944DA4A86B73DAB48CE89070FBB2D34C97' +
       '8F5F1EBB39FE256957F00EEC8E040');

bmp[2] := BitmapFromString(1, 8, 'z78DA7373B37476B674239A0400' +
       '2A4F0C21');

 bmp[3] := BitmapFromString(15, 10, 'z78DAB592496A04310C45AFA4' +
       '79584AB6EBFE478A4355A0A153844ED29B87B1F1B3F4E54A0CD45' +
       '4343862AFA08336EB998E48101C902018C0805438905539C91D65' +
       'B03CF2CE6389F8E521D93B8789247B0D9F3AA765392C2D71FF869' +
       '287D3A34D1126182B2692B3BA70772C1BCBEB087B9557558ABBD9' +
       '4023E9DF799E996053F9EE74AE529FC3228DF610945B172FEA345' +
       'BF7B77E205604F467AA7E394D90AF94826D68CEEE3DBC57CD5332' +
       '1D4F332311C6D9DDC92BFF6889F972CD521D3C244C0F6A02CC51F' +
       'B2DFDAF299CFCCB0F79073F0067F9CF66');




bmp[4] := BitmapFromString(14, 14, 'z78DAC5945B6EC4200C45B764' +
       'FCC2FE3460F6BFA43AC974DAAAEA281FAD1A94A308A4934B62B37' +
       'D6F1FBBD8E741808BB2C40128890046F8F1BCB49969466E7ACDC3' +
       '30E383EFCEB68F51CEBA1F4EA2C075C7396294213D9FB667CE2DC' +
       'B87D72E78D139C313407BD48B5E3B61288E86C2D90D070D9A4736' +
       '28F5C7E85315E022014F8DD766D846B90402767BCC83DB62746E3' +
       '2E0BC285868B249C8905A9CF23AA768D0D3F67DF534DCF1FC39CF' +
       '9DFE73861B14ACDFADBFFBC5AA425280173321B4066D41E7D6155' +
       '6C7B9116C64123AE5560CDB78AB8F2A60B48BCB27D8D4A9C05A76' +
       '6906211178D55BAB62CA45E9B641AD5A05EF383F336DA66B7513D' +
       '20446E3B8923FFC61968BC357F9BF39732F0FFDC97C714448B7B3' +
       'F73B18BBC965FEE2E73A891EF9DF0051521818');

bmp[5] := BitmapFromString(1, 1, '022427');

 bmp[6] := BitmapFromString(28, 1, '5C5F5F2E2F2F5C1F00250C0000' +
       '0000C6CECEB1BBBC978503F2D605F4EA02F7FF00F7FF00F7FF00F' +
       '7FF00F7FF00F7FF00F7FF00F7FF00F6FC00F2DD04F6FC00F3E503' +
       'A69303F2D605F2DB0497850395A4A7D9EFF3');
 end;
 
Procedure Find1;
begin
 if(FindBitmap(bmp[1],x,y))then
   wait(30+Random(8));
   Clickmouse(x+Random(10),y+Random(10), true);
end;

Procedure Find2;
begin
 if(FindBitmap(bmp[2],a,b))then
   Clickmouse(a+Random(10),b+Random(10), true);
end;

Procedure Find3;
begin
 if(FindBitmap(bmp[3],c,d))then
   Clickmouse(c+Random(10),d+Random(10), true);
end;

Procedure Find4;
begin
 if(FindBitmap(bmp[4],e,f))then
   Clickmouse(e+Random(10),f+Random(10), true);
end;

Procedure Find5;
begin
 if(FindBitmap(bmp[5],g,h))then
   Clickmouse(g+Random(10),h+Random(10), true);
end;

Procedure Find6;
begin
if(FindBitmap(bmp[6],i,j))then
   Clickmouse(i+Random(10),j+Random(10), true);
end;

Begin
 Bitmaps;
repeat
  Activateclient;
  Find1;
  Find2;
  Find3;
  Find4;
  Find5;
  Find6;
 until ( Sendscore = true )
end.

Now I am not understanding the use of the variable "sendsore".

I think what you are trying to do is, if it finds all the bitmaps then you want sendscore to be true, no? if that is the case then I would do somthing like this….

program NeopetsSnowball;
var x, y, a, b, c, d, e, f, g, h, i, j, BitmapC: Integer;
   bmp:array [1..6] of integer;
   Sendscore: Boolean;
{Go to http://neopets.com/games/snowballfight.phtml and start the game,
then run this script.}

Procedure Bitmaps;
begin
Sendscore := False;

bmp[1] := BitmapFromString(15, 12, 'z78DA85924192C4200845AF04' +
       '820A4B35C9FD8F349A1F2776D253C382B2101FF8812825EAD6DAD' +
       '3230E2B71F87AFA62C3FBB6DCDA775F8F27D39D1E86F8FA2AF9FF' +
       'E495892AD4CF22C139FC4D16BDC92E77DCFE204BCF895123EF294' +
       '5098A48BFF527990A113B2BF59B2CB73E723CC939CC3ECDD22134' +
       'C97C32DBABAB6171D3169848FDD68797598CE9A07A3E92850D649' +
       'C7FD5906F0A2373D2E24B9FD155DA63091999AB67A68DFA8ED472' +
       '93072104AED4908373E7741D66FEC85195CCB6D23CE72A5795394' +
       '7C304DB9CDDAA9B36D93BFB3454610E81D2AA806B7649E5F05E0F' +
       '114CB3F7E0F73E87F2D90F08E81664BC5ABB2DCD360DD5DDD451E' +
       '552DBC678CF65BCC8EFB7C87CABEA9C932898F02599C9F1D0A44C' +
       '3236E73D1770E0AF6EC944DA4A86B73DAB48CE89070FBB2D34C97' +
       '8F5F1EBB39FE256957F00EEC8E040');

bmp[2] := BitmapFromString(1, 8, 'z78DA7373B37476B674239A0400' +
       '2A4F0C21');

 bmp[3] := BitmapFromString(15, 10, 'z78DAB592496A04310C45AFA4' +
       '79584AB6EBFE478A4355A0A153844ED29B87B1F1B3F4E54A0CD45' +
       '4343862AFA08336EB998E48101C902018C0805438905539C91D65' +
       'B03CF2CE6389F8E521D93B8789247B0D9F3AA765392C2D71FF869' +
       '287D3A34D1126182B2692B3BA70772C1BCBEB087B9557558ABBD9' +
       '4023E9DF799E996053F9EE74AE529FC3228DF610945B172FEA345' +
       'BF7B77E205604F467AA7E394D90AF94826D68CEEE3DBC57CD5332' +
       '1D4F332311C6D9DDC92BFF6889F972CD521D3C244C0F6A02CC51F' +
       'B2DFDAF299CFCCB0F79073F0067F9CF66');




bmp[4] := BitmapFromString(14, 14, 'z78DAC5945B6EC4200C45B764' +
       'FCC2FE3460F6BFA43AC974DAAAEA281FAD1A94A308A4934B62B37' +
       'D6F1FBBD8E741808BB2C40128890046F8F1BCB49969466E7ACDC3' +
       '30E383EFCEB68F51CEBA1F4EA2C075C7396294213D9FB667CE2DC' +
       'B87D72E78D139C313407BD48B5E3B61288E86C2D90D070D9A4736' +
       '28F5C7E85315E022014F8DD766D846B90402767BCC83DB62746E3' +
       '2E0BC285868B249C8905A9CF23AA768D0D3F67DF534DCF1FC39CF' +
       '9DFE73861B14ACDFADBFFBC5AA425280173321B4066D41E7D6155' +
       '6C7B9116C64123AE5560CDB78AB8F2A60B48BCB27D8D4A9C05A76' +
       '6906211178D55BAB62CA45E9B641AD5A05EF383F336DA66B7513D' +
       '20446E3B8923FFC61968BC357F9BF39732F0FFDC97C714448B7B3' +
       'F73B18BBC965FEE2E73A891EF9DF0051521818');

bmp[5] := BitmapFromString(1, 1, '022427');

 bmp[6] := BitmapFromString(28, 1, '5C5F5F2E2F2F5C1F00250C0000' +
       '0000C6CECEB1BBBC978503F2D605F4EA02F7FF00F7FF00F7FF00F' +
       '7FF00F7FF00F7FF00F7FF00F7FF00F6FC00F2DD04F6FC00F3E503' +
       'A69303F2D605F2DB0497850395A4A7D9EFF3');
 end;
 
Procedure FindBitmaps;
begin
  BitmapC:=0;
 if(FindBitmap(bmp[1],x,y))then
   wait(30+Random(8));
   Clickmouse(x+Random(10),y+Random(10), true);
   BitmapC:=BitmapC+1
 if(FindBitmap(bmp[2],a,b))then
   Clickmouse(a+Random(10),b+Random(10), true);
   BitmapC:=BitmapC+1
 if(FindBitmap(bmp[3],c,d))then
   Clickmouse(c+Random(10),d+Random(10), true);
   BitmapC:=BitmapC+1
 if(FindBitmap(bmp[4],e,f))then
   Clickmouse(e+Random(10),f+Random(10), true);
   BitmapC:=BitmapC+1
 if(FindBitmap(bmp[5],g,h))then
   Clickmouse(g+Random(10),h+Random(10), true);
   BitmapC:=BitmapC+1
 if(FindBitmap(bmp[6],i,j))then
   Clickmouse(i+Random(10),j+Random(10), true);
   BitmapC:=BitmapC+1
end;

procedure SendTheScoreIfPossible;
begin
 if(BitmapC>=6)then
   Sendscore:=true
end;

Begin
 Bitmaps;
repeat
  Activateclient;
  FindBitmaps;
  SendTheScoreIfPossible;
 until ( Sendscore = true )
end.

As for the clicking in the corner, it could be that your bitmaps are messed up or that you have not targeted the client with the crosshairs.

masterofjoe

2006-06-24 17:15:21

Sendscore was an unworking bitmap of the sendscore button, so I left it there to leave the script in an infinite loop, and I would stop it and click sendscore by myself.

Edit: Does Neopets have changing colors? Maybe I should set a tolerance on the bitmaps.