; |------------------------------------------------|
; | Script Adý        : Poisoning (v1.0)           |
; | Kodlayan          : nomorebeer                 |
; | Server            : World Of UO                |
; | Çýkýþ Tarihi      : 26.04.2011                 |
; | Client Testi      : 6.0.1.10                   |
; |------------------------------------------------|
;
; Açýklama;
; Bu script poisoning skill'i kasmanýza yarar.
; Script için gerekli malzemeler;
;
; 2 adet boþ sandýk (chest).
; 1 adet boþ þiþe.
; Zehir sürülebilen türden silah.
; Yeteri kadar bandaj, ve healing skill'i.
; (Sonraki versiyonda Mage büyüsü ile heal eklenecektir)
; Yeteri kadar Poison Keg.
;
; Uygulama;
; Evimizde yanyana bulunan iki adet boþ sandýktan bir tanesine
; yeteri kadar keg i dolduruyoruz (dolusandik). Diðer sandýk
; boþalan keglerin
; koyulacaðý sandýk (bossandik) olacak. Üzerimize yeteri kadar
; bandaj, 1 adet
; boþ þiþe ve zehir süreceðimiz silahýmýzý alýyoruz. Sandýklarýn
; yanýna yaklaþýyoruz.
; Ardýndan Scripti çalýþtýrdýðýmýzda önümüze bir menü açýlýyor.
; Açýlan menüden seç/ayarla
; butonlarý ile, dolu keglerin olduðu sandýðý, boþ keglerin konacaðý sandýðý
; ve zehir süreceðimiz silahý, çýkan target ile seçerek ayarlýyoruz.
; Ardýndan Baþla butonuna
; basýyoruz.
;
; Scriptin çalýþma prensibi:
; Dolu sandýktaki keglerden herhangi birini seçer ve keg boþalmýþ ise
; boþ sandýðaatar.
; Eðer keg dolu ise çift týklar ve çantamýzdaki boþ þiþe poison potion
; haline gelir
; poisoning skill i kullanarak pot a týklar, ve silaha sürer.
; Ardýndan kendine heal basar
; Poisoning skill'inin tekrar kullanýlabilir olmasý için 10sn bekler
; ve baþa döner.
;
;ÖNEMLÝ NOT: Script çalýþýrken, sandýklarý veya çantamýzý kesinlikle
;kapatmýyoruz.
;
;Ayrýca menü, "loot it!" scriptinin þablonu editlenerek yapýlmýþtýr.

;------------------------------------------------------------------------------

;############Menu ayarlari ve degisken setleme bolumu asagidan basliyor##############

  menu HideEUO
  menu Clear
  Menu Set edit_Types1 ali
  menu Window Title Poisoning v1.0
   menu Window Color BtnFace
   menu Window Size 320 150
   menu Font Transparent #true
   menu Font Align Right
    menu Font Name MS Sans Serif
   menu Font Size 8
   menu Font Style
   menu Font Color WindowText
   menu Font Transparent #false
   menu Font Align Left
   menu Text EUOLabel1 16 20 1-Keg Sandigi:
   menu Text EUOLabel3 16 44 2-Bos Keg Sandigi:
   menu Text EUOLabel4 16 68 3-Silah:
   menu Font BGColor Window
   menu Edit edit_Types1 120 16 96
   menu Font BGColor BtnFace
   menu Button button_Container1 220 16 88 21 Seç/Ayarla
   menu Font BGColor Window
   menu Edit edit_Types2 120 40 96
   menu Font BGColor BtnFace
   menu Button button_Container2 220 40 88 21 Seç/Ayarla
   menu Font BGColor Window
  menu Edit edit_Types3 120 64 96
   menu Font BGColor BtnFace
   menu Button button_Container3 220 64 88 21 Seç/Ayarla
   menu Font BGColor Window
   menu Font BGColor BtnFace
   menu Button button_Start 116 120 105 25 Baþla
  menu show

