Yoko

Posted: **2006-03-30 20:01:05**

Sfagnum wrote:мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

А что тебя в этом топике не устраивает? Скрипт для инжекта, в чем проблема?

Posted: **2006-03-30 21:36:25**

Edred wrote:
Естественно, а как ты хотел? Чтобы в одной строке все набиралось, типа анимации? Это тебе не в инжект надо, иди куда-нибудь на студию спецэффектов...

Чтобы было : я ввожу
Превед Едред... Как дила?
И мне выводилось
Превед
Едред...
Как
дила?

Я так понял это через твою функцию вывода подстроки делать нада?
Хотя мне не нада , я так для интереса

Posted: **2006-03-30 23:16:13**

да нет проблем и так...

Code: Select all

sub ExtraFlooderNew() 
; 
; Требует ASM-3 любой версии 
; 
; (c) Edred, сваяно прямо на форуме без тестирования 
; 
Var st = UO.AsmInputString( 'Что бум флудить?') 
Var i = strlen( st ), j, st2
Var speed = 1000 ; Скорость нажатия клавиш в мс.
j = 1
While true
   st2 = GetWord( st, j )
   If st2 == '' Then
      return
   Endif
   UO.Msg( st2 )
   wait( speed )
   j = j + 1
wend
endsub

ЗЫ: GetWord естественно надо выдрать из любого моего скрипта и приклеить в конец этого "скрипта"...

Posted: **2006-03-30 23:57:27**

Sfagnum wrote:мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

Хочешь в модеры?

Posted: **2006-03-31 00:05:43**

Destruction wrote:
Sfagnum wrote:мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

Хочешь в модеры?

бог с тобой...

Posted: **2006-03-31 03:37:18**

А как сделать чтоб я каждый раз не вписывал фарзу туда а например забиндил в скрпите написал как нуна и все так и было всегда
например привет и что с нажатия кнопки он писал привет?
А то всегда выскакивает ето что бум писать и нуна заного вписыватьь(

Posted: **2006-03-31 10:05:23**

переубивалбы таких флудерастов;)

Code: Select all

sub ExtraFlooderNew() 
; 
; Требует ASM-3 любой версии 
; 
; (c) Edred, сваяно прямо на форуме без тестирования 
; 
Var st =  'В бан меня! Ваш сервер Г!...' 
Var i = strlen( st ), j, st2 
Var speed = 1000 ; Скорость нажатия клавиш в мс. 
j = 1 
While true 
   st2 = GetWord( st, j ) 
   If st2 == '' Then 
      return 
   Endif 
   UO.Msg( st2 ) 
   wait( speed ) 
   j = j + 1 
wend 
endsub

Posted: **2006-03-31 19:28:57**

Grin wrote:переубивалбы таких флудерастов;)

Code: Select all

sub ExtraFlooderNew() 
; 
; Требует ASM-3 любой версии 
; 
; (c) Edred, сваяно прямо на форуме без тестирования 
; 
Var st =  'В бан меня! Ваш сервер Г!...' 
Var i = strlen( st ), j, st2 
Var speed = 1000 ; Скорость нажатия клавиш в мс. 
j = 1 
While true 
   st2 = GetWord( st, j ) 
   If st2 == '' Then 
      return 
   Endif 
   UO.Msg( st2 ) 
   wait( speed ) 
   j = j + 1 
wend 
endsub

Ты забыл дописать: "АСМ более не требуется"... :lol:

Posted: **2006-03-31 21:39:28**

а мне чё не ответили?

Posted: **2006-03-31 22:05:29**

To Edred:
Это что бы флудерам жизнь медом не казалась;)
To CONDOMchick:
ну добавь ты сет фонт перед выводом

Posted: **2006-04-01 01:12:15**

CONDOMchick wrote:а мне чё не ответили?

Ты же у Дестракшена спрашивал, в его скрипте, вот и подожди когда он тебе это сделает... :shock:

Posted: **2006-04-01 05:43:21**

ДА у него ошибка в 53 линии (

Posted: **2006-04-01 09:04:02**

[quote="SESTRA"]ДА у него ошибка в st2 = GetWord( st, j )

Posted: **2006-04-01 09:34:52**

SESTRA wrote:ДА у него ошибка в st2 = GetWord( st, j )

А повнимательнее прочесть мой пост с скриптом не судьба? Я там написал про гетворд все. Вообще, настойчиво рекомендую сделать небольшой наборчик стандартных функций, который помещать во все файлы скриптов в конец. В частности:

Code: Select all

CheckLag
DeleteJournal
GetWord
CheckPause

Это минимум. У меня их гораздо больше... Так гораздо удобнее работать, чем каждый раз про них вспоминать и откапывать...

Posted: **2006-04-01 09:40:40**

Не получается у мну не че можеш сделать плиз как нуна

Posted: **2006-04-01 18:04:41**

Code: Select all

sub ExtraFlooderNew2() 
; 
; ASM на фиг не нужен... 
; 
; (c) Edred, сваяно прямо на форуме без тестирования 
; 
Var st =  'В бан меня! Ваш сервер Г!...' 
Var i = strlen( st ), j, st2 
Var speed = 1000 ; Скорость нажатия клавиш в мс. 
j = 1 
While true 
   st2 = GetWord( st, j ) 
   If st2 == '' Then 
      return 
   Endif 
   UO.Msg( st2 ) 
   wait( speed ) 
   j = j + 1 
wend 
endsub

Sub GetWord( st, nom )
; (c) Edred
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
   VAR tmpst, i, dlin, kol = 0, start = 0
   dlin = len( st )
   For i=0 To dlin - 1
      If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
         kol = kol + 1
         If kol == nom Then
            ; это первый пробел после нужного нам слова
            tmpst = mid( st, start, i - start )
            return tmpst
         Else
            While mid( st, i, 1 ) == ' '
               i = i + 1
            Wend
            If kol == nom - 1 Then
               start = i
            Endif
         Endif
      Endif
   Next
   tmpst = ''
   return tmpst
endsub

Posted: **2006-04-01 18:50:10**

[quote="Grin]To CONDOMchick:
ну добавь ты сет фонт перед выводом[/quote]

как? вот в скрипе автора я вроде поня как но в том дестракшена...

Posted: **2006-04-01 18:58:59**

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.fontcolor(strlen(words[i])*1000)
uo.msg(words[i])
next
endsub

Posted: **2006-04-01 19:10:34**

а как там что плз описание где там цвета изменять?

Posted: **2006-04-01 19:12:54**

uo.fontcolor(strlen(words[i])*1000)
uo.fontcolor(Num)
где Num это цвет
Причем цвет по шкале уо вроде хз...

Yoko

Скрипт на флуд