помогите плиз найти стабильно работающую версию инжекта

General Injection issues

Moderators: Murderator+, Murderator

Post Reply
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:
Contact 666Man666

Post by 666Man666 »

kikach wrote:Ничего такого нет, скрипт просматривал раз 5-6... Есть добровольцы кому бы я мог выслать его из хороших специалистов, может подскажете? Плз...
Выкладывай тут!!! Скрипты в Массы!!! :)
А на что скрипт хотябы?
Top
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:
Contact AGRS

Post by AGRS »

kikach wrote:кому бы я мог выслать его из хороших специалистов
У хороших специалистов такая лажа тоже случается. :) ИМХО от специалиста не сильно зависит когда клиент скрашит. ;)
Я уже пытался на другой клиент перебраться (2.0.8q), но его еще сильнее крашит.
Top
kikach
Posts: 25
Joined: 2004-10-14 00:23:45
Contact:
Contact kikach

Post by kikach »

Ну ведь так невозможно ж... Скажите что убрать из скрипта чтоб 100% пахал? Массивы??? Может сделать чтобы как можно меньше функций работало одновременно? Сократить до двух например???? Полностью убрать циклы или полностью убрать ГоТо? :) Да я бы с радостью, только не знаю что именно делать... Крашит не клиент а именно скрипт. Просто клиент прекрасно пашет...

ПС. Скрипт на мининг, тут таких полно, этот просто мой :)
Top
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:
Contact 666Man666

Post by 666Man666 »

kikach wrote:Ну ведь так невозможно ж... Скажите что убрать из скрипта чтоб 100% пахал? Массивы??? Может сделать чтобы как можно меньше функций работало одновременно? Сократить до двух например???? Полностью убрать циклы или полностью убрать ГоТо? :) Да я бы с радостью, только не знаю что именно делать... Крашит не клиент а именно скрипт. Просто клиент прекрасно пашет...

ПС. Скрипт на мининг, тут таких полно, этот просто мой :)
Удали всё нафиг, инжект тоже
и в ручную покопай.... будет работать на 100% стабильнее, я тибе гарантирую!!!
Top
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:
Contact AGRS

Post by AGRS »

kikach wrote:Крашит не клиент а именно скрипт. Просто клиент прекрасно пашет...
Да ну. :) Хочешь сказать что после такой ошибки клиент не закрывается с матерной руганью?
Это именно клиент крашит во время выполнения команд скрипта.
Top
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:
Contact AGRS

Post by AGRS »

666Man666 wrote:я тибе гарантирую!!!
Хе-хе... Я бы не рискнул. :)
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

kikach wrote:Скажите что убрать из скрипта чтоб 100% пахал?
100% - это только на счетах. Да и то, иногда костяшки ломаются.
Top
kikach
Posts: 25
Joined: 2004-10-14 00:23:45
Contact:
Contact kikach

Post by kikach »

да, я тут же делаю рекол и клиент идет по женской линии :)
какие команды лучше не использовать?
Может у кого есть какие наблюдения? Если ломается клиент думаю массивы тут не при чем? У кого-нибудь появлялись идеи выяснить это и разобраться??? Инжект - это безграничные возможности которые ограничиваются только этими досадными обстоятельствами!!!!
Top
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:
Contact 666Man666

Post by 666Man666 »

kikach wrote:да, я тут же делаю рекол и клиент идет по женской линии :)
какие команды лучше не использовать?
Может у кого есть какие наблюдения? Если ломается клиент думаю массивы тут не при чем? У кого-нибудь появлялись идеи выяснить это и разобраться??? Инжект - это безграничные возможности которые ограничиваются только этими досадными обстоятельствами!!!!
Без самого кода скрипта нечего сказать нельзя... выложи его не ломайся как девочка...
Top
kikach
Posts: 25
Joined: 2004-10-14 00:23:45
Contact:
Contact kikach

Post by kikach »

Да кому он нужен если от него клиент так колбасит? КТО ИСПРАВИТ ЧТОБЫ ЕГО НЕ ГЛЮЧИЛО (ЛЮБЫМИ МЕТОДАМИ ВПЛОТЬ ДО СМЕНЫ ВИНДОВСА ИЛИ СМЕНЫ ИНЖЕКТА - 5 ВМЗ :) Это лишь маленькое вознаграждение за потраченное вами время ;) Заранее спасибо

ПСы: Пишите в асю 45250329 ;)

Code: Select all

var XX = 0
var YY = 0
var XXX = 0
var YYY = 0
var inviz=0
var f
var i,j=0 
var cpx=833
var timeoutcount=0
var pathteleport=4
var rc=0
var timeout=0
var tmpx=0
var tmpy=0
var tmpid=0
var pop=0

sub kop()
	var posx = UO.Getx()
	var posy = UO.Gety()
	var Shagx = 0
	var Shagy = 0
	var tm = 0
	var t = 0
	var Napr = 1
	XX=val(uo.getglobal("XXX"))
	YY=val(uo.getglobal("YYY"))
	Uo.Print("XX "+str(XX))
	Uo.Print("YY "+str(YY))
	Vikapivanie:
		if UO.Weight > 700 then
			Uo.Print("Ves nabran")
			Goto Terminate
		endif
		uo.deletejournal()
		tm=0
		t=UO.lasttile(0)
		uo.waittargettile(str(t),str(uo.GetX()),str(uo.GetY()),"0") 
		uo.usetype("0x0E85")
		repeat 
			tm = tm + 500
			Wait(500)
			UO.Print(str(tm))
		until uo.injournal("There is no ore") OR uo.injournal("You put") OR uo.injournal("Try mining") OR tm > 15000
		if uo.injournal("There is no ore") OR uo.injournal("Try mining") OR uo.injournal("Iron") then
			Goto Go
		else
			Goto Vikapivanie
		endif
	Goto Vikapivanie
	Go:
		if Shagy < (YY-1) and Shagy > -1 then
			if (Shagx)==0 OR (Shagx-2)==0 OR (Shagx-4)==0 OR (Shagx-6)==0 OR (Shagx-8)==0 OR (Shagx-10)==0 OR (Shagx-12)==0 OR (Shagx-14)==0 OR (Shagx-16)==0 then
				Shagy = Shagy + 1
			endif
			pop=0
			repeat
			pop=pop+1
			UO.Print("ShagY "+str(Shagx))
			UO.Print("Popitka "+str(pop))
			if (Shagx)==0 OR (Shagx-2)==0 OR (Shagx-4)==0 OR (Shagx-6)==0 OR (Shagx-8)==0 OR (Shagx-10)==0 OR (Shagx-12)==0 OR (Shagx-14)==0 OR (Shagx-16)==0 then
					UO.Press(35)
					Wait(500)
					CheckLag() 
					Wait(500)
					UO.Print("GetY "+str(UO.GetY()))
				else
					UO.Press(33)
					Wait(500)
					CheckLag() 
					Wait(500)
					UO.Print("GetY "+str(UO.GetY()))
				endif
			until UO.Gety() == posy+Shagy OR pop > 15
			if pop > 15 then 
				Goto Terminate
			endif
			if (Shagx-1)==0 OR (Shagx-3)==0 OR (Shagx-5)==0 OR (Shagx-7)==0 OR (Shagx-9)==0 OR (Shagx-11)==0 OR (Shagx-13)==0 OR (Shagx-15)==0 then
				Shagy = Shagy - 1
			endif
		else
			UO.Print("SHAGx "+str(Shagx))
			Shagx = Shagx + 1
			if Shagx == XX then
				Goto Terminate
			endif
			pop=0	
			repeat
				pop=pop+1
				UO.Print("ShagX "+str(Shagx))
				UO.Print("Popitka "+str(pop))
				UO.Press(34)
				Wait(500)
				CheckLag() 
				Wait(500)
			until UO.Getx() == posx+Shagx OR pop > 15
			if pop > 15 then 
				Goto Terminate
			endif
			if Shagy==(YY-1) then 
				Shagy= YY - 2
			else
				Shagy=0
			endif
		endif
	Goto Vikapivanie
	Terminate:
	UO.Print("VSYO")
	uo.setglobal("mine","0")
	uo.exec(',terminate Podbir')
end sub

sub podbir()
	repeat
	if uo.injournal("found") then
			UO.TextOpen() 
			UO.TextPrint('Подобрали!!!!!!!!!') 
			uo.findtype("0x19B9",-1,"ground") 
			if uo.findcount() > 0 then
				Wait(500)
				uo.moveitem('finditem',-1,'backpack')
			endif			
			uo.findtype("0x19B8",-1,"ground") 
			if uo.findcount() > 0 then
				Wait(500)
				uo.moveitem('finditem',-1,'backpack')
			endif
			uo.findtype("0x19BA",-1,"ground") 
			if uo.findcount() > 0 then
				Wait(500)
				uo.moveitem('finditem',-1,'backpack')
			endif			
			uo.findtype("0x19B7",-1,"ground") 
			if uo.findcount() > 0 then
				Wait(500)
				uo.moveitem('finditem',-1,'backpack')			
			endif
			uo.deletejournal()
	endif
	Wait (500)
	until UO.Dead()
end sub

sub alarm()
	DIM RnID[10], RnX[10], RnY[10]
	RnId[1]="0x409A7ADB"
	RnId[2]="0x409A7EF2"
	RnId[3]="0x402459EB"
	RnId[4]="0x409A7EF0"
	RnId[5]="0x409A7AD8"
	RnId[6]="0x409A805A"
	RnId[7]="0x409A7EF1"
	RnId[8]="0x409A8058"
	RnId[9]="0x409A7C3A"
	RnId[10]="0x409A7CE6"
	RnX[1]="10"
	RnX[2]="15"
	RnX[3]="10"
	RnX[4]="9"
	RnX[5]="11"
	RnX[6]="4"
	RnX[7]="11"
	RnX[8]="15"
	RnX[9]="12"
	RnX[10]="20"
	RnY[1]="5"
	RnY[2]="7"
	RnY[3]="4"
	RnY[4]="6"
	RnY[5]="4"
	RnY[6]="16"
	RnY[7]="6"
	RnY[8]="4"
	RnY[9]="7"
	RnY[10]="4"
	uo.setglobal("inv","0")
	uo.setglobal("mine","0")
	uo.deletejournal()
	srt:
	repeat 
		wait(100)
	until not (trouble()) or uo.dead()
	 uo.exec("terminate kop")
	 uo.exec("terminate Podbir")
	 timeout=0
	 inviz=uo.getglobal("inv")
	 inviz=val(inviz)
	 uo.print("inviz is")
	 uo.print(str(inviz))
	 if inviz==1 then
		 uo.usetype(0x0F09)
	 endif
	 recall:
	 uo.deletejournal()
	 timeout=0
	 UO.cast("Recall")
	 uo.waittargettype("0x1F14")
	 repeat  
		 timeout=timeout+500
		 wait(500)
		 uo.print(str(timeout))
		 uo.print(str(uo.getx()))
	 until uo.getx()==cpx or (timeout>5000) or uo.injournal("Unexpected target info")
	 uo.deletejournal()
	 if not uo.getx()==cpx then 
		 goto recall 
	 else
		 uo.say("i am AT HOME!") 
	 endif
	 Wait(5000)
	 uo.waittargettype("0x1F14")
	 uo.useskill('Taste Identification')
	 Wait(5000)
	 uo.findtype(0x0F0E,-1,"mbp")
	 uo.moveitem('finditem',0,'regbag')
	 UO.findtype(0x19b9)
	 while UO.findcount()>0
		UO.setReceivingcontainer('sunduk')
		UO.findtype(0x19b9)
		UO.moveitem('finditem',0,'sunduk')    
		wait (2500)
	 wend
	UO.findtype(0x19b8)
	while UO.findcount()>0
	    UO.setReceivingcontainer('sunduk')
	    UO.findtype(0x19b8)
	    UO.moveitem('finditem',0,'sunduk')    
	    wait (2500)
	wend
	UO.findtype(0x19ba)
	while UO.findcount()>0
	    UO.setReceivingcontainer('sunduk')
	    UO.findtype(0x19ba)
	    UO.moveitem('finditem',0,'sunduk')    
	    wait (2500)
	wend
	timeout=0 
	if uo.count(0x0F09) < 2 then
		uo.findtype(0x0F09,-1,"regbag")
		uo.useobject("regbag")
		wait(2500)
		while uo.count(0x0F09)<3
			uo.findtype(0x0F09,-1,"regbag")
			uo.print(str(uo.findcount()))
				uo.moveitem("finditem",0,"mbp")
			wait(2500)
		wend
	endif
	if uo.bp<10 or uo.bm<10 or uo.mr<10 then 
		uo.useobject("regbag")
		wait(4000)
		uo.findtype(0x0f7b,-1,"regbag")
		uo.print(str(uo.findcount()))
		uo.moveitem("finditem",str(15),"mbp")
		wait(2000)
		uo.findtype(0x0f7a,-1,"regbag")
		uo.print(str(uo.findcount()))
		uo.moveitem("finditem",str(15),"mbp")
		wait(2000)
		uo.findtype(0x0f86,-1,"regbag")
		uo.print(str(uo.findcount()))
		uo.moveitem("finditem",str(15),"mbp")
		wait(5000)
	endif
	if uo.bp<8 or uo.bm<8 or uo.mr<8 then
		goto regs
	endif
	if uo.mana < 40 then
	   while uo.mana < 40
		Wait (1000)
	   wend
	endif
	uo.print("Teleporting")
	pathteleport=pathteleport+1
	if (pathteleport==11) then
		pathteleport=1
		uo.waittargettype("0x1f14")
		wait(200)
		uo.cast("Mark")
		wait(5000)
	endif
	tmpx=RnX[pathteleport]
	tmpy=RnY[pathteleport]
	tmpid=RnId[pathteleport]
	uo.setglobal("XXX",tmpx)
	uo.setglobal("YYY",tmpy)
	telep:
	timeout=0
	    uo.cast("Recall",tmpid)
	    uo.deletejournal()
	    while uo.getx()==cpx and timeout<9000
			timeout=timeout+500
			wait(500)
			uo.print(str(timeout))
	    wend
	    if uo.getx()==cpx then
			goto telep
	    endif
	    uo.exec("exec kop")
	    uo.exec("exec Podbir")
	    uo.deletejournal()
    goto srt
end sub

sub trouble()
	if uo.injournal("lemental") then
		uo.setglobal("inv","1")
		uo.setglobal("mine","1")
		uo.exec("exec ubig")
		return false
	else
	var inv="skop"
	var empty="Empty!!"
	var str=""
	var stnum=9
	var i=0
	var mine=0
	mine=uo.getglobal("mine")
	mine=val(mine)
	if mine==0 then
		uo.setglobal("mine","1")
		uo.setglobal("inv","0")
		return false
	endif
	for i=0 to stnum
		str=uo.journal(i)
		if str==inv then
			uo.setglobal("inv","0")
			return false
			endif
			if len(str)==0 then
			str=empty
		endif
		if len(str) > 6 then
			str=Left(str,7)
		Endif
		if detect(str)==true then
			else
			uo.setglobal("inv","1")
			return false
		endif
	next
	return true
	endif
end sub

sub ubig()
	UO.Press(34)
	Wait(200)
	UO.Press(34)
	Wait(200)
	UO.Press(34)
	Wait(400)
	UO.Press(34)
	Wait(400)
	UO.Press(34)
	Wait(400)
	UO.Press(34)
	Wait(400)
	UO.Press(34)
	Wait(400)
	UO.Press(33)
	Wait(400)
	UO.Press(33)
	Wait(400)
	UO.Press(33)
	Wait(400)
end sub

sub detect(cutword)
 if len(cutword) < 7 then
	return false
 else
 Var ExitMesNum=19
 Dim ExitMes[20]
 ExitMes[1]='You put' 
 ExitMes[2]='There i'  
 ExitMes[3]='Try min' 
 ExitMes[4]='Where d'
 ExitMes[5]='Select '
 ExitMes[6]='Empty!!'
 ExitMes[7]='TORMENT'
 ExitMes[8]='You loo'
 ExitMes[9]='You dam'
 ExitMes[10]='You bro'
 ExitMes[11]='You mus' 
 ExitMes[12]='Targeti'
 ExitMes[13]='You are'
 ExitMes[14]='Unexpec'
 ExitMes[15]='Belochk'
 ExitMes[16]='That is'
 ExitMes[17]='Peacema'
 ExitMes[18]='a backp'
 ExitMes[19]='You hav'
 Var J=False
 Var I=1
 For I=1 to ExitMesNum
  If cutword==ExitMes[I] Then
   J=True
  EndIf 
 Next
 RETURN J
 Endif
end sub 

sub CheckLag() 
	UO.DeleteJournal() 
	UO.Click('backpack') 
	repeat 
		wait(500) 
	until UO.InJournal('backpack') 
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif
UO.Exec('terminate all')  
Wait(20000) # WorldSave Protection 
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
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) 
UO.Exec('exec Alarm') 
RFlag = 1 
ReconnectTime = '0' 
endif 
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 
EndIf 
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 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub
Last edited by kikach on 2004-12-29 22:34:02, edited 1 time in total.
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

А теперь зайди в редактирование поста и перед скриптом напиши [сode], а после скрипта [/сode]
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Edred wrote:А теперь зайди в редактирование поста и перед скриптом напиши [сode], а после скрипта [/сode]
и чуть чуть табуляции
Top
kikach
Posts: 25
Joined: 2004-10-14 00:23:45
Contact:
Contact kikach

Post by kikach »

CDELAL
Top
kikach
Posts: 25
Joined: 2004-10-14 00:23:45
Contact:
Contact kikach

Post by kikach »

10 WMZ если этот скрипт заработает нормально :) Пацаны, Вам же это полчаса дела от силы!!! :)
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

После НГ гляну
Top
Post Reply

Return to “General”