This function library contains bash shell functions related to the Alchemy skill.
Though it had been tested with the busybox ash shell, some functions might only work correctly in bash ( or the other way around ).

The functions use code from

1. cf_funcs_common_sh

These client side scripting files are suggested to be installed inside the user's “HOME/.crossfire/s/” folder,
with a shortcut link cf → to the .crossfire directory,
to do have not much typing to do in the client's commandline.

Functions are usually named _function(){ ;} , functions named _ _function and _ _ _function are usually alternatives to the _function.

Noteworthy is the _check_cauldron_cursed function, which is a switch to call either
_check_cauldron_cursed_use_skill, *_ready_skill, *_cast_detect_curse, or *_invoke_detect_curse;
either a skill or a spell.
The user needs to un-comment / comment the one of the functions wanted therein.
This _check_cauldron_cursed function needs still code added to read the message info panel,
and handle the received information.

330 lines of code without much explanations…

#!/bin/ash
 
[ "$HAVE_FUNCS_ALCHEMY" ] && return 0
 
# depends :
[ "$HAVE_FUNCS_COMMON"   ] || . cf_funcs_common.sh
 
### ALCHEMY
 
_drop_in_cauldron(){
_debug "_drop_in_cauldron:$*"
 
test "$*" || return 254
 
_watch $DRAWINFO
_drop "$@"
_check_drop_or_exit
_unwatch $DRAWINFO
}
 
_check_if_on_cauldron(){
# *** Check if standing on a cauldron *** #
_debug "_check_if_on_cauldron:$*"
_draw 5 "Checking if on a cauldron..."
 
UNDER_ME='';
UNDER_ME_LIST='';
 
_empty_message_stream
echo request items on
 
while :; do
read -t $TMOUT UNDER_ME
_log "$ON_LOG" "_check_if_on_cauldron:$UNDER_ME"
_debug "$UNDER_ME"
 
UNDER_ME_LIST="$UNDER_ME
$UNDER_ME_LIST"
 
case $UNDER_ME in
*request*items*on*end*) break;;
*scripttell*break*)     break ${UNDER_ME##*?break};;
*scripttell*exit*)    _exit 1 $REPLY;;
*'YOU HAVE DIED.'*) _just_exit;;
*bed*to*reality*)   _just_exit;;
esac
 
unset UNDER_ME
sleep 0.1s
done
 
test "`echo "$UNDER_ME_LIST" | grep -E 'cauldron.*cursed|cauldron.*damned'`" && {
#_draw 3 "You stand upon a cursed cauldron!"
#_beep_std
_exit 1 "You stand upon a cursed cauldron!"
}
 
test "`echo "$UNDER_ME_LIST" | grep 'cauldron$'`" || {
#_draw 3 "Need to stand upon cauldron!"
#_beep_std
_exit 1 "Need to stand upon cauldron!"
}
 
_draw 7 "OK."
return 0
}
 
 
_check_empty_cauldron(){
# *** Check if cauldron is empty *** #
_debug "_check_empty_cauldron:$*"
 
local REPLY OLD_REPLY REPLY_ALL
 
#_is 1 1 pickup 0  # precaution otherwise might pick up cauldron
_set_pickup 0
sleep 0.5
_sleep
 
_draw 5 "Checking for empty cauldron..."
 
# opening the cauldron:
_is 1 1 apply
sleep 0.5
_sleep
 
OLD_REPLY="";
REPLY_ALL='';
REPLY="";
 
# getting items out of the cauldron
_watch $DRAWINFO
#sleep 0.5
 
#issue <repeat> <must_send> <command>
#- send <command> to server on behalf of client.
#<repeat> is the number of times to execute command
#<must_send> tells whether or not the command must sent at all cost (1 or 0).
#<repeat> and <must_send> are optional parameters.
#See The Issue Command for more details.
#issue 1 0 get nugget (works as 'get 1 nugget')
#issue 2 0 get nugget (works as 'get 2 nugget')
#issue 1 1 get nugget (works as 'get 1 nugget')
#issue 2 1 get nugget (works as 'get 2 nugget')
#issue 0 0 get nugget (works as 'get nugget')
 
#_is 1 1 get  ##gets 1 of topmost item
#_is 0 1 take
#_is 0 1 get all
#_is 0 1 get
_is 99 1 get
 
# Note : the commandline of the client handles take and get differently:
# 'get  4 water' would get 4 water of every item containing water
# 'take 4 water' ignores the number and would get all water from the topmost item containing water
 
while :; do unset REPLY
read -t $TMOUT
_log "$REPLY_LOG" "take:$cr:$REPLY"
_debug "$REPLY"
 
REPLY_ALL="$REPLY
$REPLY_ALL"
 
test "$REPLY" || break
sleep 0.1s
done
 
case $REPLY_ALL in
*You*pick*up*the*cauldron*) _exit 1 "pickup 0 seems not to work in script..?";;
*Nothing*to*take*) :;;
*) _exit 1 "Cauldron seems to be NOT empty !!";;
esac
 
_unwatch $DRAWINFO
 
#_sleep
_move_back_and_forth 2
#_sleep
 
_draw 7 "OK ! Cauldron IS empty."
}
 
_alch_and_get(){
_debug "_alch_and_get:$*"
 
_check_if_on_cauldron || return 1
 
local REPLY OLD_REPLY
local HAVE_CAULDRON=1
_unknown &
 
_watch $DRAWINFO
 
sleep 0.5
_is 1 1 use_skill alchemy
 
# *** TODO: The cauldron burps and then pours forth monsters!
OLD_REPLY="";
REPLY="";
while :; do unset REPLY
read -t $TMOUT
_log "$REPLY_LOG" "alchemy:$REPLY"
_debug "$REPLY"
case $REPLY in
                                                       #(level < 25)  /* INGREDIENTS USED/SLAGGED */
                                                       #(level < 40)  /* MAKE TAINTED ITEM */
                                                       #(level == 40) /* MAKE RANDOM RECIPE */ if 0
                                                       #(level < 45)  /* INFURIATE NPC's */
*The*cauldron*creates*a*bomb*) _emergency_exit 1;;     #(level < 50)  /* MINOR EXPLOSION/FIREBALL */
                                                       #(level < 60)  /* CREATE MONSTER */
*The*cauldron*erupts*in*flame*)     HAVE_CAULDRON=0;;  #(level < 80)  /* MAJOR FIRE */
*The*burning*item*erupts*in*flame*) HAVE_CAULDRON=0;;  #(level < 80)  /* MAJOR FIRE */
*turns*darker*then*makes*a*gulping*sound*) _exit 1 "Cauldron probably got cursed";;  #(level < 100) /* WHAMMY the CAULDRON */
*Your*cauldron*becomes*darker*) _exit 1 "Cauldron probably got cursed";;  #(level < 100) /* WHAMMY the CAULDRON */
*pours*forth*monsters*) _emergency_exit 1;;            #(level < 110) /* SUMMON EVIL MONSTERS */
                                                       #(level < 150) /* COMBO EFFECT */
                                                       #(level == 151) /* CREATE RANDOM ARTIFACT */
*You*unwisely*release*potent*forces*) _emergency_exit 1;;  #else /* MANA STORM - watch out!! */
'') break;;
esac
 
sleep 0.1s
done
 
if test "$HAVE_CAULDRON" = 0; then
 _check_if_on_cauldron && HAVE_CAULDRON=1
 test "$HAVE_CAULDRON" = 0 && _exit 1 "Destroyed cauldron." # :D
fi
 
# Now opening the cauldron
_is 1 1 apply
 
#issue <repeat> <must_send> <command>
#- send <command> to server on behalf of client.
#<repeat> is the number of times to execute command
#<must_send> tells whether or not the command must sent at all cost (1 or 0).
#<repeat> and <must_send> are optional parameters.
#See The Issue Command for more details.
 
