Yoko

All sides of Injection
It is currently 2024-03-28 10:49:01

All times are UTC+02:00




Post new topic  Reply to topic  [ 178 posts ]  Go to page 1 2 3 4 59 Next
Author Message
PostPosted: 2005-01-26 09:47:38 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

И ещё. Я в основном всегда пользуюсь наиболее последней версией инжи и поэтому некоторые скрипты могут быть не совместимы с более старыми версиями инжи. (Сфаги зануда, всё проверит и блин пальцем тыкнет)
Последняя версия всегда лежит по вот этому урлу

Спирит и Евалюшен ИНТ
Боукрафт
Магери
Тракинг
Детект Хиден
Хилинг
Стелс и Хидинг
Спаринг
Алхимия и пойзонинг
Хердинг
Пойзонинг
Беггинг
Снупинг и стеалинг
Писемакинг и Энтисемент
Тайлоринг
Кемпинг
Картография
Блаксмитинг
Инскрипт
Рунбука ДРВ
Кукинг
Анимал таминг
Forensic Evaluation

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2005-10-07 11:11:09, edited 17 times in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 09:50:52 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Скрипт на прокачку Спирита и Евал для начала
В переменной obj какая нить живность, желательно в дом её затащить незатамленной, тада не подохнет.
Время от времени чар кушает жаренные рыбные котлетки.
Code:
var obj='0x002179AD'
sub Evaluate()
var count=0,i=0
uo.useobject('backpack')
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
i=0
repeat
i=i+1
cheklag()
uo.print("Evaluating...")
UO.Useskill('Evaluating',obj)
wait(5500)
if i==30 then
uo.usetype('0x097B')
wait(1000)
i=0
cheklag()
uo.print("Spirit Speak...")
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.")
end if
until UO.Dead()
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(20000) # WorldSave Protection
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.Exec('terminate Evaluate')
wait(1000)
UO.Exec('exec Evaluate')
wait(1000)
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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 Askaneli on 2005-03-09 08:56:02, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 09:55:02 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Ну и Боукрафт , до 50% качаем на шафтах, потом на торчках
в сундуке все логи какие не жалко.
Code:
VAR Sunduk='0x404A298D' ; ИД сундука где все логи 
VAR TDagger='0x0F51' ; Тип даггера
VAR TLogs='0x1BDD' ; Тип логов
VAR TTorch='0x0F64' ; Тип торчей
VAR TShaft='0x1BD4' ; Тип шафтов

; В руке или паке даггер, в сундуке логи и запускаем !!!

sub BowCraft_shaft()
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,'0x0000','backpack')
While UO.GetQuantity('finditem')==0
UO.FindType(TLogs,'0x0000',Sunduk)
wait(200)
UO.Grab('1','finditem')
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger)
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)')
wait (1000)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10)
wend

if uo.weight > 200 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.FindType(TShaft)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub BowCraft_torch()
var teklog=1
dim ColLog[20]
ColLog[1]='0x047C' ; Oak Logs
ColLog[2]='0x0279' ; Red Tree Logs
ColLog[3]='0x096B' ; Dark Tree Logs
ColLog[4]='0x0237' ; Swamp Logs
ColLog[5]='0x0482' ; Silver Leaf Logs
ColLog[6]='0x010F' ; Keranit Logs
ColLog[7]='0x0014' ; Perit Logs
ColLog[8]='0x03C1' ; Petrified Logs
ColLog[9]='0x0085' ; Dragon Tree Logs
ColLog[10]='0x04C2' ; Vampire Tree Logs
ColLog[11]='0x0033' ; Eridan Logs
ColLog[12]='0x002B' ; Hellios Logs
ColLog[13]='0x0071' ; Illusions Tree Logs
ColLog[14]='0x09A4' ; Crystal Logs
ColLog[15]='0x0B82' ; Dead Tree Logs
ColLog[16]='0x00BE' ; Paradise Logs
ColLog[17]='0x0035' ; Titan Tree Logs
ColLog[18]='0x0BB6' ; Avalon Logs
ColLog[19]='0x0487' ; Elven Logs
ColLog[20]='0x0498' ; Asterxylon Logs
UO.Exec('terminate Reconnector')
wait(100)
UO.Exec('exec Reconnector')
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,ColLog[teklog],'backpack')
While UO.GetQuantity('finditem')==0
ff:
UO.FindType(TLogs,ColLog[teklog],Sunduk)
wait(50)
if uo.FindCount()==0 then

