Скрипты от Askaneli

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

KuMiS wrote:Асканели спасибо за скрипты.
Незачто ...
Сделал дело - флуди смело !!!
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

асканели если появляешься в асе авторизуй там воввана!! плиз я хочу скрипты с тобой обсудить!
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Askaneli wrote:
Destruction wrote:Ну так ходилка Beyonder'а так умеет -)
Ты знаешь? Моя тоже ...
Твою не видел - кинь в ПМ ссылку на топик, в прибитый повешу.

Я ж в скриптах не разбираюсь, ламер так сказать... Приходиться самому всё писать :wink:
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

BoBBaH wrote:асканели если появляешься в асе авторизуй там воввана!! плиз я хочу скрипты с тобой обсудить!
аську в личку ...
Сделал дело - флуди смело !!!
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Destruction wrote:
Askaneli wrote:
Destruction wrote:Ну так ходилка Beyonder'а так умеет -)
Ты знаешь? Моя тоже ...
Твою не видел - кинь в ПМ ссылку на топик, в прибитый повешу.

Я ж в скриптах не разбираюсь, ламер так сказать... Приходиться самому всё писать :wink:
Влом выкладывать чё та )))
Сделал дело - флуди смело !!!
Top
eX-Clusive
Posts: 4
Joined: 2006-02-07 19:16:37

Post by eX-Clusive »

Залей на ветеринари тоже пожалуста, если есть такой... Большое СПС
Top
Binx
Posts: 7
Joined: 2006-03-28 10:45:22
Location: Russian
Contact:
Contact Binx

Post by Binx »

а есть ли на прокачку Carpentry??
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Скрипт для фабрики ...

Code: Select all

VAR Sunduk='0x400E90E6' ## Сундук, откуда берут айрон и кладут обратно бутылки
VAR ResCount=500 ## Количество забираемого айрона, зависит от силы игрока

sub Tinkering()
VAR LastTimer,p

uo.Exec("filterspeech clear")
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'You make the item'")
uo.Exec("filterspeech add 'The item is of'")
uo.Exec("filterspeech add 'Due to your exceptional skill, the item is of superior quality'")
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
LastTimer=uo.Timer()
while not uo.dead()
	ToHide()
	if uo.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			p=0
			repeat
				p=p+1
				uo.useskill("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until uo.InJournal("netherworld") or uo.InJournal("You must wait to perform another action") or uo.dead()
			until (uo.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		Eda()
		LastTimer=uo.Timer()
	end if
	
	if uo.count('0x1BEF','0x0000')<30 then
		uo.FindType('0x0F0E','0x0000','backpack')
		cheklag()
		uo.moveitem('finditem','-1',Sunduk)
		wait(1000)
		uo.FindType('0x1BEF','0x0000',Sunduk)
		cheklag()
		uo.moveitem('finditem',STR(ResCount),'backpack')
		wait(1000)
		cheklag()
	end if
	
	if uo.count('0x1BEF','0x0000')<3 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1EBC','0x0000')
	repeat
		Wait(10)
	until uo.InJournal("You put the") OR uo.InJournal("Tinkering failed") 
wend
end sub

Sub Eda()
if uo.count('0x097B','0x0000')<50 then ## Жрачка, кушаем до изнеможения
	uo.findtype('0x097B','0x0000',Sunduk)
	Cheklag()
	uo.moveitem('finditem',STR(50-uo.count('0x097B','0x0000')),'backpack')
	wait(1000)
end if
uo.deletejournal()
repeat
	uo.usetype('0x097B','0x0000')
	wait(1000)
until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
end sub

Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
	wait(10)
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 
		Wait(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Tinkering')
		wait(5000)
		uo.Exec('exec Tinkering')
		wait(5000) 
		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 

Sub ToHide()
while not uo.hidden()
	uo.exec("warmode 0")
	uo.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until uo.InJournal("You have hidden yourself well") or uo.InJournal("You can't seem to hide here.") or uo.InJournal("You are preoccupied with thoughts of battle.")
	if uo.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 0")
	end if
wend
end sub
Last edited by Askaneli on 2006-04-28 06:20:51, edited 1 time in total.
Сделал дело - флуди смело !!!
Top
Binx
Posts: 7
Joined: 2006-03-28 10:45:22
Location: Russian
Contact:
Contact Binx

Post by Binx »

а че за фабрика??даити скрипт на Carpentry на сервер ДРВ
P.Sа может ето тоже прилепить?*?
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Binx wrote:а че за фабрика??даити скрипт на Carpentry на сервер ДРВ
P.Sа может ето тоже прилепить?*?
тинк хочешь прокачать?
занимай очередь ;)
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Sfagnum wrote:
Binx wrote:а че за фабрика??даити скрипт на Carpentry на сервер ДРВ
P.Sа может ето тоже прилепить?*?
тинк хочешь прокачать?
занимай очередь ;)
Не тарапись. Материала то нету ...
Сделал дело - флуди смело !!!
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Askaneli wrote:Не тарапись. Материала то нету ...
норм... как появится - может уж0 не успеть ;)
Top
P
Posts: 54
Joined: 2006-02-20 14:38:22

Post by P »

Askaneli wrote:Детект
Основному чару запускаем Detect_Hidden
Левачку соответственно Hiding
Основной до кучи качает Спирит (это уже параноя, как бы прокачать спирит)

Code: Select all

sub Detect_Hidden()
Var i=0 
repeat
i=i+1
cheklag()
uo.UseSkill('Detect Hidden')
uo.deletejournal()
repeat
wait(10) 
until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
if i==50 then
i=0
cheklag()
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
uo.usetype('0x09BB')
wait(1000)
end if
until uo.Dead() 
end sub

sub Hiding()
repeat
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Hiding...") 
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") 
wend
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Вы не видете ничего и никого спрятонного в округе (Ето типо физл)
СЛух ты подправь скрипт Когда физл у меня пишит Вот ето когда он детектит или физл или тот неуспел в хайд Подправь плиз ( И спирит убери плиз)
Top
uisran
Posts: 64
Joined: 2005-01-21 10:00:30
Location: 74
Contact:
Contact uisran

Post by uisran »

up :D
Top
Geroy
Posts: 6
Joined: 2006-04-18 08:22:07

Post by Geroy »

Асканели можешь выложить свой скрипт на прокачку ветеринарии, там где чар в демона морфиться и лечится.
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

Geroy wrote:Асканели можешь выложить свой скрипт на прокачку ветеринарии, там где чар в демона морфиться и лечится.
А Тут не смотрел??!?
Top
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

Cooper wrote:
Geroy wrote:Асканели можешь выложить свой скрипт на прокачку ветеринарии, там где чар в демона морфиться и лечится.
А Тут не смотрел??!?
загляните в асю!:(
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Временно скрипты не пишутся и не выкладываются. :)
Сделал дело - флуди смело !!!
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Я вернулся ...
Сделал дело - флуди смело !!!
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Askaneli wrote:Я вернулся ...
с возвращением :roll:
Top
Post Reply

Return to “Scripting Ore”