End of July Updates

[manikus]

Well, it's not quite the end of July, but it's not the middle of the month anymore either...so end it is.

Since the last update, or maybe not mentioned in the last update ('cause they're still on my list of things to write about) are the following accomplishments, big small and in-between.

->exporting baseclass database to a text file
->"wait" feature - spacebar can now be used to have the party 'wait' in current spot during 3D mode, which causes one minute to pass and step events to fire if applicable
->$SET_CHAR_xxxLVL() where xxx is the name of one of the classes
->$DAT_Baseclass_Experience(), $DAT_Baseclass_Level() - now you can input the XP and get the level and vice versa

->monster database: green sliime, umber hulk, purple worm, medusa, basilisk, wight, wraithm vampire
->spell database: restoration, gaze attacks
->special ability database: troll regenerate, troll get-up, drain (still in progress to incorporate Training Hall activity)

I don't believe any art stuff got done...

So, yeah. There you go.

Thanks Paul, for all of your hardwork on Dungeon Craft. It is greatly appreciated.

[nologgie]

Great stuff! Thank you Paul, and thank you Manikus!

[Dinonykos]

Great stuff! Thank you Paul, and thank you Manikus!

Yes, thanks! As posted at the other forum, the "wait" option is very much appreciated.

[manikus]

Glad to do it. It keeps me out of trouble and from getting any work done.

[manikus]

After a lot of work on Paul's end and a lot mine too, Drain is now working the way it should be and the spells/Training Hall relation to it (the hang-up) is now working as well. Pheww!

[nologgie]

WOO-HOO!!! I'm no programmer, but that one seemed pretty complex compared to most.

[manikus]

Well I don't know if this is the best barometer, but it is a telling one on the difficulty - our email thread for this one special ability is 65 messages. I think they typically run in the 20 to 30 range for the more complex.

[SilentThief]

Kinda put the "drain" on ya?

ST

[manikus]

Kinda put the "drain" on ya?

ST

You have no idea.

This script is monster - more than 300 lines. So many places to screw it up.

[nologgie]

This script is monster - more than 300 lines. So many places to screw it up.

Yep. And we've all seen your typing. 

Yet you manage to get it done anyway! That's why you're my hero. 

[manikus]

This script is monster - more than 300 lines. So many places to screw it up.

Yep. And we've all seen your typing. 

Yet you manage to get it done anyway! That's why you're my hero. 

I know - 300 lines for me is like 400 for an accurate typist. It almost always comes down to a missing closing parenthesis (so yes, that is the ifrst thing I look for now).

The script editor is a great boon for all my kind of errors, well except the brain ones.   Then I need a human to help me.

[Paul R. Stevens]

300 lines seems a bit excessive.  Want to post the
most verbose stuff here and see if we can reduce it
and provide a bit of 'How We Do It' tutorial at the same
time?

[manikus]

We put up the script in the June updates thread, and thanks to folks efforts (mostly yours, Paul) the script was fixed and became workable. But, it didn't get any smaller.

Here is the most current version I have on my flash drive (which may not be the most current version, and in fact likely is not, but should be close).

Code: [Select]

$VAR target;
$VAR char;
$VAR charClass;
$VAR charXP;
$VAR charHP;
$VAR fighter;
$VAR cleric;
$VAR ranger;
$VAR mage;
$VAR thief;
$VAR druid;

target = $TargetIndex();
charClass = $GET_CHAR_CLASS(target);
char = $GET_CHAR_Lvl(target,charClass);
charXP = $GET_CHAR_Exp(target,charClass);
charHP = $GET_CHAR_HITPOINTS(target);
fighter = $GET_CHAR_Lvl(target,"fighter");
cleric = $GET_CHAR_Lvl(target,"cleric");
ranger = $GET_CHAR_Lvl(target,"ranger");
mage = $GET_CHAR_Lvl(target,"magicUser");
thief = $GET_CHAR_Lvl(target,"thief");
druid = $GET_CHAR_Lvl(target,"druid");

