var Chest='0x4004428A'
sub Fan()
var Anekdot=0, Stix=0, Text_1=50, Text_2=30, Check, ID_Player
var Anekdot_Max=Server('info_anekdot',0), Stix_Max=Server('info_stix',0)
var Message="Расскажу за инги\руду\армор: Объявление - 8 шт, Анекдот - 4 шт, Стишок - 3 шт, Расписание Турнира - 2 шт, Время - 1 шт."

UO.Set('grabdelay','500')
UO.Ignore(Chest)
   REPEAT
      If UO.Journal('0')=="status" and Text_2 >= 30 Then
         UO.FontColor('0x0025')
         UO.Msg("Последние обновление(10.09.05), След. Анек("+str(Anekdot)+"), След Стих("+str(Stix)+")")
         Text_2 = 0
      Else
         Text_2 = Text_2+1
            If Text_2 > 35 Then
               Text_2 = 30
            End If
      End If
      If Text_1 >= 50 Then ; 54 = (27 sec)
         ;UO.FontColor('0x0064')
         ;UO.Msg("AUTO-SYSTEM")
         ;Wait(1000)
         UO.FontColor('0x0385')
         UO.Msg(Message)
         Text_1 = 0
      Else
         Text_1 = Text_1+1
      End If
      If UO.TradeCount() Then
         UO.FontColor('0x0064')
         Search('Preview')
         UO.Msg("Жми галочку...")
         REPEAT
            Wait(500)
         Until UO.TradeCheck('n','right','1') or UO.TradeCount()==0
         If UO.TradeCount() Then
            ID_Player = UO.TradeOpponent('n')
            UO.TradeCheck('n','left',1)
            Wait(2500)
               REPEAT
                  Check=Search('All')
                     If Check<>0 Then
                        If Check==1 Then
                           Server('time_now',0)
                        Else
                           If Check==2 Then
                              UO.FontColor('0x0025')
                              UO.Msg("Р А С П И С А Н И Е")
                              Wait(2500)
                              Server('turnir_now',0)
                           Else
                              If Check==3 Then
                                 Stix = Stix+1
                                    If Stix > Stix_Max Then
                                       Stix = 1
                                    End If
                                 UO.FontColor('0x0025')
                                 UO.Msg("С Т И Ш О К ("+str(Stix)+".)")
                                 Wait(2500)
                                 Server('stix',Stix)
                              Else
                                 If Check==4 Then
                                    Anekdot = Anekdot+1
                                       If Anekdot > Anekdot_Max Then
                                          Anekdot = 1
                                       End If
                                    UO.FontColor('0x0025')
                                    UO.Msg("А Н Е К Д О Т ("+str(Anekdot)+".)")
                                    Wait(2500)
                                    Server('anekdot',Anekdot)
                                 Else
                                    If Check==5 Then
                                       UO.FontColor('0x0025')
                                       UO.Msg("ОБЪЯВЛЕНИЕ")
                                       Wait(2500)
                                       Declaration(ID_Player)
                                    Else
                                       If Check==6 Then
                                          UO.FontColor('0x0385')
                                          UO.Msg("БОЛЬШОЕ СПАСИБО !!!")
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
               Until Check==0
            Search('Drop')
            Text_1 = 14
         End If
      End If
   Wait(500)
   Until UO.Dead()
end sub

Sub Search(Mode)
var Color, Select
;==================================================================
;                И Т Е М Ы   Д Л Я   П Е Р Е Б О Р А!              
;------------------------------------------------------------------
Dim Items[15]
Items[0]  = 14
Items[1]  = '0x1412' ; Plate Helm
Items[2]  = '0x1413' ; Platemail Gorget
Items[3]  = '0x1415' ; Platemail
Items[4]  = '0x1411' ; Platemail Legs
Items[5]  = '0x1410' ; Platemail Arms
Items[6]  = '0x1414' ; Platemail Gauntlets
Items[7]  = '0x19B7' ; 1 ore
Items[8]  = '0x19BA' ; 2 ore
Items[9]  = '0x19B8' ; 3 ore
Items[10] = '0x19B9' ; 4 and more ore
Items[11] = '0x1BEF' ; Ingots
Items[12] = '0x0F14' ; Guild Credit
Items[13] = '0x0F29' ; Diamond
Items[14] = '0x1870' ; Silver ball

Dim ColorItems[5]
ColorItems[0] = 4
ColorItems[1] = '0x0486' ; Magma
ColorItems[2] = '0x079E' ; Sandrock
ColorItems[3] = '0x0492' ; Ancient
ColorItems[4] = '0x0495' ; Mystic

