fixed, just used some while and deleted  IF

Hi Guys i join the community a year ago maybe more!

I never wrote something about me cause i don't like annoyng people with some log and useless intro, but today i want it.
I play UO since it born, i am a programmer ( Beginner )
and i have a passion for the technology.
I play many other games, but make a list will take a lot of time

I need help to improve as a scripter, but i will try to do my best to help beginners as i am.

Thanks in advance to everybody

Welcome

Hi Guys i got a problem with a script, could someone trying to help me to fix this?
It's annoying,  i tried to do it in many different way but nothing change.
When i press the Hotkey it doesn't work good.

Thanks in advance to everybody

Kind Regards  Grin

Here the script:

procedure cast_spam();
var IsCasting:Boolean;
var arrow:Boolean;
begin
    arrow:=False;
    if not IsCasting then begin        
        if (arrow = False) then begin
        IsCasting:=True
        cast ('Magic_Arrow');
        WaitForTarget(500);
        if targetpresent then begin
          TargetToObject(LastAttack);
          IsCasting:=False;
          arrow:=True;
          end;
        end;
  
        if (arrow = True) then begin
        IsCasting:=True;
        cast ('Fireball');
        WaitForTarget(500);
        if targetpresent then begin
          TargetToObject(LastAttack);
          IsCasting:=False;        
          arrow:=False;
          end;
        end;
    end;
End;
   

Quote from: drmorpheus on December 05, 2014, 06:19:08 AM

can you just wrote for me a little script that can allow me how to use that?
And than i will use it like example for the others that i will make?
it's like that i miss the autoload of injection..

I will be honest. The Razor-Edge like feature was suggested by dozens of russian members who were inspired by injection. I never really used this feature or wroted any single line of code (well it could be possible i fixed a bug..) so i dont know the way how to work with it. I can look at it and maybe get it working but no promise....

thank you so much, could be nice.
Because seems realy smooth and fast, the problems are the functions to call with the hotkeys

---

Post Merge: December 05, 2014, 07:02:29 AM

---

i found this but when i trying to compile gave me error

Program SpellCasting;

VAR
  Fizzle : Boolean;
  CastTimer : Cardinal;

procedure CastSpell(Name:String; CastTime: Integer; Target:Cardinal);
var
i:Integer;
timer:TDateTime;
begin
  if( Target=0 ) then
  begin
    i:=0;
    timer:=Now;
   
    if( GetTickCount>CastTimer ) then
    begin
      Cast(Name);
      repeat
        i:=i+100;
        wait(100);
      until( (InJournalBetweenTimes('concentration is|', timer, Now)<>-1) OR (i > 1000));
      CastTimer:=GetTickCount+2000;
    end;
  end; 
 
  if( Target<>0 ) then                                                                                                                                                   
  begin
    i:=0;
    timer:=Now;
   
    if( GetTickCount>CastTimer ) then
    begin
      Cast(Name);
      repeat
        i:=i+100;
        wait(100);
      until( (InJournalBetweenTimes('concentration is|', timer, Now)<>-1) OR ( i > 2000) OR (TargetPresent()));
      if( TargetPresent ) then
      begin
        TargetToObject(Target);
        CastTimer:=GetTickCount()+2000;
      end;
    end;
  end;
 
  if( InJournalBetweenTimes('concentration is|', timer, Now)<>-1 ) then
  begin
    Fizzle:=True;
  end
  else
  begin
    Fizzle:=False;
  end; 
wait(200);
END;

  Hi to everybody guys, i got a problem.
That's the first time that i sure uoStealth and i tried to use exec cast('heal'); in hotkeys but on Uo i read that don't know the command, like nothing happens..
Can someone explain to me how to cast?
Do i need some script to do that?
Thanks in advance.

i forgot to ask also why all the time that i trying to compile a script came out the voice compile error^
Vincenzo

good script