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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Sfagnum wrote:мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!
А что тебя в этом топике не устраивает? Скрипт для инжекта, в чем проблема?
Top
SLAK
Posts: 182
Joined: 2005-08-19 16:12:23
Contact:
Contact SLAK

Post by SLAK »

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

Я так понял это через твою функцию вывода подстроки делать нада?
Хотя мне не нада , я так для интереса :)
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

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

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 естественно надо выдрать из любого моего скрипта и приклеить в конец этого "скрипта"...
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Sfagnum wrote:мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!
Хочешь в модеры?
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Destruction wrote:
Sfagnum wrote:мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!
Хочешь в модеры?
бог с тобой...
Top
SESTRA
Posts: 223
Joined: 2006-02-21 09:31:41
Contact:
Contact SESTRA

Post by SESTRA »

А как сделать чтоб я каждый раз не вписывал фарзу туда а например забиндил в скрпите написал как нуна и все так и было всегда
например привет и что с нажатия кнопки он писал привет?
А то всегда выскакивает ето что бум писать и нуна заного вписыватьь(
А Я че Я не че !
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

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

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
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

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:
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

а мне чё не ответили?
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

To Edred:
Это что бы флудерам жизнь медом не казалась;)
To CONDOMchick:
ну добавь ты сет фонт перед выводом
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

CONDOMchick wrote:а мне чё не ответили?
Ты же у Дестракшена спрашивал, в его скрипте, вот и подожди когда он тебе это сделает... :shock:
Top
SESTRA
Posts: 223
Joined: 2006-02-21 09:31:41
Contact:
Contact SESTRA

Post by SESTRA »

ДА у него ошибка в 53 линии (
А Я че Я не че !
Top
SESTRA
Posts: 223
Joined: 2006-02-21 09:31:41
Contact:
Contact SESTRA

Post by SESTRA »

[quote="SESTRA"]ДА у него ошибка в st2 = GetWord( st, j )
А Я че Я не че !
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

SESTRA wrote:ДА у него ошибка в st2 = GetWord( st, j )
А повнимательнее прочесть мой пост с скриптом не судьба? Я там написал про гетворд все. Вообще, настойчиво рекомендую сделать небольшой наборчик стандартных функций, который помещать во все файлы скриптов в конец. В частности:

Code: Select all

CheckLag
DeleteJournal
GetWord
CheckPause
Это минимум. У меня их гораздо больше... Так гораздо удобнее работать, чем каждый раз про них вспоминать и откапывать...
Top
SESTRA
Posts: 223
Joined: 2006-02-21 09:31:41
Contact:
Contact SESTRA

Post by SESTRA »

Не получается у мну не че можеш сделать плиз как нуна
А Я че Я не че !
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

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
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

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

как? вот в скрипе автора я вроде поня как но в том дестракшена...
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

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
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

а как там что плз описание где там цвета изменять?
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

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

Return to “Scripting Ore”