Скрипты
Moderators: Murderator+, Murderator
-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact:
-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact:
я конешно в скриптах ваще ниче не понимаю, а как добавить в скрипт вот этот, чтобы 2 раза чар жал на плавилку и кликал на 1 руду ?
NMY: используй [cоde][/code] !
Code: Select all
#####################################################################
; Training of Mining, ver 1.03, (c) Edred
sub Smelt()
VAR Ruda1 = '0x19B9' ; Тип руды
VAR Ruda2 = '0x19B8' ; Тип руды - 3 шт.
VAR Ruda3 = '0x19BA' ; Тип руды - 2 шт.
VAR Ruda4 = '0x19B7' ; Тип руды - 1 шт.
VAR Ing1 = '0x1BEF' ; Тип ингов металлов
VAR Ing2 = '0x1BF2' ; Тип ингов строймата
VAR MaxVes = 500 ; Максимальный вес пака
repeat
UO.Findtype( Ruda1, -1, 1 ) ; Ищем руду на земле
If UO.Findcount() == 0 Then
UO.Findtype( Ruda2, -1, 1 )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda3, -1, 1 )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda4, -1, 1 )
If UO.Findcount() == 0 Then
UO.Print( "No more ore for smelt..." )
Return
Endif
Endif
Endif
Endif
UO.Exec( "moveitem finditem 1" ) ; Тащим 1 в пак
Wait( 50 )
UO.Useobject( 'finditem' ) ; переплавляем
Wait( 50 )
If UO.Weight > MaxVes Then
; Максимальный вес пака превышен - разгружаемся
UO.Findtype( Ing1, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 50 )
Endif
UO.Findtype( Ing2, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 50 )
Endif
Endif
until NOT Uo.CountGround( Ruda1 ) AND NOT UO.CountGround( Ruda2 ) AND NOT UO.CountGround( Ruda3 ) AND NOT UO.CountGround( Ruda4 )
UO.Print( "No more ore for smelt..." )
endsub NMY: используй [cоde][/code] !
-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact:
Рядом топик в котором это обсуждалось
viewtopic.php?t=8613
viewtopic.php?t=8613
-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact:
-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact:
-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact:
Вот с этим скриптом не нужно ничего марчить. Чар просто ходит по лесу и рубит все что попало.
Code: Select all
sub main()
; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++
var zona = 6;
; ++++++++++++++++++++++++++++++++++++++++++++++++++++++
var m, i, a, tX, tY, tr = 1
tX = UO.GetX('self')
tY = UO.GetY('self')
for i=1 to zona
if tr then
m = - 5
else
m = 5
endif
for a=1 to zona
tY = tY + m
GotoXY(tX,tY)
Lamber()
next
tX = tX - 5
if tr then
tr = 0
else
tr = 1
endif
next
endsub
sub Lamber()
; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++
var MaxFailCount = 10; fizzle
var MaxRange = 3 ; 3 tiles
var mDebug = false ;
; ++++++++++++++++++++++++++++++++++++++++++++++++++++++
var X, Y, Z, FailCount = 0, LTimer, Tiles
var mX, mY, mZ, TrWeight, TrT, TrW, adX, adY
; ** Debug ***********************
if mDebug then
UO.TextOpen()
UO.TextClear()
endif
; ********************************
mX = UO.GetX('self')
mY = UO.GetY('self')
mZ = UO.GetZ('self')
for Y = MaxRange - ( MaxRange * 2 ) to MaxRange
for X = MaxRange - ( MaxRange * 2 ) to MaxRange
Tiles = F_HarvestTiles(mX+X, mY+Y)
if Tiles then
adX = mX+X
adY = mY+Y
repeat
F_DelJournalMine();
UO.Warmode(0)
UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
; ********************************
if UO.Count(0x0F49) then
UO.UseType(0x0F49); <-- Axe
else
return 1
endif
; ********************************
; ************ Triger ************
; ErrorExitTimer
LTimer=UO.Timer()
TrT = UO.Timer() > LTimer + 60; !!! 60/10 = 6 sec !!!
; MyWeight + Ore
TrWeight = UO.Weight
TrW = UO.Weight <> TrWeight
; ********************************
repeat
wait(100)
until UO.InJournal("You put the|useable wood|You can|That is too far away|here to chop") || TrT || UO.Dead()
; ********* ON=@FailCount ********
if TrW then
FailCount = 0
else
FailCount = FailCount + 1
endif
; ********************************
; ***** Debug Harvest Tiles ******
if mDebug then
if TrT then
UO.TextPrint(Tiles); !Harvest
else
; UO.TextPrint(Tiles); Harvest
endif
endif
; ********************************
until UO.InJournal("here to chop|You can|That is too far away") || FailCount >= MaxFailCount || UO.Dead()
endif
next
next
UO.Sound(61)
return 0
end sub
sub F_HarvestTiles(X,Y)
var i
if UO.PrivateGetTile(X, Y, -1, 3274, 3302) then
for i=3274 to 3302
if UO.PrivateGetTile(X, Y, -1, i, i) then
; ***** Patch ********************************************
if i==3278 || i==3279 || i==3281 || i==3282 then
return 0
endif
if i==3284 || i==3285 || i==3287 || i==3289 then
return 0
endif
if i==3291 || i==3292 || i==3294 || i==3295 then
return 0
endif
if i==3297 || i==3298 || i==3300 || i==3301 then
return 0
endif
; ********************************************************
return i
end if
next
end if
return 0
end sub
sub F_DelJournalMine()
F_DeleteJournal("You put the") ;
F_DeleteJournal("useable wood") ;
F_DeleteJournal("That is too far away");
F_DeleteJournal("You can") ;
F_DeleteJournal("here to chop") ;
end sub
sub F_DeleteJournal( string1 )
var nom = UO.InJournal( string1 )
if nom > 0 then
UO.SetJournalLine( Nom - 1, "string replaced" )
F_DeleteJournal( string1 )
endif
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-
slonopotam
- Posts: 270
- Joined: 2006-08-05 14:09:06
- Contact: