Yoko

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

Помощь

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

Page 1 of 1

Помощь

Posted: 2011-05-24 15:05:40
by gorgo
Доброго времени суток,Вам пользователи форума! Не могли бы вы поделиться со мной скриптами для пвп и для пвм,может вы мне поможете с данными скриптами , такими как например : пвп ресс по ид резка и лут по тайпу различные вариации атак с использованиям кастов с скролов , ресс по ад, (резка,и лут по тайпу) и т.д.
Заранее Вам благодарен!!!

Re: Помощь

Posted: 2011-05-24 23:14:34
by Scripts Writer
Нет, мы жадные. Никому ничего не даём.

Re: Помощь

Posted: 2011-05-25 08:58:58
by Mirage
Жадина флужадина :P

Code: Select all

VAR Meshok	= '0x0E76';тип мешка
VAR MeshSer, d, LastTimer, timemove
var havka		= '0x097B'
var lootwait = 50
var printcolour = '1069'
VAR HIDE = 1; если 1 прячемся, если 0 нет.
VAR t=1
sub dobor_regs()
	var n, x, y = 50, z
	var BEKBag = '0x40FAAB3F'
	var REGBag = '0x40FA9EA6'
	Dim r[8]
	r[1] = '0x0F88'
	r[2] = '0x0F86'
	r[3] = '0x0F8D'
	r[4] = '0x0F8C'
	r[5] = '0x0F84'
	r[6] = '0x0F85'
	r[7] = '0x0F7B'
	r[8] = '0x0F7A'
	uo.useobject(BEKBag)
	wait(300)
	uo.useobject(REGBag)
	wait(300)
	For n = 1 To 8
		UO.FindType( r[n] , -1 ,'my')
		x = UO.GetQuantity('finditem')
		if x>y then
			z = x - y
			UO.FindType( r[n] , -1 ,'my')
			UO.MoveItem( 'finditem', str(z) , REGBag)
			wait(300)
		endif
		if x<y then
			z = y - x
			UO.FindType( r[n] , -1 ,REGBag)
			UO.MoveItem( 'finditem', str(z) , BEKBag) 
			wait(300)
		endif
	next
end sub
Sub REZ()
	var body = '0x2006'
	var dagger = '0x0F51'
	var corpse
	UO.Set('quiet','1')
	;uo.ignorereset()
	uo.set('finddistance', '3')
	UO.filterspeech('clear')
	UO.filterspeech('add','[Surprize ! Fast loot detected!]')
	UO.filterspeech('add','[Зафиксирована ловкость рук]')
	UO.filterspeech('on')
	uo.findtype(body, -1, 'ground')
	if uo.findcount() and Uo.GetDistance( 'finditem' ) < 3  then
		var x = uo.GetGraphic(uo.ObjAtLayer('Lhand'))
		var y = uo.GetGraphic(uo.ObjAtLayer('Rhand'))
		uo.warmode(0)
		wait(500)
		corpse = uo.getSerial("finditem")
		UO.WaitTargetObject(corpse)
		UO.UseType(dagger)
		wait(1000)
		uo.Equipt('Lhand',x)
		uo.Equipt('Rhand',y) 
		Loot()
		uo.warmode(1)
	endif
	UO.Set('quiet','0')