If Mode=='Preview' Then
   For Color = 1 TO ColorItems[0]
      For Select = 1 TO 6
         UO.FindType(Items[Select],ColorItems[Color],UO.TradeContainer('right'))
            If UO.FindCount() Then
               UO.FontColor('0x0064')
                  If Select==1 Then ; Шлем
                     UO.Msg("Цена Армора: СТИШОК")
                  Else
                     If Select==2 Then ; Горгет
                        UO.Msg("Цена Армора: РАСПИСАНИЕ")
                     Else
                        If Select==3 Then ; Пузо
                           UO.Msg("Цена Армора: АНЕКДОТ")
                        Else
                           If Select==4 Then ; Ноги
                              UO.Msg("Цена Армора: АНЕКДОТ")
                           Else
                              If Select==5 Then ; Рукова
                                 UO.Msg("Цена Армора: АНЕКДОТ")
                              Else
                                 If Select==6 Then ; Перчатки
                                    UO.Msg("Цена Армора: СТИШОК")
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
            End If
      Next
   Next
End If
If Mode=='All' Then
   For Color = 1 TO ColorItems[0]
      For Select = 1 TO 11
         UO.FindType(Items[Select],ColorItems[Color],'-1')
            If UO.FindCount() Then
               If Select==7 Then
                  UO.Forget('finditem')
                  UO.MoveItem('finditem','all',Chest)
                  return 1
               Else
                  If Select==8 or Select==2 Then
                     UO.Forget('finditem')
                     UO.MoveItem('finditem','all',Chest)
                     return 2
                  Else
                     If Select==1 or Select==6 or Select==9 Then
                        UO.Forget('finditem')
                        UO.MoveItem('finditem','all',Chest)
                        return 3
                     Else
                        If Select==3 or Select==4 or Select==5 or Select==10 Then
                           If Select==10 and UO.GetQuantity('finditem')>=8 Then
                              UO.Forget('finditem')
                              UO.MoveItem('finditem','all',Chest)
                              return 5
                           Else
                              UO.Forget('finditem')
                              UO.MoveItem('finditem','all',Chest)
                              return 4
                           End If
                        Else
                           If Select==11 Then
                              If UO.GetQuantity('finditem')==1 Then
                                 UO.Forget('finditem')
                                 UO.MoveItem('finditem','all',Chest)
                                 return 1
                              Else
                                 If UO.GetQuantity('finditem')==2 Then
                                    UO.Forget('finditem')
                                    UO.MoveItem('finditem','all',Chest)
                                    return 2
                                 Else
                                    If UO.GetQuantity('finditem')==3 Then
                                       UO.Forget('finditem')
                                       UO.MoveItem('finditem','all',Chest)
                                       return 3
                                    Else
                                       If UO.GetQuantity('finditem')==4 Then
                                          UO.Forget('finditem')
                                          UO.MoveItem('finditem','all',Chest)
                                          return 4
                                       Else
                                          If UO.GetQuantity('finditem')>=10 Then
                                             UO.Forget('finditem')
                                             UO.MoveItem('finditem','all',Chest)
                                             return 5
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
      Next
   Next
   For Select = 12 TO 14
      UO.FindType(Items[Select],'-1','-1')
         If UO.FindCount() Then
            UO.Forget('finditem')
            UO.MoveItem('finditem','all',Chest)
            return 6
         End If
   Next
return 0
End If
If Mode=='Drop' Then
   For Select = 7 TO 11
      UO.FindType(Items[Select],'0x0000','-1')
         If UO.FindCount() Then
            UO.Drop('all','0','0','0','finditem')
            UO.FontColor('0x0385')
            UO.Msg("Хе-Хе-Хе Айрон !!!")
         End If
   Next
   REPEAT
      UO.FindType('-1','-1','-1')
         If UO.FindCount() Then
            UO.Drop('all','0','0','0','finditem')
               If UO.InJournal("It doesn't belong to you!") Then
                  UO.UseObject('finditem')
                     REPEAT
                        Wait(500)
                     Until UO.InJournal("Get off your dirty hands!")
                  UO.DeleteJournal()
               End If
            UO.FontColor('0x0385')
            UO.Msg("Мусор !!!")
            Wait(200)
         End If
   Until UO.FindCount()==0
End If
end sub

Sub Server(Mode,Select)
var i, pos=0, cut=0, cut_tmp=0, msg_tmp, EOF, TXT, Message=false, Exit=false
var anekdot_end="Хе-хе-хе-хе :)", stix_end="К О Н Е Ц :)",anekdot_time=7000 ,stix_time=4500
;==================================================================
;                         А Н Е К Д О Т Ы!                         
;------------------------------------------------------------------
Dim anekdot[21]
anekdot[0]  = 20
anekdot[1]  = "- Капитан, у нас пробоина ниже ватерлинии!%- Заделать можно?%- Нет!%- Готовьте спасательные шлюпки!%- Капитан, шлюпок нет!%- Готовьте спасательные жилеты!%- Капитан, но он только один!%- Да? - удивляется капитан и после небольших раздумий хватает жилет и прыгает за борт.%- Капитан, капитан, это была шутка, сегодня же первое апреля!%- Блин, что же мы на земле скажем.%- (Вот черт! Какая пробоина, какая ватерлиния?)%- стремительно приближаясь к земле, думал капитан самолета."
anekdot[2]  = "Лысый мужчина прихожит в парикмахерскую.%- Чем я могу вам помочь?%- спрашивает его парикмахер.%-Плачу 100$, если вы сделаете так, что моя прическа будет выглядеть как ваша,%и не причините мне при этом никаких неудобств.%- Нет проблем%- отвечает парикмахер и быстро брет себе голову налысо."
anekdot[3]  = "Муж с женой, детьми и ТЕШЕЙ в буфете перед большим концертом.%Муж:%- Ну что? Нам со Светкой по бокалу сухонького и по мандаринке.%Детишкам по лимонаду и шоколадке.?%- А маме?%- А маме стакан молочка и огурчик!"
anekdot[4]  = "Шла-шла Красная Шапочка по лесу.%Вдруг видит - сидит Серый Волк под деревом.%- Какие у тебя большие глаза, Серый Волк! - сказала Красная Шапочка.%Серый Волк сорвался с места и убежал.%Идёт Красная Шапочка дальше. Перешла ручеек лесной. Вдруг видит%Серый Волк за пеньком притаился.%- Какие у тебя большие уши, Серый Волк! - сказала Красная Шапочка.%А Серый Волк только - зырк! - на Красную Шапочку. И сбежал.%Идёт она дальше. Пробирается через чащобу. Вдруг - глядь!%чащобе под сосенкой Серый Волк сидит.%- Какие у тебя зубищи, Серый Волк! - воскликнула Красная Шапочка.%- Твою мать, ты мне посрать дашь или нет? - спросил Серый Волк"
anekdot[5]  = "Осень, холодно, сыро.%аходит в рюмочную оборванный, окоченевший алкаш и просит налить похмелиться.%Буфетчица жалеет его:%- Вы бы себе хоть ботинки новые купили.%- На хр*на, здоровье дороже!"
anekdot[6]  = "Просит негр джинна:%- Сделай меня белым, чтобы вокруг было много воды и женщин.%И сделал его джинн унитазом в женском туалете.%Промучился бедолага месяц и опять джинна зовет:%- Все! Опять хочу быть черным!%- Хорошо, - сказал джинн, и отключил воду."
anekdot[7]  = "Приходит девушка в автомагазин и спрашивает продавца:%- У вас датчики есть?%- Какие датчики?%- Ну, такие, чтобы когда я в зад давала лампочки загорались..."
anekdot[8]  = "Бежит маленькая девочка по полянке, цветочки собирает, песенки поёт:%- Ля-ля-ля-ля... Ой! Тюльпанчик!%Сорвала, бежит дальше.%- Ля-ля-ля-ля... Ой! Незабудочка.%Опять сорвала, бежит дальше.%- Ля-ля-ля-ля... Ой! Камешек! А что под ним?%Поднимает и с жуткой силой бьёт им обратно об землю.%- Фуууууу, бл*дь, ЛЯГУШКА!"
anekdot[9]  = "Идет урок украинского языка. Учительница спрашивает детей:%- Дети, как будет на украинском языке слово Замаргать?%Дети хранят молчание. Учитильница спрашевает Вовочку, Вовочка не знает.%Учительница:%- Залупати, Вовочка!%Вовочка:%- Сама ты за*упа!"
anekdot[10] = "Решили поставить черный ящик в Мерседесе...%чтобы узнать, что в различных странах говорят водители непосредственно после аварии.%Англия:%- Oh, my God!!!!!!!!!!%Америка:%- Oh, shit!!!%Россия:%- ВАУ, ПАЦАНЫ!!!! ГЛЯДИТЕ, КАК Я УМЕЮ!!!!!!!!!!!!!!!!!!!!!"
anekdot[11] = "Идет по лесу пьяный бобер. подходит к норе и орет:%- Хуйня!!!%в ответ тишина. он снова:%- Хуйня!!!%в ответ тишина опять. в третий раз он орет:%- Хуйня!!!%из норы высовывает морду выхухоль и говорит:%- Сколько раз тебе говорить, что меня зовут выхухоль!%бобер ей в ответ:%- Стану я всякую хуйню на ВЫ называть!!!"
anekdot[12] = "Заходит древняя старуха в сексшоп. Еле идет, вся трясется.%- У-у в-вас в-виб-б-брат-тор-ры е-есть?%- Есть.%- А д-длин-ной 40см. е-есть?%- Да есть.%- А т-тол-лщин-ной 10см. е-есть?%- Ну есть.%- Тог-гда-ск-каж-жите как е-его в-вык-ключ-чить?"
anekdot[13] = "В казарме:%- Дедушка, меня опять били во сне!%- Это потому, что ты по ночам втихаря жрёшь Растишку..."
anekdot[14] = "Пригребает Вовачка домой и говорит отцу:%- Пап прикинь нам на урок труда училка клей несла разлила и приклеялась.%Отец спрашивает:%- Ну как вы её отодрали.%- Да ученики старших класов аш по два раза!"
anekdot[15] = "Жил-был человек, и у него правый глаз был стеклянный.%Приходит он как-то к окулисту, тот его сажает перед табличкой и говорит:%- Закройте правый глаз!%Человек ему отвечает:%- А у меня правый - стеклянный.%- Ну, тогда закройте левый..."
anekdot[16] = "Решили провести опрос среди студентов.%У американского спрашивают:%- За сколько вы выучите китайский язык и сдадите по нему экзамен?%- Где-то за два года.%Тот же вопрос англчанину:%- Где-то за год.%Спросили у нашего студента. Отвечает:%- Методичка есть? Вот сейчас докурю, и пойдём сдавать."
anekdot[17] = "Идут двое белых полицейских по кварталу, в котором живет белое население.%идят - лежит негр, весь изрешеченный пулями.%Один коп другому:%- Какое жестокое самоубийство!"
anekdot[18] = "Совет астролога:%Уран в восьмом доме - вызывайте МЧС!"
anekdot[19] = "Звонок в справочную сотового оператора:%- Але, девушка, ваша компания ворует деньги.%- Расскажите подробнее, что случилось.%- Вчера вечером проверил баланс, было 10 баксов, выключил телефон,%сегодня утром включаю - на счете 0.%- А вы телефон на ночь ставили на подзарядку?%- Ставил.%- Так это у вас долги за электричество сняли."
anekdot[20] = "Средние века.%Куча народу упала в яму. Сидят, вылезти не могут. Один дед говорит:%- В здешних местах шалит великан-людоед, ловит народ, кого-то трахает и отпускает, а кого-то ест.%Народ всполошился, половина кричат:%- Лучше пускай оттрахает, но живыми останемся! Другая половина:%- Лучше пускай съест, но не потеряем честь и достоинство!%Прибегает великан, носится вокруг ямы и кричит:%- О как много ебды!%Народ обалдел, спрашивают у него:%- А ебда - это что?%Великан почесал голову и отвечает:%- Ну ебда, это которую сначала ебдут, а потом ебдят!!!"

;==================================================================
;                           С Т И Ш К И!                         
;------------------------------------------------------------------
Dim stix[12]
stix[0]  = 11
stix[1]  = "Раз Петрович невзначай%Сунул х*й в английский чай,%Сразу вдруг все стало новым:%Х*й - английским, чай - х*евым"
stix[2]  = "Маленький мальчик по стройке гулял,%сверху нечайно топорик упал.%Долго смеялись над шуткою дети,%слева пол-Петии и справа пол-Пети."
stix[3]  = "Маленький мальчик на лифте катался,%у лифта нечаянно трос оборвался.%Роется папа в куче костей,%где же ботинки за 30 рублей?"
stix[4]  = "Валя,Валя не пизди%на себя ты посмотри%Заросла как обезьяна%ты-б побрила руки в ванной%Есть хорошие средства%Воск, липучка и бритва%Ты побрей их наконец%что-б у всех стоял конец%Ножки тоже ты побрей%что-б платок скользил по ним"
stix[5]  = "Маленький мальчик по Тундре гулял,%Нефть или газ откопать он мечтал,%Люди смеялись, кричали (Дебил!)%А мальчик подрос и клуб (Челси) купил."
stix[6]  = "Застегни ширинку, охламон,%За тобой следит шпион."
stix[7]  = "Если худо организму, применяй товарищ клизму.%Убедись товарищ лично - клизма действует отлично !!!"
stix[8]  = "Одни приходят насрать, навонять.%Другие приходят сидеть, размышлять.%А я прихожу сюда яйца чесать,%И всякую гадость на стенах читать."
stix[9]  = "Я смотрю в унитаз хохоча:%У меня голубая моча.%И конец у меня голубой,%И вообще я доволен собой!"
stix[10] = "Я достаю из широких штанин%Толстый, как консервная банка%Смотрите, завидуйте я - гражданин,%А не какая-нибудь гражданка!"
stix[11] = "- Я водка - со мной на праздник четко!!!%- Я салат - вашим лицам рад!!!%- Я самогон - иду на обгон!!!%- Я горилка - мозгов дурилка!!!%- А я гашиш -... я слова забыл...."

;==================================================================
;                      Р А С П И С А Н И Е!                         
;------------------------------------------------------------------
Dim turnir[2]
turnir[0] = 1
turnir[1] = "09 сентября, 2005 (пятница, 22:00)%Турнир 1х1 по схеме The Next."

UO.FontColor('0x0094')
If Mode=='anekdot' Then
   TXT=anekdot[Select]
Else
   If Mode=='stix' Then
      TXT=stix[Select]
   Else
      If Mode=='turnir_now' Then
         TXT=turnir[1]
      Else
         If Mode=='time_now' Then
            UO.FontColor('0x0025')
            UO.Msg("Кстати, текущее время по Москве: "+PrintTime())
            return
         Else
            If Mode=='info_anekdot' Then
               return anekdot[0]
            Else
               If Mode=='info_stix' Then
                  return stix[0]
               End If
            End If
         End If      
      End If
   End If
End If
EOF=StrLen(TXT)
REPEAT
   Message=false
   pos=cut
   cut_tmp=0
      REPEAT
         msg_tmp = Mid(TXT, cut, 1)
            If msg_tmp<>'%' and cut<>EOF Then
               cut=cut+1
               cut_tmp=cut_tmp+1
            Else
               Message=true
               If cut==EOF Then
                  Exit=true
               End If
               cut=cut+1
            End If
      Until Message==true or UO.Dead()
   UO.Msg(Mid(TXT, pos, cut_tmp))
      If Mode=='anekdot' Then
         Wait(anekdot_time)
      Else
         If Mode=='stix' Then
            Wait(stix_time)
         Else
            If Mode=='turnir_now' Then
               Wait(4500)
            End If
         End If
      End If
Until Exit==true or UO.Dead()
If Mode=='anekdot' Then
   UO.Msg(anekdot_end)
Else
   If Mode=='stix' Then
      UO.Msg(stix_end)
   Else
      If Mode=='turnir_now' Then
         UO.Msg("Всё...")
      End If
   End If
End If
end sub

;==================================================================
;                Д О С К А  О Б Ъ Я В Л Е Н И Й!
;------------------------------------------------------------------
Sub Declaration(ID_Master)
var MSG_NAME, MSG_TMP=0, Time_Off=0, Time_Declaration=0
UO.FontColor('0x0385')
UO.Msg("Введите текст объявления:")
Wait(1000)
UO.FontColor('0x0025')
UO.Msg("Жду 30 секунд...")
UO.DeleteJournal()
   REPEAT
         If UO.JournalSerial(UO.Journal('0'))==UO.GetSerial(ID_Master) Then
            ;MSG_TMP  = Right(UO.Journal('0'),STRLen(UO.Journal('0'))-STRLen(UO.GetName(ID_Master)))
            MSG_TMP  = UO.Journal('0')
            MSG_NAME = UO.GetName(ID_Master)
         End If
      Time_Off = Time_Off+1
      Wait(250)
   Until Time_Off >= 120 or MSG_TMP<>0
UO.DeleteJournal()
   If Time_Off < 120 Then
      UO.FontColor('0x0385')
      UO.Msg("Текст принят! Объявление будет работать 8 мин...")
      Wait(1500)
      UO.Msg("чтобы снять его наберите off")
      Wait(5000)
      Time_Off = 0
         REPEAT
               If Time_Declaration >= 32 Then
                  UO.FontColor('0x0064')
                  UO.Msg("ОБЪЯВЛЕНИЕ от "+MSG_NAME+"(а)")
                  Wait(1000)
                  UO.FontColor('0x009a')
                  UO.Msg(MSG_TMP)
                  Time_Declaration = 0
               Else
                  UO.DeleteJournal()
               End If
            Time_Declaration = Time_Declaration+1
            Time_Off = Time_Off+1
            Wait(250)
         Until Time_Off >= 1920 or UO.JournalSerial(UO.InJournal("off|OFF|Off")-1)==ID_Master
      UO.FontColor('0x0025')
      UO.Msg("Время вышло!")      
   Else
      UO.FontColor('0x0025')
      UO.Msg("Время вышло!")
   End If
end sub

Sub PrintTime()
var HR  = ''
var MIN = ''
var SEC = ''
var NewTime, CurrentTime = UO.Time()
If CurrentTime > 99999 Then
   HR  = Mid(STR(CurrentTime),0,2)
   MIN = Mid(STR(CurrentTime),2,2)
   SEC = Mid(STR(CurrentTime),4,2) 
Else 
   If CurrentTime > 9999 Then
      HR  = '0'+Mid(STR(CurrentTime),0,1)
      MIN = Mid(STR(CurrentTime),1,2)
      SEC = Mid(STR(CurrentTime),3,2) 
   Else 
      If CurrentTime > 999 Then 
         HR  = '00'
         MIN = Mid(STR(CurrentTime),0,2)
         SEC = Mid(STR(CurrentTime),2,2) 
      Else 
         If CurrentTime > 99 Then
            HR  = '00'
            MIN = '0'+Mid(STR(CurrentTime),0,1)
            SEC = Mid(STR(CurrentTime),1,2) 
         Else 
            If CurrentTime > 9  Then 
               HR  = '00' 
               MIN = '00'  
               SEC = STR(CurrentTime) 
            Else 
            HR  = '00' 
            MIN = '00'  
            SEC = '0'+STR(CurrentTime)          
            End If 
         End If 
      End If 
   End If 
End If
return (HR+':'+MIN+':'+SEC)
end sub

#######################
# Бета версия # 2006  #
# Бот-Вендор  # Mihail#
#######################
#участвуют функции start(); ifsay(); rcolor()#
#остальное пока не доработано\либо автоматизировано#

sub items()
uo.ignorereset()
var exit=0
repeat
uo.findtype(-1,-1,'backpack')
if uo.findcount()>0 then
uo.click('finditem')
uo.ignore('finditem')
UO.TextOpen()
wait(100)
UO.TextPrint("uo.ignore("+"'"+uo.getserial('finditem')+"') #"+uo.getname('finditem'))
else
exit=1
end if
until uo.dead() or exit==1
end sub


sub start()
#Mihail
uo.print('Vendor[beta 0.2]')
repeat
saay()
until uo.dead()
end sub

sub rcolor() 
VAR x=5 
uo.click('self')
while True
   if UO.InJournal(uo.getname('self')) Then 
      UO.FontColor(x) 
      x=x+1 
      if x == 200 then 
         x=5 
      endif 
   endif 
   wait(200) 
