cardremove.cmd

#
# By Hanryu
# Please report any bugs to Hanryu#0052 (discord) or sauva@play.net
# This script may be reused in whole or in part as long as credit is given
# This script is designed to use Outlander, http://outlanderapp.com
#

if_1 then {goto top}
echo **  .cardremove ALL
echo **    Removes and stows one of every card in the held case
echo **  .cardremove 1 2 3 4
echo **    Removes and stows only the listed cards
goto end

top:
if contains(%1,all) then {
 var c 0
 all:
  math c add 1
  if %c > 150 then {goto end}
  gosub remove
  goto all
 }
else {
 list:
  var c %1
  gosub remove
  shift
  if_1 then {goto list}
  goto end
 }
}
end:
put #parse **  CARDREMOVE DONE  **
exit

####  Common Subroutines  ####
remove:
 match return You don't have
 match stow You slide
 send card rem %c
 matchwait
stow:
 send stow card
 waitfor You put
return:
 return
####