Thread: Buff bot script
View Single Post
  #4  
Old 10-12-2021, 10:50 PM
Splose
Banned
 
Join Date: Apr 2014
Posts: 279
Default

Code:
sub EVENT_SAY {
	if($text=~/hail/i) {	
		if($ulevel < 10) {
			@buffs = (
			89, 	#Daring - Level 17 Cleric HP/AC Buff
			485,	#Symbol of Transal - Level 11 Cleric HP Buff
			368,	#Spirit Armor - Level 15 Cleric AC Buff 
			278,	#Spirit of Wolf
			254,	#Firefist - Level 17 Ranger Atk Buff
			332, 	#Shield of Fire - Level 7 Mage DS Buff
			2521,	#Talisman of the Beast - SHM STR Buff
			269, 	#Feet Like Cat - SHM AGI Buff
			279, 	#Spirit of Bear - SHM STAM Buff
			10,
			11274);	#Augmentation - Level 28 ENC Haste BUFF
		}
		elsif($ulevel >= 10 && $ulevel < 25) {
			@buffs = (
			312,	#Valor - Level 33 Cleric HP/AC Buff
			487,	#Symbol of Pinzarn - Cleric HP Buff
			167,	#Talisman of Tnarg
			19,		#Armor of Faith - Cleric AC Buff
			278,	#Spirit of Wolf
			254,	#Firefist
			332,	#Shield of Fire
			149,	#Spirit of Ox
			146,	#Spirit of Monkey
			144,	#Regeneration
			10,
			11274);	#Augmentation - Level 28 ENC Haste Buff
		}
		elsif($ulevel >= 25 && $ulevel < 46) {
			@buffs = (
			4053,	#blessing of temperance
			168,	#Talisman of Tnarg
			2524,	#Spirit of Bih`li
			254,	#Firefist
			412,	#Shield of Fire
			149,	#Spirit of Ox
			146,	#Spirit of Monkey
			138,	#Regeneration
			1693, 	#clarity
			10,
			172);	#Augmentation - Level 28 ENC Haste Buff
		}
		elsif($ulevel >= 46) {
			@buffs = (
			2122,	#Ancient: Gift of Aegolism
		#	4108,	#Aura of Reverence - Clr spell haste
			2530,	#Khura's Focusing
			2524,	#Spirit of Bih`li
			3441,	#Blessing of Replenishment
			3486,	#Shield of Fire
			2570,	#KEI
			11274,
			2895);	#Speed of the Brood - haste
		}
		plugin::DiaWind("Good luck with your adventures, {gold}$name~. =2=");
		foreach my $spell (@buffs) {
			quest::selfcast($spell);
		}		
	}
}
Here is an extremely simple one I wrote years ago.
Reply With Quote