The Zangband Screenshots Gallery: [Z] : What would that be :) by <kenderband@hotmail.com>

[Z] : What would that be :)
Eh eh eh, my first vault, with tons of traps :D Aftermath : lots of annoying monsters with fear/confusion/blind/arrow attacks, no looting monsters that brought at least 1 item from the vault. And after that, it was full of Software Bugs that made me retreat. Yes, Pav, This is Z, long live hack scripts :D Cheers, T.

Posted on 28.4.2003 12:24



Comments?

On 28.4.2003 13:30 pav wrote:
Zang now have html screenshots ability, or you made this by hand? Z category added...

On 28.4.2003 14:26 wrote:
Well, the format of the dump invites to write a little script, this is JudoScript, but I'm sure you can wip up a Perl equivalent for it in no time.

lijnen = {}; //This means, create an array

status = -1; //Heh , -1 + 1 = 0 , cool huh :D

currentcolor = "";



t = openTextFile( #args[0] @ ".html" , "w" );



. "";



do #args[0] as lines{

   if( status == -1 ){

      if( $_ == "" ){

         status = 0;

      }else{

         lijnen.add( $_ );

      }

   }else{

      dumpline = lijnen[status];

      for( x = 0 ; x < dumpline.length() ; x++ ){

         c = getColor( $_.substring( x , x + 1 ) );

         if (c != currentcolor){

            print '';

            currentcolor = c;

         }

         teken = dumpline.substring( x, x + 1 );

         if (teken == " " ){ teken = " "; }

         print teken;

      }

      . "
";

      status++;

   }

}



function getColor c {

if( c == 'd' ){ return "000000"; }

if( c == 'w' ){ return "FFFFFF"; }

if( c == 's' ){ return "808080"; }

if( c == 'o' ){ return "FF8000"; }

if( c == 'r' ){ return "C00000"; }

if( c == 'g' ){ return "008040"; }

if( c == 'b' ){ return "0000FF"; }

if( c == 'u' ){ return "804000"; }

if( c == 'D' ){ return "404040"; }

if( c == 'W' ){ return "C0C0C0"; }

if( c == 'v' ){ return "FF00FF"; }

if( c == 'y' ){ return "FFFF00"; }

if( c == 'R' ){ return "FF0000"; }

if( c == 'G' ){ return "00FF00"; }

if( c == 'B' ){ return "00FFFF"; }

if( c == 'U' ){ return "C08040"; }

}



Seen 8136 times.


Back to The Gallery
Download this screenshot
Write comments

Your email
or Log into forum
Send me email when someone comments this screenshot

Type the text from the above image:

Your comment