home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Games / GameTracker / CustomCache < prev    next >
Encoding:
Text File  |  2000-07-18  |  3.8 KB  |  176 lines
  1. Stack 300000
  2.  
  3. delete env:userminpl >nil:
  4. delete env:usermaxpl >nil:
  5. delete env:usermap >nil:
  6. delete env:usergamedir >nil:
  7. delete env:cmakerfile >nil:
  8. delete env:servertype >nil:
  9. delete env:qstatold >nil:
  10.  
  11. execute GameTracker.config >nil:
  12.  
  13. mount dh0:storage/dosdrivers/pipe >nil:
  14. mount devs:dosdrivers/pipe >nil:
  15.  
  16. Requestchoice TITLE "CustomCache by SuRgEoN" BODY "Select game" "Quake" "QuakeWorld" "Heretic2" "Shogo" "Sin" >env:servertype
  17.  
  18. run <>nil: Play16 $buttonsnd
  19.  
  20. IF $qstatold EQ 0
  21.  IF $servertype EQ 0
  22.  setenv servertype sns 
  23.  setenv defcachedir "sin"
  24.  ENDIF
  25.  
  26.  IF $servertype EQ 1
  27.  setenv defcachedir "quake"
  28.  setenv servertype qs
  29.  ENDIF
  30.  
  31.  IF $servertype EQ 2
  32.  setenv defcachedir "quakeworld"
  33.  setenv servertype qws
  34.  ENDIF
  35.  
  36.  IF $servertype EQ 3
  37.  setenv defcachedir "heretic2"
  38.  setenv servertype hrs
  39.  ENDIF
  40.  
  41.  IF $servertype EQ 4
  42.  setenv defcachedir "shogo"
  43.  setenv servertype sgs
  44.  ENDIF
  45. ENDIF
  46.  
  47. IF $qstatold EQ 1
  48.  IF $servertype EQ 0
  49.  setenv servertype SNS 
  50.  setenv defcachedir "sin"
  51.  ENDIF
  52.  
  53.  IF $servertype EQ 1
  54.  setenv servertype QS
  55.  setenv defcachedir "quake"
  56.  ENDIF
  57.  
  58.  IF $servertype EQ 2
  59.  setenv servertype QW
  60.  setenv defcachedir "quakeworld"
  61.  ENDIF
  62.  
  63.  IF $servertype EQ 3
  64.  setenv servertype Q2
  65.  setenv defcachedir "heretic2"
  66.  ENDIF
  67.  
  68.  IF $servertype EQ 4
  69.  echo "Shogo is not supported by version 2.2 of qstat"
  70.  execute scripts/cleanup.rc
  71.  endcli
  72.  ENDIF
  73. ENDIF
  74.  
  75. assign qwbhome: ""
  76.  
  77. Requestfile TITLE "choose cache basisfile" >env:qwbbase DRAWER=qwbhome:cache/$defcachedir
  78.  
  79. run <>nil: Play16 $buttonsnd
  80.  
  81. Requestchoice TITLE "CustomCache SuRgEoN" BODY "Select filter:" "dir" "exdir" "map" "capacity" "dir & capacity" >env:superfilter
  82.  
  83. run <>nil: Play16 $buttonsnd
  84.  
  85. IF $superfilter EQ 0
  86.  
  87.    echo "gamedir? (examples: arena, ctf, fortress)"
  88.    execute scripts/getgamedir.rc
  89.  
  90.    echo "enter minimum player capacity:"
  91.    execute scripts/getminplayers.rc
  92.  
  93.    echo "enter maximum player capacity:"
  94.    execute scripts/getmaxplayers.rc
  95.  
  96.    echo "retrieving servers ..."
  97.    qstat -R -sort gp -Ts filters/cmaker/gamecapacity_filter -f $qwbbase >env:cmakerfile
  98.  
  99. ENDIF
  100.  
  101. IF $superfilter EQ 4
  102.    echo "enter minimum player capacity:"
  103.    execute scripts/getminplayers.rc
  104.  
  105.    echo "enter maximum player capacity:"
  106.    execute scripts/getmaxplayers.rc
  107.    echo "retrieving servers ...."
  108.  
  109.    qstat -R -sort gp -Ts filters/cmaker/capacity_filter -f $qwbbase >env:cmakerfile
  110.  
  111. ENDIF
  112.  
  113. IF $superfilter EQ 1
  114.  
  115.    echo "gamedir? (examples: arena, ctf, fortress)"
  116.    execute scripts/getgamedir.rc
  117.    echo "retrieving servers ...."
  118.  
  119.    qstat -R -sort gp -Ts filters/cmaker/gamedir_filter -f $qwbbase >env:cmakerfile
  120.  
  121. ENDIF
  122.  
  123. IF $superfilter EQ 2
  124.  
  125.    echo "gamedir to exclude? (examples: arena, ctf, fortress)"
  126.    execute scripts/getexgamedir.rc
  127.    echo "retrieving servers ...."
  128.  
  129.    qstat -R -sort gp -Ts filters/cmaker/exgamedir_filter -f $qwbbase >env:cmakerfile
  130.  
  131. ENDIF
  132.  
  133. IF $superfilter EQ 3
  134.  
  135.    echo "mapname? (examples: dm4, start, death32c)"
  136.    execute scripts/getmapname.rc
  137.    echo "retrieving servers ...."
  138.  
  139.    qstat -R -sort gp -Ts filters/cmaker/map_filter -f $qwbbase >env:cmakerfile
  140.  
  141.  ENDIF
  142.  
  143. Requestchoice TITLE "CustomCache by SuRgEoN" BODY "select option" "save list" "new filter" "quit" >env:superfilter
  144.  
  145. run <>nil: Play16 $buttonsnd
  146.  
  147. IF $superfilter EQ 0
  148.    execute scripts/cleanup.rc
  149.    endcli
  150. ENDIF
  151.  
  152. IF $superfilter EQ 1
  153.  
  154. Requestfile >env:cmakerfiledest TITLE "choose cache directory" DRAWER=qwbhome:cache/$defcachedir
  155.  
  156.    echo "type the name of the generated cache-file:"
  157.    execute scripts/getfile.rc
  158.  
  159.    echo "processing list ..."
  160.    EXECUTE env:cmakerfile
  161.    WAIT SEC 1
  162.    TYPE PIPE:cmaker >ram:cachefile
  163.    echo "saving $Input to $cmakerfiledest"
  164.    RENAME ram:cachefile TO ram:$Input
  165.    COPY ram:$Input $cmakerfiledest
  166.    DELETE ram:$Input >nil:
  167.    execute scripts/cleanup.rc
  168.  
  169. ENDIF
  170.  
  171. IF $superfilter EQ 2
  172.    execute scripts/cleanup.rc
  173.    execute CustomCache
  174. ENDIF
  175.  
  176.