Yoko

All sides of Injection
It is currently 2024-03-28 22:47:34

All times are UTC+02:00




Post new topic  Reply to topic  [ 32 posts ]  Go to page Previous 1 2
Author Message
PostPosted: 2012-02-08 08:40:49 
Offline

Joined: 2012-02-06 18:49:22
Posts: 15
не знаю :D я особо в скриптах не чего понимаю.просто знающих людей спрашиваю


Top
   
PostPosted: 2012-02-08 15:00:40 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Ну вот =) А вы говорите на помойку :roll:
Немного колхоза и ... :twisted:
Cheb wrote:
работает :)


Top
   
PostPosted: 2012-02-10 22:04:53 
Offline

Joined: 2012-02-06 18:49:22
Posts: 15
Line32: Function not found - LootCrpes
изо чего ето?


Top
   
PostPosted: 2012-02-11 01:50:37 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
видимо опечатка. должно быть LootCorpse


Top
   
PostPosted: 2012-02-11 11:04:04 
Offline

Joined: 2012-02-06 18:49:22
Posts: 15
так да...но вот такая проблему у друга .вылетает такая ошибка ..что делать?


Top
   
PostPosted: 2012-02-15 00:17:26 
Offline

Joined: 2012-02-06 18:49:22
Posts: 15
Sub tohome()
Go_To(1992,262,8)
Go_To(1996,259,8)
Go_To(1998,257,8)
wait(200)
unloadore()
wait(200)
Go_To(1998,257,8)
Go_To(1995,262,8)
Go_To(1989,262,15)
wait(200)
end sub

Sub unloadore()
VAR TempX,TempY,i,Exit, Exit1, ConTainer, j
VAR Index=14
DIM Ore[4]
TempX=UO.GetX()
TempY=UO.GetY()
Ore[0]=0x19B9
Ore[1]=0x19B7
Ore[2]=0x19BA
Ore[3]=0x19B8
For i=0 to 3
Exit=0
repeat
UO.FindType(Ore[i])
if UO.GetQuantity('finditem')>0 then
Exit1=0
j=0
UO.MoveItem('finditem',0,"0x40081C3E")
wait(200)
Else
Exit=1
endif
until Exit==1
Next
end sub

sub main()
VAR i
while 1==1

Go_To(1989,262,8)
min()
Go_To(1982,265,8)
min()
Go_To(1980,265,8)
min()
Go_To(1978,267,8)
min()
Go_To(1976,269,8)
min()

Go_To(1974,272,8)
min()
Go_To(1982,263,8)
min()
Go_To(1968,271,8)
min()
Go_To(1979,259,8)
min()
Go_To(1969,267,8)
min()

Go_To(1972,265,8)
min()
Go_To(1974,267,8)
min()
Go_To(1976,265,8)
min()
Go_To(1975,263,8)
min()
Go_To(1980,263,8)
min()

Go_To(1983,262,8)
min()
Go_To(1986,261,8)
min()
Go_To(1988,261,8)
min()
Go_To(1990,262,8)
min()
Go_To(2004,252,15)
min()

wend
end sub

Sub min()
var x,y,z
VAR LastTimer
VAR ms1 = "There is nothing here to mine for."
VAR ms2 = "You can't use"
VAR ms3 = "Вы переместили"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
VAR ms8 = "You stop"
VAR ms9 = "That is too"
VAR ms10= "Вы не смогли"
VAR ms11= "You cannot mine"
z=UO.GetZ("self")
for y=-2 to 2
for x=-2 to 2
UO.Print(str(x)+" "+str(y))
if uo.weight > 1300 then
tohome()
endif
repeat
uo.deletejournal()
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
UO.UseType('0x0E85')
LastTimer=UO.Timer()
repeat
wait(200)
until UO.InJournal(ms1) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR UO.InJournal(ms10) OR UO.InJournal(ms11) OR UO.Timer()>LastTimer+70
if UO.InJournal(ms3) then
else
endif
until UO.InJournal(ms2) OR UO.InJournal(ms1) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR UO.InJournal(ms11)
next
next
end sub

Sub Step(x,y,mx,my,forstep)
if uo.GetX('self') <> x then
if uo.GetY('self') <> y then
if mx<0 then
if my<0 then
uo.Press(40)
wait(forstep)
else
uo.Press(39)
wait(forstep)
end if
else
if my<0 then
uo.Press(37)
wait(forstep)
else
uo.Press(38)
wait(forstep)
end if
end if
else
if mx<0 then
uo.Press(34)
wait(forstep)
else
uo.Press(36)
wait(forstep)
end if
end if
else
if my<0 then
uo.Press(35)
wait(forstep)
else
uo.Press(33)
wait(forstep)
end if
end if
end sub

Sub Go_To(x,y,abc)
var mx,my,fx,fy
var xx=x
var yy=y
var DistX=0
var DistY=1
var forstep=200
repeat
mx=uo.GetX('self')-x
my=uo.GetY('self')-y
fx=mx+x
fy=my+y
Step(xx,yy,mx,my,forstep)
until x==fx+DistX && y==fy+DistY || x==fx-DistX && y==fy+DistY || x==fx+DistX && y==fy-DistY || x==fx-DistX && y==fy-DistY || x==fx && y==fy
end end


помогите!когда выкапуется елементал...чтоб хамер брал!!когда убил брал кирку и дальше копал!!если вам не трудно помогите


Top
   
PostPosted: 2012-02-15 01:38:18 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
а это для чего?
Code:
if UO.InJournal(ms3) then 
else
endif

Нужен тип елема, или типы, если их много.


Top
   
PostPosted: 2012-02-15 04:22:10 
Offline

Joined: 2012-02-06 18:49:22
Posts: 15
ZeroDX если чесно я не понемаю в скриптах!!!вы уже бывалые игроки !если сможешь сделай чтоб брал хамел!!а атачил всех КРАСНИХ.пофиг елем или чар!буду очень Благодарен...


Top
   
PostPosted: 2012-02-15 06:21:42 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
когда вылезет элем, сделаешь ,info на него, откроется окно. Там будет тип, он то и нужен. Далее понадобится тип оружия


Top
   
PostPosted: 2012-02-15 06:45:40 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
для человека не знающего как определить тип предмета сложновато будет использовать автономного бота добытчика с убиванием и реколами от ПК. Может начать с чего то попроще?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2012-02-15 13:36:27 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
так похоже на мой первый мининг :cry:


Top
   
PostPosted: 2012-02-15 14:31:54 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
мой первый мининг был ластобжект-ласттаргет и на loop :mrgreen:

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 32 posts ]  Go to page Previous 1 2

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 19 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited