Crossfire Wiki

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
==== Melting masses of ice cubes ====


What a nasty situation : You used some icestorm spell to eliminate some monsters,
but now almost all items on the ground are boxed inside an one-time ice cube container.

Collecting all these ice-cubes and manually typing : 
<code>
mark icecube; apply flint and steel
</code> 
inside the command line of the client several dozen times is exhausting;
so better make a script that does all that typing for you.

This script uses functions from a source-able library file 
* [[client_side_scripting:scripts:bash:cf_funcs_common]]
and would likely not work without these functions.

Functions() completely written in this script are
  * _mark_item()  that tests if the input pipe streams `Could not find an object that matches' to stop the loop. 
  * _apply_item() that tests the many responses from applying the flint and steel on the icecube and breaks the loop if these are used up, not available, or nothing was marked.
  * _say_count()  to finally say how many failures and successes were made.

<code bash>
#!/bin/bash

MARK_ITEM='icecube'
ITEM='flint and steel'

DEBUG=1
MSGLEVEL=7

MY_SELF=`realpath "$0"`
MY_BASE=${MY_SELF##*/}

test -f "${MY_SELF%/*}"/cf_funcs_common.sh && . "${MY_SELF%/*}"/cf_funcs_common.sh
_set_global_variables "$@"

# *** Override any VARIABLES in cf_functions.sh *** #
test -f "${MY_SELF%/*}"/"${MY_BASE}".conf && . "${MY_SELF%/*}"/"${MY_BASE}".conf

# *** Here begins program *** #
_say_start_msg "$@"

# *** Check for parameters *** #

while [ "$1" ]
do
PARAM_1="$1"

# *** implementing 'help' option *** #
case "$PARAM_1" in -h|*"help"*)

_draw 5 "$MY_BASE"
_draw 5 "Script to melt icecubes in inventory."
_draw 2  "To be used in the crossfire roleplaying game client."
_draw 5 "Syntax:"
_draw 5 "script $0 <<number>>"
_draw 5 "For example: 'script $0 5'"
_draw 5 "will issue 5 times mark icecube and apply flint and steel."
        exit 0
;;
-d) DEBUG=$((DEBUG+1));;
-V) _say_version;;
*)
# *** testing parameters for validity *** #
PARAM_1test="${PARAM_1//[[:digit:]]/}"
test "$PARAM_1test" && {
_draw 3 "Only :digit: numbers as first option allowed."
        exit 1 #exit if other input than letters
        }

NUMBER=$PARAM_1
;;
esac

shift
sleep 0.1
done

# functions:
_mark_item(){
_debug "_mark_item:$*"
local lITEM=${*:-"$MARK_ITEM"}
lITEM=${lITEM:-"$ITEM"}
lITEM=${lITEM:-icecube}
test "$lITEM" || return 254

local lRV=0

_is 1 1 mark "$lITEM"

 while [ 1 ]; do
 unset REPLY
 read -t $TMOUT
 _log "_mark_item:$REPLY"
 _debug "$REPLY"
 case $REPLY in
 *Could*not*find*an*object*that*matches*) lRV=1;break 1;;
 *scripttell*break*) break ${REPLY##*?break};;
 *scripttell*exit*)  _exit 1 $REPLY;;
 *'YOU HAVE DIED.'*) _just_exit;;
 '') break;;
 esac
 #unset REPLY
 sleep 0.1s
 done

return ${lRV:-0}
}

_apply_item(){
_debug "_apply_item:$*"
local lITEM=${*:-"$ITEM"}
lITEM=${lITEM:-"flint and steel"}
test "$lITEM" || return 254

local lRV=0
_is 1 1 apply "$lITEM"

 while [ 1 ]; do
 unset REPLY
 read -t $TMOUT
 _log "_apply_item:$REPLY"
 _debug "$REPLY"
 case $REPLY in
 *used*up*flint*and*steel*) lRV=5; break 1;;
 *Could*not*find*any*match*to*the*flint*and*steel*) lRV=6; break 1;;
 *You*need*to*mark*a*lightable*object.*) NO_FAIL=1; lRV=7; break 1;;
 '')     lRV=1; break 1;;
 *fail*) lRV=1; FAIL=$((FAIL+1)); break 1;;
 *You*light*the*icecube*with*the*flint*and*steel.*) lRV=0; SUCC=$((SUCC+1)); break 1;;
 *scripttell*break*) break ${REPLY##*?break};;
 *scripttell*exit*)  _exit 1 $REPLY;;
 *'YOU HAVE DIED.'*) _just_exit;;
 *) :;;
 esac
 #unset REPLY
 sleep 0.1s
 done

return ${lRV:-0}
}

_say_count(){
case $SUCC in [0-9]*) _draw 7 "You had smolten $SUCC icecube(s).";; esac
case $FAIL in [0-9]*) _draw 4 "You tried $FAIL time(s) and failed.";; esac
}

# *** Getting Player's Speed *** #
_get_player_speed
#_set_sync_sleep ${PL_SPEED1:-$PL_SPEED}
test "$PL_SPEED1" && __set_sync_sleep ${PL_SPEED1} || _set_sync_sleep "$PL_SPEED"

# *** Actual script to pray multiple times *** #
# MAIN

SUCC=0  # count the successful attempts
FAIL=0  # count the failure attempts
test "$NUMBER" && { test $NUMBER -ge 1 || NUMBER=1; } #paranoid precaution

_debug "NUMBER='$NUMBER'"
_watch

unset one
while :
do
one=$((one+1))

_mark_item icecube || break 2

_sleep

 NO_FAIL=
 until [ "$NO_FAIL" ]
 do

 _apply_item "flint and steel"
 case $? in
 0) break 1;; #success
 1) :;;       #try again
 2) :;;       #unused
 3) :;;       #unused
 4) :;;       #unused
 5) break 2;; #used up
 6) break 2;; #no item
 7) break 1;; #not marked
 8) :;;       #unused
 9) :;;       #unused
 esac

 _say_count
 _sleep

 done #NO_FAIL

#test "$NUMBER" && { test "$NUMBER" = "$cnt" && break 1; }
case $NUMBER in $one) break 1;; esac

done #main while loop


# *** Here ends program *** #
_say_count
_say_end_msg
###END###
</code>

The usual disclaimer : 
If [parts of] the script do[es] not work for you, you are welcome to post a bug report on
the metalforge forum in  [[http://forum.metalforge.net/viewtopic.php?p=12220|my thread `bash']]
Crossfire Wiki

User Tools

Site Tools

Page Tools
