Stealth Client Forum

Code: Select all

Procedure checkOverWeight; 
  Var
    feathersId, leatherId: Cardinal;
    overWeight, feathersWeight, leatherWeight: Integer;
  Begin
    overWeight := Weight - 599;
    If overWeight > 0 Then 
      Begin
        feathersId := Find(feathersType);
        feathersWeight := FindQuantity() / 10;
        leatherId := Find(leatherId);
        leatherWeight :=  FindQuantity();
      End;
        If feathersWeight >= overWeight Then
          Begin 
            ItemToBank(feathersId, overWeight*10);
            TWait;
          End;
        Else
          Begin
            ItemToBank(feathersId, feathersWeight*10);
            TWait;
            If leatherWeight >= overWeight Then
              Begin
                ItemToBank(leatherId, overWeight*10);
                TWait;
               End;    
          End;  
  End;

Code: Select all

          Begin
            ItemToBank(feathersId, feathersWeight*10);
            TWait;
            overWeight := overWeight-feathersWeight; <--------------------------------------------------
            If leatherWeight >= overWeight Then
              Begin
                ItemToBank(leatherId, overWeight*10);
                TWait;
               End;    
          End; 

Code: Select all

Type
  TRune = record
  id: Cardinal;
  x, y: Integer;
  protect: Boolean;
End;

Code: Select all

Function IsGuardZone: Boolean;
  Var
    i, myDist, tmpDist: Integer;
  Begin
    Result := False;
    If (GetSX > 0) And (GetSY > 0) Then
      Begin
        myDist := Dist(GetSX, GetSY, Rune_Vesper.x, Rune_Vesper.y);
        myDist := MinInt(myDist, Dist(GetSX, GetSY, Rune_Weapon.x, Rune_Weapon.y));
        myDist := MinInt(myDist, Dist(GetSX, GetSY, Rune_Butcher.x, Rune_Butcher.y));
        If myDist < 50 Then Result := True;
        For i := 0 To Length(Runes_r) - 1 Do 
          Begin
            tmpDist := Dist(GetSX, GetSY, Runes_r[i].x,  Runes_r[i].y);
            If myDist > tmpDist Then 
              Begin
                myDist := tmpDist
                Result := Runes_r[i].protect;
                If myDist = 0 Then Exit;
              End;
          End;
        For i := 0 To Length(Runes) - 1 Do
          Begin
            tmpDist := Dist(GetSX, GetSY, Runes[i].x,  Runes[i].y);
            If myDist > tmpDist Then 
              Begin
                myDist := tmpDist
                Result := Runes[i].protect;
                If myDist = 0 Then Exit;
              End;
          End;
      End;   
  End;