Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > Нужно переделать !!!!, Нужно переделать !!!! >
MsLektor
сообщение 15.10.2006, 0:30
Сообщение #1


Прохожий
Group Icon

Группа: Пользователи
Сообщений: 23
Регистрация: 6.10.2006
Пользователь №: 3 616
Спасибо сказали: 0 раз(а)



Нужно вот под этот скрипт сделать рекол домой чтоб он выгружал в сундук (шерсть, разрезанную кожу, ростки хлопка) и потом релился обратно и дальше продолжал хреначить скининг !!!!!

Цитата
sub SheepSkinning()
var LastTimer, Victim

if UO.GetGraphic(UO.ObjAtLayer("Lhand"))=="0x0DF0" then
UO.Print('Посох в руке')
else
UO.FindType('0x0DF0', -1, 'backpack')
if UO.FindCount() then
UO.Equip("Rhand","finditem")
else
UO.Print('Жалко, посоха нет... что ж, буду бить чем придется')
end if
end if

checklag()
UO.Setarm("default")
repeat
UO.Set('finddistance','16')
UO.FindType(0x00CF,'-1',"ground")
while UO.FindCount("finditem")>0 and not UO.Dead()
UO.DeleteJournal()
UO.FindType(0x00CF,'-1',"ground")
if UO.FindCount("finditem")>0 then
Victim=UO.GetSerial('finditem')
If UO.GetDistance(Victim)>1 then
WalkN(0,0,Victim)
end if

UO.DeleteJournal()
LastTimer=UO.Timer()
UO.Exec('warmode 0')
UO.waittargetobject(Victim)
checklag()
UO.usetype('0x0F51')
repeat
wait(100)
until UO.InJournal('put') OR LastTimer+500<UO.Timer() or UO.Dead() or UO.GetDistance(Victim)>16
checklag()
UO.arm("default")

UO.FindType(0x00DF,'-1',"ground")
if UO.FindCount("finditem")>0 then
Victim=UO.GetSerial('finditem')
UO.Exec('warmode 1')
UO.Attack(Victim)
If UO.GetDistance(Victim)>1 then
WalkN(0,0,Victim)
end if

UO.DeleteJournal()
LastTimer=UO.Timer()
repeat
wait(500)
until UO.Dead(Victim) or UO.InJournal('Body') OR LastTimer+500<UO.Timer() or UO.Dead() or UO.GetDistance(Victim)>16
UO.Exec('warmode 0')
wait(100)
UO.waittargetobject("lastcorpse")
checklag()
UO.usetype('0x0F51')
repeat
wait(50)
until UO.InJournal('You carve away') OR LastTimer+500<UO.Timer()
UO.UseObject("lastcorpse")
wait(200)
UO.FindType(0x0C4F,-1,'lastcontainer')
if UO.FindCount("finditem")>0 then
UO.DeleteJournal()
LastTimer=UO.Timer()
wait(300)
UO.Grab( 1, 'finditem' )
wait(1000)
end if
UO.FindType(0x1078,-1,'lastcontainer')
if UO.FindCount("finditem")>0 then
UO.DeleteJournal()
LastTimer=UO.Timer()
wait(300)
UO.Grab( 1, 'finditem' )
wait(1000)
end if
UO.Hide('lastcontainer')
UO.Resend()
if UO.Count('0x0F9E') then
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitTargetType('0x1078')
checklag()
UO.usetype('0x0F9E')
repeat
wait(50)
until UO.InJournal('You put') OR LastTimer+500<UO.Timer()
end if
if UO.Weight>=UO.STR*4+20 then
wait(500)
ToHide()
return
end if
if UO.Dead() then
return
end if
end if
UO.FindType(0x00CF,'-1',"ground")
end if
wait(300)
wend
ToHide()
wait(1000)
until UO.Weight>=UO.STR*4+20 OR UO.Dead()
wait(500)
if UO.Dead() then
return
end if
ToHide()
end sub




sub ToHide()
var LastTimer
if NOT UO.Hidden() then
UO.Exec('warmode 0')
UO.Print('Щас как спрячусь!..')
UO.useskill('Hiding')
UO.DeleteJournal()
LastTimer=UO.Timer()
repeat
wait(500)
if UO.InJournal("You can't seem to hide here") OR UO.InJournal("to perform") then
UO.useskill('Hiding')
UO.DeleteJournal()
end if
until UO.InJournal("You have hidden yourself well") OR (UO.Timer()>LastTimer+500)
end if
end sub

Sub checklag()
deljournal("backpack|Backpack")
UO.Click("backpack")
repeat
wait(100)
until UO.InJournal("backpack|Backpack")
endsub

Sub deljournal(msg)
while UO.InJournal(msg)
uo.SetJournalLine(uo.injournal(msg)-1,"")
wend
endsub

Sub WalkN(x,y,Target)
VAR i,StepSucess
VAR dx,dy,Exit=0

While Exit<>1
if Target<>"" then
dx=UO.GetX(Target)-UO.GetX()
dy=UO.GetY(Target)-UO.GetY()
if UO.GetDistance(Target)<2 then
Exit=1
end if
else
dx=x-UO.GetX()
dy=y-UO.GetY()
if dx==0 AND dy==0 Then
Exit=1
end if
end if

if dx<>0 AND dy<>0 then
if dx>0 AND dy>0 then
StepSucess=Go(3,40,300);SE - DownArrow
if StepSucess==-1 then
StepSucess=Go(7,38,300);WN - UpArrow
StepSucess=Go(1,39,300);NE - RightArrow
if StepSucess==-1 then
StepSucess=Go(5,37,300);SW - LeftArrow
end if
end if
end if

if dx>0 AND dy<0 then
StepSucess=Go(1,39,300);NE - RightArrow
if StepSucess==-1 then
StepSucess=Go(5,37,300);SW - LeftArrow
StepSucess=Go(3,40,300);SE - DownArrow
if StepSucess==-1 then
StepSucess=Go(7,38,300);WN - UpArrow
end if
end if
end if

if dx<0 AND dy>0 then
StepSucess=Go(5,37,300);SW - LeftArrow
if StepSucess==-1 then
StepSucess=Go(1,39,300);NE - RightArrow
StepSucess=Go(7,38,300);WN - UpArrow
if StepSucess==-1 then
StepSucess=Go(3,40,300);SE - DownArrow
end if
end if
end if

if dx<0 AND dy<0 then
StepSucess=Go(7,38,300);WN - UpArrow
if StepSucess==-1 then
StepSucess=Go(3,40,300);SE - DownArrow
StepSucess=Go(5,37,300);SW - LeftArrow
if StepSucess==-1 then
StepSucess=Go(1,39,300);NE - RightArrow
end if
end if
end if
end if

if dx<>0 AND dy==0 then
if dx>0 then
StepSucess=Go(2,34,300);E - PgDown
if StepSucess==-1 then
StepSucess=Go(3,40,300);SE - DownArrow
if StepSucess==-1 then
StepSucess=Go(1,39,300);NE - RightArrow
end if
StepSucess=Go(2,34,300);E - PgDown
end if
end if

if dx<0 Then
StepSucess=Go(6,36,300);W - Home
if StepSucess==-1 then
StepSucess=Go(7,38,300);WN - UpArrow
if StepSucess==-1 then
StepSucess=Go(5,37,300);SW - LeftArrow
end if
StepSucess=Go(6,36,300);W - Home
end if
end if
end if


if dx==0 AND dy<>0 then
if dy>0 then
StepSucess=Go(4,35,300);S - End
if StepSucess==-1 then
StepSucess=Go(3,40,300);SE - DownArrow
if StepSucess==-1 then
StepSucess=Go(5,37,300);SW - LeftArrow
end if
StepSucess=Go(4,35,300);S - End
end if
end if