end sub
Sub Loot()
	;uo.ignorereset()
	var a, hair, reg, colhides
	VAR Scissors = '0x0F9E'
	VAR hides = '0x1078'
	DIM G[7]
	G[1] = '0x0EED'; деньги
	G[2] = '0x0E76'; мешки
	G[3] = '0x09AA'; пандоры
	G[4] = '0x1BFB'; болты
	G[5] = '0x0F3F'; стрелы
	G[6] = '0x1087'; серьги
	G[7] = '0x108A'; кольца
	var body = '0x2006'
	var bones = '0x0ECA'
	var corpse
	UO.Set('quiet','1')
	uo.set('finddistance', '3')
	UO.filterspeech('clear')
	UO.filterspeech('add','[Surprize ! Fast loot detected!]')
	UO.filterspeech('add','[Зафиксирована ловкость рук]')
	UO.filterspeech('on')
	uo.findtype(bones, -1, 'ground')
	findcorps()
	corpse = findcorps()
	if corpse <> 0xFFFFFFFF and corpse <> 0x00000000 then
		uo.deletejournal()
		uo.useobject(corpse)
		wait(300)
		if NOT uo.injournal("You can't do it here") then
			GrabLoot(corpse)
			For hair = 0x203B to 0x204D
				UO.FindType(hair, -1, corpse)
				if UO.FindCount() then
					UO.Ignore('finditem')
				endif
			next
			ignor(corpse)
			UO.FindType( -1, -1, corpse )
			while UO.FindCount()
				if UO.Count ( uo.GetGraphic('finditem') ) < 1 then					
					timemove=UO.Timer()
					while UO.ContainerOf( UO.GetSerial('finditem') )==corpse && timemove+20>UO.Timer() 
						uo.moveitem('finditem','0','backpack',30,150,0)
						wait(lootwait)
					wend
				else
					timemove=UO.Timer()
					while UO.ContainerOf( UO.GetSerial('finditem') )==corpse  && timemove+20>UO.Timer() 
						uo.moveitem('finditem','0','backpack')
						wait(lootwait)
					wend
				endif
				UO.FindType( -1, -1, corpse )
			wend
		endif
		UO.Hide(corpse)
		UO.Ignore(corpse)
	else
		For a=1 to 7
			UO.FindType(G[a],-1,'ground')
			while UO.FindCount()
				uo.moveitem('finditem','0','backpack',30,150,0)
				wait(lootwait)
				UO.FindType(G[a],-1,'ground') 
			wend
		next
	endif
	If UO.Hidden() and UO.Count ( Scissors ) > 0 Then
		While UO.Count( hides )>0
			colhides = uo.getColor('^0x1078')
			uo.waittargettype( hides )
			uo.usetype( Scissors )
			wait(300)
			UO.FindType('0x1067', colhides, 'backpack')
			if UO.FindCount() then
				UO.MoveItem('finditem', 0, 'backpack', 30, 150, 0)
				wait(100)
			endif
		wend
	EndIf
	UO.Set('quiet','0')
endsub
Sub findcorps()
	VAR a
	DIM body[2] 
	body[1]='0x0ECA';
	body[2]='0x2006';
	For a=1 to 2
		UO.FindType(body[a],-1,'ground')
		if UO.FindCount() then
			return uo.getSerial('finditem')
		endif
	next
	return 0
endsub
Sub ignor(corpse)
	var reg,ribs
	For reg = 0xF7A to 0xF7B
		UO.FindType(reg, -1, corpse)
		if UO.FindCount() then
			UO.Ignore('finditem')
		endif
	next
	For reg = 0xF84 to 0xF86
		UO.FindType(reg, -1, corpse)
		if UO.FindCount() then
			UO.Ignore('finditem')
		endif
	next
	For reg = 0xF88 to 0xF88
		UO.FindType(reg, -1, corpse)
		if UO.FindCount() then
			UO.Ignore('finditem')
		endif
	next
	For reg = 0xF8C to 0xF8D
		UO.FindType(reg, -1, corpse)
		if UO.FindCount() then
			UO.Ignore('finditem')
		endif
	next
	For ribs = 0x09F1 to 0x09F2 ; cuts of raw ribs
		UO.FindType(reg, -1, corpse)
		if UO.FindCount() then
			UO.Ignore('finditem')
		endif
	next
endsub
Sub GrabLoot(corps)
	var pack = 'backpack'
	;uo.charprint(printcolour,'лутим типы')
	PUTLoot('0x1869', '0', corps, pack,'','','')	; ЭНЧАНТ
	PUTLoot('0x09AA', '0x0834', corps, pack,'','','')	; Пандора 10 Лв.
	PUTLoot('0x09AA', '0x0833', corps, pack,'','','')	; Пандора 9 Лв.
	PUTLoot('0x09AA', '0x0832', corps, pack,'','','')	; Пандора 8 Лв.
	PUTLoot('0x09AA', '0x08EA', corps, pack,'','','')	; Пандора 7 Лв.
	PUTLoot('0x09AA', '0x08C1', corps, pack,'','','')	; Пандора 6 Лв.
	PUTLoot('0x13B1', '0x099F', corps, pack,'150','170','0')	; Exc.Rangers Bow
	PUTLoot('0x13B1', '0x05D8', corps, pack,'150','160','0')	; Rangers bow
	PUTLoot('0x0A3E', '0', corps, pack,'160','170','0')	; шкатулка
	PUTLoot(-1, '0x086C', corps, pack,'','','')	; хантер вещи
	PUTLoot(-1, '0x099F', corps, pack,'','','')	; ренжер вещи
	PUTLoot(-1, '0x0358', corps, pack,'','','')	; рат вещи
	PUTLoot2(0x1869, 0x1870, '-1', corps, pack,'','','')		; шарики
	PUTLoot('0x0EED', '0', corps, pack,'','','')	; золото
	PUTLoot2(0x1E88, 0x1E89, '-1', corps, pack,'','','')		; мясо драконов и демонов
	PUTLoot2(0x1E8E, 0x1E8F, '-1', corps, pack,'','','')		; жаренное мясо драконов и демонов
	PUTLoot('0x09B5', '0', corps, pack,'','','')	; змеиные яйца
	PUTLoot('0x0EE3', '0', corps, pack,'','','')	; паутинка
	PUTLoot2(0x1085, 0x108b, '-1', corps, pack,'','','')		; бижутерия
	PUTLoot2(0x1f05, 0x1f0a, '-1', corps, pack,'','','')		; бижутерия
	PUTLoot2(0xf0f, 0xf30, '-1', corps, pack,'','','')		; камни
	PUTLoot2(0x1f5d, 0x1f6c, '0', corps, pack,'','','')		; scroll 7-8
	PUTLoot(-1, '0x0991', corps, pack,'','','')	; руины
	PUTLoot('0x9aa', '-1', corps, pack,10,170,0)		; пандоры
	PUTLoot(-1, '0x0482', corps, pack,'','','')	; серебрянные вещи
endsub
Sub LAG()
	UO.Set('quiet','1')
	UO.IgnoreReset()
	UO.Set('finddistance', '3')
	repeat
		UO.FindType(-1,-1,'ground')
		if UO.FindCount('finditem') then
			UO.MoveItem('finditem', 0, 'backpack')
			wait(200)
			UO.Ignore('finditem')
		else
			UO.IgnoreReset()
			return
		endif
	until UO.Dead()
	UO.Set('quiet','0')
end sub
sub sort()
	uo.exec ("moveitem '_0x0EFA' '0' 'backpack' 25 20 0");spellbook 
	wait(500)
	uo.exec ("moveitem '_0x0F9E' '0' 'backpack' 40 20 0");Silver Scissors
	wait(500)
	uo.exec ("moveitem '_0x1012' '0' 'backpack' 25 20 0");Key
	wait(500)
	uo.exec ("moveitem '_0x1012' '0' 'backpack' 25 23 0");Key
	wait(500)
	uo.exec ("moveitem '_0x0E9B' '0' 'backpack' 50 20 0");ступка
	wait(500)
	uo.exec ("moveitem '0x40380220' '0' 'backpack' 170 20 0");руна
	wait(500)
	uo.exec ("moveitem '0x40F03AEC' '0' 'backpack' 150 20 0");руна
	wait(500)
	uo.exec ("moveitem '0x40F03791' '0' 'backpack' 160 20 0");руна
	wait(500)
	uo.exec ("moveitem '^0x0A3E' '0' 'backpack' 160 170 0");сундук
