;==================================
; Script Name: FOO MAN CHOO'S PVP HEALER
; Author: Foo Man Choo
; Version: 1.0
; Client Tested with: FS 7.0-7.0.31
; EUO version tested with: 242
; Shard OSI / FS:  OSI / FS
; Revision Date: 8/05/13
; Public Release: 07/31/13
; Global Variables Used: *Mortalled , *Paralyzed
; Purpose: Daids Pots Apples Smoke Bombs Taunts evasion counter attack , keeps you alive
;==================================

;;;;;  ---->>>  AOS SERVER W/ ALL SKILLS <<<-----
;;;;; TESTED BANDAGE DELAY FORMULA FROM 100-150 DEX
;;;;; TAUNTS YOUR OPPONENT WITH 34 DIFFERNT TAUNTS
;;;;; YOU MAY EDIT THE TUANTS OR TURN OFF -- TO EDIT GOTO LINE 295
;;;;; LIKE ALL THE OTHER HEALING SCRIPTS YOU MUST RUN part2 OF THIS SCRIPT
;;;;; TO SCAN JOURNAL IF YOU DONT APPLES AND SMOKE BOMBS WONT WORK

;;;;; WHAT THIS SCRIPT DOESNT DO, DISARM YOUR WEAPON TO DRINK POT THEN RE-ARM IT
;;;;; I BELIEVE ASSISTUO HAS THIS FEATURE TO ASSIST YOU IN THAT REGARD BUT ITS SLOW
;;;;; JUST USE BALANCED BOW OR 1 HAND WEAPON
;;;;; PS : DONT TELL PEOPLE YOU DONT USE SCRIPTS WHEN YOU DO THATS JUST DUMB WE ALL KNOW WHEN YOU ARE!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; USER VARIABLES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

set %bscommand #true ; does your shard support [bs command? #true or #false
 ; warning --- if #false and you "que" last target you may bandage your enemy,
 ; could cause you to get guard wacked this script is primarily for servers that support [bs
;;;;; IF you are on a server that doesnt support [bs use assistuo to heal

  ;;;;;;;;;;;;;;;;
  ;;HitPointVars;;
  ;;;;;;;;;;;;;;;;

set %AppleHP 95  ;95  remember apples have a 2 minut timer only uses when mortalled and HP is 95 or less
set %EvadeHP 100 ;100 when you will cast evasion from the script
set %HealHP 115 ;115  when to drink a heal pot (hit point value or less)0
set %CureHP 145 ;145  there is no timer on cure pots this never set this to your max HP minus 5 or 10
set %RefreshS 47 ;70  when your stam falls bellow this number drink a refresh
set %CounterHP 80 ;80 again trigger point to auto- perform bushido spell counter
set %ChivHP 150   ; this is in the works doesnt do nothing right now
;set %ManaM 60 ;;dont use this it is the same type as heal pot

  ;;;;;;;;;;;;;;;;
  ;; Setup Vars ;;
  ;;;;;;;;;;;;;;;;

;set *Weapon HYKRZUD   disabled in this script haha eat me :)
set %PotionBag WCQMBND ; if you use a potion bag or blessbag you will need to set it here
      ; alternatively if you do not use a potionbag replace the ID with #backpackid
      ; this potionbag or #backpack must be open for the script to locate your potions/bandaids/smokebombs/apples
set %UseAids #true
set %usetaunt #true ; #true or #false want to antagonize your enemy?
set %Evasion #true
set %CurePots #true
set %HealPots #true
set %RefreshPots #true
set %StatPots #true
set %ManaPots #false ; disabled on purpos interfears with heal pots
set %UseApples #true
set %Counter #true
set %UseSmokebomb #true
set %AidLag 0 ;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; NOTHING ELSE TO EDIT BELLOW XCEPT TAUNTS AFTER LINE 287 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;;;;;;;;
  ;; Timer Vars ;;
  ;;;;;;;;;;;;;;;;
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 %Parawait #Scnt
set %Curewait #Scnt
set %Strwait #Scnt
set %Dexwait #Scnt
set %dex 0
set %str 0
  ;;;;;;;;;;;;;;;;
  ;; Item  Vars ;;
  ;;;;;;;;;;;;;;;;
;set %Spellstone TIY
set %Apples CBS
set %Cure NUF
set %Heal UUF
set %Refresh ZUF
set %Agility YUF
set %Strength XUF
set %smokebomb CHP
set %Mana UUF

  ;;;;;;;;;;;;;;;;
  ;;   Taunts   ;;
  ;;;;;;;;;;;;;;;;
set %td #scnt2
set %t 1
set %IM 24
;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;
set %Paratime #scnt
Loop:
if ( #hits = #maxhits && C notin #charstatus ) || #Charghost = yes
  goto SkipMain
if H notin #charstatus
{
 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
 {
 if %bscommand
  gosub Aids
 else
  gosub Aids2
 }
if %UseApples && *Mortalled && #Scnt >= %Applewait
 gosub CheckHP %AppleHP Apples
if %UseSmokebomb && *Para && #scnt >= %Paratime
 gosub Smokeyjoe
}
SkipMain:
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_ , %PotionBag
set #LObjectID #findid
event macro 17 0
set %Applewait ( #sCnt + 16 )
set *Mortalled #false
return

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

sub Smokeyjoe
finditem CHP C_ , %PotionBag
if #findcnt < 1
   return
set #LObjectID #findid
event macro 17 0
set %Paratime ( #scnt + 12 )
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;c

sub Evasion
event macro 15 147
event macro 1 0 You Cant Touch This
set %Evadewait ( #sCnt + 21 ) ;21
return

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

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

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

sub Aids
event macro 1 0 [bandself
set %Aidwait ( ( ( 110 - ( #dex / 20 ) * 10 ) ) - 3 ) + #scnt2
if %usetaunt
 gosub gettaunt
return

sub Aids2 ;; double clicks bandages
if #targcurs = 0
{
finditem ZLF C_ , %PotionBag
if #findcnt < 1
 return
set #Lobjectid #findid
event macro 17 0
target
event macro 23 0
set %Aidwait ( ( ( 110 - ( #dex / 20 ) * 10 ) ) - 3 ) + #scnt2
if %usetaunt
 gosub gettaunt
}
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

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

sub gettaunt
if #scnt2 < %TD
 return
gosub %t
set %t ( %t + 1 )
set %TD ( #scnt2 + 40 )
return

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

sub 1
  event macro 1 0 you dont have a chance fatty
  return
sub 2
  event macro 1 0 try again when you bring a army
  return
sub 3
  event macro 1 0 that all you got?
  return
sub 4
  event macro 1 0 why dont you try to not suck so bad
  return
sub 5
  event macro 1 0 really? you need go get a 400 powerscroll in pvp then try again
  return
sub 6
  event macro 1 0 go go gadget pwn your @ZZ
  return
sub 7
  event macro 1 0 your not going to cry are you?
  return
sub 8
  event macro 1 0 if yo momma woulda had change for a 20 youda been a BJ
  return
sub 9
  event macro 1 0 you should just stand there and die to get it over quicker
  return
sub 10
  event macro 1 0 you mad bro?
  return
sub 11
  event macro 1 0 you need a tissue?
  return
sub 12
  event macro 1 0 hey popeye you need a can of spinache? you suck bra
  return
sub 13
   event macro 1 0 My name is Donald and You're fired!
   return
sub 14
   event macro 1 0 you Are The weakest Link.!
   return
sub 15
   event macro 1 0 whered you learn that from the new player dungeon?
   return
sub 16
   event macro 1 0 oooh.. that tickles
   return
sub 17
   event macro 1 0 my 5 year old does better pvp than you
   return
sub 18
   event macro 1 0 rage log go ahead~!
   return
sub 19
   event macro 1 0 rage much?
   return
sub 20
   event macro 1 0 you mad bro?
   return
sub 21
   event macro 1 0 just uninstall uo your terribad
   return
sub 22
   event macro 1 0 your still holding your Dildo, try using a weapon.
   return
sub 23
   event macro 1 0 your just a tree hugging hippy
   return
sub 24
   event macro 1 0 are you trying to hit me or hug me to death?
   return
sub 25
   event macro 1 0 blondie hits harder than you
   return
sub 26
    event macro 1 0 you mad you bad?
    return
sub 27
    event macro 1 0 just hold still while i smack you up a bit.
    return
sub 28
    event macro 1 0 Hey! i got some candy for you and a jelly donut with custard filling want some?
    return
sub 29
    event macro 1 0 what would you do for a klondike bar?
    return
sub 30
    event macro 1 0 great googly moogly your such a fail?
    return
sub 31
    event macro 1 0 your not going to run are you?
    return
sub 32
    event macro 1 0 Look i think he's going to cry.
    return
sub 33
    event macro 1 0 yup , definitly crying now.
    return
sub 34
    event macro 1 0 will you run to mc donalds and get me some french cries
    event macro 1 0 and a tall glass of shut the hell up
    set %t 0
    return

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