loop:
  if #menubutton =  button_Container1
  {
  initevents
  set #targCurs 1
  targLoop:
  if #targCurs = 1
  goto targLoop
  set %dolusandik #ltargetid
  set #targCurs 0
  event sysmessage Dolu Keg Sandigi ID'si %dolusandik olarak ayarlandi.
  menu set edit_Types1 %dolusandik
  set #menubutton N/A
  goto loop
  }
  if #menubutton =  button_Container2
  {
  initevents
  set #targCurs 1
  targLoop:
  if #targCurs = 1
  goto targLoop
  set %bossandik #ltargetid
  set #targCurs 0
  event sysmessage Bos keg sandigi ID'si %bossandik olarak ayarlandi.
  menu set edit_Types2 %bossandik
  set #menubutton N/A
  goto loop
  }
  if #menubutton =  button_Container3
  {
  initevents
  set #targCurs 1
  targLoop:
  if #targCurs = 1
  goto targLoop
  set %silah #ltargetid
  set #targCurs 0
  event sysmessage Kullanilacak silah ID'si %silah olarak ayarlandi.
  menu set edit_Types3 %silah
  set #menubutton N/A
  goto loop
  }
  if #menubutton = button_Start && %bossandik <> N/A && %dolusandik <> N/A && %silah <> N/A
  {
  event sysmessage .----------------------------.
  event sysmessage Script basariyla calistirildi.
  event sysmessage .----------------------------.
  set #lobjectid %dolusandik
  event macro 17
  wait 1s
  set #lobjectid %bossandik
  event macro 17
  wait 2s
  Goto BASLA
  }
  if #menubutton = button_Start
  {
  menu hide
  display Scripti baslatabilmeniz icin oncelikle ayarlarý yapmalýsýnýz.
  set #menubutton
  menu show
  goto loop
  }
goto loop

;####################Menu Ayarlari Sonu############################

BASLA:

finditem QMJ C_ , %dolusandik                      ; dolu sandikta keg ara
if #findkind = 0                                   ; sandikta keg varsa
{
     set #lobjectid #findID                        ; buludugun kegin ID sini lastobject yaz
     event macro 17                                ; lastobject, keg e cift tikla
     event property #lobjectid                     ; son tikladigin kegin propery sini oku
           
           if Empty. in #property && Nearly notin #property ;keg bos ise
           {
           exevent Drag #lobjectid                 ; kegi tut
           wait 20                                 ; 20 ms bekle
           exevent Dropc %bossandik                ; bossandiga sürükle ve býrak
           goto BASLA                              ; basa don
           }

           else                                    ;keg dolu ise (cantadaki bos sise pot a donusur)
           {
           wait 20                                 ; 20 ms bekle
                 finditem AVF C_ , #backpackid     ; cantada pot ara
                 if #findkind = 0                  ; pot bulursan
                 {
                 event macro 13 30                 ;poi skilini kullan, target çýkacak.
                 wait 20                           ;20 ms bekle
                 set #ltargetid #findid            ;bulunan potun id sini lasttarget e ata
                 set #ltargetkind 1                ;last target türünü obje olarak zorla.
                 event macro 22                     ;lasttarget yani pot a tikla
                 wait 20                            ;20 ms bekle
                 set #ltargetid %silah              ;lasttarget e silahi ata
                 event macro 22                     ;silaha tikla
                 finditem ZLF C_ , #backpackid      ;cantada bandaj ara.
                             if #findkind = 0        ;bulursan
                             {
                             set #lobjectid #findid ; bandaji lastobje yap
                             event macro 17         ; lastobjeye cift tikla
                             wait 30                ; 30 ms bekle
                             event macro 23         ; targetself.
                             }
                 wait 10s                           ;10sn bekle
                 goto BASLA                         ;basa don

                 }
                 else                               ; pot bulamazsan
                 {
                 Goto BASLA                         ; basa don.
                 }
           }
}
         
else                                                ; sandikta keg yok ise
{
display Belirttiginiz sandikta Keg bulunamadý. Gözden geçirip tekrar deneyin.    ; hata mesajý ver.
goto end
}

end:
menu hide
halt