Скрипты от Askaneli

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Deivil wrote:hmz ja bi htoel uznatj kak mozna Igratj na drw 2 acc na 1 ip?

Элементарно.
Ставишь второй (третий и тд. компы) дома и цепляешь их к тому что к инету подключен сеточкой.
На каждом компе можно будет ровно 1 клиента запустить на ДРВ.
А внешний ИП у всех будет 1 и тот же.
Сделал дело - флуди смело !!!
Top
olo
Posts: 11
Joined: 2005-04-17 10:27:52
Contact:
Contact olo

Post by olo »

Sfagnum wrote:
xas wrote:У тебя есть скрипт на проверку голода(чтоб чар сам ел когда на макросе стоял)???Если есть скинь плизззззз :oops: :cry:
на ДРВ нет возможности запросить степень голодности чара.
есть возможность его пердически подкармливать, и таких скриптов до жопы на просторах данного форума.


Можно на себя юзать Animal Lore , там есть строчка о степени сытости чара
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

olo wrote:Можно на себя юзать Animal Lore , там есть строчка о степени сытости чара
тоже вариант... но по скорости сравним с тестовой подкормкой чара...
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Инскрипт. До 40 качаетна пойзоне, до 70 на реколах, до 100 на ФСах.
Если кончаются реги или бланки скрипт останавливается и закрывает УО.
Если доходит до предела перехода на другие свитки то скрипт останавливается и закрывает УО.

Code: Select all

VAR Sunduk1='0x40226380' ; ИД сундука с регами и бланками (NS для первого скрипта, BM BP MR для второго, SA SS для третьего)
VAR Sunduk2='0x401518C7' ; ИД мешочка с готовыми скролами.

sub InscriptionPoison()
var i=0
uo.cancelmenu()
uo.automenu('Spell Circles','Third Circle')
uo.automenu('Spell Circle 3','Poison')

cheklag()
uo.useobject(Sunduk1)
wait(1000)

while not uo.Dead()
if uo.skillval("Inscription",1)>=400 Then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F40','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F40','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if

i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif

UO.FindType('0x0E34','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0E34','0x0000',Sunduk1) 
wait(200)
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

UO.FindType('0x0F88','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F88','0x0000',Sunduk1) 
wait(200)
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

if uo.count('0x0F88','0x0000','backpack')==0 or uo.count('0x0E34','0x0000','backpack')==0 Then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F40','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F40','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if

uo.usetype('0x0E34')
UO.DeleteJournal()
repeat
wait(100)
until UO.InJournal('You put the') OR UO.InJournal('You fail')

if uo.weight >= uo.str*3 then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F40','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F40','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
end if

wend
end sub

sub InscriptionRecall()
var i=0
uo.cancelmenu()
uo.automenu('Spell Circles','Fourth Circle')
uo.automenu('Spell Circle 4','Recall')

cheklag()
uo.useobject(Sunduk1)
wait(1000)

while not uo.Dead()
if uo.skillval("Inscription",1)>=700 Then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F4C','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F4C','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if

i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif

UO.FindType('0x0E34','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0E34','0x0000',Sunduk1) 
wait(200) 
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

UO.FindType('0x0F7B','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F7B','0x0000',Sunduk1) 
wait(200)
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

UO.FindType('0x0F86','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F86','0x0000',Sunduk1) 
wait(200)
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

UO.FindType('0x0F7A','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F7A','0x0000',Sunduk1) 
wait(200) 
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

if uo.count('0x0E34','0x0000','backpack')==0 or uo.count('0x0F7B','0x0000','backpack')==0 or uo.count('0x0F86','0x0000','backpack')==0 or uo.count('0x0F7A','0x0000','backpack')==0 Then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F4C','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F4C','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if

uo.usetype('0x0E34')
UO.DeleteJournal()
repeat
wait(100)
until UO.InJournal('You put the') OR UO.InJournal('You fail')

if uo.weight >= uo.str*3 then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F4C','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F4C','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
end if

wend
end sub



sub InscriptionFS()
var i=0
uo.cancelmenu()
uo.automenu('Spell Circles','Seventh Circle')
uo.automenu('Spell Circle 7','Flamestrike')

cheklag()
uo.useobject(Sunduk1)
wait(1000)

while not uo.Dead()
if uo.skillval("Inscription",1)>=1000 Then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F5F','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F5F','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if

i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif

UO.FindType('0x0E34','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0E34','0x0000',Sunduk1) 
wait(200) 
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

UO.FindType('0x0F8C','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F8C','0x0000',Sunduk1) 
wait(200)
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

UO.FindType('0x0F8D','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F8D','0x0000',Sunduk1) 
wait(200)
cheklag()
UO.Grab('100','finditem') 
wait(1000)
end if

if uo.count('0x0E34','0x0000','backpack')==0 or uo.count('0x0F8C','0x0000','backpack')==0 or uo.count('0x0F8D','0x0000','backpack')==0 Then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F5F','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F5F','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if

uo.usetype('0x0E34')
UO.DeleteJournal()
repeat
wait(100)
until UO.InJournal('You put the') OR UO.InJournal('You fail')

if uo.weight >= uo.str*3 then
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F5F','0x0000') 
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem') 
wait(1000)
UO.FindType('0x1F5F','0x0000') 
wait(200)
wend
UO.UnSetReceivingContainer()
end if

wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Сделал дело - флуди смело !!!
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Рунбука ДРВ с использованием команды ONGUMP.

Code: Select all

############################################################### 
#### Рунбука для шарда DRW с использованием команды ONGUMP #### 
############################################################### 
####                   Crafted by Askaneli                 #### 
############################################################### 
####     Необходима Injection.dll не ниже версии 505.16    #### 
############################################################### 
####           Передаваемы параметры в процедуру           #### 
############################################################### 
####  idrb - ИД рунбуки                                    #### 
####  rejim - режим работы процедуры (1-4)                 #### 
####       1 - рекол по рунбуке по рунке номер nrune       #### 
####       2 - достать рунку nrune из рунбуки              #### 
####       3 - перезарядить рунбуку                        #### 
####       4 - вставить в рунбуку рунку с ИД idrune        #### 
############################################################### 
Sub Runebook(idrb,rejim,nrune,idrune)
Dim gumpreturn[9]
gumpreturn[1]="0x0015"
gumpreturn[2]="0x0021"
gumpreturn[3]="0x002E"
gumpreturn[4]="0x003A"
gumpreturn[5]="0x0040"
gumpreturn[6]="0x0049"
gumpreturn[7]="0x0058"
gumpreturn[8]="0x005E"
gumpreturn[9]="0x0401"
UO.exec('resend')
UO.UseObject('backpack')
if rejim==1 then ; Реколимся по рунбуке
   uo.useobject(idrb)
   uo.exec("ongump anygump "+gumpreturn[nrune])
end if
if rejim==2 then ; Выдёргиваем рунку из рунбука
   uo.useobject(idrb)
   uo.exec("ongump anygump "+uo.int2hex(11+nrune))
end if
if rejim==3 then ;Перезаряжаем рунбуку
   uo.useobject(idrb)
   uo.exec("ongump anygump 0x0001")
end if
if rejim==4 then ;Засовываем рунку в рунбук
   uo.waittargetobject(idrune)
   wait(100)
   uo.useobject(idrb)
   uo.exec("ongump anygump 0x000B")
end if
end sub
Last edited by Askaneli on 2005-06-21 09:31:04, edited 2 times in total.
Сделал дело - флуди смело !!!
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Задачка. Кто нить может увидит в этом какую нить зависимость ?
Ибо охота чё бы эстетичнее было.

Code: Select all

   if nrune==1 then 
      gumpreturn="0x0015" 
   end if 
   if nrune==2 then 
      gumpreturn="0x0021" 
   end if 
   if nrune==3 then 
      gumpreturn="0x002E" 
   end if 
   if nrune==4 then 
      gumpreturn="0x003A" 
   end if 
   if nrune==5 then 
      gumpreturn="0x0040" 
   end if 
   if nrune==6 then 
      gumpreturn="0x0049" 
   end if 
   if nrune==7 then 
      gumpreturn="0x0058" 
   end if 
   if nrune==8 then 
      gumpreturn="0x005E" 
   end if 
   if nrune==9 then 
      gumpreturn="0x0401" 
   end if
Сделал дело - флуди смело !!!
Top
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:
Contact I'm

Post by I'm »

Askaneli wrote:Задачка. Кто нить может увидит в этом какую нить зависимость ?
Ибо охота чё бы эстетичнее было.

Code: Select all

   if nrune==1 then 
      gumpreturn="0x0015" 
   end if 
   if nrune==2 then 
      gumpreturn="0x0021" 
   end if 
   if nrune==3 then 
      gumpreturn="0x002E" 
   end if 
   if nrune==4 then 
      gumpreturn="0x003A" 
   end if 
   if nrune==5 then 
      gumpreturn="0x0040" 
   end if 
   if nrune==6 then 
      gumpreturn="0x0049" 
   end if 
   if nrune==7 then 
      gumpreturn="0x0058" 
   end if 
   if nrune==8 then 
      gumpreturn="0x005E" 
   end if 
   if nrune==9 then 
      gumpreturn="0x0401" 
   end if

Всюду есть

Code: Select all

gumpreturn

Другого невижу :lol: :lol: :lol:
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

I'm wrote:Другого невижу :lol: :lol: :lol:
он имел ввиду нормализовать это как то... просто есть в математике фишка одна такая... что можно по набору цифр вывести формулу, которой будут соответствовать... что есть - помню, как делается - не помню :(

ЗЫ на данный момент вижу ток 1 вариант... это массив.
Top
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:
Contact I'm

Post by I'm »

Ты про прогрессии :?:
Не через массив будет некрасиво :)
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

