Все делал как надо,все равно чето не хочет пишет QuietMode off,убираю галочку Verbose Menu,вообще пишет тока "ВСЕ!" ну соответственно ставлю обратно начинает писать QuietMode off,до этого первый раз запустил он крутился чето хотел делать,щас вообще перестал дрыгатся ).
Code:
VAR Shovel1 = '0x0F39'
VAR Shovel2 = '0x0F3A'
VAR Pickaxe1 = '0x0E85'
VAR Pickaxe2 = '0x0E86'
VAR axe1 = '0x0F43'
VAR axe2 = '0x0F44'
VAR FPole1 = '0x0DBF'
VAR FPole2 = '0x0DC0'
VAR log = '0x1BDD'
VAR knife = '0x0F51'
VAR Steak = '0x097A'
var weapon = '0x1404'
var Enemy = '0x00000000'
VAR MaxVes = 550, printcolour = '1069'
VAR delay1 = 100 , delay2 = 300, delay3 = 700
VAR MaxRangeMining = 2, MaxRangeLumber = 3, MaxRangeFishing = 6
VAR X, Y, Z, i, Tiles, Lasttimer, MaxRange, action, timemove
VAR allmsg = 'нет рыбы|table|attacking you|%|destroyed|broke|useable|put the|is nothing here to mine|Wthere do you|have no line|mining elsewhere|too far away|so close to yourself|Logs|nothing|ou hack at the tree|no logs|no ore|ou can|reach this|hat is too far away|do much|t appears immune to your blow|cannot|fishing elsewhere|too far away|pull out|anything|no fish|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|выкопали|Вы положили|Вам не удалось|У вас нет|ничего|Тут ничего|Попробуйте|атакует|положили|древесина кончилась|дрова|ударили по дереву|ут нечего рубить|ы не можете до этого достать|ерево слишком далеко|то кажется свободным для вашего удара|поймали|не получилось|нету рыбы|месте|далеко|вытащили удочку'
VAR endmsg = 'нет рыбы|%|destroyed|is nothing here to mine|have no line|Try mining elsewhere|too far away|so close to yourself|nothing|no logs|no ore|ou can|cannot|fishing elsewhere|no fish|0xAD00|0xA867|0xA2DE|Тут ничего|нет руды|У вас нет|Попробуйте|древесина кончилась|ут нечего рубить|ы не можете до этого достать|ерево слишком далеко|свободным для вашего удара|нету рыбы|в другом месте|далеко|вытащили удочку'
VAR mX = UO.GetX('self'), mY = UO.GetY('self'), mZ = UO.GetZ('self')
sub Mining()
UO.SetGlobal('action','1')
UO.SetGlobal('MaxRange','2')
uo.mfgi( 'resend' )
extraction()
end sub
sub Lumber()
UO.SetGlobal('action','2')
UO.SetGlobal('MaxRange','3')
uo.mfgi( 'resend' )
extraction()
end sub
sub Fishing()
UO.SetGlobal('action','3')
UO.SetGlobal('MaxRange','6')
uo.mfgi( 'resend' )
extraction()
end sub
Sub extraction()
for Y = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
for X = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
if val(uo.GetGlobal('action')) == 1 then
Tiles = MiningTiles(mX+X, mY+Y)
else
if val(uo.GetGlobal('action')) == 2 then
Tiles = Tree(mX+X, mY+Y)
else
Tiles = FishTiles(mX+X, mY+Y)
mZ = -5
end if
end if
if Tiles then
repeat
CheckAll()
UO.DeleteJournal()
UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
Tools()
LastTimer=UO.Timer()
repeat
wait( delay1 )
until UO.InJournal( allmsg ) || UO.Timer()>LastTimer+delay2 || UO.Weight > MaxVes || UO.Dead()
CheckAll()
until UO.InJournal( endmsg ) || UO.Timer()>LastTimer+delay3 || UO.Weight > MaxVes || UO.Dead()
uo.mfgi( 'add', '6017', mX+X, mY+Y, mZ )
end if
next
next
UO.Set('quiet','0')
uo.charprint(printcolour, 'ВСЕ!')
UO.Sound(100)
end sub
Sub CheckAll()
UO.Set('quiet','1')
if UO.InJournal('is attacking you') then
Enemy = UO.JournalSerial(UO.InJournal("is attacking you")-1)
DeleteJournal('is attacking you')
Gong(1)
uo.Usetype( weapon )
UO.Attack( Enemy )
LastTimer=UO.Timer()
repeat
wait( delay2 )
until uo.dead() or uo.GetX(Enemy)==0 || UO.Timer()>LastTimer+delay2
uo.Warmode(0)
wait(delay2)
end if
If UO.Life < Uo.Str/10 then
UO.Set('quiet','0')
uo.charprint(printcolour, 'Умираю!')
MyTerminate()
endif
If UO.Weight > MaxVes Then
UO.Set('quiet','0')
uo.charprint(printcolour, 'Перегруз!')
MyTerminate()
endif
if uo.Warmode()==1 then
uo.Warmode(0)
wait(delay2)
end if
DIM Fish[5]
Fish[1] = '0x09CC' ; тип рыбы 1
Fish[2] = '0x09CD' ; тип рыбы 2
Fish[3] = '0x09CE' ; тип рыбы 3
Fish[4] = '0x09CF' ; тип рыбы 4
For i=1 To 4
UO.FindType( Fish[i], -1, 'ground' )
If UO.FindCount() > 0 Then
timemove=UO.Timer()
while UO.ContainerOf( UO.GetSerial('finditem') )=='0xFFFFFFFF' && timemove+20>UO.Timer()
uo.MoveItem('finditem',0,'backpack')
wait(delay1)
wend
if uo.count( knife ) then
UO.WaitTargetObject( 'finditem' )
UO.UseType( knife )
while UO.Count( Fish[i] )
wait( delay1 )
wend
UO.FindType( Steak )
while UO.FindCount()>1
UO.MoveItem( 'finditem', '0' , 'backpack' )
wait( delay1 )
UO.FindType( Steak )
wend
endif
endif
Next
if UO.InJournal('в черте города') then
DeleteJournal('в черте города')
uo.charprint(printcolour, 'Ресурсы тут добывать нельзя!')
MyTerminate()
end if
end sub
Sub Tools()
if val(uo.GetGlobal('action')) == 1 then
if UO.Count(Shovel1) then
UO.UseType(Shovel1)
return
else
if UO.Count(Shovel2) then
UO.UseType(Shovel2)
return
else
if UO.Count(Pickaxe1) then
UO.UseType(Pickaxe1)
return
else
if UO.Count(Pickaxe2) then
UO.UseType(Pickaxe2)
return
else
UO.Set('quiet','0')
uo.charprint(printcolour, 'Нечем копать!')
MyTerminate()
endif
endif
endif
endif
else
if val(uo.GetGlobal('action')) == 2 then
if UO.Count(axe1) || UO.Count(axe2) then
if UO.Count(axe1) then
UO.UseType(axe1)
return
else
UO.UseType(axe2)
return
endif
else
UO.Set('quiet','0')
uo.charprint(printcolour, 'Нечем рубить!')
MyTerminate()
endif
else
if UO.Count( FPole1 ) || UO.Count( FPole2 ) then
if UO.Count( FPole1 ) then
UO.UseType( FPole1 )
return
else
UO.UseType( FPole2 )
return
endif
else
uo.charprint(printcolour, 'Нечем ловить рыбу!')
MyTerminate()
endif
end if
end if
end sub
Sub MiningTiles(X,Y)
if UO.PrivateGetTile(X, Y, -1, 616, 618) then
for i=616 to 618
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 1339, 1363) then
for i=1339 to 1363
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 2272, 2282) then
for i=2272 to 2282
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 4963, 4973) then
for i=4963 to 4973
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 6001, 6012) then
for i=6001 to 6012
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13121, 13369) then
for i=13121 to 13369
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13446, 13455) then
for i=13446 to 13455
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13484, 13492) then
for i=13484 to 13492
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13625, 13628) then
for i=13625 to 13628
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
return 0
end sub
Sub Tree(X,Y)
DIM R[34]
R[1] = 3274;
R[2] = 3275;
R[3] = 3276;
R[4] = 3277;
R[5] = 3280;
R[6] = 3283;
R[7] = 3286;
R[8] = 3288;
R[9] = 3290;
R[10] = 3293;
R[11] = 3296;
R[12] = 3299;
R[13] = 3302;
R[14] = 3320;
R[15] = 3323;
R[16] = 3326;
R[17] = 3329;
R[18] = 3393;
R[19] = 3394;
R[20] = 3395;
R[21] = 3396;
R[22] = 3415;
R[23] = 3416;
R[24] = 3417;
R[25] = 3418;
R[26] = 3419;
R[27] = 3438;
R[28] = 3439;
R[29] = 3440;
R[30] = 3441;
R[31] = 3442;
R[32] = 3460;
R[33] = 3461;
R[34] = 3462;
for i = 1 to 34
if uo.privategettile( x, y, -1, R[i], R[i]) then
return R[i]
endif
next
return false
end sub
Sub FishTiles(X,Y)
if UO.PrivateGetTile(X, Y, -1, 6038, 6066) then
for i=6038 to 6066
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
return 0
end sub
Sub Gong(times)
VAR i
for i=1 to times
UO.Exec("playwav d:\Games\Ultima\GMYokoInjection\ALARM")
wait(200)
next
end sub
Sub DeleteJournal(msg)
While UO.InJournal(msg)
UO.SetJournalLine(UO.InJournal(msg) - 1,'')
wend
endsub
Sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.IgnoreReset()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub
Sub checklag()
DeleteJournal("ackpack")
UO.Click("backpack")
repeat
wait(100)
until UO.InJournal("ackpack")
end sub
sub clean()
var m = 50
for Y = -m to m
for X = -m to m
uo.mfgi( 'clear', mX+X, mY+Y, mZ )
next
next
end sub
Register
Login
FAQ
Search