if dy<0 then
StepSucess=Go(0,33,300);N - PgUp
if StepSucess==-1 then
StepSucess=Go(1,39,300);NE - RightArrow
if StepSucess==-1 then
StepSucess=Go(7,38,300);WN - UpArrow
end if
StepSucess=Go(0,33,300);N - PgUp
end if
end if
end if
Wend
end sub

Sub Go(dir,key,walkwait)
var x,y, OldDir
var w=15
x=UO.GetX()
y=UO.GetY()
OldDir=UO.GetDir()
if UO.GetDir()<>dir then
UO.Press(key)
wait(walkwait)
end if
UO.Press(key)
wait(w)
if x==UO.GetX() AND y==UO.GetY() AND OldDir<>UO.GetDir() then
UO.Press(key)
wait(w)
end if
end sub


Вот кто умеет делать или переделывать вот отсюда можно взять информацию по поводу рекола там он тока выкладывает логи а мне надо чтоб выкладывал (шерсть, разрезанную кожу, ростки хлопка) !

Цитата
###################################

### Режимы работы скрипта ###

###################################

### Работает в 2х режимах: ###

### 1)Маркировка ###

### 2)Рубка ###

###################################

### Режим Первый - "Маркировка" ###

###################################

### Этот режим отвечает за Маркирование(записывание координат) деревьев.

### Включается переменной var GetFromFile=1 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента.

### То есть если GetFromFile=0 координаты деревьев собиратся из клиента.

###

### Маркировка происходит так:

### Поставте переменную GetFromFile равную 0 (GetFromFile=0).

### Положите к себе в сумку Топор,Руну(в безопасное место) и Кирку.

### Идите в лес в котором вы хотите рубить.

### Запустите Скрипт Lumberjacking(), инжект попросит вас указать Топор

### (появится прицел,прицелом на топор который вы с собой взяли),

### потом инжект попросит вас указать Руну в безопасное место(прицелом на нее).

### Инжект сообщит вам что ('Собираем координаты деревьев в округе...').

### Инжект попросит вас указать Кирку(появится прицел,прицелом на неё).

### Теперь вы должны в любом порядке сами прицелом указать координаты(достаточно просто нажать прицелом на дерево).

### Если вы не промахнулись и "нажали" на дерево, то инжект сообщит вам об этом(Найдено дерево "координаты дерева").

### Причем что если даже вы нажмете два раза на одно дерево то он не "запомнит" его повторно.

### Ходите по лесу и марчите деревья.

### Для того чтобы остановить марк нажмите таргетом от кирки на себя.

### Инжект напишет вам сообщение ('Анализ закончен, координаты деревьев записаны в файл' +FileName) и создаст файл на диске

### С: куда запишет координаты деревьев.

### После этого чар пойдет по координатам и будет вырубать деревья.

###

##############################

### Режим Второй - "Рубка" ###

##############################

### Этот режим соответственно отвечает за рубку.

### Включается переменной var GetFromFile=1 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента

### То есть если GetFromFile=1 координаты деревьев будут считыватся из файла.

### И вам не надо будет сново марчить деревья.

###

### Рубка происходит так:

### Поставте переменную GetFromFile равную 1 (GetFromFile=1).

### Положите к себе в сумку Топор и Рунки (домой и в лес).

###

#########################################

### Дополнительные функции скрипта ###

#########################################

### В скрипте 3е доп. функции: ###

### 1)Употребление Пищи ###

### 2)Рекол при Атаке ###

### 3)Реконнект ###

#########################################

### Функция Первая - "Употребление Пищи" ###

############################################

### Этот режим соответственно отвечает за Употребление Пищи.

### Включается переменной var EatingFood=0 ## 1 - Будем есть, 0 - нет.

### То есть если EatingFood=1 чар будет кушать.

###

### Употребление Пищи происходит так:

### Поставте переменную EatingFood равную 1 (EatingFood=1).

### Положите в сундук куда будут выгружаться логи и где лежат реколы - еду,

### тип которой вы указали тут var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)

### После того как чар выложит логи, будет кушать.

### Он берет 20 единиц еды и кушает, что осталось выгружает обратно в сундук.

###

##########################################

### Функция Вторая - "Рекол при Атаке" ###

##########################################

### Этот режим соответственно отвечает за Рекол при атаке ентов и не только(также стоит проверка на ПК и Криминалов).

### Включается переменной var ControlOfDanger=1 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол.

### То есть если ControlOfDanger=1 чар будет реколиться при атаке.

###

### Побег происходит так:

### Поставте переменную ControlOfDanger равную 1 (ControlOfDanger=1).

### Замарчите Руну в безопасном месте.

### Положите к себе в сумку

### Руну(которую замарчили в безопасном месте), Реагенты(Black Pearls,Blood Moss,Mandrake Root.)

### и Бутылки расчитывая на то сколько вы хотите рубить.(Invizible Potion,Mana Potion,Heal Potion).

### При атаке, появлении ПК или криминала вы выпиваете Invizible Potion, автоматически телепортитесь на то место,

### где замаркана руна(в бакпаке).

### В это время записывается имя того кто вас атачил.

### После рекола руна маркается и проверяется ваша мана и здоровье, если чегото меньше,

### чар выпивает Mana Potion или Heal Potion в зависимости от надобности.

###

######################################

### Вариант Первый - "Цыкличность" ###

######################################

### Есди вы хотите чтобы скрипт не прекращал свою работу, то поставьте переменную CycleScript раную 1 (CycleScript=1),

### затем после указания предметов таргетом задите в "Edit current script"(в окно редактирования скрипта) и

### поставьте переменную AddObject равную 0 (AddObject=0).

### Теперь после рекола скрипт не будет выключаться, а будет ждать указанное время(DangerousTime) и затем

### реколиться домой, выкладывать логи, есть и опять реколиться на место рубки и рубить.

###

#####################################

### Вариант Второй - "Выключение" ###

#####################################

### Есди вы хотите чтобы скрипт не прекращал свою работу, то поставьте переменную CycleScript раную 0 (CycleScript=0),

### Теперь после рекола скрипт выключится и закроет окно UO.

###

#######################################

### Функция Третья - "Реконнект" ###

#######################################

### Этот режим соответственно отвечает за Реконнект при выкидывании с сервера.

### Включается переменной var Reconnect=0 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.

### То есть если Reconnect=1 чар будет реколиться при атаке.

###

### Реконнект происходит так:

### Поставте переменную Reconnect равную 1 (Reconnect=1).

### Если вдруг повиснет игровая сфера или вас выкинет по любой другой причине

### реконнектор законнектит вас на сервер автоматически.

### Пишется время дисконнекта и коннекта на сервер.

###

### ]![ Настройте скрипт под себя при помощи переменных. ]![

###

##################

### Переменные ###

##################

################################################################################


##################################

###

var FileName=('C:\trees9.dat') ## - Путь к файлу в котором будут хранится координаты деревьев.

###

var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента

### (сначала соберите а потом считывайте из файла).

###

var TryHiding=1 ## 1- Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет .

###

var TryRecall=1 ## 1 - После того как соберет LogsQty логов, будет пытаться реколиться домой,

### складывать логи в сундук и реколиться обратно , 0 - не будет.

###

var LogsQty=1800 ## - Количество логов, добыв которое надо реколиться домой.

###

var QuantityImpact=15 ## - Сколько раз чар будет ударять по дереву, прежде чем перейдет к другому.(стандарт - 15)

###

var ControlOfDanger=0 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол.

###

var PhysicalDanger=0 ## 1 - влючить рекол при физической атаке, 0 - отключить рекол.