#_is  1 1 get  # [AMOUNT] [ITEM]
#_is 99 1 take # [ITEM] ## take gets <repeat> of ITEM -> 99 should be enough to empty the cauldron
 
#issue 1 0 get nugget (works as 'get 1 nugget')
#issue 2 0 get nugget (works as 'get 2 nugget')
#issue 1 1 get nugget (works as 'get 1 nugget')
#issue 2 1 get nugget (works as 'get 2 nugget')
#issue 0 0 get nugget (works as 'get nugget')
#_is 0 1 take
#_is 0 1 get all
#_is 0 1 get
_is 99 1 get
 
# Note : the commandline of the client handles take and get differently:
# 'get  4 water' would get 4 water of every item containing water
# 'take 4 water' ignores the number and would get all water from the topmost item containing water
 
OLD_REPLY="";
REPLY="";
NOTHING=0
SLAG=0
 
while :; do unset REPLY
read -t $TMOUT
_log "$REPLY_LOG" "take:$REPLY"
_debug "$REPLY"
case $REPLY in
*Nothing*to*take*)   NOTHING=1;;
*You*pick*up*the*slag*) SLAG=1;;
'') break;;
esac
 
sleep 0.1s
done
 
_unwatch $DRAWINFO
_sleep
}
 
_check_drop_or_exit(){
_debug "_check_drop_or_exit:$*"
 
local HAVE_PUT=0
local OLD_REPLY="";
local REPLY="";
 
while :; do unset REPLY
read -t $TMOUT
_log "$REPLY_LOG" "_check_drop_or_exit:$REPLY"
_debug "$REPLY"
case $REPLY in
*Nothing*to*drop*)                _exit 1 "Missing in inventory";;
*There*are*only*|*There*is*only*) _exit 1 "Not enough to drop." ;;
*You*put*in*cauldron*) HAVE_PUT=$((HAVE_PUT+1));;
'') break;;
esac
 
sleep 0.1s
done
 
case "$HAVE_PUT" in
0)   _exit 1 "Could not put.";;
1)   :;;
'')  _exit 2 "_check_drop_or_exit:ERROR:Got no content.";;
*[[:alpha:][:punct:]]*) _exit 2 "_check_drop_or_exit:ERROR:Got no number.";;
[2-9]*) _exit 1 "More than one stack put.";;
esac
_sleep
}
 
_close_cauldron(){
_move_back_and_forth 2
}
 
_go_cauldron_drop_alch_yeld(){
_move_back 4
}
 
_go_drop_alch_yeld_cauldron(){
_move_forth 4
}
 
_check_cauldron_cursed_use_skill(){
_is 1 1 use_skill sense curse
}
 
_check_cauldron_cursed_ready_skill(){
_is 1 1 ready_skill sense curse
_is 1 1 fire 0 # 0 is center
_is 1 1 fire_stop
}
 
_check_cauldron_cursed_cast_detect_curse(){
_is 1 1 cast detect curse
_is 1 1 fire 0 # 0 is center
_is 1 1 fire_stop
}
 
_check_cauldron_cursed_invoke_detect_curse(){
_is 1 1 invoke detect curse
}
 
_check_cauldron_cursed(){
_debug "_check_cauldron_cursed:$*"
##_is 1 1 use_skill sense curse
#_is 1 1 cast detect curse
#_is 1 1 fire 0 # 0 is center
#_is 1 1 fire_stop
 
 _check_cauldron_cursed_use_skill
#_check_cauldron_cursed_ready_skill
#_check_cauldron_cursed_cast_detect_curse
#_check_cauldron_cursed_invoke_detect_curse
}
 
_return_to_cauldron(){
_debug "_return_to_cauldron:$*"
 
_go_drop_alch_yeld_cauldron
 
_check_food_level
 
_get_player_speed -l || sleep ${DELAY_DRAWINFO}s
 
_check_if_on_cauldron
}
 
### ALCHEMY
 
###END###
HAVE_FUNCS_ALCHEMY=1