Excelsior

Code: Select all

;=================================================================
; Script Name: Alaskan's Lazy Depositor
; Author: Alaskan
; Version: 1.2
; Shard OSI / FS: OSI / FS OK
; Revision Date: 07/02/2014
; Purpose: Empties all gold and checks from the bag/bags you specify as your loot bags
;(maximum of two) into any exex box.
;
;Suggestions or issues message Alaskan on the UOEX forums.
;=================================================================
set %loot POF_EWH
set %exex CUD_HKF
set #lpc 100
display yesno Do you have more then one loot bag?
if #dispres = yes
{
  display ok If one of your loot bags is your backpack then target your backpack on your paperdoll now.
  set #targcurs 1
  while #targcurs = 1
    wait 1
  set %bag1 #ltargetid
  set #ltargetkind 1
selectbag:
  display ok Select your second loot bag.
  set #targcurs 1
  while #targcurs = 1
    wait 1
  set %bag2 #ltargetid
  set #ltargetkind 1
  if %bag1 =  %bag2 || %bag2 = #backpackid
  {
    display ok You must select a differnt loot bag.
    goto selectbag
  }
  gosub twobags
}

display ok If your loot bag is you backpack then target your backpack on your paperdoll.
set #targcurs 1
while #targcurs = 1
  wait 1
set %lootbag #ltargetid
set #ltargetkind 1
gosub onebag

sub onebag
main:
  finditem %exex G_5
  if #findcnt > 1
  {
    for #findindex 1 #findcnt
    {
      event property #findid
      if exex notin #property
      {
        ignoreitem #findid
        goto main
      }
    }
  }
  else
  {
    if #findcnt > 0
    {
      event property #findid
      if exex in #property
      {
        set %exextemp #findid
        for %msg 1 3
        {
          event exmsg #findid 4 7 Take a load off :)
          wait 10
        }
        while #finddist > 2
        {
          wait 1
          if #finddist > 5
            goto main
        }
      }
      else
        goto main
      if %lootbag = #backpackid
        gosub backpack
      else
      {
        finditem %lootbag c_ , #backpackid
        set #lobjectid #findid
        set #nextcposx 607
        set #nextcposy 426
        event macro 17 0
        wait 10
        repeat
          {
            finditem %loot c_ , %lootbag
            if #findcnt > 0
            {
              exevent drag #findid #findstack
              wait 10
              exevent dropc %exextemp
              wait 10
            }
          }
        until #findcnt < 1
      }
      finditem %exextemp G_5
      while #finddist < 5
        wait 1
      event macro 4 4 [exex
      while #contsize <> 580_530
        wait 1
      gosub OffsetClick 76 378
      while #contsize <> 580_530
        wait 1
      contpos 12 39
      wait 5s
      gosub OffsetClickClose 330 428
      goto main
    }
    else
      goto main
  }
  goto main
return

sub twobags
main2:
  finditem %exex G_5
  if #findcnt > 1
  {
    for #findindex 1 #findcnt
    {
      event property #findid
      if exex notin #property
      {
        ignoreitem #findid
        goto main2
      }
    }
  }
  else
  {
    if #findcnt > 0
    {
      event property #findid
      if exex in #property
      {
        set %exextemp #findid
        for %msg 1 3
        {
          event exmsg #findid 4 7 Take a load off :)
          wait 10
        }
        while #finddist > 2
        {
          wait 1
          if #finddist > 5
            goto main2
        }
        if %bag1 = #backpackid
          gosub backpack
        else
        {
          finditem %bag1 c_ , #backpackid
          set #lobjectid #findid
          set #nextcposx 614
          set #nextcposy 440
          event macro 17 0
          wait 10
          repeat
            {
              finditem %loot c_ , %bag1
              if #findcnt > 0
              {
                exevent drag #findid #findstack
                wait 10
                exevent dropc %exextemp
                wait 10
              }
            }
          until #findcnt < 1
          finditem %bag2 c_ , #backpackid
          set #lobjectid #findid
          set #nextcposx 605
          set #nextcposy 214
          event macro 17 0
          wait 10
          repeat
            {
              finditem %loot c_ , %bag2
              if #findcnt > 0
              {
                exevent drag #findid #findstack
                wait 10
                exevent dropc %exextemp
                wait 10
              }
            }
          until #findcnt < 1
        }
        finditem %exextemp G_5
        while #finddist < 5
          wait 1
        event macro 4 4 [exex
        while #contsize <> 580_530
          wait 1
        gosub OffsetClick 76 378
        while #contsize <> 580_530
          wait 1
        contpos 12 39
        wait 5s
        gosub OffsetClickClose 330 428
        goto main2
      }
    }
    else
      goto main2
  }
  else
    goto main2
}
goto main2
return


sub OffsetClick
set %tempx %1 + #CONTPOSX
set %tempy %2 + #CONTPOSY
click %tempx %tempy f
return

sub OffsetClickClose
set %tempx %1 + #CONTPOSX
set %tempy %2 + #CONTPOSY
click %tempx %tempy r
return

sub backpack
set #nextcposx 839
set #nextcposy 527
event macro 8 7
wait 10
repeat
  {
    finditem %loot c_ , #backpackid
    if #findcnt > 0
    {
      exevent drag #findid #findstack
      wait 10
      exevent dropc %exextemp
      wait 10
    }
  }
until #findcnt < 1
return