Page 1 of 1
Бс (цветной металл)
Posted: 2004-12-22 14:23:08
by mamster
Выложите пожалуста скрипт на бс для цветных (даггеров например), в поиске нашел что то похожее, но он не идет или к нему надо описание, как им пользоваться
Posted: 2004-12-22 15:31:10
by STINGER
не проверял так что не знаю работает или нет
sub Blacksmithing()
var Exit=0, LastTimer, Container='0x400019D8', Forge='0x40001072' ;Cундук в котором инги и форж.
var CountIng=100 ;Скока ингов поднимает чар
var MenuIron="'Blacksmithing' 'Weapons'"
var MenuOther="'Colored' 'Weapons'"
var MenuSwords="Weapons' 'Swords'"
var MenuDagger="'Swords' '(3'"
var i=0
dim ColorOfIng[6]
dim NameOre[6]
NameOre[0]="'"
NameOre[1]="'Rusty "
NameOre[2]="'Old Copper "
NameOre[3]="'Dull Copper "
NameOre[4]="'Bronze "
ColorOfIng[0]='0x0000' ; Iron
ColorOfIng[1]='0x0750' ; Rusty
ColorOfIng[2]='0x0590' ; Old Copper
ColorOfIng[3]='0x060A' ; Dull Copper
ColorOfIng[4]='0x0488' ; Bronze
uo.UseObject(Container)
while not uo.Dead()
for i=0 to 4
uo.FindType('0x1BEF',ColorOfIng[i],Container)
if uo.GetQuantity('finditem')>10 then
uo.Grab(STR(CountIng),'finditem')
wait(1000)
uo.Exec('automenu '+MenuDagger)
uo.Exec('automenu '+NameOre[i]+MenuSwords)
if i>0 Then
uo.Exec('automenu '+MenuOther)
end if
uo.Exec('automenu '+MenuIron)
While Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()
uo.UseType(0x1BEF)
while not uo.InJournal("You put") and not uo.InJournal("You have failed")
wait(100)
wend
if uo.InJournal("You have failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; Время создания дагера
end if
CheckLag()
uo.FindType('0x0F51',-1,'backpack')
if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(3000)
end if
uo.FindType('0x1BEF',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF',ColorOfIng[i],Container)
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF',ColorOfIng[i],'backpack')
uo.SetReceivingContainer(Container)
uo.Grab('all','finditem')
uo.UnSetReceivingContainer()
Exit=1
end if
else
wait(1000)
uo.Grab(STR(CountIng-10),'finditem')
end if
wend
Exit=0
uo.CancelMenu()
end if
next
wend
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec("canceltarget")
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
Posted: 2004-12-22 15:49:03
by mamster
Вот я про этот скриптик и говорил .. что то он у мну не идет
Может кто нить описать как им пользоваться
Posted: 2004-12-23 01:54:26
by mamster
народ, ну так у кого этот скрипт идет? расскажите плз как им пользоваться, он у меня зацикливаеться
Posted: 2004-12-23 02:05:13
by 666Man666
Хз нужно или нет, но вот тибе простенький макрос на 1 вид инготов... там всё написано разберёшси
Code: Select all
###################################################################################################
###
var Chest='0x411D028B' ## - ID сундука Где лежат Инги, Хавка.
###
var Ingots='0x1BEF' ## - Type инготов.
###
var Items='0x0F5C' ## - Type того что будем делать.(МЭйс)
###
var CountIngot='400' ## - Кол-во инготов для загрузки.
###
var IngotQty=6 ## - Требуемое кол-во инготов для крафта.
###
var TypeFood='0x097B' ## - Type еды которую будем кушать в яшике должно быть не менее 20шт.(сейчас фиштейки)
###
###var GrabDelay='2000' ## - Задержка при перетаскивании (Работает только с последними версиями)
###
### Менюшки выбора ################################################################################
### 'Blacksmithing','Weapons','Swords & Blades','dagger'
###
### (40.8) 'Blacksmithing','Weapons','Weapons','Maces & Hammers','Maces & Hammers','mace'
###
### (69.1) 'Blacksmithing','Weapons','Weapons','Swords & Blades','Swords & Blades','katana'
###################################################################################################
#################
### Включалка ###
#################
sub Start()
If UO.GetGlobal('Tinkerscheck')=='on' Then
UO.SetGlobal('Tinkerscheck','off')
UO.Exec('Exec Terminate')
Else
UO.Exec('Exec BS')
UO.SetGlobal('Tinkerscheck','on')
EndIf
End sub
##########
### БС ###
##########
Sub BS()
If UO.GetGlobal('BCfirst')<>'yes' Then
UO.print("SELECT YOU Smith's Hammer")
UO.exec('addobject Hammer')
while UO.targeting()
wait(300)
wend
UO.SetGlobal('BCfirst','yes')
EndIf
###UO.Set('grabdelay',GrabDelay)
UO.UseObject(Chest)
Wait(5000)
REPEAT
ToEat()
######################
### Куем из ингов! ###
######################
If UO.Count(Ingots) Then ; Ковка с инготов.
While UO.Count(Ingots) >= IngotQty and NOT UO.Dead()
Wait(500)
UO.DeleteJournal()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Maces & Hammers','Maces & Hammers','mace')
UO.WaitTargetType(Ingots)
UO.UseObject('Hammer')
REPEAT
wait(300)
Until UO.InJournal('You put') or UO.InJournal('fail') or UO.Dead()
Wend
EndIf
####################################
### Плавим веши каторые накували ###
####################################
While UO.Count(Items) and NOT UO.Dead() ; Переплавка
UO.DeleteJournal()
UO.FindType(Items,-1,'backpack')
Wait(500)
UO.WaitTargetObject('finditem')
UO.UseObject(0x406CF0F0); Форж ID
REPEAT
wait(300)
Until UO.InJournal('You put') or UO.InJournal('useful') or UO.Dead()
Wend
If UO.Count(Ingots) <= IngotQty Then
UO.Print("Moove Ingots in Pack")
UO.TextOpen()
UO.TextPrint('Ваш скилл БС: '+STR(UO.SkillVal('Blacksmithing',1)/10))
GetIngots()
EndIf
Until UO.Dead()
end sub
#############################
### Берём инги из сундука ###
#############################
Sub GetIngots()
UO.FindType(Ingots,'-1',Chest)
If UO.FindCount() Then
UO.MoveItem('finditem',CountIngot,'backpack')
Wait(5000)
Else
While UO.Count(Ingots) < IngotQty
UO.Print("ERROR: Low quantity of the Ingots!!!")
Wait(5000)
Wend
EndIf
End sub
##########################################
### Берём хавку из контейнера и кушаем ###
##########################################
Sub ToEat()
UO.DeleteJournal()
If UO.Count(TypeFood) Then
REPEAT ; Кушаем хавчик
UO.UseType(TypeFood)
Wait(1000)
Until UO.InJournal("You are simply too full to eat any more!") or UO.Dead()
Else
UO.FindType(TypeFood,'-1',Chest)
If UO.GetQuantity() >= 20 Then
UO.MoveItem('finditem','20','backpack')
Wait(5000)
REPEAT ; Берём и кушаем хавчик
UO.UseType(TypeFood)
Wait(1000)
Until UO.InJournal("You are simply too full to eat any more!") or UO.Dead()
Else
UO.print("ERROR: Not Found Food!!!")
EndIf
EndIf
End sub
#############################
### Выключаем все скрипты ###
#############################
Sub Terminate()
UO.Print("BS script: Off!")
UO.DeleteJournal()
UO.Exec('terminate all')
Wait(100)
UO.Exec('terminate all')
Wait(100)
UO.Exec('terminate all')
Wait(100)
End sub