#################################### 
#### Скрипт на торговлю 2.2 ######## 
####################################
Var rune = '0x1F14' # тип рунок 
#################################### 
# ОГРОМНАЯ ПРОЗЬБА ШАПКУ НЕ ВЫРЕЗАТЬ ! НЕ ВСЕ ШАРЮТ В СКРИПТАХ И МОГУТ ПОНЯТЬ ЧТО НАДА ЗАПУСКАТЬ!. 
##################################################################### 
# Запускается Сначала скрипт options ,этот скрипт запомнит все что вам нужно для скрипта. 
# Потом постоянно скрипт Starter. Если надо что то поменять то запустите Options еще раз. 
# Встаньте "дома" перед сундуком для покупок. В сундуке должна быть сумка куда скидывать покупки. 
# В паке - сумка с рунками по магазинам( достаточно по 1 руне в магаз ), сумка пустая , сумка с бланк рунками, 
# Замарченую рунку с марком у сундука ( в упор !). Ну и мешочек с регами для рекола и для марка.рмально. 
# Скрипт летает по рункам из сумки с рунками , если мало зарядов перемарчивает рунки. При весе в 450 стоунов, 
# летит домой и выгружается. ВЫгрузка происходит автоматом ВСЕГО что в паке, потом добор из масива обратно вещей. 
# Для безопастности имейте в паке рунбук с рунками на всякий случай и Кейринг с ключами. А то вдруг убьют. 
# Скрипт написан ВЕТЕРАНом. 
# Не мои модули - ходилка , система речарджа рун, система рекола. 
# 
# 
################## ПЕРЕМЕННЫЕ которые нужно править################## 
##################################################################### 
var BuyListName = 'Reg' ;название листа продажи (щас Reg) 
var Whtime = 180 ;сколько ждать сек после разгрузки. (ждет 180 сек) 
var CheckStam=0 ; Модуль проверки стамины ( если мало будет стоять ) 
var RuneB, RuneB2, RuneBag, RuneH, StoreBAG, Nrune 
### По вопросам и предложениям обращаться сюда: 
### ICQ: 233461603 (ВЕТЕРАН) 
##################################################################### 
# 2007-2009 # 



sub Options()########################################## Конфиг 


UO.Say("Добрый день. Вас привествует скрипт настройщик!") 
wait(3000) 
UO.Say("Следуйте инструкциям!") 
wait(3000) 
UO.Say("Вы должны стоять лицом к сундуку для сброса покупок!") 

wait(4000) 

UO.Say("Укажите сундук прицелом") 
UO.AddObject('Sunduk') 
While UO.Targeting()==2 
wait(500) 
Wend 
UO.SaveConfig() 

UO.Say("Отлично") 
UO.UseObject('backpack') 
wait(3000) 
UO.UseObject('Sunduk') 
wait(1000) 


UO.Say("Укажите Сумку с Замарчеными рунками в вашем вещь-мешке.") 
UO.AddObject('RuneB') 
While UO.Targeting()==2 
wait(500) 
Wend 
UO.SaveConfig() 

UO.Say("Укажите ПУСТУЮ Сумку в паке (Для переброса рунок).") 
UO.AddObject('RuneB2') 
While UO.Targeting()==2 
wait(500) 
Wend 
UO.SaveConfig() 

UO.Say("Укажите Сумку в паке с кучей пустых рунок.") 
UO.AddObject('RuneBag') 
While UO.Targeting()==2 
wait(500) 
Wend 
UO.SaveConfig() 

UO.Say("Укажите Рунку ДОМ( положите ее отдельно в пак ).") 
UO.AddObject('RuneH') 
While UO.Targeting()==2 
wait(500) 
Wend 
UO.SaveConfig() 

UO.Say("Укажите сумку для покупок куда скидывать покупки (В СУНДУКЕ! )") 
UO.AddObject('StoreBAG') 
While UO.Targeting()==2 
wait(500) 
Wend 
UO.SaveConfig() 

wait(3000) 

UO.Say("Настройка закончена. Для изменения параметров запустите скрипт повторно.") 
end sub 



sub Start()########################################## Стартер 

uo.set('buydelay','5000') 
UO.Set('finddistance',9) 

UO.Print("Поехали по магазинам.") 
wait(2000) 

repeat 
uo.findtype('rune','-1','RuneB') 

while uo.FindCount() 

uo.findtype('rune','-1','RuneB') 


Nrune=uo.GetSerial('finditem') 

RecallRune(Nrune) 
ContCharges() 
BuyPRG() 


#uo.moveitem('Nrune','-1','RuneB2') 

UO.MoveItem(Nrune, 0, RuneB2) 

Nrune = 0 

if uo.weight > 450 then 
RecallRune(RuneH) 
ContChargesH() 
Loot() 
endif 

uo.findtype('rune','-1','RuneB') 

wend 

uo.findtype('rune','-1','RuneB2') 
wait(100) 
while uo.findcount()>0 
uo.MoveItem('finditem',-1,'RuneB') 
wait(1000) 
uo.findtype('rune','-1','RuneB') 
wait(100) 
wend 

until uo.dead() 

end sub 


Sub ContCharges() 
var rID 
uo.Print("проверка количества зарядов...") 
wait(1000) 
uo.DeleteJournal() 
uo.click('Nrune') 
wait(2000) 
if Uo.Injournal("(2 charges)") OR Uo.Injournal("(1 charges)") then 
rID = uo.GetSerial('Nrune') 
Mark(rID,0) 
end if 
end sub 


Sub ContChargesH() 
var rID 
uo.Print("проверка количества зарядов...") 
wait(1000) 
uo.DeleteJournal() 
uo.click('RuneH') 
wait(2000) 
if Uo.Injournal("(2 charges)") OR Uo.Injournal("(1 charges)") then 
rID = uo.GetSerial('RuneH') 
Mark(rID,1) 
end if 
end sub 



Sub Mark(RuneID,Place) 

var mark_key = 0 

uo.Print("Выбрасываем старую рунку... ") 
uo.drophere(RuneID) 

Uo.UseObject(RuneBag) 

wait(500) 
uo.findtype(rune,'-1',RuneBag) 
if uo.FindCount() then 
uo.moveitem("finditem",'-1','backpack') 
wait(700) 

else 

var Emsg = "Нет пустых рунок!!" 
FatalError(Emsg) 
end if 

while mark_key == 0 

If Uo.Mana < 50 then 
while Uo.Mana < Uo.Int 
Uo.Useskill("Meditation") 
wait(5000) 
wend 
endif 
Uo.DeleteJournal() 
wait(500) 
Uo.Cast("Mark",'finditem') 
wait(10000) 
mark_key = 1 
if Uo.Injournal("spell") then 
mark_key = 0 
endif 
wend 

mark_key = 0 


Uo.WaitTargetObject('finditem') 

if Place == 0 then 

uo.Exec('addobject Nrune') 
wait(1500) 


else 


uo.Exec('addobject RuneH') 

wait(1500) 
endif 
end sub 




################################################### 
Sub FatalError(Emsg) 
while not uo.Dead() 
uo.Print("Продолжение работы скрипта невозможно") 
uo.Print("Причина : " + Emsg) 
wait(5000) 
wend 
end sub 





Sub RecallRune(nowrune) 
wait(1000) 
uo.Print("улетаем по руне") 
var oldX,oldY 
oldX = Uo.GetX() 
oldY = Uo.GetY() 
Uo.Useskill("Meditation") 
wait(5000) 
Repeat 
If Uo.Mana < 30 then 
while Uo.Mana < Uo.Int 
Uo.Useskill("Meditation") 
wait(5000) 
wend 
endif 
Uo.Cast("Recall",nowrune) 
wait(8000) 
Until oldX<>UO.GetX() AND oldY<>UO.GetY() 
end sub 




sub BuyPRG()########################################## Закупка 
DIM Vens[2] 
Vens[1]=0x0190 
Vens[2]=0x0191 
VAR LastTimer 
var mx, my, mz, g 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
uo.ignorereset() 
uo.ignore('self') 

UO.UseObject('backpack') 
UO.print("Начанаем Закупку!") 

UO.say(" Используется скрипт написаный ВЕТЕРАНом! IСQ 233461603") 
###################### 
for g=1 to 2 
repeat 
wait(1000) 

UO.FindType(Vens[g],-1,'ground') 
If uo.FindCount()> 0 then 
UO.Print(uo.GetName('finditem')+ " Замечен, иду к нему.") 

if CheckStam==1 then 
While UO.Stamina < 60 
uo.Print("Low Stamina") 
wait(2000) 
wend 
end if 

UO.Exec(walkn(0,0,'finditem')) 
LastTimer=UO.Timer() 


If UO.GetDistance('finditem')<=2 then 
UO.Print("Закупаю....") 
wait(1000) 
uo.Buy(BuyListName,UO.GetName('finditem')) 
wait(1000) 
CheckLag() 
uo.say(uo.GetName('finditem')+ " bye") 
else 
UO.Print(uo.GetName('finditem')+ " заныкался!, В &@$#% его.") 
end if 

uo.ignore('finditem') 
end if 

until uo.FindCount()==0 
next 

###################### 
end sub 




sub Loot() 
var Wtime = 1 
while not UO.Hidden() 
UO.Warmode("0") 
UO.UseSkill("Stealth") 
wait(4000) 
wend 

var i 
dim fastloot[17] 
fastloot[0]=0x0EFA ; Runebook 
fastloot[1]=0x0EFA ; Spellbook 
fastloot[2]=0x0E9B ; a mortar and pestle 
fastloot[3]=0x0F51 ; dagger 
fastloot[4]=0x0E76 ; a bag 
fastloot[5]=0x0E20 ; bloody bandages 
fastloot[6]=0x0E21 ; clean bandages 
fastloot[7]=0x1008 ; Basin 
fastloot[8]=0x176A ; Keys 
fastloot[9]=0x0F9E ; Scisors 
fastloot[10]=0x0EED ; GP 
fastloot[11]=0x0000 
fastloot[12]=0x0000 
fastloot[13]=0x0000 
fastloot[14]=0x0000 
fastloot[15]=0x0000 
fastloot[16]=0x0000 

wait(1000) 
UO.UseObject('Sunduk') 
wait(1000) 
UO.UseObject('StoreBAG') 
wait(1000) 

for i=0 to 10 
repeat 
uo.findtype(fastloot[i],-1,'backpack') 
if uo.findcount()>0 then 
wait(500) 
uo.ignore('finditem') 
endif 
until uo.findcount()==0 
next 

repeat 
uo.findtype(-1,-1,'backpack') 
uo.SetReceivingContainer('StoreBAG') 

if uo.findcount()>0 then 
CheckLag() 
uo.grab('all','finditem') 
wait(500) 
endif 
until uo.findcount()==0 
uo.ignorereset() 
uo.UnSetReceivingContainer() 
UO.Print('Ждем '+str(Whtime)+ ' секунд.') 
Wtime = Whtime 
wait(1000) 
while Wtime > 0 
wait(1000) 
Wtime = Wtime - 1 
UO.Print('Осталось '+str(Wtime)+ ' секунд.') 
wend 
if Wtime == 0 then 
Wtime = Whtime 
end if 

end sub 



sub WalkN(x,y,Target) ########################################## Ходилка 
VAR LastTimer 
LastTimer=UO.Timer() 
VAR i 
VAR dir,ldir,rdir,key,olddir 
VAR dx,dy,Exit=0 
VAR CacheLimit=9,CacheIndex="Text" 
DIM CacheX[10], CacheY[10] 

CacheX[0]="Test" 
While Exit<>1 
If Target<>"" Then 
dx=UO.GetX(Target)-UO.GetX() 
dy=UO.GetY(Target)-UO.GetY() 

If UO.GetDistance(Target)<2 OR LastTimer+200<UO.Timer() Then 
wait(2000) 
Exit=1 
Endif 
Else 
dx=x-UO.GetX() 
dy=y-UO.GetY() 
If dx==0 AND dy==0 OR LastTimer+200<UO.Timer() Then 

Exit=1 
Endif 

Endif 

If dx<>0 AND dy<>0 Then 
If dx>0 AND dy>0 Then ; GoSE 
dir=3 
ldir=2 
rdir=4 
key=40 ; DownArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==2 Then ; GoNE 
dir=1 
ldir=0 
rdir=1 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=5 
rdir=6 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx>0 AND dy<0 Then ; GoNE 
dir=1 
ldir=0 
rdir=2 
key=39 ; RightArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==0 Then ; GoWN 
dir=7 
ldir=6 
rdir=7 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSE 
dir=3 
ldir=3 
rdir=4 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx<0 AND dy>0 Then ; GoSW 
dir=5 
ldir=4 
rdir=6 
key=37 ; LeftArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==6 Then ; GoWN 
dir=7 
ldir=7 
rdir=0 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSE 
dir=3 
ldir=2 
rdir=3 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
If dx<0 AND dy<0 Then ; GoWN 
dir=7 
ldir=6 
rdir=0 
key=38 ; UpArrow 
olddir=UO.GetDir() 
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
If olddir==0 Then ; GoNE 
dir=1 
ldir=1 
rdir=2 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=4 
rdir=5 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
Endif 

