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

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


> > Скрипты На Injection, Мои скрипты >
Deidan
сообщение 8.10.2005, 1:50
Сообщение #1


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Здесь я буду выкладывать скрипты на Инжект, которые не жалко)) Единственное что, я сижу на предыдущей версии инжект.длл , так что ето может повлиять на коректную работу скриптов. Может быть перейду скоро на новую, а пока так легче. Если вас интересует помощь по скриптам или инже, то можете писать в асю 172834594.

Красным выделены скрипты, которые работают неправильно.

Зелёным выделены скрипты, работающие на ура.




Тинкеринг с дида

БС с дида

Карпентри с дида

Ходилка, не знаю правда кому она нужна

Переплавка руды с банка и складывания инготов в дид

Инскрипт на ФС

Ламберджекинг ( не мой, просто его тут быстрее найдут)

Кемпинг

Провокация

Таминг

Скининг

Боукрафт (не мой)

Сообщение отредактировал Deidan - 27.11.2005, 15:04
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
8 страниц< 1 2 3 4 > »  
Ответить в эту темуОткрыть новую тему
> > Ответов(20 - 39) >
BOBAHork
сообщение 10.10.2005, 6:56
Сообщение #21


Гость









а я бы всё ещё хотел бы ходилку предложенной выше,но чтоб препядствия находил.алгоритм примерно такой.он ходит на нумах (кнопки на алой клавиатуре)сравнивая свои координаты где находится в данный момент времени и конечные координаты-те куоторы я задаю чтоб он по ним ходил.как тока втыкается в препятствие этими же нумами из описанного массива условий начинает тыркать то туда то сюда-тока с умом и в конечном итоге обходит препятсвтаие какое бы оно ни было.камень,дерево или целый дом. заранее благодарю
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
BeS
сообщение 10.10.2005, 10:48
Сообщение #22


Идущий по тропе
Group Icon

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



алгоритм на алхимию такой:
стоят два сунука в одном 3 вида регов, пустые сумки, банки, он берёт 1 сумку, берёт регов по 200, делает попеременно разные виды банок, потом сделав 200 штук банок кладёт в мешок, этот мешок в пустой сундук, и заного...
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Okypok
сообщение 10.10.2005, 16:39
Сообщение #23


Люди в курсе
Group Icon

Группа: Пользователи
Сообщений: 3 265
Регистрация: 7.7.2005
Из: Кащенко сбежал
Пользователь №: 1 229
Спасибо сказали: 8 раз(а)



Ладно тоже попрошу. Можешь написать скриптик на provocation? smile.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
^hp^
сообщение 10.10.2005, 18:25
Сообщение #24


Гость









Deidan респект smile.gif клевый макр на тинкеринг smile.gif
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 10.10.2005, 22:10
Сообщение #25


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Хождение под мухой ))




Var MoveDelay=500 # Период между шагами, чем меньше, тем быстрее ходит.
Var MoveNumber=2 # Тоже для движения, не советую менять, если не знаете #для чего ето.
Var Ep=0.172 # За счёт етого он обходит препятствия, ставьте больше или #меньше, как захотите.
Var FileName='D:\Ultima Online 2D\Injection\Tiles.dat'  #прописываем путь к #файлу где содержатся тайлы


Sub Main()
UO.DeleteJournal()
UO.Exec('exec Walk')
EndSub

Sub Walk()
Var Tl,T,X,Y,Z
UO.SetGlobal('process','yes')
Var F=File(FileName)
F.Open()
Beg:
Tl=safecall F.Readln()
Tl=Trim(Tl)
If Tl=='File read error' Then
GoTo Ext
EndIf
T=GetNumb(Tl,0)
X=GetNumb(Tl,1)
Y=GetNumb(Tl,2)
Z=GetNumb(Tl,3)
UO.Print('Tile '+Tl)
GoToTile(X,Y,1,False)
Repeat
UO.DeleteJournal()  
GoTo Beg
EndIf
Ext:
F.Close()
UO.SetGlobal('process','no')
Main()
EndSub

