Jump to content

Recommended Posts

Posted

Hi, I got this script. When my character is dead, I press play it goes to city and buff and then it goes back to the spot. But I need that the script check and re-check if my character is dead (I mean, if it is alive continue checking, not to stop the script) and... is there a way to make a "loop" the script?

begin

begin

    if User.Dead then begin
    
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(11000);
    end;
end;
    Engine.BypassToServer('_bbshome');
    Delay(1000);
    Engine.BypassToServer('_bbsgetfav');
    Delay(1000);
    Engine.BypassToServer('_bbsbuffer');
    Delay(1000);
    Engine.BypassToServer('_bbsbufferbypass_cast 159 x x');
    Delay(1000);
    Engine.BypassToServer('_bbsgetfav');
    Delay(1000);
    Engine.BypassToServer('_bbshome');
    Delay(1000);
    Engine.BypassToServer('_friendlist_0_');
    Delay(1000);
    Engine.BypassToServer('_dropItemsByName_ crafted leather');
    Delay(1000);
    Engine.BypassToServer('_dropMonstersByItem_1894');
    Delay(1000);
    Engine.BypassToServer('_dropMonstersByItem_1894_2');
    Delay(1000);
    Engine.BypassToServer('_dropMonsterDetailsByItem_22643');
    Delay(1000);
    Engine.BypassToServer('_dropMonsterDetailsByItem_22643_3');
    Delay(1000);

end.
Posted
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
    end;
end;


begin
while true do begin
    Engine.BypassToServer('_bbshome');
    Delay(1000);
    Engine.BypassToServer('_bbsgetfav');
    Delay(1000);
    Engine.BypassToServer('_bbsbuffer');
    Delay(1000);
    Engine.BypassToServer('_bbsbufferbypass_cast 159 x x');
    Delay(1000);
    Engine.BypassToServer('_bbsgetfav');
    Delay(1000);
    Engine.BypassToServer('_bbshome');
    Delay(1000);
    Engine.BypassToServer('_friendlist_0_');
    Delay(1000);
    Engine.BypassToServer('_dropItemsByName_ crafted leather');
    Delay(1000);
    Engine.BypassToServer('_dropMonstersByItem_1894');
    Delay(1000);
    Engine.BypassToServer('_dropMonstersByItem_1894_2');
    Delay(1000);
    Engine.BypassToServer('_dropMonsterDetailsByItem_22643');
    Delay(1000);
    Engine.BypassToServer('_dropMonsterDetailsByItem_22643_3');
    Delay(1000);
    while not deadCheck do delay(1000);
  end;
end.

try this mabe this what you whant :D

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock