;#########################################
;#@Name :Boris sein Skilling Script
;#@Autor: Nicht Boris:P
;#########################################
;#########################################
;@Main Menu
;#########################################
Sub HauptMenu
  menu Clear
  menu Window Title Zeras Disco/Provo Trainer
  menu Window Color BtnFace
  menu Window Size 218 67
  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 Button EUOButton1 20 20 75 25 Discordance
  menu Button EUOButton2 116 20 75 25 Provocation
  menu Show 421 270
  while #MENUBUTTON <> EUOBUTTON1 && #MENUBUTTON <> EUOBUTTON2
  {
  }
  if #MENUBUTTON = EUOBUTTON1
  {
    set %Skill Disc
  }
  Else
  {
    set %Skill Prov
  }
  set %StartX #charPosX
  set %StartY #CharPosy
return
;#########################################
;@Main Routine
;#########################################
Sub Main
  chooseskill %Skill
  while #Skill < 1150
  {
    Move %StartX %StartY 0 0
    if %Skill = Disc
    {
      Gosub Discorance
    }
    if %Skill = Prov
    {
      gosub Provocation
    }
    chooseskill %Skill
  }
return
;#########################################
;@Discorance
;#########################################
Sub Discorance
  Finditem HH_FN G_8
  if #findkind <> -1
  {
    if #findcnt <20
    {
      set %MaxTargets #findcnt
    }
    else
    {
      set %MaxTargets 20
    }
    set %CurrentIndex 1
    while %CurrentIndex <= %MaxTargets
    {
      Event macro 13 15 ;Hier kommt dein Provo hin
      target 3s
      set #findindex %CurrentIndex
      Move #findx #findy 4 0
      set #ltargetID #findid
      set #ltargetKind 1
      event macro 22
      wait 1s
      set %CurrentIndex %CurrentIndex + 1
    }
  }
  return
  ;#########################################
  ;@Provocation
  ;#########################################
  Finditem HH_FN G_8
  if #findkind <> -1
  {
    if #findcnt <20
    {
      set %MaxTargets #findcnt
    }
    else
    {
      set %MaxTargets 20
    }
    set %CurrentIndex 1
    while %CurrentIndex <= %MaxTargets
    {
      Event macro 13 22 ;Hier kommt dein Provo hin
      target 3s
      sset #findindex %CurrentIndex
      Move #findx #findy 4 0
      set #ltargetID #findid
      set #ltargetKind 1
      event macro 22
      target 3s
      set #findindex %CurrentIndex + 1
      Move #findx #findy 4 0
      set #ltargetID #findid
      set #ltargetKind 1
      event macro 22
      wait 10s
      set %CurrentIndex %CurrentIndex + 2
    }
  }
return
;#########################################
;@Hauptroutine
;#########################################
GoSub HauptMenu
GoSub Main
Stop