SCP:
var book1='0x401247DB'
var box_in_bank='0x4007C867'
var ven_num_bank=4 # ????? ?? ??????? ??? ????? ??????-??????.
var ven_num_mag=8 #????? ?? ??????? ??? ????? ??????-??? ??? ??????? ?????????.
sub begging()
var k,j,b,s,p,vendor,bank
DIM ven[16]
ven[1]='0x00
ven[2]='0x0008
ven[3]='0x000
ven[4]='0x000
ven[5]='0x0008
ven[6]='0x0009
ven[7]='0x0009
ven[8]='0x0008C? ?????
ven[9]='0x000893
ven[10]='0x0008C
ven[11]='0x00096
ven[12]='0x0008
ven[13]='0x00094
ven[14]='0x0009
ven[15]='0x0009
ven[16]='0x0008
while not uo.dead()
for k=1 to 16
uo.useskill('Meditation')
recall(book1,k)
j = 1
vendor=GetWord(ven[k],j)
while vendor <> ''
uo.SetEasyUO(2,uo.inj2euo(vendor))
UO.DeleteJournal()
s = "uo.getx()"
p = "uo.gety()"
repeat
s = uo.getx(vendor)
p = uo.gety(vendor)
#hod(s,p)
wait(300)
#hod(s,p)
#wait(250)
UO.WaitTargetObject(vendor)
UO.Useskill('Begging')
wait(600)
end if
until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("Oh, I have no money now")-1))==vendor
if k == ven_num_bank then #money in Bank
uo.deletejournal()
while ((bank == '0xFFFFFFFF') || (bank == '0x00000000'))
uo.msg('bank')
wait(100)
bank = UO.ContainerOf (box_in_bank)
wend
#UO.Print( '?????? ??????????: ' + ser2 )
#UO.Print( 'KOORDF: ' + UO.GETX('ser1') )
while uo.count(0x0EED)
uo.moveitem('_0x0EED',0,box_in_bank)
IF uo.injournal('You put the') then
uo.msg('bank')
uo.deletejournal()
end if
wait(100)
wend
end if
j=j+1
#uo.print(str(j))
vendor=GetWord(ven[k],j)
wend
next
wend
endsub
sub Recall(idrb,nrune)
Dim gumpreturn[16]
gumpreturn[1]="0x0014"
gumpreturn[2]="0x0016"
gumpreturn[3]="0x0018"
gumpreturn[4]="0x001A"
gumpreturn[5]="0x001C"
gumpreturn[6]="0x001E"
gumpreturn[7]="0x0020"
gumpreturn[8]="0x0022"
gumpreturn[9]="0x0024"
gumpreturn[10]="0x0026"
gumpreturn[11]="0x0028"
gumpreturn[12]="0x002A"
gumpreturn[13]="0x002C"
gumpreturn[14]="0x002E"
gumpreturn[15]="0x0030"
gumpreturn[16]="0x0032"
UO.Recall(idrb,gumpreturn[nrune])
UO.Exec('terminate reconnector')
wait(5000)
UO.Exec('exec reconnector')
wait(5000)
Uo.DeleteJournal()
endsub
sub hod(xko,yko)
var mx=UO.GetX()
var my=UO.GetY()
if mx == xko and my > yko then
UO.Press(33)
endif
if mx == xko and my < yko then
UO.Press(35)
endif
if mx < xko and my == yko then
UO.Press(34)
endif
if mx < xko and my > yko then
UO.Press(39)
endif
if mx < xko and my < yko then
UO.Press(40)
endif
if mx > xko and my == yko then
UO.Press(36)
endif
if mx > xko and my > yko then
UO.Press(38)
endif
if mx > xko and my < yko then
UO.Press(37)
endif
end sub
sub reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate begging')
wait(1000)
UO.Exec('exec begging')
wait(1000)
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub GetWord( st, nom )
; (c) Edred
; ?????????? ????? ?? ?????? str ?? ??????? num
; ???? ?????? ????? ??? - ?????????? ''
;
; ???????????? ???? ??????? ??????. ????????? ???????? ?????? ????????? ?? ????.
; ??????? ??????? ??? ???????? ?????????? ??? ?????????? ???? ?? ???????????? ?????!
;
VAR tmpst, i, dlin, kol = 0, start = 0
dlin = len( st )
For i=0 To dlin - 1
If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
kol = kol + 1
If kol == nom Then
; ??? ?????? ?????? ????? ??????? ??? ?????
tmpst = mid( st, start, i - start )
return tmpst
Else
While mid( st, i, 1 ) == ' '
i = i + 1
Wend
If kol == nom - 1 Then
start = i
Endif
Endif
Endif
Next
tmpst = ''
return tmpst
endsu
