ignoreItem reset 1
ignoreItem reset 2
ignoreItem #CHARID 1

set %npc HS_IS
set %closed_door ZPC_HQC_JQC_HQC
set %eattimer #SCNT
set %skilltimer #SCNT

set %cube IUD
set %junk XVH_ECG_TWF_HTH_KGG_XPD ;_EDI_VDI_FCI_XDI_LDI_FZH_DZH_BZH_RDI_DCI_GCI_RJG_NZH_PZH_IJG_SJG_FJG_HJG_TDI ;IND
set %dragit GUD_FUD_FUF_ZLF_RGG
set %junk2 EDI_VDI_FCI_XDI_LDI_FZH_DZH_BZH_RDI_DCI_GCI_RJG_NZH_PZH_IJG_SJG_FJG_HJG_TDI_UJG_HZH ;IND

main:
  gosub horadric %junk
  wait 10s
  gosub horadric %junk2
  set %time #SCNT
  wait 10s
  chooseSkill Begging
  execute cmd.exe /c echo >>begprocess.txt #DATE #TIME #SKILL #GOLD
  event ExMsg #CHARID 1 0 Starting!
  ;first room
  gosub beg NYSE
  gosub beg EFTE
  ;second room
  gosub door 563 2144 563 2140
  gosub beg JPBC
  gosub door 563 2142 563 2147
  ;third room
  gosub door 560 2148 556 2148
  gosub beg KYSE
  gosub beg DGTE
  gosub beg PFTE
  gosub beg UETE
  gosub beg JZSE
  gosub door 558 2148 563 2148
  ;fourth room
  gosub door 561 2150 561 2155
  gosub beg WYSE
  gosub beg GFTE
  gosub beg FZSE
  gosub door 561 2152 561 2148
  ;OUTSIDE OF BUILDING 1
  gosub door 574 2147 579 2147
  gosub beg SMFB
  event pathfind 579 2162
  gosub go 586 2155
  event pathfind 585 2152
  ;set %dragbag TLDRMAG
  ;wait 1s
  ;finditem %dragit C_ , #BACKPACKID
  ;while ( #FINDKIND <> -1 )
  ;{
   ; while ( #CONTID <> TBTPMAG )
   ; {
  ;    msg bank$
   ;   wait 1s
  ;;  }
  ;	Exevent Drag #findid #findstack
  ;	wait 10
  ;	Exevent Dropc %dragbag  ;drops in a random location in backpack or stacks with existing
  ;	wait 10
  ;  finditem %dragit C_ , #BACKPACKID
  ;}
  gosub beg MMFB
  gosub go 580 2155
  gosub go 578 2179
  gosub door 568 2179 560 2179
  gosub beg ZOFB
  gosub beg YOBC
  gosub beg GPFB
  gosub go 560 2178
  gosub door 566 2179 571 2179
  gosub go 571 2202
  gosub beg FPFB
  gosub go 579 2204
  gosub go 579 2220
  gosub go 594 2220
  gosub door 595 2216 595 2210
  event pathfind 590 2206
  gosub beg TLBC
  gosub beg XLBC
  gosub beg MLBC
  gosub beg AMBC
  gosub beg ALBC
  event PathFind 594 2209
  gosub door 595 2214 595 2219

  gosub go 603 2216
  gosub go 614 2203
  gosub go 642 2203
  gosub door 650 2192 650 2186
  gosub beg ZRCC
  gosub beg CSCC
  gosub door 650 2190 650 2196
  gosub go 637 2186
  gosub door 632 2187 628 2187
  gosub beg YMFB
  gosub beg UMFB
  gosub beg JGMC
  gosub door 630 2187 636 2187
  gosub go 636 2171
  gosub door 635 2168 635 2164
  gosub beg IMFB
  msg vendor sell$
  wait 1s
  gosub beg KMFB
  gosub door 635 2166 635 2171
  gosub go 631 2179
  gosub go 620 2179
  gosub go 613 2171
  gosub go 605 2171
  gosub go 603 2149
  gosub beg RMFB

  gosub go 597 2130
  gosub beg PMBC

  gosub go 597 2130
  ;gosub go 597 2079
  ;wait 2s
  ;while ( #ENEMYID <> N/A )
  ;{
  ;  finditem #ENEMYID
  ;  event PathFind #FINDX #FINDY
  ;  wait 1
  ;}
  ;gosub go 597 2079
  gosub go 597 2130
  gosub go 578 2130
  gosub go 578 2147

  gosub door 576 2147 571 2147
  wait 1s
  if ( #SCNT > %eattimer + 5000 )
  {
    gosub eat
    set %eattimer #SCNT
  }
  while ( #SCNT < %time + 660 )
  {
    gosub itemID
  }
goto main

sub door
  set %x1 %1
  set %y1 %2
  set %x2 %3
  set %y2 %4
  outside:
  event PathFind %x1 %y1
  wait 2s
  move %x1 %y1 0 1s
  inside:
  finditem %closed_door G_1
  if ( #FINDCNT > 0 )
  {
    set #LOBJECTID #FINDID
    event macro 17 0 ; last object
    wait 1s
  }
  if ( #CHARPOSX <> %x1 ) || ( #CHARPOSY <> %y1 )
     goto outside
  event PathFind %x2 %y2
  wait 2s
  move %x2 %y2 0 1s
  if ( #CHARPOSX <> %x2 ) || ( #CHARPOSY <> %y2 )
     goto inside
return

sub beg
  finditem %1
  event ExMsg #FINDID 2 1 *Locking*
  while ( #FINDDIST > 4 )
  {
    event PathFind #FINDX #FINDY
    wait 2s
  }
  move #FINDX #FINDY 4 1s
  while ( #SCNT < %skilltimer + 16 )
  {
    wait 1s
  }
  set %skilltimer #SCNT
  set #LTARGETID %1
  set #LTARGETKIND 1
  event macro 13 6 ; use skill Begging
  target 10s
  while ( #targCurs = 1 )
  {
    event macro 22 0 ; last target
    wait 1s
  }
  wait 8s
return

sub eat
  finditem HND_RGG_FUD_GUD
  set #LOBJECTID #FINDID
  event macro 17 0 ; last object
  wait 2s
return

sub go
  go_loop:
  move %1 %2 0 5s
  if ( #CHARPOSX <> %1 ) || ( #CHARPOSY <> %2 )
  {
    goto go_loop:
  }
return

sub horadric
h:
   set %fin false
  
   while ( %fin <> true )
   {
      set %fin true
      finditem %1 C_ , #BACKPACKID
      set %startcounter #FINDCNT
      for %i 1 %startcounter
      {
        finditem %1 %i C_ , #BACKPACKID
        while ( #FINDSTACK <> 1 ) && ( #FINDKIND <> -1 )
        {
          msg .unstack$
          target
          set #LTARGETID #FINDID
          set #LTARGETKIND 1
          event macro 22 0 ; last target
          wait 1
          finditem %1 %i C_ , #BACKPACKID
        }
      }
      finditem %1 C_ , #BACKPACKID
      set %startcounter #FINDCNT
      for %i 1 %startcounter
      {
        finditem %1 %i C_ , #BACKPACKID
        if ( #FINDSTACK > 1 )
        {
          set %fin false
        }
      }
   }
   finditem %1 C_ , #BACKPACKID
   set %horcounter #FINDCNT
   set %total 0
   for %hor 1 %horcounter
   {
     finditem %1 %hor C_ , #BACKPACKID
     set %total ( %total + #FINDSTACK )
   }
   if ( %total >= 3 )
   {
     finditem %cube C_ , #BACKPACKID
     set #LOBJECTID #FINDID
     event macro 17 0 ; last object
     wait 2s
     click 290 216
     target
     finditem %1 C_ , #BACKPACKID
     set #LTARGETID #FINDID
     event macro 22 0 ; last target
     wait 1s
     click 290 266
     target
     finditem %1 C_ , #BACKPACKID
     set #LTARGETID #FINDID
     event macro 22 0 ; last target
     wait 1s
     click 290 311
     target
     finditem %1 C_ , #BACKPACKID
     set #LTARGETID #FINDID
     event macro 22 0 ; last target
     wait 1s
     click 290 363
     wait 8s
   }
   finditem %1 C_ , #BACKPACKID
   set %horcounter #FINDCNT
   set %total 0
   for %hor 1 %horcounter
   {
     finditem %1 %hor C_ , #BACKPACKID
     set %total ( %total + #FINDSTACK )
   }
   if ( %total >= 3 )
      goto h
return

sub itemID
  event macro 13 3 ; use skill Item Identification
  target
  finditem * C_ , #BACKPACKID
  set %number ( #RANDOM % #FINDCNT ) + 1
  finditem * %number C_ , #BACKPACKID
  if ( #FINDCNT > 0 )
  {
    set #LTARGETID #FINDID
    set #LTARGETKIND 1
    event macro 22 0 ; last target
    wait 10s
  }
return