35%
help support pastebin



SHARE
TWEET

Untitled
 a guest  Dec 20th, 2017  33  Never



Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
rawdownloadcloneembedreportprint
text 5.25 KB
yyyy;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;

  ;;;;;;;;;;;;;;;;
  ;;HitPointVars;;
  ;;;;;;;;;;;;;;;;
set %AppleHP 100
set %EvadeHP 200
set %HealHP 200
set %CureHP 275
set %RefreshS 50
set %CounterHP 250
;set %ManaM 60
  ;;;;;;;;;;;;;;;;
  ;; Setup Vars ;;
  ;;;;;;;;;;;;;;;;
set *Weapon
set %PotionBag ERBEQND
set %UseAids #true
set %Evasion #true
set %CurePots #true
set %HealPots #true
set %RefreshPots #true
set %StatPots #false
set %ManaPots #false
set %UseApples #false
set %Counter #true
  ;;;;;;;;;;;;;;;;
  ;; Timer Vars ;;
  ;;;;;;;;;;;;;;;;
set %BandageLag 10
set %ReArm #sCnt2
set %Aidwait #sCnt2
set %Armwait #sCnt2
set %Evadewait #Scnt
set %Counterwait #Scnt
set %Healwait #Scnt
;set %Manawait #Scnt
set %Applewait #Scnt
set %Curewait #Scnt
set %Strwait #Scnt
set %Dexwait #Scnt
set %dex #DEX
set %str #STR
  ;;;;;;;;;;;;;;;;
  ;; Item  Vars ;;
  ;;;;;;;;;;;;;;;;
set %Spellstone TIY
set %Apples CBS
set %Cure NUF
set %Heal UUF
set %Refresh ZUF
set %Agility YUF
set %Strength XUF
set %baid ZLF
;set %Mana UUF

;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;

Loop:
if #hits = #maxhits && C notin #charstatus && *PvM
     goto SkipMain
if H notin #charstatus && #charghost = no
     {
          if #targcurs = 0
               {
                    if %CurePots && C in #charstatus && #Scnt >= %Curewait && ! *Mortalled
                         gosub CheckHP %CureHP Potion %Cure
                    if %HealPots && C notin #charstatus && #Scnt > %Healwait && ! *Mortalled
                         {
                              set %PotType Heal
                              gosub CheckHP %HealHP Potion %Heal
                         }
                    if %RefreshPots && #stamina < %RefreshS
                         gosub Potion %Refresh
                    if %StatPots && %dex > #dex && #sCnt >= %Dexwait
                         gosub Potion %Agility
                    if %StatPots && %str > #str && #sCnt >= %Strwait
                         gosub Potion %Strength
                    if %Evasion && #Scnt >= %Evadewait
                         gosub CheckHP %EvadeHP Evasion
            if %Counter && #Scnt >= %Counterwait
             gosub CheckHP %CounterHP Counter
               }
          if %UseAids && ( ( ! *Mortalled && #hits < #maxhits ) || C in #charstatus ) && #sCnt2 >= %Aidwait
               gosub Aids
          if %UseApples && *Mortalled && #Scnt >= %Applewait
               gosub CheckHP %AppleHP Apples
     }
SkipMain:
gosub RearmWeapon
goto Loop

;;;;;;;;;;;;;;;;;;
;;     Subs     ;;
;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub RearmWeapon
finditem *Weapon C_ , #CharID
if #findcnt < 1 && #sCnt2 > %ReArm
     {
          finditem *Weapon C_ , #BackpackID
          exevent Drag #findid
          exevent Droppd
          set %ReArm #sCnt2 + 55
     }
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Apples
finditem CBS C_ , #BackpackID
set #LObjectID #findid
event macro 17 0
set %Applewait ( #sCnt + 16 )
set *Mortalled #false
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;c

sub Evasion
event macro 15 147
set %Evadewait ( #sCnt + 21 )
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

sub Counter
event macro 15 148
set %Counterwait (#sCnt +21)
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

sub Aids
finditem %baid
set #lobjectid #findid
event macro 17 0
target
event macro 23 0
;event macro 1 0 [bs
set %Aidwait #sCnt2 + ( 205 - #dex ) / 2 + 20 - 5 + %BandageLag
if #sCnt2 - %Aidwait < 20
    set %Aidwait #sCnt2 + 20 + %BandageLag

return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Potion
finditem %1 C_ , %PotionBag
if #findcnt < 1
     goto SkipPots
if %1 = UUF
     {
          for #findindex 1 #findcnt
               {
                    event property #FindID
                    if %PotType in #property
                         {
                              set #LobjectID #findid
                              goto Chug
                         }
                    if Mana in #property
                         {
                              set #LobjectID #findid
                              goto Chug
                         }
               }
     }
set #LobjectID #findid
Chug:
event macro 17 0
if %1 = UUF && %PotType = Heal
     set %Healwait ( #sCnt + 11 )
if %1 = NUF
     set %Curewait ( #sCnt + 1 )
if %1 = YUF
     {
          set %Dexwait ( #sCnt + 5 )
          wait 5
          set %dex #dex
     }
if %1 = XUF
     {
          set %Strwait ( #sCnt + 5 )
          wait 5
          set %str #str
     }
SkipPots:
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub CheckHP
if #Hits < %1
     gosub %2 %3
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;