Need Help (Scar 3.0 Version)

[blitz]

Every time I run this program it doesn't do what I want it to do. I want to move the mouse over the box trap in my inventory and click on it. The program runs, but it does nothing. Take note

that this is programmed using scar 3.0. Thanks to anyone trying to help.

 

 

 

 

 

 

program HunterBot;

 

var

x,y: Integer;

Trap: Integer;

 

procedure LoadBMPs;

 

begin

 

Trap := BitmapFromString(29, 35, 'z78DAAD98EB92A43008855F49' +

'0DE4F2B3D5F6FD1F6919C96E1D0B49E36C8F55D45454F27920843' +

'4D5F44E4C8D26B12B2DE975B178572DA72DA56EF52E8EA0450F6A' +

'71C4FAF118D022837D1E47705E8F301B0FF8966556FFE833428B6' +

'FC5ED9853ADA7F9EF2CD27AFE315E9EB5D9825F74FE3FFDFCCD37' +

'DF12A7F52232668E7C11F8EF9C7B5AE7B5FF8F7E22191BC9C6945' +

'ECBFB037F20D696364D8B5C0FD69765B69C1EAD5D9BCEEA56B6BC' +

'E794971B5A9B81E3CC1FD38ED5F332C170F2C68917575B9B3F7D4' +

'DC9480DCDFBD41A3D4BC99B5C4ADB78E6990A4D345D68BDFCF1C6' +

'235574BCBE9C2CCD6B9EE59AB870E64C875C56DB886EF1BCB5996' +

'9EF3A7E948A25DA722D32B27DA0F534895730AF0ED7B40BADCD34' +

'33BBB2B935215E5BEC5AB659813CA8EA98D354A40F15CCCE6877D' +

'8711F328CF2D7EAADD74B20ADD75379ABCFD266535BB05B30B33F' +

'D076FCED4EB574C73DCFA6D2A2CD33B545A0D33E6F5FA6F5FACFC' +

'0372A493D4A63295AB42F49EE096C9DF24EBB54FB3AB707B4E379' +

'AD7AB66218F55A2E07B74665E7DA96B27251DAFA2A99975A0BF15' +

'C533EE8ADCCAA70A9B990DC93FD988B5465A29B0ECDDB8523B186' +

'8A74C326F3CB073984E59D57FA4B288F5056C2FEEEF9CCCDEA8BD' +

'0DAD5079C2E9B28C4931276B635376A17425052DFEDCF9CD6CD90' +

'31EDB0CE23D5535A8D883ED9F9C1DEF466B693BC39CD9DD5C9F43' +

'F9D16E27B89F2C976893ED0EA175985D1DED08E2B955D59961609' +

'AD861877B54E26E48D379AD03EAE6CC3EEABF7819069379989546' +

'A61241FFCA6A513BEB8A523172E69577BD33F444E8BC36A70D1D0' +

'EA66A3EC71128B57E97C8544ED879AF0F0BCF0AFC7BED710083BD' +

'B692F715725815346DFA9A87D4C1BD1D659234878C9491D317A76' +

'CE465BFAD9F65AA20FB4BFCA840B9547A86C6A5155C3897BA2728' +

'6768787CC9DDCB299B583AAF221BB6E454E24FC2E275AF57C2147' +

'428DB85A50D555D2DB0BC63BAF77921D766537E4B0D295D95512F' +

'DC769C7E75CDBBD3B6A587257C9C8AF73915F42BCCE2172C68491' +

'073919B7765E2F8BBCBD3BFEABE0FFD33AFDA14BEBF545914CB3D' +

'EECC97148FB0784230C8D');

end;

 

procedure FindTrap;

 

begin

if(Findbitmap(Trap,x,y)) then

 

begin

MoveMouse(x,y);

wait(1000+random(100));

ClickMouse(x,y,true);

end;

end;

 

begin

 

Repeat

ActivateClient;

wait(5000)

LoadBMPs;

FindTrap;

Freebitmap(Trap);

until(false);

 

end.