UO.SetReceivingContainer(Sunduk)
wait(100)
UO.FindType(TTorch)
wait(50)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()

teklog=teklog+1
if teklog>20 then
return
endif
goto ff
end if
wait(100)
UO.Grab('1','finditem')
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger)
uo.WaitMenu('What do you want to carve the wood into?','Items','Items','torch')
wait (200)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10)
wend

if uo.weight > 100 then
UO.SetReceivingContainer(Sunduk)
wait(100)
UO.FindType(TTorch)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
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(20000) # WorldSave Protection
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.Exec('terminate BowCraft_torch')
wait(1000)
UO.Exec('exec BowCraft_torch')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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 Askaneli on 2005-03-09 08:57:02, edited 2 times in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 09:57:11 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Магия она и в африке магия. На пойзоне качаем и качаем.
Code:
Var Sunduk='0x40226380'

sub main()
While uo.count('0x0F88','0x0000')>0

if uo.skillval('Magery',1)==1000 Then
return
end if

UO.FindType('0x0F88',-1,'backpack')
While UO.GetQuantity('finditem')<5
UO.FindType('0x0F88','0x0000',Sunduk)
wait(1000)
UO.Grab('100','finditem')
wait(700)
Wend

##while uo.mana>20
cheklag()
uo.cast('Poison','self')
wait(3000)
##wend


Repeat
uo.deletejournal()
uo.useskill('Meditation')
Wait(3000)
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int

While uo.mana < uo.int
Wait(100)
Wend
Wait(100)

Wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub


_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2005-03-09 08:57:58, edited 2 times in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 10:00:47 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Code:
sub Tracking()
uo.CancelMenu()
uo.AutoMenu("Track","Anything")
repeat
uo.deletejournal()
uo.UseSkill('Tracking')
repeat
wait(100)
until UO.InJournal("Tracking Cancelled")
until uo.Dead()
end sub

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2006-07-19 11:14:49, edited 4 times in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 10:10:43 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Детект
Основному чару запускаем Detect_Hidden
Левачку соответственно Hiding
Основной до кучи качает Спирит (это уже параноя, как бы прокачать спирит)
Code:
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

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2005-03-09 08:58:40, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 10:12:45 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Мод хилинга, опять же спирит
Code:
sub Train_Healing() 
var i,j,tekstr
uo.undress()
wait(100)
repeat
   UO.FindType(0x0E21,"-1","my")
   if UO.FindCount() then
      tekstr=uo.str
      wait(100)
      cheklag()
      uo.usetype(0x1F00); Cursed Hat
      uo.useskill ("Spirit Speak")
      wait(2000)
      j=0
      repeat
      wait(10)
      j=j+1
      until (uo.life <= tekstr-1) or (j>1000)
      cheklag()
      uo.undress()
      wait(100)
      cheklag()
      uo.exec('bandageself')
      Wait(2000)
   else
      UO.FindType(0x0E20,"-1","my")
      if UO.FindCount() then
         cheklag()
         uo.waittargettype(0x1008)   # wash basin
         uo.UseType(0x0E20)   #bloody bandages
      else
         cheklag()
         uo.print("You haven't bandages")
         uo.exec("terminate Train_Healing")
         Play_Sound(1)
      endif
   endif
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2005-03-09 08:59:21, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 10:15:41 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Стелс и хидинг.
Code:
sub Stealth()
var i=1
repeat
for i=1 to 8
uo.press(35)
wait(200)
if not uo.hidden() then
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.")
end if
next
for i=1 to 8
uo.press(33)
wait(200)
if not uo.hidden() then
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.")
end if
next
Wait(100)
until UO.Dead()
end sub

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2006-07-07 11:06:53, edited 3 times in total.

Top
   
 Post subject:
PostPosted: 2005-01-26 10:23:18 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Спаринг, суть проста, в сундуке ГХ, на руке брас жизни регенерирующий, на чаре броня. Просто когда совсем плохо чар пьёт бутылочку ГХ. Если бутылочек в паке мало берёт из сундука. Пустые бутылки выкладывает в тот же сундук. Временами кушает рыбные котлетки что лежат в паке.
Code:
Var Sunduk='0x402E9CD2'