###

var SeenDanger=0 ## 1 - влючить рекол при появлении рядом ПК ил криминала, 0 - отключить рекол.

###

var RecallFromAll=0 ## 1 - включить рекол при появлении рядом любово чара, 0 - отключить рекол.

###

var DisturbingSound=('C:WINDOWSMEDIATada.wav') ## - Звук которы будет пригран при атаке.(замените на свой)

###

var DangerousTime=120000 ## - Время которое чар будет ждать(после рекола) пока уйдет ПК или Ент.(сейчас 50 секунд)

###

var CycleScript=1 ## 1 - Скрипт не отключается после рекола от атакующего, 0 - отключаетсяи закрывает UO.

###

var EatingFood=1 ## 1 - Будем есть, 0 - нет.

###

var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)

###

var Reconnect=0 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.

###

var Chest='0x40562A64' ## - ID сундука куда будут выгружаться логи, где должны лежать реколы и еда.

###

var AddObject=1 ## 1 - Если надо добавить обьекты, 0 - не надо.

###

################################################################################


##################################

###

### После настройки:

### Идите в лес в котором вы хотите рубить.

### Запустите cкрипт Lumberjacking(), Инжект попросит вас указать Топор

### (появится прицел, прицелом на топор который вы с собой взяли),

### затем инжект попросит вас указать Рунки (появится прицел, прицелом на них)

### После этого чар пойдет по координатам и будет вырубать деревья.

###########

### Код ###

###########

sub Lumberjacking()

var i=0,j=0,k=0,r=0,q=0,ii,jj,f

var TopX=324,TopY=65

dim TreeX[5000],TreeY[5000],TreeT[5000]

dim TreeTile[29]

var flag=0,TreeCount=0,clicks=0,flag2=0

########################

### Графика деревьев ###

########################

TreeTile[0]=3277

TreeTile[1]=3280

TreeTile[2]=3283

TreeTile[3]=3286

TreeTile[4]=3289

TreeTile[5]=3291

TreeTile[6]=3294

TreeTile[7]=3296

TreeTile[8]=3299

TreeTile[9]=3302

TreeTile[10]=3393

TreeTile[11]=3394

TreeTile[12]=3395

TreeTile[13]=3396

TreeTile[14]=3415

TreeTile[15]=3416

TreeTile[16]=3417

TreeTile[17]=3418

TreeTile[18]=3419

TreeTile[19]=3438

TreeTile[20]=3439

TreeTile[21]=3440

TreeTile[22]=3441

TreeTile[23]=3442

TreeTile[24]=3460

TreeTile[25]=3461

TreeTile[26]=3462

TreeTile[27]=3290

TreeTile[28]=3288



if AddObject==1 then

uo.FilterSpeech('on')

uo.FilterSpeech('add', 'Where do you want to use the pickaxe?')



uo.Print('Выбери Топор: ')

uo.Exec('addobject Axe')

while uo.Targeting()

wait(100)

wend



if TryRecall==1 then

uo.Print('Rune to Home')

uo.Exec('addobject Home')

while uo.Targeting()

wait(100)

wend



uo.Print('Rune to Les')

uo.Exec('addobject Les')

while uo.Targeting()

wait(100)

wend

end if



if ControlOfDanger==1 then

uo.Print('Выбери Руну: ')

uo.Exec('addobject Rune')

while uo.Targeting()

wait(100)

wend

end if

end if



if ControlOfDanger==1 then

uo.Exec('exec ControlOfDanger')

end if



if Reconnect==1 then

uo.Exec('exec Reconnect')

end if



#####################################

### Загружаем координаты из файла ###

#####################################

if GetFromFile==1 then

uo.Print('Загружаем координаты из файла...')

f=file(FileName)

f.Open()

TreeCount=safe call f.ReadNumber()

for i=1 to TreeCount

TreeT[i]=safe call f.ReadNumber()

TreeX[i]=safe call f.ReadNumber()

TreeY[i]=safe call f.ReadNumber()

next

f.Close()

else

######################################

### Собираем координаты из клиента ###

######################################

if AddObject==1 then

uo.Print('Выбери Кирку: ')

uo.Exec('addobject Pickaxe')

while uo.Targeting()

wait(100)

wend

end if

uo.Print('Собираем координаты деревьев в округе...')

repeat

clicks=0

flag=0

uo.DeleteJournal()

#######################

### Кликаем на тайл ###

#######################

uo.UseObject('Pickaxe')

waitForTarget()

uo.DeleteJournal()

WaitForTryRock()

###############################

### Проверяем дерево ли это ###

###############################

flag=0

for k=0 to 28

if uo.LastTile(0)==TreeTile[k]+1 then

flag=2

end if

next

if flag==0 then

for k=0 to 28

if uo.LastTile(0)==TreeTile[k] then

flag=1

end if

next

end if

if uo.Lasttile(1)==uo.GetX() and uo.Lasttile(2)==uo.GetY() then

flag=3

end if

#########################

### Кликнули на ствол ###

#########################

if flag==1 then

flag2=0

if TreeCount>0 then

for ii=1 to TreeCount

if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then

flag2=1

end if

next

end if

if flag2==0 then

TreeCount=TreeCount+1

TreeX[TreeCount]=uo.LastTile(1)

TreeY[TreeCount]=uo.LastTile(2)

TreeT[TreeCount]=uo.LastTile(0)

uo.Print('Найдено дерево номер '+str(TreeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))

end if

end if

##########################

### Кликнули по листве ###

##########################

if flag==2 then

flag2=0

if TreeCount>0 then

for ii=1 to TreeCount

if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then

flag2=1

end if

next

end if

if flag2==0 then

TreeCount=TreeCount+1

TreeX[TreeCount]=uo.LastTile(1)

TreeY[TreeCount]=uo.LastTile(2)

TreeT[TreeCount]=uo.LastTile(0)-1

uo.Print('Найдено дерево номер '+str(TreeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))

end if

end if

until (flag==3) or (TreeCount==5000)

uo.FilterSpeech('off')

uo.Print('Анализ закончен, координаты деревьев записаны в файл ' + FileName)

SaveToFile(TreeCount,TreeX,TreeY,TreeT)

end if

uo.Print('Деревьев найдено: '+str(TreeCount))

wait(2000)

######################################

### Ходим по собранным координатам ###

######################################

while 1==1

if TreeCount>0 then

for i=1 to TreeCount

if TryRecall==1 and uo.Count('ZLK')>=LogsQty or uo.Weight>=uo.STR*4+20 then

ToRecall()

end if

uo.Print('Идем к дереву номер '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i]))

InfoLogs()

flag=GotoXY(TreeX[i],TreeY[i])

if flag==1 then

if TryHiding==1 then

ToHide()

end if

GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ()))

end if

next

end if

wend

end sub



sub SaveToFile(TreeCount,TreeX,TreeY,TreeT)

var s=0,i=0,f

f=file(FileName)

f.Open()

f.Create()

s=safe call f.Writeln(TreeCount)

for i=1 to TreeCount

s=safe call f.Writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i]))

next

f.Close()

end sub



sub GetTree(Type,X,Y,Z)

var i

uo.Print('Начинаем рубку дерева...')

for i=0 to QuantityImpact

if uo.Warmode()==1 then

return 0

end if

wait(200)

uo.DeleteJournal()

uo.WaitTargetTile(Type,X,Y,Z)

uo.UseObject('Axe')

if WaitForChange()==1 then

return 1

end if

next

return 0

end sub



sub WaitForRecall()

var Text1=uo.GetName()+': The spell fizzles.'

var LastX=uo.GetX()

var LastY=uo.GetY()

