Page 1 of 3
Скрипт на флуд
Posted: 2006-03-25 04:37:43
by SESTRA
Парни подскажите я не допираю вот скрипт ну тоесть не скрипт а так на флуд кароче что нуна сделать чтоб не просто тупо выскакивало а писалось кабуто я пишу !
Пример
#
Sub Flud()
uo.msg("O")
wait(800)
uo.msg("O o")
wait(800)
uo.msg("O oe")
wait(800)
uo.msg("O oe e")
wait(800)
uo.msg("O oe ea")
wait(800)
uo.msg("O oe eae")
wait(800)
uo.msg("O oe eaei")
wait(800)
uo.msg("O oe eaeie")
wait(800)
end sub
Posted: 2006-03-25 10:35:47
by SLAK
Задержки побольше поставь... в строках:
800 замени на нужное число...
ПС: 1000 равна 1 сек
Posted: 2006-03-27 12:55:38
by Destruction
Всё гораздо красивее -)
Code: Select all
sub Flooder()
var i, arr_len = 5 ; Общее количество слов
var speed = 300 ; Скорость нажатия клавиш в мс.
; Ниже - слова
DIM words[val(str(arr_len))]
words[0] = "A"
words[1] = "BB"
words[2] = "CCC"
words[3] = "DDDD"
words[4] = "EEEEE"
for i=0 to arr_len-1
wait((strlen(words[i])+1)*speed)
uo.msg(words[i])
next
endsub
ЗЫ: Можно еще рандомайзу встроить, чтобы добавлять/вычитать секунды, чтобы было похоже, что ищешь клавишу, забыл что писать итп, можно даже опечатки замутить, только это некрасиво в скрипте инжекта будет смотреться - надо будет дописать пару длинных функций, для определения кода символа и создания символа из кода.
Posted: 2006-03-27 21:04:05
by Edred
Destruction wrote:Всё гораздо красивее -)
Можно еще красивее
Code: Select all
sub ExtraFlooder()
;
; Требует ASM-3 любой версии
;
; (c) Edred, сваяно прямо на форуме без тестирования
;
Var st = UO.AsmInputString( 'Что бум флудить?')
Var i = strlen( st ), j
Var speed = 1000 ; Скорость нажатия клавиш в мс.
For j = 0 To i-1
UO.Msg( left( st, j+1 ) )
wait( speed )
Next
endsub
Posted: 2006-03-27 21:16:02
by SLAK
Флудеры йопт &)
Posted: 2006-03-28 00:20:24
by SESTRA
Спасибо
Posted: 2006-03-30 00:16:44
by Destruction
Edred wrote:Destruction wrote:Всё гораздо красивее -)
Можно еще красивее
Code: Select all
sub ExtraFlooder()
;
; Требует ASM-3 любой версии
;
; (c) Edred, сваяно прямо на форуме без тестирования
;
Var st = UO.AsmInputString( 'Что бум флудить?')
Var i = strlen( st ), j
Var speed = 1000 ; Скорость нажатия клавиш в мс.
For j = 0 To i-1
UO.Msg( left( st, j+1 ) )
wait( speed )
Next
endsub
Нет, сие конструкция красивее, но зато куда менее юзабельна, например требует АСМ.
ЗЫ: Дред, будем делать функцию создания опечаток во фразах? Мне не слабо
Posted: 2006-03-30 04:51:21
by SESTRA
UO.AsmInputString
Вот такая ошибка(
Posted: 2006-03-30 06:34:43
by megafakel
А как команду поставить?
Posted: 2006-03-30 06:41:07
by SESTRA
куда поставить:?))))
В асю стукни!
Posted: 2006-03-30 08:41:13
by Edred
SESTRA wrote:UO.AsmInputString
Вот такая ошибка(
Написано же - требует АСМ любой версии. Тебе сюда:
http://agrs.info/asm
Posted: 2006-03-30 08:44:15
by Edred
Destruction wrote:Нет, сие конструкция красивее, но зато куда менее юзабельна, например требует АСМ.
Поставить АСМ легче, чем каждый раз в массиве забивать фразу по 20 раз...
Destruction wrote:ЗЫ: Дред, будем делать функцию создания опечаток во фразах? Мне не слабо
На фиг. Жизнь коротка, тратить время на бессмыслицу нет желания.
Posted: 2006-03-30 09:42:37
by SLAK
Edred wrote:sub ExtraFlooder()
;
; Требует ASM-3 любой версии
;
; (c) Edred, сваяно прямо на форуме без тестирования
;
Флудит побуквенно, тоесть на слово Превед получим
П
Пр
Пре
Прев
Преве
Превед
Posted: 2006-03-30 09:44:20
by SLAK
Destruction wrote:Всё гораздо красивее -)
Это гуд пашет...
Posted: 2006-03-30 13:39:21
by megafakel
sub flood()
uo.fontcolor('0x000')
uo.say("Б")
wait(100)
uo.fontcolor('0x000')
uo.say("Би")
wait(100)
uo.fontcolor('0x000')
uo.say("Бии")
wait(100)
uo.fontcolor('0x0003')
end sub
Мона и такой тоже норм=)
Posted: 2006-03-30 17:23:46
by Sfagnum
мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!
Posted: 2006-03-30 17:27:41
by Grin
мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!
Posted: 2006-03-30 18:18:27
by SLAK
Мля УМНИКИ!!! Кокого *** вы тут флудите???
Posted: 2006-03-30 18:18:43
by CONDOMchick
Code: Select all
sub Flooder()
var i, arr_len = 5 ; Общее количество слов
var speed = 300 ; Скорость нажатия клавиш в мс.
; Ниже - слова
DIM words[val(str(arr_len))]
words[0] = "A"
words[1] = "BB"
words[2] = "CCC"
words[3] = "DDDD"
words[4] = "EEEEE"
for i=0 to arr_len-1
wait((strlen(words[i])+1)*speed)
uo.msg(words[i])
next
endsub
можно плз сделать чтобы на каждой строке цвет менял
Posted: 2006-03-30 19:59:08
by Edred
SLAK wrote:Edred wrote:sub ExtraFlooder()
;
; Требует ASM-3 любой версии
;
; (c) Edred, сваяно прямо на форуме без тестирования
;
Флудит побуквенно, тоесть на слово Превед получим
П
Пр
Пре
Прев
Преве
Превед
Естественно, а как ты хотел? Чтобы в одной строке все набиралось, типа анимации? Это тебе не в инжект надо, иди куда-нибудь на студию спецэффектов...