;#########################################
;#@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
;#########################################
sub 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