Nove: XML import

2025-12-04T22:30:09Z

XML import

Nove: XML import

2020-05-27T13:08:04Z

XML import

New page

'''Function:''' string left ( o : string, l : integer );

 '''o'''
 the original string to be parsed
 '''l'''
 The amount of characters to parse out
 '''return'''
 the left portion of the string with length l

This function parses the string passed to it and returns the number
of characters defined in its second argument.

'''Example:''' "short" := left ("shorten me",5);
'''Example:'''

---~---~---~---~---~---~---~---~---

dilbegin aware describe (arg:string);
var
side:string;
oneword:stringlist;
location:string;
ln:integer;
args:stringlist;
temp:string;
i:integer;
x:extraptr;
code
{
if (self.type!=UNIT_ST_PC)
quit;
if (self.position <POSITION_SLEEPING)
{
act ("Recover first and then you can describe your body parts.",
A_ALWAYS,self,null,null,TO_CHAR);
quit;
}

args:=getwords(arg);
ln:=length(args);
if ((ln<1) or (ln>2))
{
sendtext ("No such location to describe.",self);
quit;
}
else if (ln>1)
goto two_word;

:one_word:

if ((arg==left("help",length(arg))) or
(arg==""))
goto hlp_dscr;

oneword := {"arms","butt","ears","eyes","face","feet",
"general","hair","hands","head","legs",
"mouth","neck","nose","nostrils","teeth",
"toes","tongue"};

i := 0;
ln := length(args.[0]);
temp:="ERROR";
while (i<18)
{
if (args.[0]==left(oneword.[i],ln))
{
temp := oneword.[i];
break;
}
i := i+1;
}

if (temp=="ERROR")
{
sendtext ("No such location to describe.",self);
quit;
}

goto describe;

:two_word:

oneword := {"arm","leg","foot","hand","eye","ear"};
temp := "ERROR";
ln := length(args.[0]);
if (args.[0] == left("left",ln))
side:="left";
else if (args.[0] == left("right",ln))
side:="right";
else
{
sendtext ("No such location to describe.",self);
quit;
}

i := 0;
while (i<6)
{
if (args.[1]==left(oneword.[i],ln))
{
temp := oneword.[i];
break;
}
i := i+1;
}

if (temp=="ERROR")
{
sendtext ("No such location to describe.",self);
quit;
}

temp := side+" "+temp;

:describe:
if (temp=="General")
location := "";
else
location := temp;

x := location in self.extra;
if (x!=null)
if (location=="")
sendtext("your Current description for your body is: &n"+x.descr+"&n",self);
else
sendtext("your Current description for your "+location+"is: &n"+x.descr+"&n",self);
if (location=="")
sendtext ("Enter a text you would like others to see when they look at your body.&n",self);
else
sendtext ("Enter a text you would like others to see when they look at your "+location+".&n",self);

beginedit (self);
wait(SFB_EDIT,self==activator) ;
temp := textformat(argument);
oneword:={""};
subextra(self.extra,location);
addstring (oneword, location);
addextra (self.extra,oneword,temp);
sendtext ("Description added.&n",self);
quit;

:hlp_dscr:

sendtext ("&nCorrect usage of 'describe':&n&n",self);
sendtext ("describe <position>&n&n",self);
sendtext("<position> being one of the following:&n&n",self);
sendtext( "arms butt ears eyes&n"+
"face feet General hair&n"+
"hands head left arm left leg&n"+
"left foot left hand left eye left ear&n"+
"legs mouth neck nose&n"+
"nostrils right arm right leg right foot&n"+
"right hand right eye right ear teeth&n"+
"toes tongue&n&n",self);
sendtext ("Example: &n&n",self);
sendtext ("describe left leg&n",self);
quit;
}
dilend

---~---~---~---~---~---~---~---~---



---~---~---~---~---~---~---~---~---

Manual:DIL Manual/left() - Revision history

Nove: XML import

Nove: XML import