www.ClassicTW.com
https://mail.black-squirrel.com/

3D MAP
https://mail.black-squirrel.com/viewtopic.php?f=15&t=20476		 Page 1 of 1
Author:  LLLOKI [ Mon Mar 31, 2008 6:24 pm ]
Post subject:  3D MAP
If you remember twhelp it had one of the best 3d visual maps ever. anybody ever toy with the idea of creating something similar for twproxy?
Author:  Singularity [ Mon Mar 31, 2008 7:42 pm ]
Post subject:  Re: 3D MAP
Yea but the scripting language doesn't provide those kind of graphical elements, so...
Author:  ElderProphet [ Mon Mar 31, 2008 11:42 pm ]
Post subject:  Re: 3D MAP
I'm familiar with a few maps, but not that one. I know the ones from Swath, Kokua, and TWAssist (thanks to Kav). I'd love to see some screen shots from what others think are good maps, and why they think so.
Author:  Promethius [ Tue Apr 01, 2008 1:16 am ]
Post subject:  Re: 3D MAP
ElderProphet wrote:
I'm familiar with a few maps, but not that one. I know the ones from Swath, Kokua, and TWAssist (thanks to Kav). I'd love to see some screen shots from what others think are good maps, and why they think so.


I don't have a screen shot, but swath has a very good visual map:
1. Zoom in to show adjacent sectors only or out to show several adjacent groups
2. Shows figged sectors, friendly or enemy
3. Shows Planet icon for friendly/enemy
4. Shows armid mine icon friendly/enemy
5. Shows port type for sectors
6. Warp lines show one-way sectors
7. Selectable for current sector that updates when moving
8. Show specific sector when specified, i.e. enter 1541 and it shows all information available
9. Map works off of ZTM to show sector numbers only on sector icon when not visited.
Author:  LLLOKI [ Tue Apr 01, 2008 10:39 pm ]
Post subject:  Re: 3D MAP
it did what swaths does--depicted each sector as a circle with type of port inside circle. ill look at swaths again forget what the prob was for me i use zoc and twproxy
Author:  Promethius [ Wed Apr 02, 2008 12:57 am ]
Post subject:  Re: 3D MAP
About the best you can do with twxProxy is a display that is pure text. I don't know if there is a method to change the text color in a TWX window or not - I haven't found one. Anyway the code below is a kludge, but might give someone an idea on creating a visual map for TWX. The script will allow you to show current sector with adjacents and their adjacents. You can hit the ~ key to select showing the current sector as you move (command prompt required), enter a sector number, or show sectors adjacent to a fig hit (could use a sectorparameter to show figged). The script also needs an alien filter on the fig hits unless you are alien hunting.
If the "plot from" sector shows in the adjacent warps then you know it isn't a one-way.

Anyway the disclaimer is: This is a quick script that is not a polished script by any means, so feel free to edit and change anything - including my alias.

Code:
# map

setVar $version "Map v .1"

:windowSetup
setVar $Window 1
Window MAP 400 375 "      " & $version & "  by Promethius    " ONTOP
setVar $plotFrom CURRENTSECTOR


:begin
setVar $i 1
while ($i <= 6)
   setVar $line[$i] ""
   setVar $line2[$i] ""
   setVar $cs[$i] 0
   add $i 1
end
setVar $top ""
setVar $bottom ""
setVar $Window "* Use ~ to activate options *"
setWindowContents MAP $Window & "*"

if ($option = "c")
   setVar $plotFrom CURRENTSECTOR
elseif ($option = "f")
   setVar $plotFrom $hit
end
setVar $cnt 1
while ($cnt <= sector.warpcount[$plotFrom])
   if (sector.warps[$plotFrom][$cnt] > 0)
      setVar $cs[$cnt] sector.warps[$plotFrom][$cnt]
   end
  add $cnt 1
end

# get warp sectors 1-3 from adjacent sectors and format
:display
   setVar $i 1
  while ($i <= 6)
     setVar $idx 1
     while ($idx <= 3)
        if ($cs[$idx] > 0)
           setVar $tmp $cs[$idx]
           if (sector.warps[$tmp][$i] <> $plotFrom)
              if (sector.warps[$tmp][$i] > 0)
                 setVar $str sector.warps[$tmp][$i]
                 gosub :format10
                 setVar $line[$i] $line[$i] & $str
              else
                 setVar $line[$i] $line[$i] & "         |"

               end
            else
                setVar $str "{" & $plotFrom & "}"
                gosub :format10
                setVar $line[$i] $line[$i] & $str
           end
        else
          setVar $line[$i] $line[$i]  & "               "
        end
        add $idx 1
     end
     add $i 1
end


# setup top 3 adjacent sectors to plotted sector for display
setVar $i 1
while ($i <= 3) and ($cs[$i] > 0)
    setVar $str $cs[$i]
       gosub :format10
    setVar $top $top & $str
    add $i 1