Sub GetNumb(C,I)
var J,T,K
J=0
K=1
While K>0
J=J+1
If (Mid(C,J,1)==' ') Or (J>=Len(C)-1) Then
If I==0 Then
T=Val(Left(C,J))
Else
T=GetNumb(Right(C,Len(C)-J-1),I-1)
EndIf
K=0
EndIf
wend
return T
endsub


Sub Perp(Dir)
Var D
D=Dir
If Dir==1 Then
D=3
EndIf
If Dir==2 Then
D=4
EndIf
If Dir==3 Then
D=-1
EndIf
If Dir==4 Then
D=-2
EndIf
If Dir==-1 Then
D=-3
EndIf
If Dir==-2 Then
D=-4
EndIf
If Dir==-3 Then
D=1
EndIf
If Dir==-4 Then
D=2
EndIf
RETURN D
EndSub

Sub MoveOnce(Dir,Del,Rev)
Var Num
If Rev Then
Num=MoveNumber+1
Else
Num=MoveNumber
EndIf
If (Num>0) and (Dir<>0) Then
If Dir==1 Then
UO.Press(38,Num,Del)
EndIf
If Dir==2 Then
UO.Press(33,Num,Del)
EndIf
If Dir==3 Then
UO.Press(39,Num,Del)
EndIf
If Dir==4 Then
UO.Press(34,Num,Del)
EndIf
If Dir==-1 Then
UO.Press(40,Num-1,Del)
EndIf
If Dir==-2 Then
UO.Press(35,Num,Del)
EndIf
If Dir==-3 Then
UO.Press(37,Num,Del)
EndIf
If Dir==-4 Then
UO.Press(36,Num,Del)
EndIf
If Rev Then
If Dir<>-1 Then
UO.Press(40,1,Del)
EndIf
EndIf
EndIf
EndSub

Sub GetQDir(x,y)
Var J=0
If X==0 Then
J=1
Else
If (Y/X)<ep Then
J=3
Else
If (X/Y)<ep Then
J=1
Else
J=2
EndIf
EndIf
EndIf
RETURN J
EndSub

sub GetDir(myx,myy,ox,oy)
Var I,J
J=0
Var X=ox-myx
Var Y=oy-myy
I=GetQDir(Abs(X),Abs(Y))
If X>=0 Then
If Y>=0 Then
If I==1 Then
J=-2
Else
If I==2 Then
J=-1
Else
If I==3 Then
J=4
EndIf
EndIf
EndIf
Else
If I==1 Then
J=2
Else
If I==2 Then
J=3
Else
If I==3 Then
J=4
EndIf
EndIf
EndIf
EndIf
Else
If Y>=0 Then
If I==1 Then
J=-2
Else
If I==2 Then
J=-3
Else
If I==3 Then
J=-4
EndIf
EndIf
EndIf
Else
If I==1 Then
J=2
Else
If I==2 Then
J=1
Else
If I==3 Then
J=-4
EndIf
EndIf
EndIf
EndIf
EndIf
RETURN J
endsub

sub abs(a)
Var b
If a<0 Then
b=-a
Else
b=a
endif
return b
endsub

Sub PermResend()
Var Mn=1 #9
Repeat
UO.Resend()
Wait(MoveDelay*Mn)
Until (1>2)
EndSub

sub max(A,B)
Var C
If A>B Then
C=A
Else
C=B
EndIf
Return C
EndSub

sub GetDistance(X,Y)
return max(abs(X-uo.getx()),abs(Y-uo.gety()))
endsub

sub GoToTile(OX,OY,N,S)
var myx, myy, MD, J
var Lx1 ,Ly1
var Lx2 ,Ly2
var Sx ,Sy
var T
var Des=N
J=1
MD=MoveDelay*1.5
myx=uo.getx()
myy=uo.gety()
MoveOnce(GetDir(uo.getx(),uo.gety(),ox,oy),MD,False)
Sx=0
Sy=0
Lx1=uo.getx()/2
Ly1=uo.gety()/2
Lx2=Lx1/2
Ly2=Ly1/2
T=UO.Timer()

