feeltheeatshelp

[Modnick]

ok so im back after a couple days of studying, now i should be a it better at this, ok take a look

//Feel the beats auto player By modnick

{.include OSI\OSI.scar}
    const
key_s = 10551498;
key_d = 41933;
key_f = 49818;
key_sp = 125562888;
key_j = 39803;
key_k = 34987;
key_l = 6291577;



function Presskey_s: Integer;
var x, y : Integer;
Bmp : TSCARBitmap;
begin
Bmp := TSCARBitmap.Create('deNrt0dlKQmEUxfH/A/Qi3RlEQRMIRmVkKBmpZ' +
   'GnlcDSHozlToaWnQW3UpodtpRD1AnaRm331sdi/D9YkE/zhXBBvkmiRvOL4mtQ' +
   'tmTbZDtk7cvfkHzl5otCj1Kf0SuWN6gc17QtlvSujvEWyQfycSJVwif0cgTS+B' +
   'N4ongM2g6z7Wd3G4cHuYsnJ/DKzdqYXmRrTo6cvMaRbX3rqhvRQ72Lq8gN5Ec8' +
   'UexTFSX+npu1T1q+65JRvkagTO+OoQqjInkkgxY6BN4I7jEu0jxUvDjf2jV+07' +
   'X/SDWJDXXVbg7p1rU1mULf5Xbd01S1ddWvVvn7VwVS+iVEnesqh6ALBLH7RcbZ' +
   'Eh3Dt4vxJrzHnYEb0AjbGM9r5BK/qG0s=');
 If FindBitmap(x, y, Bmp, 110, 410, 280, 457) then
 begin
    TypeSend(Key_s,1)
 end;
 end; 

ok so im gettiing an invalid number of parimeters error, im not sure what to put at the typesend

Edited March 7, 2013 by Modnick

[Bixby Sayz]

I believe you would just put:

[sCAR]const

SKey = 's';

 

TypeSend(SKey);[/sCAR]

[Modnick]

I believe you would just put:

[sCAR]const

SKey = 's';

 

TypeSend(SKey);[/sCAR]

thanks

 

- - - Updated - - -

 

//Feel the beats auto player By modnick

{.include OSI\OSI.scar}
const
 SKey = 's';



function Presskey_s: Integer;
var x, y : Integer;
Bmp : TSCARBitmap;
begin
Bmp := TSCARBitmap.Create('deNrt0dlKQmEUxfH/A/Qi3RlEQRMIRmVkKBmpZ' +
   'GnlcDSHozlToaWnQW3UpodtpRD1AnaRm331sdi/D9YkE/zhXBBvkmiRvOL4mtQ' +
   'tmTbZDtk7cvfkHzl5otCj1Kf0SuWN6gc17QtlvSujvEWyQfycSJVwif0cgTS+B' +
   'N4ongM2g6z7Wd3G4cHuYsnJ/DKzdqYXmRrTo6cvMaRbX3rqhvRQ72Lq8gN5Ec8' +
   'UexTFSX+npu1T1q+65JRvkagTO+OoQqjInkkgxY6BN4I7jEu0jxUvDjf2jV+07' +
   'X/SDWJDXXVbg7p1rU1mULf5Xbd01S1ddWvVvn7VwVS+iVEnesqh6ALBLH7RcbZ' +
   'Eh3Dt4vxJrzHnYEb0AjbGM9r5BK/qG0s=');
 If FindBitmap(x, y, Bmp, 110, 410, 280, 457) then
 begin
    TypeSend(SKey)
 end;
begin
SetUpOSI;
begin
TerminateScript;
end;
end.

Identifier expected?

[Bixby Sayz]

Missing an end. Indenting seriously helps figuring out stuff like this. Indenting is your friend.

 

//Feel the beats auto player By modnick

{$I OSI\OSI.scar}
const
 SKey = 's';

function Presskey_s: Integer;
var
 x, y : Integer;
 Bmp : TSCARBitmap;
begin
 Bmp := TSCARBitmap.Create('deNrt0dlKQmEUxfH/A/Qi3RlEQRMIRmVkKBmpZ' +
     'GnlcDSHozlToaWnQW3UpodtpRD1AnaRm331sdi/D9YkE/zhXBBvkmiRvOL4mtQ' +
     'tmTbZDtk7cvfkHzl5otCj1Kf0SuWN6gc17QtlvSujvEWyQfycSJVwif0cgTS+B' +
     'N4ongM2g6z7Wd3G4cHuYsnJ/DKzdqYXmRrTo6cvMaRbX3rqhvRQ72Lq8gN5Ec8' +
     'UexTFSX+npu1T1q+65JRvkagTO+OoQqjInkkgxY6BN4I7jEu0jxUvDjf2jV+07' +
     'X/SDWJDXXVbg7p1rU1mULf5Xbd01S1ddWvVvn7VwVS+iVEnesqh6ALBLH7RcbZ' +
     'Eh3Dt4vxJrzHnYEb0AjbGM9r5BK/qG0s=');
 If FindBitmap(x, y, Bmp, 110, 410, 280, 457) then
 begin
    TypeSend(SKey)
 end;
end;

begin
 SetUpOSI;
 TerminateScript;
end.

[Modnick]

Missing an end. Indenting seriously helps figuring out stuff like this. Indenting is your friend.

 

//Feel the beats auto player By modnick

{$I OSI\OSI.scar}
const
 SKey = 's';

function Presskey_s: Integer;
var
 x, y : Integer;
 Bmp : TSCARBitmap;
begin
 Bmp := TSCARBitmap.Create('deNrt0dlKQmEUxfH/A/Qi3RlEQRMIRmVkKBmpZ' +
     'GnlcDSHozlToaWnQW3UpodtpRD1AnaRm331sdi/D9YkE/zhXBBvkmiRvOL4mtQ' +
     'tmTbZDtk7cvfkHzl5otCj1Kf0SuWN6gc17QtlvSujvEWyQfycSJVwif0cgTS+B' +
     'N4ongM2g6z7Wd3G4cHuYsnJ/DKzdqYXmRrTo6cvMaRbX3rqhvRQ72Lq8gN5Ec8' +
     'UexTFSX+npu1T1q+65JRvkagTO+OoQqjInkkgxY6BN4I7jEu0jxUvDjf2jV+07' +
     'X/SDWJDXXVbg7p1rU1mULf5Xbd01S1ddWvVvn7VwVS+iVEnesqh6ALBLH7RcbZ' +
     'Eh3Dt4vxJrzHnYEb0AjbGM9r5BK/qG0s=');
 If FindBitmap(x, y, Bmp, 110, 410, 280, 457) then
 begin
    TypeSend(SKey)
 end;
end;

begin
 SetUpOSI;
 TerminateScript;
end.

your a very big help, thanks man