Форум сети Сonvex
 
 

Вернуться   Форум сети Сonvex > Игровое сообщество абонентов оператора связи Convex > Ultima Online: Inferno

Ответ
 
Опции темы Опции просмотра
Старый 05.04.2017, 22:57   #71
Braagos
Прохожий
 
Регистрация: 14.01.2016
Сообщений: 20
cказал Спасибо: 3
сказали Спасибо 0 раз(а) в 0 сообщении
Репутация: 10 [+/-]
По умолчанию

Доделал алхимию, но не проверял

Код:
################### Alchemy (braagos) #######################
###
### Перед макросом сделать macro off
### В бекпаке должно быть несколько пустых бутыльков (при одном глючит, хз почему)
### Скрипт попросит указать таргетом на 1:) Мешок с пустыми кегами
###										2:) Мешок с регами
###										3:) Мешок, куда складывать пустые кеги							
###
### Переменная Full = 1 - наполняем кеги до конца, Full = 0 - наполняем кеги до 25
### Переменная Varevo - выбираем что будем варить: 1:) Рефрешки     2:) Куре     3:) Хилки 
###												   3:) Грейт пойзон 5:) Дедлик   6:) Манка
###												   7:) Шринки
###
###
#############    Переменные    ############################################################
  

VAR varevo = 2
VAR full = 1

################   Скрипт      ############################################################

sub Alchemy()

var kegg = 0x1940
var regi 
var totl
var msg1
var msg2 

	if full == 1 then 
		msg2 = '25/75'
	else
		msg2 = '25/0'
	end if

	if varevo == 1 then		###refreh
		regi = 0x0F7A
		totl = 0x0F0B
		msg1 = 'Refresh_Full'
	end if
	if varevo == 2 then 		###Cure
		regi = 0x0F84
		totl = 0x0F07
		msg1 = 'Greater_Cure'
	end if
	if varevo == 3 then 		###Hil
		regi = 0x0F85
		totl = 0x0F0C
		msg1 = 'Greater_Heal'
	end if
	if varevo == 4 then 		###Gr poizon
		regi = 0x0F88
		totl = 0x0F0A
		msg1 = 'Greater_Poison'
	end if
	if varevo == 5 then 		###Deadly
		regi = 0x0F88
		totl = 0x0F0A
		msg1 = 'Deadly_Poison'
	end if
	if varevo == 6 then 		###Mana 
		regi = 0x0F87
		totl = 0x0F08
		msg1 = 'Greatermana'
	end if
	if varevo == 7 then 		###Shrink
		regi = 0x0F78
		totl = 0x0F06
		msg1 = 'Shrink'
	end if


	uo.addobject('empty keg')		#указываем таргетом на мешок с пустыми кегами
	while uo.targeting() 
	wait(200) 
	wend

	uo.addobject('box of reg')		#указываем таргетом на мешок с регами
	while uo.targeting() 
	wait(200) 
	wend

	uo.addobject('full keg')		#указываем таргетом на мешок, куда скидывать полные кеги
	while uo.targeting() 
	wait(200) 
	wend

	repeat
		if uo.count(kegg)<1 then							
			uo.findtype(kegg,'-1','empty keg') 				#ищем пустой кег в указанном мешке
			uo.moveitem('finditem',1,'backpack')
		endif
		wait(500)
		if UO.Count(regi)<20 then 
			UO.FindType(regi,-1,'box of reg') 				#ищем нужные в указанном мешке
			UO.Grab('100','finditem') 
		wait(1000)
		end if
		
		uo.print('#####Varim  ' + msg1)
		UO.WaitMenu("Select a potion to make", msg1) 		#выбираем нужное зелье в меню
		UO.WaitTargetType(regi) 
		UO.UseType('0x0E9B') 
		uo.DeleteJournal()
		repeat 
			wait(500)		             #ждем пока сварится зелье                   
		until uo.InJournal("You pour out") or uo.InJournal("You place a") or uo.InJournal("PAUSE") 
	
		uo.print('#####Slivaem')
		uo.DeleteJournal()
		uo.findtype('0x1940','-1','backpack')
		uo.setcatchbag('finditem') 							#устанавливаем найденный в паке кег как принимающий
		wait(1000)
		uo.findtype(totl,'-1','backpack')
		uo.grab('0','finditem')
		wait(1000)
		uo.unsetcatchbag()
		wait(1000)

		uo.print('#####Proveraem keg')	
		if uo.InJournal(msg2) then 
			uo.print('#####Keg polniy')
			wait(500)
			uo.findtype(kegg,'-1','backpack')
			uo.moveitem('finditem',1,'full keg') #сбрасываем готовый кег в указанный мешок
			wait(1000)
			uo.DeleteJournal()
		endif
	until (1 == 0)