var mess=''

for var i=0 to 200

mess=uo.Journal(0)

if uo.Journal(0)==Text1 then

return 0

end if

if uo.GetX()<>LastX or uo.GetY()<>LastY then

return 1

end if

wait(50)

next

return 0

end sub



sub WaitForHide()

var Text1=uo.GetName()+': You have hidden yourself well'

var Text2=uo.GetName()+": You can't seem to stealth here."

var mess

for var i=0 to 200

mess=uo.Journal(0)

if uo.Journal(0)==Text1 then

return 1

end if

if uo.Journal(0)==Text2 then

return 0

end if

wait(50)

next

return 0

end sub



sub WaitForChange()

var Text1='You hack at the tree for a while, but fail to produce any useable wood'

var Text2='There is nothing here to chop.'

var Text3="You can't reach this."

var Text4='That is too far away.'

var Text5="You can't do much in your current state."

var mess

for var i=0 to 200

mess=uo.Journal(0)

if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then

return 1

end if

if uo.Journal(0)==Text1 then

return 0

end if

if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then

return 0

end if

wait(50)

next

return 0

end sub



sub WaitForTryRock()

var Text1='That is too far away.'

var Text2='Try mining elsewhere.'

var Text3='There is no ore here to mine.'

var Text4='You have no line of sight to that location'

var Text5="You can't use the %s where it is."

for var i=0 to 50

if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then

return 1

end if

wait(200)

next

return 0

end sub



sub WaitForTarget()

for var i=0 to 50

if uo.Targeting()==1 then

return 1

end if

wait(200)

next

return 0

end sub



sub WaitForChangeXY(myX,myY,LastX,LastY)

for var i=1 to 50

if LastX<>myX or LastY<>myY then

return 1

end if

wait(200)

next

return 0

end sub



sub MovingItems(tItem,cItem,qItem,FromBackPack)

var idResivCont,idSendCont

Open(Chest)

uo.UseObject('backpack')

if FromBackPack==1 then

idResivCont=uo.GetSerial('backpack')

idSendCont=Chest

else

idSendCont=uo.GetSerial('backpack')

idResivCont=Chest

end if

CheckLag()

uo.Findtype(tItem,cItem,idSendCont)

while uo.GetQuantity('finditem')>0

uo.MoveItem('finditem',str(qItem),idResivCont)

wait(1000)

CheckLag()

if qItem>0 then

return

end if

uo.FindType(tItem,cItem,idSendCont)

wend

end sub



sub InfoTrees(sNum,fStr,lStr,Sort)

var n=VAL(Right(sNum,1))

if n==0 then

if Sort==0 then

uo.Print(fStr+'а'+lStr)

else

uo.Print(fStr+lStr)

end if

return

end if

if n<5 then

uo.Print(fStr+'а'+lStr)

return

end if

if Sort==0 then

uo.Print(fStr+'ев'+lStr)

else

uo.Print(fStr+'ов'+lStr)

end if

end sub



sub Open(Container)

uo.DeleteJournal()

uo.UseObject(Container)

repeat

wait(500)

until uo.InJournal('Contains')

end sub



sub GotoXY(x,y)

var myX,myY,LastX=0,LastY=0,i,halt=0,z,r=0

for i=1 to 60

myX=uo.GetX()

myY=uo.GetY()

if LastX==myX and LastY==myY then

halt=halt+1

else

halt=0

end if

if halt>=10 then

if uo.GetDir()==1 then

for z=0 to 8

uo.Press(40)

next

end if

if uo.GetDir()==3 then

for z=0 to 8

uo.Press(37)

next

end if

if uo.GetDir()==5 then

for z=0 to 8

uo.Press(38)

next

end if

if uo.GetDir()==7 then

for z=0 to 8

uo.Press(39)

next

end if

halt=15

end if

if Numb(x-myX)<=1 and Numb(y-myY)<=2 then

return 1

end if

if x<=myX then

if y<=myY then

for z=0 to 3

uo.Press(38)

next

else

for z=0 to 3

uo.Press(37)

next

end if

else

if y<=myY then

for z=0 to 3

uo.Press(39)

next

else

for z=0 to 3

uo.Press(40)

next

end if

end if

LastX=myX

LastY=myY

wait(200)

next

return 0

end sub



sub Numb(num)

if num>=0 then

return num

else

return num*(-1)

end if

end sub



sub InfoLogs()

uo.Print('У вас всего '+str(uo.Count('0x1BDD'))+' логов в сумке')

uo.Print('Из них '+str(uo.Count('0x1BDD','0x0000'))+' простых и ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' цветных')

end sub



sub ToHide()

while not UO.Hidden()

UO.Exec('warmode 0')

UO.UseSkill('Stealth')

repeat

UO.DeleteJournal()

wait(50)

If UO.InJournal('You stop') Then

wait(4000)

End If

until UO.InJournal('You have hidden') OR UO.InJournal('seem to') OR UO.InJournal('preoccupied')

wend



end sub



sub ToRecall()

uo.Exec('terminate ControlOfDanger')

RecallToHome()

DropLogs()

InfoLogs()

if EatingFood==1 then

EatingFood()

end if

wait(3000)

RecallToLumber()

if ControlOfDanger==1 then

uo.Exec('exec ControlOfDanger')

end if

end sub



sub RecallToHome()

uo.Print('Прыгаем Домой.')

UO.WaitTargetObject('Home')

uo.cast('Recall')

WaitForRecall()

end sub



sub RecallToLumber()

uo.Print('Прыгаем в Лес.')

UO.WaitTargetObject('Les')

uo.cast('Recall')

WaitForRecall()

end sub



sub DropLogs()

var Time,Space

Time=Time()

Space=' '

uo.TextOpen()

uo.TextPrint("Выкладываем логи - " +Space +Time)

ToHide()

VAR a

VAR LastTimer

DIM Log[1]

Log[1]=0x1BDD



uo.say("Bank")

wait(1000)

CheckLag()

For a=1 to 1

While UO.Count(Log[a])>0

UO.FindType(Log[a],-1,-1)

UO.MoveItem('finditem',0,Chest)

wait(1000)

Wend

next

if UO.Mana < 30 then

while UO.Mana<UO.Int

LastTimer=UO.Timer()

UO.UseSkill('Meditation')

repeat

wait(100)

until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200

UO.DeleteJournal()

wait(200)

wend

endif

end sub



sub EatingFood()

var Time,Space

Time=Time()

Space=' '

uo.TextOpen()

uo.TextPrint('Кушаем - ' +Space +Time)

MovingItems(TypeFood,'-1',20,1)

repeat

CheckLag()

if uo.Count(TypeFood)<=0 then

uo.Exec('terminate EatingFood')

end if

uo.UseType(TypeFood)

while not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not uo.Dead()

wait(100)

wend

until uo.InJournal('too full') or uo.Dead()

while uo.Count(TypeFood)>0

MovingItems(TypeFood,'-1',-1,0)

wend

end sub



sub ControlOfDanger()

var Time,danger,Space

Time=Time()

Space=' '

while 1

uo.DeleteJournal()

while not uo.InJournal(':')

wait(100)

wend

danger=uo.GetNotoriety(uo.JournalSerial(0))



if uo.InJournal('attacking you') then

uo.GetStatus('uo.JournalSerial(0)')

uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))

uo.TextOpen()

uo.TextPrint('Вы были атакованы - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)

uo.Exec('exec RecallRune')

end if

end if



if SeenDanger==1 then

if Danger==6 and UO.JournalSerial(0) <> UO.GetSerial() then

uo.GetStatus('uo.JournalSerial(0)')

uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))

uo.TextOpen()

