esli ja zapustil 2 injecta i ostavil na makrose, to oni dolga rabotat` nebudut, 4as mozhet 2,3 no adin iz nix viletet poljubomu, ja nepoonemaju izza 4ego eta, oba injecti stoit na adnom skripte, viletaet na random to adin to drugoj. skoka raz nano4 neostavljal makrositsa 2 injecta, prosipajus vsegda toka 1 ostalsa.
pomagite esli znaete v 4om problema.
2 injecta dolga nepashet
Moderators: Murderator+, Murderator
-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
vot takoj prostoj script na fishing
Code: Select all
sub fishing()
var mx, my, mz, i, j
uo.print('А где ведро?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
while not uo.dead()
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then
return
endif
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
if UO.dead() then
return
endif
if UO.Weight>660 then
return
endif
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait (100)
if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag')
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
wend
end sub
sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
for i = mx-2 to mx+2
for j = my -2 to my +2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0e85")
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (100)
wend
wend
UO.DeleteJournal()
next
next
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
next
end sub
sub hide()
while not UO.Hidden()
uo.WarMode("0")
uo.UseSkill("Hiding")
wait(1500)
wend
end subkr viljetaet takaja o6ibka:
nu u menja komp ne monstr, duron 1,1ghz, 256mb ram, pamet` tozhe xvataet. mozhe6 posavetovat` 6tota, 6tob ja mog nana4 ostavit` 2 injecta spokojna.
aa e6o, a esli menja inject sam zavisaet ili viletaet, to mne uzhe recconector nepomozhet da?
Code: Select all
Unhandled exception in parser.nu u menja komp ne monstr, duron 1,1ghz, 256mb ram, pamet` tozhe xvataet. mozhe6 posavetovat` 6tota, 6tob ja mog nana4 ostavit` 2 injecta spokojna.
aa e6o, a esli menja inject sam zavisaet ili viletaet, to mne uzhe recconector nepomozhet da?
-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact: