Author Topic: DarkOrbit Reloaded - Перемещение между картами  (Read 1677 times)

0 Members and 1 Guest are viewing this topic.

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Ноги из моего недописанного скрипта, который, скорее всего, так и останется недописанным. Как бы то ни было, вот завершённая часть скрипта, которой, я бы хотел поделится.  :D 

Создаёт 7 файлов, из которых: 1 вспомогательный для вышеозначенного скрипта, 3 готовых к использованию INI файла с оптимальными путями под каждую компанию, и 3 матрицы для удобного визуального прослеживания путей.

Code: (clickermann) [Select]
#DEFINE #ENDL: CHAR(13), CHAR(10)
#DEFINE #INFINITY: 99999
#DEFINE HTAB(:  STRCUT("                    ", 0,

#DEFINE MATRIX_FILE_NAME: "_path_matrix"
#DEFINE ROUTE_FILE_NAME:  "_route"

#DEFINE READABILITY: "aVertex_array_indices.ini"

STRSEPARATE("MMO:EIC:VRU", ":", $array_company)

STRSEPARATE("1-1:1-2:1-3:1-4:1-5:1-6:1-7:1-8", ":", $array_vertex)
STRSEPARATE("2-1:2-2:2-3:2-4:2-5:2-6:2-7:2-8", ":", $array_vertex)
STRSEPARATE("3-1:3-2:3-3:3-4:3-5:3-6:3-7:3-8", ":", $array_vertex)
STRSEPARATE("4-1:4-2:4-3:4-4:4-5", ":", $array_vertex)
STRSEPARATE("1-BL:2-BL:3-BL", ":", $array_vertex)

$size_array_vertex = ARRSIZE($array_vertex)

IF(TFCOUNT(READABILITY) - 1 != $size_array_vertex)
   TFCLEAR(READABILITY)
   FOR($count = 0, $count < $size_array_vertex)
      INIWRITE(READABILITY, $array_vertex[$count], $count)
   END_CYC
END_IF

SUB(_ADD_EDGE, $_1vertex, $_2vertex, $_weight)
   $array_weight_matrix[INT(INIREAD(READABILITY, $_1vertex)) + INT(INIREAD(READABILITY, $_2vertex)) * $size_array_vertex] = $_weight
   $array_weight_matrix[INT(INIREAD(READABILITY, $_2vertex)) + INT(INIREAD(READABILITY, $_1vertex)) * $size_array_vertex] = $_weight
END_SUB

FOR($count = 0, $count < ARRSIZE($array_company))
   
   #DEFINE #DX6_WEIGHT: 0.9
   #DEFINE #DX7_WEIGHT: 0.9
   #DEFINE #DX8_WEIGHT: 0.9
   
   #DEFINE #DBL_WEIGHT: 4
   
   #DEFINE #DEF_WEIGHT: 2
   
   $MMO_weight = 2
   $EIC_weight = 2
   $VRU_weight = 2
   
   $MF5_weight = $MMO_weight - 0.1
   $EF5_weight = $EIC_weight - 0.1
   $VF5_weight = $VRU_weight - 0.1
   
   SETVAR(STRCONCAT("$", $array_company[$count], "_weight"), 1)
   SETVAR(STRCONCAT("$", STRCUT($array_company[$count], 1, 1), "F5_weight"), GETVAR(STRCONCAT("$", $array_company[$count], "_weight")))
   
   FOR($i = 0, $i < POW($size_array_vertex, 2))
      $array_weight_matrix[$i] = #INFINITY
      FOR($k = 0, ($k < $size_array_vertex) and ($i < $size_array_vertex))
         $array_path_matrix[$i*$size_array_vertex+$k] = $array_vertex[$k]
      END_CYC
   END_CYC
   
   _ADD_EDGE("1-1",  "1-2",  $MMO_weight)
   _ADD_EDGE("1-2",  "1-3",  $MMO_weight)
   _ADD_EDGE("1-2",  "1-4",  $MMO_weight)
   _ADD_EDGE("1-3",  "1-4",  $MMO_weight)
   _ADD_EDGE("1-3",  "2-3",  #DEF_WEIGHT)
   _ADD_EDGE("1-4",  "3-4",  #DEF_WEIGHT)
   
   _ADD_EDGE("2-1",  "2-2",  $EIC_weight)
   _ADD_EDGE("2-2",  "2-3",  $EIC_weight)
   _ADD_EDGE("2-2",  "2-4",  $EIC_weight)
   _ADD_EDGE("2-3",  "2-4",  $EIC_weight)
   _ADD_EDGE("2-4",  "3-3",  #DEF_WEIGHT)
   
   _ADD_EDGE("3-1",  "3-2",  $VRU_weight)
   _ADD_EDGE("3-2",  "3-3",  $VRU_weight)
   _ADD_EDGE("3-2",  "3-4",  $VRU_weight)
   _ADD_EDGE("3-3",  "3-4",  $VRU_weight)
   
   _ADD_EDGE("1-5",  "1-6",  $MMO_weight)
   _ADD_EDGE("1-5",  "1-7",  #DX7_WEIGHT)
   _ADD_EDGE("1-6",  "1-8",  #DX6_WEIGHT)
   _ADD_EDGE("1-7",  "1-8",  #DX8_WEIGHT)
   
   _ADD_EDGE("2-5",  "2-6",  $EIC_weight)
   _ADD_EDGE("2-5",  "2-7",  #DX7_WEIGHT)
   _ADD_EDGE("2-6",  "2-8",  #DX6_WEIGHT)
   _ADD_EDGE("2-7",  "2-8",  #DX8_WEIGHT)
   
   _ADD_EDGE("3-5",  "3-6",  $VRU_weight)
   _ADD_EDGE("3-5",  "3-7",  #DX7_WEIGHT)
   _ADD_EDGE("3-6",  "3-8",  #DX6_WEIGHT)
   _ADD_EDGE("3-7",  "3-8",  #DX8_WEIGHT)
   
   _ADD_EDGE("4-1",  "1-4",  $MMO_weight)
   _ADD_EDGE("4-2",  "2-4",  $EIC_weight)
   _ADD_EDGE("4-3",  "3-4",  $VRU_weight)
   
   _ADD_EDGE("4-1",  "4-2",  #DEF_WEIGHT)
   _ADD_EDGE("4-2",  "4-3",  #DEF_WEIGHT)
   _ADD_EDGE("4-3",  "4-1",  #DEF_WEIGHT)
   
   _ADD_EDGE("4-4",  "4-1",  $MMO_weight)
   _ADD_EDGE("4-4",  "4-2",  $EIC_weight)
   _ADD_EDGE("4-4",  "4-3",  $VRU_weight)
   
   _ADD_EDGE("4-4",  "1-5",  $MMO_weight)
   _ADD_EDGE("4-4",  "2-5",  $EIC_weight)
   _ADD_EDGE("4-4",  "3-5",  $VRU_weight)
   
   _ADD_EDGE("4-5",  "1-5",  $MF5_weight)
   _ADD_EDGE("4-5",  "2-5",  $EF5_weight)
   _ADD_EDGE("4-5",  "3-5",  $VF5_weight)
   
   _ADD_EDGE("1-BL", "1-8",  #DBL_WEIGHT)
   _ADD_EDGE("2-BL", "2-8",  #DBL_WEIGHT)
   _ADD_EDGE("3-BL", "3-8",  #DBL_WEIGHT)
   
   _ADD_EDGE("1-BL", "2-BL", #DEF_WEIGHT)
   _ADD_EDGE("2-BL", "3-BL", #DEF_WEIGHT)
   _ADD_EDGE("3-BL", "1-BL", #DEF_WEIGHT)
   
   FOR($k = 0, $k < $size_array_vertex)
      FOR($i = 0, $i < $size_array_vertex)
         FOR($j = 0, $j < $size_array_vertex)
            IF($array_vertex[$i] != $array_vertex[$j])
               IF($array_weight_matrix[$j*$size_array_vertex+$i] > $array_weight_matrix[$k*$size_array_vertex+$i] + $array_weight_matrix[$j*$size_array_vertex+$k])
                  $array_weight_matrix[$j*$size_array_vertex+$i] = $array_weight_matrix[$k*$size_array_vertex+$i] + $array_weight_matrix[$j*$size_array_vertex+$k]
                  $array_path_matrix[$i*$size_array_vertex+$j] = $array_path_matrix[$i*$size_array_vertex+$k]
               END_IF
            END_IF
         END_CYC
      END_CYC
   END_CYC
   
   $horizontal_line = HTAB(7)
   
   FOR($i = 0, $i < $size_array_vertex)
      $horizontal_line = STRCONCAT($horizontal_line, "[", $array_vertex[$i], "]", HTAB(1))
   END_CYC
   
   TFWRITE(STRCONCAT($array_company[$count], MATRIX_FILE_NAME, ".txt"), STRCONCAT($horizontal_line, #ENDL), 1)
   
   FOR($i = 0, $i < $size_array_vertex)
      $horizontal_line = STRCONCAT("[", $array_vertex[$i], "]", STRCUT(HTAB(6), 1, 6 - STRLEN($array_vertex[$i])))
      FOR($k = 0, $k < $size_array_vertex)
         $temp = $array_path_matrix[$i*$size_array_vertex+$k]
         $horizontal_line = STRCONCAT($horizontal_line, $temp,  STRCUT(HTAB(6), 1, 6 - STRLEN($temp) + ABS(3 - STRLEN($array_vertex[$k]))) )
      END_CYC
      TFWRITE(STRCONCAT($array_company[$count], MATRIX_FILE_NAME, ".txt"),  STRCONCAT($horizontal_line, #ENDL), ($i*2) + 3)
   END_CYC
   
   FOR($i = 0, $i < $size_array_vertex)
      FOR($k = 0, $k < $size_array_vertex)
         IF($i != $k)
            INIWRITE(STRCONCAT($array_company[$count], ROUTE_FILE_NAME, ".ini"), STRCONCAT($array_vertex[$i], ":", $array_vertex[$k]), $array_path_matrix[$i*$size_array_vertex+$k])
         END_IF
      END_CYC
   END_CYC
   
END_CYC

HALT
« Last Edit: May 31, 2019, 10:58:07 AM by Космич »
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»