uo.TextPrint('Рядом оказался ПК - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)

uo.Exec('exec RecallRune')

end if



if Danger==4 and UO.JournalSerial(0) <> UO.GetSerial() then

uo.GetStatus('uo.JournalSerial(0)')

uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))

uo.TextOpen()

uo.TextPrint('Рядом оказался криминал - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)

uo.Exec('exec RecallRune')

end if



if RecallFromAll==1 then

if Danger==1 and UO.JournalSerial(0) <> UO.GetSerial() then

uo.GetStatus('uo.JournalSerial(0)')

uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0)))

uo.TextOpen()

uo.TextPrint('Рядом оказался чар - '+uo.GetName(uo.JournalSerial(0)) +Space +Time)

uo.Exec('exec RecallRune')

end if

end if

end if

wend

end sub



sub RecallRune()

Terminate()

uo.PlayWav(DisturbingSound)

uo.UseType('0x0F0E','0x0631')

wait(100)

uo.WaitTargetObject('Rune')

uo.Exec('warmode 0')

uo.Cast('Recall')

WaitForRecall()

repeat

uo.DeleteJournal()

uo.WaitTargetObject('Rune')

wait(100)

uo.Cast('Mark')

if uo.InJournal('mana for this spell') then

ManaUp('Bottle')

wait(100)

end if

wait(13000)

until not uo.InJournal('spell fizzles')

if uo.Life<uo.STR then

LifeUp('Bottle')

wait(100)

end if

if CycleScript==1 then

uo.Exec('exec DangerWait')

end if

if CycleScript==0 then

uo.Exec('exec ExitUO')

end if

end sub



sub DisturbingSound(amount)

var i

for i=1 to amount

uo.PlayWav(DisturbingSound)

wait(1500)

next

end sub



sub DangerWait()

wait(DangerousTime)

ToRecall()

uo.Exec('exec Lumberjacking')

end sub



sub ExitUO()

wait(3000)

uo.CloseUO()

end sub



sub LifeUp(Mode)

if Mode=='Healing' then

while uo.Life<uo.STR

uo.Exec('bandageself')

wait(4000)

wend

end if

if Mode=='Bottle' then

if uo.Life<uo.STR then

uo.UseType('0x0F0E','0x09BB')

wait(100)

end if

end if

end sub



sub ManaUp(Mode)

if Mode=='Meditation' then

while uo.Mana<uo.INT

uo.Exec('useskill Meditation')

wait(4000)

wend

end if

if Mode=='Bottle' then

if uo.Mana<uo.INT then

uo.UseType('0x0F0E','0x09DF')

wait(100)

end if

end if

end sub



sub Reconnect()

var ReconnectTime,rflag

ReconnectTime='0'

rflag=1

repeat

while (uo.ObjAtLayer('Bpack')=='')

if rflag then

ReconnectTime=Time()

rflag=0

end if

wait(30000)

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

var Date,nTime,uTime,i

uTime=str(uo.Time())

nTime=''

for i=0 to Len(uTime)

nTime=uTime[Len(uTime)-i]+nTime

if (i==2) or (i==4) then

nTime=':'+nTime

end if

next

uTime=str(uo.Date())

Date=''

for i=0 to Len(uTime)

Date=uTime[Len(uTime)-i]+Date

if (i==2) or (i==4) then

Date='.'+Date

end if

next

uTime=nTime+' @ '+Date

return uTime

end sub



sub Terminate()

uo.Exec('terminate Lumberjacking')

uo.Exec('terminate ControlOfDanger')

uo.Exec('terminate Reconnect')

end sub



sub CheckLag()

if uo.Waiting()>0 then

uo.Exec('canceltarget')

end if

uo.DeleteJournal()

uo.Click('backpack')

repeat

wait(50)

until uo.InJournal('a Backpack')

end sub



Зарание Спасибо тем кто приложит разум к этаму скрипту :)
Буду весьма благодарен !!!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 13) >
DarkSoul
сообщение 15.10.2006, 17:05
Сообщение #2


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 68
Регистрация: 28.8.2005
Пользователь №: 1 629
Спасибо сказали: 1 раз(а)
Класс: Рейнджер



Спосибо за первый скриптик laught.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
MsLektor
сообщение 18.10.2006, 7:39
Сообщение #3


Прохожий
Group Icon

Группа: Пользователи
Сообщений: 23
Регистрация: 6.10.2006
Пользователь №: 3 616
Спасибо сказали: 0 раз(а)



Блин люди помогите переделать там вприцеппе не трудно сделать профисионалам !!!! я просто пробовал целую ночь сделать у мя не хрена не вышло !!!!


Помогите кто нить !!!!! Пожалуйсто !!!!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Spoiler
сообщение 18.10.2006, 9:00
Сообщение #4


Примелькался
Group Icon

Группа: Пользователи
Сообщений: 131
Регистрация: 3.9.2006
Пользователь №: 3 470
Спасибо сказали: 0 раз(а)



Раз пробовал, значит есть желание.

Попробуй напиши отдельно скрипт на рекол и выкладку. И уже в него вставь свой скрипт на скининг.

Пример:

Код
sab rekol ()
...
...
If  в паке шерсти меньше 50  Then
...
...
рекол к овцам
...
...
SheepSkinning() ; запустили скрипт на скининг
...
...
рекол к дому и выкладка шерсти
...
...
Else; рекол к дому и выкладка шерсти
Endif
End sub


Сообщение отредактировал Spoiler - 18.10.2006, 9:02
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 18.10.2006, 13:49
Сообщение #5


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



нашел вариант с реколлом, не помню только работает или нет )

Код

###---ПОЯСНЕНИЯ ПО РАБОТЕ СКРИПТА
###---возле дома стоит сундук в нем руна на поле и реги для реколла. чар вручную телепортируется
###---на поле, там запускается скрипт. если есть посох, чар будет бить овец посохои, если нет -
###---кулаками, если есть ножницы, то будет срезанные шкуры разрезать (для уменьшения веса). в
###---бэкпаке должны быть, естественно, кинжал и руна домой. как только чар наберет достаточно
###---веса (кожу, ростков, шерсти), он реколлится домой, где подходит к сундуку, скидывает лут
###---в сундук и реколлится по руне в сундуке на поле, где продолжает свое овцененавистническое
###---дело. так до тех пор пока смерть или дисконнект не настигнет его.
###---чар во время работы, увы, не ест. сытое ухо к учению глухо )))

###---ПОЯСНЕНИЯ ПО НАСТРОЙКЕ
###---обязательно проставить XField=xxx, YField=xxx координаты точки приземления на ПОЛЕ
###---обязательно проставить XHome=xxx, YHome=xxx координаты точки приземления в ДОМЕ
###---обязательно проставить ID своего сундука

###---в строчке UO.Press(33,2) вместо значения "33" указать направление движения к своему
###---сундуку после реколла домой (реколл производится на территорию вне ам зоны дома, а
###---сундук стоит в ам зоне, чтобы скинуть в сундук кожу, хлопок и шерсть необходимо
###---сделать несколько шагов по направлению к сундуку. вот вместо 33 надо указать направление
###---до сундука из расчета:
###-----UO.Press(33) - идем 1 шаг на север (вправо-вверх)
###-----UO.Press(39) - идем 1 шаг на северо-восток (вправо)
###-----UO.Press(34) - идем 1 шаг на восток (вправо-вниз)
###-----UO.Press(40) - идем 1 шаг на юго-восток (вниз)
###-----UO.Press(35) - идем 1 шаг на юг (влево-вниз)
###-----UO.Press(37) - идем 1 шаг на юго-запад (влево)
###-----UO.Press(36) - идем 1 шаг на запад (влево-вверх)
###-----UO.Press(38) - идем 1 шаг на северо-запад (вверх)
###---в строчке UO.Press(33,2) вместо значения "2" проставить кол-во шагов до сундука

