Скрипты на ОЛДП

[FallenNigga]

Зделаю маленький запрос на парочку скриптов под ОЛДП
например на
Lumberjacking
Bowcrafting
Taming
Blacksmithing
Mining
Tailoring
Чтобы у чара было всё в бэкпаке
а не дома и сундуки
скилли на добавание
чтобы ложил в БП

[slonopotam]

На олдп вроде только меню крафта отличается.

[Scripts Writer]

Ничего себе запросы.
Время покажет,-но я бы тебе посоветовал идти в поиск и там искать.

[Nmy]

перед тем как запускать скрипт, зделай 1й баклер...

Code: Select all

sub BS()
VAR Exit = 0, k, bag, type, color, h=0
VAR chesttoput = '0x4009AECB'
VAR chestwithbags = '0x4009B6A4'
VAR chestwithings = '0x4009A0CD'

uo.exec('addobject ingi')
 while uo.targeting()
 wait(250)
wend

uo.Deletejournal()

uo.useobject(chesttoput)
checklag()
uo.useobject(chestwithbags)
checklag()
uo.useobject(chestwithings)
checklag()

type = UO.GetGraphic('ingi')
color = UO.GetColor('ingi')

while Exit<>1
If uo.injournal('World Save') then
wait(30000)
end if

h = h + 1
if h >= 10 then
uo.msg('.hungry')
h = 0
endif

While not UO.Hidden()
uo.warmode(0)
UO.UseSkill('Hiding')
Wait(4000)
Wend 

check:
uo.findtype('0x0E76', -1 , chesttoput )
if uo.findcount() then
del('255|bag')
uo.click('finditem')
repeat
wait(100)
until uo.injournal('bag')
if uo.injournal('255') then
uo.ignore('finditem')
goto check
else
bag = uo.getserial('finditem')
end if
else
uo.findtype('0x0E76', -1 , chestwithbags )
bag = uo.getserial('finditem')
uo.moveitem( bag , 0 , chesttoput , 18 , 148 , 0 )
wait(1000)
end if

find:
uo.findtype('0x1B73', -1 ,'backpack')
If UO.FindCount() Then
UO.moveitem('finditem', 0 , bag )
wait(1000)
goto find
end if

uo.findtype( type , color ,'backpack')
If UO.GetQuantity('finditem') < 20 then
UO.FindType('0x1BEF', color , chestwithings )
If uo.FindCount() == 0 then
return
end if
UO.moveitem('finditem','100','backpack')
wait(1000)
end if

Del('You put|fail|World Save')
uo.FindType( type , color ,'backpack')
checklag()
uo.recall(uo.GetSerial('finditem'), 3 )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
   wend

   If UO.InJournal('starving|hungry') then
    Del('starving|hungry')
    eat()
   Endif

  wend   
end sub

Sub checklag() 
   del('backpack') 
   uo.click('backpack') 
   repeat 
   wait(50) 
   until uo.injournal('backpack') 
   del('backpack') 
end sub 

Sub del(msg) 
   while uo.injournal(msg) 
   uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!") 
   wend 
end sub

Sub eat()
UO.DeleteJournal()
While NOT UO.InJournal('too full to eat')
UO.FindType('0x097B')
If UO.FindCount() == 0 then
uo.useobject('0x4009ECD3')
wait(500)
checklag()
UO.FindType('0x097B', -1 ,'0x4009ECD3')
UO.MoveItem('finditem','20','backpack')
CheckLag()
Endif
UO.UseType('0x097B')
wait(250)
wend
end sub

мининг нет смылса выкладывать, всеравно ненастроиш...

[Scripts Writer]

перед тем как запускать скрипт, зделай 1й баклер...

[code][/code]

мининг нет смылса выкладывать, всеравно ненастроиш...

Ты на ОЛДП шпилишь?

[Nmy]

раньше баловался... месяц проиграл на инже когда она была запрещена потом разрешыли, я тему поднял... а скрипты, просто завалялись... Шард тупой, забил на уо... щас жду новый проект, долгая история, сервер делает люди каторые зделали сервер 6лет таму назад, каторый рулил в Латвии... лан хватит писать, можно форум почитать uo.vsem.lv

[Qmer]

У кого есть скрипт для олдп (можно без анти-макро)...виложите пожалусто!
И обисните как работайт (пробивал Ветерана скрипт...немогу врубить как координати деревей вложить)

[FallenNigga]

2 NMY
не идёт твои скрипт

[FallenNigga]

пишит
Invalid Object: 100
No item Found

[Scripts Writer]

Ненаходит у тебя какую то вещь, если не ошибаюсь в кол-ве 100 штук. Проставь типы предварительно, все ид сундуков и открой их вручную перед запуском скрипта

[FallenNigga]

nado sro4no scriptik na lumbejaking i na bowcraft

[Nmy]

изьу в зубы и вперёд...

[Scripts Writer]

Поиск в помощь