SRL Archive - OSR Help

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

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 ;)

lol, i wana 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

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.

I dont know what you are trying to do with this, but take it out;

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…

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

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?

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/iloveit8-t15565.html?p=167539#post167539

Can you PLEASE try and be patient hermpie?

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 [email]kotsz@live.nl[/email]

With this attitude no one will help you… calm down.

From: passiondrive
With this attitude no one will help you… calm down.

maybe i type a bit weird because i got all the time maybe you think i am bit fast and not patientend but i am just mad about that stupid topic

Didn't I just say calm down? Anyway I'm no longer involved…

try this:
var
BoneBMP : integer;
BoneBMP := BitmapFromString(…..)
that should help

okay thanks! but what you mean with (…..)

Hey, didnt i explain it kinda clear up there?