need bit help with my script
my msn is kotsz i dont want help on teh forum its so slow
need bit help with my script
my msn is kotsz i dont want help on teh forum its so slow
~Hermen

Haha its not slow at all. Just post the script. Then you got like 50 ppl flocking to help you, cuz they want a helper bear or dev status![]()
okay here my script
i want the click bone thingy with find oject he dont clicks it he just with movemouse to a bone and then he removes the mouse from bone and clicks somewhere and i need a bury thingybut thats isnt working to
SCAR Code:program BoneBurier;
{.include SRL/SRL.scar}
const
BoneColor=14145500;
procedure GetBones;
begin
repeat
if findobj(X, Y, 'one', BoneColor, 10) then Mouse(X, Y, 518, 338, True);
until(invfull)
end;
// this isnt working this is a begin of the function burieing
//
//procedure BuryBones(option: string; bmp, tol: Integer);
//begin
//.Name:='bones';
// .Bitmap:= BitmapFromString(37, 36,
// 'z78DAED97410E80200C04BFC42BF8FF93BC9A189AAD686DEBCC89' +
// '1050262C55C600000000F82FF3443F2F6F4F0FBB55BB4A0E57767' +
// '67F3653EFAA9491918ED3C43B4B597F8C9DF72DBA759E64EA7B54' +
// 'B7665E73A524CD4EE63D62ECBEAD03914F7EDB2EC3F742C9D24E0' +
// '2739ED39D0A9CC74ED9B5BA99CCF0EF81DDB395ADD3FDAEB75DEF' +
// '5B39000054E400819A0FF7'
//ClickAllItemsBmpTolWait(option, bmp, tol, 30);
//end;
//end;
begin
SetupSRL;
repeat
GetBones;
//BuryBones;
until(false); //i know endless loop but i am working on it
end.
~Hermen

I dont know what you are trying to do with this, but take it out;
SCAR Code:Name:='bones';
Now, if you are going to declare the bitmap inside the procedure, there is no reason to have bmp as an argument for the function. Take that out...
Now, you must have the variable to load a bitmap as an integer. I see you have made it called bitmap. Add bitmap as a local variable (def. - variables only used inside that procedure/function). Then, change the bmp inside ClickAllItemsBmpTolWait to the variable you declared the bitmap as (bitmap). Now, it should look like this...
SCAR Code:procedure BuryBones(option: string; tol: Integer);
var
bitmap : integer;
begin
Bitmap:= BitmapFromString(37, 36,
'z78DAED97410E80200C04BFC42BF8FF93BC9A189AAD686DEBCC89' +
'1050262C55C600000000F82FF3443F2F6F4F0FBB55BB4A0E57767' +
'67F3653EFAA9491918ED3C43B4B597F8C9DF72DBA759E64EA7B54' +
'B7665E73A524CD4EE63D62ECBEAD03914F7EDB2EC3F742C9D24E0' +
'2739ED39D0A9CC74ED9B5BA99CCF0EF81DDB395ADD3FDAEB75DEF' +
'5B39000054E400819A0FF7';
ClickAllItemsBmpTolWait(option, bitmap, tol, 30);
end;
If you have any questions, feel free to ask!
if findobj(X, Y, 'one', BoneColor, 10) then Mouse(X, Y, 518, 338, True); <---- what i was able to teach him in 2 days... this guy is not worth your efforts...+ he is really annoying + pmed asking wizzup to add him on msn
Infractions, reputation, reflection, the dark side of scripting, they are.
off topic wtf how you know that
o and thanks for your help
edit:
dude you helped me lots but if u say somthing and say 15 mins nothing say somthinf and say 15 nothing and then come back and than block me because i talk to much
u could have say i am bissy for a moment i dont answer but u just leave msn and i wait for couple of times for you then i am not anoying but your are that but i would say i thank you for that help you gave me but why you blocked me on msn is the stupids reason ever if you dont say your bissy duh!
grtz kotsz
i want to make a burry procedure with a bitmap
i got the bitmap already but i dont know how to make it click on the bitmap(bone)
i couldnt find a procedure/function that burry,s without the bitmap so
u can help me?
~Hermen
lol... sec ill have someone post who im teaching at the moment... and nudging me 10 times makes no sence and when im trying to explain you something you just keep asking new questions...
http://www.srl-forums.com/forum/ilov...539#post167539
Infractions, reputation, reflection, the dark side of scripting, they are.
offtopic:thats a little bit true but dont overdrijf(lol dont know how to say in englishh)that to much
u cna help me or not my getbone; works finly without your hulp i had script somthing wrong
so i listen to yuor advice i tryed somthing and it works now i need some help with teh burying function and some1 need to checkif the getbones function works can some pls help me
and if u get the feeling i need to learn that noob kotsz scripting better than just add my msn kotsz@live.nl
~Hermen
try this:
var
BoneBMP : integer;
BoneBMP := BitmapFromString(.....)
that should help
Infractions, reputation, reflection, the dark side of scripting, they are.
okay thanks! but what you mean with (.....)
~Hermen

Hey, didnt i explain it kinda clear up there?
There are currently 1 users browsing this thread. (0 members and 1 guests)