home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Games / GameTracker / scripts / refresh.rc < prev    next >
Encoding:
Text File  |  2000-07-18  |  2.5 KB  |  114 lines
  1. cd GameTracker:
  2.  
  3. echo "*N"
  4.  
  5. qstat -Ts templ/tmap $qwbgame $Address >env:currentmap
  6. run <>nil: pop $currentmap
  7.  
  8. qstat -P -R -Ts templ/s_temp -Tp templ/p_temp -Th templ/h_temp $qwbgame $Address
  9. run <>nil: Play16 $qstatsnd
  10.  
  11. WAIT SEC 1
  12.  
  13. requestchoice TITLE "GameTracker by SuRgEoN" BODY "" A-Refr Refr Conn Spec Rules "SQuery" Filter "MQuery" Quit >env:Input
  14.  
  15. run <>nil: Play16 $buttonsnd
  16.  
  17. if $Input eq 1
  18.  
  19. delete env:alert >nil:
  20. REQUESTCHOICE TITLE "" BODY "Select sound alert event" "none" "players" "not full" "playername" "mapname" >env:sndalert
  21.  
  22. IF $sndalert EQ 0
  23.    echo "type mapname to trigger alert:"
  24.    execute scripts/getmapname.rc
  25.    rename env:input to env:alert
  26.    echo "sound will be played when $alert is the current map on this server..."
  27. ENDIF
  28.  
  29. IF $sndalert EQ 2
  30.    echo "type minimum number of players to trigger alert:"
  31.    execute scripts/getminplayers.rc
  32.    rename env:input to env:alert
  33.    echo "sound will be played when there's a minimum  of $alert player(s) on server..."
  34. ENDIF
  35.  
  36. IF $sndalert EQ 3
  37.    echo "sound will be played when there is room for atleast 1 more player"
  38. ENDIF
  39.  
  40. IF $sndalert EQ 4
  41.    echo "type the playername to trigger alert:"
  42.    execute scripts/getplayername.rc
  43.    rename env:input to env:alert
  44.    echo "sound will be played when $alert is on this server..."
  45. ENDIF
  46.  
  47.    setenv Input "1"
  48.    setenv qwbautoref 1
  49.    
  50.    run <nil: execute scripts/autorefresh.rc
  51.    echo "autorefresh enabled: updating every $arefreshtime seconds ..."
  52.    execute scripts/autorefresh_pop.rc
  53. endif
  54.  
  55.  
  56. if $Input eq 2
  57.    setenv qwbautoref 0
  58.    execute scripts/refresh.rc
  59. endif
  60.  
  61. if $Input eq 3
  62.    setenv qwbautoref 0
  63.    setenv spectator "+spectator 0"
  64.    execute $qwbpath
  65.    cd GameTracker:
  66.    execute scripts/return.rc
  67. endif
  68.  
  69. if $Input eq 4
  70.    setenv qwbautoref 0
  71.    setenv spectator "+spectator 1"
  72.    execute $qwbpath
  73.    cd GameTracker:
  74.    execute scripts/return.rc
  75. endif
  76.  
  77. if $Input eq 5
  78.    setenv qwbautoref 0
  79.    qstat -R -Ts templ/rules $qwbgame $Address
  80.    run <>nil: Play16 $qstatsnd
  81.    execute scripts/sqoptions.rc
  82. endif
  83.  
  84. if $Input eq 6
  85.    setenv qwbautoref 0
  86.    execute scripts/server.rc
  87. endif
  88.  
  89. if $Input eq 7
  90.    setenv qwbautoref 0
  91.    execute scripts/initfilters.rc
  92. endif
  93.  
  94. if $Input eq 8
  95.    setenv qwbautoref 0
  96.  IF $reqfilter EQ 0
  97.    execute scripts/userfilter_all.rc
  98.  ENDIF
  99.  IF $reqfilter EQ 1
  100.    execute scripts/userfilter_noempty.rc
  101.  ENDIF
  102. endif
  103.  
  104. if $Input eq 0
  105.    setenv qwbautoref 0
  106.    run <>nil: Play16 $quitsnd
  107.    execute scripts/cleanup.rc
  108.    cd ram:
  109.    assign GameTracker: remove >NIL:
  110.    delete ram:GameTracker ALL >NIL:
  111.    endcli
  112. endif
  113.  
  114.