Code: Select all
sub SS()
var x = -1, y = -1, z = -1, value, msg = 'Сколько будет'
While true
If UO.InJournal(msg) then
Wait(500)
x = Compare()
y = Compare()
z = Compare()
If x > -1 and y > -1 and z > -1 then
DelJournal(msg)
UO.Print(str(x) + ' + ' + str(y) + ' + ' + str(z) + ' = ' + str(x + y + z))
UO.Say(str(x + y + z))
else
UO.Print('Ошибка')
UO.Print(str(x) + ' + ' + str(y) + ' + ' + str(z) + ' = ' + str(x + y + z))
Endif
else
Wait(100)
Endif
Wend
Endsub
Sub Compare()
var a
Dim Num[10]
Num[0] = 'Нол'
Num[1] = 'Оди'
Num[2] = 'Дв'
Num[3] = 'Тр'
Num[4] = 'Четы'
Num[5] = 'Пят'
Num[6] = 'Шест'
Num[7] = 'Сем'
Num[8] = 'Восе'
Num[9] = 'Девя'
For a = 0 to 9
If UO.InJournal(Num[a]) and UO.JournalSerial(UO.InJournal(Num[a]) - 1) == UO.GetSerial('self') then
UO.SetJournalLine(UO.InJournal(Num[a]) - 1, '')
Return a
else
Wait(10)
Endif
Next
Return -1
Endsub