end

# get warp sectors 4-6 from adjacent sectors and format
  setVar $i 1
  while ($i <= 6)
     setVar $idx 4
     while ($idx <= 6) and ($cs[$idx] > 0)
           setVar $tmp $cs[$idx]
           if (sector.warps[$tmp][$i] <> $plotFrom)
              if (sector.warps[$tmp][$i] > 0)
                 setVar $str sector.warps[$tmp][$i]
                 gosub :format10
                 setVar $line2[$i] $line2[$i] & $str
              else
                 setVar $line2[$i] $line2[$i] & "         |"
              end
            else
                setVar $str "{" & $plotFrom & "}"
                gosub :format10
                setVar $line2[$i] $line2[$i] & $str
           end
        add $idx 1
     end
     add $i 1
end

# setup bottom 3 adjacent sectors to plotted sector for display
setVar $i 4
while ($i <= 6) and ($cs[$i] > 0)
       setVar $str $cs[$i]
             gosub :format10
       setVar $bottom $bottom & $str
   add $i 1
end
setVar $botLine ""
setVar $topLine "               \       |      /"
if (sector.warpcount[$plotFrom] = 1)
    setVar $topLine "               \"
elseif (sector.warpcount[$plotFrom] = 2)
    setVar $topLine "               \       |"
elseif (sector.warpcount[$plotFrom] = 4)
    setVar $botLine "               /"
elseif (sector.warpcount[$plotFrom] = 5)
    setVar $botLine "               /       |"
elseif (sector.warpcount[$plotFrom] = 6)
    setVar $botLine "               /       |      \"
end
:displayWindow
  setVar $window $window & "**     " & $line[1] & "*     " & $line[2] & "*     " & $line[3] & "*"
  setVar $window $window & "     " & $line[4] &  "*     " & $line[5] & "*     " & $line[6] & "*"
  setVar $window $window & "*     " & $top & "*"
  setVar $window $window & $topLine
  setVar $str "{ " & $plotFrom & " }"
  gosub :format10
  setVar $window $window & "*                 " & $str & "*"
  setVar $window $window & $botLine
  setVar $window $window  & "*     " & $bottom & "*"
  setVar $window $window & "     " & $line2[6] & "*     " & $line2[5] & "*     " & $line2[4] & "*"
  setVar $window $window & "     " & $line2[3] &  "*     " & $line2[2] & "*     " & $line2[1] & "*"
  setwindowContents MAP $window


if ($option = "c") or ($option = "f")
  goto :contDisplay
end
killtrigger opt
setTextOutTrigger opt :options "~"
pause
:options
  echo "**" ANSI_12 " Enter C for displaying of current sector when moving*"
  echo ANSI_12 " f - for fig hit sector display, or enter a sector number.*"
  getConsoleInput $Option
  isNumber $test $Option
  if ($test)
     if ($option > 0) and ($option <= SECTORS)
     setVar $plotFrom $option
     goto :begin
     else
       echo ANSI_12 "**Sector plot must be from 1 to " SECTORS "!!!!!"
       echo ANSI_12 "*Press any key to continue*"
       getConsoleInput $anyKey singlekey
       goto :options
     end
  else
    goto :contDisplay
  end

:contDisplay
   killalltriggers
   if ($option = "c")
      setTextTrigger cmd :begin "Command [TL="
   else
      setTextTrigger fig :figHit "entered sector"
   end
   setTextOutTrigger opt :options "~"
   pause

:figHit
   getword currentline $hit 5
   stripText $hit ":"
   goto :begin


# gosubs

:format10
  getLength $str $len
  while ($len < 10)
      setVar $str " " & $str
      add $len 1
  end
  return
Author:  Promethius [ Tue Apr 15, 2008 1:11 am ]
Post subject:  Re: 3D MAP
I have released a text map that uses a TWX window on grimytrader.com. It is based on the previous post's code and includes the following:

ProMap -- Version: .6    Updated: 04/15/2008    Downloads: 0 by 0 Users
Description: (Compiled)
A fairly simple sector display map. The script uses a TWX wndow and sector numbers to show a sector, its adjacent sectors and then the sectors adjacent to those. Run as a normal script or as a system script.

Options include: 
1. Fighter hit display of a sector and adjacents + their adjacents.
2. Current sector
3. Current sector that changes when moving
4. Any sector by entering the sector number
5. StarDock by entering the letter "d"

Options are activated with the ~ key.

Use in additon to SWATH to keep a specific sector displayed at all times. If you use sectorparameters (FigSec - True/False) it will display an "F" beside figged sectors. FigSec is not updated automatically by this script!!!

This is NOT a graphical display - text based only.
Release Notes:
Added ports to sector display.


I found the script useful early in a game when I don't have the sectors around dock or fed memorized.
Page 1 of 1 All times are UTC - 5 hours
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/