While ((GetDistance(ox,oy)<>N) or ((not S) and GetDistance(ox,oy)>N)) and (OX>=0) and (OY>=0)
If ((UO.Timer()-T)*500>MoveDelay) Then
T=UO.Timer()
Lx2=Lx1
Ly2=Ly1
Lx1=myx
Ly1=myy
myx=uo.getx()
myy=uo.gety()
endIf
MD=MoveDelay
If ((OX-uo.getx())*(OX-uo.getx())+(OY-uo.gety())*(OY-uo.gety())>0) Then
MD=MD*3/GetDistance(ox,oy)
EndIf
wait(MD)
If GetDistance(OX,OY)>Des Then
MoveOnce(GetDir(uo.GetX(),uo.GetY(),ox,oy),MD,False)
Else
If S Then
If GetDistance(OX,OY)<Des Then
If GetDistance(OX,OY)<>0 Then
MoveOnce(GetDir(ox,oy,uo.GetX(),uo.GetY()),MD,False)
Else
MoveOnce(GetDir(uo.GetX(),uo.GetY(),Lx2,Ly2),MD,False)
EndIf
EndIf
EndIf
EndIf
If GetDistance(OX,OY)<>Des Then
If (Lx2==uo.getx()) and (Ly2==uo.gety()) Then
If (Sx<>uo.getx()) or (Sy<>uo.gety()) Then
J=1
EndIf
J=J+1
UO.Resend()
Sx = uo.getx()
Sy = uo.gety()
Stun(ox,oy,J)
EndIf
EndIf
Wend
UO.Exec('terminate PermResend')
endsub

Sub Stun(X,Y,N)
Var I
Var myx
Var myy
myx = uo.getx()
myy = uo.gety()
For I=1 to N
MoveOnce(perp(GetDir(myx,myy,x,y)),MoveDelay,False)
Next
Wait(MoveDelay)
UO.Resend()
If (myx==uo.getx()) and (myy==uo.gety()) Then
For I=1 to N
MoveOnce(-perp(GetDir(myx,myy,x,y)),MoveDelay,False)
Next
Wait(MoveDelay)
UO.Resend()
EndIf
If (myx==uo.getx()) and (myy==uo.gety()) Then
For I=1 to N
MoveOnce(-GetDir(myx,myy,x,y),MoveDelay,False)
Next
Wait(MoveDelay)
Stun(x,y,N)
EndIf
EndSub

Sub DeleteJournal(What)
Var T,J
J=False
If UO.InJournal(What) Then
J=True
UO.DeleteJournal()
EndIf
RETURN J
EndSub


Сообщение отредактировал Deidan - 10.10.2005, 22:11
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 10.10.2005, 23:18
Сообщение #26


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Переплавка руды из банка.

# Нужно лишь проставить айди сумки  рудой в банке и стать в брите, у #плавильни. Чар плавит руду по 5 и  кладёт её на дид.




sub smelt_ground()
var r
var i,k=0
var max =((UO.Str*4)+30) #Счётчик веса.
DIM ore[4]
ore[1]=0x19B8
ore[2]=0x19B9
ore[3]=0x19BA
ore[4]=0x19B7
while k==0
r=0
If UO.Weight>=max-30 then
clean()
endif

for i=1 to 4
UO.FindType(ore[i],-1,'0x4059EE83')  # Сумка с рудой в банке
  If UO.FindCount()>0 then
     r=0
     UO.Exec('moveitem finditem 5')
           repeat
              wait(50)
         until Uo.ContainerOf('finditem')==UO.Getserial('backpack')
         UO.Useobject('finditem')
  else
  UO.Print('ЕБНВРТ де руда?')
  r=r+1
  endif
next
if r==4 then
k=1
Uo.Print('Ну и шо мне тут пля.... плавить?')
endif
wend
endsub
#Выкидывает инготы нах..... эээ, ну в общем на пол.
sub Clean()
var i,t,l,col
DIM type[5]
type[1]=0x1BEF
type[2]=0x1BF5
type[3]=0x1BE3
type[4]=0x1BE9
UO.Print('Overload. Cleaning')
col=0
repeat
col=0
for t=1 to 4
Uo.FindType(type[t],'-1','backpack')
  If UO.FindCount()>0 then
  UO.Print('Found')
  l=0
    uo.usetype ("0x14EF","0x0000")
