Begging..

Kur scriptam ir tā vieta, kur vinsh megjina visulaiku targetot begging darbiibu ?
Varetu nonjemt nost, lai netargeto visu laiku.. tikliidz saak begingot, lai vairs neizmanto sho darbiibu!!!
var book1='0x401247DB'

var box_in_bank='0x400F7A58'

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]='0x00095F59.' #Britain alch

ven[2]='0x0008FD8C.' #Moonglow rovisioner

ven[3]='0x0011A765.' #Moonglow carpenter

ven[4]='0x0011C5A7.' #Minoc butcher ??????!!

ven[5]='0x0011ACD3.' #Minoc banker

ven[6]='0x00118851.' #Britain blue boar

ven[7]='0x0011889F.' #Moonglow provisioner

ven[8]='0x001152F5 0x0011A0A3.' #Britain bowyer2 ??? ????? ?????

ven[9]='0x0011BE17.' #Britain armorer

ven[10]='0x0011641A.' #Moonglow tinker

ven[11]='0x001193BF.' #Britain farmer

ven[12]='0x00118886.' #Britain hides

ven[13]='0x00118CFB.' #Britain tailor2

ven[14]='0x0011BC39.' #Moonglow cook

ven[15]='0x0011D859.' #Moonglow bs

ven[16]='0x00117B51.' #Moonglow cook2



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(50000)

if (k == ven_num_mag) then

  if uo.count("0x0F7A")<400 then

	uo.buy("bp")

	uo.say("bye")

	wait(200)

  end if

  if uo.count("0x0F7B")<400 then

	uo.buy("bm")

	uo.say("bye")

	wait(200)

  end if

  if uo.count("0x0F86")<400 then

	uo.buy("mr")

	uo.say("bye")

	wait(200)

  end if

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

endsub
Toggle shoutbox Chat

#1 snowboard21

#2 snowboard21

#3 ExTjUtY

#4 snowboard21

#5 snowboard21

#6 ExTjUtY

#7 snowboard21

#8 snowboard21

#9 ExTjUtY

#10 snowboard21

#11 snowboard21

#12 snowboard21

1 user(s) are reading this topic

Begging..

#3 ExTjUtY

#6 ExTjUtY

#9 ExTjUtY

1 user(s) are reading this topic

Sign In