end sub

Последний раз редактировалось Braagos; 05.04.2017 в 23:35.
Braagos вне форума   Ответить с цитированием
Старый 06.04.2017, 00:04   #72
Braagos
Прохожий
 
Регистрация: 14.01.2016
Сообщений: 20
cказал Спасибо: 3
сказали Спасибо 0 раз(а) в 0 сообщении
Репутация: 10 [+/-]
По умолчанию

Макр на инскрипт, выбираем что рисовать, дальше всё делает сам

Код:
################### Inscription (braagos) #######################
###
### Перед макросом сделать macro on
### Скрипт попросит указать таргетом на мешок с бланками и регами					
###
### Переменная risunok - выбираем что будем рисовать:    1:) Блес     2:) Десанет    3:) Гх
###												  		 4:) Лайт     5:) Рекол      6:) Рефлект
###												         7:) Паралайз 8:) Карпор     9:) Фс
###
###
#############    Переменные    ############################################################
  
VAR risunok = 5

################   Скрипт      ############################################################

### SA 0x0F8C
### SS 0x0F8D
### GA 0x0F84
### GN 0x0F85
### NS 0x0F88
### MR 0x0F86
### BM 0x0F7B
### BP 0x0F7A

sub inscript() 

	var Blank = 0x0E34           # айди бланка
	var reg1
	var reg2
	var reg3
	var reg4
	var msg1
	var msg2
	var scrl
	
	if risunok == 1 then		###Blees
		reg1 = 0x0F84
		reg2 = 0x0F86
		reg3 = 999
		reg4 = 999
		msg1 = 'Circle 3 spells'
		msg2 = 'Bless'
		Scrl = 0x1F3D
	end if
	if risunok == 2 then		###Curse
		reg1 = 0x0F84
		reg2 = 0x0F88
		reg3 = 0x0F8C
		reg4 = 999
		msg1 = 'Circle 4 spells'
		msg2 = 'Curse'
		Scrl = 0x1F47
	end if
	if risunok == 3 then		###GH
		reg1 = 0x0F84
		reg2 = 0x0F85
		reg3 = 0x0F86
		reg4 = 0x0F8D
		msg1 = 'Circle 4 spells'
		msg2 = 'Greater Heal'
		Scrl = 0x1F49
	end if
	if risunok == 4 then		###Light
		reg1 = 0x0F8C
		reg2 = 0x0F86
		reg3 = 999
		reg4 = 999
		msg1 = 'Circle 4 spells'
		msg2 = 'Lightning'
		Scrl = 0x1F4A
	end if
	if risunok == 5 then		###Recol
		reg1 = 0x0F86
		reg2 = 0x0F7B
		reg3 = 0x0F7A
		reg4 = 999
		msg1 = 'Circle 4 spells'
		msg2 = 'Recall'
		Scrl = 0x1F4C
	end if
	if risunok == 6 then		###Reflekt
		reg1 = 0x0F84
		reg2 = 0x0F86
		reg3 = 0x0F8D
		reg4 = 999
		msg1 = 'Circle 5 spells'
		msg2 = 'Magic Reflection'
		Scrl = 0x1F50
	end if
	if risunok == 7 then		###Paralyze
		reg1 = 0x0F7A
		reg2 = 0x0F88
		reg3 = 0x0F8C
		reg4 = 999
		msg1 = 'Circle 5 spells'
		msg2 = 'Paralyze'
		Scrl = 0x1F52
	end if
	if risunok == 8 then		###Carpor
		reg1 = 0x0F7A
		reg2 = 0x0F88
		reg3 = 999
		reg4 = 999
		msg1 = 'Circle 6 spells'
		msg2 = 'Energy Bolt'
		Scrl = 0x1F56
	end if
	if risunok == 9 then		###Fs
		reg1 = 0x0F8C
		reg2 = 0x0F8D
		reg3 = 999
		reg4 = 999
		msg1 = 'Circle 7 spells'
		msg2 = 'Flamestrike'
		Scrl = 0x1F5F
	end if

	uo.addobject('meshok1')		#указываем таргетом на мешок с бланками и регами
	while uo.targeting() 
	wait(200) 
	wend

	Repeat
		if UO.Count(Blank)<25 then 
			UO.FindType(Blank,-1,'meshok1') 				#Ищем скролы в указанном мешке
			UO.Grab('100','finditem') 
			wait(500)
		end if
		if UO.Count(reg1)<25 then 
			UO.FindType(reg1,-1,'meshok1') 				#ищем нужные реги в указанном мешке
			UO.Grab('100','finditem') 
			wait(500)
		end if	
		if UO.Count(reg2)<25 and reg2 <> 999 then 
			UO.FindType(reg2,-1,'meshok1') 				#ищем нужные реги в указанном мешке
			UO.Grab('100','finditem') 
			wait(500)
		end if
		if UO.Count(reg3)<25 and reg3 <> 999 then 
			UO.FindType(reg3,-1,'meshok1') 				#ищем нужные реги в указанном мешке
			UO.Grab('100','finditem') 
			wait(500)
		end if
		if UO.Count(reg4)<25 and reg4 <> 999 then 
			UO.FindType(reg4,-1,'meshok1') 				#ищем нужные реги в указанном мешке
			UO.Grab('100','finditem') 
			wait(500)
		end if
		
		uo.print('#####Risuem  ' + msg2)
		UO.DeleteJournal() 
   		UO.CancelMenu() 
  		UO.AutoMenu('Select a circle to inscribe',msg1) 				#выбираем круг
   		UO.AutoMenu('Select a spell to inscribe',msg2)				#выбираем скрол
   		Wait(1000)
   		UO.UseType( blank )    		            
		repeat 
			wait(500)		             								#рисуем пока не кончится мана                   
		until uo.InJournal("You dont have enough mana") or uo.InJournal("PAUSE")
		
		repeat
			Uo.Useskill ('Meditation')									#Медитируем
 			Wait(5100)
 		until uo.mana > 95 

 
		
		if UO.Count(scrl)>100 then 
			uo.print('#####Skidivaem scroli')
			wait(500)
			uo.findtype(scrl,'-1','backpack')
			uo.moveitem('finditem',100,'meshok1')		 #сбрасываем 100 скролов в указанный мешок
			wait(1000)
			uo.DeleteJournal()
		endif

	until (1 == 0)
end sub
Braagos вне форума   Ответить с цитированием
Старый 01.05.2017, 23:48   #73
Gangstaekb
Прохожий
 
Регистрация: 23.05.2016
Сообщений: 13
cказал Спасибо: 7
сказали Спасибо 1 раз(а) в 1 сообщении
Репутация: 10 [+/-]
Печаль

Цитата:
Сообщение от dracula[WAR] Посмотреть сообщение
============================================

Скрипт для фишинга , ловит вокруг себя , лучше с лодки
Код:
sub main()
UO.DeleteJournal()
var c, z, x, y, i, tmp, inside
c=0
start:
#while uo.getx()>2232
#uo.say("left")
#wait(5000)
#wend
#uo.say("stop")
#uo.say("stop")
for y=-6 to 6
for x=-6 to 6
z=0
try:
UO.Exec ("waittargettile "+" 6039 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0DBF")
UO.Print ("X Coordinate: "+STR(x))
UO.Print ("Y Coordinate: "+STR(y))
i=0
while i< 10
uo.press(121)
if UO.InJournal("You can't reach") then
i=200
UO.DeleteJournal()
endif
if z>3 then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("There dosn't seem to be any fish here") then
z=z+1
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("You pull out") then
i=200
z=0
UO.DeleteJournal()
UO.Exec ("setreceivingcontainer 0x5A3A0DFC"); ID Контейнера для складирования
if uo.countground("0x09ce")>0 then
UO.Exec("findtype 0x09ce -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cf")>0 then
UO.Exec("findtype 0x09cf -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cc")>0 then
UO.Exec("findtype 0x09cc -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cd")>0 then
UO.Exec("findtype 0x09cd -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x0F7A")>0 then
UO.Exec("findtype 0x0F7A -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
UO.Exec ("unsetreceivingcontainer")
goto try
endif
if UO.InJournal("There dosn't seem to be any fish here") then
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
next
next
#while uo.getx()<2215
#uo.say("right")
#wait(5000)
#wend
#uo.say("stop")
#uo.say("stop")
for y=-6 to 6
for x=-6 to 6
z=0
try1:
UO.Exec ("waittargettile "+" 6039 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0DBF")
UO.Print ("X Coordinate: "+STR(x))
UO.Print ("Y Coordinate: "+STR(y))
i=0
while i< 10
uo.press(121)
if UO.InJournal("You can't reach") then
i=200
UO.DeleteJournal()
endif
if z>3 then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You fish a while, but fail to catch anything") then
z=z+1
i=200
UO.DeleteJournal()
goto try1
endif
if UO.InJournal("You pull out") then
i=200
z=0
UO.DeleteJournal()
UO.Exec ("setreceivingcontainer 0x5A3A0DFC"); ID Контейнера для складирования
if uo.countground("0x09ce")>0 then
UO.Exec("findtype 0x09ce -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cf")>0 then
UO.Exec("findtype 0x09cf -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cc")>0 then
UO.Exec("findtype 0x09cc -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cd")>0 then
UO.Exec("findtype 0x09cd -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x0F7A")>0 then
UO.Exec("findtype 0x0F7A -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
UO.Exec ("unsetreceivingcontainer")
goto try1
endif
if UO.InJournal("There dosn't seem to be any fish here") then
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
next
next
goto start
end sub

======================================
без лодки пробовал ваще ни одной рыбы
Gangstaekb вне форума   Ответить с цитированием
Старый 02.05.2017, 00:46   #74
dracula[WAR]
Местный
 
Аватар для dracula[WAR]
 
Регистрация: 28.12.2013
Сообщений: 515
cказал Спасибо: 21
сказали Спасибо 32 раз(а) в 29 сообщении
Репутация: 31 [+/-]
По умолчанию

Цитата:
Сообщение от Gangstaekb Посмотреть сообщение
без лодки пробовал ваще ни одной рыбы
Купи , она стоит 25 ка - встаешь на нос и ловишь себе спокойно.... только для охраны когонить поставь , а то элемы достанут
__________________
Zabil [Bro]

Skype: draculaa20
dracula[WAR] вне форума   Ответить с цитированием
Старый 12.08.2017, 18:30   #75
People
Новичок
 
Аватар для People
 
Регистрация: 07.01.2017
Сообщений: 76
cказал Спасибо: 3
сказали Спасибо 2 раз(а) в 2 сообщении
Репутация: 10 [+/-]
По умолчанию

People вне форума   Ответить с цитированием
Ответ

Закладки

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +5, время: 02:02.


Convex
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. Перевод: zCarot