UOS Blacksmithy
Ultima Online Forum -> Yardımcı Programlar
 
Yazar
Mesaj
titan
Sponsor

Avatar

Yaş: 39
Kayıt: 14 Tem 2017
Mesajlar: 121

Teşekkür: 4
Uyarı: 1

Durumu: Çevrimdışı

Avatar
titan
Sponsor
UOS Blacksmithy Konu: UOS Blacksmithy
Alıntıyla Cevap Gönder
Daha kazançlı skill noktalarını biliyorsanız, scripte hata bulur veya iyileştirme yaparsanız lütfen paylaşın.


Aktarmasız Versiyon

Script 50den 115e kadar bs kasmak için ayarlandı.

Bs skilliniz 50 veya üstü olmalı, tinkering 80+ olması tavsiye edilir.

Secure kutunuzda yeterince demir, çantanızda 1 adet tinker tools olursa script çalışır.

Secure kutunuzdaki demirlerin tamamı 500 ve katları olsun, küsüratlı rakamlar scriptin durmasına sebep olur.






Kod:
if not @findobject 'Depo'
  headmsg 'Kutuyu Göster'
  promptalias 'Depo'
endif
if not @timerexists 'crafttime'
  @createtimer 'crafttime'
endif
// Craft Info
if not listexists 'BCCraftInfo'
  @createlist 'BCCraftInfo'
  @pushlist 'BCCraftInfo' 0x1401 //0Kryss
  @pushlist 'BCCraftInfo' 0x1403 //1Short spear
  @pushlist 'BCCraftInfo' 0x1413 //2Gorget
  @pushlist 'BCCraftInfo' 0x1414 //3Gloves
  @pushlist 'BCCraftInfo' 0x1412 //4Helmet
  @pushlist 'BCCraftInfo' 0x1410 //5Arms
endif
if not @findobject 'Depo'
  promptalias 'Depo'
endif
if @counttype 0x1bf2 0 'backpack' < 100
  if @movetype 0x1bf2 'Depo' 'backpack' 0 0 0 0 500
    pause 1500
  else
    sysmsg 'Demir bitti veya yeterince yok' 25
    @canceltarget
    stop
  endif
endif
if counttype 0xfbb 'any' 'backpack' <= 1
  canceltarget
  usetype 0x1eb8 'any' 'backpack'
  pause 1000
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 86
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 0
  pause 200
endif
if @counttype '0x1eb8' '0' 'backpack' <= 2
  canceltarget
  pause 1000
  usetype 0x1eb8
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 0
  pause 200
endif
for 0 to 'BCCraftInfo'
  while @findtype BCCraftInfo[] 0 'backpack'
    if usetype! 0xfbb
      waitforgump 0x38920abd 2500
      @replygump 0x38920abd 14
      waitfortarget 1500
      pause 200
      if @findtype BCCraftInfo[] 0 'backpack'
        @target 'found'
      endif
      pause 200
    endif
  endwhile
endfor
if gumpexists 0x38920abd
  @settimer 'crafttime' 0
  if skill 'Blacksmithy' < 70
    //Krys
    replygump 0x38920abd 36
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 44
    while not @findtype BCCraftInfo[0] 'any' 'backpack'
      if timer 'crafttime' > 2000
        break
      endif or timer 'crafttime' => 1000
    endwhile
  elseif skill 'Blacksmithy' < 95.2
    //Shortspear
    replygump 0x38920abd 50
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 44
    while not @findtype BCCraftInfo[1] 'any' 'backpack'
      if timer 'crafttime' > 2000
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 106.3
    //Gorget
    replygump 0x38920abd 15
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 16
    while not @findtype BCCraftInfo[2] 'any' 'backpack'
      if timer 'crafttime' > 1500
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 108.9
    //Gloves
    replygump 0x38920abd 15
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 9
    while not @findtype BCCraftInfo[3] 'any' 'backpack'
      if timer 'crafttime' > 2000
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 112.5
    //Helmet
    replygump 0x38920abd 22
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 30
    waitforgump 0x38920abd 2500
    while not @findtype BCCraftInfo[4] 'any' 'backpack'
      if timer 'crafttime' > 1500
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 115
    //Arms
    replygump 0x38920abd 15
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 2
    waitforgump 0x38920abd 2500
    while not @findtype BCCraftInfo[5] 'any' 'backpack'
      if timer 'crafttime' > 1500
        break
      endif
    endwhile
  else
    stop
  endif
else
  usetype 0xfbb 'any' 'backpack'
  waitforgump 0x38920abd 2500
endif



Aktarmalı Versiyon

Normal versiyonda gerekli olan şartlar geçerli.

Secure kutunuzda yeterli miktarda 105ps ve mavi renkli special pslerden olmalı.

Bod aktaracağınız karakteri script başlarken seçelim, sürecin tamamında oyunda ve karakterlerinize yakın olmalı.

Aktarılacak karakterin oyundan çıkması, kutunuzda ps kalmaması gibi durumlarda scriptin çalışmaya devam edip ingot harcaması engellendi. Ana karakter oyundan düşerse script duracak, kutunuzda gereken ps bittiğinde çalışan karakter 115e gelip duracak. Bu durumda psleri manual uygulayıp scripti tekrar çalıştırabiliriz.



Kod:
if not @findobject 'Depo'
  headmsg 'Kutuyu Göster'
  promptalias 'Depo'
endif
if not @findobject 'bodcu'
  headmsg 'Bod hakkı aktarılak karakteri seçin?'
  promptalias 'bodcu'
endif
if not @timerexists 'crafttime'
  @createtimer 'crafttime'
endif
// Craft Info
if not listexists 'BCCraftInfo'
  @createlist 'BCCraftInfo'
  @pushlist 'BCCraftInfo' 0x1401 //0Kryss
  @pushlist 'BCCraftInfo' 0x1403 //1Short spear
  @pushlist 'BCCraftInfo' 0x1413 //2Gorget
  @pushlist 'BCCraftInfo' 0x1414 //3Gloves
  @pushlist 'BCCraftInfo' 0x1412 //4Helmet
  @pushlist 'BCCraftInfo' 0x1410 //5Arms
endif
if not @findobject 'Depo'
  promptalias 'Depo'
endif
if @counttype 0x1bf2 0 'backpack' < 100
  if @movetype 0x1bf2 'Depo' 'backpack' 0 0 0 0 500
    pause 1500
  else
    sysmsg 'Demir bitti veya yeterince yok' 25
    @canceltarget
    stop
  endif
endif
if counttype 0xfbb 'any' 'backpack' <= 1
  canceltarget
  usetype 0x1eb8 'any' 'backpack'
  pause 1000
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 86
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 0
  pause 200
endif
if @counttype '0x1eb8' '0' 'backpack' <= 2
  canceltarget
  pause 1000
  usetype 0x1eb8
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 2500
  replygump 0x38920abd 0
  pause 200
endif
for 0 to 'BCCraftInfo'
  while @findtype BCCraftInfo[] 0 'backpack'
    if usetype! 0xfbb
      waitforgump 0x38920abd 2500
      @replygump 0x38920abd 14
      waitfortarget 1500
      pause 200
      if @findtype BCCraftInfo[] 0 'backpack'
        @target 'found'
      endif
      pause 200
    endif
  endwhile
