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