rendered paste bodyignoreItem 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