Вот кусок скрипта.
Code: Select all
###############################################################
######еТО ДЛЯ бланк мап#####################################
###################################################
var cont1='0x40442072' ; для карт и пустых мешков(<50)
var cont2='0x4044205A' ; для наполненных мешков с картами
var map='0x0E34' ; нерасшифрованная карта
var mesh='0x0E76' ; пустой мешок
var sm
sub unload1()
uo.useobject(cont1)
wait(1000)
uo.useobject(cont2)
wait(1000)
uo.findtype(map,'-1','backpack')
while uo.findcount()
uo.findtype(map,'-1',cont1)
if uo.findcount()>=245 then
uo.findtype(mesh,'-1',cont1)
sm=uo.getserial('finditem')
uo.moveitem(sm,'1',cont2)
wait(2000)
uo.findtype(map,'-1',cont1)
while uo.findcount()
uo.moveitem('finditem','1',sm)
wait(1000)
uo.findtype(map,'-1',cont1)
wend
else
uo.findtype(map,'-1','backpack')
uo.moveitem('finditem','1',cont1)
wait(1000)
endif
uo.findtype(map,'-1','backpack')
wend
endsub
######################################################
########
#Чар летате по 2 рунбукам, в 1 буке первая руна домой,2 бука
#полностью забита рунами к местам скупки!
#В паке отделная сумка в которой лежат рунки!
#В сундуке куда будет складавать реги должны быть реги на рекал
#манки и инвизки !При поевление пк пьёт инвиз и летит к
#следушему вендору,При пролёте 2 рунбук летит домой скидавает
#что надо доберает если есть в паке рекалы юзаит их!
###############################################
var book1='0x403E2EEF'
var book2='0x4046D497'
var book3='0x4004F5C3'
var unloadseif='0x4016E7E0'
var sumka='0x40108233'
sub uio()
uo.say(str(uo.getnotoriety('self')))
end sub
sub o()
var i,q="a",w="b",e="c",r="d",t="e"
dim up[101]
for i=0 to 100
up[i]=""
up[i]=up[i-1]+ q
next
for i=0 to 100
uo.findtype(-1,-1,'backpack')
next
end sub
sub scant()
var cnt,i=0
dim item[255]
uo.findtype(-1,-1,'backpack')
cnt=uo.findcount()
while cnt>0
uo.findtype(-1,-1,'backpack')
cnt=uo.findcount()
item[i]=uo.getserial('finditem')
i=i+1
wend
i=0
end sub
sub POGNALI()
var o,j,b ,l=0,i,vend
DIM r[255],lun[4]
lun[0]='0x1F15'
lun[1]='0x1F14'
lun[2]='0x1F16'
lun[3]='0x1F17'
uo.setglobal('qwe','0')
uo.exec('terminate newcnl')
uo.exec('exec newcnl')
for i=0 to 254
uo.findtype(-1,-1,'backpack')
if uo.findcount() then
r[i]=uo.getserial('finditem')
uo.ignore('finditem')
endif
next
uo.ignorereset()
while true
for o=1 to 16
if o>8 then
l=1
else
l=0
endif
rec(o,l)
esh:
if apkn()==1 then
goto pereskok
endif
vend=getnpc()
if vend<>1 then
uo.print('idem k vendoru')
b=UO.GetDistance(vend)
while b>1
SuperWalk(uo.getx(vend),uo.gety(vend),vend)
b=UO.GetDistance(vend)
if apkn()==1 then
goto pereskok
endif
wend
uo.buy('NS',uo.getname(vend)) # ??? ???????? QW ?? ???????? ?????? ??? ?????.
if apkn()==1 then
goto pereskok
endif
uo.ignore(vend)
checklag()
uo.warmode(0)
uo.useskill('Stealth')
checklag()
wait(333)
vend=0
wait(3000)
goto esh
endif
pereskok:
next
rec(0,0)
unload1()
wait(2000)
unload()
wait(2000)
tomeshok()
wait(1000)
UO.UseSkill('Meditation')
wait(1000)
UO.UseSkill('Meditation')
wait(200000)
wend
end sub
sub getnpc()
uo.ignore('self')
var i
uo.set('finddistance','6')
dim pipl[2]
pipl[0]='0x0191'
pipl[1]='0x0190'
for i=0 to 1
uo.findtype(pipl[i],-1,'ground')
uo.print('Ishem venda')
if uo.findcount() then
if uo.getz('finditem')==uo.getz() then
uo.print(uo.getname('finditem') + ' nashli')
return uo.getserial('finditem')
else
uo.ignore('finditem')
endif
endif
next
return 1
end sub
sub rec(k,p)# The recall rune fades completely.
var i=0,ser,book,kl=k,bl,exit=0,l=0,runa,pr=0
var x=uo.getx(),y=uo.gety()
dim lun[4],are[9],r[255]
uo.ignorereset()
are[0]='12'
are[1]='13'
are[2]='14'
are[3]='15'
are[4]='16'
are[5]='17'
are[6]='18'
are[7]='19'
are[8]='20'
lun[0]='0x1F15'
lun[1]='0x1F14'
lun[2]='0x1F16'
lun[3]='0x1F17'
while exit==0
for l=0 to 3
uo.findtype(lun[l],-1,sumka)
if uo.findcount() then
r[i]=uo.getserial('finditem')
uo.ignore('finditem')
else
pr=pr+1
endif
next
i=i+1
if pr==4 then
exit=1
endif
pr=0
wend
exit=0
if k>8 then
kl=k-8
else
kl=k
endif
if p==0 then
book=book1
endif
if p==1 then
book=book2
endif
if p==2 then
book=book1
endif
uo.recall(book,are[kl])
checklag()
wait(1800)
while x==uo.getx() and y==uo.gety()
for i=0 to 3
uo.findtype(lun[i],-1,'backpack')
if uo.findcount() then
if uo.containerof('finditem')==uo.getserial('backpack') then
if uo.count('0x1F4C')>0 then
if uo.mana<=11 then
UO.Exec("usetype 0x0f0e 0x09df")
endif
else
if uo.mana <= 21 then
UO.Exec("usetype 0x0f0e 0x09df")
endif
endif
uo.exec('addobject ser finditem')
if uo.count('0x1f4c')>0 then
uo.waittargetobject('finditem')
uo.usetype('0x1f4c')
else
uo.cast('Recall','finditem')
endif
endif
endif
next
checklag()
wait(5300)
wend
uo.warmode(0)
uo.useskill('Stealth')
wait(500)
uo.ignorereset()
if uo.containerof('ser')=='0x00000000' or uo.containerof('ser')<>uo.getserial('backpack') then
i=0
uo.print('1')
runa='0xdsfa1245'
uo.say('Nachalos')
while exit==0
if r[i]<>'0' or r[i]<>"" then
runa=r[i]
r[i]=0
exit=1
uo.print('exit')
else
i=i+1
endif
wend
uo.print(runa)
uo.moveitem(runa,0,'backpack')
checklag()
wait(1500)
uo.deletejournal()
ppc:
if uo.mana < 32 then
UO.Exec("usetype 0x0f0e 0x09df")
endif
uo.cast('Mark',runa)
uo.addobject('ser',runa)
checklag()
wait(5500)
if uo.injournal('fizzles') then
uo.deletejournal()
goto ppc
endif
else
uo.print('tic tac')
endif
uo.deletejournal()
uo.waittargetobject('ser')
uo.recall(book,'11')
checklag()
wait(2000)
endsub
