some effect printing alias for g lover (negatives)

> alias negeffects => ash float[effect] prebutts;float maximum_butts = 0.0;float buffer_butts = 0.0;foreach i in $effects[]{if(i.numeric_modifier($string[%%]) < 0 && i.to_lower_case().contains_text("g")){buffer_butts = i.numeric_modifier($string[%%]);prebutts[i] = i.numeric_modifier($string[%%]);if(buffer_butts > maximum_butts){maximum_butts = buffer_butts;}}}float[float] postbutts;foreach i in prebutts{postbutts[prebutts[i]] = prebutts[i];}foreach i,j in postbutts{foreach k in prebutts{if(prebutts[k] - j < 1 && prebutts[k] - j > -1){print(k+" gives "+prebutts[k]+" "+$string[%%]);}}}

String successfully aliased.
negeffects => ash float[effect] prebutts;float maximum_butts = 0.0;float buffer_butts = 0.0;foreach i in $effects[]{if(i.numeric_modifier($string[%%]) < 0 && i.to_lower_case().contains_text("g")){buffer_butts = i.numeric_modifier($string[%%]);prebutts[i] = i.numeric_modifier($string[%%]);if(buffer_butts > maximum_butts){maximum_butts = buffer_butts;}}}float[float] postbutts;foreach i in prebutts{postbutts[prebutts[i]] = prebutts[i];}foreach i,j in postbutts{foreach k in prebutts{if(prebutts[k] - j < 1 && prebutts[k] - j > -1){print(k+" gives "+prebutts[k]+" "+$string[%%]);}}}

> negeffects combat rate

Song of Solitude gives -20.0 combat rate
Throwing Some Shade gives -20.0 combat rate
Mimeoflage gives -15.0 combat rate
Predjudicetidigitation gives -10.0 combat rate
Brooding gives -10.0 combat rate
Driving Stealthily gives -10.0 combat rate
Inky Camouflage gives -5.0 combat rate
Silent Running gives -5.0 combat rate
Celestial Camouflage gives -5.0 combat rate
Scaredy Dog gives -5.0 combat rate
Rational Thought gives -5.0 combat rate
Gummed Shoes gives -5.0 combat rate
Silence of the God Lobster gives -5.0 combat rate
Returned: void