sub sparing()
uo.useobject(Sunduk)
uo.useobject('backpack')
UO.SayU(".detail 0")
uo.warmode(1)
while not UO.Dead()
if UO.Life < 60 then
UO.FindType('0x0F0E','0x09BB','backpack')
if UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x09BB',Sunduk)
wait(200)
UO.Grab('10','finditem')
end if
UO.UseType('0x097B','0x0000')
wait(1000)
UO.UseType('0x0F0E','0x09BB')
wait(1000)
end if
wait(1000)
UO.FindType('0x0F0E','0x0000','backpack')
if UO.GetQuantity('finditem')>0 then
uo.MoveItem('finditem','-1',Sunduk)
end if
wait(1000)
wend
end sub

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2005-03-11 10:33:36, edited 2 times in total.

Top
   
 Post subject:
PostPosted: 2005-01-29 19:04:42 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Тинкер бутылок и алхимия на пойзоне, плюс пойзонинг до кучи.
Со спиритом и реконектором.
Code:
VAR Sunduk='0x402B3F94'
VAR dagger='0x402F0E97'
VAR LastTimer

sub Tinkering()
var i=0
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
while uo.count('0x1BEF')>0

i=i+1
if i==50 then
uo.usetype('0x097B')
wait(1000)
i=0
if uo.skillval("Spirit Speak",1)<1000 then
cheklag()
uo.print("Spirit Speak...")
LastTimer=UO.Timer()
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.") OR (UO.Timer()>LastTimer+200)
end if
end if

UO.FindType('0x1BEF',-1,'backpack')
While UO.GetQuantity('finditem')<10
UO.FindType('0x1BEF','0x0000',Sunduk)
wait(200)
UO.Grab('100','finditem')
wait(200)
Wend

uo.deletejournal()
LastTimer=UO.Timer()
uo.usetype('0x1EBC')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("Tinkering failed") OR (UO.Timer()>LastTimer+200)

if uo.weight > 300 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.FindType('0x0F0E')
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if

wend
end sub

sub Alchemy()
var i=0
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('What sort of potion do you want to','(last)')

uo.useobject(Sunduk)
wait(1000)
while 1==1

i=i+1
if i==50 then
uo.usetype('0x097B')
wait(1000)
i=0
if uo.skillval("Spirit Speak",1)<1000 then
cheklag()
uo.print("Spirit Speak...")
LastTimer=UO.Timer()
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.") OR (UO.Timer()>LastTimer+200)
end if
end if

UO.FindType('0x0F0E','0x0000','backpack')
While UO.GetQuantity('finditem')<20
UO.FindType('0x0F0E','0x0000',Sunduk)
wait(200)
UO.Grab('100','finditem')
wait(200)
Wend

UO.FindType('0x0F88','0x0000','backpack')
While UO.GetQuantity('finditem')<20
UO.FindType('0x0F88','0x0000',Sunduk)
wait(200)
UO.Grab('100','finditem')
wait(200)
Wend

uo.deletejournal()
LastTimer=UO.Timer()
uo.usetype('0x0F88','0x0000')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You toss the failed") OR (UO.Timer()>LastTimer+200)


UO.FindType('0x0F0E','0x0998')
if UO.GetQuantity('finditem')>0 then
if uo.skillval("Poisoning",1)<1000 then
uo.deletejournal()
LastTimer=UO.Timer()
uo.waittargetobject(dagger,'finditem')
uo.useskill('Poisoning')
repeat
wait(10)
until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison") OR (UO.Timer()>LastTimer+200)
else
if uo.weight > 200 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.Grab('0','finditem')
wait(200)
UO.UnSetReceivingContainer()
end if
end if
end if

wend
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(20000) # WorldSave Protection
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.Exec('terminate Alchemy')
wait(1000)
UO.Exec('exec Alchemy')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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 Askaneli on 2005-03-10 15:28:24, edited 4 times in total.

Top
   
PostPosted: 2005-01-30 00:02:41 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)


Top
   
PostPosted: 2005-01-30 20:41:50 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Savage wrote:
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)

