on 1:text:-sniff*:#:{
  set %animal $rand(1,4)
  if (%animal == 1) {
    set %animalt $read(tiny.txt)
    set %animalthp $rand(3,9)
    set %thp %animalthp
    set %active %animalt
    msg $chan 5You have scented a7 %animalt 8☀4 %thp HP 8☀
  set %ahp %thp }
  if (%animal == 2) {
    set %animals $read(small.txt)
    set %animalshp $rand(10,20)
    set %shp %animalshp
    set %active %animals
    msg $chan 5You have scented a7 %animals 8☀4 %shp HP 8☀
  set %ahp %shp  }
  if (%animal == 3) {
    set %animalm $read(medium.txt)
    set %animalmhp $rand(25,45)
    set %mhp %animalmhp
    set %active %animalm
    msg $chan 5You have scented a7 %animalm 8☀4 %mhp HP 8☀
  set %ahp %mhp }
  if (%animal == 4) {
    set %animall $read(large.txt)
    set %animallhp $rand(45,60)
    set %lhp %animallhp
    set %active %animall
    msg $chan 5You have scented a7 %animall 8☀4 %lhp HP 8☀
  set %ahp %lhp }
}

on 1:text:,,:#:{
  set %dmg $rand(1,4)
  set %hit %dmg
  if (%dmg == 1) { msg $chan 7 $+ $nick 5attacks the7 %active 5for7 %hit $+ 5. The7 %active 5now has 8☀4 $calc(%ahp - %hit) HP8☀ }
  if (%dmg == 2) { msg $chan 7 $+ $nick 5attacks the7 %active 5for7 %hit $+ 5. The7 %active 5now has 8☀4 $calc(%ahp - %hit) HP8☀ }
  if (%dmg == 3) { msg $chan 7 $+ $nick 5attacks the7 %active 5for7 %hit $+ 5. The7 %active 5now has 8☀4 $calc(%ahp - %hit) HP8☀ }
  if (%dmg == 4) { msg $chan 7 $+ $nick 5attacks the7 %active 5for7 %hit $+ 5. The7 %active 5now has 8☀4 $calc(%ahp - %hit) HP8☀ }
}