###---в процедурах sub RecallToHome(), Sub RecallToField(), Sub MoveWantedRegs
###---обязательно проставить ID своей руны ДОМОЙ, ID своей руны на ПОЛЕ и ID своего сундука

###---@ ЦАПО "Силиконовая Грудь"

###---СКИННИНГ НА ОВЦАХ CO СРЕЗАНИЕМ ШЕРСТИ

sub SheepSkinning()
var LastTimer, Victim, a
var XHome=xxx, YHome=xxx, XField=xxx, YField=xxx # проставить координаты точки приземления ДОМА и на ПОЛЕ
VAR container='0x00000000' # проставить ID своего сундука

if UO.GetGraphic(UO.ObjAtLayer("Lhand"))=="0x0DF0" then
UO.Print('Посох в руке')
else
UO.FindType('0x0DF0', -1, 'backpack') # ищем в рюкзаке и берем в руку black staff
if UO.FindCount() then
  UO.Equip("Rhand","finditem")
else
  UO.Print('Жалко, посоха нет... что ж, буду бить чем придется')
end if
end if

repeat

  checklag()
  UO.Setarm("default")
  repeat
   UO.Set('finddistance','16')  
   UO.FindType(0x00CF,'-1',"ground")
   while UO.FindCount("finditem")>0 && NOT UO.Dead() && UO.Weight<UO.STR*4+20
    UO.DeleteJournal()
    UO.FindType(0x00CF,'-1',"ground")
    if UO.FindCount("finditem")>0 then
     Victim=UO.GetSerial('finditem')
     If UO.GetDistance(Victim)>1 then
      WalkN(0,0,Victim)
     end if
  
     UO.DeleteJournal()
     LastTimer=UO.Timer()
     UO.Exec('warmode 0')
     UO.waittargetobject(Victim)
     checklag()
     UO.usetype('0x0F51');срезаем шерсть
     repeat
      wait(100)
     until UO.InJournal('put') || LastTimer+500<UO.Timer() || UO.Dead() || UO.GetDistance(Victim)>16
     checklag()
     UO.arm("default")
  
     UO.FindType(0x00DF,'-1',"ground")
     if UO.FindCount("finditem")>0 then
      Victim=UO.GetSerial('finditem')
      UO.Exec('warmode 1')
      UO.Attack(Victim)
      If UO.GetDistance(Victim)>1 then
       WalkN(0,0,Victim)
      end if
    
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      repeat
       wait(500)
      
       if NOT UO.Dead(Victim) then
        if UO.GetDistance(Victim)>3 then
         WalkN(0,0,Victim)
        end if
       end if
        
      until UO.Dead(Victim) || UO.InJournal('Body') || LastTimer+500<UO.Timer() || UO.Dead() || UO.GetDistance(Victim)>16
    
    
      UO.Exec('warmode 0')
      wait(100)
      UO.waittargetobject("lastcorpse")
      checklag()
      UO.usetype('0x0F51') # режем труп
      repeat
       wait(50)
      until UO.InJournal('You carve away') || LastTimer+500<UO.Timer()
      UO.Arm("default")
      UO.UseObject("lastcorpse")
      wait(200)
      UO.FindType(0x0C4F,-1,'lastcontainer') # ищем в трупе ягненка хлопок
      if UO.FindCount("finditem") then
       UO.DeleteJournal()
       LastTimer=UO.Timer()
       wait(300)
       UO.Grab( 1, 'finditem' )
       wait(1000)
      end if
      UO.FindType('0x1078',-1,'lastcontainer')
      if UO.FindCount("finditem") then
       UO.DeleteJournal()
       LastTimer=UO.Timer()
       wait(300)
       UO.Grab( 1, 'finditem' )
       wait(1000)
      end if
      UO.Hide('lastcontainer')
      UO.Resend()      
      if UO.Count('0x0F9E') then
       UO.DeleteJournal()
       LastTimer=UO.Timer()
       UO.WaitTargetType('0x1078')
       checklag()
       UO.usetype('0x0F9E')
       repeat
        wait(50)
       until UO.InJournal('You put') || LastTimer+20<UO.Timer()    
      end if      
      if UO.Weight>=UO.STR*4+20 then
       wait(500)
       ToHide()
      end if
      if UO.Dead() then
       return
      end if
     end if    
     UO.FindType(0x00CF,'-1',"ground")
    end if
    wait(300)
   wend
   ToHide()    
   wait(1000)
  until UO.Weight>=UO.STR*4+20 OR UO.Dead()                    
  wait(500)
  if UO.Dead() then
   return
  end if
  RecallToHome()
  repeat
   wait(500)
  until UO.GetX()==XHome && UO.GetY()==YHome
  wait(1000)
  
###---здесь в строчке ниже прописать направление и кол-во шагов до сундука от точки приземления ДОМА
  UO.Press(33,2)
  
  ToHide()
  checklag()
  UO.UseObject(container)
  wait(800)
  UO.FindType('0x1067',-1,'backpack') # кожа
  if UO.FindCount("finditem") then
    checklag()
    UO.MoveItem('finditem','0',container)
    wait(800)
  end if
  UO.FindType('0x0C4F',-1,'backpack') # хлопок
  if UO.FindCount("finditem") then
    checklag()
    UO.MoveItem('finditem','0',container)
    wait(800)
  end if
  UO.FindType('0x0DF8',-1,'backpack') # шерсть
  if UO.FindCount("finditem") then
    checklag()
    UO.MoveItem('finditem','0',container)
    wait(800)
  end if

  if UO.BP==0 then
    MoveWantedRegs('0x0F7A','25',' блэк пёрла')
  end if
  if UO.BM==0 then
    MoveWantedRegs('0x0F86','25',' мандрейк рута')
  end if
  if UO.MR==0 then
    MoveWantedRegs('0x0F7B','25',' блад мосса')
  end if

  if UO.Mana<15 then
    Meditate()
  end if
  wait(500)
  
  checklag()
  RecallToField()
  repeat
   wait(500)
  until UO.GetX()==XField && UO.GetY()==YField
  wait(4000)

until UO.Dead()

end sub


###---РЕКОЛЛ ПО РУНЕ ДОМОЙ (HOTKEY F12)

sub RecallToHome() # (c) pikachu & ЦАПО "Силиконовая Грудь"
VAR MyNuRune='0x00000000' # проставить ID своей руны ДОМОЙ  
  if UO.Mana>=15 then
    if UO.BP>0 && UO.BM>0 && UO.MR>0 then
      if UO.ContainerOf(MyNuRune)==UO.GetSerial('backpack') then  
        UO.Print('Джамп [вырезано] хаус')
        UO.Cast('Recall',MyNuRune)
      else
        UO.Print('Увы, руны в рюкзаке нет. патирял')
      end if
    else
      UO.Print('Увы, нет регов на каст. иди в метро')
    end if
  else
    UO.Print('Увы, не хватает маны, помедитируй, подумай о вечном...')
  end if  
end sub

###---РЕКОЛЛ ПО РУНЕ НА ПОЛЕ

Sub RecallToField()
VAR MyFiRune='0x00000000', container='0x00000000' # проставить ID своей руны на ПОЛЕ и своего сундука  
  if UO.ContainerOf(MyFiRune)==container then  
    UO.Print('Джамп [вырезано] филд')
    UO.Cast('Recall',MyFiRune)
  else
    UO.Print('нет руны в сундуке')
  end if
end sub

###---ДОБИРАЛКА

