Yoko :: ламб+мин2

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

ламб+мин2 http://forum.yoko.com.ua/viewtopic.php?f=20&t=3208	Page 1 of 4

Author:	Gromiz [ 2005-02-24 20:07:23 ]
Post subject:	ламб+мин2
Люди!! топик закрыли, а так и не помогли....помогите!! -------------------------------------------------------------------------------- открылся новый шард: http://www.guo.nm.ru--Это резервный сайт!! так вот на этом шарде как-то прикрыли скрипты на лумбер и мининг... как они это сделали не знаю....может можно обойти эту систему как-нить?? ...а то копать и рубить руками...кхе...это жизни не хватит... прошу откликнуться !! и помоч ...можете попробовать прям на самом шарде,...там введена авторегистрация -))

Author:	Gromiz [ 2005-02-25 18:43:23 ]
Post subject:
что?? никто не знает ??

Author:	I'm [ 2005-02-25 19:06:32 ]
Post subject:
Знаем Ответ придет чуть попоже

Author:	Gromiz [ 2005-02-25 19:08:39 ]
Post subject:
I'm wrote: Знаем Ответ придет чуть попоже оо..рулезьь...жду...

Author:

I'm [ 2005-02-25 19:42:26 ]

Post subject:

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

Типо:

Code:

"That is too far away." 
"You can't reach this." 
"You fail to find any useable ore" 
"AbRaCaDaBrA ArBaDaCaRbA" 
и другие....

На сообщения Готики.
Пример:

Code:

"There is nothing here to mine for."
"You can't use the %s where it is."

Я прорыл квадрат 2х2 и продолжаю рыть :lol:

Author:	Gromiz [ 2005-02-25 19:45:28 ]
Post subject:
I'm wrote: В общем так тк я очень линивая личность и все такое. Тебе необходимо заменить ряд сообщение на которые реагирует скрипт Типо: Code: "That is too far away." "You can't reach this." "You fail to find any useable ore" "AbRaCaDaBrA ArBaDaCaRbA" и другие.... На сообщения Готики. Пример: Code: "There is nothing here to mine for." "You can't use the %s where it is." Я прорыл квадрат 2х2 и продолжаю рыть а в какой скрпит втыкать-то ??

Author:	I'm [ 2005-02-25 19:57:44 ]
Post subject:
Gromiz wrote: а в какой скрпит втыкать-то ?? Ну на пример в твой который якобы рабочий

Author:

Gromiz [ 2005-02-25 20:01:10 ]

Post subject:

вот мой ..но он не пашет

Code:

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

Author:

I'm [ 2005-02-25 20:07:55 ]

Post subject:

Тебе нужен этот кусок

Code:

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

Author:

Gromiz [ 2005-02-25 20:11:22 ]

Post subject:

I'm wrote:

Тебе нужен этот кусок

Code:

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

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

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

Author:	I'm [ 2005-02-25 20:22:30 ]
Post subject:
А ето что? Code: While UO.GetEasyUO(99)=='1' wait(3000) Wend Говорю чесно что с изей я пас.

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

Author:

I'm [ 2005-02-25 20:35:18 ]

Post subject:

Попробуй как я писал многим выше в предыдущем топике.
У меня работает :lol:

Quote:

У кого не стояла изиуо, скопируйте это в easy.reg файл
и запустите его.

Code:

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"

Author:

Gromiz [ 2005-02-25 20:38:53 ]

Post subject:

I'm wrote:

Попробуй как я писал многим выше в предыдущем топике.
У меня работает :lol:

Quote:

У кого не стояла изиуо, скопируйте это в easy.reg файл
и запустите его.

Code:

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"

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

Author:	I'm [ 2005-02-25 20:41:53 ]
Post subject:
Нет, неслучится.

Author:	Gromiz [ 2005-02-25 20:44:53 ]
Post subject:
I'm wrote: Нет, неслучится. у меня что-то такого файла нет...мож надо в uo.reg

Author:	I'm [ 2005-02-25 20:54:35 ]
Post subject:
Создай его

Author:	Gromiz [ 2005-02-25 20:58:18 ]
Post subject:
I'm wrote: Создай его хмехно еслиб я знал как..это же не просто создать текстовый документ и запихнуть туда все.....

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