COWbrowse

You are in a command called attack

attack {foe}

This causes you and your foe to fight till death.

Notes:
- You may not attack anyone while in a location whose material is 'sanctuary'.
- You can only attack if you and the foe are both alive (health > 0).
- You can only attack foes that are made of "living" material.
- The battle ends if either leave the room or die
- If you have more than one weapon wielded, only one will be used in battle
- There is no effect from wielding or not except in the text shown during battle.

Weapon notes:
- The default weapon is your fist, with damage of 1.
- If you are wielding a weapon, the damage will match the weapon's health/10.
- Once in a while during a weapon's hit, it can do a special attack. These are objects that you place inside the weapon. During a special attack, one of these objects is chosen at random and set as follows:
slot1 = the person wielding the weapon
slot2 = the person hit by the weapon
slot3 = the weapon's id.
counter = 0
loc = the location of the battle

You may want to set your object loc back to the weapon when it is done with the special attack.

For a weapon example, find magical flaming sword (it's health is 2)
There is a fire spell, a heat blast spell, and a critical cut inside it.

(Later, I hope to incorporate armor properties)

Created by thorn, last updated 25 Jul 2012

Code

get $target in $loc;

if $target > 0 then attackcheck;

##specs:
// Criteria for allowing attack:
// room is not made of 'sanctuary'
// attacker's health > 0
// target is logged on player or made of 'living'
// target's health > 0
// target is not the attacker

// If the above are met, then
// A copy of the battle system is sent to the room
// The system's slot1 = attacker, slot2 = target

##attackcheck:
getgender $init_obj;
$endtxt = "but the serenity of the room calms you.";
if $loc's material like sanctuary then fail else checkh;

##checkh:
$myh = $init_obj's health;
$endtxt = 'while dead';
if $myh > 0 then findit else fail;

##findit:
getgender $target;
$endtxt = 'but $heshe is not here';
if $target > 0 then checkplay else fail;

##checkplay:
$tclass = $target's class;
if $tclass = 'player' then checklogged else checkliv;

##checkliv:
$tmat = $target's material;
$endtxt = 'but only things made of living material can fight';
if $tmat like (living|undead) then checkthealth else fail;

##checklogged:
var $arethey to $target is logged on;
$endtxt = 'but the player is not logged on.';
rem $arethey eq yes then checkthealth else fail;
runsub checkthealth;

##checkthealth:
$thealth = $target's health;
$endtxt = 'but $heshe is already dead';
if $thealth > 0 then checkself else fail;

##checkself:
$endtxt = 'but $heshe does not feel suicidal right now';
if $target eq $init_obj then fail else checkconv;

##checkguard:
$guard is guarding before $target;
if $guard > 0 then checkg2 else checkconv;

##checkg2:
$endtxt = 'but [$guard] steps in front, blocking your way';
if $guard's health > 0 then fail else checkconv;

##checkconv:
$skiller = $init_obj;
runsub converter;
if $success > 0 then cc2 else fail;
##cc2:
$skiller = $target;
runsub converter;
if $success > 0 then attackit else fail;

##attackit:
say 'attack',"[$init_obj] attacks [$target]!";

copy 58708;
update $new_id = "class='battlesystem', name='', pose='invisible', slot1=$init_obj, slot2=$target, slot3=0, loc=$loc";

// set $new_id's slot1 to $init_obj;
// set $new_id's slot2 to $target;
// set $new_id's slot3 to 0;
// set $new_id's host to $new_id;
// set $new_id's hosthow to 'in';
// set $new_id's loc to $loc;
// rem on by defaut I think: switch $new_id on;

##fail:
sayto $init_obj,"You try to attack [$target] $endtxt";

##converter:
$removed = ' ';
$skillname = "aim";
$skillvalue = $skiller's aim;
$skillpoints = $skiller's aimpoints;
$skillcap = $skiller's aimcap;
$tipobjs = "10=58711}1{20=58771}1{30=58773}1{40=64912";
runsub conv2;
find $skiller,aim;
if $success > 1 then removeit;
find $skiller,aimpoints;
if $success > 1 then removeit;
find $skiller,aimcap;
if $success > 1 then removeit;
if $success > 1 then showrem;
$skillname = "dodge";
$skillvalue = $skiller's dodge;
$skillpoints = $skiller's dodgepoints;
$skillcap = $skiller's healthmax;
$tipobjs = "10=58712}1{20=58774}1{30=58777}1{64913";
if $success > 0 then conv2;
find $skiller,dodge;
if $success > 1 then removeit;
find $skiller,dodgepoints;
if $success > 1 then removeit;
if $success > 1 then showrem;
##conv2:
$endtxt = "but [$skiller] could not be converted to the new skill system for $skillname";
$success = 0;
if $skillvalue == '' then conv3 else conv4;
##conv3:
$success = 1;
##conv4:
$skilltipname = "$skillname$skillcap skilltip";
manipulate $tipobjs get $skillcap to $skilltipobj by 1;
if $skilltipobj == '' then conv6 else conv5;
print "converted [$skiller] $skillname $skillvalue pnts=$skillpoints cap=$skillcap success=$success";
##conv5:
$valstring = "svalue=$skillvalue}2{smod=0}2{spoints=$skillpoints}2{scap=$skillcap}2{stipobj=$skilltipobj";
$skillvals = $skiller's skillvals;
$skills = $skiller's skills;
manipulate $skillvals set $skillname to $valstring by 1;
swap $skills add $skillname;
set $skiller's skills to $skills;
set $skiller's skillvals to $skillvals;
swap $skills so '\\|' is '*';
$success = 2;
##conv6:
print "In order to convert [$skiller] to the new skill system, there must be a skill tip object for the $skillname cap of $skillcap. See some info about $skillname";
##removeit:
if $found_id > 0 then removeit2;
##removeit2:
$removed = "$removed [$found_id] ($found_id)";
set $found_id's loc to 0;
##showrem:
print "removed: $removed";
$removed = ' ';