Sub MoveWantedRegs(Reg,RegQuant,Message)
VAR container='0x00000000' # проставить ID своего сундука
    
  checklag()
  UO.FindType(Reg,'-1',container)
  if UO.FindCount() then
    checklag()
    if UO.GetQuantity('finditem')>VAL(RegQuant) then
      UO.MoveItem('finditem',RegQuant,'backpack')
      UO.Print('Добрал '+RegQuant+Message)
    else
      UO.MoveItem('finditem','0','backpack')
      UO.Print('Добрал '+Str(UO.GetQuantity('finditem'))+Message)
    end if
  wait(300)
  
end sub

###---МЕДИТАЦИЯ

sub Meditate()
VAR LastTimer
  UO.Exec('warmode 0')
  UO.UseSkill('Meditation')
  UO.DeleteJournal()
  LastTimer=UO.Timer()
  repeat
    wait(300)
    if UO.InJournal("You lose your concentration") OR UO.InJournal("to perform") then
      UO.UseSkill('Meditation')
      UO.DeleteJournal()
    end if
  until UO.InJournal("You are at peace") || UO.Timer()>LastTimer+1400
end sub

###---ЧЕКЛАГ

Sub checklag()
  deljournal("backpack|Backpack")
  UO.Click("backpack")
  repeat
    wait(100)
  until UO.InJournal("backpack|Backpack")
end sub

###---СТЕРЕТЬ ЖУРНАЛ

Sub deljournal(msg)
  while UO.InJournal(msg)
    UO.SetJournalLine(uo.injournal(msg)-1,"")
  wend
endsub

###---ТЕРМИНАТОР

sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub

###---ПРЯТАЛКА

sub ToHide()
var LastTimer
if NOT UO.Hidden() then
  UO.DeleteJournal()
  UO.Exec('warmode 0')
  UO.Print('Щас как спрячусь!..')
  UO.UseSkill('Hiding')
  LastTimer=UO.Timer()
  repeat
    wait(300)
    if UO.InJournal("can't seem to hide|to perform") then
      UO.DeleteJournal()
      UO.Exec('warmode 0')
      UO.UseSkill('Hiding')      
    end if
  until UO.InJournal("have hidden yourself") || UO.Timer()>LastTimer+500
end if
end sub

###---ХОДИЛКА

Sub WalkN(x,y,Target)
VAR i,StepSucess
VAR dx,dy,Exit=0

While Exit<>1
if Target<>"" then
  dx=UO.GetX(Target)-UO.GetX()
  dy=UO.GetY(Target)-UO.GetY()
  if UO.GetDistance(Target)<2 then
   Exit=1
  end if
else
  dx=x-UO.GetX()
  dy=y-UO.GetY()
  if dx==0 AND dy==0 Then
   Exit=1
  end if
end if

if dx<>0 AND dy<>0 then
  if dx>0 AND dy>0 then
   StepSucess=Go(3,40,300);SE - DownArrow
   if StepSucess==-1 then
    StepSucess=Go(7,38,300);WN - UpArrow
    StepSucess=Go(1,39,300);NE - RightArrow
    if StepSucess==-1 then
     StepSucess=Go(5,37,300);SW - LeftArrow
    end if
   end if
  end if

  if dx>0 AND dy<0 then
   StepSucess=Go(1,39,300);NE - RightArrow
   if StepSucess==-1 then
    StepSucess=Go(5,37,300);SW - LeftArrow
    StepSucess=Go(3,40,300);SE - DownArrow
    if StepSucess==-1 then
     StepSucess=Go(7,38,300);WN - UpArrow
    end if
   end if
  end if

  if dx<0 AND dy>0 then
   StepSucess=Go(5,37,300);SW - LeftArrow
   if StepSucess==-1 then
    StepSucess=Go(1,39,300);NE - RightArrow
    StepSucess=Go(7,38,300);WN - UpArrow
    if StepSucess==-1 then
     StepSucess=Go(3,40,300);SE - DownArrow
    end if
   end if
  end if

  if dx<0 AND dy<0 then
   StepSucess=Go(7,38,300);WN - UpArrow
   if StepSucess==-1 then
    StepSucess=Go(3,40,300);SE - DownArrow
    StepSucess=Go(5,37,300);SW - LeftArrow
    if StepSucess==-1 then
     StepSucess=Go(1,39,300);NE - RightArrow
    end if
   end if
  end if
end if

if dx<>0 AND dy==0 then
  if dx>0 then
   StepSucess=Go(2,34,300);E - PgDown
   if StepSucess==-1 then
    StepSucess=Go(3,40,300);SE - DownArrow
    if StepSucess==-1 then
     StepSucess=Go(1,39,300);NE - RightArrow
    end if
    StepSucess=Go(2,34,300);E - PgDown
   end if
  end if

  if dx<0 Then
   StepSucess=Go(6,36,300);W - Home
   if StepSucess==-1 then
    StepSucess=Go(7,38,300);WN - UpArrow
    if StepSucess==-1 then
     StepSucess=Go(5,37,300);SW - LeftArrow
    end if
    StepSucess=Go(6,36,300);W - Home
   end if
  end if
end if


if dx==0 AND dy<>0 then
  if dy>0 then
   StepSucess=Go(4,35,300);S - End
   if StepSucess==-1 then
    StepSucess=Go(3,40,300);SE - DownArrow
    if StepSucess==-1 then
     StepSucess=Go(5,37,300);SW - LeftArrow
    end if
    StepSucess=Go(4,35,300);S - End
   end if
  end if

  if dy<0 then
   StepSucess=Go(0,33,300);N - PgUp
   if StepSucess==-1 then
    StepSucess=Go(1,39,300);NE - RightArrow
    if StepSucess==-1 then
     StepSucess=Go(7,38,300);WN - UpArrow
    end if
    StepSucess=Go(0,33,300);N - PgUp
   end if
  end if
end if
Wend
end sub

###---ПОДПРОГРАММА ДЛЯ ХОДИЛКИ

Sub Go(dir,key,walkwait)
var x,y, OldDir
var w=15
x=UO.GetX()
y=UO.GetY()
OldDir=UO.GetDir()
if UO.GetDir()<>dir then
UO.Press(key)
wait(walkwait)
end if
UO.Press(key)
wait(w)
if x==UO.GetX() AND y==UO.GetY() AND OldDir<>UO.GetDir() then
UO.Press(key)
wait(w)
end if
end sub


Сообщение отредактировал geernick - 18.11.2006, 21:15
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 17.11.2006, 12:11
Сообщение #6


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Чё за фигня? Вот всё заполнил что было написано , всё правельно , у меня Run function > только 4 процесса: RecallToHome , Meditate , MyTerminate , ToHide.

Что делать то???? Как запустить чтобы он заработал нормально??? Можно еще краткую инструкцию....

Скрипт выглядит так >>> сцылко на скрипт


Сообщение отредактировал geernick - 18.11.2006, 21:06
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 18.11.2006, 17:41
Сообщение #7


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



*UP*
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 18.11.2006, 21:14
Сообщение #8


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(LostLife @ 17.11.2006, 15:11) *

... у меня Run function > только 4 процесса: RecallToHome , Meditate , MyTerminate , ToHide.
Что делать то????...


значица так. вот в месте где
Код

...
###---СКИННИНГ НА ОВЦАХ CO СРЕЗАНИЕМ ШЕРСТИ

Sub SheepSkinning()
...


замени Sub SheepSkinning() на sub SheepSkinning()

смысл в том, что если написано Sub - то скрипта не видно в окошке возле кнопки Run function, а если - sub, то видно ))
это, конечно, я опять недоглядел, рассеян и невнимателен, аж стыдно ))
поправил эту строчку в топе, где этот скрипт приведен.