Wend 
end sub

sub randHI() 
   VAR R, k=9, i=0 
   DIM a[9], T[9] 
   a[0]='! Приветствую! Не желаете что-нибудь приобрести?'
   a[1]='! Здраствуйте! Узнайте больше о моих товарах!' 
   a[2]='! Рад вас видеть! У меня есть множество разных товаров!'
   a[3]='! Что-нибудь интересует?'
   a[4]='! Чтобы узнать больше о моих товарах скажите "информация"'
   a[5]='! Приветствую вас, загляните в ассортимент моих товаров!' 
   a[6]='! Хочу предложить Вам несколько товаров на продажу!' 
   a[7]='! Прекрастный день, самое время что-нибудь прикупить.' 
   a[8]=', здраствуйте, я хочу предложить вам несколько товаров!' 
     repeat 
      R=UO.Random(k) 
      T[i]=a[R] 
      a[R]=a[k] 
      a[k]=T[i] 
      k=k-1 
      i=i+1 
   until k==0 
   T[i]=a[k] 
    for i=0 to 0 
     return T[i]
   next 
end sub 

sub saay()
var name, er=0, tmp, tmp2, z
uo.set('finddistance','7') 
tmp = uo.GetName('finditem')
uo.ignorereset()
uo.ignore('self')
ignorelist()
var ser, jor 
for jor = 0 to 9 
ser = uo.journalserial(jor)
repeat
z = randHI()
uo.findtype('0x0190',-1,'ground') 
if uo.findcount()>0 and not uo.IsNPC('ser') then 
checklag()
UO.Print(ser)
uo.ignore(uo.GetSerial('finditem'))
uo.click('finditem')
checklag()
name = uo.getname('finditem') 
uo.msg( name + z )
checklag()
uo.deletejournal()
wait(3500)
else
uo.findtype('0x0191',-1,'ground') 
if uo.findcount()>0 and not uo.IsNPC('ser') then 
checklag()
UO.Print(ser)
uo.ignore(uo.GetSerial('finditem'))
uo.click('finditem')
checklag()
name = uo.getname('finditem') 
uo.msg( name + z )
checklag()
uo.deletejournal()
wait(3500)
else
uo.print('not found')
er=1
uo.deletejournal()
end if
end if
until er==1
wait(600000)
end sub


sub ifsay()
var i, j, jser, name, gsf, c1, c2, cont=UO.TradeContainer('right'), summa=10000, exit1=0
var vpc1=450, vpc2=150, vpc3=0, vpc4=0, vpt1='0x13FF', vpt2='0x0F51', vpt3='0x0000', vpt4='0x0000'
var arc1=1000, arc2=0, arc3=0, arc4=0, art1='0x0E76', art2='0x0000', art3='0x0000', art4='0x0000'
var sc1=400, sc2=300, sc3=0, sc4=0, st1='0x1B77', st2='0x1B75', st3='0x0000', st4='0x0000'
Dim a[74]
a[1]='Привет'
a[2]='привет'
a[3]='Хай'
a[4]='хай'
a[5]='прив'
a[6]='ПРИВЕТ'
a[7]='ХАЙ'
a[8]='hi'
a[9]='HI'
#############
a[10]='Пока'
a[11]='пока'
a[12]='Bye'
a[13]='bye'
a[14]='ПОКА'
a[15]='BYE'
#############
a[16]='Информация'
a[17]='информация'
a[18]='ИНФОРМАЦИЯ'
a[19]='info'
a[20]='инфа'
a[21]='инфо'
#############
a[22]='buy'
a[23]='Buy'
a[24]='BUY'
a[25]='Купить'
a[26]='купить'
a[27]='КУПИТЬ'
a[28]='Покупка'
a[29]='ПОКУПКА'
a[30]='покупка'
a[31]='игн'
a[32]='ИГН'
a[33]='Игн'
#############
a[34]='оружие'
a[35]='ОРУЖИЕ'
a[36]='Оружие'
##название оружия##
a[37]='"katana"'
a[38]='katana'
a[39]='катана'
#############
a[40]='"dagger"'
a[41]='dagger'
a[42]='даггер'
#############
a[43]='"plate"'
a[44]='plate'
a[45]='плита'
a[46]=''
a[47]=''
a[48]=''
##############
a[49]='0x0190'
a[50]='0x0191'
##############
a[51]='Бери'
a[52]='бери'
a[53]='БЕРИ'
a[54]='Подтверди'
a[55]='подтверди'
##############
a[56]='Броня'
a[57]='броня'
a[58]='БРОНЯ'
a[59]='арм'
a[60]='Армор'
a[61]='армор'
a[62]='АРМОР'
a[63]='Арморы'
a[64]='арморы'
a[65]='АРМОРЫ'
##############
a[66]='Щит'
a[67]='щит'
a[68]='ЩИТЫ'
##############
a[69]='"heater"'
a[70]='heater'
a[71]='хитер'
##############
a[72]='"kite"'
a[73]='kite'
a[74]='кит'



uo.deletejournal()
repeat

####ПРИВЕТСТВИЕ####
for i=1 to 9
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.msg(name+'! Приветствую вас!')
checklag()
uo.deletejournal()
else
uo.deletejournal()
end if
end if
next

####ПРОЩАНИЕ####
for i=10 to 15
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.msg(name+'! До свидания!')
checklag()
uo.deletejournal()
else
uo.deletejournal()
end if
end if
next

####ИНФОРМАЦИЯ####
for i=16 to 21
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=5 then
uo.msg('Я простой торговец.')
wait(100)
uo.msg('Для того чтобы приобрести что-нибудь скажите "buy" или "купить", затем название нужного предмета.')
checklag()
wait(2500)
checklag()
uo.deletejournal()
else
uo.deletejournal()
end if
end if
next

####ПОКУПКА####
for i=22 to 33
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.msg('Выберете интересующий вас раздел:')
wait(100)
uo.msg('1. Оружие 2. Броня       3. Щиты')
checklag()
wait(2500)
uo.deletejournal()
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next

####ОРУЖИЕ####
for i=34 to 36
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
checklag()
if uo.getdistance(jser)<=2 then
uo.msg('Вы выбрали "Оружие", для того, чтобы выбрать предмет - произнесите его название.')
c1=uo.count(vpt1)
c2=uo.count(vpt2)
wait(100)
uo.msg('iron '+a[37]+' (' +str(c1)+') шт. '+str(vpc1)+'гп')
wait(500)
uo.msg('iron '+a[40]+' (' +str(c2)+') шт. '+str(vpc2)+'гп')
####
checklag()
wait(1000)
uo.deletejournal()
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next
####ОРУЖИЕ номер 1####
for i=37 to 39
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.setreceivingcontainer(jser)
uo.findtype(vpt1,-1,'backpack')
if uo.findcount() then
#
summa=vpc1
uo.grab('0','finditem')
#
uo.msg(name+', вы выбрали '+a[39]+' ('+str(vpc1)+'гп)')
wait(100)
checklag()
uo.deletejournal()
uo.msg('Для подтверждания сделки внесите нужную сумму и скажите "Бери"')
wait(2500)
checklag()
uo.deletejournal()
uo.unsetreceivingcontainer()
else
summa=uo.random(7)*5333+5412
uo.msg('К сожалению данного товара временно нет в наличие..')
uo.unsetreceivingcontainer()
checklag()
uo.deletejournal()
end if
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next
####ОРУЖИЕ номер 2####
for i=40 to 42
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.setreceivingcontainer(jser)
#
uo.findtype(vpt2,-1,'backpack')
if uo.findcount() then
#
summa=vpc2
uo.grab('0','finditem')
#
uo.msg(name+', вы выбрали '+a[42]+' ('+str(vpc2)+'гп)')
wait(100)
checklag()
uo.deletejournal()
uo.msg('Для подтверждания сделки внесите нужную сумму и скажите "Бери"')
checklag()
uo.deletejournal()
wait(2500)
uo.unsetreceivingcontainer()
else
summa=uo.random(7)*5333+5412
uo.msg('К сожалению данного товара временно нет в наличие..')
uo.unsetreceivingcontainer()
uo.deletejournal()
end if
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next


####БРОНЯ####
for i=56 to 65
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
checklag()
if uo.getdistance(jser)<=2 then
uo.msg('Вы выбрали "Броня", для того, чтобы выбрать предмет - произнесите его название.')
c1=uo.count(art1)
wait(100)
uo.msg('iron '+a[43]+' (' +str(c1)+') шт. '+str(arc1)+'гп')
####
checklag()
wait(1000)
uo.deletejournal()
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next
####БРОНЯ номер 1####
for i=43 to 45
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.setreceivingcontainer(jser)
#
uo.findtype(art1,-1,'backpack')
if uo.findcount() then
#
summa=arc1
uo.grab('0','finditem')
#
uo.msg(name+', вы выбрали '+a[44]+' ('+str(arc1)+'гп)')
wait(100)
checklag()
uo.deletejournal()
uo.msg('Для подтверждания сделки внесите нужную сумму и скажите "Бери"')
checklag()
uo.deletejournal()
wait(2500)
uo.unsetreceivingcontainer()
else
summa=uo.random(7)*5333+5412
uo.msg('К сожалению данного товара временно нет в наличие..')
uo.unsetreceivingcontainer()
uo.deletejournal()
end if
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next


####ЩИТЫ####
for i=66 to 68
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
checklag()
if uo.getdistance(jser)<=2 then
uo.msg('Вы выбрали "Щиты", для того, чтобы выбрать предмет - произнесите его название.')
c1=uo.count(st1)
c1=uo.count(st2)
wait(100)
uo.msg('iron '+a[69]+' shield (' +str(c1)+') шт. '+str(sc1)+'гп')
wait(500)
uo.msg('iron '+a[72]+' shield (' +str(c1)+') шт. '+str(sc2)+'гп')
####
checklag()
wait(1000)
uo.deletejournal()
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next
####ЩИТ номер 1####
for i=69 to 71
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.setreceivingcontainer(jser)
#
uo.findtype(st1,-1,'backpack')
if uo.findcount() then
#
summa=sc1
uo.grab('0','finditem')
#
uo.msg(name+', вы выбрали '+a[70]+' ('+str(sc1)+'гп)')
wait(100)
checklag()
uo.deletejournal()
uo.msg('Для подтверждания сделки внесите нужную сумму и скажите "Бери"')
checklag()
uo.deletejournal()
wait(2500)
uo.unsetreceivingcontainer()
else
summa=uo.random(7)*5333+5412
uo.msg('К сожалению данного товара временно нет в наличие..')
uo.unsetreceivingcontainer()
uo.deletejournal()
end if
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next
####ЩИТ номер 2####
for i=72 to 74
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
uo.setreceivingcontainer(jser)
#
uo.findtype(st2,-1,'backpack')
if uo.findcount() then
#
summa=sc2
uo.grab('0','finditem')
#
uo.msg(name+', вы выбрали '+a[72]+' ('+str(sc2)+'гп)')
wait(100)
checklag()
uo.deletejournal()
uo.msg('Для подтверждания сделки внесите нужную сумму и скажите "Бери"')
checklag()
uo.deletejournal()
wait(2500)
uo.unsetreceivingcontainer()
else
summa=uo.random(7)*5333+5412
uo.msg('К сожалению данного товара временно нет в наличие..')
uo.unsetreceivingcontainer()
uo.deletejournal()
end if
else
uo.msg(name + '! Чтобы осуществить покупку подойдите ближе!')
checklag()
uo.deletejournal()
end if
end if
next


####ПОДТВЕРЖДЕНИЕ СДЕЛКИ####
for i=51 to 55
if uo.injournal(a[i]) and not uo.injournal('put') then
jser=uo.journalserial()
uo.click(jser)
checklag()
name=uo.getname(jser)
if uo.getdistance(jser)<=2 then
if UO.TradeCount() Then 
UO.FindType('0x0EED','-1', UO.TradeContainer('right')) 
If UO.GetQuantity('finditem')>=summa then
UO.Print("gold: "+STR(UO.GetQuantity('finditem')))
UO.LClick( 65,42 )
checklag()
uo.deletejournal()
wait(3500)
if UO.TradeCount() Then
UO.RClick( 169,145 )
uo.mag('Сударь, надо быть порасторопнее..')
checklag()
uo.deletejournal()
else
checklag()
uo.deletejournal()
end if
else
UO.RClick( 169,145 )
uo.msg('Недостаточная сумма! (необходимо: '+str(summa)+' гп)')
checklag()
uo.deletejournal()
end if 
else
uo.msg('Используйте команду "Бери" чтобы подтвердить сделку в окне, после передачи гп.') 
checklag()
uo.deletejournal()
end if
else
uo.msg(name + '! Чтобы осуществить покупку подойдите поближе!')
checklag()
uo.deletejournal()
end if
end if
next

####ПРОВЕРКА НА ПОСТОРОННИЕ ПРЕДМЕТЫ####
if uo.injournal('put') then
ignorelistitems()
exit1=0
repeat
uo.findtype(-1,-1,'backpack')
if uo.findcount()>0 then
uo.drophere('finditem')
uo.ignore('finditem')
wait(1000)
else 
exit1=1
end if
until exit1==1
uo.ignorereset()
uo.deletejournal()
end if

until uo.dead()
end sub


sub checklag() 
uo.deletejournal('backpack') 
uo.click('backpack') 
repeat 
wait(50) 
until uo.injournal('backpack') 
end sub

sub ignorelistitems()
#####СОБСТВЕННЫЕ ПРЕДМЕТЫ В ПАКЕ#####
#
uo.ignore('0x400F38D4') #a bow
uo.ignore('0x400F90AF') #3 jars of honey
uo.ignore('0x400F90B3') #4 Beeswax
uo.ignore('0x4018B24F') #scissors
uo.ignore('0x40075398') #16 bloody bandages
uo.ignore('0x400C524F') #a +4 shirt of Curse
uo.ignore('0x400725C5') #196 clean bandages
#
###END SUB###
end sub


sub ignorelist()
#####ОКРУЖАЮЩИЕ НПЦ-ВЕНДОРЫ(если рынок)#####
uo.ignore('0x0005DD63')
uo.ignore('0x00192B56')
uo.ignore('0x0019F0F6')
uo.ignore('0x00241584')
uo.ignore('0x000BE7FB')
uo.ignore('0x001D79DA')
uo.ignore('0x0005D0F0')
uo.ignore('0x001B6C1D')
uo.ignore('0x0026BF0C')
uo.ignore('0x0026C17B')
uo.ignore('0x000787AF')
uo.ignore('0x0012395D')
uo.ignore('0x001FA4B3')
uo.ignore('0x00137095')
uo.ignore('0x00155FFA')
uo.ignore('0x00229970')
uo.ignore('0x00032629')
uo.ignore('0x001A6E4F')
uo.ignore('0x0017875B')
uo.ignore('0x00137B88')
uo.ignore('0x000ADCA0')
end sub