I'm wrote:Ты про прогрессии :?:
нет помоему... у нас ента хрень изучалась в рамках предмета называющегося Теоритическая инф-ка... там ещё и автоматы всяческие были
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Если вы все таки про прогресси :lol: , то это вроде не прогрессия на первый взгляд (я ща правда тока 9ый закончил, но за предэкзаменационную по алгебре, у меня единственного была пять на три класса :roll: ).

Приведя в нормальный вид, зависимость обнаружена не была :)

Code: Select all

NUM.HEX//DEC +DEC // HEX
1.15//21  +12  // C
2.21//33  +13  // D
3.2E//46  +12  // C
4.3A//58  +6   // 6
5.40//64  +9   // 9
6.49//73  +15  // F
7.58//88  +6   // 6
8.5E//94  +931 // 3A3
9.401//1025

В другие системы счисления уж переводить не стал, врятли тут есть зависимость - вероятно админы от балды настрочили.
Так имхо, лехше )
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Top
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:
Contact I'm

Post by I'm »

Просто по описанию Сфага первое что пришло в голову были прогрессии :lol:
А унас было много пятерок в 9 кажется и у меня была :lol:
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

рОбят... я эт изучал рядышком с компиляторами... а вы о каких то пргрессиях :roll:
просто метод есть по точкам вывести формулу... но к прогресиям отношения = 0.
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Sfagnum wrote:рОбят... я эт изучал рядышком с компиляторами... а вы о каких то пргрессиях :roll:
просто метод есть по точкам вывести формулу... но к прогресиям отношения = 0.

К прогрессиям - ессно дело 0, но понимаешь, формуло то может и можно вывести, чтобы она зависила от переменной и выдавала нужные результаты, однако поверь мне, я незнаю как это делать ибо не проходил оного 8)
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Destruction wrote:
Sfagnum wrote:рОбят... я эт изучал рядышком с компиляторами... а вы о каких то пргрессиях :roll:
просто метод есть по точкам вывести формулу... но к прогресиям отношения = 0.

К прогрессиям - ессно дело 0, но понимаешь, формуло то может и можно вывести, чтобы она зависила от переменной и выдавала нужные результаты, однако поверь мне, я незнаю как это делать ибо не проходил оного 8)

Это ряды из одного из подраздела высшей математики, курс так 4-5 универа если мне память не изменяет. Ибо есь сомнения, так как ряды эти я в упор не помню. Во вкладыше к диплому глянул, пятёрка стоит.
Сделал дело - флуди смело !!!
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

Представьте, что это ступенчатая функция и разложите в ряд фурье...Другой вопрос анадо ливам это?
Математика займет куда больше времени чем рисование масива...
Из рациональности масив и красивше и куда быстрей...
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Destruction wrote:К прогрессиям - ессно дело 0, но понимаешь, формуло то может и можно вывести, чтобы она зависила от переменной и выдавала нужные результаты, однако поверь мне, я незнаю как это делать ибо не проходил оного 8)
твоё упоминание о школе вполне меня убедило в этом ;)
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Grin wrote:Представьте, что это ступенчатая функция и разложите в ряд фурье...
более похоже звучит ;)
Grin wrote:Другой вопрос анадо ливам это?
Математика займет куда больше времени чем рисование масива...
Из рациональности масив и красивше и куда быстрей...
мир стремится к красоте... а красиво это тогда, когда нет констант ;)
что много времени займёт - факт. насчёт рациональности... хз всё зависит от формулы... но далеко не факт что она будет выглядеть красиво... но всё равно хочется на неё поглядеть ;)
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

Тебе нужна формула ряда фурье? поверь это может быть красиво но в плане решения вопервых самой задачи разложения любой функции в ряд проблематично, но и востановить функцию из того же ряда...
А суть такая мы стараемся разложить функцию по гармоникам синуса и косинуса... А ктонибудь в курсе как компьютер вычисляет синус и косинус? Так вот по мимо этого гемора происходит сложение бесконечного числа гармоник что бы получить приближение к разлогаемой функции а общий вид это получится свободный член + бесконечная ссума гармоник (по синусу и косинусу) с константными коэфициентами полученые тоже по хорошим формулам;)
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Grin wrote:Тебе нужна формула ряда фурье? поверь это может быть красиво но в плане решения вопервых самой задачи разложения любой функции в ряд проблематично, но и востановить функцию из того же ряда...
А суть такая мы стараемся разложить функцию по гармоникам синуса и косинуса... А ктонибудь в курсе как компьютер вычисляет синус и косинус? Так вот по мимо этого гемора происходит сложение бесконечного числа гармоник что бы получить приближение к разлогаемой функции а общий вид это получится свободный член + бесконечная ссума гармоник (по синусу и косинусу) с константными коэфициентами полученые тоже по хорошим формулам;)

Ну где-то так я себе это и представлял.
Моё мнение что СПИРИТ наверняка не стал так заморачиватся и просто ему так захотелось он так и сделал.
Надо глянуть в скрипты сферы , может там что то видно будет.
Сделал дело - флуди смело !!!
Top
Post Reply

Return to “Scripting Ore”