SRL Archive - Help and Support

Feather buyer help

krunkjuice

2006-12-08 18:13:12

I start my script and all it does is sit there and do nothing. Help plz.

program Featherswitbmps;
{.include SRL\SRL.scar}
{.include SRL\SRL\misc\amount.scar}
var
featherbitmap:Integer;
buy10:integer;
x1:integer;
y1:integer;
feathercount:integer;

const
featherstobuy = 8000 ;

procedure loadbmps;
begin
  featherbitmap := BitmapFromString(512, 384, 'z78DAEDDDC152' +
       'AB301880D157A22DB79525A1F6FD1FE922E0184C135317C08CE73' +
       '093E9D45A176C3EF0071E0F000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '0000000000000000000000000000000000F88D7FD7F6DE9E97B56' +
       'DFB4B58BD93599B0FA7E11CFAD00D4DB88DDB7BB88EDB3DB4E336' +
       '8473183F730A4DD3DFFB53DF8C1F7B74EF7DD7DDBB215EE7EFB11' +
       '7000060A3FE8F9B7F7E5D3C0A988B7DE9FFB9FCA3E61F8F073EA2' +
       '7F2AFFCFF5EBF3E97A69CEE3662F0000C0D1FA7F2EF6F93C7FFC3' +
       'AD7FFAB33FFC9F97FFD0F00003BF77FF19CFF93DAAF2FFFA8FFE3' +
       'F2D7FF0000B0A5B1EFDBCBDB7C14B0BC8EFE17902DFF65C27FFA6' +
       '9D4FF4BF9E7FA7F5AE3FE9FFF8ABD000000DBC85DF95B2EFFB9F6' +
       'E37555FEC575D5FFD3DFB217000060D3FEAF9FF949FBBFEB1FFDF' +
       'BB89DC7AD38F3DFBF754317F43F00001CADFF57F33FC99CFFAAFC' +
       '73333FC5F2D7FF000070A0FE4FEEF6B9EAFFA9FC5757FBE6EEF39' +
       'F2BFF68E2C85E0000807DFB3F9DFF59DEA9BEC3E75CFE4F667E92' +
       'BB8CDA0B00007088FECFCCFCFCF06CDF4CF9C7333FF16A2F0000C' +
       '0BEFDBF3A0A989A3FDCC6DEBFD73FDBB73CF3A3FF0100E0A0FD7F' +
       'ED873EC4E59F3ECF2BADFD27E5AFFF0100E038FD1F577AB47E16F' +
       'EF7F25FE67CAEDDA86FBB5B779B3FF9E4DB32F717F2FC2F0000D8' +
       'A1FF2BCABF66E6A7EA9C7FFCAC61FD0F00007BF57FF6FE9F5FE59' +
       'F9BF0295FE1ABFF0100E040FDFF43F97FEFFFF23C4F4DF39BFF01' +
       '00803FD1FFC9FBF6020000ECD5FFE5F25FF57FB9F9735716B8FF0' +
       'F0000ECD5FF4999D79FF95FCDF3D4FF47C0FC0F0000ECD5FFC9F5' +
       'BF2F4CFED4DCE133793FBD0AC05E0000801DFAFFC99D3F33933FA' +
       'F1E05B8FE1700000EDCFFF5E7F3EBAFFC75FD2F00001CA8FFABEF' +
       'D85F33D55F7364317FA7BD0000001BF57FF9CC7FE6B9C02FAF996' +
       'FD3FF0000B069FF979FD55BBFE68E1D2A7ED75E00000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000080BFE03F15E' +
       '3863A');

