Gammon Forum

#DELCLASS Brewscript
#CLASS 0
#ALIAS Brewing {#IF %trigger(BrewScript) {#T- BrewScript;#SAY Brewscript OFF} {#T+ BrewScript;#SAY Brewscript ON}}

#CLASS {BrewScript}
#ALIAS gourds {#VAR gourd_sorting 1;#VAR gourd_list "|";#VAR gourd_affects "|";#VAR gourd_inv "";inven}
#ALIAS apply {#IF %begins( "%-1", "'") {#VAR use_gourd %word( "%-1", 2, "'")} {#VAR use_gourd {%1}};~apply %-1}
#ALIAS toss {#IF %begins( "%-1", "'") {#VAR use_gourd %word( "%-1", 2, "'")} {#VAR use_gourd {%1}};~toss %-1}
#ALIAS quaff {#IF %begins( "%-1", "'") {#VAR use_gourd %word( "%-1", 2, "'")} {#VAR use_gourd {%1}};~quaff %-1}
#ALIAS check_gourds {lore '%item( @gourd_inv, @gourd_num)';#IF %eval( %numitems( @gourd_inv) < @gourd_num) {#VAR gourd_sorting 0;#VAR gourd_inv "";inven}}
#ALIAS remove_gourd {#IF %isnumber( %left( @use_gourd, 1)) {#VAR gourd_num %left( @use_gourd, 1);#VAR use_gourd %right( @use_gourd, 2)} {#VAR gourd_num 1};#IF %len( %2) {#VAR gourd_count %numitems( @gourd_list);#WHILE @gourd_count {#IF %begins( %item( @gourd_list, @gourd_count), %1) {#DELNITEM gourd_list @gourd_count;#DELNITEM gourd_affects @gourd_count;#VAR gourd_count 0} {#ADD gourd_count -1;#IF %eval( @gourd_count = 0) {#SAY ERROR - could not find a match for the used gourd - last}}}} {#IF %eval( (@gourd_num = 1) & %len( %1)) {#VAR gourd_count %ismember( %1, @gourd_list);#DELNITEM gourd_list @gourd_count;#DELNITEM gourd_affects @gourd_count} {#IF %len( %1) {#VAR use_gourd {%1}};#VAR gourd_count 1;#WHILE @gourd_count {#IF %begins( %item( @gourd_list, @gourd_count), @use_gourd) {#IF %eval( @gourd_num > 1) {#ADD gourd_num -1;#ADD gourd_count 1} {#DELNITEM gourd_list @gourd_count;#DELNITEM gourd_affects @gourd_count;#VAR gourd_count 0}} {#ADD gourd_count 1;#IF %eval( @gourd_count > %numitems( @gourd_list)) {#VAR gourd_count 0;#SAY ERROR - could not find a match for the used gourd}}}}}}
#VAR gourd_affects {}
#VAR gourd_list {}
#VAR gourd_inv {}
#VAR use_gourd {}
#VAR gourd_num {0}
#VAR gourd_loops {0}
#VAR gourd_count {0}
#VAR gourd_sorting {0}
#TRIGGER {^You create a bubbling potion!$} {#T+ BrewScript|id_gourd;lore gourd}
#TRIGGER {^You are carrying:$} {#IF @gourd_sorting {#T+ BrewScript|sort_inv} {#T+ BrewScript|list_inv}}
#TRIGGER {^You apply a potion gourd of ([A-z ]) to} {remove_gourd {%param1}}
#TRIGGER {^You quaff a potion gourd of ([A-z ]).$} {remove_gourd {%param1}}
#TRIGGER {^You throw a gourd right at} {remove_gourd}
#TRIGGER {^A potion gourd of ([A-z ]) has evaporated from disuse.$} {remove_gourd {%param1} 1}
#TRIGGER {^You fumble around inexpertly with a potion gourd of ([A-z ]) accidentally spilling it.$} {remove_gourd {%param1}}
#CLASS 0

#CLASS {BrewScript|id_gourd} {disable}
#TRIGGER {^Level %d spells of: '(*)'.$} {#VAR gourd_list %concat( "|", %word( %param1, 1, "' '"), @gourd_list);#VAR gourd_affects %concat( "|", %replace( %remove( "' 'reserved", %param1), "' '", " / "), @gourd_affects);#IF @gourd_sorting {#ADD gourd_num 1;check_gourds} {#T- BrewScript|id_gourd}}
#TRIGGER {^Can't make heads or tails of it.$} {#IF @gourd_sorting {check_gourds} {lore gourd}}
#CLASS 0

#CLASS {BrewScript|list_inv} {disable}
#ALIAS list_gourd {#ADD gourd_count %max( 1, %numitems( %word( @gourd_list, @gourd_num, %concat( "|", @gourd_inv))));#SAY {%e[0m"     "gourd %ansi( brown)<@gourd_num>.@gourd_inv %e[0m(%ansi( cyan)%item( @gourd_affects, @gourd_count)%e[0m)};#ADD gourd_num 1;#IF %eval( @gourd_loops >= @gourd_num) {list_gourd}}
#TRIGGER {^     a potion gourd of ([A-z ])$} {#SUB {"     gourd" %ansi(brown)%param1 %e[0m(%ansi(cyan)%item(@gourd_affects,%ismember( %param1, @gourd_list))%e[0m)}}
#TRIGGER {$} {#T- BrewScript|list_inv}
#TRIGGER {^~(([ 0-9])~) a potion gourd of ([A-z ])$} {#GAG;#VAR gourd_count 1;#VAR gourd_num 1;#VAR gourd_loops %trim( %param1);#VAR gourd_inv %param2;list_gourd}
#CLASS 0

#CLASS {BrewScript|sort_inv} {disable}
#ALIAS add_gourds {#VAR gourd_inv {%concat( @gourd_count.@use_gourd, %if( %len( @gourd_inv), "|"), @gourd_inv)};#ADD gourd_count 1;#IF %eval( @gourd_count <= @gourd_num) {add_gourds}}
#TRIGGER {^     a potion gourd of ([A-z ])$} {#VAR gourd_inv {%concat( %param1, %if( %len( @gourd_inv), "|"), @gourd_inv)}}
#TRIGGER {^~(([ 0-9])~) a potion gourd of ([A-z ])$} {#VAR gourd_count 1;#VAR gourd_num %trim( %param1);#VAR use_gourd {%param2};add_gourds}
#TRIGGER {$} {#T- BrewScript|sort_inv;#T+ BrewScript|id_gourd;#VAR gourd_num 1;check_gourds}
#CLASS 0
#SAY Brewscript installed version 1.1