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