Yoko
http://forum.yoko.com.ua/

Плз если не сложно!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2455		 Page 1 of 1
Author:  xdemox [ 2005-01-03 10:53:02 ]
Post subject:  Плз если не сложно!
ПЛз есл ине сложно, дайте скрипт на простой Ламбер! ЧТо бы никуда не реколилсяЮ, а просто циклично обрубывал некоторое число деревьев! Плз, очень надо! АТо тут такие скрипты с реколами и тд.. Надеюсь на ответ
Author:  Sfagnum [ 2005-01-03 10:55:36 ]
Post subject:  Re: Плз если не сложно!
xdemox wrote:
ПЛз есл ине сложно, дайте скрипт на простой Ламбер! ЧТо бы никуда не реколилсяЮ, а просто циклично обрубывал некоторое число деревьев! Плз, очень надо! АТо тут такие скрипты с реколами и тд.. Надеюсь на ответ
возьми и настрой, предварительно прочитав описалово скрипта ;)
Author:  xdemox [ 2005-01-03 10:59:08 ]
Post subject: 
Извеняюсб, но Я совсем не разбераюсь в инжекте :( мне надо чито нюбовский тчо б циклично рубил деревья и всё
Author:  Sfagnum [ 2005-01-03 11:01:04 ]
Post subject: 
xdemox wrote:
Извеняюсб, но Я совсем не разбераюсь в инжекте :( мне надо чито нюбовский тчо б циклично рубил деревья и всё
чисто по нубовски и прочитай настройки там всё чисто для нубов и написано ;)
Author:  xdemox [ 2005-01-03 11:02:35 ]
Post subject: 
Не, так не пойдёт :) Плз дай асю, поговорим )
Author:  Sfagnum [ 2005-01-03 11:09:22 ]
Post subject: 
зачем?
вот скрипт Savage'a, ИМХО для более-менее продвинутых, а вот от команды - там описалова больше чем сам скрипт :)
Author:  xdemox [ 2005-01-03 11:12:54 ]
Post subject: 
:( Тут везде рколл! А у меня нем арб,и даже магери :(


мне надо что то типа такого:

sub mainR()
UO.Exec('terminate Reconnector')
UO.Exec('exec Reconnector')
wait(5000)

sub main ()
var i, x, y, z, t, x1, y1, down, pick
UO.DeleteJournal ()

UO.Print ("select place to mine")
UO.infotile ()
wait (5000)
t=UO.lasttile (0)
z=UO.lasttile (3)

down = 1

UO.unequip ("Rhand")
wait (1000)
UO.FindType ("pickaxe")
wait (1000)
pick = UO.GetSerial ("finditem")
UO.equip ("Rhand", pick)

while not UO.Dead ()

UO.DeleteJournal ()
x=UO.GetX ()
y=UO.GetY ()

UO.exec ("waittargettile '" + str(t) + "' '" + str(x) + "' '" + str(y) + "' '" +str(z) + "'")
UO.useobject (pick)

while not UO.inJournal ("no more ore") and not UO.inJournal ("tool broke") and not UO.InJournal ("stop mining") and not UO.inJournal ("cannot see that") and not UO.inJournal ("far away")
wait (1000)
if UO.InJournal ("element") then
goto theend
endif
wend

if UO.InJournal ("tool broke") then
UO.FindType ("pickaxe")
wait (1000)
pick = UO.GetSerial ("finditem")
UO.equip ("Rhand", pick)
endif

x1=x+down
y1=y
repeat:
gotoxy (x1, y1, 0)

carry ()

x=UO.GetX ()
y=UO.GetY ()

if x<>x1 or y<>y1 then
if not UO.InJournal ("You are too fatigued to move") then
y=y+1
gotoxy (x, y, 0)
down=-down

carry ()

wait (1000)
UO.findtype ("ore", -1, 1)
UO.grab (2000, "finditem")
wait (1000)

EatCheck()
else
wait (60000)
endif
endif
wend
theend:
end sub

sub carry ()
UO.findtype (0x19B9, 0x0000, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x07DF, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x0482, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x045E, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x07D6, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x006F, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x05D7, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x09F9, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.Say ("help")
end sub

sub take ()
while not UO.Dead ()
UO.findtype (0x19B9, 0x0000, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x07DF, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x0482, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x045E, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x07D6, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x006F, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x05D7, 1)
UO.grab (2000, "finditem")
wait (1000)
UO.findtype (0x19B9, 0x09F9, 1)
UO.grab (2000, "finditem")
wait (1000)
wend
end sub

sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
#uo.print(">")
#uo.track("1",str(x),str(y))
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if not ldc then
uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if

ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:

mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if

if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>15 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
end if

if mx==x then
if my==y then
return
endif
if my>y then
#UO.Print("UR")
UO.Press(33)
goto start
endif
#UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
#UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
#UO.Print("DR")
UO.Press(34)
goto start
endif
#UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
#UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
#UO.Print("LU")
UO.Press(36)
goto start
endif
#UO.Print("U")
UO.Press(38)
goto start
end sub


sub EatCheck()
var GHS, Hung_i
GHS = 0

GHS = GetHungryStatus()
If (GHS > 1) then
For Hung_i = 0 To (GHS - 2)
Eat()
Wait(350)
Next
EndIf
end sub

sub Eat()
If UO.Count('0x097b') then
UO.UseType('0x097b')
else
If UO.CountGround('0x097b') then
UO.UseFromGround('0x097b')
else
UO.Print('No meal found.')
endif
endif


sub GetHungryStatus()
VAR Ret_i, Cycle_i, LastStr
DIM HArr[11]
HArr[0] = "You are absolutely stuffed!"
HArr[1] = "You are stuffed"
HArr[2] = "You aren't hungry at all"
HArr[3] = "You are a little hungry"
HArr[4] = "You are somewhat hungry"
HArr[5] = "You are REALLY hungry"
HArr[6] = "Your stomash hurts"
HArr[7] = "Your stomash hurts and you feel dizzy"
HArr[8] = "You are starving"
HArr[9] = "You are almost dying of hunger"
HArr[10] = "You are DYING of hunger..."
UO.DeleteJournal()
UO.ServerPrint(".hungry")
Ret_i = 0
Cycle_i = 0
Wait(400)
For Cycle_i = 0 To 10
If UO.InJournal(HArr[Cycle_i]) Then
Ret_i = Cycle_i
EndIf
Next
RETURN Ret_i
end sub

sub CheckSave()
If UO.InJournal("Saving World State") Then
UO.Print("WorldSave...ipat ego vrot")
UO.DeleteJournal()
Wait(25000)
EndIf
end sub

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

эт на майн,если б такое типа на ламбер.. где указал деревь я и поехал.. :(
Author:  Sfagnum [ 2005-01-03 11:18:23 ]
Post subject: 
я ж говорил читай описалово

var TryRecall=1 ## 1 - После того как соберет LogsQty логов, будет пытаться реколиться домой,
### складывать логи в сундук и реколиться обратно , 0 - не будет.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/