|
Новый мегаскрипт! =)
| |
| PAR | Дата: Четверг, 2007-01-04, 10:17 AM | Сообщение # 1 |
 Великий Скриптор
Группа: Модераторы
Сообщений: 149
Статус: Offline
| Оч удобно  Проблеммы с регами автоматически отпадают! -------------------------------------------------------------------------
| Code |
#известные ники воров\киллеров,
#при их появлении буешь моментально телепортирован домой
var KnownThieve1='Satana'
var KnownThieve2='Alpha'
var KnownThieve3='Vilhelm'
var KnownThieve4='a grizzly bear'
#ИД сундука, в котором будут реги, деньги и рекалы
var SyndykID=0x6444CD6D #GrVilla
#координаты x и y руны в дом (координаты тебя после телепортации)
var homex=2043 #GrVilla
var homey=1259 #GrVilla
#ИД рунбука со списком вендоров
var RunebookID=0x62C7B261
#номера рун, первая это руна в дом,
#остальные это руны к вендорам в том порядке, в котором хошь)
#"-1" значит телепорт не используется.
var HomeRune=1
var R1 =5
var R2 =2
var R3 =6
var R4 =3
var R5 =7
var R6 =4
var R7 =-1
var R8 =-1
var R9 =-1
var R10=-1
var R11=-1
var R12=-1
var R13=-1
var R14=-1
var R15=-1
#кол-во золота, которое будешь брать с собой для покупки регов
var RequiredGold='25000'
#название листа с регами (или не регами) на покупку,
#который надо будет создать.
#создается в окне Injection->main->Buy\Sell
#если покупать ничего не нада поставь ''
var BuyingItems='reags_list'
#при желании можно еще и продавать вещи, если сюда вписать лист
#то вещи из него будут продаваться
#если продавать ничего не нада поставь ''
var SellingItems=''
#тип продаваемой шмотки (или одной их них).
#этот параметр нужен чтобы шмотки продавались только когда они есть
#в наличии, если параметр не ввести то скрипт будет пытаться продать
#лист каждому вендору, что несколько замедляет процесс.
#если не хочешь указывать тип то присвой этому параметру "-1"
var SellingItemType=-1
#если SellingMode=1 то будешь продавать кажд. продавцу по
#одной пачке итемов.
#если не "1" то будешь продавать первому продавцу сразу
#все. Если он переполнится то 2му, итд.
#Если установлено SellingItemType=-1 то регулировка этой опции бессмысленна,
#будет продаваться по 1пачке каждому вендору
var SellingMode=0
#задержка между покупкой и продажей, если оч плохой инет то увеличить-)
var PreSellingDelay=3000
#количество каждого из регов, которое останется в инвентаре
#после окончания работы скрипта. Если нада чтобы все остались, пропиши "-1"
#Остальные реги положатся в сундук)
var ReagentsMax=100 |
Сообщение отредактировал mont - Пятница, 2007-06-01, 2:49 AM |
| |
| |
| PAR | Дата: Четверг, 2007-01-04, 10:18 AM | Сообщение # 2 |
|
Великий Скриптор
Группа: Модераторы
Сообщений: 149
Статус: Offline
| | Code | #Следующие параметры менять не рекомендуется.
var Gold =0x0eed
var BM =0x0F7B
var BP =0x0F7A
var GA =0x0F84
var GI =0x0F85
var MR =0x0F86
var NS =0x0F88
var SA =0x0F8C
var SS =0x0F8D
var GS =0x0F85
var VendorName ='vendor'
var ThievesFound=0
var Status =0
sub Processing_vendors_by_PAR()
GoHome(RuneBookID,HomeRune,homex,homey)
PrepareItems(SyndykID,RuneBookID)
ProcessingVendors(RuneBookID,R1,R2, R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,HomeRune,BuyingItems,SellingItems,SellingMode,SellingItemTyp e,PreSellingDelay)
PrepareReags(SyndykID)
end sub
sub PrepareReags(RgContainer)
var RegType
UO.UseObject(RgContainer)
if ReagentsMax>0 then
for RegType=3962 to 3981
if UO.Count(RegType)>0 then
PutFast(RgContainer,RegType)
endif
TakeFast(RgContainer,RegType,Str(ReagentsMax))
next
endif
UO.Resend()
UO.Hide(RgContainer)
e nd sub
sub PrepareItems(IContainer,RBID)
UO.UseObject(IContainer)
if UO.Count('0x1f4c')<20 then
TakeFast(IContainer,'0x1f4c','20')
endif
if UO.Count('0x1f4c')<20 then
ActionsManage(1,1,1,0)
endif
if UO.Count('0x1f4c')>=20 then
RechargeRunebook(RBID)
PutFast(IContainer,Gold)
TakeFast(IContainer,Gold,RequiredGold)
PutFast(IContainer,'0x1f4c')
endif
UO.Re send()
UO.Hide(IContainer)
end sub
sub GoHome(RBID,HomeRune,x,y)
var xtmp=UO.GetX()
var ytmp=UO.GetY()
if x<>xtmp or y<>ytmp then
RunebookRecall(RBID,HomeRune)
endif
end sub |
Сообщение отредактировал mont - Пятница, 2007-06-01, 2:49 AM |
| |
| |
| PAR | Дата: Четверг, 2007-01-04, 10:19 AM | Сообщение # 3 |
|
Великий Скриптор
Группа: Модераторы
Сообщений: 149
Статус: Offline
| | Code | sub ProcessingVendors(RBID,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,HomeRune,BuyList,SellList,SellingMod,SellingItem,PreSellingDelay)
v ar x,y,i=0
var FirstRune=-1
var LastRune =-1
var TmpCount =-1
var CurrentRuneNum
Dim RuneNum[15]
RuneNum[1] =R1
RuneNum[2] =R2
RuneNum[3] =R3
RuneNum[4] =R4
RuneNum[5] =R5
RuneNum[6] =R6
RuneNum[7] =R7
RuneNum[8] =R8
RuneNum[9] =R9
RuneNum[10]=R10
RuneNum[11]=R11
RuneNum[12]=R12
RuneNum[13]=R13
RuneNum[14]=R14
RuneNum[15]=R15
for i=1 to 15
if FirstRune==-1 and RuneNum[i]>0 then
FirstRune=i
endif
if RuneNum[i]>0 then
LastRune=i
endif
next
for i=1 to 15
if RuneNum[i]>0 then
CurrentRuneNum=RuneNum[i]
if i==FirstRune then
RunebookRecall(RBID,CurrentRuneNum)
endif
x=UO.GetX()
y=UO.GetY()
if i<>FirstRune then
while x==UO.GetX() and y==UO.GetY()
wait(200)
if CurrentRuneNum<=8 then
UO.LClick(65 ,(CurrentRuneNum-1)*15+69)
endif
if CurrentRuneNum>8 then
UO.LClick(212,(CurrentRuneNum-9)*15+69)
endif
if UO.InJournal('charges')then
RechargeRunebook(RBID)
UO.UseObject(RBID)
endif
wend
endif
FindThieves(RBID,HomeRune)
UO.Exec('warmod e 0')
UO.UseObject(RBID)
if BuyList<>'' then
VendorBuy(BuyList)
endif
if SellList<>'' then
VendorSell(SellList,SellingItem,PreSellingDelay)
if SellingMod==1 then
if SellingItem>0 then
while UO.Count(SellingItem)>0 and UO.Count(SellingItem)<>TmpCount
TmpCount=UO.Count(SellingItem)
VendorSell(SellList,SellingItem,PreSellingDelay)
wend
endif
endif
endif
if i==LastRune then
if SellingItem>0 then
while UO.Count(SellingItem)>0 and UO.Count(SellingItem)<>TmpCount
TmpCount=UO.Count(SellingItem)
VendorSell(SellList,SellingItem,PreSellingDelay)
wend
endif
RunebookRe call(RBID,HomeRune)
endif
endif
next
end sub
sub VendorBuy(Item)
if UO.Count(Gold)>0 and ThievesFound==0 then
UO.DeleteJournal()
UO.Buy(Item,VendorName)
wait(100)
while not UO.InJournal('Greetings.') and not UO.InJournal('stock.') and not UO.InJournal('interested')
wait(200)
wend
end if
end sub
sub VendorSell(Item,ItemID,PreSellingDelay)
var VendorVelocity=0
if ItemID>0 then
if UO.Count(ItemID)>0 and ThievesFound==0 then
wait(PreSellingDelay)
UO.DeleteJournal()
UO.Sell(Item,VendorName)
wait(100)
while not UO.InJournal('total') and not UO.InJournal('sold.') and not UO.InJournal('stock.') and VendorVelocity<PreSellingDelay/200
wait(200)
VendorVelocity=VendorVelocity+1
wend
endif
endif |
Сообщение отредактировал mont - Пятница, 2007-06-01, 2:50 AM |
| |
| |
| PAR | Дата: Четверг, 2007-01-04, 10:20 AM | Сообщение # 4 |
|
Великий Скриптор
Группа: Модераторы
Сообщений: 149
Статус: Offline
| | Code | if ItemID<=0 then
if ThievesFound==0 then
wait(PreSellingDelay)
UO.DeleteJournal()
UO.Sell(Item,VendorName)
wait(100)
while not UO.InJournal('total') and not UO.InJournal('sold.') and not UO.InJournal('stock.') and VendorVelocity<PreSellingDelay/200
wait(200)
VendorVelocity=VendorVelocity+1
wend
endif
endif
end sub
sub RechargeRunebook(RBID)
UO.DeleteJournal()
while not UO.InJournal('full')
UO.DeleteJournal()
while not UO.InJournal('recharge')
UO.UseObject(RBID)
UO.WaitTargetType('0x1f4c')
wait(2000)
UO.LClick(244,23)
wend
wait(2000)
wend
end sub
sub FindThieves(RBID,HomeRune)
ThievesFound=0
UO.UseSkill('Detect Hidden')
repeat
wait(100)
until UO.InJournal('someone!!') or UO.InJournal('detecting') or UO.InJournal('nobody') or UO.InJournal('perform')
if UO.InJournal('someone!!') or UO.InJournal('detecting') or UO.InJournal(KnownThieve1)or UO.InJournal(KnownThieve2)or UO.InJournal(KnownThieve3) or UO.InJournal(KnownThieve4) then
ThievesFound=1
RunebookRecall(RBID,HomeRune)
endif
UO.Exec('warmode 0')
UO.UseObject(RBID)
UO.DeleteJournal()
end sub
sub RunebookRecall(RBID,RuneNum)
var x,y
x=UO.GetX()
y=UO.GetY()
UO.Exec('warmode 0')
UO.UseObject(RBID)
while x==UO.GetX() and y==UO.GetY()
wait(200)
if RuneNum<=8 then
UO.LClick(63,(RuneNum-1)*15+69)
endif
if RuneNum>8 then
UO.LClick(212,(RuneNum-9)*15+69)
endif
if UO.InJournal('charges')then
RechargeRunebook(RBID)
UO.UseObject(RBID)
endif
wend
end sub
sub PutFast(IContainer,Item)
while UO.Count(Item)>0
UO.FindType(Item)
UO.MoveItem('finditem','0',IContainer)
wait(200)
wend
end sub
sub TakeFast(IContainer,Item,Count)
var PrevItemCount=UO.Count(Item)
UO.FindType(Item,'0x0000',IContainer)
if UO.GetQuantity('finditem')>0 then
UO.MoveItem('finditem',Count,'backpack')
endif
while PrevItemCount==UO.Count(Item)
wait(200)
if UO.GetQuantity('finditem')==0 Then
PrevItemCount=-10
endif
wend
end sub
# @ PAR -)
|
-------------------------------------------------------------------------
Сообщение отредактировал mont - Пятница, 2007-06-01, 2:50 AM |
| |
| |
| PAR | Дата: Четверг, 2007-01-04, 10:28 AM | Сообщение # 5 |
|
Великий Скриптор
Группа: Модераторы
Сообщений: 149
Статус: Offline
| Скрипт так-же выложен в разделе файлы. Описание работы в общих чертах: Чтобы скрипт заработал нужно:
1.Рунбук с рунами к вендорам и руной к сундуку
2.Настроить скрипт (на самом деле нетрудно, т.к. есть описание)
3.Создать в меню Injection->main->Buy\Sell листы с таким-же названием,
как в настройках (по умолчанию это var BuyingItems='reags_list' и var SellingItems='') После запуска скрипт телепортирует тебя домой, к сундуку, возьмет оттуда
рекалы и лаве, перезарядит рунбук, положит рекалы обратно,
после чего начнется облет вендоров. В случае появления в зоне видимости
нежелательных лиц, либо воров в хайде, скрипт тутже отправит тебя домой,
и потом облет продолжится со следующей руны. У каждого вендора будут
покупаться шмотки, нарисованные в листе покупок (не обязательно реги),
и продаваться шмотки из листа продаж. После облета телепортируешься домой,
все реагенты, которых больше указанного количества,
(var ReagentsMax) положатся в сундук, т.е. останется по ReagentsMax
каждого рега (это отключабельно).
По умолчанию конфигурация настроена на покупку регов) Скрипт отличается максимальной скоростью работы для возможностей инжекта -- Хз, вроде ничего не забыл... Глюков пока тож не нашел  Ежли будете использовать, пишите впечатления-)
|
| |
| |
| mont | Дата: Четверг, 2007-01-04, 1:27 PM | Сообщение # 6 |
|
Одмин.
Группа: Администраторы
Сообщений: 1051
Статус: Offline
| Molodecc:)
|
| |
| |
| fox | Дата: Вторник, 2007-02-13, 1:58 PM | Сообщение # 7 |
|
Рядовой
Группа: Проверенные
Сообщений: 3
Статус: Offline
| народ выложите скрипт на шапки аналог этого скрипта буду оч благодарен)
Нубоскриптер нид бекап
Сообщение отредактировал fox - Вторник, 2007-02-13, 1:59 PM |
| |
| |
| PAR | Дата: Четверг, 2007-02-22, 0:31 AM | Сообщение # 8 |
|
Великий Скриптор
Группа: Модераторы
Сообщений: 149
Статус: Offline
| Бугога! Выложим, а потом на каждую шкуру будет толпа ботов ломиться-)
Впрочем мона этот скрипт настроить чтобы он так работал... Кто сможет, тому и деньги рекой
|
| |
| |
 |
