Resisting Spells Trainer

[The Reaper]

As promised to you, this is the first of my combat skill training scripts.

What it does:
Script will train resisting spells.

It uses 2 methods;
The first method will also train Evaluating Intelligence AND Magery.
The second, once Eval reaches 100, it will switch to the 3 rank one spells to train (Clumsy, Weaken & Feeblemind.)
If your eval is already at >99.9 it will start with the rank one spells.

You must have 30 magery to start using this script.

Medable LRC Suit is preferable. 2/6 casting is prefered.

Magery will end up at around 55-60 upon the completion of this script.
Evaluating intelligence MUST be set to up in order to maximise skill gain.

Code: [Select]

;==================================
; Script Name: Reaper's M. Resist Trainer
; Author: The Reaper
; Version: 1.0
; Client Tested with: 7.0.10.3
; EUO version tested with: 1.5.186
; Purpose: Train magical resist for freeshards.
; Should work on OSI servers also.
; Credit to the original "Unkown" creator of the magery script this was created from, and Symptom for their input
;==================================
initevents
;Set this value to what it is you're wanting
;preferably keep the default value to maximise
;traing (only change if you are a confident EUOX
;user.)
set %skilltraining resist

;Core coding:
set %eval eval
chooseskill %eval
set %phase2skill #skill
chooseskill %skilltraining
set %startingskill #skill
set %currentskill #skill

gosub showmenu

loop:
if %phase2skill > 999
 {
 goto FastTraining
 }
gosub choosespell
gosub cast
gosub skilllock
goto loop:

sub choosespell
  if %currentskill < 1200
  {
    set %spell 26
    set %manatocast 11
    set %castdelay 35
    set %masochistic 1
    menu delete currentspell
    menu text currentspell 68 55 Curse
  }
  set %healspell 28
  if %currentskill < 50
    set %healspell 3
return

sub cast
  gosub openhealthbar
  if %masochistic = 1
    gosub checkhealth
  gosub checkmana %manatocast
  recast:
  event macro 15 %spell
  target 3s
  event macro 23 0
  wait 5
  gosub checkskill
  wait %castdelay
return

sub checkskill
  chooseskill %skilltraining
  if #skill > %currentskill
  {
    set %currentskill #skill
    sound
    str len %currentskill
    str ins %currentskill #dot #strRes
    menu delete currentskill
    menu text currentskill 68 25 #strRes
    set %totalgains %currentskill - %startingskill
    str len %totalgains
    str ins %totalgains #dot #strRes
    menu delete totalgains
    menu text totalgains 68 40 #strRes
  }
return

sub checkhealth
  gosub openhealthbar
  checkhealth:
  if #hits = #maxhits
    return
  set %healat #maxhits - ( #maxhits / 5 )
  if #hits < %healat
  {
    gosub checkmana 11
    event macro 15 %healspell
    target 3s
    event macro 23 0
    goto checkhealth
  }
return

sub checkmana
    if #mana < %manatocast
    {
    event macro 13 46
     loop2:
       if #mana < #maxmana
       {
        goto loop2
       }
    }

return


sub openhealthbar
  if #charname = N/A
  {
    event macro 8 2
    wait 10
  }
return

sub showmenu
  menu clear
  menu window title Resist Trainer
  menu window size 180 95
  menu window color black
  menu font name arial
  menu font size 12
  menu font color Red
  menu font bgcolor black
  menu text title 5 5 RESIST TRAINER.
  menu font size 8
  menu font color lime
  menu text mageryskill 5 25 Current skill:
  menu text gains 5 40 Total gains:
  menu text casting 5 55 Casting:
  menu font color yellow
    str len %currentskill
    str ins %currentskill #dot #strRes
    menu delete currentskill
    menu text currentskill 68 25 #strRes
    set %totalgains %currentskill - %startingskill
    str len %totalgains
    str ins %totalgains #dot #strRes
    menu delete totalgains
    menu text totalgains 68 40 #strRes
  menu font align right
  menu text credit 176 80 by The Reaper
  menu font align left
  menu show
return

sub Skilllock
if #skill = #skillcap
   {
   display You have finished training Resisting Spells. Thankyou for choosing this fact track method.
   halt
   }
return

FastTraining:
set %manatocast 5
event macro 15 0
target 1s
event macro 23 0
wait 5
event macro 15 2
target 1s
event macro 23 0
wait 5
event macro 15 7
target 1s
event macro 23 0
wait 5
gosub checkskill
gosub checkmana
gosub skilllock
goto FastTraining

ReturnPost Merge: February 27, 2011, 08:17:41 AMTo follow: Magery and Necro trainers, any requests for combat training scripts, PM me and I'll try to get back to you.

Edit: To comply with posting rules.

[JustAnotherFace]

Not sure if

Code: [Select]

initevents is required for some strange reason on freeshards, but it is no longer required on EA shards. 

In fact, from the EUO documentation page

It should be noted that InitEvents is no longer required on current releases of EasyUO. The first time you use an event Macro it will automatically initialize. If it is used now it hurts nothing. But serves no purpose either

JaF