Results 1 to 1 of 1

Thread: EasyUO Discordance trainer for the new Barding spot

  1. #1

    Riath's DISCO v1.8 (EasyUO) Discordance trainer for Oasis Barding area

    Code:
    ;Discordance Trainer for the new Barding area in the Paradise Found Training Oasis.
    ;Written by Riath D'Ersines.
    ;Many thanks to Damara for setting this area up and to Religio for providing an idea to be improved upon.
    ;
    ;VERSION 1.8 - Tweaked skill levels. Thanks once again, Patty Le Pew!
    ;VERSION 1.7 - Fixed cow ID. Thanks Patty Le Pew!
    ;VERSION 1.6 - Improved corpse cleanup logic.
    ;VERSION 1.5 - Improved Scanjournal accuracy.
    ;VERSION 1.4 - Added a message ending script once GM attained.
    ;              Changed script to move and target automatically based on skill.
    ;VERSION 1.3 - Changed kill method to magery (lightning)
    ;VERSION 1.2 - First public release
    ;
    ;INSTRUCTIONS: Be in the Training Oasis Barding Area. Have a NON-EXCEPTIONAL high-use instrument in your pack.
    ;              Have a LRC suit or regs and enough magery to cast Lightning.
    ;              The script will move you and target according to your skill level.
    
    
                           ;A value of 20 equals 1 second.
    set %objdelay 15       ;Increase this number if you get object use delay errors.
    set %skilldelay 240    ;Increase this number if you get skill delay errors.
    
    
    ;=======DO NOT MODIFY BEYOND THIS POINT==========
    
    
    mainloop:
             gosub skillcheck
             gosub move
             set %jstart #jindex + 1
             gosub disco
             set %jend #jindex + 2
             gosub scan
             wait %skilldelay
             goto mainloop
    
    sub skillcheck
             chooseskill disc
             if #skill >= 830
                  {
                  set %movex 391
                  set %movey 793
                  set %target YG
                  }
             if #skill < 830
                  {
                  set %movex 402
                  set %movey 792
                  set %target XG
                  }
             if #skill < 610
                  {
                  set %movex 415
                  set %movey 791
                  set %target YG
                  }
             if #skill < 460
                  {
                  set %movex 423
                  set %movey 795
                  set %target NG
                  }
             return
    
    sub move
             moveloop:
                  if #charposx = %movex
                       {
                       if #charposy = %movey
                            {
                            return
                            }
                       goto moveloop
                       }
                  event pathfind %movex %movey
                  wait 20
                  goto moveloop
    
    sub disco
             finditem %target G_4
             set #ltargetid #findid
             event macro 13 15
             target 5s
             event macro 22
             return
    
    sub scan
             for %i %jstart %jend
                  {
                  scanjournal %i
                  if jarring in #journal
                       {
                       gosub kill
                       return
                       }
                  if already in #journal
                       {
                       gosub kill
                       goto mainloop
                       }
                  if increased in #journal
                       event macro 1 0 [e woohoo
                  wait 10
                  }
             return
    
    sub kill
             event macro 15 29
             target 4s
             event macro 22
             wait %objdelay
             gosub cleanup
             return
    
    sub cleanup
             finditem YFM G_2
             while #findcnt > 0
                   {
                   finditem YFM G_2
                   set #ltargetid #findid
                   event macro 1 0 [cl
                   target 3s
                   event macro 22
                   #findindex = #findindex + 1
                   }
             return
    Attached Files Attached Files
    Last edited by Riath D'Ersines; 12-23-2016 at 09:54 AM. Reason: Update

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •