Помогите доработать скрипт
Posted: 2008-03-01 18:40:20
При появление пк чар не реколится домой помогите доработать плизз!
############################################
### Mining / Êîïàíèå ðóäû v3.7 Full ###
############################################
### Øàðä Dragon World / www.drw.ru ###
############################################
### Âíèìàíèå:
### Äëÿ ðàáîòû ñêðèïòà íóæíà âåðñèÿ YokoInjection 4DZ.
### Ñêà÷àòü dll ýòîé âåðñèè ìîæíî
### îò ñþäà: www.swines.nm.ru/injection.zip
##########################################################
### Àâòîðû:
### - BETEPAH ðåàâòîð, ãëàâíûé ñêðèïòåð.
### - cOoler äîáàâëÿë, ðåäàêòèðîâàë ïåðåâîä è ñêðèïò.
### À òàêæå:
### -Áîëüøîå Savage, çà ñèñòåìó ñáðîñà ðóäû.
############################################
#############################
### Îïèñàíèå è íàñòðîéêà ###
#############################
### Îáðàòèòå âíèìàíèå íà çíà÷êè "]![" èìè âûäåëåííû âàæíûå ñîîáùåíèÿ.
###
### ×àð ñòîèò â ïåùåðå(íå Vip) è êîïàåò âîêðóã ñåáÿ.
### Ïîñëå äîñòèæåíèÿ "ìàêñèìàëüíîãî" âåñà(â äàííîì ñëó÷èå ýòî 625 ñòîóíîâ)
### "ïîðòàëèòñÿ" äîìîé ñêèäûâàåò ðóäó â ñóíäóê, ïîñëå ðåêîëèòñÿ îáðàòíî è ïðîäîëæàåò êîïàòü.
### Ïðèìåð: ñòîèòå êîïàåòå, äîøëè äî ïðèäåëà â 625 âåñà ñðàáîòàëà ñèñòåìà ðåêîëà
### è âû "ïîðòàëèòåñü" äîìîé è ñêëàäûâàåòå ðóäó â ñóíäóê,ïîñëå âû ðåêîëèòåñü îáðàòíî â ïåùåðó è ïðîäîëæàåòå êîïàòü(öèêëè÷íîñòü).
###
####################
### Íîâîââåäåíèÿ ###
####################
### 1)Ðóäà ñêëàäûâàþòñÿ íå íà ïîë à â ñóíäóê. [BETEPAH]
### 2)Ðåêîë â ïåùåðó è äîìîé ïî ðóíáóêå(à íå ïî ðóíêàì). [BETEPAH]
### 3)Ñèñòåìà ñáðîñà ðóäû ïåðåäåëàíà èç MassMove(÷òî â ñâîþ î÷åðåäü èíîãäà ïðèïèñûâàëîñü êàê ôàñò ëóò)â ïåðåìåùåíèå ÷åðåç
### Ìàñèâ.[íàïèñàíà Savage, âñòðîåíà BETEPAH]
### 4)Óïðàçíåíà ñèñòåìà âûáîðà "ãëàâíûõ îáüåêòîâ"(òåïåðü ïðîñòî óêàçûâàåì ïðèöåëîì). [BETEPAH]
### 5)Äîáàâëåí ðåêîííåêò è âûáîð åãî èñïîëüçîâàíèÿ. [Fox M, ïîìåñòèë COoler]
### 6)Óïðàçäíåíà óñòàíîâêà âåñà è âðåìÿ(ïîêà óéäåò ÏÊ). [cOoler]
### 7)Äîáàâëåí âûáîð ñòàâèòü èëè íåò ñêðèïò íà ïàóçó ïðè âûêîïêå Ýëåìåíòàëà. [cOoler]
### Óáûñòðåí ðåêîë ïî ðóíå(îò ÏÊ). [cOoler]
###
### ]![ ×òîáû ñêðèïò çàðàáîòàë âíèìàòåëüíî ïðî÷òèòå íàñòðîéêè. ]![
###
###################################
### Ðåæèìû ðàáîòû ñêðèïòà ###
###################################
### Ðàáîòàåò â 2óõ ðåæèìàõ: ###
### 1)Êîïàíèå ###
### 2)Ñóïîðò ###
###################################
### Ðåæèì Ïåðâûé - "Êîïàíèå" ###
###################################
### "sub Mining()"
### Ýòîò ðåæèì ãëàâíûé è îòâå÷àåò çà êîïàíèå.
###
### Ïîëîæèòå â ñóììêó ê ñåáå ðóíáóê(ñ ðóíàìè äîìîé è â øàõòó), êèðêó èëè ëîïàòó, ðóíêó ê ñóíäóêó(ïî ñóòå êîïèÿ òîé ÷òî ó âàñ
### â ðóíáóêå).
### Èäèòå â ïåùåðó â êîòîðîì âû õîòèòå êîïàòü.
### Çàïóñòèòå Ñêðèïò Mining(), èíæåêò ïîïðîñèò âàñ óêàçàòü êèðêó
### (ïîÿâèòñÿ ïðèöåë,ïðèöåëîì íà êèðêó êîòîðóþ âû ñ ñîáîé âçÿëè), ïîòîì èíæåêò ïîïðîñèò âàñ óêàçàòü ðóíáóê(ïîÿâèòñÿ ïðèöåë,
### ïðèöåëîì íà ðóíáóê ).
### ]![ Âíèìàíèå!!! Â ðóíáóêå ðóíà â 1îì ñëîòå "Äîìîé", â 8îì "â Øàõòó". ]![
### ]![ Âíèìàíèå â ñêðèïòå ðóíáóêè íàñòðîåíû ïîä ÄÐÂ øàðä. ]![
### Èíæåêò ñîîáùèò âàì ÷òî "Ïûòàåìñÿ óéòè â õàéä..." òîåñòü ÷àð óéäåò â õàéä.
### ×àð àâòîìàòîì âîçìåò â ðóêè êèðêó è íà÷íåò "îêàïàâàòñÿ".
### Åñëè âûêîïàëè Ýëåìåíòàëà òî ñêðèïò âêëþ÷èò "ñåðåíó" è âñòàíåò íà ïàóçó ïîêà âû ïðîñòî íå ñêàæèòå "GO".(òàê êàê âû â õàéäå)
### Åñëè ïîÿâèëñÿ ÏÊ òî ÷àð çàðåêîëèòñÿ ê ñóíäóêó (ïî ðóíêå, òàê êàê íà ÄРðåêîë ÷åðåç ðóíáóê 8,7 ñåê, à ïî ðóíêå 2,3 ñåê)
### âûêèíåò ðóäó â ñóíäóê è áóäåò æäàòü îïðåäåëåííîå âðåìÿ êîòîðîå âû ïîñòàâèòå â ñêðèïòå.
###
### ×òîáû âñå çàðàáîòàëî â ñêðèïòå ïîñòàâòå ñâîè çíà÷åíèÿ:
### var WaitTime=60000 - Âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ. [ñòðîêà 153]
###
###################################
### Ðåæèì Âòîðîé - "Ñóïîðò" ###
###################################
### "DropOres()"
### Ýòîò ñêðèïò îòâå÷àåò çà ñáðîñ ðóäû â ñóíäóê.
### Ïîñëå "ðåêîëà" äîìîé ÷àð ïðè ïîìîùè ýòîãî ñêðèïòà ñáðîñèò ðóäó â ñóíäóê (ëó÷øå â ñåéô).
### var UnloadCont='0x40236BCC' - ID ñóíäóêà äëÿ ñáðîñà ðóäû, ïîñòàâòå ñâîé. [ñòðîêà 196]
###
### "PKDanger()"
### Ñêðèïò "ñïàñàòåëü", îòâå÷àåò çà ðåêîë ïî ëþáîé ðóíêå ó âàñ â ïàêå + ðåãè (âêëþ÷àåòñÿ åñëè ïðåøåë ÏÊ)
### áóäåò ïûòàòñÿ ðåêîëèòñÿ ïîêà íå "óëåòèò" èç ïåùåðû (çàùèòà îò ôèçëà).
###
### "ElementalDanger()"
### Ñêðèïòà ïàóçà åñëè âûêîïàëè Ýëåìåíòàëà.
### Åñëè âû âûêîïàëè Ýëåìåíòàëà ñêðèïò êàê áû "çàâèñíåò"(âñòàíåò íà ïàóçó) çà ýòî âðåìÿ âû ìîæåòå óáèòü Ýëåìåíòàëà,
### ïðèâðàòèâøèñü â Äåìîíà èëè ïðèâåñòè Äðàêîíà.
### Ïîñëå ïðîñòî ñêàæèòå â èãðå "GO" è ÷àð ïðîäîëæèò êîïàòü.
###
### "ElementalAlarmSound() è PKAlarmSound()"
### Ñêðèïòû "ñèðåíû" îòâå÷àþò çà ïðîèãðîâàíèå Çâóêîâûõ ôàéëîâ (wav) ïðè âûêàïûâàíèè ýëåìà èëè ïîÿëåíèè ÏÊ
### uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav") - óêàæèòå íà ïðèìåðå ýòîãî ïóòü ê ñâîèì ôàéëàì. [ñòðî÷êè 239 è 243]
###
######################################
### Äîïîëíèòåëüíûå ôóíêöèè ñêðèïòà ###
######################################
### Â ñêðèïòå 3 äîï. ôóíêöèè: ###
### 1)Ïîáåã ïðè Ïîÿâëåíèè ÏÊ ###
### 2)Ïàóçà ïðè Âûêàïûâàíèè Ýëåìà ###
### 3)Ðåêîííåêò ###
#################################################
### Ôóíêöèÿ Ïåðâàÿ - "Ïîáåã ïðè Ïîÿâëåíèè ÏÊ" ###
#################################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ïîáåã ïðè ïîÿâëåíèè ïê.
###
### Ïîáåã ïðîèñõîäèò òàê:
### Çàìàð÷èòå Ðóíó âîçëå ñóíäóêà.
### Ïîëîæèòå ê ñåáå â ñóìêó
### Ðóíó(êîòîðóþ çàìàð÷èëè) è Ðåàãåíòû.(Black Pearls,Blood Moss,Mandrake Root.)
### ]![ Âíèìàíèå ðóíà äîëæíà ëåæàòü â ñòàíäàðòíîì ïîëîæåíèè(êàê ïðîäàåòñÿ, òîëüêî çàìàðêàííàÿ). ]![
### Ïðè ïîÿâëåíèè ïê,ïðîçâó÷èò ñèãíàë-
### uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav")
### - Çäåñü ìîæåòå ñìåíèòü ÷òîáû áûë çâóê ïðè ïîÿâëåíèè ÏÊ.
### ÷àð àâòîìàòè÷åñêè òåëåïîðòíåòñÿ ê ñóíäóêó.
### Ïðè ýòîì âûëîæèò âñþ ðóäó â ñóíäóê è áóäåò "æäàòü"
### âðåìÿ êîòîðîå âû óêàçàëè â ïåðåìåííîé - var WaitTime=18000.
### ×àð ïîäîæäåò óêàçàííîå âðåìÿ à ïîòîì ïîðòàíåòñÿ îáðàòíî, âñòàíåò â õàéä è ïðîäîëæèò êîïàòü.
###
######################################################
### Ôóíêöèÿ Âòîðàÿ - "Ïàóçà ïðè Âûêàïûâàíèè Ýëåìà" ###
######################################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ïàóçó ïðè âûêàïûâàíèè Çëåìåíòàëà.
### Âêëþ÷àåòñÿ ïåðåìåííîé var ElementalPause=1 ## 1 - Âêëþ÷èòü ïàóçó ïðè âûêàïûâàíèè Ýëåìåíòàëà, 0 - âûêëþ÷èòü.
### Òî åñòü åñëè ElementalPause=1 ñêðèïò áóäåò âñòàâàòü íà ïàóçó.
###
### Ïðè ïàóçå:
### Ïîñòàâòå ïåðåìåííóþ ElementalPause ðàâíóþ 1 (ElementalPause=1).
### Åñëè ÷àð âûêîïàåò ýëåìà,òî ïðîçâó÷èò ñèãíàë êîòîðûé âû óêàçàëè -
### uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav")
### - Çäåñü ìîæåòå ñìåíèòü ÷òîáû áûë çâóê ïðè âûêàïûâàíèè Ýëåìåíòàëà.
### è ñêðèïò âñòàíåò íà ïàóçó äî òîãî âðåìåíè êàê âû íåíàïèøèòå â èãðå "GO".
### Ïîñëå òîãî êàê âû íàïèøèòå "GO" ÷àð ïðîäîëæèò êîïàòü.
###
####################################
### Ôóíêöèÿ Òðåòüÿ - "Ðåêîííåêò" ###
####################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ðåêîííåêò ïðè âûêèäûâàíèè ñ ñåðâåðà.
### Âêëþ÷àåòñÿ ïåðåìåííîé var Reconnect=0 ## 1 - Âêëþ÷èòü ðåêîííåêò íà ñåðâåð åñëè âûêèíåò, 0 - îòêëþ÷èòü ðåêîííåêò.
### Òî åñòü åñëè Reconnect=1 ÷àð áóäåò ðåêîëèòüñÿ ïðè àòàêå.
###
### Ðåêîííåêò ïðîèñõîäèò òàê:
### Ïîñòàâòå ïåðåìåííóþ Reconnect ðàâíóþ 1 (Reconnect=1).
### Åñëè âäðóã ïîâèñíåò èãðîâàÿ ñôåðà èëè âàñ âûêèíåò ïî ëþáîé äðóãîé ïðè÷èíå
### ðåêîííåêòîð çàêîííåêòèò âñà íà ñåðâåð àâòîìàòè÷åñêè.
### Ïèøåòñÿ âðåìÿ äèñêîííåêòà è êîííåêòà íà ñåðâåð.
###
### Íàñòðîéòå ñêðèïò ïîä ñåáÿ ïðè ïîìîùè ïåðåìåííûõ.
###
#####################
### Ïàò÷è Âåðäàòû ###
#####################
### Ñäåñü ÿ ïðèâåäó ïàðó ññûëîê íà ïàò÷è êîòîðûå ïîìîãóò âàì êîïàòü:
###
### 1)cave floor - äëÿ òåõ êòî ïðåäïî÷èòàåò êîïàòü âðó÷íóþ, ýòîò ôàéë-ïàò÷ îòäåëÿåò òàéëû â ïåùåðàõ äðóã îò äðóãà,
### ÷òî ïðèâîäèò ê áîëåå êîìôîðòàáåëüíîìó êîïàíèþ.
### Ëèíê(ññûëêà):
### www.drguild.fatal.ru/files/verdata/cavefloor.exe
###
### 2)clean dungeons - â ïåùåðàõ è ïîäçåìåëüÿõ íå âèäåí âñÿêèé ìóñîð, êàê òî: êîñòè, ìóñîð, áîëüøàÿ ïàóòèíà,
### âñå ñòàëàãìèòû çàìåíåíû íà ìàëåíüêèå è ò.ä.
### Ëèíê(ññûëêà):
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe
###
### 3)ore mod - áîëüøîå êîëè÷åñòâî ðóäû (áîëüøå 4 øò.) âûãëÿäèò êàê ìàëåíüêàÿ êó÷êà (3 øò.),
### à èçîáðàæåíèå ðóäû â êîëè÷åñòâå îäíîé è äâóõ øòóê óìåíüøåíî.
### Ëèíê(ññûëêà):
### www.drguild.fatal.ru/files/verdata/ore.exe
###
### Âñå ïàò÷è ïðîâåðåíû è ïðîòåñòåíû, íî ñêðèïò ðàáîòàåò è áåç íèõ, òàê ÷òî ñòàâèòü èëè íåò - ýòî âàøå ðåøåíèå.
###
### Óäà÷è è ïðèÿòíîãî Ìèíèíãà.
#####################################################################
##################
### Ïåðåìåííûå ###
##################
### var TryToHide=1 ## - 1 - Âêëþ÷èòü óõîä â õàéä ïåðåä êîïàíèåì, 0 - âûêëþ÷èòü(ñîâåòóþ âêëþ÷èòü ).
### var WaitTime=210 ## - Âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ
### (ñòàâüòå ñêîêà ñ÷èòàåòå íóæíûì, âðåìÿ â ñåêóíäàõ).
### var MaxWeight=600 ## - Âåñ ïðè êîòîðîì ðåêîëèìñÿ äîìîé(êàê òîêà íàêîïàåò ðóäû äî ýòîãî âåñà ðåêîëèòñÿ,
### ñòàâüòå ìàêñèìàëüíûé âåñ êîòîðûé ìîæåò óíåñòè ÷àð).
###
### Ïîñëå íàñòðîéêè:
### Èäèòå â øàõòó â êîòîðîé âû õîòèòå êîïàòü.
### Çàïóñòèòå cêðèïò Mining(), Èíæåêò ïîïðîñèò âàñ óêàçàòü Ëîïàòó
### (ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà ëîïàòó êîòîðûé âû ñ ñîáîé âçÿëè), ïîòîì èíæåêò ïîïðîñèò âàñ óêàçàòü Ðóíáóê(ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà íåãî).
### Ïîñëå ýòîãî ÷àð "óéäåò" â õàéä è áóäåò êîïàòü âîêðóã ñåáÿ.
###########
### Êîä ###
###########
sub Mining()
var mX, mY, mZ, i, j, jor, ser, noto
######################
### Ìåíþ / Options ###
######################
#################################################################################
###
var TryToHide=1 ## - 1 - Âêëþ÷èòü óõîä â õàéä ïåðåä êîïàíèåì, 0 - âûêëþ÷èòü.
###
var WaitTime=250 ## - Âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ.
###
var MaxWeight=500 ## - Âåñ ïðè êîòîðîì ðåêîëèìñÿ äîìîé.(Ìàêñèìàëüíûé âåñ)
###
var Reconnect=1 ## 1 - Âêëþ÷èòü ðåêîííåêò íà ñôåðó ïðè äèñêîííåêòå, 0 - âûêëþ÷èòü.
###
var ElementalPause=0 ## 1 - Âêëþ÷èòü ïàóçó ïðè âûêàïûâàíèè Ýëåìåíòàëà, 0 - âûêëþ÷èòü.
###
uo.Set('norbcheck','1') ## - Äëÿ ðåêîëà.
###
uo.Set('norbcalc','1') ## - Äëÿ ðåêîëà.
###
#################################################################################
uo.Print('Âûáåðè Ëîïàòó: ')
uo.Exec('addobject Shovel')
while uo.Targeting()
wait(100)
wend
uo.Print('Âûáåðè Ðóíáóê: ')
uo.Exec('addobject Runebook')
while uo.Targeting()
wait(100)
wend
if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
beginning:
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.GetZ("self")
uo.DeleteJournal()
for i = mX-4 to mX+4
for j = mY-4 to mY+4
if TryToHide==1 then
ToHide()
end if
uo.Print("Êîïàåì â êîîðäèíàòàõ: "+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("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
uo.DeleteJournal()
if uo.Waiting() then
uo.Canceltarget()
end if
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Useobject("Shovel")
while not uo.InJournal("You put") and not uo.InJournal("heavy") and not uo.InJournal("location") and not uo.InJournal("no ore") and not uo.InJournal("but fail") and not uo.InJournal("far away") and not uo.InJournal("in rock")
wait(500)
if ElementalPause==1 then
if uo.InJournal("OOPS !!!") or uo.InJournal("is attacking you") or uo.Dead() then
ElementalAlarmSound()
ElementalDanger()
end if
end if
for jor = 0 to 9
ser = uo.JournalSerial(jor)
noto = uo.GetNotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.InJournal("Elemental") and not uo.InJournal("Giant Spider") then
if uo.Waiting() then
uo.CancelTarget()
endif
PKAlarmSound()
PKDanger()
wait(WaitTime)
DropOres()
wait(3000)
goto reccal
end if
next
wend
if uo.Weight>MaxWeight then
goto end
end if
wend
uo.DeleteJournal()
next
next
goto beginning
end:
if uo.Waiting() then
uo.CancelTarget()
end if
uo.Print('Ïðûãàåì Äîìîé.')
uo.Exec('recall Runebook 21')
wait(10000)
DropOres()
wait(3000)
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
uo.Print('Ïðûãàåì â Øàõòó.')
uo.Exec('recall Runebook 1025')
mX = uo.getX("self")
mY = uo.getY("self")
wait(10000)
if not uo.getX("self") <> mX and not uo.getY("self") <> mY then
goto reccal
end if
goto beginning
end sub
sub ToHide()
while not uo.Hidden()
uo.Print('Ïûòàåìñÿ óéòè â õàéä...')
uo.DeleteJournal()
uo.UseSkill('Hiding')
wait(4000)
wend
wait(100)
end sub
sub DropOres()
if uo.Waiting() then
uo.CancelTarget()
end if
UO.Useobject('0x401DB4AA')
checklag()
var a, Exit
var UnloadChest='0x4023E0B7' ## - ID ñóíäóêà äëÿ ñáðîñà ðóäû.
DIM Ore[5]
Ore[0]=0x19B9 ## - 4 and more ore
Ore[1]=0x19B7 ## - 1 ore
Ore[2]=0x19BA ## - 2 ore
Ore[3]=0x19B8 ## - 3 ore
uo.SetReceivingContainer(UnloadChest)
wait(500)
for a=0 to 3
exit=0
repeat
uo.FindType(Ore[a])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer()
end sub
sub PKDanger()
var mX, mY
Var Type='0x0F0E'
Var Color='0x0631'
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
wait(100)
reccal:
mX = uo.getX("self")
mY = uo.getY("self")
uo.DeleteJournal()
uo.Print('ÏÊ! Ðåêîëèìñÿ!')
uo.Exec('recall Runebook 21')
wait(10000)
if not uo.getX("self") <> mX and not uo.getY("self") <> mY then
goto reccal
end if
end sub
sub PKAlarmSound()
uo.PlayWav("C:\2.wav")
wait(30000)
end sub
sub ElementalDanger()
uo.DeleteJournal()
repeat
wait(1000)
uo.Print('Âûêîïàí Ýëåìåíòàë!')
wait(3000)
uo.Print('Ñêðèïò íà ïàóçå!')
until uo.InJournal('GO')
uo.Print('Ñêðèïò ïðîäîëæåí!')
end if
end sub
sub ElementalAlarmSound()
uo.DeleteJournal()
repeat
uo.PlayWav("C:\2.wav")
wait(30000)
until uo.InJournal('GO')
uo.Print('Ñêðèïò ïðîäîëæåí!')
end if
end sub
sub Reconnect()
var reconnectTime, rFlag
reconnectTime = '0'
rFlag = 1
repeat
while (uo.ObjAtLayer('Bpack') == '')
if rFlag then
reconnectTime = MakeTime()
rFlag = 0
endif
wait(20000) ## - WorldSave.
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag == 0) and (reconnectTime <> '0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+reconnectTime)
rFlag = 1
reconnectTime = '0'
end if
until false
end sub
sub MakeTime()
var d, t, ret, i
ret = str(uo.Time())
t = ""
for i = 0 to Len(ret)
t = ret[Len(ret)-i] + t
if (i == 2) or (i == 4) then
t = ":" + t
end if
next
ret = str(uo.Date())
d = ""
for i = 0 to Len(ret)
d = ret[Len(ret)-i] + d
if (i == 2) or (I == 4) then
d = "." + d
end if
next
ret = t + " @ " + d
return ret
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
endsub
############################################
### Mining / Êîïàíèå ðóäû v3.7 Full ###
############################################
### Øàðä Dragon World / www.drw.ru ###
############################################
### Âíèìàíèå:
### Äëÿ ðàáîòû ñêðèïòà íóæíà âåðñèÿ YokoInjection 4DZ.
### Ñêà÷àòü dll ýòîé âåðñèè ìîæíî
### îò ñþäà: www.swines.nm.ru/injection.zip
##########################################################
### Àâòîðû:
### - BETEPAH ðåàâòîð, ãëàâíûé ñêðèïòåð.
### - cOoler äîáàâëÿë, ðåäàêòèðîâàë ïåðåâîä è ñêðèïò.
### À òàêæå:
### -Áîëüøîå Savage, çà ñèñòåìó ñáðîñà ðóäû.
############################################
#############################
### Îïèñàíèå è íàñòðîéêà ###
#############################
### Îáðàòèòå âíèìàíèå íà çíà÷êè "]![" èìè âûäåëåííû âàæíûå ñîîáùåíèÿ.
###
### ×àð ñòîèò â ïåùåðå(íå Vip) è êîïàåò âîêðóã ñåáÿ.
### Ïîñëå äîñòèæåíèÿ "ìàêñèìàëüíîãî" âåñà(â äàííîì ñëó÷èå ýòî 625 ñòîóíîâ)
### "ïîðòàëèòñÿ" äîìîé ñêèäûâàåò ðóäó â ñóíäóê, ïîñëå ðåêîëèòñÿ îáðàòíî è ïðîäîëæàåò êîïàòü.
### Ïðèìåð: ñòîèòå êîïàåòå, äîøëè äî ïðèäåëà â 625 âåñà ñðàáîòàëà ñèñòåìà ðåêîëà
### è âû "ïîðòàëèòåñü" äîìîé è ñêëàäûâàåòå ðóäó â ñóíäóê,ïîñëå âû ðåêîëèòåñü îáðàòíî â ïåùåðó è ïðîäîëæàåòå êîïàòü(öèêëè÷íîñòü).
###
####################
### Íîâîââåäåíèÿ ###
####################
### 1)Ðóäà ñêëàäûâàþòñÿ íå íà ïîë à â ñóíäóê. [BETEPAH]
### 2)Ðåêîë â ïåùåðó è äîìîé ïî ðóíáóêå(à íå ïî ðóíêàì). [BETEPAH]
### 3)Ñèñòåìà ñáðîñà ðóäû ïåðåäåëàíà èç MassMove(÷òî â ñâîþ î÷åðåäü èíîãäà ïðèïèñûâàëîñü êàê ôàñò ëóò)â ïåðåìåùåíèå ÷åðåç
### Ìàñèâ.[íàïèñàíà Savage, âñòðîåíà BETEPAH]
### 4)Óïðàçíåíà ñèñòåìà âûáîðà "ãëàâíûõ îáüåêòîâ"(òåïåðü ïðîñòî óêàçûâàåì ïðèöåëîì). [BETEPAH]
### 5)Äîáàâëåí ðåêîííåêò è âûáîð åãî èñïîëüçîâàíèÿ. [Fox M, ïîìåñòèë COoler]
### 6)Óïðàçäíåíà óñòàíîâêà âåñà è âðåìÿ(ïîêà óéäåò ÏÊ). [cOoler]
### 7)Äîáàâëåí âûáîð ñòàâèòü èëè íåò ñêðèïò íà ïàóçó ïðè âûêîïêå Ýëåìåíòàëà. [cOoler]
### Óáûñòðåí ðåêîë ïî ðóíå(îò ÏÊ). [cOoler]
###
### ]![ ×òîáû ñêðèïò çàðàáîòàë âíèìàòåëüíî ïðî÷òèòå íàñòðîéêè. ]![
###
###################################
### Ðåæèìû ðàáîòû ñêðèïòà ###
###################################
### Ðàáîòàåò â 2óõ ðåæèìàõ: ###
### 1)Êîïàíèå ###
### 2)Ñóïîðò ###
###################################
### Ðåæèì Ïåðâûé - "Êîïàíèå" ###
###################################
### "sub Mining()"
### Ýòîò ðåæèì ãëàâíûé è îòâå÷àåò çà êîïàíèå.
###
### Ïîëîæèòå â ñóììêó ê ñåáå ðóíáóê(ñ ðóíàìè äîìîé è â øàõòó), êèðêó èëè ëîïàòó, ðóíêó ê ñóíäóêó(ïî ñóòå êîïèÿ òîé ÷òî ó âàñ
### â ðóíáóêå).
### Èäèòå â ïåùåðó â êîòîðîì âû õîòèòå êîïàòü.
### Çàïóñòèòå Ñêðèïò Mining(), èíæåêò ïîïðîñèò âàñ óêàçàòü êèðêó
### (ïîÿâèòñÿ ïðèöåë,ïðèöåëîì íà êèðêó êîòîðóþ âû ñ ñîáîé âçÿëè), ïîòîì èíæåêò ïîïðîñèò âàñ óêàçàòü ðóíáóê(ïîÿâèòñÿ ïðèöåë,
### ïðèöåëîì íà ðóíáóê ).
### ]![ Âíèìàíèå!!! Â ðóíáóêå ðóíà â 1îì ñëîòå "Äîìîé", â 8îì "â Øàõòó". ]![
### ]![ Âíèìàíèå â ñêðèïòå ðóíáóêè íàñòðîåíû ïîä ÄÐÂ øàðä. ]![
### Èíæåêò ñîîáùèò âàì ÷òî "Ïûòàåìñÿ óéòè â õàéä..." òîåñòü ÷àð óéäåò â õàéä.
### ×àð àâòîìàòîì âîçìåò â ðóêè êèðêó è íà÷íåò "îêàïàâàòñÿ".
### Åñëè âûêîïàëè Ýëåìåíòàëà òî ñêðèïò âêëþ÷èò "ñåðåíó" è âñòàíåò íà ïàóçó ïîêà âû ïðîñòî íå ñêàæèòå "GO".(òàê êàê âû â õàéäå)
### Åñëè ïîÿâèëñÿ ÏÊ òî ÷àð çàðåêîëèòñÿ ê ñóíäóêó (ïî ðóíêå, òàê êàê íà ÄРðåêîë ÷åðåç ðóíáóê 8,7 ñåê, à ïî ðóíêå 2,3 ñåê)
### âûêèíåò ðóäó â ñóíäóê è áóäåò æäàòü îïðåäåëåííîå âðåìÿ êîòîðîå âû ïîñòàâèòå â ñêðèïòå.
###
### ×òîáû âñå çàðàáîòàëî â ñêðèïòå ïîñòàâòå ñâîè çíà÷åíèÿ:
### var WaitTime=60000 - Âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ. [ñòðîêà 153]
###
###################################
### Ðåæèì Âòîðîé - "Ñóïîðò" ###
###################################
### "DropOres()"
### Ýòîò ñêðèïò îòâå÷àåò çà ñáðîñ ðóäû â ñóíäóê.
### Ïîñëå "ðåêîëà" äîìîé ÷àð ïðè ïîìîùè ýòîãî ñêðèïòà ñáðîñèò ðóäó â ñóíäóê (ëó÷øå â ñåéô).
### var UnloadCont='0x40236BCC' - ID ñóíäóêà äëÿ ñáðîñà ðóäû, ïîñòàâòå ñâîé. [ñòðîêà 196]
###
### "PKDanger()"
### Ñêðèïò "ñïàñàòåëü", îòâå÷àåò çà ðåêîë ïî ëþáîé ðóíêå ó âàñ â ïàêå + ðåãè (âêëþ÷àåòñÿ åñëè ïðåøåë ÏÊ)
### áóäåò ïûòàòñÿ ðåêîëèòñÿ ïîêà íå "óëåòèò" èç ïåùåðû (çàùèòà îò ôèçëà).
###
### "ElementalDanger()"
### Ñêðèïòà ïàóçà åñëè âûêîïàëè Ýëåìåíòàëà.
### Åñëè âû âûêîïàëè Ýëåìåíòàëà ñêðèïò êàê áû "çàâèñíåò"(âñòàíåò íà ïàóçó) çà ýòî âðåìÿ âû ìîæåòå óáèòü Ýëåìåíòàëà,
### ïðèâðàòèâøèñü â Äåìîíà èëè ïðèâåñòè Äðàêîíà.
### Ïîñëå ïðîñòî ñêàæèòå â èãðå "GO" è ÷àð ïðîäîëæèò êîïàòü.
###
### "ElementalAlarmSound() è PKAlarmSound()"
### Ñêðèïòû "ñèðåíû" îòâå÷àþò çà ïðîèãðîâàíèå Çâóêîâûõ ôàéëîâ (wav) ïðè âûêàïûâàíèè ýëåìà èëè ïîÿëåíèè ÏÊ
### uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav") - óêàæèòå íà ïðèìåðå ýòîãî ïóòü ê ñâîèì ôàéëàì. [ñòðî÷êè 239 è 243]
###
######################################
### Äîïîëíèòåëüíûå ôóíêöèè ñêðèïòà ###
######################################
### Â ñêðèïòå 3 äîï. ôóíêöèè: ###
### 1)Ïîáåã ïðè Ïîÿâëåíèè ÏÊ ###
### 2)Ïàóçà ïðè Âûêàïûâàíèè Ýëåìà ###
### 3)Ðåêîííåêò ###
#################################################
### Ôóíêöèÿ Ïåðâàÿ - "Ïîáåã ïðè Ïîÿâëåíèè ÏÊ" ###
#################################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ïîáåã ïðè ïîÿâëåíèè ïê.
###
### Ïîáåã ïðîèñõîäèò òàê:
### Çàìàð÷èòå Ðóíó âîçëå ñóíäóêà.
### Ïîëîæèòå ê ñåáå â ñóìêó
### Ðóíó(êîòîðóþ çàìàð÷èëè) è Ðåàãåíòû.(Black Pearls,Blood Moss,Mandrake Root.)
### ]![ Âíèìàíèå ðóíà äîëæíà ëåæàòü â ñòàíäàðòíîì ïîëîæåíèè(êàê ïðîäàåòñÿ, òîëüêî çàìàðêàííàÿ). ]![
### Ïðè ïîÿâëåíèè ïê,ïðîçâó÷èò ñèãíàë-
### uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav")
### - Çäåñü ìîæåòå ñìåíèòü ÷òîáû áûë çâóê ïðè ïîÿâëåíèè ÏÊ.
### ÷àð àâòîìàòè÷åñêè òåëåïîðòíåòñÿ ê ñóíäóêó.
### Ïðè ýòîì âûëîæèò âñþ ðóäó â ñóíäóê è áóäåò "æäàòü"
### âðåìÿ êîòîðîå âû óêàçàëè â ïåðåìåííîé - var WaitTime=18000.
### ×àð ïîäîæäåò óêàçàííîå âðåìÿ à ïîòîì ïîðòàíåòñÿ îáðàòíî, âñòàíåò â õàéä è ïðîäîëæèò êîïàòü.
###
######################################################
### Ôóíêöèÿ Âòîðàÿ - "Ïàóçà ïðè Âûêàïûâàíèè Ýëåìà" ###
######################################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ïàóçó ïðè âûêàïûâàíèè Çëåìåíòàëà.
### Âêëþ÷àåòñÿ ïåðåìåííîé var ElementalPause=1 ## 1 - Âêëþ÷èòü ïàóçó ïðè âûêàïûâàíèè Ýëåìåíòàëà, 0 - âûêëþ÷èòü.
### Òî åñòü åñëè ElementalPause=1 ñêðèïò áóäåò âñòàâàòü íà ïàóçó.
###
### Ïðè ïàóçå:
### Ïîñòàâòå ïåðåìåííóþ ElementalPause ðàâíóþ 1 (ElementalPause=1).
### Åñëè ÷àð âûêîïàåò ýëåìà,òî ïðîçâó÷èò ñèãíàë êîòîðûé âû óêàçàëè -
### uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav")
### - Çäåñü ìîæåòå ñìåíèòü ÷òîáû áûë çâóê ïðè âûêàïûâàíèè Ýëåìåíòàëà.
### è ñêðèïò âñòàíåò íà ïàóçó äî òîãî âðåìåíè êàê âû íåíàïèøèòå â èãðå "GO".
### Ïîñëå òîãî êàê âû íàïèøèòå "GO" ÷àð ïðîäîëæèò êîïàòü.
###
####################################
### Ôóíêöèÿ Òðåòüÿ - "Ðåêîííåêò" ###
####################################
### Ýòîò ðåæèì ñîîòâåòñòâåííî îòâå÷àåò çà Ðåêîííåêò ïðè âûêèäûâàíèè ñ ñåðâåðà.
### Âêëþ÷àåòñÿ ïåðåìåííîé var Reconnect=0 ## 1 - Âêëþ÷èòü ðåêîííåêò íà ñåðâåð åñëè âûêèíåò, 0 - îòêëþ÷èòü ðåêîííåêò.
### Òî åñòü åñëè Reconnect=1 ÷àð áóäåò ðåêîëèòüñÿ ïðè àòàêå.
###
### Ðåêîííåêò ïðîèñõîäèò òàê:
### Ïîñòàâòå ïåðåìåííóþ Reconnect ðàâíóþ 1 (Reconnect=1).
### Åñëè âäðóã ïîâèñíåò èãðîâàÿ ñôåðà èëè âàñ âûêèíåò ïî ëþáîé äðóãîé ïðè÷èíå
### ðåêîííåêòîð çàêîííåêòèò âñà íà ñåðâåð àâòîìàòè÷åñêè.
### Ïèøåòñÿ âðåìÿ äèñêîííåêòà è êîííåêòà íà ñåðâåð.
###
### Íàñòðîéòå ñêðèïò ïîä ñåáÿ ïðè ïîìîùè ïåðåìåííûõ.
###
#####################
### Ïàò÷è Âåðäàòû ###
#####################
### Ñäåñü ÿ ïðèâåäó ïàðó ññûëîê íà ïàò÷è êîòîðûå ïîìîãóò âàì êîïàòü:
###
### 1)cave floor - äëÿ òåõ êòî ïðåäïî÷èòàåò êîïàòü âðó÷íóþ, ýòîò ôàéë-ïàò÷ îòäåëÿåò òàéëû â ïåùåðàõ äðóã îò äðóãà,
### ÷òî ïðèâîäèò ê áîëåå êîìôîðòàáåëüíîìó êîïàíèþ.
### Ëèíê(ññûëêà):
### www.drguild.fatal.ru/files/verdata/cavefloor.exe
###
### 2)clean dungeons - â ïåùåðàõ è ïîäçåìåëüÿõ íå âèäåí âñÿêèé ìóñîð, êàê òî: êîñòè, ìóñîð, áîëüøàÿ ïàóòèíà,
### âñå ñòàëàãìèòû çàìåíåíû íà ìàëåíüêèå è ò.ä.
### Ëèíê(ññûëêà):
### www.drguild.fatal.ru/files/verdata/cleandungeons.exe
###
### 3)ore mod - áîëüøîå êîëè÷åñòâî ðóäû (áîëüøå 4 øò.) âûãëÿäèò êàê ìàëåíüêàÿ êó÷êà (3 øò.),
### à èçîáðàæåíèå ðóäû â êîëè÷åñòâå îäíîé è äâóõ øòóê óìåíüøåíî.
### Ëèíê(ññûëêà):
### www.drguild.fatal.ru/files/verdata/ore.exe
###
### Âñå ïàò÷è ïðîâåðåíû è ïðîòåñòåíû, íî ñêðèïò ðàáîòàåò è áåç íèõ, òàê ÷òî ñòàâèòü èëè íåò - ýòî âàøå ðåøåíèå.
###
### Óäà÷è è ïðèÿòíîãî Ìèíèíãà.
#####################################################################
##################
### Ïåðåìåííûå ###
##################
### var TryToHide=1 ## - 1 - Âêëþ÷èòü óõîä â õàéä ïåðåä êîïàíèåì, 0 - âûêëþ÷èòü(ñîâåòóþ âêëþ÷èòü ).
### var WaitTime=210 ## - Âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ
### (ñòàâüòå ñêîêà ñ÷èòàåòå íóæíûì, âðåìÿ â ñåêóíäàõ).
### var MaxWeight=600 ## - Âåñ ïðè êîòîðîì ðåêîëèìñÿ äîìîé(êàê òîêà íàêîïàåò ðóäû äî ýòîãî âåñà ðåêîëèòñÿ,
### ñòàâüòå ìàêñèìàëüíûé âåñ êîòîðûé ìîæåò óíåñòè ÷àð).
###
### Ïîñëå íàñòðîéêè:
### Èäèòå â øàõòó â êîòîðîé âû õîòèòå êîïàòü.
### Çàïóñòèòå cêðèïò Mining(), Èíæåêò ïîïðîñèò âàñ óêàçàòü Ëîïàòó
### (ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà ëîïàòó êîòîðûé âû ñ ñîáîé âçÿëè), ïîòîì èíæåêò ïîïðîñèò âàñ óêàçàòü Ðóíáóê(ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà íåãî).
### Ïîñëå ýòîãî ÷àð "óéäåò" â õàéä è áóäåò êîïàòü âîêðóã ñåáÿ.
###########
### Êîä ###
###########
sub Mining()
var mX, mY, mZ, i, j, jor, ser, noto
######################
### Ìåíþ / Options ###
######################
#################################################################################
###
var TryToHide=1 ## - 1 - Âêëþ÷èòü óõîä â õàéä ïåðåä êîïàíèåì, 0 - âûêëþ÷èòü.
###
var WaitTime=250 ## - Âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ.
###
var MaxWeight=500 ## - Âåñ ïðè êîòîðîì ðåêîëèìñÿ äîìîé.(Ìàêñèìàëüíûé âåñ)
###
var Reconnect=1 ## 1 - Âêëþ÷èòü ðåêîííåêò íà ñôåðó ïðè äèñêîííåêòå, 0 - âûêëþ÷èòü.
###
var ElementalPause=0 ## 1 - Âêëþ÷èòü ïàóçó ïðè âûêàïûâàíèè Ýëåìåíòàëà, 0 - âûêëþ÷èòü.
###
uo.Set('norbcheck','1') ## - Äëÿ ðåêîëà.
###
uo.Set('norbcalc','1') ## - Äëÿ ðåêîëà.
###
#################################################################################
uo.Print('Âûáåðè Ëîïàòó: ')
uo.Exec('addobject Shovel')
while uo.Targeting()
wait(100)
wend
uo.Print('Âûáåðè Ðóíáóê: ')
uo.Exec('addobject Runebook')
while uo.Targeting()
wait(100)
wend
if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
beginning:
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.GetZ("self")
uo.DeleteJournal()
for i = mX-4 to mX+4
for j = mY-4 to mY+4
if TryToHide==1 then
ToHide()
end if
uo.Print("Êîïàåì â êîîðäèíàòàõ: "+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("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
uo.DeleteJournal()
if uo.Waiting() then
uo.Canceltarget()
end if
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Useobject("Shovel")
while not uo.InJournal("You put") and not uo.InJournal("heavy") and not uo.InJournal("location") and not uo.InJournal("no ore") and not uo.InJournal("but fail") and not uo.InJournal("far away") and not uo.InJournal("in rock")
wait(500)
if ElementalPause==1 then
if uo.InJournal("OOPS !!!") or uo.InJournal("is attacking you") or uo.Dead() then
ElementalAlarmSound()
ElementalDanger()
end if
end if
for jor = 0 to 9
ser = uo.JournalSerial(jor)
noto = uo.GetNotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.InJournal("Elemental") and not uo.InJournal("Giant Spider") then
if uo.Waiting() then
uo.CancelTarget()
endif
PKAlarmSound()
PKDanger()
wait(WaitTime)
DropOres()
wait(3000)
goto reccal
end if
next
wend
if uo.Weight>MaxWeight then
goto end
end if
wend
uo.DeleteJournal()
next
next
goto beginning
end:
if uo.Waiting() then
uo.CancelTarget()
end if
uo.Print('Ïðûãàåì Äîìîé.')
uo.Exec('recall Runebook 21')
wait(10000)
DropOres()
wait(3000)
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
uo.Print('Ïðûãàåì â Øàõòó.')
uo.Exec('recall Runebook 1025')
mX = uo.getX("self")
mY = uo.getY("self")
wait(10000)
if not uo.getX("self") <> mX and not uo.getY("self") <> mY then
goto reccal
end if
goto beginning
end sub
sub ToHide()
while not uo.Hidden()
uo.Print('Ïûòàåìñÿ óéòè â õàéä...')
uo.DeleteJournal()
uo.UseSkill('Hiding')
wait(4000)
wend
wait(100)
end sub
sub DropOres()
if uo.Waiting() then
uo.CancelTarget()
end if
UO.Useobject('0x401DB4AA')
checklag()
var a, Exit
var UnloadChest='0x4023E0B7' ## - ID ñóíäóêà äëÿ ñáðîñà ðóäû.
DIM Ore[5]
Ore[0]=0x19B9 ## - 4 and more ore
Ore[1]=0x19B7 ## - 1 ore
Ore[2]=0x19BA ## - 2 ore
Ore[3]=0x19B8 ## - 3 ore
uo.SetReceivingContainer(UnloadChest)
wait(500)
for a=0 to 3
exit=0
repeat
uo.FindType(Ore[a])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer()
end sub
sub PKDanger()
var mX, mY
Var Type='0x0F0E'
Var Color='0x0631'
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
wait(100)
reccal:
mX = uo.getX("self")
mY = uo.getY("self")
uo.DeleteJournal()
uo.Print('ÏÊ! Ðåêîëèìñÿ!')
uo.Exec('recall Runebook 21')
wait(10000)
if not uo.getX("self") <> mX and not uo.getY("self") <> mY then
goto reccal
end if
end sub
sub PKAlarmSound()
uo.PlayWav("C:\2.wav")
wait(30000)
end sub
sub ElementalDanger()
uo.DeleteJournal()
repeat
wait(1000)
uo.Print('Âûêîïàí Ýëåìåíòàë!')
wait(3000)
uo.Print('Ñêðèïò íà ïàóçå!')
until uo.InJournal('GO')
uo.Print('Ñêðèïò ïðîäîëæåí!')
end if
end sub
sub ElementalAlarmSound()
uo.DeleteJournal()
repeat
uo.PlayWav("C:\2.wav")
wait(30000)
until uo.InJournal('GO')
uo.Print('Ñêðèïò ïðîäîëæåí!')
end if
end sub
sub Reconnect()
var reconnectTime, rFlag
reconnectTime = '0'
rFlag = 1
repeat
while (uo.ObjAtLayer('Bpack') == '')
if rFlag then
reconnectTime = MakeTime()
rFlag = 0
endif
wait(20000) ## - WorldSave.
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag == 0) and (reconnectTime <> '0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+reconnectTime)
rFlag = 1
reconnectTime = '0'
end if
until false
end sub
sub MakeTime()
var d, t, ret, i
ret = str(uo.Time())
t = ""
for i = 0 to Len(ret)
t = ret[Len(ret)-i] + t
if (i == 2) or (i == 4) then
t = ":" + t
end if
next
ret = str(uo.Date())
d = ""
for i = 0 to Len(ret)
d = ret[Len(ret)-i] + d
if (i == 2) or (I == 4) then
d = "." + d
end if
next
ret = t + " @ " + d
return ret
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
endsub