Yoko

All sides of Injection
https://yoko.uokit.com/

ламб+мин2

https://yoko.uokit.com/viewtopic.php?t=3208

Page 1 of 4

ламб+мин2

Posted: 2005-02-24 20:07:23
by Gromiz
Люди!! топик закрыли, а так и не помогли....помогите!!


--------------------------------------------------------------------------------

открылся новый шард: http://www.guo.nm.ru--Это резервный сайт!!
так вот на этом шарде как-то прикрыли скрипты на лумбер и мининг...
как они это сделали не знаю....может можно обойти эту систему как-нить?? ...а то копать и рубить руками...кхе...это жизни не хватит...

прошу откликнуться !! и помоч ...можете попробовать прям на самом шарде,...там введена авторегистрация -))

Posted: 2005-02-25 18:43:23
by Gromiz
что?? никто не знает ??

Posted: 2005-02-25 19:06:32
by I'm
Знаем :)
Ответ придет чуть попоже :)

Posted: 2005-02-25 19:08:39
by Gromiz
I'm wrote:Знаем :)
Ответ придет чуть попоже :)


оо..рулезьь...жду... :wink:

Posted: 2005-02-25 19:42:26
by I'm
В общем так тк я очень линивая личность и все такое.
Тебе необходимо заменить ряд сообщение на которые реагирует скрипт :)
Типо:

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 и продолжаю рыть :lol:

Posted: 2005-02-25 19:45:28
by Gromiz
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 и продолжаю рыть :lol:



а в какой скрпит втыкать-то ?? :roll:

Posted: 2005-02-25 19:57:44
by I'm
Gromiz wrote:а в какой скрпит втыкать-то ?? :roll:

Ну на пример в твой который якобы рабочий :lol:

Posted: 2005-02-25 20:01:10
by Gromiz
вот мой ..но он не пашет

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

Posted: 2005-02-25 20:07:55
by I'm
Тебе нужен этот кусок

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")

Posted: 2005-02-25 20:11:22
by Gromiz
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

Posted: 2005-02-25 20:16:45
by I'm
Что ты намекаеш мне что я промахнулся? :lol:
Фиг тебе я даж туда несмотрел :lol:
Найди в скрипте упоминания на все строки с EasyUO и замени их =)
P.S. EasyUO видел только раз в жизни, на второе свидание ненастаиваю :)

Posted: 2005-02-25 20:20:15
by Gromiz
I'm wrote:Что ты намекаеш мне что я промахнулся? :lol:
Фиг тебе я даж туда несмотрел :lol:
Найди в скрипте упоминания на все строки с EasyUO и замени их =)
P.S. EasyUO видел только раз в жизни, на второе свидание ненастаиваю :)


в скрипте нет EasyUO
и что ты хочешь сказать, ч о я :залетел, попал, обломался
как все плохо мле.....

Posted: 2005-02-25 20:22:30
by I'm
А ето что?

Code: Select all

While UO.GetEasyUO(99)=='1' 
wait(3000) 
Wend

Говорю чесно что с изей я пас.

Posted: 2005-02-25 20:28:10
by Gromiz
ну я то темболее...пас..я ваще не рулю..и не знаю что это такое!!!!

Posted: 2005-02-25 20:35:18
by I'm
Попробуй как я писал многим выше в предыдущем топике.
У меня работает :lol:
У кого не стояла изиуо, скопируйте это в 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"

Posted: 2005-02-25 20:38:53
by Gromiz
I'm wrote:Попробуй как я писал многим выше в предыдущем топике.
У меня работает :lol:
У кого не стояла изиуо, скопируйте это в 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"




ща попробую....погодь я качал с дрв инстал ульты ...там ничего не случиться??а то если накроет будет плохо

Posted: 2005-02-25 20:41:53
by I'm
Нет, неслучится.

Posted: 2005-02-25 20:44:53
by Gromiz
I'm wrote:Нет, неслучится.


у меня что-то такого файла нет...мож надо в uo.reg

Posted: 2005-02-25 20:54:35
by I'm
Создай его :lol:

Posted: 2005-02-25 20:58:18
by Gromiz
I'm wrote:Создай его :lol:

хмехно еслиб я знал как..это же не просто создать текстовый документ и запихнуть туда все.....
All times are UTC+02:00
Page 1 of 4

Powered by phpBB® Forum Software © phpBB Limited