wait (1000)
uo.lclick (28,126)
endif
       
end sub

Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Eqkuu
сообщение 10.10.2005, 23:27
Сообщение #27


Гость
Group Icon

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



Deidan хотелось бы знать скрипт на алхимию сделаешь
или можно не ждать просто очень нужен ?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 10.10.2005, 23:42
Сообщение #28


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Я занимаюсь етим, но я же живой как никак.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Eqkuu
сообщение 11.10.2005, 0:00
Сообщение #29


Гость
Group Icon

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



я не к тому что давай быстрее -)
а просто большая надежда возложена на тебя
и хотел просто знать делаешь или нет
все я понил не буду мешать -)
удачи и спб -)
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Okypok
сообщение 11.10.2005, 3:44
Сообщение #30


Люди в курсе
Group Icon

Группа: Пользователи
Сообщений: 3 265
Регистрация: 7.7.2005
Из: Кащенко сбежал
Пользователь №: 1 229
Спасибо сказали: 8 раз(а)



а провок можешь сделать? Там вроде простенько все...
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
BOBAHork
сообщение 11.10.2005, 5:49
Сообщение #31


Гость









огромные спасибки:) Даёшь скриптинг в население!
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
^hp^
сообщение 11.10.2005, 9:47
Сообщение #32


Гость









Да, клево было бы на Алхимию скриптик smile.gif
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 11.10.2005, 12:06
Сообщение #33


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



В Очередь, пля 8-)
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 11.10.2005, 23:43
Сообщение #34


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)





Исходный код
Инскрипт. Если вы ничерта несмыслите в скриптах, а вам нужен скрипт, на 1 рег или три или четыре, то лучше просите меня.

sub main()
var sunduk='0x402284F6'# склад
var trash='0x4025E717'  # место сброса
var reg1='0x0F8C' # Рег
var reg2='0x0F8D' # Рег
var Blank='0x0E34' # Бланк скрол
var FST='0x1F5F' # Скрол ФС
var i
uo.exec("unsetreceivingcontainer")
uo.exec("unsetcatchbag")
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'Spell Circles' 'Seventh Circle'") # Меняйте на своё
UO.Exec ("automenu 'Spell Circle 7' 'Flamestrike'") # Меняйте на своё
UO.addobject('s1',sunduk)
UO.addtype('r1',reg1)
UO.addtype('r2',reg2)
UO.addtype('bl',Blank)

while not uo.dead()
wait(250)
uo.setreceivingcontainer(trash)
   uo.findtype(FST,-1)

while UO.Count(FST)>1
wait(250)
  uo.findtype(FST,-1)
UO.Exec("grab all finditem")  
wait(1250)
wend #UO.Count


wait(250)
uo.exec("unsetreceivingcontainer")  
wait(250)
 uo.findtype(reg1,'-1')
 if UO.Count(reg1)<50 then
 UO.Exec("grab 50 s1.r1")
wait(1550)
 end if
wait(250)

 uo.findtype(reg2,'-1')
 if UO.Count(reg2)<50 then
 UO.Exec("grab 50 s1.r2")
wait(1550)
 end if

wait(250)
uo.findtype(blank,'-1')
 if UO.Count(blank)<50 then
 UO.Exec("grab 50 s1.bl")
wait(1550)
 end if

wait(250)
while (UO.Count(reg1)>2) and (UO.Count(reg2)>2)and (UO.Count(blank)>2)
wait(250)
uo.useskill('Inscription')
UO.DeleteJournal()
i=0
while i<100
if UO.InJournal("You put")or UO.InJournal("You fail") then
UO.DeleteJournal()
wait (200)
i=200
endif
wait (200)
i=i+1
wend
wait(250)
wend
wend
wend

end sub


Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Eqkuu
сообщение 12.10.2005, 3:33
Сообщение #35


Гость
Group Icon

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



