Yoko

Posted: **2006-04-21 19:05:39**

всем привет.

вот собсна помощь снова нужна.

вот чей то там скрипт:

sub Flooder() 
var i, arr_len = 19 ; Общее количество слов 
var speed = 10 ; Скорость нажатия клавиш в мс. 
; Ниже - слова 
DIM words[val(str(arr_len))] 
words[0] = "1" 
words[1] = "1i" 
words[2] = "1if" 
words[3] = "1ife" 
words[4] = "1ife i"
words[5] = "1ife is"
words[6] = "1ife is g"
words[7] = "1ife is go"
words[8] = "1ife is goo"
words[9] = "1ife is good"
for i=0 to arr_len-1 
wait((strlen(words[i])+1)*speed) 
uo.msg(words[i]) 
next 
endsub

Можете пожалуйсто сделать чтобы каждая новая строка была другово цвета?

и 2.
Плз дайте простую одевалку под альфу чтобы было например 3 ф-ции для 3х столбов что брать.

Posted: **2006-04-21 19:38:41**

Вроде не льзя так сделать я не помню тут тему создавали и говарили то что не льзя

Posted: **2006-04-21 20:18:16**

Собственно либо пиши в стобец и проставляй

Code: Select all

uo.fontcolor

или же попробуй:

Code: Select all

for a = 0000 to 0010 ; =\ хз как правильно зделать
  uo.fontcolor([a])
  uo.Say(msg[i])
next

Posted: **2006-04-21 20:30:31**

На форуме светился уже давно.

Code: Select all

sub COLORTEXT() 
VAR x=5 
while True 
   if UO.InJournal(UO.Getname()) Then  
      UO.FontColor(x) 
      x=x+1 
      if x == 200 then 
         x=5 
      endif 
   endif 
   wait(30) 
Wend 
end sub

Posted: **2006-04-21 21:41:27**

flake wrote:На форуме светился уже давно.

Code: Select all

sub COLORTEXT() 
VAR x=5 
while True 
   if UO.InJournal(UO.Getname()) Then  
      UO.FontColor(x) 
      x=x+1 
      if x == 200 then 
         x=5 
      endif 
   endif 
   wait(30) 
Wend 
end sub

а поконкретней?:)
флуд разноцветный мутить?

Posted: **2006-04-22 00:49:36**

Ты вруби этот скрипт, вруби свой - и увидишь эффект.

Yoko

Флуд и Одевание альфа

Флуд и Одевание альфа

Yoko

Флуд и Одевание *альфа*

Флуд и Одевание *альфа*

Флуд и Одевание альфа

Флуд и Одевание альфа