Search found 1 match

by chaoshidai
Fri Jan 30, 2004 8:15 pm
Forum: Volume 5 (500-599)
Topic: 532 - Dungeon Master
Replies: 39
Views: 10055

[/pascal][/code] program p532; {$APPTYPE CONSOLE} uses SysUtils; const f:array[1..6,1..3]of longint=((0,1,0),(0,-1,0),(1,0,0),(-1,0,0),(0,0,1),(0,0,-1)); var st:array[1..50,1..50,1..50]of char; b:array[1..50,1..50,1..50]of 0..1; m:array[1..50,1..50,1..50]of longint; l,r,c,i,j,k,si,sj,sk:longint; s:s...

Go to advanced search