Суббота, 18.05.2024, 21:17
[nIrVaNa]
Приветствую Вас Призывник | RSS

Меню сайта
Ultima Online
  • Ultima Online DRW
  • .::Games::.
  • EVE Online
  • Russia EVE-RU
  • Ukrainian EVE-UA
  • [6OP3bIE CAHTEXHuru] EVE
  • L2Europa.com
  • Clan Viktoria L2Europa.com
  • Мини-чат
    Главная » Статьи » Мои статьи

    Скрипт на БС
    var a, ruda, color, dager, z 
    sub main() 


    z=0 
    uo.Exec('addobject sunduk') 
    wait(200) 
    while uo.Targeting() 
    wait(100) 
    wend 
    uo.Exec('addobject sunduk2') 
    wait(200) 
    while uo.Targeting() 
    wait(100) 
    wend 
    uo.deletejournal() 
    uo.useobject('sunduk') 
    wait(500) 
    uo.useobject('sunduk2') 
    wait(500) 
    if uo.getquantity('^0x0E76')>0 then 
    uo.addobject('sumka','backpack.0x0E76') 
    uo.useobject('sumka') 
    wait(500) 
    endif 
    uo.findtype('0x1BEF','0x0750','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=0 
    else 
    uo.findtype('0x1BEF','0x0590','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=1 
    else 
    uo.findtype('0x1BEF','0x060A','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=2 
    else 
    uo.findtype('0x1BE3','0x0000','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=3 
    else 
    uo.findtype('0x1BEF','0x0488','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=4 
    else 
    uo.findtype('0x1BF5','0x0000','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=5 
    else 
    uo.findtype('0x1BE9','0x0000','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=6 
    else 
    uo.findtype('0x1BEF','0x096B','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=7 
    else 
    uo.findtype('0x1BEF','0x0014','sunduk') 
    if uo.getquantity('finditem')>0 then ;=========== 
    a=8 
    else 
    uo.findtype('0x1BEF','0x0193','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=9 
    else 
    a=10 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    while uo.str<2000 

    ;Agapite #################################################### 
    if a==9 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda ='0x1BEF' 
    color ='0x0193' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Agapite Weapons') 
    uo.automenu('Agapite Weapons','Agapite Swords & Blades') 
    uo.automenu('Agapite Swords & Blades','Agapite Dagger (3 Agapite)') 
    endif 


    ;Rose ####################################################### 
    if a==8 and z==0 then  
    z=1 
    uo.cancelmenu() 
    ruda ='0x1BEF'
    color ='0x0014' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Rose Weapons') 
    uo.automenu('Rose Weapons','Rose Swords & Blades') 
    uo.automenu('Rose Swords & Blades','Rose Dagger (3 Rose Ingot)') 
    endif 


    ;Shadow ##################################################### 
    if a==7 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda ='0x1BEF'
    color ='0x096B' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Shadow Weapons') 
    uo.automenu('Shadow Weapons','Shadow Swords & Blades') 
    uo.automenu('Shadow Swords & Blades','Shadow Dagger (3 Shadow In') 
    endif 


    ;Gold ####################################################### 
    if a==6 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda ='0x1BE9' 
    color ='0x0000'
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Gold Weapons') 
    uo.automenu('Gold Weapons','Gold Swords & Blades') 
    uo.automenu('Gold Swords & Blades','Golden Dagger (3 gold ingot') 
    endif 


    ;Silver ##################################################### 
    if a==5 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda ='0x1BF5' 
    color ='0x0000' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Silver Weapons') 
    uo.automenu('Silver Weapons','Silver Swords & Blades') 
    uo.automenu('Silver Swords & Blades','Silver Dagger (3 silver ingot)') 
    endif 


    ;Bronza ##################################################### 
    if a==4 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda = '0x1BEF'
    color ='0x0488' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Bronze Weapons') 
    uo.automenu('Bronze Weapons','Bronze Swords & Blades') 
    uo.automenu('Bronze Swords & Blades','Bronze Dagger (3 Bronze Ing') 
    endif 


    ;Copper ##################################################### 
    if a==3 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda = '0x1BE3' 
    color='0x0000'
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Copper Weapons') 
    uo.automenu('Copper Weapons','Copper Swords & Blades') 
    uo.automenu('Copper Swords & Blades','Copper Dagger (3 copper ingot') 
    endif 


    ;Dull Copper ################################################ 
    if a==2 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda ='0x1BEF' 
    color = '0x060A' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Dull Copper Weapons') 
    uo.automenu('Dull Copper Weapons','Dull Copper Swords & Blades') 
    uo.automenu('Dull Copper Swords & Blades','Dull Copper Dagger (3 Dull Co') 
    endif 


    ;Old copper ################################################# 
    if a==1 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda = '0x1BEF' 
    color ='0x0590' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Old Copper Weapons') 
    uo.automenu('Old Copper Weapons','Old Copper Swords & Blades') 
    uo.automenu('Old Copper Swords & Blades','Old Copper Dagger (3 Old Cop') 
    endif 



    ;Rusty ###################################################### 
    if a==0 and z==0 then 
    z=1 
    uo.cancelmenu() 
    ruda = '0x1BEF' 
    color ='0x0750' 
    uo.automenu('Blacksmithing','Colored Armor & Weapons') 
    uo.automenu('Colored Armor & Weapons','Rusty Weapons') 
    uo.automenu('Rusty Weapons','Rusty Swords & Blades') 
    uo.automenu('Rusty Swords & Blades','Rusty Dagger (3 Rusty Ingot)') 
    endif 


    if a==10 and z==0 then 
    uo.print('Konchilas ruda......') 
    uo.exec('terminate main') 
    endif 

    container() 
    tovar() 
    wait(500) 
    uo.usetype(ruda,color) 
    while not uo.injournal('your pack.') and not uo.injournal('have failed') 
    wait(1000) 
    wend 
    uo.deletejournal() 
    ypakovka() 
    sbros() 
    tovar() 
    wend 
    endsub 

    Sub container() 
    if uo.getquantity('^0x0E76')==0 then 
    uo.addobject('sumka','sunduk.0x0E76') 
    uo.grab('0','sumka') 
    uo.useobject('sumka') 
    endif 
    endsub 


    Sub tovar() 
    uo.findtype(ruda,color) 
    if uo.getquantity('finditem')<7 then 
    wait(1000) 
    uo.findtype(ruda,color,'sunduk') 
    if uo.getquantity('finditem')==0 then 
    uo.findtype(ruda,color) 
    uo.moveitem('finditem','0','sumka') 



    uo.findtype('0x1BEF','0x0750','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=0 
    else 
    uo.findtype('0x1BEF','0x0590','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=1 
    else 
    uo.findtype('0x1BEF','0x060A','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=2 
    else 
    uo.findtype('0x1BE3','0x0000','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=3 
    else 
    uo.findtype('0x1BEF','0x0488','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=4 
    else 
    uo.findtype('0x1BF5','0x0000','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=5 
    else 
    uo.findtype('0x1BE9','0x0000','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=6 
    else 
    uo.findtype('0x1BEF','0x096B','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=7 
    else 
    uo.findtype('0x1BEF','0x1BEF','sunduk') 
    if uo.getquantity('finditem')>0 then ;=========== 
    a=8 
    else 
    uo.findtype('0x1BEF','0x0193','sunduk') 
    if uo.getquantity('finditem')>0 then 
    a=9 
    else 
    a=10 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 
    endif 



    ;a=a+1 
    z=0 
    wait(1000) 
    else 
    uo.moveitem('finditem','200') 
    wait(1000) 
    endif 
    endif 
    endsub 

    Sub ypakovka() 
    if uo.getquantity('^0x0F51')>0 then 
    uo.moveitem('^0x0F51','0','sumka') 
    wait(500) 
    endif 
    endsub 

    Sub sbros() 
    if uo.Count('0x0F51')>253 then 
    wait(1000) 
    uo.moveitem('sumka','0','sunduk2') 
    wait(1000) 
    endif 
    endsub 




    sub otkl() 
    uo.cancelmenu() 
    endsub


    Категория: Мои статьи | Добавил: -=DavidJones=- (30.01.2009)
    Просмотров: 1747 | Комментарии: 2 | Рейтинг: 4.0/1
    Всего комментариев: 1

     30.11.2013
    0  
      КАК ИМ ПОЛЬЗОВАТЬСЯ?????
    Ответ Цитата

    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]

    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Наш опрос
    Как Вам наш сайт
    Всего ответов: 244
    Copyright MyCorp © 2024