;-------------------------------------------------------------------------------
; Script Name: zeBuB's Undamaged Magery Trainer for FS
; Author: BeaLzeBuB
; Version: 1.0
; Client Tested with: 6.0.1.10
; EUO version tested with: 1.5.3
; Shard OSI / FS:  FS
; Revision Date: 01/03/2011
; Public Release: 01/03/2011
;-------------------------------------------------------------------------------


set %silah 28 ; Buraya elinizde tutacaðýnýz - mage weaponun degerini baþýna "eksi" koymadan yazýnýz.

chooseskill mage real
set %yetenek #skill - %silah * 10
if #skill < 300
{
display ok Hazýr deðilsin. Büyücülük yeteneðinin 30.0'dan yüksek olmasý lazým.
halt
}

baslangic:
Display ok LRC setini giydin, $eline - mage yetenek veren silahýný aldýn. $$Öylese silahýný iþaretle de baþlayalým.
SET #TARGCURS 1
start:
IF #TARGCURS = 1
{
    WAIT 1
    GOTO start

}
set %silahid #LTARGETID
set #rhandid %silahid

event macro 24 2
wait 20
event macro 24 2
wait 20

mainloop:
gosub yetenekkontrol
gosub manakontrol
gosub silahkontrol
gosub spell
gosub cast
goto mainloop:

sub yetenekkontrol
chooseskill mage real
set %yetenek #skill - %silah * 10
return

sub manakontrol
if #mana < %germana
   {
   event macro 13 46
   mana:
   if #mana < #maxmana
   goto mana:
   }
return

sub silahkontrol
finditem %silahid c_ , #backpackid
if #findcnt = 1
{
event macro 24 2
wait 20
}
return

sub spell
if ( %yetenek > 1 && %yetenek <= 102 )
{
set %buyu 10 ; Cure
set %germana 6
}
if ( %yetenek > 102 && %yetenek <= 242 )
{
set %buyu 16 ; Bless
set %germana 9
}
if ( %yetenek > 242 && %yetenek <= 382 )
{
set %buyu 28 ; Greater Heal
set %germana 11
}
if ( %yetenek > 382 && %yetenek <= 522 )
{
set %buyu 35 ; Magic Reflection
set %germana 14
}
if %yetenek > 522
{
set %buyu 43 ; Invisibility
set %germana 20
}
if #skill = 1000
{
display ok www.worldofuo.com // BeaLzeBuB $$    Tebrikler, elini sürmeden 100 yaptýn. :))
halt
}
else
return

sub cast
event macro 15 %buyu
target 3s
event macro 23 0
wait 5
return