end sub
Sub RecallBR() 
	UO.WarMode ( '0' )   ; МИР 
	uo.Cast('Recall','0x40F03791') ; ID руны 
end sub
Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
	;uo.ignorereset()
	for TType = Type1 to Type2
		PUTLoot(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
	next
endsub
Sub PUTLoot(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
	;uo.ignorereset()
	UO.FindType(Type, Color, SourceContainer)
	while UO.FindCount()
		if (TargetContainer=='ground') then
			uo.MoveItem('finditem',0,TargetContainer,uo.GetX('self'),uo.GetY('self'),uo.GetZ('self'))
		else
			timemove=UO.Timer()
			while UO.ContainerOf( UO.GetSerial('finditem') )==SourceContainer && timemove+20>UO.Timer() 
				uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
				wait(lootwait)
			wend
		end if
		UO.FindType(Type, Color, SourceContainer)
	wend
end sub
Sub Hide()
	VAR LastTimer, n=0, HidFlag=1
	if UO.Hidden() then
		HidFlag=0
	else
	end if
	while HidFlag
		DeleteJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well")
		LastTimer=UO.Timer()
		UO.WarMode(0)
		UO.UseSkill('Hiding')
		repeat
			wait(50)
		until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well") || LastTimer+50<UO.Timer()
		if UO.InJournal("0xA5F8|удачно|You have hidden yourself well") then
			HidFlag=0
		else
			n=n+1
			if n>3 then
				UO.Set('quiet','0')
				UO.Print('Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
				UO.Set('quiet','1')
				MyTerminate()
			end if
		end if
	wend
end sub
Sub DeleteJournal(msg)
	While UO.InJournal(msg)
		UO.SetJournalLine(UO.InJournal(msg) - 1,'')
	wend
endsub
Sub MyTerminate()
	UO.Set('quiet','1')
	UO.CancelMenu()
	UO.IgnoreReset()
	UO.Set('quiet','0')
	UO.Exec('terminate all')
end sub
Sub checklag()
	DeleteJournal("ackpack")
	UO.Click("backpack")
	repeat
		wait(100)
	until UO.InJournal("ackpack")
end sub
sub GMstep()
	If UO.Dead() Then
		UO.Print("You are Dead")
		Return
	End If
	If UO.GetGlobal('GMstepCheck')=='on' Then
		UO.SetGlobal('GMstepCheck','off')
		UO.Print("GM Step: Off")
		UO.Morph('0')
	Else
		UO.SetGlobal('GMstepCheck','on')
		UO.Print("GM Step: On")
		UO.Morph('0x03DB')
		Wait(100)
		UO.Msg(".resync")
	End If
end sub
Sub Gong(times) ; play wav-file
	VAR i
	for i=1 to times
		UO.Exec("playwav C:\WINDOWS\Media\ringin.wav")
		wait(500) ; time to play sample at once
	next
end sub
Sub RUS()  
	uo.fontcolor (0x03c6)  
	uo.msg ('||||||||||||||||||||||||||||||||||||||||')  
	uo.fontcolor (0x00c6)  
	uo.msg ('||||||||||||||||||||||||||||||||||||||||')  
	uo.fontcolor (0x008a)  
	uo.msg ('||||||||||||||||||||||||||||||||||||||||')  
	uo.fontcolor (0x0035)  
end sub
Я честно старался :roll:

Re: Помощь

Posted: 2011-05-26 04:44:51
by gorgo
Много уважаемые пользователи форума,а не подскажите как пишется скрипты типа каст на себя с скрола и с регов каст по ласт атаке или ласт таргету со скрола или с регов.Заранее премного благодарен!!!!

Re: Помощь

Posted: 2011-05-27 20:30:05
by ZeroDX
gorgo wrote:Если это не тайна как вы говорите,подскажите пожалуйста,поделитесь опытом,скриптами и знаниями!
Это не тайна. Есть на форуме раздел Learn scripting кажется. Там есть уроки, в которых все очень ясно разжевано
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited