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

mining
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5329
Page 1 of 1

Author:  teror [ 2005-09-30 11:02:27 ]
Post subject:  mining

vot script na mining.no problema v elementaljah.nado 6tobi pri pojavlenie elementalja prekra6alsa mining i proiznosilisj dve komandi : .camp i .arm .pri ubijstve elementalja prodolzal kopatj dalshe...da i neznaju po kakim pri4inam script inogda ostanavlivaetsa.


Code:
sub mine() 
UO.DeleteJournal()
var x, y, i, tmp, inside, goto_x, st, first
st=0
first=UO.GetX()
start:
inside=0
for y=-2 to 2
for x=-2 to 2
try:
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0E85")
#UO.Print (""+STR(x))
#UO.Print (""+STR(y))
i=0
while i< 100
if UO.InJournal("You loosen some rocks but fail to find any useable ore") then
wait (1000)
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("Try mining elsewhere") then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You cant mine in this Region.") then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You must wait to perform another action") then
wait (1000)
i=200
UO.DeleteJournal()
goto try
endif
if uo.InJournal("Elemental") or uo.InJournal("is attacking you") or uo.Dead() then
uo.playwav("C:\injection\alert.wav")
end if
;if UO.InJournal("You put") then
;wait (1000)
;i=200
;UO.DeleteJournal()
;goto try
;endif
if UO.InJournal("There is nothing here to mine for")  then
wait (1000)
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You have no line of sight to that location") then
wait (1000)
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
if uo.weight > 700 then
uo.findtype(0x19B9,0x06D6,2)
UO.MoveItem('finditem', '0', 'ground')
wait (100)
endif
wend
next
next

if st == 0 then
goto_x=UO.GetX()+5
while inside < 10
while UO.GetX() < goto_x
UO.Press (39, 1, 500)
inside=0
wend
while UO.GetX() > goto_x
UO.Press (37, 1, 500)
inside=0
wend
inside=inside+1
wait (300)
wend
st=1
goto start
endif

if st == 1 then
while inside < 10
while UO.GetX() < first
UO.Press (39, 1, 500)
inside=0
wend
while UO.GetX() > first
UO.Press (37, 1, 500)
inside=0
wend
inside=inside+1
wait (300)
wend
st=0
endif
end sub

Author:  teror [ 2005-09-30 16:45:50 ]
Post subject: 

mozhet ktoto pomo4 ?

Author:  Destruction [ 2005-09-30 21:16:49 ]
Post subject: 

Бредовый скрипт, разбирать лень.

ИМхО

Author:  teror [ 2005-10-01 15:29:59 ]
Post subject: 

po4emu bredovij?ja igraju na oldparadise,mozet znaet kto takoj.da i mozet kto skazatj kak napisatj v scripte stobi v igre vipolnal komandi,naprimer .arm

Author:  DenjaGanjubass [ 2006-07-28 23:29:44 ]
Post subject: 

vovo , ja tze graju tam clericom , 1lvl :) , mneb wara proka4atj , sas inject razrewilji :D

Author:  ZWERb [ 2006-07-28 23:42:42 ]
Post subject: 

МЛЯ! В СОСЕДНЕЙ ТЕМЕ ДОXYR скриптов на мининг! И там от етого уходят просто! Пьеш инвизку и летиш по рунке! Потом ждеш 10мин пока елементал не уйдет!!!!!!!

Author:  DenjaGanjubass [ 2006-07-28 23:55:23 ]
Post subject: 

psc , nu pomogite , mining realjno nada ko4atj , a eto tezelo , ja krome kak v uo igratj eso i gulajju , buxaju , splju , bluju

Author:  Ex-Brodyaga [ 2006-07-29 12:21:29 ]
Post subject: 

ДАААА, у тебя помимо уо ещё много важных дел :lol: :lol: :lol: . Короче в поиске напиши мининг, а там ищи скрипт Ветера, найди в скрипте место где проверка на появление элема и вставляй туда UO.Say(".camp") ну и что там ещё тебе надо ;)

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/