Yoko

All sides of Injection
It is currently 2025-12-27 20:26:27

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 2 of 3
  [ 48 posts ]  Go to page Previous 1 2 3 Next
  Print view Previous topic | Next topic 
Author Message
Edred
 Post subject:
PostPosted: 2006-03-30 20:01:05 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Sfagnum wrote:
мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!


А что тебя в этом топике не устраивает? Скрипт для инжекта, в чем проблема?
Top
   
Reply with quote  
SLAK
 Post subject:
PostPosted: 2006-03-30 21:36:25 
Offline

Joined: 2005-08-19 16:12:23
Posts: 182
Edred wrote:

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

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

Я так понял это через твою функцию вывода подстроки делать нада?
Хотя мне не нада , я так для интереса :)
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-03-30 23:16:13 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
да нет проблем и так...

Code:
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
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-03-30 23:57:27 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Sfagnum wrote:
мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

Хочешь в модеры?
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2006-03-31 00:05:43 
Offline
Expert!
User avatar

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

Хочешь в модеры?
бог с тобой...
Top
   
Reply with quote  
SESTRA
 Post subject:
PostPosted: 2006-03-31 03:37:18 
Offline
User avatar

Joined: 2006-02-21 09:31:41
Posts: 223
А как сделать чтоб я каждый раз не вписывал фарзу туда а например забиндил в скрпите написал как нуна и все так и было всегда
например привет и что с нажатия кнопки он писал привет?
А то всегда выскакивает ето что бум писать и нуна заного вписыватьь(

_________________
А Я че Я не че !
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-03-31 10:05:23 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
переубивалбы таких флудерастов;)
Code:
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
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-03-31 19:28:57 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Grin wrote:
переубивалбы таких флудерастов;)
Code:
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
   
Reply with quote  
CONDOMchick
 Post subject:
PostPosted: 2006-03-31 21:39:28 
Offline
User avatar

Joined: 2005-04-23 20:18:57
Posts: 362
а мне чё не ответили?

_________________
Dragon World. [since 2004]
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-03-31 22:05:29 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
To Edred:
Это что бы флудерам жизнь медом не казалась;)
To CONDOMchick:
ну добавь ты сет фонт перед выводом
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-04-01 01:12:15 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
CONDOMchick wrote:
а мне чё не ответили?


Ты же у Дестракшена спрашивал, в его скрипте, вот и подожди когда он тебе это сделает... :shock:
Top
   
Reply with quote  
SESTRA
 Post subject:
PostPosted: 2006-04-01 05:43:21 
Offline
User avatar

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

_________________
А Я че Я не че !
Top
   
Reply with quote  
SESTRA
 Post subject:
PostPosted: 2006-04-01 09:04:02 
Offline
User avatar

Joined: 2006-02-21 09:31:41
Posts: 223
[quote="SESTRA"]ДА у него ошибка в st2 = GetWord( st, j )

_________________
А Я че Я не че !
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-04-01 09:34:52 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
SESTRA wrote:
ДА у него ошибка в st2 = GetWord( st, j )


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

Это минимум. У меня их гораздо больше... Так гораздо удобнее работать, чем каждый раз про них вспоминать и откапывать...
Top
   
Reply with quote  
SESTRA
 Post subject:
PostPosted: 2006-04-01 09:40:40 
Offline
User avatar

Joined: 2006-02-21 09:31:41
Posts: 223
Не получается у мну не че можеш сделать плиз как нуна

_________________
А Я че Я не че !
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-04-01 18:04:41 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Code:
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
   
Reply with quote  
CONDOMchick
 Post subject:
PostPosted: 2006-04-01 18:50:10 
Offline
User avatar

Joined: 2005-04-23 20:18:57
Posts: 362
[quote="Grin]To CONDOMchick:
ну добавь ты сет фонт перед выводом[/quote]

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

_________________
Dragon World. [since 2004]
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-04-01 18:58:59 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Code:
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
   
Reply with quote  
CONDOMchick
 Post subject:
PostPosted: 2006-04-01 19:10:34 
Offline
User avatar

Joined: 2005-04-23 20:18:57
Posts: 362
а как там что плз описание где там цвета изменять?

_________________
Dragon World. [since 2004]
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-04-01 19:12:54 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
uo.fontcolor(strlen(words[i])*1000)
uo.fontcolor(Num)
где Num это цвет
Причем цвет по шкале уо вроде хз...
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 2 of 3
  [ 48 posts ]  Go to page Previous 1 2 3 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 10 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:  
Powered by phpBB® Forum Software © phpBB Limited