$FUNC Drain(class, hpReduction)
{
  $SET_CHAR_Lvl(target,class,(char -# 1));
  $SET_CHAR_Exp(target,class, $DAT_Baseclass_Experience(class, char) -# 1);
  $SET_CHAR_HITPOINTS(target, charHP -# ($RANDOM(hpReduction) +# 1));
} Drain;

$SET_CHAR_ASL(target,"charLevel",char);
$SET_CHAR_ASL(target,"charExp",charXP);
$SET_CHAR_ASL(target,"charHit",charHP);

$IF (charClass ==# 0) {Drain("fighter",10);};
$IF (charClass ==# 1) {Drain("cleric",8);};
$IF (charClass ==# 2) {Drain("ranger",8);};
$IF (charClass ==# 3) {Drain("paladin",10);};
$IF (charClass ==# 4) {Drain("mage",4);};
$IF (charClass ==# 5) {Drain("thief",6);};
$IF (charClass ==# 6) {Drain("druid",8);};
$IF (charClass ==# 7)
{
  $IF (cleric ># fighter)  {Drain("cleric",8);}
  $ELSE {Drain("fighter",10);};
};
$IF (charClass ==# 8)
{
  $IF (cleric ># fighter && cleric ># mage) {Drain("cleric",8);$RETURN;};
  $IF (fighter ># cleric && fighter ># mage) {Drain("fighter",10);$RETURN;}
  $ELSE {Drain("mage",4);};
};
$IF (charClass ==# 9)
{
  $IF (cleric ># ranger) {Drain("cleric",8);}
  $ELSE {Drain("ranger",8);};
};
$IF (charClass ==# 10)
{
  $IF (cleric ># mage){Drain("cleric",8);}
  $ELSE {Drain("mage",4);};
};
$IF (charClass ==# 11)
{
  $IF (cleric ># thief) {Drain("cleric",8);}
  $ELSE {Drain("thief",6);};
};
$IF (charClass ==# 12)
{
  $IF (fighter ># mage) {Drain("fighter",10);}
  $ELSE {Drain("mage",4);};
};
$IF (charClass ==# 13)
{
  $IF (thief ># fighter) {Drain("thief",6);}
  $ELSE {Drain("fighter",10);};
};
$IF (charClass ==# 14)
{
  $IF (thief ># fighter && thief ># mage) {Drain("thief",6);$RETURN;};
  $IF (fighter ># thief && fighter ># mage) {Drain("fighter",10);$RETURN;}
  $ELSE {Drain("mage",4);};
};
$IF (charClass ==# 15)
{
  $IF (thief ># mage) {Drain("thief",6);}
  $ELSE {Drain("mage",4);};
};
$IF (charClass ==# 16)
{
  $IF (fighter ># druid) {Drain("fighter",10);}
  $ELSE {Drain("druid",8);};
};
$IF (charClass ==# 17)
{
  $IF (druid ># mage) {DDrain("druid",8);}
  $ELSE {Drain("mage",4);};
};
$IF (charClass ==# 18)
{
  $IF (fighter ># druid && fighter ># mage) {Drain("fighter",10);$RETURN;};
  $IF (druid ># fighter && druid ># mage) {Drain("druid",8);$RETURN;}
  $ELSE {Drain("mage",4);};
};


[SilentThief]

Does this work with the "billiard player" option for special characters or would you have to modify it?

I am just curious...

Curious ST

[Paul R. Stevens]

We are starting with 324 lines of code.

First we need to make it error-free so we can
compile it.

All occurrences of MAGUSER  need to be changed
to MAGICUSER.

Line 108 has extra trailing semi-colon.
Line 132 has extra trailing semi-colon.
Line 149 has extra trailing semi-colon.
Line 166 has extra trailing semi-colon.
Line 183 has extra trailing semi-colon.
Line 200 has extra trailing semi-colon.
Line 217 has extra trailing semi-colon.
Line 241 has extra trailing semi-colon.
Line 258 has extra trailing semi-colon.
Line 275 has extra trailing semi-colon.
Line 292 has extra trailing semi-colon.
Line 316 has extra trailing semi-colon.

Is it possible to edit the code in your post?
Then we can get on with optimizing the code.