endfor
if gumpexists 0x38920abd
  @settimer 'crafttime' 0
  if skill 'Blacksmithy' < 70
    //Krys
    replygump 0x38920abd 36
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 44
    while not @findtype BCCraftInfo[0] 'any' 'backpack'
      if timer 'crafttime' > 2000
        break
      endif or timer 'crafttime' => 1000
    endwhile
  elseif skill 'Blacksmithy' < 95.2
    //Shortspear
    replygump 0x38920abd 50
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 44
    while not @findtype BCCraftInfo[1] 'any' 'backpack'
      if timer 'crafttime' > 2000
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 106.3
    //Gorget
    replygump 0x38920abd 15
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 16
    while not @findtype BCCraftInfo[2] 'any' 'backpack'
      if timer 'crafttime' > 1500
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 108.9
    //Gloves
    replygump 0x38920abd 15
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 9
    while not @findtype BCCraftInfo[3] 'any' 'backpack'
      if timer 'crafttime' > 2000
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 112.5
    //Helmet
    replygump 0x38920abd 22
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 30
    waitforgump 0x38920abd 2500
    while not @findtype BCCraftInfo[4] 'any' 'backpack'
      if timer 'crafttime' > 1500
        break
      endif
    endwhile
  elseif skill 'Blacksmithy' < 115
    //Arms
    replygump 0x38920abd 15
    waitforgump 0x38920abd 2500
    replygump 0x38920abd 2
    waitforgump 0x38920abd 2500
    while not @findtype BCCraftInfo[5] 'any' 'backpack'
      if timer 'crafttime' > 1500
        break
      endif
    endwhile
  else
    if not @findobject 'bodcu'
      headmsg 'Aktarılacak karakter bulunamadı'
      stop
    endif
    msg '.bod'
    waitforgump 0x401b75e7 7500
    replygump 0x401b75e7 2
    waitforgump 0x401b75e7 7500
    replygump 0x401b75e7 7
    waitforgump 0x401b75e7 7500
    replygump 0x401b75e7 8
    waitforgump 0xb3ec3af5 7500
    replygump 0xb3ec3af5 1
    waitfortarget 7500
    target! 'bodcu'
    pause 2000
    //105
    @movetype 0x14f0 'depo' 'backpack' 0 0 0 1153 1
    pause 2000
    if not @findobject 0x14f0 1153 'backpack' 'any'
      headmsg 'Ps bulunamadı script durdu!'
      stop
    endif
    usetype 0x14f0
    waitforgump 0xe090211c 7500
    replygump 0xe090211c 1
    pause 2000
    //110
    @movetype 0x14f0 'depo' 'backpack' 0 0 0 2219 1
    pause 2000
    if not @findobject 0x14f0 2219 'backpack' 'any'
      headmsg 'Ps bulunamadı script durdu!'
      stop
    endif
    usetype 0x14f0
    waitforgump 0x2f8975e8 7500
    replygump 0x2f8975e8 1
    pause 2000
    usetype 0x14f0
    waitforgump 0xe090211c 7500
    replygump 0xe090211c 1
    pause 2000
    //115
    @movetype 0x14f0 'depo' 'backpack' 0 0 0 2219 1
    pause 2000
    usetype 0x14f0
    waitforgump 0x2f8975e8 7500
    replygump 0x2f8975e8 2
    pause 2000
    usetype 0x14f0
    waitforgump 0xe090211c 7500
    replygump 0xe090211c 1
    pause 2000
  endif
else
  usetype 0xfbb 'any' 'backpack'
  waitforgump 0x38920abd 2500
endif


 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
17 Nis 2018 17:27, Değiştirme: 19 Nis 2018 9:05 (Toplamda 7 kere)
MadKiller
Büyük Usta



Yaş: 39
Kayıt: 30 Hzr 2010
Mesajlar: 388
Cinsiyet: Erkek

Teşekkür: 1

Durumu: Çevrimdışı

MadKiller
Büyük Usta
UOS Blacksmithy Konu: Yanıt: UOS Blacksmithy
Alıntıyla Cevap Gönder
115 de kendısı duruyor mu ? Bazı makrolar 115 skıll cap secmene ragmen ıngot yemeye devam edıyor
Edit : Makroyu denedim direk End if bölümüne gelip pause yapıyor charın skılı 113ç1'de idi denediğim.

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
17 Nis 2018 18:21
titan
Sponsor

Avatar

Yaş: 39
Kayıt: 14 Tem 2017
Mesajlar: 121

Teşekkür: 4
Uyarı: 1

Durumu: Çevrimdışı

Avatar
titan
Sponsor
UOS Blacksmithy Konu: Yanıt: UOS Blacksmithy
Alıntıyla Cevap Gönder
MadKiller yazmış:
115 de kendısı duruyor mu ? Bazı makrolar 115 skıll cap secmene ragmen ıngot yemeye devam edıyor
Edit : Makroyu denedim direk End if bölümüne gelip pause yapıyor charın skılı 113ç1'de idi denediğim.


Script 113.1 skilli karakterde çalışmadımı tam anlayamadım? Loopu işaretlemek lazım.
ingot yiyen uos script için en alta veya en üste aşağıdakini eklersen duracaktır.

if skill 'blacksmithy' == 115
stop
endif

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
17 Nis 2018 18:44
kraljgk
Sponsor

Avatar

Yaş: 39
Kayıt: 14 Tem 2010
Mesajlar: 49

Teşekkür: 2
Uyarı: 1

Durumu: Çevrimdışı

Avatar
kraljgk
Sponsor
UOS Blacksmithy Konu: Yanıt: UOS Blacksmithy
Alıntıyla Cevap Gönder
eline sağlık, uo stream bilgisayarımda çalışmadığı için deneyemedim fakat eksiklikler var ise en kısa zamanda haber vereceğim.

 
En Yukarı Git
Kullanıcının profilini görüntüle Özel mesaj gönder  
18 Nis 2018 8:21
 
Yeni başlık gönder   Başlığa cevap gönder  
1. sayfa (Toplam 1 sayfa) [ 4 mesaj ]  

 
Bu forumda yeni başlıklar açamazsınız
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız