Yoko

All sides of Injection
It is currently 2025-11-11 20:08:33

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
PostPosted: 2006-04-21 19:05:39 
Offline
User avatar

Joined: 2005-04-23 20:18:57
Posts: 362
всем привет.

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

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

Code:
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х столбов что брать.

_________________
Dragon World. [since 2004]


Top
   
 Post subject:
PostPosted: 2006-04-21 19:38:41 
Offline
User avatar

Joined: 2006-02-21 09:31:41
Posts: 223
Вроде не льзя так сделать я не помню тут тему создавали и говарили то что не льзя

_________________
А Я че Я не че !


Top
   
 Post subject:
PostPosted: 2006-04-21 20:18:16 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Собственно либо пиши в стобец и проставляй

Code:
uo.fontcolor


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

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


Top
   
 Post subject:
PostPosted: 2006-04-21 20:30:31 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
На форуме светился уже давно.
Code:
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


Top
   
 Post subject:
PostPosted: 2006-04-21 21:41:27 
Offline
User avatar

Joined: 2005-04-23 20:18:57
Posts: 362
flake wrote:
На форуме светился уже давно.
Code:
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



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

_________________
Dragon World. [since 2004]


Top
   
 Post subject:
PostPosted: 2006-04-22 00:49:36 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Ты вруби этот скрипт, вруби свой - и увидишь эффект.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited