Скрипты и Клуб.

BETEPAH · Post by **BETEPAH** » 2005-01-08 21:48:10

i_love_uo wrote:как кинуть пульку в бутылку с эксполшоном на кнопку??
и у меня иногда ддостаточно чато глюк я надеваю броню а
она ищезает...

Перечитай полностью этот топ ...я выкладывал свой Автолоуд ...в нем и каст на экспу есть

$oK0JI · Post by **$oK0JI** » 2005-01-08 23:20:29

АУУУ а мне помогите плиз

Mguai · Post by **Mguai** » 2005-01-08 23:51:41

ВСех С прошедшим с НОвым ГОДОМ =)

XpyCmuK · Post by **XpyCmuK** » 2005-01-09 05:37:42

A na Teloring budet vilozhin script ?

mortimer · Post by **mortimer** » 2005-01-09 14:52:03

BETEPAH wrote:
mortimer wrote:все уже работает =) тока скрипта на мининг так и нету (( может кто напишет ? =)
в этом же топике есть и майнинг с реколом.

Я ж говорю я в скриптах нешарю а тот скрипт обкапывает вокруг себя слишком много клеток ! мне нада чтоб обкапывал только 8 вокруг себя и перекапал поле 15х5 а как тот скрипт настроить под свои нужды я ненаю =( может ты поможеш ?

BETEPAH · Post by **BETEPAH** » 2005-01-09 17:59:23

XpyCmuK wrote:A na Teloring budet vilozhin script ?

Эдродовский .......

BETEPAH · Post by **BETEPAH** » 2005-01-09 18:00:30

$oK0JI wrote:АУУУ а мне помогите плиз

А у тебя то что ?

BETEPAH · Post by **BETEPAH** » 2005-01-09 18:01:54

mortimer wrote:
BETEPAH wrote:
mortimer wrote:все уже работает =) тока скрипта на мининг так и нету (( может кто напишет ? =)
в этом же топике есть и майнинг с реколом.
Я ж говорю я в скриптах нешарю а тот скрипт обкапывает вокруг себя слишком много клеток ! мне нада чтоб обкапывал только 8 вокруг себя и перекапал поле 15х5 а как тот скрипт настроить под свои нужды я ненаю =( может ты поможеш ?

http://yoko.netroof.net/forum/viewtopic.php?t=842

KTO nyKHyJI??? · Post by **KTO nyKHyJI???** » 2005-01-10 22:20:36

ВЕТЕРАН почему когда я в строчке

Code: Select all

 var f=file("C:\trees3.dat") ## - Путь к файлу в котором будут хранится координаты деревьев.  /[code]
выставляю свой путь, файл сохраняется всё равно в диск С ?

у меня также есть несколько предложений
1 почему бы реколится не только при поевлнении энтов
но и при появлении ПК... и если появился Пк 
ждать дома указанное время... 
2 почему бы не делать рекол в лес после марканья деревьев
а то когда делаешь очень много деревьев чар  долго идёт обратно
хотя намного проще сделать рекол в лес!

Sfagnum · Post by **Sfagnum** » 2005-01-11 08:35:55

i_love_uo wrote:выставляю свой путь, файл сохраняется всё равно в диск С ?

ага.

i_love_uo wrote:у меня также есть несколько предложений
1 почему бы реколится не только при поевлнении энтов
но и при появлении ПК... и если появился Пк
ждать дома указанное время...
2 почему бы не делать рекол в лес после марканья деревьев
а то когда делаешь очень много деревьев чар долго идёт обратно
хотя намного проще сделать рекол в лес!

эт называется персональный тюнинг.

Excel · Post by **Excel** » 2005-01-11 16:44:55

sub BS()
var Iron='0x1bef'
var Forge='0x4032D1C4'
var tPoduct ='0x0F51'
uo.Automenu('Blacksmithing','Weapons')
uo.Automenu('Weapons','Swords & Blades')
uo.Automenu('Swords & Blades','dagger')
repeat
uo.DeleteJournal()
uo.UseType(Iron)
repeat
wait(150)
until uo.InJournal('You')

uo.FindType(tProduct,-1,'backpack')
if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(3000)
end if

until (uo.Count(Iron)<=16)
uo.playwav('c:\Inject\71.wav')
end sub

po4emu kogda ja zapuskaju etot script pi6et line 15 undentifed t product?pomogite plz

Sfagnum · Post by **Sfagnum** » 2005-01-11 16:50:54

ёп, те чо одного места портить мало?

KTO nyKHyJI??? · Post by **KTO nyKHyJI???** » 2005-01-13 19:01:43

ап!

Yamakasi*** · Post by Yamakasi*** » 2005-01-14 17:20:22

пишется потому что заметь наверху написано var tPoduct ='0x0F51'
а внизу написано uo.FindType(tProduct,-1,'backpack'

вглядись в одном месте написано tPoduct а в другом месте tProduct

BETEPAH · Post by **BETEPAH** » 2005-01-14 22:00:15

Я вернулся на ДРВ и перешел в гильдию WoF.
Принят ее Замом Ольгой

joker_psix · Post by **joker_psix** » 2005-01-14 22:36:54

Excel wrote:
Code: Select all
... 
if uo.GetQuantity('finditem') then 
...
po4emu kogda ja zapuskaju etot script pi6et line 15 undentifed t product?
pomogite plz

А почему бы ему и не показывать ?

Ehidna · Post by **Ehidna** » 2005-01-16 03:54:57

ВЕТЕРАН
А не могбы ты подсказать скрипт на переделку хлопка в нитки чтобу брал чучку хлопка и клал в сумку нитки

Kin · Post by **Kin** » 2005-01-21 01:57:58

Ehidna wrote:ВЕТЕРАН
А не могбы ты подсказать скрипт на переделку хлопка в нитки чтобу брал чучку хлопка и клал в сумку нитки

Code: Select all

##########################################################
sub bolt() 
VAR LastTimer
   VAR Sunduk = '0x40F94635'    ; Сериал сундука
   VAR Pr = '0x40F6D624'        ; Сериал прялки   
   VAR Nit = '0x0FA0'           ; Тип ниток   
   VAR Bolt = '0x0F95'          ; Тип болта
   VAR KolN = 30               ; Брать ниток
   VAR k , n

repeat
    while UO.Count(Nit)<KolN
     n=UO.Count(Nit)
     UO.FindType(Nit,-1,Sunduk)
     UO.Grab(str(KolN-n),'finditem')
     wait(1000)
     CheckLag()
    wend
 repeat
 Hid() 
   UO.DeleteJournal() 
   UO.Waittargetobject(Pr)
   UO.Usetype(Nit) 
      wait(500)
 until UO.Count(Nit)<1 
 UO.FindType( Bolt, -1, -1 )
 UO.MoveItem( 'finditem' , 0, Sunduk )
 wait(1000)
 UO.FindType( Bolt, -1, 'ground' )
 UO.MoveItem( 'finditem' , 0, Sunduk ) 
 wait(1000)
until UO.Dead()    
end sub 

sub Hid() 
while not uo.Hidden() 
 UO.Exec("warmode 0") 
 uo.Print('Hiding...') 
 uo.UseSkill('Stealth') 
 wait(4000) 
wend 
wait(100) 
end sub

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

###########################################################

sub nit()
VAR LastTimer
   VAR Sunduk = '0x40F94635'    ; Сериал сундука
   VAR Pr = '0x40F6D660'        ; Сериал прялки   
   VAR hl = '0x0DF9'
repeat
      hid()
      uo.findtype(hl,-1,Sunduk)
      if uo.FindCount() then
         UO.Grab('10','finditem')
             repeat
               hid()
               UO.Waittargetobject(Pr)
               wait(500)
               UO.UseType(hl)
               LastTimer=UO.Timer() 
               repeat
                  wait(500)
               until UO.InJournal('You put the spools')OR UO.Timer()>LastTimer+200 
               wait(2000)
             until UO.Count(hl)<1
             UO.FindType( '0x0FA0', -1, -1 )
             UO.MoveItem(  'finditem' , 0, Sunduk )
       else
          uo.exec('terminate all')
       endif
    wait( 1000 )
until uo.dead()
end sub

sub Hid() 
while not uo.Hidden() 
 UO.Exec("warmode 0") 
 uo.Print('Hiding...') 
 uo.UseSkill('Stealth') 
 wait(4000) 
wend 
wait(100) 
end sub
###########################################################

sub main() 
VAR LastTimer
   VAR Sunduk = '0x40F94635'    ; Сериал сундука
   VAR Nit = '0x0FA0'           ; Тип ниток   
   VAR Tka = '0x175D'           ; Тип ткани
   VAR KolN = 10               ; Брать ниток
   VAR KolT = 150              ; Брать ткани
   VAR Item = '0x1541'
   var n

repeat
    while UO.Count(Nit)<KolN
     n=UO.Count(Nit)
     UO.FindType(Nit,-1,Sunduk)
     UO.Grab('10','finditem')
     wait(1000)
     CheckLag() 
    wend
    while UO.Count(Tka)<KolT
     n=UO.Count(Tka)
     UO.FindType(Tka,-1,Sunduk)
     UO.Grab(str(KolT-n),'finditem')
     wait(1000)
     CheckLag()
    wend
 
while Uo.Count(Tka)>15 and Uo.Count(Nit)>1
  CheckLag() 
  UO.Exec("waitmenu 'Cloth' 'Headwear' 'Headwear' 'Jester'") 
  uo.waittargettype(Tka) #ткань 
  UO.UseType('0x0F9D') #инструмент
  LastTimer=UO.Timer()
  Repeat
    wait(100) 
  Until UO.InJournal("You put") or UO.InJournal("fail") or UO.Timer()>LastTimer+200
wend 

       sell()    


until UO.Dead()    
end sub

ps Скрипт Ветра помоему или Ревенанта

Kin · Post by **Kin** » 2005-01-21 02:04:49

Привет Кирилл

Это Крест с Антариеса

Стучать в асю тебе както отвлекая тебя от чего нить не охото

Помоги если можешь со скриптом на Ветеринарию.
Там при маленьком скиле неудобняк получается. И он не всегда командует лошедям чтоб они встали. Если не трудно , удали траблу

Code: Select all

sub main() 
var x 
var s 
UO.addtype('bint','0x0E21') 
UO.addtype('bintG','0x0E20') 
UO.addobject('hors1','0x00A3E886') 
UO.addobject('hors2','0x00A38B14') 


start: 
if UO.GetQuantity('^bint')<100 then 
UO.moveitem('~bint','50') 
wait(1500) 
end if 
if UO.GetQuantity('^bintG')>249 then 
uo.drophere('^bintG') 
wait(1500) 
end if 
UO.WaitTargetObject('hors1') 
uo.sayu("all kill") 
wait(3000) 
s=0 
UO.DeleteJournal() 
wait(100) 
while not UO.InJournal("mummy") 
if s>1 then 
uo.sayu("all stay") 
wait(1500) 
s=0 
end if 
UO.DeleteJournal() 
wait(100) 
UO.WaitTargetObject('hors1') 
UO.Usetype('bint') ;aeiou 
wait(2000) 
x=0 
while not UO.InJournal("apply") and not UO.InJournal("mummy") and x<10 
wait(500) 
x=x+1 
s=s+0.5 
wend 
Wend 

UO.WaitTargetObject('hors1') 
uo.sayu("all kill") 
wait(3000) 
s=0 
UO.DeleteJournal() 
wait(100) 
while not UO.InJournal("mummy") 
if s>1 then 
uo.sayu("all stay") 
wait(1500) 
s=0 
end if 
UO.DeleteJournal() 
wait(100) 
UO.WaitTargetObject('hors2') 
UO.Usetype('bint') ;aeiou 
wait(2000) 
x=0 
while not UO.InJournal("apply") and not UO.InJournal("mummy") and x<10 
wait(500) 
x=x+1 
s=s+0.5 
wend 
Wend 
goto start 

end sub

Кстати твой чар которого ты мне подарил на Антаресе, процветает

Ehidna · Post by **Ehidna** » 2005-01-26 22:35:55

BETEP помоги с алхимией Poison делает, но из пака не выкидывает в сундук.
Может не то ID бутылки с отравой. Мешаю я Lesser Poison.
Можно ли доделать, как запрос ID бутылки которую надо бросать в сундук, если она присутствует у тебя в паке.
А мож как нибудь по другому решить??

sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print(сундук с регами и бутылками')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print(сундук, куда бросать)
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif

UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('500','finditem')
wait(1000)
Endif

UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

UO.UseType('0x0F88')
UO.WaitMenu('What','Poison')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub