# PDIRT MudCode Library.
# 
# Version: 0.1
# Author : Peter Eussen
# Date   : 31 December 1997
#
# This file will hold the library with function calls a person can do from
# within the mudcode.
#
# I propose the java notation for functions, see examples below.

%start

isHere(number(1));

(ploc({number(1)}) == ploc(param_s.plx))@

%start

mobileId(number(1));

({number(1)} + max_players)@

%start

toPlayer();

param_s.pl@

%start

thisObject();

param_s.ob@

%start

end_command();

param_s.ret = 1; return@

%start

thisPlayer();

param_s.plx@

%start
playerStrength(number(1));

pstr({number(1)})@

%start
playerName(number(1));

pname({number(1)})@

%start
playerLocation(number(1));

ploc({number(1)})@

%start
playerLevel(number(1));

plev({number(1)})@

%start
playerCarries(number(1),number(2));

iscarrby({number(1)},{number(2)})@

%start
dieMobile(number(1));

destroy_mobile({number(1)} + max_players)@

%start

placeObjectInRoom(number(1),number(2));

setoloc({number(1)}, {number(2)}, IN_ROOM)@

%start

placeObjectInContainer(number(1),number(2));

setoloc({number(1)}, {number(2)}, IN_CONTAINER)@

%start

placeObjectInInventory(number(1),number(2));

setoloc({number(1)}, {number(2)}, CARRIED_BY)@

%start

addStrength(number(1),number(2));

setpstr({number(1)},pstr({number(1)}) + {number(2)})@

%start

givePlayer(number(1), number(2));

setoloc({number(1)},{number(2)}, CARRIED_BY)@

%start
sendThisPlayer(string(1));

sendf(param_s.plx,{string(1)})@

%start
sendPlayer (number(1), string(1));

sendf({number(1)},"%s",{string(1)})@

%start
sendInRoom (number(1),string(1));

send_msg (ploc ({number(1)}), 0, pvis ({number(1)}), LVL_MAX, {number(1)}, NOBODY,
          {string(1)}, {number(1)})@

%start
sendImmorts(string(1));

send_msg (DEST_ALL, MODE_BRACKET|MODE_QUIET, Max(pvis (mynum), LVL_APPREN),
          LVL_MAX, mynum, NOBODY,
          {string(1)})@

%start
objectState(number(1));

state({number(1)})@

%start
setObjectState(number(1),number(2));

setobjstate({number(1)},{number(2)})@

%start
stateZero(number(1));

(!state({number(1)}))@

%start
upPlayerScore(number(1), number(2));

setpscore({number(1)}, pscore({number(1)}) + {number(2)})@

%start
killPlayer(number(1), number(2));

wound_player({number(1)}, {number(2)}, (pstr({number(2)}) + 1), -1)@

%start
calibratePlayer(number(1));

calib_player({number(1)})@

%start

testObjectFlag(number(1),number(2));

otstbit({number(1)},{number(2)})@
 
%end