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

LumberAround. v.3.25b (c) Edred
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8248		 Page 1 of 1
Author:  NeGR [ 2006-07-16 12:06:13 ]
Post subject:  LumberAround. v.3.25b (c) Edred
Narod kto podskazet v 4om proble skript dostatochjna bistro ostanavlivaetsa.



#####################################################################
; LumberAround. v.3.25b (c) Edred
;
; Ðóáèì âîêðóã ÷àðà. Èñïîëüçóåòñÿ ASM-ìîäóëü äëÿ èíæåêòà äëÿ ïîèñêà äåðåâüåâ.
;
sub LamberAround()
VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY
VAR MaxTime = 600 ; èçìåðÿåòñÿ â 1/10 ñåê.
VAR ms1 = "There are no logs here to chop" ; íåò ëîãîâ
VAR ms2 = "You can't use" ; íå ìîæåì
VAR ms3 = "in your pack." ; âûðóáèëè ëîãè
VAR ms4 = "You fail to produce" ; ôèçë
VAR ms5 = "You are too far away" ; ñòîèì äàëåêî
VAR ms6 = "It appears immune to your blow" ; íå ïðîõîäèò óäàð
VAR ms7 = "You can't see that" ; íå ìîæåì óâèäåòü
VAR ms8 = "is destroyed*" ; òîïîð ðàçâàëèëñÿ
VAR ms9 = "Try to kill my spirit at first!" ; âûðóáèëè äóõà äåðåâà
UO.asmTLStaticOpen('Resource_Static.dat') ; Çàãðóçèì òàáëèöó òèïîâ ñòàòèêè
VAR i, strpoint
VAR MaxVes = 580
cx = UO.GetX()
cy = UO.GetY()
for tmpx = -3 to 3
for tmpy = -3 to 3
k = 0
pointX = cx + tmpx
pointY = cy + tmpy
strpoint = str(pointX) + ' ' + str(pointY)
repeat
UO.DeleteJournal()
t = UO.Timer() + MaxTime
k = k + 1
wait(300)
CanMine = UO.asmWaitTargetStaticTile( 'tree', PointX, PointY, 0 )
If CanMine Then
UO.UseObject(UO.ObjAtLayer('Lhand'))
repeat
wait(100)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer())
Endif
If UO.Weight > MaxVes Then
; Âåñ ïðåâûøåí!
return
Endif
If UO.InJournal( ms8 ) Then
; òîïîð íàêðûëñÿ!
return
Endif
If UO.InJournal( ms9 ) Then
; äóõ äåðåâà!
return
Endif
until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
Endif
next
next
endsub
Author:  Nmy [ 2006-07-16 19:36:10 ]
Post subject: 
вопервых это асм
вотворых скрипт надо постить в код
вотретих он рубит в три тайла себе вокруг и останавливается...
Author:  NeGR [ 2006-07-16 19:57:48 ]
Post subject: 
NMY wrote:
вопервых это асм
вотворых скрипт надо постить в код
вотретих он рубит в три тайла себе вокруг и останавливается...




Ja eto prekrasno ponimaju u menja prosta ne polu4aetsa ego sdelatj 4tob on ne ostanavlivalsja , ja eto sparashival.
Author:  Nmy [ 2006-07-16 20:40:55 ]
Post subject: 
Code:
while true
..
wend
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/