;-------------------------------------------------------------------------------
; Script Name: zeBuB's FreeShard Necro Trainer
; 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: 04/03/2011
; Public Release: 04/03/2011
;-------------------------------------------------------------------------------

chooseskill necro
if #skill < 250
{
display ok Necromancy yeteneðinizin en az 25.0 olmasý gerekmektedir.
halt
}


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

sub yetenekkontrol
chooseskill necro
set %yetenek #skill
return

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

sub spell
if ( %yetenek > 250 && %yetenek <= 400 )
{
set %buyu 103 ; Corpse Skin
set %germana 11
}
if ( %yetenek > 400 && %yetenek <= 700 )
{
set %buyu 106 ; Horrific Beast
set %germana 11
}
if ( %yetenek > 700 && %yetenek <= 1000 )
{
set %buyu 107 ; Lich Form
set %germana 23
}
if #skill = 1000
{
display ok Aldýðýmýz duyumlara göre bitirmiþsiniz olayý.
halt
}
else
return

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