@create Astrogator
@link Astrogator = #0
@set Astrogator = HALT
@set Astrogator = LINK_OK
@set Astrogator = NO_COMMAND
@set Astrogator = SAFE
@ACLONE Astrogator=@cpattr #1277/Map_Default=%!/Map_Default
@set Astrogator/ACLONE=no_command
&AUTHOR Astrogator=Coded by Dahan
@set Astrogator/AUTHOR=no_command visual
&CMD_COPY_MAP Astrogator=$MAP COPY *=*:@pemit %#=[setq(0,rest(grab([setunion(lattr(parent(%!)/MAP_*),lattr(%!/MAP_*))],MAP_[edit(squish(secure(%0)),%b,_)]*),_))][setq(1,edit(squish(secure(%1)),%b,_))][ifelse(t(%q0),Map [ansi(y,capstr(lcstr(edit(%q0,_,%b))))] has been copied to map [ansi(y,capstr(lcstr(edit(%q1,_,%b))))]\, overwriting the preexisting of that name if any.[set(%!,MAP_[%q1]:[v(MAP_[%q0])])],)]
&CMD_DEL_MAP Astrogator=$MAP DEL* *:@pemit %#=[setq(0,rest(grab([setunion(graball(lattr(parent(%!)/MAP_*),MAP_*),lattr(%!/MAP_*))],MAP_[edit(squish(secure(%1)),%b,_)]*),_))][ifelse(t(%q0),Map [ansi(y,capstr(lcstr(edit(%q0,_,%b))))] has been deleted.[wipe(%!/MAP_[%q0])],No map of that name could be found.)]
&CMD_ETA_1 Astrogator=$ETA AT * FOR *:@pemit %#=[setq(0,abs(round(secure(%1),0)))][setq(1,abs(round(first(secure(%0)),0)))][setq(2,match(J,mid(rest(secure(%0)),0,1)))][switch([and(isnum(%q0),isnum(%q1))][%q2],10,It will take [ansi(y,ifelse(gt(%q1,0),u(%!/FUN_ShortTime,fdiv(%q0,fdiv(%q1,3600))),forever))] to travel [ansi(y,%q0)] hm at [ansi(y,%q1)] hm/hour.,11,It will take [ansi(y,ifelse(gt(%q1,0),u(%!/FUN_ShortTime,fdiv(%q0,fdiv(mul(%q1,v(CONST_JUMP)),3600))),forever))] to travel [ansi(y,%q0)] hm at [ansi(y,%q1)] in hyperspace or [ansi(y,mul(%q1,v(CONST_JUMP)))] hm/hr in normal space.,0*,ERROR: Auguments must be numbers.)]
&CMD_ETA_2 Astrogator=$ETA FOR * AT *:@pemit %#=[setq(0,abs(round(secure(%0),0)))][setq(1,abs(round(first(secure(%1)),0)))][setq(2,match(J,mid(rest(secure(%1)),0,1)))][switch([and(isnum(%q0),isnum(%q1))][%q2],10,It will take [ansi(y,ifelse(gt(%q1,0),u(%!/FUN_ShortTime,fdiv(%q0,fdiv(%q1,3600))),forever))] to travel [ansi(y,%q0)] hm at [ansi(y,%q1)] hm/hour.,11,It will take [ansi(y,ifelse(gt(%q1,0),u(%!/FUN_ShortTime,fdiv(%q0,fdiv(mul(%q1,v(CONST_JUMP)),3600))),forever))] to travel [ansi(y,%q0)] hm at [ansi(y,%q1)] in hyperspace or [ansi(y,mul(%q1,v(CONST_JUMP)))] hm/hr in normal space.,0*,ERROR: Auguments must be numbers.)]
&CMD_HELP Astrogator=$Astro*help:@pemit %#=[ansi(mh,Astrogator Help)]%r[ansi(b,repeat(=,78))]%r[ansi(ch,Topics:)]%r[iter(sort(v(LIST_HELP),a),[ifelse(mod(dec(#@),3),,%r)][ljust(ansi(w,capstr(lcstr(edit(rest(##,_),_,%b)))),25)])]%r%rTo learn more\, type: [ansi(ch,ASTROHELP)] [ansi(y,<Topic>)]%r[ansi(b,repeat(=,78))]
&CMD_HELP2 Astrogator=$Astro*help *:@pemit %#=[setq(0,grab(sort(v(List_Help),a),HELP_[edit(secure(%1),%b,_)]*))][ifelse([t(%q0)],[ansi(mh,Astrogator Help for [iter(lcstr(rest(%q0,_)),capstr(##),_)])]%r[ansi(b,repeat(=,78))]%r[u(%q0)]%r[ansi(b,repeat(=,78))],No ASTROHELP file was found under that name.)]
&CMD_LINK Astrogator=$LINK *:@pemit %#=[setq(0,switch([t(locate(%#,secure(%0),*))][t(locate(%!,secure(%0),*))],1*,locate(%#,secure(%0),*),*1,locate(%!,secure(%0),*),#-1))][switch([t(%q0)][and(isnum(x(%q0)),match(THING,type(%q0)))],0*,ERROR: Unable to locate any [ansi(y,secure(%0))] to link with.,10,ERROR: Unable to establish link with [ansi(y,name(%q0))].,11,Link with [ansi(y,name(%q0))] successful.[set(%!,Link_DB:[%q0])])];[set(%!,MAP_DEFAULT:[get(#1277/MAP_DEFAULT)])],ERROR: Internal malfunction.)]
&CMD_LIST_MAPS Astrogator=$MAP LIST:@pemit %#=[ansi(mh,Maps)]%r[ansi(b,repeat(=,78))][setq(0,[setunion(graball(lattr(parent(%!)/MAP_*),MAP_*),lattr(%!/MAP_*))])][iter(%q0,[ifelse(mod(dec(#@),3),,%r)][ljust(capstr(lcstr(edit(rest(##,_),_,%b))),25)])]%r[ansi(b,repeat(=,78))]
&CMD_LOAD_MAP Astrogator=$MAP LOAD *:@pemit %#=[setq(0,rest(grab([setunion(graball(lattr(parent(%!)/MAP_*),MAP_*),lattr(%!/MAP_*))],MAP_[edit(squish(secure(%0)),%b,_)]*),_))][ifelse(t(%q0),Map [ansi(y,capstr(lcstr(edit(%q0,_,%b))))] loaded.[set(%!,Map:[%q0])],No map of that name could be found.)]
&CMD_NEW_MAP Astrogator=$MAP CREATE *:@pemit %#=[setq(0,rest(grab([setunion(graball(lattr(parent(%!)/MAP_*),MAP_*),lattr(%!/MAP_*))],MAP_[edit(squish(secure(%0)),%b,_)]),_))][ifelse(t(%q0),Map [ansi(y,capstr(lcstr(edit(%q0,_,%b))))] already exists.,[setq(1,edit(squish(secure(%0)),%b,_))]You create a new map named [ansi(y,capstr(lcstr(%q1)))].  It now resides in active memory.[set(%!,MAP_[%q1]:)][set(%!,Map:MAP_[%q1])])]
&CMD_PLOT Astrogator=$PLOT COURSE:@pemit %#=[setq(0,extract(u(%!/FUN_Origin),2,1))][setq(1,extract(u(%!/FUN_Origin),3,1))][setq(2,extract(u(%!/FUN_Origin),4,1))][setq(3,extract(u(%!/FUN_Dest),2,1))][setq(4,extract(u(%!/FUN_Dest),3,1))][setq(5,extract(u(%!/FUN_Dest),4,1))][setq(6,round(u(Fun_dist3d,%q0,%q1,%q2,%q3,%q4,%q5),0))][setq(7,v(Speed))][ansi(b,.[repeat(-,74)].%r|)][ansi(mh,center(ORIGIN,24))][ansi(b,|)][ansi(mh,center(DESTINATION,24))][ansi(b,|)][ansi(mh,center(COURSE DATA,24))][ansi(b,|%r|)][ansi(y,center(mid(edit(first(u(%!/FUN_Origin)),_,%b),0,24),24))][ansi(b,|)][ansi(y,center(mid(edit(first(u(%!/FUN_Dest)),_,%b),0,24),24))][ansi(b,|)][ansi(c,rjust(Bearing:%b,11))][ljust([xyang(%q0,%q1,%q3,%q4)]/[zang(%q0,%q1,%q2,%q3,%q4,%q5)],13)][ansi(b,|%r|)][ansi(c,rjust(X:%b,7))][rjust(%q0,13)][space(4)][ansi(b,|)][ansi(c,rjust(X:%b,7))][rjust(%q3,13)][space(4)][ansi(b,|)][ansi(c,rjust(Distance:%b,11))][ljust(%q6,13)][ansi(b,|%r|)][ansi(c,rjust(Y:%b,7))][rjust(%q1,13)][space(4)][ansi(b,|)][ansi(c,rjust(Y:%b,7))][rjust(%q4,13)][space(4)][ansi(b,|)][ansi(c,rjust(Speed:%b,11))][ljust([ifelse(rest(%q7),[ansi(y,div(first(%q7),v(CONST_JUMP)))] [ansi(c,Jump)],first(%q7))],13)][ansi(b,|%r|)][ansi(c,rjust(Z:%b,7))][rjust(%q2,13)][space(4)][ansi(b,|)][ansi(c,rjust(Z:%b,7))][rjust(%q5,13)][space(4)][ansi(b,|)][ansi(c,rjust(ETA:%b,11))][ljust(ifelse(gt(first(%q7),0),u(%!/FUN_ShortTime,fdiv(%q6,fdiv(first(%q7),3600))),N/A),13)][ansi(b,|%r'[repeat(-,74)]')][setq(8,v(Link_DB))][ifelse(and(t(hs_get_attr(%q8,Accel)),t(hs_get_attr(%q8,speed))),%rAt [ansi(y,round(hs_get_attr(%q8,speed),0))] hm/hr it will take this ship [ansi(y,timestring(round(fdiv(hs_get_attr(%q8,Speed),hs_get_attr(%q8,Accel)),0)))] and [ansi(y,round(fdiv(power(fdiv(hs_get_attr(%q8,Speed),3600),2),fdiv(hs_get_attr(%q8,Accel),1800)),0))] hms to come to a complete stop.,)][ifelse(hs_get_attr(%q8,Speed),%rAt present speed and fuel supplies\, this ship will run out of fuel in [ansi(y,round(mileage(%q8),0))] hms.%r,)]
&CMD_PLOT_ALL Astrogator=$PLOT ALL COURSES:@pemit %#=[ansi(mh,Plotted Courses to All Waypoints)]%r[ansi(b,repeat(=,78))][ifelse(words(v(MAP_[v(Map)]),|),[setq(8,u(%!/FUN_Origin))][setq(0,extract(%q8,2,1))][setq(1,extract(%q8,3,1))][setq(2,extract(%q8,4,1))]%r[ansi(ch,Point of Origin:)] [ansi(y,edit(first(%q8),_,%b))] [ansi(ch,at)] [rest(%q8)]%r[ansi(ch,Speed:)] [ifelse(rest(v(Speed)),[ansi(y,div(first(v(Speed)),v(CONST_JUMP)))] in hyperspace or [ansi(y,first(v(Speed)))] hm/hr in normal space.,[ansi(y,first(v(Speed)))] hm/hr)]%r[ansi(ch,Map:)] [ansi(y,[capstr(lcstr(v(Map)))])]%r[ansi(b,repeat(-,78))]%r[ansi(ch,[ljust(Destination,23)][center(Bearing,7)][center(Distance,23)][center(ETA,23)])][iter(v(MAP_[v(Map)]),[setq(3,extract(##,2,1))][setq(4,extract(##,3,1))][setq(5,extract(##,4,1))][setq(6,round(u(%!/Fun_dist3d,%q0,%q1,%q2,%q3,%q4,%q5),0))]%r[ansi(y,ljust(edit(first(##),_,%b),23))][rjust(xyang(%q0,%q1,%q3,%q4),3)]/[ljust(zang(%q0,%q1,%q2,%q3,%q4,%q5),3)][rjust(%q6,23)][rjust(ifelse(gt(first(v(Speed)),0),u(%!/FUN_ShortTime,fdiv(%q6,fdiv(first(v(Speed)),3600))),N/A),23)],|)],%r[ansi(r,center(No waypoints are stored.,78))])]%r[ansi(b,repeat(=,78))]
&CMD_SET_SPEED Astrogator=$SET SPEED *:@pemit %#=[setq(0,secure(%0))][setq(1,round(first(%q0),0))][setq(2,match(J,mid(rest(%q0),0,1)))][ifelse([isnum(%q1)],The speed setting has been changed to [ansi(y,%q1)] [ifelse(%q2,in hyperspace%, or [ansi(y,mul(v(CONST_JUMP),%q1))] Mm/hr in normal space.[set(%!,Speed:[mul(v(CONST_JUMP),%q1)] 1)],Mm/hr.[set(%!,Speed:[%q1] 0)])],ERROR: Speed must be a number.)]
&CMD_SET_SPEED_PLOT Astrogator=$SET SPEED *:@pemit %#=[setq(0,secure(%0))][setq(1,round(first(%q0),0))][setq(2,match(J,mid(rest(%q0),0,1)))][ifelse([isnum(%q1)],The speed setting has been changed to [ansi(y,%q1)] [ifelse(%q2,in hyperspace%, or [ansi(y,mul(v(CONST_JUMP),%q1))] Mm/hr in normal space.[set(%!,Speed:[mul(v(CONST_JUMP),%q1)] 1)],Mm/hr.[set(%!,Speed:[%q1] 0)])],ERROR: Speed must be a number.)]
&CMD_SORT Astrogator=$WAYPOINT SORT *:@swi [setq(0,grab(NAME DIST X Y Z,secure(%0)))][t(%q0)]=1,{@pemit %#=Map: [ansi(yh,v(Map))] sorted by [%q0].[set(%!,Temp:[u(FUN_Origin)])][set(%!,MAP_[v(Map)]:[sortby(%!/FN_Sort_[%q0],v(MAP_[v(Map)]),|)])][wipe(%!/Temp)]},{@pemit %#=Valid sort types are: NAME, DIST, X, Y, or Z.}
&CMD_START_AT Astrogator=$START AT *:@pemit %#=[ifelse([setq(0,index(v(MAP_[v(Map)]),|,match(iter(v(MAP_[v(Map)]),first(##),|),*[edit(secure(%0),%b,_)]*),1))][t(%q0)],Waypoint [ansi(y,edit(first(%q0),_,%b))] is now set as the point of origin.[set(%!,WP_Origin:[%q0])],ERROR: Invalid waypoint)]
&CMD_START_HERE Astrogator=$START HERE:@pemit %#=[ifelse(t(v(LINK_DB)),The current location is now set as the point of origin.[set(%!,WP_ORIGIN:LINKED)],ERROR: Unable to gather local coordinates.)]
&CMD_STOP_AT Astrogator=$STOP AT *:@pemit %#=[ifelse([setq(0,index(v(MAP_[v(Map)]),|,match(iter(v(MAP_[v(Map)]),first(##),|),*[edit(secure(%0),%b,_)]*),1))][t(%q0)],Waypoint [ansi(y,edit(first(%q0),_,%b))] is now set as the destination.[set(%!,WP_Dest:[%q0])],ERROR: Invalid waypoint)]
&CMD_STOP_HERE Astrogator=$STOP HERE:@pemit %#=[ifelse(t(v(LINK_DB)),The current location is now set as the destination.[set(%!,WP_DEST:LINKED)],ERROR: Unable to gather local coordinates.)]
&CMD_TEMP Astrogator=$temp:@pemit %#=Download complete.[iter(map_consortium map_fringe map_parallax map_hiverspace,[set(%!,[##]:[v(##)])])]
&CMD_UNLINK Astrogator=$UNLINK:@pemit %#=[ifelse(t(v(Link_DB)),This unit has been disconnected from [ansi(y,name(v(Link_DB)))].[set(%!,Link_DB:)],ERROR: This unit is not linked to anything.)]
&CMD_WP_ADD Astrogator=$WAYPOINT ADD *=*:@pemit %#=[switch([setq(0,edit(edit(squish(secure(%0)),|,I),%b,_))][setq(1,[round(extract(secure(%1),1,1),0)] [round(extract(secure(%1),2,1),0)] [round(extract(secure(%1),3,1),0)])][and(isnum(extract(%q1,1,1)),isnum(extract(%q1,2,1)),isnum(extract(%q1,3,1)),match(3,words(%q1)))][t(match(iter(v(MAP_[v(Map)]),first(##),|),%q0))][t(words(v(MAP_[v(Map)])))],0*,ERROR: Invalid coordinates.,11*,ERROR: Waypoint name is use.,100, Waypoint added.[set(%!,MAP_[v(Map)]:[%q0] [%q1])],101, Waypoint added.[set(%!,Map_[v(Map)]:[v(MAP_[v(Map)])]|[%q0] [%q1])],ERROR: Unknown malfunction.)]
&CMD_WP_DEL Astrogator=$WAYPOINT DEL *:@pemit %#=[ifelse([setq(0,match(iter(v(MAP_[v(Map)]),first(##),|),*[edit(secure(%0),%b,_)]*))][t(%q0)],Waypoint [ansi(y,edit(first(index(v(MAP_[v(Map)]),|,%q0,1)),_,%b))] has been deleted.[set(%!,MAP_[v(Map)]:[index(v(MAP_[v(Map)]),|,1,sub(%q0,1))][if(and(gt(%q0,1),lt(%q0,words(v(MAP_[v(Map)]),|))),|)][index(v(MAP_[v(Map)]),|,add(%q0,1),sub(words(v(MAP_[v(Map)]),|),%q0))])],ERROR: Invalid waypoint.)]
&CMD_WP_LIST Astrogator=$WAYPOINT LIST:@pemit %#=[ansi(mh,Waypoint List: [capstr(lcstr(edit(v(Map),_,%b)))])]%r[ansi(b,repeat(=,78))][ifelse(words(v(MAP_[v(Map)])),iter(v(MAP_[v(Map)]),%r%b[ansi(ch,\[)][rjust(ansi(c,#@),2)][ansi(ch,\])]%b[ansi(y,ljust(mid(edit(first(##),_,%b),0,26),26))][rjust(extract(##,2,1),15)][rjust(extract(##,3,1),15)][rjust(extract(##,4,1),15)],|),%r[ansi(r,center(No waypoints are stored.,78))])]%r[ansi(b,repeat(=,78))]
&CMD_WP_STORE Astrogator=$WAYPOINT STORE *:@pemit %#=[switch([setq(0,edit(edit(squish(secure(%0)),|,I),%b,_))][setq(1,rest(u(FUN_HERE)))][t(match(iter(v(MAP_[v(Map)]),first(##),|),%q0))][t(words(v(MAP_[v(Map)])))],1*,ERROR: Waypoint name is use.,00, Waypoint added.[set(%!,MAP_[v(Map)]:[%q0] [%q1])],01, Waypoint added.[set(%!,MAP_[v(map)]:[v(MAP_[v(Map)])]|[%q0] [%q1])],ERROR: Unknown malfunction.)]
&CONST_JUMP Astrogator=1500
@set Astrogator/CONST_JUMP=no_command
@DESCRIBE Astrogator=This is a small, electronic device housed in a black plastic case.  It's three and a half inches wide, seven inches tall, and only a half inch thick.  One side has a control panel and video display.  Printed above the display is "CPI-42 Astrogator."  In the upper righthand corner of the display are the words "[ansi(g,Map: [capstr(lcstr(edit(v(Map),_,%b)))])]"%r%t%(Type [ansi(g,ASTROGATOR HELP)] for instructions.%)%r%rThis object rates a [ansi(hy,[v(WEIGHT)])] in weight.
@set Astrogator/DESCRIBE=no_command visual
&FN_SORT_DIST Astrogator=[setq(0,v(Temp))][sign(sub(dist3d(extract(%q0,2,1),extract(%q0,3,1),extract(%q0,4,1),extract(%0,2,1),extract(%0,3,1),extract(%0,4,1)),dist3d(extract(%q0,2,1),extract(%q0,3,1),extract(%q0,4,1),extract(%1,2,1),extract(%1,3,1),extract(%1,4,1))))]
&FN_SORT_NAME Astrogator=[comp(first(%0),first(%1))]
&FN_SORT_X Astrogator=[ifelse(gte(extract(%0,2,1),extract(%1,2,1)),1,-1)]
&FN_SORT_Y Astrogator=[ifelse(gte(extract(%0,3,1),extract(%1,3,1)),1,-1)]
&FN_SORT_Z Astrogator=[ifelse(gte(extract(%0,4,1),extract(%1,4,1)),1,-1)]
&FUN_DEST Astrogator=[ifelse(match(LINKED,v(WP_Dest)),u(FUN_HERE),v(WP_Dest))]
@set Astrogator/FUN_DEST=no_command
&FUN_DIST3D Astrogator=[sqrt(add(power(sub(%0,%3),2),power(sub(%1,%4),2),power(sub(%2,%5),2)))]
@set Astrogator/FUN_DIST3D=no_command
&FUN_HERE Astrogator=[ifelse([and(isnum(hs_get_attr(v(Link_DB),x)),match(room(v(Link_DB)),room(%!)))],%(Current_Position%) [round(hs_get_attr(v(Link_DB),x),0)] [round(hs_get_attr(v(Link_DB),y),0)] [round(hs_get_attr(v(Link_DB),z),0)],%(Connection_Lost%) 0 0 0)]
@set Astrogator/FUN_HERE=no_command
&FUN_ORIGIN Astrogator=[ifelse(match(LINKED,v(WP_Origin)),u(FUN_HERE),v(WP_Origin))]
@set Astrogator/FUN_ORIGIN=no_command
&FUN_SHORTTIME Astrogator=[ifelse(isnum(secure(%0)),timestring(round(secure(%0),0)),N/A)]
@set Astrogator/FUN_SHORTTIME=no_command
&HELP_ALL Astrogator=[iter(setdiff(v(List_Help),HELP_All),%r[u(##)]%r)]
&HELP_FUEL Astrogator=%r%t This chart shows the total fuel useage for a 10 minute jump in a craft with the listed stats. As well as showing the total overall flight time for that craft. Please note that the minutes of flight time(min) figure is not an exact number. Merely an estimate. Rely on this entirely at your own risk. %r %r %tFuel%tEff%tPoT%tMin%r%t200%t10%t5%% %t200%r%t150%t10%t6%% %t185%r%t100%t10%t8%% %t145%r%t50%t10%t9-10%% %t100%r %r %t200%t5%t9%% %t110%r %t150%t5%t12%% %t96%r %t100%t5%t18%% %t60 %r%t50%t5%t25%% %t40%r%r%t200%t1%t43%% %t25 %r %t150%t1%t65%% %t15%r %t100%t1%t85%% %t12%r%t50 %t1%t100%% %t8%r %r %t Fuel - The total size of the fuel tank %r %r %t Eff - Fuel Efficiency %r %r %t PoT - Percentage of fuel used in a 10 minute jump. %r %r %t  Min - Total minutes of OS jumptime the craft can sustain.
&HELP_LINKS Astrogator=%tBefore the astrogator can determine your location in space, you must first link it with a navigation console.  The Astrogator will use this connection only to gather data, and will not pilot the ship in any way. [ifelse(haspower(%!,see_all),,This unit must be dropped next to the console to draw any data through it's datalink.)]%r%r[ljust([ansi(ch,LINK)] [ansi(y,<Console>)],38)]Creates a datalink with the console.%r[ljust(ansi(ch,UNLINK),38)]Disconnects any active link.
@set Astrogator/HELP_LINKS=no_command
&HELP_PLOTTING_COURSES Astrogator=%tThese commands will allow you to plot a course. Remember that the astrogator does not include acceleration for these calculations. The astrogator much also have a valid datalink to know it's current location.%r%r[ljust(ansi(ch,PLOT COURSE),38)]Displays information on plotted course.%r[ljust(ansi(ch,PLOT ALL COURSES),38)]Displays a course plot to all waypoints.%r[ljust([ansi(ch,START AT)] [ansi(y,<Waypoint>)],38)]Selects the point of origin.%r[ljust(ansi(ch,START HERE),38)]Selects here the point of origin.%r[ljust([ansi(ch,STOP AT)] [ansi(y,<Waypoint>)],38)]Selects the destination.%r[ljust(ansi(ch,STOP HERE),38)]Selects here the destination.%r[ljust([ansi(ch,SET SPEED)] [ansi(y,<Speed>)],38)]Changes the speed setting.%r[ljust([ansi(ch,SET SPEED)] [ansi(y,<Speed>)] [ansi(ch,JUMP)],38)]Changes the speed setting.
@set Astrogator/HELP_PLOTTING_COURSES=no_command
&HELP_WAYPOINTS Astrogator=%tWaypoints are used to store coordinates of things for use in plotting courses.  Maps may contain many waypoints, and are useful for keeping coordinates arranged in a logical order.%r%r[ljust([ansi(ch,MAP LIST)],38)]Lists all maps of stored waypoints.%r[ljust([ansi(ch,MAP CREATE)] [ansi(y,<Map>)],38)]Creates a new map and loads it.%r[ljust([ansi(ch,MAP DEL)] [ansi(y,<Map>)],38)]Deletes a map.%r[ljust([ansi(ch,MAP LOAD)] [ansi(y,<Map>)],38)]Loads a map.%r[ljust([ansi(ch,MAP COPY)] [ansi(y,<Map>)][ansi(ch,=)][ansi(y,<New Map>)],38)]Loads a map.%r%r[ljust(ansi(ch,WAYPOINT LIST),38)]Displays all recorded waypoints.%r[ljust([ansi(ch,WAYPOINT ADD)] [ansi(y,<Name>)] [ansi(ch,=)] [ansi(y,<X> <Y> <Z>)],38)]Creates a waypoint.%r[ljust([ansi(ch,WAYPOINT STORE)] [ansi(y,<Name>)],38)]Creates new waypoint here.%r[ljust([ansi(ch,WAYPOINT DEL)] [ansi(y,<Name>)],38)]Deletes a waypoint.%r[ljust([ansi(ch,WAYPOINT SORT)] [ansi(y,<)][ansi(ch,NAME)][ansi(y,/)][ansi(ch,DIST)][ansi(y,/)][ansi(ch,X)][ansi(y,/)][ansi(ch,Y)][ansi(y,/)][ansi(ch,Z)][ansi(y,>)],38)]Sorts the waypoint by selected criteria.
@set Astrogator/HELP_WAYPOINTS=no_command
&HELP_WIDGETS Astrogator=%tThese commands are designed to assist with navigation in other ways than just plotting a course.%r%r[ljust([ansi(ch,ETA FOR)] [ansi(y,<Distance>)] [ansi(ch,AT)] [ansi(y,<Speed>)],38)]Computes an estimated time of arrival.%r[ljust([ansi(ch,ETA FOR)] [ansi(y,<Distance>)] [ansi(ch,AT)] [ansi(y,<Speed>)] [ansi(ch,JUMP)],38)]Computes an estimated time of arrival.
@set Astrogator/HELP_WIDGETS=no_command
@LASTPAGED Astrogator=Dahan
@set Astrogator/LASTPAGED=wizard locked
&LIST_HELP Astrogator=HELP_LINKS HELP_WAYPOINTS HELP_PLOTTING_COURSES HELP_WIDGETS HELP_All HELP_FUEL
&MAP Astrogator=Default
@set Astrogator/MAP=no_command
&MAP_DEFAULT Astrogator=Alderaan -251847 385915 369134|Bespin 2459377 -470483 90354|Bilbringi_Asteroid_Belt -745349 834003 249244|Corellia 135821 34009 -603495|Coruscant 235947 1254906 4932|Cron_Drift -6498002 4523 -7922|Etti_IV -3603199 1931347 -229132|Ganath_Cloud -2342294 -96587 1823185|Hoth_Asteroid_Belt 2273613 -500281 832254|Kashyyyk -2034538 501327 761495|Kessel -1802415 -704395 -508413|Klatooine -1493432 -135903 1756432|Mon_Calamari -2845925 -219437 49044|Merson_Asteroid_Field -1267933 203380 2067|Nal_Hutta -1314539 -118453 2049831|Nar_Shaddaa -1314529 -118401 2049831|Ord_Mantell 80312 2141498 34211|Rodia 409327 -25670 47602|Ryloth -500439 -2184576 309546|Sullust 1154816 -500413 209563|Tatooine -453991 -1400394 -435883
&SPEED Astrogator=0 0
@set Astrogator/SPEED=no_command
&WEIGHT Astrogator=1
@set Astrogator/WEIGHT=wizard