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){ currentcolor = c; } teken = dumpline.substring( x, x + 1 ); if (teken == " " ){ 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. |