buy10 := BitmapFromString(512, 384, 'z78DAEDDDD16EDB38B780D' +
       '1577222154D2EA7D3F4FD1F698AE98D130E399B222951D25A0310' +
       '07AE2CD3FE8F81CF0A257DFBF96D5DBF7F331A4F352E8FD7DFFFF' +
       'D0200A0D29F9A7AC049FCF9FFD8F56DF95816DF5F0000FD8FFE07' +
       '0040FFA3FF010088F47FBAFABABC8D468D7F6EE87F008079FA3F6' +
       'DD75CCDAADC6D9F5BAFFDDFAEFFDFD7C7B2FAFE0200F4EAFFDAC2' +
       'D4FF91CFA1D7A7A4FFF53F0080FED7FF77F85F44FF0300CCD6FFF' +
       '175EF476D1F79D7DBFAB9A5FF8F9AE7B6D73AEA9785FE070098B3' +
       'FFB79D2F30FAF1DA6EEFFB77903DDFDD88D71A774683FE0700386' +
       'FFFCFD3F9DB8E72EBFF119F8CFE0700D0FF731EE7DF7FFD8FFED7' +
       'FF0000C7F67FAFEB7F5E759D4FDFEB7FEA7FFD0F003043FF97578' +
       '0EFB93E679FB356FB9EEB3AFA75CB5BCEB6324AFF03009CA5FF39' +
       'F6AAA1E87F0000FDAFFFF5BFEF2F0080FED7FFFA1F008072FF1B8' +
       'DE71AF53F00404BFF3BAA8CE3FF000077EB7F47958D338FFA1F00' +
       '40FF1BF53F0000EDFD9F6E537EBC76ECB59F5EE3AF5FEF8FF5511' +
       'EE729E13967A5FF0100AED1FFCFFF9A7BBCA5FF67F8EBC37351D7' +
       'DED56BFFB64F67ABFF0100D0FF2DFD3FF34CF4FFFAB67C2C8BEF2' +
       'F0080FED7FF8EFF0300B04FFF975FA576FFF1F305E2AF5BBBFE7F' +
       'FFED235B6E3B4FA1EF1CF43F00C095FABFDCD5E97AF8DCBF467A3' +
       'EF2FB22FE78F975B7ADFF8F6C1969F596ED3FBFEBAF653E6E0EE9' +
       'B3F43F00C03DFB3FBEFD88CEEFBB4E29BEA226B765790FE523F6F' +
       '1FDC47B3EB2CFF8E333AC32D2FF0000F3F47FFAAFE971F8D19D9F' +
       '9BE7B8FE8F1C27EFD5EA2DBF41DAE7ECFC5F00803BF47FB9EDF75' +
       '9CFB36DFD4FED51EB96E3FFB5EB855AFE8ED0F7787EED9C1DFF07' +
       '00B867FF47B64CB59F471CF9F5917B8F7DAFFF537B066E7CFD4F6' +
       'EFBD16B90F43F0080FE4FEBAB76CBF271E6F23E6B8FE7B7DFB7AB' +
       '65FBC82BB66F1F996DAF39CCB3F25FFF0300ECDFFF46E33CFDFFE' +
       'FFFF9E2FB0B00A0FF8D77E8FF6FCBEBDF2FFA1F0040FF1B6FD1FF' +
       'DF5F961F2FDF7D7F0100F4BFF10EFDFFB6ACEBCB0FDF5F00805EF' +
       'D1F79D66CE3B61996AF8A93BB9ECF71EF71C659EDDFFFEFEBFA61' +
       'F90F00C098FECFDDCF6BCEF27F9EF3B62B7FB65C416874DBCF796' +
       '5CE03CEFFFD78FC7838FE0F0030B0FF6BEF057054F9B7F7FF0CC7' +
       'F66BEFFC75BBF53F3FD7BF5E7EFAFE0200DCADFF9FE7AFFF5DFF1' +
       '30080F6FE4FA5AB62D27DF67DBCF66F01DBFABF76054EDFED6BEF' +
       'CC7BD41C66E8FFE5F1FAFB3FDF5F008011FD1F59FF9F6BEF5E8FE' +
       'FD3FFE535FFB92D23ADDEB2FDE7CFE76B998F9B43FA2CFD0F0070' +
       '9FFE3FF6F13DFBBF76CBF21ECA47ECE3FB89F77C649FF1C7675BE' +
       '5A5FF0100F4FFFEFD1F394EDEABD55B7E83B4CF79CEF5FFEBFBFA' +
       '5856DF5F0080B3F47FFC2C83998FFFD7AE176AF93B42DFE3F9B57' +
       '3D6FF0000F7E9FF5C99C79F555E49923BBF20D29FF1F7D8EBFA3F' +
       'B567E0C6D7FFE4B61FBD0649FF0300E8FFB4CCE3F7C36AB97F566' +
       'DFF47E619D94FED3C6B5FAB7DFBC86C7BCD61B695FFFA1F00609F' +
       'FE3FF67E5E77BBBEBD51FF03005CB5FFD339A4E5AFFF8DEEFF050' +
       '0708DFECFADDE57FE46FD0F0070D5FE8FAC75371AF53F00C0E8FE' +
       '8F3C6BB6F3055A665BBE424EEEDA3EC7BDEB1967A5FF0100AED1F' +
       'FB9EB73CE79BEF0B6EBFF44AE93BFCFDF26226D3FF3553AF53F00' +
       'C035FA7FCEEBF3F49ACF3C45DD721730FD0F00C07DFA3F7D5FFA5' +
       'FFF030050DBFFA9743D4CAEBD7B3D1E3F8378DB1E6AD7FC8FDBBE' +
       'F62EBD47CD41FF03005CB5FF23759D6EDFF7F1F6FB0BB4ACFF8F6' +
       'C1969F596ED3F7F4A5FCB7CDC1CD267CDD0FFCBE3F5F77FBEBF00' +
       '00E3FAFFD8C7479F17105F5193DBB2BC87F211FBF87EE23D1FD96' +
       '7FCF1195619E97F0000FD7F6CFF478E93F76AF596DF20ED739E6D' +
       'FDBFFE07003857FFC7CF32D8B6CE679FFE8F5C23B4D731F9BEFBD' +
       'C3667FD0F007087FECF9579FC59E53524B9F30BE2E5B9ED755B8A' +
       'B7F60CDCF8FA9FDCF6A3D7209DABFFD7B7E563597C7F01007AF57' +
       'F5AE6F13B61B5DC396B5BFFB7BF6EBA879657ECF57996B7A97DBC' +
       '760EF3ACFCD7FF0000FBF4FF79EFE765BCF6F5FFF53F00C0B9FA3' +
       'F9D435AFEFADFA8FF0100AED1FFB975FBCADFA8FF0100AEDAFF91' +
       '55EE46E37FF4FFFBFA5856DF5F00805EFD1F79D66C637C86EDEFA' +
       '87C2D9DDC55808EFB64669C95FE070098B3FF73D7E79CB3FC9FE7' +
       '1C39BF78DB3B8A5C517F9FBF6544DA7ECEEB79EA7F008099FB7FC' +
       'EEBF3E4DED7B65F34F15F01F31475CBFDC2F43F0080FE3F57FF3F' +
       'CFBFB6FF6BFF76A0FFF53F00C01DFA3F57C8B98A8EACC9AF7DBCF' +
       'DDE01E9BF3EBF4A4BFFD7AEC0E9BB7DEDFD7C8F9A83FE0700384B' +
       'FF47D6FFE7FAB9D7E3E3FA3FF2B783DAF5FF912D23ADDEB2FDE74' +
       'FF56B998F9B43FA2CFD0F0070C6FE3FF6F1BEFD9FBEF7F6FEAFDD' +
       'B2BC87F211FBF87EE23D1FD967FCF111AB8CF43F0080FE6FE9FF9' +
       '6D7DDD6FF91E3E4BD5ABDE53748FB9CADFF0700D0FFDBCE32E8D5' +
       'FF91EB7FC68F5DB71CFFAF5D2FD4F27784BEC7F36BE7ACFF0100C' +
       'ED8FFB9328F3FABDCD5B9F30B621D1E7D8F91BF05C4DBB5B6786B' +
       'CFC08DAFFFC96D3F7A0D92FE0700B852FFA7651EBFB355CB9DB06' +
       'AFB3F32CFF8BBDB56A4BDE63962FBC86C7BCD61F45DCFF43F00C0' +
       'E8FE3FF67E5EE7BD52BD51FF0300E8FFF275FED3F2D7FF46FD0F0' +
       '0708DFEEFB50EDFA8FF0100384BFFF75A876FD4FF0000B4F47FFC' +
       'B9C69ABF7794AEA893BB16D00CB3D5FF0000F7E9FF6D5701326EB' +
       'B17C03E9F6AA4EDF7B9AAA7FE070098B3FFD5FB88FE9F792653F7' +
       'FFDBF2B12CBEBF0000FABF7C9521FD7F91FE77FC1F006058FF972' +
       'B3AF7AFF167452A3DFE5E2277E9DAB69FDAEDE3EBFFF7DFBEF6AE' +
       'BE47CD41FF0300ECDFFF91D5E9B9FD97DBFBF95F23BF23D22DE3C' +
       'F8D5C77343E87F2F6DBD6FF47B68CB47ACBF69FFF97FA5AE6E3E6' +
       '903E4BFF03001CDBFFDBEEDE5BFB7B217DC5DAFE2F3F37DEF3DBF' +
       '6D36BFD4F6ECBF21ECA47ECE3FB89F77C649FF1C7CB9F89FE0700' +
       '98A7FFCBFBAF3D96BE7FFFC71FCFFD5A19D7FF91E3E4BD5ABDE53' +
       '748FB9C9DFF0B0070F6FE8FEFF92CFDDF72C5CE96E3FFB5EB855A' +
       'FE8ED0F7787EED9C1DFF070038B6FFCBCFCDB571BAE5CCEB7F22B' +
       'F7A229F46DFEBFFD49E811B5FFF93DB7EF41A24FD0F003067FFA7' +
       '57CE291FD1CD1DE38D9CD11939561C79C5DA398C9E73FC7A44F1E' +
       'D23AFD8BEFD9E9F52FCD3D0FF0000A3FBDF689C67D4FF0000FADF' +
       'A8FF0100D0FF46FD0F0080FE37EA7F0000FDFF7FD7A2FCEF675D6' +
       '3BCEAFBD2FF0000D4F6FFF39691AB7A9EBDFFFD1D44FF0300DCB3' +
       'FFD32A8E5C6953FF1BF53F00C035FAFFAA55A9FFF53F0080FEDF5' +
       '6C5E55769BF976EFBFEF5BFFE0700D0FFEDFD9F6E5F3E5F209D49' +
       '7CFBF25D655B66A2FFF53F0080FE6F3FFE9FEE2752E9E5ED6BD7F' +
       '3B4EFD9A8FF0100F47FDF9EEFDBFFB9DF20FA5FFF0300E8FFC8B5' +
       'F1D347FAF67CDFFE2FAF14D2FFFA1F0040FF478EA8475A3AF7AC9' +
       '6CE2FBF8B6DE717EB7FFD0F00A0FF73F515B9F2FFA328B765E4F1' +
       'F2FE47CCC4A8FF0100EED9FF46A3FE0700D0FF46A3FE0700D0FF4' +
       '6A3FE070000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000052' +
       'FF00338190D0');
       end;
         procedure feather;
         begin


          if(amount('shop',7)>=(960+random(10)))then
          begin;
        if(findbitmap(featherbitmap,x,y)) then
         Writeln('Found the feather, Gonna buy some');
         wait(200+random(100))
         mouse(x,y,5,5,false);// moves mouse to right click the feathers
         Wait(100+random(100));
         if(findbitmap(buy10,x1,y1)) then
         Writeln('Buying feathers');
         mouse(x1,y1,5,5,true);
         feathercount:=feathercount+10
         wait(100+random(100));
         
end;
end;
begin
loadbmps;
repeat
feather;
until(feathercount<=featherstobuy);

end.

Cheesehunk

2006-12-08 19:01:54

Your Bitmaps are absolutely Giant! You should try using way smaller Bitmaps, thats as big as the screen! You only need Bitmaps of about half the item. I think I already have Bitmaps for both those things, here:

  Feather := BitmapFromString(8, 4, 'z78DA65CC410AC0200C44D12' +
       'B8DAD54BBCC4CF0FE476A30520413F8ABC700714554D5AD57253E' +
       'DB85F859E06AF87BF8940F0747D4E929D9CDCD974FB919558A3C9' +
       '7973F36779FCB6C26E30723CD2B46');

  Buy10 := BitmapFromString(26, 2, 'z78DA33753135313177430206' +
       '6000619BE2908588E322DDDC2C0D4C0C2024CC3484082E35C8262' +
       '08BE0721B329B5A6EC32582A91700559645C4');

There you are, good luck. :)