바닥 돈줍기 바울님꺼 Agents Scavenger 활용버전으로 컨버전 > 라죠 매크로

설정할건 에이전트 scavenger 추가랑, 변수 3가지 입니다. gui_list_name , gold_depth, powder_depth 

#gui 에이전트 리스트명

gui_list_name = 'gold'

#바닥돈 찾을 반경

gold_depth = 3

#팩백에서 전송가루 보관깊이

powder_depth = 1

bag = Player.Backpack.Serial

bag_sending = None

bag_charges = 0

before_gold = 0

move_pause = 600

Misc.ClearIgnore()

Scavenger.ChangeList(gui_list_name)

while Items.FindByID(0x0EED, 0, -1, gold_depth):

  if before_gold != Player.Gold:

    before_gold = Player.Gold

    Misc.SendMessage('Gold : ' + str(before_gold))

  if Player.Gold < 60000:

    if not Scavenger.Status( ):

      Scavenger.Start( )

  else:

    if Scavenger.Status( ):

      Scavenger.Stop( )

    if bag_sending:

      item_obj = Items.FindByID(0x0EED, 0, bag)

      Misc.IgnoreObject(item_obj)

      while item_obj.Amount < 60000:

        source = Items.FindByID(0x0EED, 0, bag)

        less = 60000 - item_obj.Amount

        if source.Amount < less:

          less = source.Amount

        Items.Move(source, item_obj, less)

        Misc.Pause(move_pause)

      Misc.ClearIgnore()

      if Target.HasTarget():

        Target.Cancel()

      bag_charges = Items.GetPropValue(bag_sending, 'Charges')

      Misc.Pause(move_pause)    #액션 딜레이 오류?로 인한 딜레이추가

      if bag_charges > 0:

        Items.UseItem(bag_sending)

        Target.WaitForTarget(5000)

        Target.TargetExecute(item_obj)

        Misc.SendMessage('남은 전송가방 차지수 : ' + str(int(bag_charges)-1))

        Misc.Pause(move_pause)

      else:

        item_obj = Items.FindByID(0x26B8, 0, bag, powder_depth)

        if item_obj:

          Journal.Clear()

          Items.UseItem(item_obj)

          Target.WaitForTarget(5000)

          Target.TargetExecute(bag_sending)

          Misc.Pause(move_pause)

          if Journal.Search('This item has been oversaturated'):

            Misc.SendMessage('수명이 다된 전송가방을 버립니다.')

            player_3d = Player.Position

            Items.MoveOnGround(bag_sending, 0, player_3d.X + 1, player_3d.Y, player_3d.Z)

            Misc.Pause(move_pause)

            bag_sending = None

            break

          else:

            Misc.SendMessage('전송가루 충전 완료.')

        else:

          Misc.SendMessage('전송가루가 없습니다.')

          break

    else:

      for item_obj in Items.FindAllByID(0x0E76, -1, bag, 0):

        if item_obj.Name == 'a bag of sending':

          bag_sending = item_obj

          break

        Misc.Pause(move_pause)

      if not bag_sending:

        Misc.SendMessage('전송가방이 없습니다')

        break

  Misc.Pause(move_pause)

if Scavenger.Status( ):

  Scavenger.Stop( )