Есть такая тема !!!

_________________
Сделал дело - флуди смело !!!


Top
   
PostPosted: 2005-01-31 00:59:23 
Offline
User avatar

Joined: 2004-11-07 01:22:35
Posts: 291
Location: Черкассы
Savage wrote:
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)


а какже.....
по другому я имбы и нестал :)


Top
   
PostPosted: 2005-02-01 07:44:34 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Goggy wrote:
Savage wrote:
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)


а какже.....
по другому я имбы и нестал :)

Я стал программистом немного по другой причине, но всё же природная лень не даёт мне теперь заниматся чем-то другим !!! :mrgreen:

_________________
Сделал дело - флуди смело !!!


Top
   
 Post subject:
PostPosted: 2005-02-08 06:03:19 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Herding (пастушество). Всё как обычно, незатамленная живность, посох пастуха, еда. Чар пытается отогнать животное к сундуку какому-нить в зоне видимости.
Code:
Var Animal='0x002179AD'
Var Crook='0x4036287E'
Var Sunduk='0x40226380'

sub Herding()
var i=0,LastTimer=0
UO.Exec('terminate Reconnector')
wait(100)
UO.Exec('exec Reconnector')
uo.useobject('backpack')
wait(1000)
while 1==1
i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif
uo.DeleteJournal()
LastTimer=UO.Timer()
uo.waittargetobject(Animal,Sunduk)
wait(10)
uo.useobject(Crook)
wait(10)
repeat
wait(10)
until UO.InJournal('The animal goes') or UO.InJournal('You don') or (UO.Timer()>LastTimer+200)
wend
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(20000) # WorldSave Protection
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.Exec('terminate Herding')
wait(1000)
UO.Exec('exec Herding')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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 Askaneli on 2005-03-09 09:05:24, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2005-02-08 06:13:30 
Offline

Joined: 2004-07-25 05:16:04
Posts: 57
Ты мне лучше скажи будет ли в этом топике твой мининг с ходилкой ? :P


Top
   
 Post subject:
PostPosted: 2005-02-08 07:16:15 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
autopilot wrote:
Ты мне лучше скажи будет ли в этом топике твой мининг с ходилкой ? :P

Он уже есть в свободном скачивании, просто искать надо !!!

_________________
Сделал дело - флуди смело !!!


Top
   
 Post subject:
PostPosted: 2005-02-08 07:33:54 
Offline

Joined: 2004-07-25 05:16:04
Posts: 57
205480956. Скажи мне где в асю пожалуйста если тут не хочешь.


Top
   
 Post subject:
PostPosted: 2005-02-08 07:44:11 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
autopilot wrote:
205480956. Скажи мне где в асю пожалуйста если тут не хочешь.

Тут на форуме.

_________________
Сделал дело - флуди смело !!!


Top
   
 Post subject:
PostPosted: 2005-02-08 09:23:36 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Просто пойзонинг. Должен работать по идее !!!
Code:
VAR Sunduk='0x402B3F94' 
VAR LastTimer
var dagger='0x402F0E97'

sub Poisoning()
uo.useobject('backpack')
wait(1000)
uo.useobject(Sunduk)
wait(1000)
while 1==1

UO.FindType('0x0F0E','0x0998','backpack')
While UO.GetQuantity('finditem')<20
UO.FindType('0x0F0E','0x0998',Sunduk)
wait(200)
UO.Grab('100','finditem')
wait(200)
Wend

UO.FindType('0x0F0E','0x0998')
if UO.GetQuantity('finditem')>0 then
if uo.skillval("Poisoning",1)<1000 then
uo.deletejournal()
LastTimer=UO.Timer()
uo.waittargetobject(dagger,'finditem')
uo.useskill('Poisoning')
repeat
wait(10)
until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison") OR (UO.Timer()>LastTimer+200)
else
if uo.weight > 200 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.Grab('0','finditem')
wait(200)
UO.UnSetReceivingContainer()
uo.closeuo()
end if
end if
end if

wend
end sub

_________________
Сделал дело - флуди смело !!!


Last edited by Askaneli on 2005-03-09 09:06:14, edited 1 time in total.

Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 178 posts ]  Go to page 1 2 3 4 59 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 15 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited