you can clean up the beginning of the code abit and make it like this

on *:action:$($+(*,slap,*,$me,*,trout,*)):#:{ 
  var %i $r(1,20), %money $calc(%i * 6)
  $iif(%tmoney >= 1000000,unset %tmoney,inc %tmoney %money)