70 to 75 Magery

sysmsg "Magery Trainer Script 70-75" 88
sysmsg "Version 2.0" 88

if not findalias 'bankbag'
    msg "bank"
    pause 1000
    sysmsg "Select a bag with reagents in your bank" 88
    promptalias 'bankbag'
endif

@removelist 'trainregs'
@createlist 'trainregs'

pushlist 'trainregs' 0xf88 // nightshade
pushlist 'trainregs' 0xf7b // bloodmoss

//
// Actions list
//
@removelist 'actions'
@createlist 'actions'
pushlist 'actions' 'restock'

while not dead

    //
    // Reg check
    //
    if not @inlist! 'actions' 'restock'
        // train regs
        for 0 to 'trainregs'
            if @counttype trainregs[] 'any' 'backpack' < 5
                @clearlist 'actions'
                pushlist 'actions' 'restock'
                continue
            endif
        endfor
    endif

    //
    // Restock regs
    //
    if @inlist! 'actions' 'restock'
        sysmsg "Checking / restocking regs" 88
        pause 200
        @clearlist 'actions'
        resync
        msg "bank"
        pause 1000
        msg "bank"
        pause 1000
        useobject 'bankbag'
        pause 2000
        //
        // Reg restocking is extremely unreliable!
        //
        for 0 to 'trainregs'
            removetimer 'restock'
            createtimer 'restock'
            while counttype trainregs[] 'any' 'backpack' < 100
                sysmsg "restocking reagent" 44
                movetype trainregs[] 'bankbag' 'backpack' 0 0 0 'any' 100
                pause 1500
                if timer 'restock' > 30000
                    sysmsg "I cannot restock the train regs" 44
                    stop
                endif
            endwhile
        endfor
        pushlist 'actions' 'train'
        continue
    endif

    //
    // Train
    //
    if @inlist! 'actions' 'train'
        pause 200
        @clearlist 'actions'
        //
        // TRAINING
        //
        if mana < 20
    useskill 'meditation'
    pause 11500
    while mana < 60
    endwhile
  endif
  if mana > 20
        @canceltarget
        cast "Invisibility"
        waitfortarget 5000
        target! 'self'
        msg "guards"
        pushlist 'actions' 'train'
    endif

    //
    // Server save fix
    //
    if @injournal 'world will save' 'system'
      sysmsg 'pausing for world save' 44
      pause 30000
      @clearjournal
    endif

    //
    // skill check
    //
    if skill 'Magery' == 75
      headmsg "Im done" 93
      stop
    endif

    pushlist 'actions' 'train'

    pause 1000

endwhile