If dx<>0 AND dy==0 Then 
If dx>0 Then ; GoE 
dir=2 
key=34 ; PgDown 
olddir=UO.GetDir() 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==2 Then ; GoSE 
dir=3 
ldir=3 
rdir=4 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoNE 
dir=1 
ldir=1 
rdir=0 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dx<0 Then ; GoW 
dir=6 
key=36 ; Home key 
olddir=UO.GetDir() 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==0 Then ; GoWN 
dir=7 
ldir=7 
rdir=0 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=4 
rdir=5 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
Endif 

If dx==0 AND dy<>0 Then 
If dy>0 Then ; GoS 
dir=4 
key=35 ; End 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==2 Then ; GoSE 
dir=3 
ldir=2 
rdir=3 
key=40 ; DownArrow 
While UO.GetDir()<>3 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoSW 
dir=5 
ldir=6 
rdir=5 
key=37 ; LeftArrow 
While UO.GetDir()<>5 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 

If dy<0 Then ;GoN 
dir=0 
key=33 ; PgUp 
olddir=UO.GetDir() 
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
If olddir==2 Then ; GoNE 
dir=1 
ldir=1 
rdir=2 
key=39 ; RightArrow 
While UO.GetDir()<>1 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Else ; GoWN 
dir=7 
ldir=7 
rdir=6 
key=38 ; UpArrow 
While UO.GetDir()<>7 
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
Wend 
Endif 
Endif 
Endif 
Endif 
Wend 
end sub 


sub StepEdit(x,y,dir,key) 
VAR walkwait=50 
VAR ErrLevel=0 
If UO.GetDir()<>dir Then 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()<>dir Then 
CheckLag() 
Endif 
Endif 
UO.Press(key) 
wait(walkwait) 
If x==UO.GetX() AND y==UO.GetY() Then 
CheckLag() 
If x==UO.GetX() AND y==UO.GetY() Then 
;zatik 
ErrLevel=1 
Endif 
Endif 
Return ErrLevel 
end sub 


sub StepArrow(x,y,dir,ldir,rdir,key) 
VAR walkwait=50 
VAR ErrLevel=0 
If UO.GetDir()<>dir Then 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then 
CheckLag() 
Endif 
Endif 

If UO.GetX()==x AND UO.GetY()==y Then 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
CheckLag() 
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
; zatik 
ErrLevel=1 
Endif 
Endif 
Endif 
Return ErrLevel 
end sub 


sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 

repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub 

sub Stealth() 
var count=0 
UO.DeleteJournal() 
repeat 

while not UO.Hidden() 
UO.Warmode("0") 
UO.UseSkill("Stealth") 
wait(20000) 
wend 

until UO.Dead() 
end sub 

sub Reconnect() 
var ReconnectTime,rFlag 
ReconnectTime='0' 
rFlag=1 
repeat 
while (uo.ObjAtLayer('Bpack')=='') 
if rFlag then 
ReconnectTime=MakeTime() 
rFlag=0 
end if 
wait(20000) 
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.TextOpen() 
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
rFlag=1 
ReconnectTime='0' 
end if 
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 
end if 
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 
end if 
next 
ret=t+" @ "+d 
return ret 
end sub 

sub GMStep() 
If UO.Dead() Then 
UO.Print("You are Dead") 
return 
End If 
If UO.GetGlobal('GMstepCheck')=='on' Then 
UO.SetGlobal('GMstepCheck','off') 
UO.Print("GM Step: Off") 
UO.Morph('0') 
UO.Msg('.resync') 
Else 
UO.SetGlobal('GMstepCheck','on') 
UO.Print("GM Step: On") 
UO.Morph('0x03DB') 
UO.Msg('.resync') 
End If 
end sub 


sub Terminate() 
uo.DeleteJournal() 
uo.Print('Все функции скрипта выключены!') 
uo.Exec('terminate all') 
wait(100) 
end sub