в скрипте плохо понемаю
опиши действия скрипта на Инскрипт ! ! ! rolleyes.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Pasha
сообщение 12.10.2005, 6:45
Сообщение #36


Авторитет
Group Icon

Группа: Пользователи
Сообщений: 8 338
Регистрация: 26.3.2005
Из: Албании
Пользователь №: 711
Спасибо сказали: 201 раз(а)
Класс: Друид



а я чё-то на ламбер не понял последовательность дейсвий ну там же нада деревья обозначать они сами куда-то записываются
плиз поясни что да как а то тугова-то у меня smile.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 12.10.2005, 16:09
Сообщение #37


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Цитата(Eqkuu @ 12.10.2005, 3:33)
в скрипте плохо понемаю
опиши действия скрипта на Инскрипт ! ! !  rolleyes.gif
*




Берёт со склада реги и скролы, делает скролы фс, кидает их в другой ящик.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 12.10.2005, 16:12
Сообщение #38


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Цитата(Pasha @ 12.10.2005, 6:45)
а я чё-то на ламбер не понял последовательность дейсвий ну там же нада деревья обозначать они сами куда-то записываются
плиз поясни что да как а то тугова-то у меня smile.gif
*




У меня есть младшая сестра, ей 9 лет. Я попросил её прочитать то что написано в графе переменные, и сделать так чтобы чар убегал от пк, итд. Она мало того что ето сделала. Она ещё и запустила скрипт и поклацала на руны и топор.


Исходный код

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

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

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

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

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

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

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

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

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

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

### Включается переменной var GetFromFile=0 ## 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=1 ## 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=('D:\Ultima Online 2D\Injection\Scripts (Antares)\Lumber\Vesper Forest 1.dat') ## - Путь к файлу в котором будут хранится координаты деревьев.

###

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

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

###

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

###

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

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

###

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

###

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

###

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

###

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

###

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

###

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

###

var DisturbingSound=('D:\Ultima Online 2D\Music\Combat3.mid') ## - Звук которы будет пригран при атаке.(замените на свой)

###

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

###

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

###

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

###

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

###

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

###

var Chest='0x4059EE83' ## - 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 Text6='It appears immune to your blow.'

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 or uo.Journal(0)==Text6 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."

var Text6='It appears immune to your blow.'

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 or uo.Journal(0)==Text6 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
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 12.10.2005, 17:14
Сообщение #39


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Теперь в первом сообщении этого топика будут появляться ссылки на скрипты выложенные в этом топике, для более быстрого нахождения.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Deidan
сообщение 12.10.2005, 18:55
Сообщение #40


Недо-человек
Group Icon

Группа: Пользователи
Сообщений: 1 344
Регистрация: 7.8.2005
Из: USA, OHIO, Cleveland
Пользователь №: 1 432
Спасибо сказали: 0 раз(а)



Исходный код
Кемпинг, если кончается хворост или скилл равен 100 - выходит из игры. Если вас не устраивает скорость, то можете поиграться с wait'ами.




var sunduk='0x40A4EF9E'  Сундук с хворостом

sub Camping()
var mx=uo.getx(),my=uo.gety(),x,y
uo.set('finddistance','5')
uo.useobject(Sunduk)
wait(200)
uo.DeleteJournal()
while 1==1
for x=mx-2 to mx+2
for y=my-3 to my+3
if uo.count('0x0DE1','0x0000')<10 then
UO.FindType('0x0DE1','0x0000',Sunduk)
wait(200)
UO.Grab('100','finditem')
wait(200)
end if
if (uo.count('0x0DE1','0x0000')==0) or (uo.skillval('Camping',1)==1000) then
uo.closeuo()
end if
uo.findtype('0x0DE1','0x0000','ground')
wait(200)
if UO.FindCount()<>0 then
uo.useobject('finditem')
wait(1500)
else
uo.findtype('0x0DE1','0x0000','backpack')
wait(200)
uo.drop('1',STR(x),STR(y),STR(uo.getz()),'finditem')
wait(700)
uo.findtype('0x0DE1','0x0000','ground')
wait(200)
uo.useobject('finditem')
wait(1500)
end if
next
next
wend
end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

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

 

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