I indeed am using xLIBs mirror function =) but I have 15 walls and 15 doors. I also have a neat little treat for anyone that wants to see something painful...
Quote:
[A](C+(E=3)-(E=1),D+(E=2)-(E=4
If Ans:Then
real(3,1+15(Ans=2),2,0
Else
[A](C+2(E=3)-2(E=1),D+2(E=2)-2(E=4
If Ans:Then
real(3,2+15(Ans=2),2,0
Else
[A](C+3(E=3)-3(E=1),D+3(E=2)-3(E=4
If Ans
real(3,3+15(Ans=2),2,0
[A](C+2(E=3)-2(E=1)+(E=4)-(E=2),D+2(E=2)-2(E=4)+(E=3)-(E=1
If Ans:Then
real(3,6+15(Ans=2),2,0
Else
[A](C+3(E=3)-3(E=1)+(E=4)-(E=2),D+3(E=2)-3(E=4)+(E=3)-(E=1
If Ans
real(3,9+15(Ans=2),2,0
End
[A](C+2(E=3)-2(E=1)+(E=2)-(E=4),D+2(E=2)-2(E=4)+(E=1)-(E=3
If Ans:Then
real(1,0,0,12,63,6+15(Ans=2),0,0,2,1,0
Else
[A](C+3(E=3)-3(E=1)+(E=2)-(E=4),D+3(E=2)-3(E=4)+(E=1)-(E=3
If Ans
real(1,0,0,12,63,9+15(Ans=2),0,0,2,1,0
End
End
[A](C+(E=3)-(E=1)+(E=4)-(E=2),D+(E=2)-(E=4)+(E=3)-(E=1
If Ans:Then
real(3,5+15(Ans=2),2,0
Else
[A](C+2(E=3)-2(E=1)+(E=4)-(E=2),D+2(E=2)-2(E=4)+(E=3)-(E=1
If Ans:Then
real(3,8+15(Ans=2),2,0
Else
[A](C+2(E=3)-2(E=1)+2(E=4)-2(E=2),D+2(E=2)-2(E=4)+2(E=3)-2(E=1
If Ans:Then
real(3,11+15(Ans=2),2,0
Else
[A](C+3(E=3)-3(E=1)+2(E=4)-2(E=2),D+3(E=2)-3(E=4)+2(E=3)-2(E=1
If Ans
real(3,13+15(Ans=2),2,0
End
End
End
[A](C+(E=3)-(E=1)+(E=2)-(E=4),D+(E=2)-(E=4)+(E=1)-(E=3
If Ans:Then
real(1,0,0 12,63,5+15(Ans=2),0,0,2,1,0
Else
[A](C+2(E=3)-2(E=1)+(E=2)-(E=4),D+2(E=2)-2(E=4)+(E=1)-(E=3
If Ans:Then
real(1,0,0,12,63,8+15(Ans=2),0,0,2,1,0
Else
[A](C+2(E=3)-2(E=1)+2(E=2)-2(E=4),D+2(E=2)-2(E=4)+2(E=1)-2(E=3
If Ans:Then
real(1,0,0,12,63,11+15(Ans=2),0,0,2,1,0
Else
[A](C+3(E=3)-3(E=1)+2(E=2)-2(E=4),D+3(E=2)-3(E=4)+2(E=1)-2(E=3
If Ans
real(1,0,0,12,63,13+15(And=2),0,0,2,1,0
End
End
End
End
[A](C+(E=4)-(E=2),D+(E=3)-(E=1
If Ans:Then
real(3,4+15(Ans=2),2,0
Else
[A](C+(E=3)-(E=1)+(E=4)-(E=2),D+(E=2)-(E=4)+(E=3)-(E=1
If Ans:Then
real(3,7+15(Ans=2),2,0
Else
[A](C+(E=3)-(E=1)+2(E=4)-2(E=2),D+(E=2)-(E=4)+2(E=3)-2(E=1
If Ans:Then
real(3,10+15(Ans=2),2,0
Else
[A](C+2(E=3)-2(E=1)+2(E=4)-2(E=2),D+2(E=2)-2(E=4)+2(E=3)-2(E=1
If Ans:Then
real(3,12+15(Ans=2),2,0
Else
[A](C+2(E=3)-2(E=1)+3(E=4)-3(E=2),D+2(E=2)-2(E=4)+3(E=3)-3(E=1
If Ans:Then
real(3,14+15(Ans=2),2,0
Else
[A](C+3(E=3)-3(E=1)+3(E=4)-3(E=2),D+3(E=2)-3(E=4)+3(E=3)-3(E=1
If Ans
real(3,15Ans,2,0
End
End
End
End
End
[A](C+(E=2)-(E=4),D+(E=1)-(E=3
If Ans:Then
real(1,0,0,12,63,4+15(Ans=2),0,0,2,1,0
Else
[A](C+(E=3)-(E=1)+(E=2)-(E=4),D+(E=2)-(E=4)+(E=1)-(E=3
If Ans:Then
real(1,0,0,12,63,7+15(Ans=2),0,0,2,1,0
Else
[A](C+(E=3)-(E=1)+2(E=2)-2(E=4),D+(E=2)-(E=4)+2(E=1)-2(E=3
If Ans:Then
real(1,0,0,12,63,10+15(Ans=2),0,0,2,1,0
Else
[A](C+2(E=3)-2(E=1)+2(E=2)-2(E=4),D+2(E=2)-2(E=4)+2(E=1)-2(E=3
If Ans:Then
real(1,0,0,12,63,12+15(Ans=2),0,0,2,1,0
Else
[A](C+2(E=3)-2(E=1)+3(E=2)-3(E=4),D+2(E=2)-2(E=4)+3(E=1)-3(E=3
If Ans:Then
real(1,0,0,12,63,14+15(Ans=2),0,0,2,1,0
Else
[A](C+3(E=3)-3(E=1)+3(E=2)-3(E=4),D+3(E=2)-3(E=4)+3(E=1)-3(E=3
If Ans
real(1,0,0,12,63,15Ans,0,0,2,1,0
End
End
End
End
End
That is the code to draw the screen. Aside from simple optimizations (I can get on those later) how is it? Oh, and
this is the pic files I am using, they are .PNG atm, but meh. I have them on calc now!