я его скопировал отсюда себе, настроил, потестил, все работает, именно сейчас мульт бегает, овец бьет

теперь просьба - есть такая штука, называется оверквотинг, то есть излишнее цитирование, тут недавно модераторы порешили с ним бороться, так что постарайся избегать его по возможности, а именно - нет нужды цитировать еще раз такой длинный скрипт, если он лежит совсем рядом, так что я твое сообщение чуть-чуть подправил agree.gif

Сообщение отредактировал geernick - 18.11.2006, 21:18
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 19.11.2006, 5:05
Сообщение #9


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Цитата(geernick @ 18.11.2006, 23:14) *

...замени Sub SheepSkinning() на sub SheepSkinning()...

Спасибо , но появилась какбы новая ошибка.....

Вот так выглядит мой скрипт.... >>> ссылка на скрипт


Короче такая фишка , я зделал всё как было написано , всё взде заполнил и.т.д. Значит прихожу я на поле , включаю скрипт , он выдет овец , подходит к 1 срезает шерсть и стоит..... Через время давай брать вруки стафф , нож , стафф , потом ничего сбоку пишется Wrong command error ,чёто такое и он бьёт овцу кулаками.... И вообще перед тем как бить долго думает..... Вообще иногда на овцах путается , видет 2 овци , идёт к одной срезает шерсть , убивает и идёт к другой , тоест шкуру не срезает , убивает вторую (без срезания шерсти) берёт шкуру и прячится.... Это вообще любимая фраза: FINDIST=16 Items found: 0 хотя рядом бегает 2 овци , потом както их замечает она уберается, но всёравно рано или поздно повторотися... )))Тоесть всё как-то не так работает.... Может кто подправить???

Зарание спасибо!!! agree.gif

пожалуйста, все-таки обрати внимание на оверквотинг, еще раз говорю, нет нужды приводить код этого скрипта в сообщении, ведь он лежит тут же, в этом же топе, достаточно просто ссылку дать. я опять поправил все за тебя... если есть затруднения во вставке ссылки, спроси, я расскажу как сделать это правильно.
в общем, больше просить не буду. пока - устно предупреждаю - geernick


Сообщение отредактировал geernick - 19.11.2006, 5:55
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 19.11.2006, 6:10
Сообщение #10


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(LostLife @ 19.11.2006, 8:05) *

...подходит к 1 срезает шерсть и стоит..... Через время давай брать вруки стафф , нож , стафф , потом ничего сбоку пишется Wrong command error ,чёто такое и он бьёт овцу кулаками....

увы, не знаю, что тут сказать. я вчера тестил именно этот скрипт, скопировал его отсюда, с этого топа, настроил, запустил - и ничего из тобой перечисленного не наблюдал. чар бегал около часа, стриг, убивал, лутал, резал, реколлился, скидывал лут в сундук... notknow.gif
скрипт этот писал я, не считаю его удачным, надежным, красивым и экономичным. этот скрипт - вчерашний день. есть в нем сомнительные и просто слабые места, которые видно невооруженным взглядом
но одно знаю твердо: он рабочий, иначе я бы его сюда не выкладывал.
им и по сей день пользуются несколько человек, от них тоже рекламаций подобного рода не приходило

может быть кто-нибудь другой поможет, хотя (сомневаюсь, что будут копаться в коде, разбирать его по косточкам и выяснять, почему возникают именно описанные тобой ошибки), скорее всего, просто посоветуют использовать другой скрипт на скиннинг
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 19.11.2006, 6:26
Сообщение #11


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Цитата(geernick @ 19.11.2006, 8:10) *

увы, не знаю, что тут сказать. я вчера тестил именно этот скрипт, скопировал его отсюда, с этого топа, настроил, запустил - и ничего из тобой перечисленного не наблюдал. чар бегал около часа, стриг, убивал, лутал, резал, реколлился, скидывал лут в сундук... notknow.gif
скрипт этот писал я, не считаю его удачным, надежным, красивым и экономичным. этот скрипт - вчерашний день. есть в нем сомнительные и просто слабые места, которые видно невооруженным взглядом
но одно знаю твердо: он рабочий, иначе я бы его сюда не выкладывал.
им и по сей день пользуются несколько человек, от них тоже рекламаций подобного рода не приходило

может быть кто-нибудь другой поможет, хотя (сомневаюсь, что будут копаться в коде, разбирать его по косточкам и выяснять, почему возникают именно описанные тобой ошибки), скорее всего, просто посоветуют использовать другой скрипт на скиннинг

Больше ненадо не в чём разбиратся , сам решил эту проблему... Осталась 1 вещь , после того как он сложит всё в контейнер , он реколится на поле и просто стоит на нём , НО скрипт запущен , а ничего не происходит , всё остальное работает "вродебы" нормально. Может насчёт этого что подскажешь?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
geernick
сообщение 19.11.2006, 6:36
Сообщение #12


Дедушко на Облаке
Group Icon

Группа: Пользователи
Сообщений: 727
Регистрация: 15.4.2006
Пользователь №: 3 094
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(LostLife @ 19.11.2006, 9:26) *

Больше ненадо не в чём разбиратся , сам решил эту проблему...реколится на поле и просто стоит на нём , НО скрипт запущен , а ничего не происходит...

скорее всего не прописал координаты точки приземления на поле. а если прописал, то указал не ТЕ КООРДИНАТЫ, куда чар действительно прилетает

Цитата(LostLife @ 19.11.2006, 9:26) *

Больше ненадо не в чём разбиратся , сам решил эту проблему...

как, если не секрет? если решил проблему, это прекрасно, но хорошим тоном является отписаться о найденном решении, вдруг у кого-то будет аналогичная, и он придет сюда искать решение?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 19.11.2006, 6:45
Сообщение #13


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Цитата(geernick @ 19.11.2006, 8:36) *

Цитата(LostLife @ 19.11.2006, 8:26) *

Больше ненадо не в чём разбиратся , сам решил эту проблему...

как, если не секрет? если решил проблему, это прекрасно, но хорошим тоном является отписаться о найденном решении, вдруг у кого-то будет аналогичная, и он придет сюда искать решение?

Вот в чём была проблема: выше я писал что у меня вообще не показывает функции , ты написал "замени Sub SheepSkinning() на sub SheepSkinning()" я заменил , она появилась , но всё хреново работало и ничего дальше не происходило.... Потом я просто начил лазить в скрипте "дуб в этом" , НО всёже то что ты посоветовал , я заметил и в других областях , тоесть в томже выше приведённом скрипте идут неправельные строки ( Sub RecallToField() , Sub MoveWantedRegs(Reg,RegQuant,Message) , Sub checklag() , Sub deljournal(msg) , Sub WalkN(x,y,Target) , Sub Go(dir,key,walkwait) ) вот это я также заменил про твоему совету с SheePSkinning и сразу всё появилось , вроде работает.... Щас только осталось решить проблему со вторым заходом на поле....

Сообщение отредактировал LostLife - 19.11.2006, 6:49
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
LostLife
сообщение 19.11.2006, 7:46
Сообщение #14


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 73
Регистрация: 13.9.2006
Пользователь №: 3 516
Спасибо сказали: 0 раз(а)
Класс: Друид



Всё... Со вторым заходом тоже разобрался.... Были вписына неправельно координаты... Сейчас всё работает... 1 вещь путается конешно , то он кулоками то стафом , ну эт ладно , главное что всё нужное работает... laught.gif Всем спасибо за помощь.... agree.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
3 чел. читают эту тему (гостей: 3, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 23.7.2018, 2:22
Design: Fisana  © 2005-2006 IBR Team