Скрипт на флуд
Moderators: Murderator+, Murderator
Скрипт на флуд
Парни подскажите я не допираю вот скрипт ну тоесть не скрипт а так на флуд кароче что нуна сделать чтоб не просто тупо выскакивало а писалось кабуто я пишу !
Пример
#
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
Пример
#
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
А Я че Я не че !
Задержки побольше поставь... в строках:
800 замени на нужное число...
ПС: 1000 равна 1 сек
Code: Select all
wait(800)ПС: 1000 равна 1 сек
-
Destruction
- Junior Expert
- Posts: 3221
- Joined: 2004-06-24 22:08:56
Всё гораздо красивее -)
ЗЫ: Можно еще рандомайзу встроить, чтобы добавлять/вычитать секунды, чтобы было похоже, что ищешь клавишу, забыл что писать итп, можно даже опечатки замутить, только это некрасиво в скрипте инжекта будет смотреться - надо будет дописать пару длинных функций, для определения кода символа и создания символа из кода.
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Можно еще красивее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
-
Destruction
- Junior Expert
- Posts: 3221
- Joined: 2004-06-24 22:08:56
Нет, сие конструкция красивее, но зато куда менее юзабельна, например требует АСМ.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
ЗЫ: Дред, будем делать функцию создания опечаток во фразах? Мне не слабо
Написано же - требует АСМ любой версии. Тебе сюда: http://agrs.info/asmSESTRA wrote:UO.AsmInputString
Вот такая ошибка(
Поставить АСМ легче, чем каждый раз в массиве забивать фразу по 20 раз...Destruction wrote:Нет, сие конструкция красивее, но зато куда менее юзабельна, например требует АСМ.
На фиг. Жизнь коротка, тратить время на бессмыслицу нет желания.Destruction wrote:ЗЫ: Дред, будем делать функцию создания опечаток во фразах? Мне не слабо
Флудит побуквенно, тоесть на слово Превед получимEdred wrote: sub ExtraFlooder()
;
; Требует ASM-3 любой версии
;
; (c) Edred, сваяно прямо на форуме без тестирования
;
П
Пр
Пре
Прев
Преве
Превед
Last edited by SLAK on 2006-03-30 09:48:19, edited 1 time in total.
-
CONDOMchick
- Posts: 362
- Joined: 2005-04-23 20:18:57
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можно плз сделать чтобы на каждой строке цвет менял
[size=150][i]Dragon World. [since 2004][/i][/size]
Естественно, а как ты хотел? Чтобы в одной строке все набиралось, типа анимации? Это тебе не в инжект надо, иди куда-нибудь на студию спецэффектов...SLAK wrote:Флудит побуквенно, тоесть на слово Превед получимEdred wrote: sub ExtraFlooder()
;
; Требует ASM-3 любой версии
;
; (c) Edred, сваяно прямо на форуме без тестирования
;
П
Пр
Пре
Прев
Преве
Превед