ПРИМЕР (немножко кривоват, но для примера в самы раз):
Code:
sub main()
var ch='tut nik tvoego 4ara'
var x
wait(2000)
if uo.injournal(ch)
x=waitingforvalue()
wait(2000)
uo.print(x)
end sub
sub waitingforvalue()
uo.deletejournal()
while not uo.injournal(ch)
wait(100)
wend
var string=uo.journal(uo.injournal(ch)-1)
string=GetWord(string,3) #тут с учётом ника чара...
#если ник из 2 слов, то поставить 4 вместо 3
return string
end sub
#А тут превеед от Edred'a =)
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 + 1 )
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
end sub
Register
Login
FAQ
Search
