Люди!! топик закрыли, а так и не помогли....помогите!!
--------------------------------------------------------------------------------
открылся новый шард: http://www.guo.nm.ru--Это резервный сайт!!
так вот на этом шарде как-то прикрыли скрипты на лумбер и мининг...
как они это сделали не знаю....может можно обойти эту систему как-нить?? ...а то копать и рубить руками...кхе...это жизни не хватит...
прошу откликнуться !! и помоч ...можете попробовать прям на самом шарде,...там введена авторегистрация -))
ламб+мин2
Moderators: Murderator+, Murderator
В общем так тк я очень линивая личность и все такое.
Тебе необходимо заменить ряд сообщение на которые реагирует скрипт
Типо:
На сообщения Готики.
Пример:
Я прорыл квадрат 2х2 и продолжаю рыть
Тебе необходимо заменить ряд сообщение на которые реагирует скрипт
Типо:
Code: Select all
"That is too far away."
"You can't reach this."
"You fail to find any useable ore"
"AbRaCaDaBrA ArBaDaCaRbA"
и другие....
На сообщения Готики.
Пример:
Code: Select all
"There is nothing here to mine for."
"You can't use the %s where it is."
Я прорыл квадрат 2х2 и продолжаю рыть
I'm wrote:В общем так тк я очень линивая личность и все такое.
Тебе необходимо заменить ряд сообщение на которые реагирует скрипт
Типо:Code: Select all
"That is too far away."
"You can't reach this."
"You fail to find any useable ore"
"AbRaCaDaBrA ArBaDaCaRbA"
и другие....
На сообщения Готики.
Пример:Code: Select all
"There is nothing here to mine for."
"You can't use the %s where it is."
Я прорыл квадрат 2х2 и продолжаю рыть
а в какой скрпит втыкать-то ??
вот мой ..но он не пашет
Code: Select all
sub main()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x400D47A7) # ID лопаты или, чем ты, там, копаешь
na4:
; gotoxy(5136,1181) #точка копки
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
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
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("in rock")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
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)
endif
wend
UO.DeleteJournal()
if uo.Weight>740 then # максимальный вес
loot()
goto na4
endif
next
next
until uo.dead()
end sub
sub unloadore()
VAR TempX,TempY,i,Exit
VAR UnloadX=5518, UnloadY=1434
VAR UnloadCont='0x401d7b11' # Ид сундука
DIM Ore[5]
TempX=UO.GetX()
TempY=UO.GetY()
While UO.GetEasyUO(99)=='1'
wait(3000)
Wend
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont) ; storecontainer
wait(500)
For i=0 to 3
Exit=0
repeat
UO.FindType(Ore[i])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
Тебе нужен этот кусок
Code: Select all
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
#...
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")
I'm wrote:Тебе нужен этот кусокCode: Select all
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
#...
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")
а что с этим куском делать ??
ведь у меня ошибка:
Error opening key
HKEY_CURRENT_USER\Software\EasyUO
I'm wrote:Что ты намекаеш мне что я промахнулся?
Фиг тебе я даж туда несмотрел
Найди в скрипте упоминания на все строки с EasyUO и замени их =)
P.S. EasyUO видел только раз в жизни, на второе свидание ненастаиваю
в скрипте нет EasyUO
и что ты хочешь сказать, ч о я :залетел, попал, обломался
как все плохо мле.....
А ето что?
Говорю чесно что с изей я пас.
Code: Select all
While UO.GetEasyUO(99)=='1'
wait(3000)
Wend
Говорю чесно что с изей я пас.
Попробуй как я писал многим выше в предыдущем топике.
У меня работает
У меня работает
У кого не стояла изиуо, скопируйте это в easy.reg файл
и запустите его.Code: Select all
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\EasyUO]
"WndData.Top"=dword:00000148
"WndData.Left"=dword:000000d1
"WndData.Height"=dword:0000015d
"WndData.Width"=dword:00000300
"WndData.Split"=dword:0000006d
"WndData.InitDir"=""
"WndData.StayOnTop"=dword:00000000
"WndData.PauseKey"=dword:0000000c
"WndData.PauseContinue"=dword:00000000
"Toolbar.Standard"=dword:00000001
"Variables.Show"=dword:00000000
"Variables.Standard"=dword:00000001
"Variables.User"=dword:00000000
"Variables.Defined"=""
"*99"="0"
"*1"="0"
"*0"="0"
"*2"="0"
I'm wrote:Попробуй как я писал многим выше в предыдущем топике.
У меня работаетУ кого не стояла изиуо, скопируйте это в easy.reg файл
и запустите его.Code: Select all
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\EasyUO]
"WndData.Top"=dword:00000148
"WndData.Left"=dword:000000d1
"WndData.Height"=dword:0000015d
"WndData.Width"=dword:00000300
"WndData.Split"=dword:0000006d
"WndData.InitDir"=""
"WndData.StayOnTop"=dword:00000000
"WndData.PauseKey"=dword:0000000c
"WndData.PauseContinue"=dword:00000000
"Toolbar.Standard"=dword:00000001
"Variables.Show"=dword:00000000
"Variables.Standard"=dword:00000001
"Variables.User"=dword:00000000
"Variables.Defined"=""
"*99"="0"
"*1"="0"
"*0"="0"
"*2"="0"
ща попробую....погодь я качал с дрв инстал ульты ...там ничего не случиться??а то если накроет будет плохо