home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / qtool.mrc < prev    next >
Text File  |  2003-10-20  |  197KB  |  4,524 lines
  1. ;qtool v3.41 Quetzal www.PlanetEntropy.de
  2. ;4.6.2003
  3.  
  4. on *:load { qtsetup }
  5.  
  6. ;menu channel {
  7. ;  QTool
  8. ;  .launch: qtopen
  9. ;  .post server: qts $chan
  10. ;  .-
  11. ;  .setup: qtsetup
  12. ;}
  13.  
  14. ;menu query,status {
  15. ;  QTool
  16. ;  .launch: qtopen
  17. ;  .post server: qts $1
  18. ;  .-
  19. ;  .setup: qtsetup
  20. ;}
  21.  
  22. alias qtsetup {
  23.   var %i = 1
  24.   if ($dialog(QToolSetup) == $null) dialog -m QToolSetup QToolSetup
  25.   remini " $+ $scriptdir $+ qtool.ini" QTool rxpos
  26.   remini " $+ $scriptdir $+ qtool.ini" QTool rypos
  27.   remini " $+ $scriptdir $+ qtool.ini" QTool vxpos
  28.   remini " $+ $scriptdir $+ qtool.ini" QTool vypos
  29.   %qts.replych = $replyonplay
  30.   if (%qts.replych == $null) { %qts.replych = 2 }
  31.   if ($aotop == 1) did -c QToolSetup 109
  32.   if ($replynotplay == 1) did -c QToolSetup 100
  33.   if ($namesonconnect == 1) did -c QToolSetup 135
  34.   if ($addmodtonick == 1) did -c QToolSetup 155
  35.   if ($addmodtownick == 1) did -c QToolSetup 170
  36.   if (%qts.replych == 1) did -c QToolSetup 96
  37.   elseif (%qts.replych == 2) did -c QToolSetup 97
  38.   elseif (%qts.replych == 3) did -c QToolSetup 98
  39.   if ($seticq == 1) did -c QToolSetup 176
  40.   if ($coachprog == 1) did -c QToolSetup 178
  41.   if ($replyonask == 1) did -c QToolSetup 187
  42.   if ($fmess == 1) did -c QToolSetup 24
  43.   if ($autopb == 1) did -c QToolSetup 41
  44.   if ($cq3con == 1) did -c QToolSetup 42
  45.   if ($scanenable == 1) did -c QToolSetup 43
  46.   if ($pwchanon == 1) did -c QToolSetup 44
  47.   while (%i <= $lines(" $+ $scriptdir $+ qtool\q3names.txt")) {
  48.     did -a QToolSetup 136 $read(" $+ $scriptdir $+ qtool\q3names.txt",%i)
  49.     inc %i
  50.   }
  51.   %i = 1
  52.   while (%i <= $lines(" $+ $scriptdir $+ qtool\favmods.txt")) {
  53.     did -a QToolSetup 152 $read(" $+ $scriptdir $+ qtool\favmods.txt",%i)
  54.     inc %i
  55.   }
  56.   %i = 1
  57.   while (%i <= $lines(" $+ $scriptdir $+ qtool\qtpws.txt")) {
  58.     did -a QToolSetup 162 $read(" $+ $scriptdir $+ qtool\qtpws.txt",%i)
  59.     inc %i
  60.   }
  61.   did -a QToolsetup 177 AWAY
  62.   did -a QToolsetup 177 NA
  63.   did -a QToolsetup 177 OCCUPIED
  64.   did -a QToolsetup 177 DND
  65.   did -a QToolsetup 177 INVISIBLE
  66.   did -a QToolsetup 177 OFFLINE
  67.   did -c QToolsetup 177 $didwm(QToolsetup,177,$seticqstat)
  68.   %i = 1
  69.   while (%i <= $lines(" $+ $scriptdir $+ qtool\messenger.txt")) {
  70.     did -a QToolSetup 25 $read(" $+ $scriptdir $+ qtool\messenger.txt",%i)
  71.     inc %i
  72.   }
  73.   did -b QToolSetup 27
  74. }
  75.  
  76. alias qtopen {
  77.   var %i = 1
  78.   if ($exists($mircdir $+ icqmapi.dll) != $true) { .copy $scriptdir $+ icqmapi.dll $mircdir $+ icqmapi.dll }
  79.   %qtool.ypos = $QToolYpos
  80.   %qtool.xpos = $QToolXpos
  81.   if (%qtool.xpos == $null) { %qtool.xpos = -1 }
  82.   if (%qtool.ypos == $null) { %qtool.ypos = -1 }
  83.   if ($dialog(QTool) == $null) {
  84.     if ($compact == 1) {
  85.       if ($aotop == 1) dialog -mdo QTool QToolC
  86.       else dialog -md QTool QToolC
  87.     }
  88.     else {
  89.       if ($aotop == 1) dialog -mdo QTool QTool
  90.       else dialog -md QTool QTool
  91.     }
  92.     if ($1 != $null) { 
  93.       did -o QTool 13 0 $1
  94.       qquery $1
  95.     }
  96.     while (%i <= $lines(" $+ $scriptdir $+ qtool\qtlast.txt")) {
  97.       did -a QTool 13 $gettok($read(" $+ $scriptdir $+ qtool\qtlast.txt",%i), 1 ,32)
  98.       inc %i
  99.     }
  100.     %i = 1
  101.     while (%i <= $lines(" $+ $scriptdir $+ qtool\qtpws.txt")) {
  102.       did -a QTool 35 $read(" $+ $scriptdir $+ qtool\qtpws.txt",%i)
  103.       inc %i
  104.     }
  105.     did -b QTool 80
  106.     if ($clanpass != $null) { socklisten QTlistenPW 2111 }
  107.   }
  108.   else {
  109.     dialog -v QTool
  110.     if ($1 != $null) { 
  111.       did -o QTool 13 0 $1
  112.       qquery $1
  113.     }
  114.   }
  115.   if ($exists(" $+ $nofile($q3exe) $+ pb\pbweb.exe") != $true) {
  116.     did -b QTool 2
  117.   }
  118. }
  119.  
  120. alias -l favopen {
  121.   var %i = 1
  122.   var %z = 1
  123.   %qtfav.ypos = $FavYpos
  124.   %qtfav.xpos = $FavXpos
  125.   if (%qtfav.xpos == $null) { %qtfav.xpos = -1 }
  126.   if (%qtfav.ypos == $null) { %qtfav.ypos = -1 }
  127.   if ($dialog(QTFav) == $null) dialog -ma QTFav QTFav
  128.   var %temp = $read(" $+ $scriptdir $+ qtool\favmods.txt", s, $readini " $+ $scriptdir $+ qtool.ini" QTool qtfavmod)
  129.   if ($readn != $null) { set %qtfav.mod $readini " $+ $scriptdir $+ qtool.ini" QTool qtfavmod }
  130.   elseif ($read(" $+ $scriptdir $+ qtool\favmods.txt",1) != $null) { set %qtfav.mod $read(" $+ $scriptdir $+ qtool\favmods.txt",1) }
  131.   else { set %qtfav.mod Misc }
  132.   loadfav
  133.   while (%i <= $lines(" $+ $scriptdir $+ qtool\favmods.txt")) {
  134.     did -a QTFav 91 $read(" $+ $scriptdir $+ qtool\favmods.txt",%i)
  135.     if ($read(" $+ $scriptdir $+ qtool\favmods.txt",%i) == $readini " $+ $scriptdir $+ qtool.ini" QTool qtfavmod) { %z = %i }
  136.     inc %i
  137.   }
  138.   did -b QTFav 127
  139.   did -c QTFav 91 %z
  140.   if ($rtcwinlist == 1) {
  141.     did -c QTFav 171
  142.     did -r QTFav 132
  143.     did -a QTFav 132 all
  144.     %i = 1
  145.     var %temp1
  146.     var #temp2
  147.     while (%i <= $lines(" $+ $scriptdir $+ qtool\wgames.txt")) {
  148.       %temp1 = $read(" $+ $scriptdir $+ qtool\wgames.txt",%i)
  149.       if ($left(%temp1,1) == $chr(91)) { %temp2 = $remove(%temp1,$chr(91),$chr(93)) }
  150.       else { did -a QTFav 132 %temp2 $gettok(%temp1,2,44) ( $+ $left(%temp1,1) $+ ) }
  151.       inc %i
  152.     }
  153.     did -c QTFav 132 1
  154.   }
  155.   else {
  156.     did -r QTFav 132
  157.     did -a QTFav 132 all
  158.     var %i = 1
  159.     var %temp1
  160.     var #temp2
  161.     while (%i <= $lines(" $+ $scriptdir $+ qtool\q3games.txt")) {
  162.       %temp1 = $read(" $+ $scriptdir $+ qtool\q3games.txt",%i)
  163.       if ($left(%temp1,1) == $chr(91)) { %temp2 = $remove(%temp1,$chr(91),$chr(93)) }
  164.       else { did -a QTFav 132 %temp2 $gettok(%temp1,2,44) ( $+ $left(%temp1,1) $+ ) }
  165.       inc %i
  166.     }
  167.     did -c QTFav 132 1
  168.   }
  169.   did -a QTFav 3 $gettok($cudemo,-1,92) *
  170.   %i = $finddir($nofile($q3exe),demos,0,2,if ($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) did -a QTFav 3 $gettok($1-,-2,92))
  171.   did -a QTFav 4 $gettok($csshot,-1,92) *
  172.   %i = $finddir($nofile($q3exe),screenshots,0,2,if ($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) did -a QTFav 4 $gettok($1-,-2,92))
  173.   did -a QTFav 63 $gettok($clog,-1,92) *
  174.   %i = $finddir($nofile($q3exe),*,0,1,did -a QTFav 63 $gettok($1-,-1,92))
  175. }
  176.  
  177. alias -l rconopen {
  178.   var %i = 1
  179.   if ($dialog(QTrcon) == $null) dialog -ma QTrcon QTrcon
  180.   did -o QTrcon 142 1 $did(QTool,13)
  181.   did -o QTrcon 144 0 $did(QTool,35)
  182.   did -f QTrcon 144
  183.   while (%i <= $lines(" $+ $scriptdir $+ qtool\qtrcon.txt")) {
  184.     did -o QTrcon 147 %i $read(" $+ $scriptdir $+ qtool\qtrcon.txt",%i)
  185.     inc %i
  186.   }
  187.   %i = 1
  188.   while (%i <= $lines(" $+ $scriptdir $+ qtool\qtpws.txt")) {
  189.     did -a QTrcon 144 $read(" $+ $scriptdir $+ qtool\qtpws.txt",%i)
  190.     did -a QTrcon 195 $read(" $+ $scriptdir $+ qtool\qtpws.txt",%i)
  191.     inc %i
  192.   }
  193.   did -a QTrcon 197 0 FFA
  194.   did -a QTrcon 197 1 1on1
  195.   did -a QTrcon 197 3 TDM
  196.   did -a QTrcon 197 4 CTF
  197.   did -a QTrcon 197 5 CA/RA3/StdMP
  198.   did -a QTrcon 197 6 Obel/SW
  199.   did -a QTrcon 197 7 Harv/CP
  200.   did -a QTrcon 197 8 RA3
  201.   %i = 1
  202.   while (%i <= $findfile(" $+ $scriptdir $+ qtool\rconconfigs\",*.cfg,0)) {
  203.     did -o QTrcon 205 %i $nopath($findfile(" $+ $scriptdir $+ qtool\rconconfigs\",*.cfg,%i))
  204.     inc %i
  205.   }
  206.   rconscrollo
  207. }
  208.  
  209. alias -l rconscrollo {
  210.   var %temp
  211.   var %rcon.pos = 1
  212.   :nextscroll
  213.   if (%rcon.pos > 36) {
  214.     dialog -s QTrcon $dialog(QTool).x $dialog(QTool).y 555 363
  215.     return 
  216.   }
  217.   dialog -s QTrcon $dialog(QTool).x $dialog(QTool).y 555 $calc(10 * %rcon.pos)
  218.   inc %rcon.pos
  219.   %temp = $ticks
  220.   while ($ticks < $calc(%temp + 5)) { }
  221.   goto nextscroll
  222. }
  223.  
  224. alias -l rconscrollc {
  225.   var %temp
  226.   var %rcon.pos = 36
  227.   :nextscroll
  228.   if (%rcon.pos < 2) {
  229.     dialog -x QTrcon QTrcon
  230.     unset %QTrcon.*
  231.     sockclose QTrcon
  232.     .timerqtrcon off
  233.     .timerqtgetnext off
  234.     return 
  235.   }
  236.   dialog -s QTrcon $dialog(QTrcon).x $dialog(QTrcon).y 555 $calc(10 * %rcon.pos)
  237.   dec %rcon.pos
  238.   %temp = $ticks
  239.   while ($ticks < $calc(%temp + 5)) { }
  240.   goto nextscroll
  241. }
  242.  
  243. alias qts {
  244.   if (($dialog(QTool) != $null) && $did(QTool,13)) {
  245.     if  ($status == connected) {
  246.       if (c isin $gettok($chan(#).mode,1,32)) { msg $chan $iif($did(Qtool,15),$did(Qtool,15).text)  < $did(Qtool,13).text > $iif($did(Qtool,23),$did(Qtool,27).text $+ / $+ $did(Qtool,23).text) }
  247.       else {
  248.         if ($left($gettok($did(Qtool,123),-1,92),-4) == ok ) { msg $1 2 $iif($did(Qtool,15),$did(Qtool,15).text)  14<12 $did(Qtool,13).text 14>9 $did(Qtool,27).text $+ / $+ $did(Qtool,23).text }
  249.         elseif ($left($gettok($did(Qtool,123),-1,92),-4) == populated ) { msg $1 2 $iif($did(Qtool,15),$did(Qtool,15).text)  14<12 $did(Qtool,13).text 14>3 $did(Qtool,27).text $+ / $+ $did(Qtool,23).text }
  250.         elseif ($left($gettok($did(Qtool,123),-1,92),-4) == locked ) { msg $1 2 $iif($did(Qtool,15),$did(Qtool,15).text)  14<12 $did(Qtool,13).text 14>4 $did(Qtool,27).text $+ / $+ $did(Qtool,23).text }
  251.         else { msg $1 2 $iif($did(Qtool,15),$did(Qtool,15).text)  14<12 $did(Qtool,13).text 14> }
  252.       }
  253.     }
  254.   }
  255.   else echo -a 4QTool is not running or no server specified...
  256. }
  257.  
  258. ;menu nicklist {
  259. ;  qtool
  260. ;  .Battlecom: {
  261. ;    if ($bcomexe != $null) {
  262. ;      dns -c $$1
  263. ;      unset %pwdns
  264. ;      unset %gvdns
  265. ;      unset %tsdns
  266. ;      %bcdns = true
  267. ;      .timerqtbcdns 1 5 unset %bcdns
  268. ;    }
  269. ;    else { 
  270. ;      echo -a 4QTool: Specify Battlecomclient.exe
  271. ;      qtsetup 
  272. ;    }
  273. ;  }
  274. ;  .Gamevoice {
  275. ;    dns -c $$1
  276. ;    unset %pwdns
  277. ;    unset %bcdns
  278. ;    unset %tsdns
  279. ;    %gvdns = true
  280. ;    .timerqtgvdns 1 3 unset %gvdns
  281. ;  }
  282. ;  .Teamspeak {
  283. ;    dns -c $$1
  284. ;    unset %pwdns
  285. ;    unset %bcdns
  286. ;    unset %gvdns
  287. ;    %tsdsn= true
  288. ;    .timerqttsdns 1 3 unset %tsdns
  289. ;  }
  290. ;  .Message to game: { 
  291. ;    dialog -m q3message q3message
  292. ;    %messsdns = $snicks
  293. ;    did -o q3message 4 1 $remove($me,^)
  294. ;  }
  295. ;  .!qt: msg # !qt $snicks
  296. ;  .get PW: {
  297. ;    if ($clanpass != $null) {
  298. ;      %qt.pwnick = $snick(#,1)
  299. ;      dns -c $$1
  300. ;      unset %gvdns
  301. ;      unset %bcdns
  302. ;      %pwdns = true
  303. ;      .timerqtpwdns 1 3 unset %pwdns
  304. ;      .timerqtpwnick 1 3 unset %qt.pwnick
  305. ;    }
  306. ;    else {
  307. ;      echo -a 4QTool: No clanpassword specified! 
  308. ;      qtsetup
  309. ;    }
  310. ;  }
  311. ;}
  312.  
  313. dialog q3message {
  314.   title "Message"
  315.   size -1 -1 383 54
  316.   option pixels
  317.   edit "", 1, 3 3 377 22
  318.   button "Send", 2, 221 28 75 22, default
  319.   button "Cancel", 3, 303 28 75 22, ok
  320.   edit "", 4, 36 28 174 21
  321.   text "Name", 5, 4 31 30 16
  322. }
  323.  
  324. on *:dialog:q3message:sclick:*: {
  325.   if ($did == 2) {
  326.     %messdns = $remove($did(q3message,1),^)
  327.     %messndns = $remove($did(q3message,4),^)
  328.     %messcdns = 1
  329.     unset %gvdns
  330.     unset %bcdns
  331.     unset %pwdns
  332.     .timerqtmessdns 1 3 unset %messdns
  333.     .timerqtmesscdns 1 3 unset %messcdns
  334.     .timerqtmessndns 1 3 unset %messndns
  335.     dns -c $gettok(%messsdns,1,44)
  336.     var %i = 2
  337.     while (%i <= $numtok(%messsdns,44)) {
  338.       dns $gettok(%messsdns,%i,44)
  339.       inc %i
  340.     }
  341.     dialog -x q3message
  342.   }
  343. }
  344.  
  345. on *:dns: {
  346.   if (%pwdns == true) {
  347.     QTpwrequest $iaddress
  348.     .timerqtpw* off
  349.     unset %pwdns
  350.   }
  351.   if (%gvdns == true) {
  352.     run gamevoice:// $+ $iaddress $+ :9110/
  353.     .timerqtgvdns off
  354.     unset %gvdns
  355.   }
  356.   if (%tsdns == true) {
  357.     run teamspeak:// $+ $iaddress $+ /
  358.     .timerqttsdns off
  359.     unset %tsdns
  360.   }
  361.   if (%bcdns == true) {
  362.     if ($readini " $+ $scriptdir $+ qtool.ini" QTool bcexe == $null) { setBCPath }
  363.     var %temp = $readini " $+ $scriptdir $+ qtool.ini" QTool bcexe
  364.     run " $+ %temp $+ " bfc:// $+ $iaddress $+ /
  365.     .timerqtbcdns off
  366.     unset %bcdns
  367.   }
  368.   if (%messdns != $null) {
  369.     sockudp qtmessage $+ %messcdns $iaddress 27960 $str($chr(255),4) $+ print $+ $chr(10) $+  $str(^3X^1X,$calc(1 + $len($me) / 2)) $+ ^3=^1- $+ $chr(10) $+ ^1X^2< $+ %messndns $+ >^7 %messdns $+ $chr(10) $+ $str(^3X^1X,$calc(1 + $len($me) / 2)) $+ ^3=^1- $+ $chr(10)
  370.     echo -a 4QTool: Message send!
  371.     inc %messcdns
  372.   }
  373.   if (%refdns == true) {
  374.     if (%qt.revport == $null) { %qt.revport = 27960 }
  375.     did -o QTool 13 0 $iaddress $+ : $+ %qt.revport
  376.     unset %refdns
  377.     .timerqtrefdns off
  378.     qtrefresh
  379.   }
  380. }
  381.  
  382. on *:udpread:qtmessage*: {
  383.   echo -a 4QTool: Message send!
  384. }
  385.  
  386. dialog -l QToolSetup {
  387.   title "QTool Setup"
  388.   size -1 -1 504 343
  389.   option pixels
  390.   button "Cancel", 7, 335 320 80 20, cancel
  391.   button "OK", 8, 422 320 80 20, ok
  392.   tab "Game", 9, 3 1 498 319
  393.   text "Select quake3.exe", 2, 9 28 96 15, tab 9
  394.   button "Browse", 4, 113 27 50 17, tab 9
  395.   edit $q3exe, 3, 9 45 487 20, tab 9
  396.   text "Additional parameters:", 83, 9 155 133 15, tab 9
  397.   edit $q3params, 84, 9 171 487 20, tab 9
  398.   text "Select WolfMP.exe", 166, 9 71 99 15, tab 9
  399.   button "Browse", 168, 122 69 50 17, tab 9
  400.   edit $wexe, 167, 9 88 487 20, tab 9
  401.   check "Run program on 'connect as coach'", 178, 9 233 185 20, tab 9
  402.   button "Browse", 179, 208 234 60 17, tab 9
  403.   edit $cexe, 180, 9 253 487 20, tab 9
  404.   text "Coach parameters:", 185, 9 277 100 15, tab 9
  405.   edit $cparams, 186, 9 292 486 20, tab 9
  406.   check "Enable/disable Punkbuster automaticaly on connect (Buggy! Read readme_q2l.txt first!!!)", 41, 9 212 454 20, tab 9
  407.   check "Check Server before connecting", 42, 9 193 187 20, tab 9
  408.   text "Select ET.exe", 49, 9 114 74 16, tab 9
  409.   button "Browse", 50, 96 113 50 17, tab 9
  410.   edit $eexe, 51, 9 132 487 20, tab 9
  411.   tab "On play", 10
  412.   text "Away nick:", 5, 9 28 68 15, tab 10
  413.   check "Add mod after nick", 155, 83 28 110 15, tab 10
  414.   edit $awnick, 6, 9 43 190 20, tab 10
  415.   text "Post server on join to", 95, 9 181 114 15, tab 10
  416.   radio "all channels", 96, 9 194 78 18, tab 10
  417.   radio "none", 97, 88 194 48 18, tab 10
  418.   radio "following channels (seperat by ';'):", 98, 140 194 188 18, tab 10
  419.   text "on this channels:", 188, 381 196 91 15, tab 10
  420.   check "reply only", 187, 365 181 76 15, tab 10
  421.   edit $postchannelop, 99, 7 213 486 20, tab 10
  422.   check "Post reply on !qt, !qc, ?as, ?q3post when not playing:", 100, 9 102 290 20, tab 10
  423.   edit $postnotplay, 102, 32 121 464 20, tab 10
  424.   text "/me", 101, 9 123 20 20, tab 10
  425.   text "Reply when playing:", 103, 9 144 103 15, tab 10
  426.   text "/me", 104, 9 162 20 15, tab 10
  427.   edit $postplay, 105, 32 160 290 20, tab 10
  428.   text "ip", 106, 325 162 10 15, tab 10
  429.   edit $posttime, 107, 337 160 137 20, tab 10
  430.   text "time", 108, 478 162 22 15, tab 10
  431.   text "RtCW nick:", 169, 9 65 63 15, tab 10
  432.   check "Add mod", 170, 414 65 72 15, tab 10
  433.   edit $wolfawnick, 171, 9 80 190 20, tab 10
  434.   check "on play set ICQ:", 176, 370 269 98 20, tab 10
  435.   combo 177, 370 289 110 80, tab 10 drop
  436.   check "Player names:", 135, 9 269 91 20, tab 10
  437.   combo 136, 9 289 200 140, tab 10 edit drop
  438.   button "Add", 137, 215 289 40 20, tab 10
  439.   button "Del", 138, 259 289 40 20, tab 10
  440.   check "Post password on !pw in channel:", 44, 9 235 184 20, tab 10
  441.   edit $pwchan, 47, 214 236 279 21, tab 10
  442.   text "(Channel must be key protected: +k)", 48, 28 252 181 16, tab 10
  443.   text "Enemy Territory nick:", 52, 205 65 105 16, tab 10
  444.   edit $etawnick, 54, 204 80 190 21, tab 10
  445.   text "after nick", 55, 433 82 50 16, tab 10
  446.   tab "Misc", 11
  447.   text "Default channel for lifestats:", 81, 9 109 141 15, tab 11
  448.   edit $postchannel, 82, 150 106 209 20, tab 11
  449.   button "Battlecom", 156, 8 162 65 20, tab 11
  450.   check "QTool always on top", 109, 9 133 120 20, tab 11
  451.   text "Servermods (listed in favourites):", 151, 9 81 160 15, tab 11
  452.   combo 152, 172 78 143 140, tab 11 edit drop
  453.   button "Add", 153, 321 78 40 20, tab 11
  454.   button "Del", 154, 367 78 40 20, tab 11
  455.   text "Clan password:", 181, 9 32 75 15, tab 11
  456.   edit $clanpass, 182, 87 29 222 20, tab 11
  457.   text "Passwordlist:", 161, 9 56 63 15, tab 11
  458.   combo 162, 74 52 205 100, tab 11 edit drop
  459.   button "Add", 163, 286 52 40 20, tab 11
  460.   button "Del", 164, 331 52 40 20, tab 11
  461.   text "Custom demo folder:", 1, 9 196 102 15, tab 11
  462.   edit $cudemo, 12, 9 211 485 21, tab 11
  463.   text "Custom screenshot folder:", 13, 9 235 131 15, tab 11
  464.   edit $csshot, 14, 9 250 485 21, tab 11
  465.   button "Browse", 15, 112 194 50 17, tab 11
  466.   button "Browse", 16, 143 233 50 17, tab 11
  467.   text "Custom logfile folder:", 19, 9 274 106 15, tab 11
  468.   button "Browse", 21, 114 272 50 17, tab 11
  469.   edit $clog, 22, 9 289 485 21, tab 11
  470.   edit $dparams, 23, 259 189 234 21, tab 11
  471.   text "Demo parameters:", 39, 170 193 90 16, tab 11
  472.   edit $bcomexe, 40, 77 162 281 21, tab 11
  473.   tab "Messenger", 17
  474.   check "Private messages", 18, 15 119 110 20, tab 17
  475.   check "Channel messages", 20, 15 81 115 20, tab 17
  476.   check "Forward messages to game:", 24, 9 55 163 20, tab 17
  477.   list 25, 6 177 491 140, tab 17
  478.   edit "", 26, 245 81 252 21, tab 17
  479.   check "only if user is op", 27, 31 98 100 20, tab 17
  480.   text "Nick (nick!user@host):", 28, 133 84 111 15, tab 17
  481.   edit "", 29, 245 103 252 21, tab 17
  482.   text "Channel:", 30, 196 107 48 15, tab 17
  483.   text "Message contains:", 31, 151 128 93 15, tab 17
  484.   edit "", 32, 245 125 252 21, tab 17 limit 500
  485.   check "gets op", 33, 88 153 62 20, tab 17
  486.   button "Add rule", 34, 261 152 75 22, tab 17
  487.   button "Delete rule", 35, 417 152 75 22, tab 17
  488.   check "joins channel", 36, 154 153 100 20, tab 17
  489.   text "Notify if user", 37, 15 155 69 16, tab 17
  490.   button "Change rule", 38, 339 152 75 22, tab 17
  491.   check "Q3 console scan every", 43, 9 27 130 20, tab 17
  492.   edit $scansec, 45, 141 27 35 21, tab 17
  493.   text "sec.", 46, 181 30 22 16, tab 17
  494.   text "(for q3 console commands like '\irc' etc.)", 53, 212 30 198 16, tab 17
  495. }
  496.  
  497.  
  498. on *:dialog:QToolSetup:edit:*: {
  499.   if (($did == 45) && ($did(QToolSetup,45) !isnum)) {
  500.     did -r QToolsetup 45
  501.   }
  502. }
  503.  
  504. on *:dialog:QToolSetup:sclick:*: {
  505.   if ($did == 4) {
  506.     var %newpath = $sfile(c:\,Select quake3.exe,OK)
  507.     if (%newpath) { 
  508.       did -o QToolSetup 3 1 %newpath
  509.     }
  510.   }
  511.   elseif ($did == 168) {
  512.     var %newpath = $sfile(c:\,Select WolfMP.exe,OK)
  513.     if (%newpath) { 
  514.       did -o QToolSetup 167 1 %newpath
  515.     }
  516.   }
  517.   elseif ($did == 50) {
  518.     var %newpath = $sfile(c:\,Select ET.exe,OK)
  519.     if (%newpath) { 
  520.       did -o QToolSetup 51 1 %newpath
  521.     }
  522.   }
  523.   elseif ($did == 96) %qts.replych = 1
  524.   elseif ($did == 97) %qts.replych = 2
  525.   elseif ($did == 98) %qts.replych = 3
  526.   elseif ($did == 137) {
  527.     did -a QToolSetup 136 $did(QToolSetup,136)
  528.     write -a " $+ $scriptdir $+ qtool\q3names.txt" $did(QToolSetup,136)
  529.     did -d QToolSetup 136 0
  530.   }
  531.   elseif ($did == 138) {
  532.     if ($did(QToolSetup,136).sel != $null) {
  533.       write -dl $+ $did(QToolSetup,136).sel " $+ $scriptdir $+ qtool\q3names.txt"
  534.       var %i = 1
  535.       did -r QToolSetup 136
  536.       while (%i <= $lines(" $+ $scriptdir $+ qtool\q3names.txt")) {
  537.         did -a QToolSetup 136 $read(" $+ $scriptdir $+ qtool\q3names.txt",%i)
  538.         inc %i
  539.       }
  540.     }
  541.   }
  542.   elseif ($did == 153) {
  543.     did -a QToolSetup 152 $did(QToolSetup,152)
  544.     write -a " $+ $scriptdir $+ qtool\favmods.txt" $did(QToolSetup,152)
  545.     did -d QToolSetup 152 0
  546.   }
  547.   elseif ($did == 154) {
  548.     if ($did(QToolSetup,152).sel != $null) {
  549.       if ($exists(" $+ $scriptdir $+ qtool\qtserver $+ $did(QToolSetup,152) $+ .txt")) { .remove " $+ $scriptdir $+ qtool\qtserver $+ $did(QToolSetup,152) $+ .txt" }
  550.       write -dl $+ $did(QToolSetup,152).sel " $+ $scriptdir $+ qtool\favmods.txt"
  551.       var %i = 1
  552.       did -r QToolSetup 152
  553.       while (%i <= $lines(" $+ $scriptdir $+ qtool\favmods.txt")) {
  554.         did -a QToolSetup 152 $read(" $+ $scriptdir $+ qtool\favmods.txt",%i)
  555.         inc %i
  556.       }
  557.     }
  558.   }
  559.   elseif ($did == 7) unset qts.*
  560.   elseif ($did == 8) {
  561.     if $did(QToolSetup,3) { writeini " $+ $scriptdir $+ qtool.ini" QTool quake3exe " $+ $did(QToolSetup,3) $+ " }
  562.     else { remini " $+ $scriptdir $+ qtool.ini" QTool quake3exe }
  563.     if $did(QToolSetup,167) { writeini " $+ $scriptdir $+ qtool.ini" QTool wolfexe " $+ $did(QToolSetup,167) $+ " }
  564.     else { remini " $+ $scriptdir $+ qtool.ini" QTool wolfexe }
  565.     if $did(QToolSetup,51) { writeini " $+ $scriptdir $+ qtool.ini" QTool etexe " $+ $did(QToolSetup,51) $+ " }
  566.     else { remini " $+ $scriptdir $+ qtool.ini" QTool etexe }
  567.     if $did(QToolSetup,6) { writeini " $+ $scriptdir $+ qtool.ini" QTool awaynick $did(QToolSetup,6) }
  568.     else { remini " $+ $scriptdir $+ qtool.ini" QTool awaynick }
  569.     if $did(QToolSetup,171) { writeini " $+ $scriptdir $+ qtool.ini" QTool wolfawaynick $did(QToolSetup,171) }
  570.     else { remini " $+ $scriptdir $+ qtool.ini" QTool awaynick }
  571.     if $did(QToolSetup,54) { writeini " $+ $scriptdir $+ qtool.ini" QTool etawaynick $did(QToolSetup,54) }
  572.     else { remini " $+ $scriptdir $+ qtool.ini" QTool awaynick }
  573.     if $did(QToolSetup,82) { writeini " $+ $scriptdir $+ qtool.ini" QTool channel $did(QToolSetup,82) }
  574.     else { remini " $+ $scriptdir $+ qtool.ini" QTool channel }
  575.     if $did(QToolSetup,84) { writeini " $+ $scriptdir $+ qtool.ini" QTool params $did(QToolSetup,84) }
  576.     else { remini " $+ $scriptdir $+ qtool.ini" QTool params }
  577.     if $did(QToolSetup,99) { writeini " $+ $scriptdir $+ qtool.ini" QTool postch $did(QToolSetup,99) }
  578.     else { remini " $+ $scriptdir $+ qtool.ini" QTool postch }
  579.     if $did(QToolSetup,102) { writeini " $+ $scriptdir $+ qtool.ini" QTool postnp $did(QToolSetup,102) }
  580.     else { remini " $+ $scriptdir $+ qtool.ini" QTool postnp }
  581.     if $did(QToolSetup,105) { writeini " $+ $scriptdir $+ qtool.ini" QTool postpl $did(QToolSetup,105) }
  582.     else { remini " $+ $scriptdir $+ qtool.ini" QTool postpl }
  583.     if $did(QToolSetup,107) { writeini " $+ $scriptdir $+ qtool.ini" QTool posttm $did(QToolSetup,107) }
  584.     else { remini " $+ $scriptdir $+ qtool.ini" QTool posttm }
  585.     if $did(QToolSetup,177) { writeini " $+ $scriptdir $+ qtool.ini" QTool icqstat $did(QToolSetup,177) }
  586.     if $did(QToolSetup,180) { writeini " $+ $scriptdir $+ qtool.ini" QTool coachexe " $+ $did(QToolSetup,180) $+ " }
  587.     else { remini " $+ $scriptdir $+ qtool.ini" QTool coachexe }
  588.     if $did(QToolSetup,182) { writeini " $+ $scriptdir $+ qtool.ini" QTool clanpw $did(QToolSetup,182) }
  589.     else { remini " $+ $scriptdir $+ qtool.ini" QTool clanpw }
  590.     if $did(QToolSetup,186) { writeini " $+ $scriptdir $+ qtool.ini" QTool coachparams $did(QToolSetup,186) }
  591.     else { remini " $+ $scriptdir $+ qtool.ini" QTool coachparams }
  592.     if $did(QToolSetup,12) { writeini " $+ $scriptdir $+ qtool.ini" QTool demof " $+ $did(QToolSetup,12) $+ " }
  593.     else { remini " $+ $scriptdir $+ qtool.ini" QTool demof }
  594.     if $did(QToolSetup,14) { writeini " $+ $scriptdir $+ qtool.ini" QTool sshotf " $+ $did(QToolSetup,14) $+ " }
  595.     else { remini " $+ $scriptdir $+ qtool.ini" QTool sshotf }
  596.     if $did(QToolSetup,22) { writeini " $+ $scriptdir $+ qtool.ini" QTool logf " $+ $did(QToolSetup,22) $+ " }
  597.     else { remini " $+ $scriptdir $+ qtool.ini" QTool logf }
  598.     if $did(QToolSetup,23) { writeini " $+ $scriptdir $+ qtool.ini" QTool demoparams $did(QToolSetup,23) }
  599.     else { remini " $+ $scriptdir $+ qtool.ini" QTool demoparams }
  600.     if $did(QToolSetup,40) { writeini " $+ $scriptdir $+ qtool.ini" QTool bcexe " $+ $did(QToolSetup,40) $+ " }
  601.     else { remini " $+ $scriptdir $+ qtool.ini" QTool bcexe }
  602.     if $did(QToolSetup,47) { writeini " $+ $scriptdir $+ qtool.ini" QTool passchan $did(QToolSetup,47) }
  603.     else { remini " $+ $scriptdir $+ qtool.ini" QTool passchan }
  604.     if $did(QToolSetup,45) { writeini " $+ $scriptdir $+ qtool.ini" QTool q3ssec $did(QToolSetup,45) }
  605.     else { writeini " $+ $scriptdir $+ qtool.ini" QTool q3ssec 10 }
  606.     writeini " $+ $scriptdir $+ qtool.ini" QTool aot $did(QToolSetup,109).state
  607.     writeini " $+ $scriptdir $+ qtool.ini" QTool replych %qts.replych
  608.     writeini " $+ $scriptdir $+ qtool.ini" QTool replynp $did(QToolSetup,100).state
  609.     writeini " $+ $scriptdir $+ qtool.ini" QTool q3names $did(QToolSetup,135).state
  610.     writeini " $+ $scriptdir $+ qtool.ini" QTool modnick $did(QToolSetup,155).state
  611.     writeini " $+ $scriptdir $+ qtool.ini" QTool modwnick $did(QToolSetup,170).state
  612.     writeini " $+ $scriptdir $+ qtool.ini" QTool icq $did(QToolSetup,176).state
  613.     writeini " $+ $scriptdir $+ qtool.ini" QTool coach $did(QToolSetup,178).state
  614.     writeini " $+ $scriptdir $+ qtool.ini" QTool replyqt $did(QToolSetup,187).state
  615.     writeini " $+ $scriptdir $+ qtool.ini" QTool messenger $did(QToolSetup,24).state
  616.     writeini " $+ $scriptdir $+ qtool.ini" QTool apb $did(QToolSetup,41).state
  617.     writeini " $+ $scriptdir $+ qtool.ini" QTool q3senable $did(QToolSetup,43).state
  618.     writeini " $+ $scriptdir $+ qtool.ini" QTool checkq3con $did(QToolSetup,42).state
  619.     writeini " $+ $scriptdir $+ qtool.ini" QTool passchanon $did(QToolSetup,44).state
  620.     unset %qts.*
  621.   }
  622.   elseif ($did == 156) {
  623.     var %bcpath = $sfile(c:\,Select battlecomclient.exe,OK)
  624.     if (%bcpath) { 
  625.       did -o QToolSetup 40 1 %bcpath
  626.     }
  627.   }
  628.   elseif ($did == 163) {
  629.     did -a QToolSetup 162 $did(QToolSetup,162)
  630.     write -a " $+ $scriptdir $+ qtool\qtpws.txt" $did(QToolSetup,162)
  631.     did -d QToolSetup 162 0
  632.   }
  633.   elseif ($did == 164) {
  634.     if ($did(QToolSetup,162).sel != $null) {
  635.       write -dl $+ $did(QToolSetup,162).sel " $+ $scriptdir $+ qtool\qtpws.txt"
  636.       var %i = 1
  637.       did -r QToolSetup 162
  638.       while (%i <= $lines(" $+ $scriptdir $+ qtool\qtpws.txt")) {
  639.         did -a QToolSetup 162 $read(" $+ $scriptdir $+ qtool\qtpws.txt",%i)
  640.         inc %i
  641.       }
  642.     }
  643.   }
  644.   elseif ($did == 179) {
  645.     var %Coachpath = $sfile(c:\,Select coachtool exe,OK)
  646.     if (%coachpath) { 
  647.       did -o QToolSetup 180 1 %coachpath
  648.     }
  649.   }
  650.   elseif ($did == 15) {
  651.     var %demopath = $sdir(c:\,Select cutsom demo folder)
  652.     if (%demopath) {
  653.       did -o QToolSetup 12 1 %demopath
  654.     }
  655.   }
  656.   elseif ($did == 16) {
  657.     var %sshotpath = $sdir(c:\,Select custom screenshot folder)
  658.     if (%sshotpath) {
  659.       did -o QToolSetup 14 1 %sshotpath
  660.     }
  661.   }
  662.   elseif ($did == 21) {
  663.     var %logpath = $sdir(c:\,Select custom logfile folder)
  664.     if (%logpath) {
  665.       did -o QToolSetup 22 1 %logpath
  666.     }
  667.   }
  668.   elseif ($did == 20) {
  669.     if ($did(QToolSetup,20).state == 1) {
  670.       did -e QToolSetup 27
  671.     }
  672.     else {
  673.       did -u QToolSetup 27
  674.       did -b QToolSetup 27
  675.  
  676.     }
  677.   }
  678.   elseif ($did == 34) {
  679.     if (($did(QToolSetup,20).state == 1) || ($did(QToolSetup,27).state == 1) || ($did(QToolSetup,18).state == 1) || ($did(QToolSetup,33).state == 1) || ($did(QToolSetup,36).state == 1)) {
  680.       var %temp = $iif($did(QToolSetup,20).state == 1,c,-) $+ $iif($did(QToolSetup,27).state == 1,o) $iif($did(QToolSetup,18).state == 1,p,-) $iif($did(QToolSetup,33).state == 1,+o,-) $iif($did(QToolSetup,36).state == 1,+j,-)
  681.       %temp = %temp $iif($did(QToolSetup,26),$did(QToolSetup,26),*)
  682.       if ($did(QToolSetup,29)) {
  683.         if ($did(QToolSetup,29) == $chr(35)) { %temp = %temp * }
  684.         elseif ($left($did(QToolSetup,29),1) == $chr(35)) { %temp = %temp $did(QToolSetup,29) }
  685.         else { %temp = %temp $chr(35) $+ $did(QToolSetup,29) }
  686.       }
  687.       else { %temp = %temp * }
  688.       %temp = %temp $iif($did(QToolSetup,32),$did(QToolSetup,32),*)
  689.       if ($read(" $+ $scriptdir $+ qtool\messenger.txt",w,%temp) == $null) {
  690.         did -a QToolSetup 25 %temp
  691.         write -a " $+ $scriptdir $+ qtool\messenger.txt" %temp
  692.       }
  693.       else { 
  694.         var %temp $input(This or similar rule already exists,4,Conflict)
  695.       }
  696.     }
  697.   }
  698.   elseif ($did == 25) {
  699.     if ($gettok($did(QToolsetup,25).seltext,1,32) == c) { 
  700.       did -c QToolSetup 20
  701.       did -u QToolSetup 27
  702.     }
  703.     elseif ($gettok($did(QToolsetup,25).seltext,1,32) == co) { 
  704.       did -c QToolSetup 20
  705.       did -c QToolSetup 27
  706.     }
  707.     else {
  708.       did -u QToolSetup 20
  709.       did -u QToolSetup 27
  710.     }
  711.     if ($gettok($did(QToolsetup,25).seltext,2,32) == p) { did -c QToolSetup 18 }
  712.     else { did -u QToolSetup 18 }
  713.     if ($gettok($did(QToolsetup,25).seltext,3,32) == +o) { did -c QToolSetup 33 }
  714.     else { did -u QToolSetup 33 }
  715.     if ($gettok($did(QToolsetup,25).seltext,4,32) == +j) { did -c QToolSetup 36 }
  716.     else { did -u QToolSetup 36 }
  717.     did -o QToolSetup 26 1 $gettok($did(QToolsetup,25).seltext,5,32)
  718.     did -o QToolSetup 29 1 $gettok($did(QToolsetup,25).seltext,6,32)
  719.     did -o QToolSetup 32 1 $gettok($did(QToolsetup,25).seltext,7,32)
  720.     if ($did(QToolSetup,20).state == 1) {
  721.       did -e QToolSetup 27
  722.     }
  723.     else {
  724.       did -u QToolSetup 27
  725.       did -b QToolSetup 27
  726.     }
  727.   }
  728.   elseif ($did == 35) {
  729.     write -dl $+ $did(QToolSetup,25).sel " $+ $scriptdir $+ qtool\messenger.txt"
  730.     did -d QToolSetup 25 $did(QToolSetup,25).sel
  731.     did -r QToolSetup 26,29,32
  732.     did -u QToolSetup 20,27,18,33,36
  733.     did -b QToolSetup 27
  734.   }
  735.   elseif ($did == 38) {
  736.     if (($did(QToolSetup,20).state == 1) || ($did(QToolSetup,27).state == 1) || ($did(QToolSetup,18).state == 1) || ($did(QToolSetup,33).state == 1) || ($did(QToolSetup,36).state == 1)) {
  737.       var %temp = $iif($did(QToolSetup,20).state == 1,c,-) $+ $iif($did(QToolSetup,27).state == 1,o) $iif($did(QToolSetup,18).state == 1,p,-) $iif($did(QToolSetup,33).state == 1,+o,-) $iif($did(QToolSetup,36).state == 1,+j,-)
  738.       %temp = %temp $iif($did(QToolSetup,26),$did(QToolSetup,26),*)
  739.       if ($did(QToolSetup,29)) {
  740.         if ($did(QToolSetup,29) == $chr(35)) { %temp = %temp * }
  741.         elseif ($left($did(QToolSetup,29),1) == $chr(35)) { %temp = %temp $did(QToolSetup,29) }
  742.         else { %temp = %temp $chr(35) $+ $did(QToolSetup,29) }
  743.       }
  744.       else { %temp = %temp * }
  745.       %temp = %temp $iif($did(QToolSetup,32),$did(QToolSetup,32),*)
  746.       if ($read(" $+ $scriptdir $+ qtool\messenger.txt", w,  %temp) == $null) {
  747.         write -l $+ $did(QToolSetup,25).sel " $+ $scriptdir $+ qtool\messenger.txt" %temp
  748.         did -o QToolSetup 25 $did(QToolSetup,25).sel %temp
  749.         did -r QToolSetup 26,29,32
  750.         did -u QToolSetup 20,27,18,33,36
  751.         did -b QToolSetup 27
  752.       }
  753.       else { 
  754.         var %temp $input(This or similar rule already exists,4,Conflict)
  755.       }
  756.  
  757.     }
  758.   }
  759. }
  760.  
  761. alias -l q3exe return $readini " $+ $scriptdir $+ qtool.ini" QTool quake3exe
  762. alias -l wexe return $readini " $+ $scriptdir $+ qtool.ini" QTool wolfexe
  763. alias -l eexe return $readini " $+ $scriptdir $+ qtool.ini" QTool etexe
  764. alias -l awnick return $readini " $+ $scriptdir $+ qtool.ini" QTool awaynick
  765. alias -l wolfawnick return $readini " $+ $scriptdir $+ qtool.ini" QTool wolfawaynick
  766. alias -l etawnick return $readini " $+ $scriptdir $+ qtool.ini" QTool etawaynick
  767. alias -l postchannel return $readini " $+ $scriptdir $+ qtool.ini" QTool channel
  768. alias -l q3params return $readini " $+ $scriptdir $+ qtool.ini" QTool params
  769. alias -l postchannelop return $readini " $+ $scriptdir $+ qtool.ini" QTool postch
  770. alias -l postnotplay return $readini " $+ $scriptdir $+ qtool.ini" QTool postnp
  771. alias -l postplay return $readini " $+ $scriptdir $+ qtool.ini" QTool postpl
  772. alias -l posttime return $readini " $+ $scriptdir $+ qtool.ini" QTool posttm
  773. alias -l aotop return $readini " $+ $scriptdir $+ qtool.ini" QTool aot
  774. alias -l replyonplay return $readini " $+ $scriptdir $+ qtool.ini" QTool replych
  775. alias -l replynotplay return $readini " $+ $scriptdir $+ qtool.ini" QTool replynp
  776. alias -l namesonconnect return $readini " $+ $scriptdir $+ qtool.ini" QTool q3names
  777. alias -l scanenable return $readini " $+ $scriptdir $+ qtool.ini" QTool q3senable
  778. alias -l scansec return $readini " $+ $scriptdir $+ qtool.ini" QTool q3ssec
  779. alias -l rtcwinlist return $readini " $+ $scriptdir $+ qtool.ini" QTool rtcwlist
  780. alias -l addmodtonick return $readini " $+ $scriptdir $+ qtool.ini" QTool modnick
  781. alias -l addmodtownick return $readini " $+ $scriptdir $+ qtool.ini" QTool modwnick
  782. alias -l seticq return $readini " $+ $scriptdir $+ qtool.ini" QTool icq
  783. alias -l seticqstat return $readini " $+ $scriptdir $+ qtool.ini" QTool icqstat
  784. alias -l coachprog return $readini " $+ $scriptdir $+ qtool.ini" QTool coach
  785. alias -l cexe return $readini " $+ $scriptdir $+ qtool.ini" QTool coachexe
  786. alias -l clanpass return $readini " $+ $scriptdir $+ qtool.ini" QTool clanpw
  787. alias -l cparams return $readini " $+ $scriptdir $+ qtool.ini" QTool coachparams
  788. alias -l compact return $readini " $+ $scriptdir $+ qtool.ini" QTool small
  789. alias -l replyonask return $readini " $+ $scriptdir $+ qtool.ini" QTool replyqt
  790. alias -l cudemo return $readini " $+ $scriptdir $+ qtool.ini" QTool demof
  791. alias -l csshot return $readini " $+ $scriptdir $+ qtool.ini" QTool sshotf
  792. alias -l clog return $readini " $+ $scriptdir $+ qtool.ini" QTool logf
  793. alias -l DemoMod return $readini " $+ $scriptdir $+ qtool.ini" QTool cDemoMod
  794. alias -l fmess return $readini " $+ $scriptdir $+ qtool.ini" QTool messenger
  795. alias -l dparams return $readini " $+ $scriptdir $+ qtool.ini" QTool demoparams
  796. alias -l bcomexe return $readini " $+ $scriptdir $+ qtool.ini" QTool bcexe
  797. alias -l autopb return $readini " $+ $scriptdir $+ qtool.ini" QTool apb
  798. alias -l cq3con return $readini " $+ $scriptdir $+ qtool.ini" QTool checkq3con
  799. alias -l pwchan return $readini " $+ $scriptdir $+ qtool.ini" QTool passchan
  800. alias -l pwchanon return $readini " $+ $scriptdir $+ qtool.ini" QTool passchanon
  801.  
  802. alias -l QToolXpos {
  803.   var %temp = $readini " $+ $scriptdir $+ qtool.ini" QTool qtxpos
  804.   if (%temp < 1) %temp = 1
  805.   if ( $calc(%temp + 555) > $gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),1,32)) %temp = $calc($gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),1,32) - 555)
  806.   return %temp
  807. }
  808.  
  809. alias -l QToolYpos {
  810.   var %temp = $readini " $+ $scriptdir $+ qtool.ini" QTool qtypos
  811.   if (%temp < 1) %temp = 1
  812.   if ( $calc(%temp + 458) > $gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),2,32)) %temp = $calc($gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),2,32) - 458)
  813.   return %temp
  814. }
  815.  
  816. alias -l FavXpos {
  817.   var %temp = $readini " $+ $scriptdir $+ qtool.ini" QTool favxpos
  818.   if (%temp < 1) %temp = 1
  819.   if ( $calc(%temp + 511) > $gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),1,32)) %temp = $calc($gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),1,32) - 511)
  820.   return %temp
  821. }
  822.  
  823. alias -l FavYpos {
  824.   var %temp = $readini " $+ $scriptdir $+ qtool.ini" QTool favypos
  825.   if (%temp < 1) %temp = 1
  826.   if ( $calc(%temp + 418) > $gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),2,32)) %temp = $calc($gettok($dll(" $+ $scriptdir $+ qtool.dll",RESOLUTION,$null),2,32) - 418)
  827.   return %temp
  828. }
  829.  
  830. alias -l QTpwrequest {
  831.   sockopen QTgetPW $1 2111
  832.   .timerqtqtpwreq 1 2 qtpwtimout
  833. }
  834.  
  835. alias -l qtpwtimout {
  836.   echo -a 4QTool: Connection to %qt.pwnick failed! Maybe %qt.pwnick has not specified a clanpassword or QTool is not running.
  837.   unset %qt.pwcode
  838.   unset %qt.pwnick
  839.   sockclose QTgetPW
  840. }
  841.  
  842. on *:sockopen:QTgetPW: {
  843.   if ($sockerr > 0) {
  844.     .timerqtqtpwreq off
  845.     echo -a 4QTool: Direct connection failed! %qt.pwnick has not specified a clanpassword or QTool is not running.
  846.     unset %qt.pwcode
  847.     unset %qt.pwnick
  848.     sockclose QTgetPW
  849.     return
  850.   }
  851.   %qt.pwcode = $rand(1000,9999)
  852.   sockwrite -n QTgetPW GETq2lPW %qt.pwcode
  853. }
  854.  
  855. on *:sockread:QTgetPW: {
  856.   var %temp
  857.   .timerqtqtpwreq off
  858.   if ($sockerr > 0) {
  859.     echo -a 4QTool: Direct connection failed!
  860.     unset %qt.pwcode
  861.     unset %qt.pwnick
  862.     sockclose QTgetPW
  863.     return
  864.   }
  865.   sockread -f %temp
  866.   if ($sockbr == 0) {
  867.     echo -a 4 QTool: Direct connection failed!
  868.     unset %qt.pwcode
  869.     unset %qt.pwnick
  870.     sockclose QTgetPW
  871.     return
  872.   }
  873.   elseif (($gettok(%temp,1,32) == CODE) && ($gettok(%temp,2,32) == $dll(" $+ $scriptdir $+ qtool.dll",GETCODE,%qt.pwcode))) {
  874.     sockwrite -n QTgetPW RETURNCODE $dll(" $+ $scriptdir $+ qtool.dll",GETCODE,$gettok(%temp,2,32)) $encode($clanpass,mt)
  875.   }
  876.   elseif ($gettok(%temp,1,32) == SERVER) {
  877.     if ($gettok(%temp,2,32) != $null) {
  878.       echo -a 4QTool %qt.pwnick $+ : $gettok(%temp,2,32) $iif($gettok(%temp,3,32) != $null, pw: $decode($gettok(%temp,3,32),mt), no pw)
  879.     }
  880.     else { echo -a 4QTool %qt.pwnick $+ : No Server IP specified in my QTool! }
  881.     unset %qt.pwcode
  882.     unset %qt.pwnick
  883.     sockclose QTgetPW
  884.   }
  885.   elseif ($gettok(%temp,1,32) == WRONGPW) {
  886.     echo -a 4QTool %qt.pwnick $+ : Wrong clanpassword!
  887.     unset %qt.pwcode
  888.     unset %qt.pwnick
  889.     sockclose QTgetPW
  890.   }
  891.   else {
  892.     echo -a 4QTool %qt.pwnick $+ : Authorization failed!
  893.     unset %qt.pwcode
  894.     unset %qt.pwnick
  895.     sockclose QTgetPW
  896.   }
  897. }
  898.  
  899. on *:socklisten:QTlistenPW: {
  900.   if ($dialog(QTool) != $null) { sockaccept QTsendPW }
  901.   else { sockclose QTlistenPW }
  902. }
  903.  
  904. on *:sockread:QTsendPW: {
  905.   var %temp
  906.   sockread -f %temp
  907.   if ($gettok(%temp,1,32) == GETq2lPW) {
  908.     %qt.pwretcode = $dll(" $+ $scriptdir $+ qtool.dll",GETCODE,$gettok(%temp,2,32))
  909.     sockwrite -n QTsendPW CODE %qt.pwretcode
  910.   }
  911.   elseif (($gettok(%temp,1,32) == RETURNCODE) && ($gettok(%temp,2,32) == $dll(" $+ $scriptdir $+ qtool.dll",GETCODE,%qt.pwretcode)) && ($gettok(%temp,3,32) == $encode($clanpass,mt))) {
  912.     sockwrite -n QTsendPW SERVER $iif($did(QTool,13) != $null,$did(QTool,13) $encode($did(QTool,35),mt))
  913.     unset %qt.pwretcode
  914.     sockclose QTsendPW
  915.   }
  916.   else { 
  917.     if ($gettok(%temp,3,32) == $encode($clanpass,mt)) { sockwrite -n QTsendPW FAILED }
  918.     else { sockwrite -n QTsendPW WRONGPW }
  919.     unset %qt.pwretcode
  920.     sockclose QTsendPW 
  921.   }
  922. }
  923.  
  924. alias -l sendrcon {
  925.   if (( $gettok($did(QTrcon,142),1,46) isnum 0-255) && ($gettok($did(QTrcon,142),2,46) isnum 0-255) && ($gettok($did(QTrcon,142),3,46) isnum 0-255)) {
  926.     unset %QTrcon.get
  927.     unset %QTrcon.set
  928.     did -a QTrcon 145 > $did(QTrcon,147)
  929.     did -c QTrcon 145 %QTrcon.lines
  930.     did -u QTrcon 145 %QTrcon.lines
  931.     inc %QTrcon.lines
  932.     if ($did(QTrcon,145,%QTrcon.lines) != $null) {
  933.       inc %QTrcon.lines
  934.       did -a QTrcon 145
  935.     }
  936.     var %port
  937.     set %port 27960
  938.     if (: isin $did(QTrcon,142)) { %port = $left($gettok($did(QTrcon,142),2,58),5) }
  939.     sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) $did(QTrcon,147)
  940.     .timerqtrcon 1 2 rcontimeout
  941.   }
  942. }
  943.  
  944. alias -l getrcon {
  945.   if (( $gettok($did(QTrcon,142),1,46) isnum 0-255) && ($gettok($did(QTrcon,142),2,46) isnum 0-255) && ($gettok($did(QTrcon,142),3,46) isnum 0-255)) {
  946.     .timerqtrcon off
  947.     sockclose QTrcon
  948.     if (%QTrcon.get == 1) did -a QTrcon 145 > g_password
  949.     elseif (%QTrcon.get == 2) did -a QTrcon 145 > g_gametype
  950.     elseif (%QTrcon.get == 3) did -a QTrcon 145 > mapname
  951.     elseif (%QTrcon.get == 4) did -a QTrcon 145 > timelimit
  952.     did -c QTrcon 145 %QTrcon.lines
  953.     did -u QTrcon 145 %QTrcon.lines
  954.     inc %QTrcon.lines
  955.     if ($did(QTrcon,145,%QTrcon.lines) != $null) {
  956.       inc %QTrcon.lines
  957.       did -a QTrcon 145
  958.     }
  959.     var %port
  960.     set %port 27960
  961.     if (: isin $did(QTrcon,142)) { %port = $left($gettok($did(QTrcon,142),2,58),5) }
  962.     if (%QTrcon.get == 1) {
  963.       %QTrcon.get = 2
  964.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) g_password
  965.     }
  966.     elseif (%QTrcon.get == 2) {
  967.       %QTrcon.get = 3
  968.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) g_gametype
  969.     }
  970.     elseif (%QTrcon.get == 3) {
  971.       %QTrcon.get = 4
  972.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) mapname
  973.     }
  974.     elseif (%QTrcon.get == 4) {
  975.       unset %QTrcon.get
  976.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) timelimit
  977.     }
  978.     .timerqtrcon 1 2 rcontimeout
  979.   }
  980. }
  981.  
  982. alias -l setrcon {
  983.   :nextset
  984.   if (( $gettok($did(QTrcon,142),1,46) isnum 0-255) && ($gettok($did(QTrcon,142),2,46) isnum 0-255) && ($gettok($did(QTrcon,142),3,46) isnum 0-255)) {
  985.     .timerqtrcon off
  986.     sockclose QTrcon
  987.     if ((%QTrcon.set == 1) && ($did(QTrcon,195,0) != $null) && ($did(QTrcon,195,0) != %QTrcon.pw)) {
  988.       did -a QTrcon 145 > g_password $did(QTrcon,195,0) 
  989.       did -c QTrcon 145 %QTrcon.lines
  990.       did -u QTrcon 145 %QTrcon.lines
  991.       inc %QTrcon.lines
  992.     }
  993.     elseif ((%QTrcon.set == 2) && ($did(QTrcon,197,0) != $null) && ($gettok($did(QTrcon,197,0),1,32) != %QTrcon.gt)) {
  994.       did -a QTrcon 145 > g_gametype $gettok($did(QTrcon,197,0),1,32)
  995.       did -c QTrcon 145 %QTrcon.lines
  996.       did -u QTrcon 145 %QTrcon.lines
  997.       inc %QTrcon.lines
  998.     }
  999.     elseif ((%QTrcon.set == 3) && ($did(QTrcon,199) != $null) && ($did(QTrcon,199) != %QTrcon.map)) {
  1000.       did -a QTrcon 145 > map $did(QTrcon,199) 
  1001.       did -c QTrcon 145 %QTrcon.lines
  1002.       did -u QTrcon 145 %QTrcon.lines
  1003.       inc %QTrcon.lines
  1004.     }
  1005.     elseif ((%QTrcon.set == 4) && ($did(QTrcon,201) != $null) && ($did(QTrcon,201) != %QTrcon.tl)) {
  1006.       did -a QTrcon 145 > timelimit $did(QTrcon,201) 
  1007.       did -c QTrcon 145 %QTrcon.lines
  1008.       did -u QTrcon 145 %QTrcon.lines
  1009.       inc %QTrcon.lines
  1010.     }
  1011.     if ($did(QTrcon,145,%QTrcon.lines) != $null) {
  1012.       inc %QTrcon.lines
  1013.       did -a QTrcon 145
  1014.     }
  1015.     var %port
  1016.     set %port 27960
  1017.     if (: isin $did(QTrcon,142)) { %port = $left($gettok($did(QTrcon,142),2,58),5) }
  1018.     if ((%QTrcon.set == 1) && ($did(QTrcon,195,0) != $null) && ($did(QTrcon,195,0) != %QTrcon.pw)) {
  1019.       %QTrcon.set = 2
  1020.       unset %QTrcon.pw
  1021.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) g_password $did(QTrcon,195,0)
  1022.       did -o QTool 35 0 $did(QTrcon,195,0)
  1023.     }
  1024.     elseif ((%QTrcon.set == 2) && ($did(QTrcon,197,0) != $null) && ($gettok($did(QTrcon,197,0),1,32) != %QTrcon.gt)) {
  1025.       %QTrcon.set = 3
  1026.       unset %QTrcon.gt
  1027.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) g_gametype $gettok($did(QTrcon,197,0),1,32)
  1028.     }
  1029.     elseif ((%QTrcon.set == 3) && ($did(QTrcon,199) != $null) && ($did(QTrcon,199) != %QTrcon.map)) {
  1030.       %QTrcon.set = 4
  1031.       unset %QTrcon.map
  1032.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) map $did(QTrcon,199)
  1033.     }
  1034.     elseif ((%QTrcon.set == 4) && ($did(QTrcon,201) != $null) && ($did(QTrcon,201) != %QTrcon.tl)) {
  1035.       unset %QTrcon.set
  1036.       unset %QTrcon.tl
  1037.       sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) timelimit $did(QTrcon,201)
  1038.     }
  1039.     elseif ((%QTrcon.set > 0) && (%QTrcon.set < 4)) {
  1040.       inc %QTrcon.set
  1041.       goto nextset
  1042.     }
  1043.     else {
  1044.       unset %QTrcon.set
  1045.       return 
  1046.     }
  1047.     .timerqtrcon 1 2 rcontimeout
  1048.   }
  1049. }
  1050.  
  1051. alias -l cfgrcon {
  1052.   :nextcfg
  1053.   if (%QTrcon.cfg <= $lines(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ")) {
  1054.     if (( $gettok($did(QTrcon,142),1,46) isnum 0-255) && ($gettok($did(QTrcon,142),2,46) isnum 0-255) && ($gettok($did(QTrcon,142),3,46) isnum 0-255)) {
  1055.       .timerqtrcon off
  1056.       sockclose QTrcon
  1057.       if ($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),1,32) == set) {
  1058.         did -a QTrcon 145 > $remove($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),2,32) $gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),3,32),")
  1059.         did -c QTrcon 145 %QTrcon.lines
  1060.         did -u QTrcon 145 %QTrcon.lines
  1061.         inc %QTrcon.lines
  1062.       }
  1063.       elseif ($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),1,32) == map) {
  1064.         did -a QTrcon 145 > $remove($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),1,32) $gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),2,32),")
  1065.         did -c QTrcon 145 %QTrcon.lines
  1066.         did -u QTrcon 145 %QTrcon.lines
  1067.         inc %QTrcon.lines
  1068.       }
  1069.       if ($did(QTrcon,145,%QTrcon.lines) != $null) {
  1070.         inc %QTrcon.lines
  1071.         did -a QTrcon 145
  1072.       }
  1073.       var %port
  1074.       set %port 27960
  1075.       if (: isin $did(QTrcon,142)) { %port = $left($gettok($did(QTrcon,142),2,58),5) }
  1076.       if ($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),1,32) == set) {
  1077.         sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) $remove($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),2,32) $gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),3,32),")
  1078.         inc %QTrcon.cfg
  1079.       }
  1080.       elseif ($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),1,32) == map) {
  1081.         sockudp -k QTrcon $gettok($did(QTrcon,142),1,58) %port $str($chr(255),4) $+ rcon $did(QTrcon,144) $remove($gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),1,32) $gettok($read(" $+ $scriptdir $+ qtool\rconconfigs\ $+ $did(QTrcon,205).seltext $+ ",%QTrcon.cfg),2,32),")
  1082.         inc %QTrcon.cfg
  1083.       }
  1084.       else {
  1085.         inc %QTrcon.cfg
  1086.         goto nextcfg
  1087.       }
  1088.       .timerqtrcon 1 2 rcontimeout
  1089.     }
  1090.   }
  1091.   else {
  1092.     unset %QTrcon.cfg
  1093.     did -e QTrcon 205
  1094.   }
  1095. }
  1096.  
  1097. alias -l rcontimeout {
  1098.   sockclose QTrcon
  1099.   did -o QTrcon 147 0
  1100.   did -f QTrcon 147
  1101.   did -o QTrcon 145 %QTrcon.lines > No response from Server! (may be ok on some commands)
  1102.   did -c QTrcon 145 %QTrcon.lines
  1103.   inc %QTrcon.lines
  1104.   if (%QTrcon.get > 0) {
  1105.     .timerqtgetnext -m 1 500 getrcon
  1106.   }
  1107.   elseif (%QTrcon.set > 0) {
  1108.     .timerqtgetnext -m 1 500 setrcon
  1109.   }
  1110.   elseif (%QTrcon.cfg > 0) {
  1111.     .timerqtgetnext -m 1 500 cfgrcon
  1112.   }
  1113. }
  1114.  
  1115. on *:udpread:QTrcon: {
  1116.   var %temp
  1117.   .timerqtrcon off
  1118.   sockread %temp
  1119.   did -o QTrcon 147 0
  1120.   did -f QTrcon 147
  1121.   if (%temp != $str($chr(255),4) $+ print) {
  1122.     did -o QTrcon 145 %QTrcon.lines $did(QTrcon,145,%QTrcon.lines) $+ $chr(32) $+ $remove(%temp,$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1123.     did -c QTrcon 145 %QTrcon.lines
  1124.     did -u QTrcon 145 %QTrcon.lines
  1125.     if ($gettok(%temp,1,34) == g_password) {
  1126.       did -o QTrcon 195 0 $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1127.       %QTrcon.pw = $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1128.     }
  1129.     elseif ($gettok(%temp,1,34) == g_gametype) {
  1130.       did -o QTrcon 197 0 $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1131.       %QTrcon.gt = $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1132.     }
  1133.     elseif ($gettok(%temp,1,34) == mapname) {
  1134.       did -o QTrcon 199 1 $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1135.       %QTrcon.map = $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1136.     }
  1137.     elseif ($gettok(%temp,1,34) == timelimit) {
  1138.       did -o QTrcon 201 1 $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1139.       %QTrcon.tl = $remove($gettok(%temp,3,34),$str($chr(255),4) $+ print,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  1140.     }
  1141.     inc %QTrcon.lines
  1142.     if (%QTrcon.get > 0) {
  1143.       .timerqtgetnext -m 1 500 getrcon
  1144.     }
  1145.   }
  1146.   elseif ($did(QTrcon,145,%QTrcon.lines) != $null) {
  1147.     did -c QTrcon 145 %QTrcon.lines
  1148.     did -u QTrcon 145 %QTrcon.lines
  1149.     inc %QTrcon.lines
  1150.   }
  1151.   if (%temp == $str($chr(255),4) $+ print) {
  1152.     did -o QTrcon 145 %QTrcon.lines > Got response from Server...
  1153.     did -c QTrcon 145 %QTrcon.lines
  1154.     did -u QTrcon 145 %QTrcon.lines
  1155.     inc %QTrcon.lines
  1156.     if (%QTrcon.set > 0) {
  1157.       .timerqtgetnext -m 1 500 setrcon
  1158.     }
  1159.     elseif (%QTrcon.cfg > 0) {
  1160.       .timerqtgetnext -m 1 500 cfgrcon
  1161.     }
  1162.   }
  1163.   .timerqtrcon 1 1 sockclose QTrcon
  1164. }
  1165.  
  1166. dialog -l QTrcon {
  1167.   title "QTool RCon"
  1168.   size $dialog(QTool).x $dialog(QTool).y 555 1
  1169.   option pixels
  1170.   text "IP:", 141, 5 5 15 20
  1171.   edit "", 142, 20 2 140 20
  1172.   text "RCon pw:", 143, 180 5 50 20
  1173.   combo 144, 230 2 175 100, drop edit
  1174.   list 145, 5 28 400 325
  1175.   text "Command:", 146, 5 341 49 20
  1176.   combo 147, 57 338 348 200, drop edit
  1177.   button "Send", 148, 410 338 50 21, default
  1178.   button "Clear", 149, 410 310 50 20
  1179.   button "Exit", 140, 490 338 60 21
  1180.   text "Pw:", 194 , 410 31 20 15
  1181.   combo 195, 432 28 118 80, drop edit
  1182.   text "Gametype:", 196 , 410 55 52 15
  1183.   combo 197, 464 52 86 80, drop edit
  1184.   text "Map:", 198 , 410 80 22 15
  1185.   edit "", 199, 437 77 112 20
  1186.   text "Timelimit:", 200 , 410 105 52 15
  1187.   edit "", 201, 470 102 50 20
  1188.   button "Check", 202, 410 125 65 20
  1189.   button "Set", 203, 485 125 65 20
  1190.   button "Stop", 204, 465 310 50 20
  1191.   list 205, 410 170 140 102
  1192.   button "Send cfg", 206, 445 270 70 20
  1193. }
  1194.  
  1195. on *:dialog:QTrcon:sclick:*: {
  1196.   if ($did == 140) {
  1197.     rconscrollc
  1198.   }
  1199.   elseif ($did == 148) {
  1200.     unset %QTrcon.get
  1201.     unset %QTrcon.set
  1202.     unset %QTrcon.cfg
  1203.     did -e QTrcon 205
  1204.     .timerqtrcon off
  1205.     .timerqtgetnext off
  1206.     sendrcon
  1207.   }
  1208.   elseif ($did == 149) {
  1209.     %QTrcon.lines = 0
  1210.     did -r QTrcon 145
  1211.   }
  1212.   elseif ($did == 202) {
  1213.     unset %QTrcon.set
  1214.     unset %QTrcon.cfg
  1215.     did -e QTrcon 205
  1216.     .timerqtrcon off
  1217.     .timerqtgetnext off
  1218.     %QTrcon.get = 1
  1219.     getrcon
  1220.   }
  1221.   elseif ($did == 203) {
  1222.     unset %QTrcon.get
  1223.     unset %QTrcon.cfg
  1224.     did -e QTrcon 205
  1225.     .timerqtrcon off
  1226.     .timerqtgetnext off
  1227.     %QTrcon.set = 1
  1228.     setrcon
  1229.   }
  1230.   elseif ($did == 204) {
  1231.     unset %QTrcon.get
  1232.     unset %QTrcon.set
  1233.     unset %QTrcon.cfg
  1234.     sockclose QTrcon
  1235.     .timerqtrcon off
  1236.     .timerqtgetnext off
  1237.     did -e QTrcon 205
  1238.   }
  1239.   elseif (($did == 206) && ($did(QTrcon,205).sel != $null)) {
  1240.     unset %QTrcon.get
  1241.     unset %QTrcon.set
  1242.     .timerqtrcon off
  1243.     .timerqtgetnext off
  1244.     %QTrcon.cfg = 1
  1245.     did -b QTrcon 205
  1246.     cfgrcon
  1247.   }
  1248. }
  1249.  
  1250. on *:dialog:QTrcon:close:*: {
  1251.   unset %QTrcon.*
  1252.   sockclose QTrcon
  1253.   .timerqtrcon off
  1254.   .timerqtgetnext off
  1255. }
  1256.  
  1257. dialog -l QTFav {
  1258.   title "QTool Browser"
  1259.   size %qtfav.xpos %qtfav.ypos 511 418
  1260.   option pixels
  1261.   tab "Favourites", 125, 2 1 506 416
  1262.   combo 91, 5 30 140 160, tab 125 drop
  1263.   list 86, 5 53 499 342, tab 125
  1264.   button "Exit", 87, 423 389 80 22, tab 125 ok
  1265.   button "Add", 88, 152 389 100 22, tab 125
  1266.   button "Del", 89, 257 389 100 22, tab 125
  1267.   button "Get Players", 90, 5 389 120 22, tab 125
  1268.   button "move up", 129, 337 30 70 20, tab 125
  1269.   button "move down", 130, 412 30 70 20, tab 125
  1270.   tab "Serverlist", 126
  1271.   text "Show", 131, 5 33 30 15, tab 126
  1272.   combo 132, 35 30 100 180, tab 126 drop
  1273.   text "(saved) contain", 133, 138 33 80 15, tab 126
  1274.   edit "", 134, 219 30 150 20, tab 126
  1275.   button "Ok", 118, 376 30 50 20, tab 126 default
  1276.   check "RTCW", 171, 440 30 52 20, tab 126
  1277.   list 117, 5 53 499 342, tab 126 sort
  1278.   edit "", 119, 5 390 90 20, tab 126 read
  1279.   button "Update", 120, 103 389 90 22, tab 126
  1280.   button "Exit", 121, 423 389 80 22, tab 126
  1281.   button "Refresh", 127, 197 389 90 22, tab 126
  1282.   button "Stop", 128, 294 389 90 22, tab 126
  1283.   tab "Scanner", 56
  1284.   edit $ip, 64, 7 29 110 21, tab 56
  1285.   text "-", 65, 124 31 7 16, tab 56
  1286.   edit "", 66, 134 29 110 21, tab 56
  1287.   text ":", 67, 252 31 7 16, tab 56
  1288.   edit "27960", 68, 263 29 55 21, tab 56
  1289.   text "-", 69, 325 31 7 16, tab 56
  1290.   edit "28000", 70, 334 29 55 21, tab 56
  1291.   button "Start", 71, 410 29 75 22, tab 56
  1292.   list 72, 5 53 499 344, tab 56
  1293.   button "Exit", 73, 423 389 80 22, tab 56
  1294.   text "", 74, 7 391 200 16, tab 56
  1295.   edit "100", 75, 321 389 32 20, tab 56
  1296.   text "Timeout:", 76, 274 391 44 16, tab 56
  1297.   text "ms", 77, 360 391 18 16, tab 56
  1298.   tab "Demos", 1
  1299.   combo 3, 44 30 180 261, tab 1 drop
  1300.   text "Folder:", 5, 5 33 36 16, tab 1
  1301.   button "Exit", 7, 423 389 80 22, tab 1
  1302.   list 9, 5 53 499 342, tab 1 sort
  1303.   button "Play", 12, 6 389 80 22, tab 1
  1304.   button "Open folder", 19, 93 389 80 22, tab 1
  1305.   button "Selected to file browser", 17, 180 389 130 22, tab 1
  1306.   tab "Screenshots", 2
  1307.   combo 4, 44 30 180 264, tab 2 drop
  1308.   text "Folder:", 6, 5 33 38 16, tab 2
  1309.   button "Exit", 8, 423 389 80 22, tab 2
  1310.   list 10, 5 53 499 205, tab 2 sort
  1311.   icon 11, 6 245 213 160,  " $+ $scriptdir $+ qtool\preview.jpg", 0, tab 2
  1312.   button "View", 13, 225 246 80 22, tab 2
  1313.   button "Open folder", 20, 312 246 80 22, tab 2
  1314.   button "Selected to file browser", 18, 225 273 130 22, tab 2
  1315.   tab "Logfiles", 55
  1316.   button "View", 57, 6 389 80 22, tab 55
  1317.   button "Open folder", 58, 93 389 80 22, tab 55
  1318.   button "Selected to file browser", 59, 180 389 130 22, tab 55
  1319.   button "Exit", 60, 423 389 80 22, tab 55
  1320.   list 61, 5 53 499 342, tab 55 sort
  1321.   text "Folder:", 62, 5 33 36 15, tab 55
  1322.   combo 63, 44 30 180 261, tab 55 drop
  1323.   tab "File Browser", 16
  1324.   text "Search for matching files by", 22, 5 395 140 15, tab 16
  1325.   button "time", 23, 150 391 50 20, tab 16
  1326.   button "name", 24, 203 391 50 20, tab 16
  1327.   list 21, 5 277 499 127, tab 16 sort hsbar
  1328.   button "View", 15, 379 28 52 18, tab 16
  1329.   button "Open folder", 14, 436 28 65 18, tab 16
  1330.   text "Demo:", 25, 5 31 250 15, tab 16
  1331.   edit "", 26, 5 46 499 21, tab 16 read
  1332.   edit "", 27, 5 66 499 21, tab 16 read
  1333.   text "Screenshot:", 28, 5 91 250 15, tab 16
  1334.   edit "", 29, 5 106 499 21, tab 16 read
  1335.   edit "", 30, 4 126 499 21, tab 16 read
  1336.   text "Logfile:", 31, 5 151 250 15, tab 16
  1337.   edit "", 32, 5 166 499 21, tab 16 read
  1338.   edit "", 33, 5 185 499 21, tab 16 read
  1339.   text "Rename files to:", 34, 5 257 80 16, tab 16
  1340.   edit "", 35, 86 254 365 21, tab 16
  1341.   button "Ok", 36, 474 253 27 22, tab 16
  1342.   text "files to:", 37, 103 210 37 16, tab 16
  1343.   edit "", 38, 5 227 389 21, tab 16
  1344.   text ".*", 39, 455 257 16 16, tab 16
  1345.   button "Select folder", 40, 398 227 72 22, tab 16
  1346.   button "Ok", 41, 475 227 27 22, tab 16
  1347.   radio "Copy", 42, 5 207 48 20, tab 16
  1348.   radio "Move", 43, 53 207 47 20, tab 16
  1349.   button "View", 44, 379 88 52 18, tab 16
  1350.   button "Open folder", 45, 436 88 65 18, tab 16
  1351.   button "View", 46, 379 148 52 18, tab 16
  1352.   button "Open folder", 47, 436 148 65 18, tab 16
  1353.   button "Browse", 48, 310 28 52 18, tab 16
  1354.   button "Browse", 49, 310 88 52 18, tab 16
  1355.   button "Browse", 50, 310 148 52 18, tab 16
  1356.   button "Exit", 51, 423 389 80 22, tab 16
  1357.   button "Clear", 52, 264 28 40 18, tab 16
  1358.   button "Clear", 53, 264 88 40 18, tab 16
  1359.   button "Clear", 54, 264 148 40 18, tab 16
  1360. }
  1361.  
  1362. on *:dialog:QTFav:sclick:*: {
  1363.   if ($did == 88) {
  1364.     if ($did(QTool,13)) {
  1365.       addtofav
  1366.     }
  1367.   }
  1368.   elseif (($did == 89) && ($did(QTFav,86).sel != $null)) {
  1369.     write -dl $+ $did(QTFav,86).sel " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt"
  1370.     did -d QTFav 86 $did(QTFav,86).sel
  1371.   }
  1372.   elseif ($did == 90) { 
  1373.     %qtfav.count = 1
  1374.     favrefresh
  1375.   }
  1376.   if ($did == 86) {
  1377.     if ($window(@Lagometer) != $null) {
  1378.       window -c @Lagometer
  1379.       unset %lag.*
  1380.       sockclose lag
  1381.     }
  1382.     if ($dialog(QTrcon) != $null) {
  1383.       did -o QTrcon 142 1 $gettok($read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt", $did(QTFav, 86).sel),1,32)
  1384.       if ($gettok($did(QTFav, 86, $did(QTFav, 86).sel).text,-1,32) != $chr(41)) { did -o QTrcon 144 0 $gettok($did(QTFav, 86, $did(QTFav, 86).sel).text,-1,32) }
  1385.       else { did -d QTrcon 144 0 }
  1386.     }
  1387.     did -o QTool 13 0 $gettok($read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt", $did(QTFav, 86).sel),1,32)
  1388.     did -d QTool 35 0
  1389.     if ($gettok($did(QTFav, 86, $did(QTFav, 86).sel).text,-1,32) != $chr(41)) { did -o QTool 35 0 $gettok($did(QTFav, 86, $did(QTFav, 86).sel).text,-1,32) }
  1390.     qquery $gettok($read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt", $did(QTFav, 86).sel),1,32)
  1391.     .timerqtfavfromqtool -m 11 100 favrefone $did(QTFav, 86).sel
  1392.     dialog -v QTFav
  1393.   }
  1394.   elseif ($did == 91) {
  1395.     set %qtfav.mod $did(QTFav,91)
  1396.     writeini " $+ $scriptdir $+ qtool.ini" QTool qtfavmod %qtfav.mod
  1397.     %qtfav.count = 0
  1398.     .timerqtfavref off
  1399.     sockclose QTFav
  1400.     loadfav
  1401.   }
  1402.   elseif ($did == 120) {
  1403.     did -o QTFav 119 1 Updating...
  1404.     did -r QTFav 117
  1405.     did -b QTFav 118
  1406.     did -b QTFav 127
  1407.     did -b QTFav 171
  1408.     %svlist = 1
  1409.     msrefresh
  1410.   }
  1411.   elseif (($did == 121) || ($did == 7) || ($did == 8) || ($did == 51) || ($did == 60) || ($did == 73)) {
  1412.     writeini " $+ $scriptdir $+ qtool.ini" QTool favxpos $dialog(QTFav).x
  1413.     writeini " $+ $scriptdir $+ qtool.ini" QTool favypos $dialog(QTFav).y
  1414.     .timerqtfavref off
  1415.     .timerqtmsfromqtool off
  1416.     .timerqtscannertimeout off
  1417.     sockclose QTms
  1418.     sockclose QTFav
  1419.     sockclose QTgs
  1420.     sockclose QTmslist1
  1421.     sockclose QTmslist2
  1422.     sockclose QTScanner
  1423.     unset %qtfav.* 
  1424.     unset %svlist
  1425.     unset %ms.*
  1426.     .timerqtmslisttimeout off
  1427.     .timerqtmslisttimeout2 off
  1428.     if ($exists(%qt.delfile)) { .remove %qt.delfile }
  1429.     unset %qt.delfile
  1430.     qtfavclose
  1431.     dialog -x QTFav 
  1432.   }
  1433.   elseif ($did == 117) {
  1434.     if ($window(@Lagometer) != $null) {
  1435.       window -c @Lagometer
  1436.       unset %lag.*
  1437.       sockclose lag
  1438.     }
  1439.     .timerqtmsfromqtool off
  1440.     sockclose QTool
  1441.     did -o QTool 13 0 $gettok($did(QTFav, 117, $did(QTFav, 117).sel).text,4,32)
  1442.     qquery $gettok($did(QTFav, 117, $did(QTFav, 117).sel).text,4,32)
  1443.     .timerqtmsfromqtool -m 11 100 msrefone $did(QTFav, 117).sel
  1444.     did -d QTool 35 0
  1445.     dialog -v QTFav
  1446.   }
  1447.   elseif ($did == 127) {
  1448.     sockclose QTms
  1449.     sockclose QTgs
  1450.     sockclose QTmslist1
  1451.     sockclose QTmslist2
  1452.     unset %svlist
  1453.     unset %ms.*
  1454.     did -b QTFav 118
  1455.     did -b QTFav 120
  1456.     did -b QTFav 171
  1457.     %ms.count = -1
  1458.     mslistrefresh
  1459.   }
  1460.   elseif ($did == 128) {
  1461.     .timerqtmslisttimeout off
  1462.     .timerqtmslisttimeout2 off
  1463.     sockclose QTms
  1464.     sockclose QTgs
  1465.     sockclose QTmslist1
  1466.     sockclose QTmslist2
  1467.     unset %svlist
  1468.     unset %ms.*
  1469.     did -e QTFav 118
  1470.     did -e QTFav 120
  1471.     if ($did(QTFav,117,1) != $null) { did -e QTFav 127 }
  1472.     did -e QTFav 171
  1473.     .timerqtres2  1 1 did -o QTFav 119 1 Stopped!
  1474.   }
  1475.   elseif ($did == 129) { QTfavup }
  1476.   elseif ($did == 130) { QTfavdown }
  1477.   elseif ($did == 118) {
  1478.     .timerqtmslisttimeout off
  1479.     sockclose QTms
  1480.     sockclose QTgs
  1481.     sockclose QTmslist1
  1482.     sockclose QTmslist2
  1483.     unset %svlist
  1484.     unset %ms.*
  1485.     did -b QTFav 120
  1486.     did -b QTFav 127
  1487.     did -b QTFav 128
  1488.     did -b QTFav 171
  1489.     did -o QTFav 119 1 Loading...
  1490.     .timerqtmsload -m 1 500 msFilter
  1491.   }
  1492.   elseif ($did == 171) {
  1493.     did -r QTFav 117
  1494.     did -b QTFav 127
  1495.     if ($did(QTFav,171).state == 1) {
  1496.       did -r QTFav 132
  1497.       did -a QTFav 132 all
  1498.       var %i = 1
  1499.       var %temp1
  1500.       var #temp2
  1501.       while (%i <= $lines(" $+ $scriptdir $+ qtool\wgames.txt")) {
  1502.         %temp1 = $read(" $+ $scriptdir $+ qtool\wgames.txt",%i)
  1503.         if ($left(%temp1,1) == $chr(91)) { %temp2 = $remove(%temp1,$chr(91),$chr(93)) }
  1504.         else { did -a QTFav 132 %temp2 $gettok(%temp1,2,44) ( $+ $left(%temp1,1) $+ ) }
  1505.         inc %i
  1506.       }
  1507.       did -c QTFav 132 1
  1508.     }
  1509.     else {
  1510.       did -r QTFav 132
  1511.       did -a QTFav 132 all
  1512.       var %i = 1
  1513.       var %temp1
  1514.       var #temp2
  1515.       while (%i <= $lines(" $+ $scriptdir $+ qtool\q3games.txt")) {
  1516.         %temp1 = $read(" $+ $scriptdir $+ qtool\q3games.txt",%i)
  1517.         if ($left(%temp1,1) == $chr(91)) { %temp2 = $remove(%temp1,$chr(91),$chr(93)) }
  1518.         else { did -a QTFav 132 %temp2 $gettok(%temp1,2,44) ( $+ $left(%temp1,1) $+ ) }
  1519.         inc %i
  1520.       }
  1521.       did -c QTFav 132 1
  1522.     }
  1523.   }
  1524.   elseif ($did == 3) {
  1525.     did -r QTFav 9
  1526.     if ($gettok($did(QTFav,3).seltext,-1,32) == *) { var %tpath = " $+ $cudemo $+ " }
  1527.     else { var %tpath = " $+ $nofile($q3exe) $+ $did(QTFav,3) $+ \demos\" }
  1528.     var %i = $findfile(%tpath,*.dm*,0,did -a QTFav 9 $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92))
  1529.   }
  1530.   elseif ($did == 4) { 
  1531.     did -r QTFav 10,21
  1532.     did -g QTFav 11 " $+ $scriptdir $+ qtool\preview.jpg"
  1533.     if ($gettok($did(QTFav,4).seltext,-1,32) == *) { var %tpath = " $+ $csshot $+ " }
  1534.     else { var %tpath = " $+ $nofile($q3exe) $+ $did(QTFav,4) $+ \screenshots\" }
  1535.     var %i = $findfile(%tpath,*.jpg,0,did -a QTFav 10 $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92))
  1536.     var %i = $findfile(%tpath,*.tga,0,did -a QTFav 10 $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92))
  1537.   }
  1538.   elseif ($did == 10) {
  1539.     did -r QTFav 21
  1540.     if ($gettok($gettok($did(QTFav,10).seltext,3-,32),-1,46) == jpg) {
  1541.       if ($gettok($did(QTFav,4).seltext,-1,32) == *) { var %tpath = $csshot }
  1542.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,4) $+ \screenshots\ }
  1543.       did -g QTFav 11 " $+ %tpath $+ $gettok($did(QTFav,10).seltext,3-,32) $+ "
  1544.     }
  1545.     else {
  1546.       if ($gettok($did(QTFav,4).seltext,-1,32) == *) { var %tpath = $csshot }
  1547.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,4) $+ \screenshots\ }
  1548.       if ($dll(" $+ $scriptdir $+ qtool.dll",CONVERT,%tpath $+ $gettok($did(QTFav,10).seltext,3-,32) $+ ? $+ $scriptdir $+ qtool\prev_temp.jpg) == S_OK) {
  1549.         did -g QTFav 11 " $+ $scriptdir $+ qtool\prev_temp.jpg"
  1550.       }
  1551.       else did -g QTFav 11 " $+ $scriptdir $+ qtool\preview.jpg"
  1552.     }
  1553.   }
  1554.   elseif ($did == 12) {
  1555.     if ($did(QTFav,9).sel != $Null) {
  1556.       if ($gettok($did(QTFav,3).seltext,-1,32) == *) {
  1557.         dialog -ma QTDemoMod QTDemoMod
  1558.         var %i = $finddir(" $+ $nofile($q3exe) $+ ",demos,0,2,if ($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) did -a QTDemoMod 3 $gettok($1-,-2,92))
  1559.         did -c QTDemoMod 3 $DemoMod
  1560.       }
  1561.       else {
  1562.         run " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " +set fs_game $did(QTFav,3) $iif($dparams != $null,  [ $dparams ]) +demo $gettok($did(QTFav,9).seltext,3-,32)
  1563.       }
  1564.     }
  1565.   }
  1566.   elseif ($did == 19) {
  1567.     if ($did(QTFav,3) != $Null) {
  1568.       if ($gettok($did(QTFav,3).seltext,-1,32) == *) { var %tpath = $cudemo }
  1569.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,3) $+ \demos\ }
  1570.       run explorer /e, $+ $iif($did(QTFav,9).sel != $Null,/select $+ $chr(44) $+ " $+ %tpath $+ $gettok($did(QTFav,9).seltext,3-,32) $+ "," $+ %tpath $+ ")
  1571.     }
  1572.   }
  1573.   elseif ($did == 17) {
  1574.     if ($did(QTFav,3) != $Null) {
  1575.       if ($gettok($did(QTFav,3).seltext,-1,32) == *) { var %tpath = $cudemo }
  1576.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,3) $+ \demos\ }
  1577.       did -o QTFav 25 1 Demo: $gettok($did(QTFav,9).seltext,1,47)
  1578.       did -o QTFav 26 1 %tpath
  1579.       did -o QTFav 27 1 $right($gettok($did(QTFav,9).seltext,2,47),-1)
  1580.       did -f QTFav 16
  1581.     }
  1582.   }
  1583.   elseif ($did == 13) {
  1584.     if ($did(QTFav,10).sel != $Null) {
  1585.       if ($gettok($did(QTFav,4).seltext,-1,32) == *) { var %tpath = $csshot }
  1586.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,4) $+ \screenshots\ }
  1587.       run " $+ %tpath $+ $right($gettok($did(QTFav,10).seltext,2,47),-1) $+ "
  1588.     }
  1589.   }
  1590.   elseif ($did == 20) {
  1591.     if ($did(QTFav,4) != $Null) {
  1592.       if ($gettok($did(QTFav,4).seltext,-1,32) == *) { var %tpath = $csshot }
  1593.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,4) $+ \screenshots\ }
  1594.       run explorer /e, $+ $iif($did(QTFav,10).sel != $Null,/select $+ $chr(44) $+ " $+ %tpath $+ $right($gettok($did(QTFav,10).seltext,2,47),-1) $+ "," $+ %tpath $+ ")
  1595.     }
  1596.   }
  1597.   elseif ($did == 18) {
  1598.     if ($did(QTFav,10).sel != $Null) {
  1599.       if ($gettok($did(QTFav,4).seltext,-1,32) == *) { var %tpath = $csshot }
  1600.       else { var %tpath = $nofile($q3exe) $+ $did(QTFav,4) $+ \screenshots\ }
  1601.       did -o QTFav 28 1 Screenshot: $gettok($did(QTFav,10).seltext,1,47)
  1602.       did -o QTFav 29 1 %tpath
  1603.       did -o QTFav 30 1 $right($gettok($did(QTFav,10).seltext,2,47),-1)
  1604.       did -f QTFav 16
  1605.     }
  1606.   }
  1607.   elseif ($did == 23) {
  1608.     did -r QTFav 21
  1609.     if ($did(QTFav,27) != $null) {
  1610.       var %temp = $file($did(QTFav,26) $+ $did(QTFav,27)).ctime
  1611.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1612.       var %i = $findfile(" $+ $csshot $+ ",*.jpg,0,if (($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) $deltok($1-,-1,92) $+ \)
  1613.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1614.       var %i = $findfile(" $+ $csshot $+ ",*.tga,0,if (($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) $deltok($1-,-1,92) $+ \)
  1615.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1616.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92 /) $deltok($1-,-1,92) $+ \)
  1617.       var %i = $findfile(" $+ $csshot $+ ",*.txt",0,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1618.       var %i = $findfile(" $+ $csshot $+ ",*.log,0,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 1800))) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1619.       did -z QTFav 21
  1620.     }
  1621.     if ($did(QTFav,30) != $null) {
  1622.       var %temp = $file($did(QTFav,29) $+ $did(QTFav,30)).ctime
  1623.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 1800)) && ($file($1-).ctime <= $calc(%temp + 60))) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1624.       var %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,if (($file($1-).ctime >= $calc(%temp - 1800)) && ($file($1-).ctime <= $calc(%temp + 60))) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1625.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1626.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1627.       var %i = $findfile(" $+ $clog $+ ",*.txt",0,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1628.       var %i = $findfile(" $+ $clog $+ ",*.log,0,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1629.       did -z QTFav 21
  1630.     }
  1631.     if ($did(QTFav,33) != $null) {
  1632.       var %temp = $file($did(QTFav,32) $+ $did(QTFav,33)).ctime
  1633.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 1800)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1634.       var %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,if (($file($1-).ctime >= $calc(%temp - 1800)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1635.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1636.       var %i = $findfile(" $+ $csshot $+ ",*.jpg,0,if (($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1637.       var %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1638.       var %i = $findfile(" $+ $csshot $+ ",*.tga,0,if (($file($1-).ctime >= $calc(%temp - 60)) && ($file($1-).ctime <= $calc(%temp + 60))) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1639.       did -z QTFav 21
  1640.     }
  1641.   }
  1642.   elseif ($did == 24) {
  1643.     did -r QTFav 21
  1644.     if ($did(QTFav,27) != $null) {
  1645.       var %temp = $deltok($did(QTFav,27),-1,46)
  1646.       if ($wildtok($gettok(%temp,-1,45),??.??.??,0,45) > 0) && ($wildtok($gettok(%temp,-2,45),????.??.??,0,45) > 0) {
  1647.         %temp = $deltok(%temp,-1,45)
  1648.         var %temp3 = $gettok(%temp,-1,45)
  1649.         var %temp2 = * $+ $deltok(%temp,-1,45) $+ - $+ $asctime($calc($ctime(%temp3) + 86400),yyyy.mm.dd) $+ -??.??.??.jpg
  1650.         %temp = * $+ %temp $+ -??.??.??.jpg
  1651.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1652.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1653.         var  %i = $findfile(" $+ $csshot $+ ",*.jpg,0,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1654.         var  %i = $findfile(" $+ $csshot $+ ",*.jpg,0,if ($wildtok($1-,%temp2,0,32) > 0) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1655.         %temp = $deltok(%temp,-1,46) $+ .tga
  1656.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1657.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1658.         var  %i = $findfile(" $+ $csshot $+ ",*.tga,0,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1659.         var  %i = $findfile(" $+ $csshot $+ ",*.tga,0,if ($wildtok($1-,%temp2,0,32) > 0) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1660.         %temp = $deltok(%temp,-1,46) $+ .txt"
  1661.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1662.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1663.         var  %i = $findfile(" $+ $clog $+ ",*.txt",0,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1664.         var  %i = $findfile(" $+ $clog $+ ",*.txt",0,if ($wildtok($1-,%temp2,0,32) > 0) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1665.         %temp = $deltok(%temp,-1,46) $+ .log
  1666.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1667.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1668.         var  %i = $findfile(" $+ $clog $+ ",*.log,0,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1669.         var  %i = $findfile(" $+ $clog $+ ",*.log,0,if ($wildtok($1-,%temp2,0,32) > 0) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1670.         did -z QTFav 21
  1671.       }
  1672.       else { 
  1673.         %temp = * $+ %temp $+ *.jpg
  1674.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1675.         var  %i = $findfile(" $+ $csshot $+ ",*.jpg,0,3,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1676.         %temp = $deltok(%temp,-1,46) $+ .tga
  1677.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1678.         var  %i = $findfile(" $+ $csshot $+ ",*.tga,0,3,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1679.         %temp = $deltok(%temp,-1,46) $+ .txt"
  1680.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1681.         var  %i = $findfile(" $+ $csshot $+ ",*.txt",0,3,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1682.         %temp = $deltok(%temp,-1,46) $+ .log
  1683.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1684.         var  %i = $findfile(" $+ $csshot $+ ",*.log,0,3,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1685.         did -z QTFav 21
  1686.       }
  1687.     }
  1688.     if ($did(QTFav,30) != $null) {
  1689.       var %temp = $deltok($did(QTFav,30),-1,46)
  1690.       if ($wildtok($gettok(%temp,-1,45),??.??.??,0,45) > 0) && ($wildtok($gettok(%temp,-2,45),????.??.??,0,45) > 0) {
  1691.         %temp = $deltok(%temp,-1,45)
  1692.         var %temp3 = $gettok(%temp,-1,45)
  1693.         var %temp2 = * $+ $deltok(%temp,-1,45) $+ - $+ $asctime($calc($ctime(%temp3) - 86400),yyyy.mm.dd) $+ -??.??.??.dm*
  1694.         %temp = * $+ %temp $+ -??.??.??.dm*
  1695.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1696.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1697.         var  %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1698.         var  %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,if ($wildtok($1-,%temp2,0,32) > 0) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1699.         %temp = $deltok(%temp,-1,46) $+ .txt"
  1700.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1701.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1702.         var  %i = $findfile(" $+ $clog $+ ",*.txt",0,if ($wildtok($1-,%temp,0,32) > 0) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1703.         var  %i = $findfile(" $+ $clog $+ ",*.txt",0,if ($wildtok($1-,%temp2,0,32) > 0) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1704.         %temp = $deltok(%temp,-1,46) $+ .log
  1705.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1706.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1707.         var  %i = $findfile(" $+ $clog $+ ",*.log,0,if ($wildtok($1-,%temp,0,32) > 0) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1708.         var  %i = $findfile(" $+ $clog $+ ",*.log,0,if ($wildtok($1-,%temp2,0,32) > 0) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1709.         did -z QTFav 21
  1710.       }
  1711.       else { 
  1712.         %temp = * $+ %temp $+ *.dm*
  1713.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1714.         var  %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,3,if ($wildtok($1-,%temp,0,32) > 0) did -a QTFav 21 D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1715.         %temp = $deltok(%temp,-1,46) $+ .txt"
  1716.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.txt",0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1717.         var  %i = $findfile(" $+ $csshot $+ ",*.txt",0,3,if ($wildtok($1-,%temp,0,32) > 0) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1718.         %temp = $deltok(%temp,-1,46) $+ .log
  1719.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.log,0,4,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1720.         var  %i = $findfile(" $+ $csshot $+ ",*.log,0,3,if ($wildtok($1-,%temp,0,32) > 0) dlines L $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1721.         did -z QTFav 21
  1722.       }
  1723.     }
  1724.     if ($did(QTFav,33) != $null) {
  1725.       var %temp = $deltok($did(QTFav,33),-1,46)
  1726.       if ($wildtok($gettok(%temp,-1,45),??.??.??,0,45) > 0) && ($wildtok($gettok(%temp,-2,45),????.??.??,0,45) > 0) {
  1727.         %temp = $deltok(%temp,-1,45)
  1728.         var %temp3 = $gettok(%temp,-1,45)
  1729.         var %temp2 = * $+ $deltok(%temp,-1,45) $+ - $+ $asctime($calc($ctime(%temp3) - 86400),yyyy.mm.dd) $+ -??.??.??.dm*
  1730.         %temp = * $+ %temp $+ -??.??.??.dm*
  1731.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1732.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1733.         var  %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,if ($wildtok($1-,%temp,0,32) > 0) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1734.         var  %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,if ($wildtok($1-,%temp2,0,32) > 0) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1735.         %temp = $deltok(%temp,-1,46) $+ .jpg
  1736.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1737.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1738.         var  %i = $findfile(" $+ $csshot $+ ",*.jpg,0,if ($wildtok($1-,%temp,0,32) > 0) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1739.         var  %i = $findfile(" $+ $csshot $+ ",*.jpg,0,if ($wildtok($1-,%temp2,0,32) > 0) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1740.         %temp = $deltok(%temp,-1,46) $+ .tga
  1741.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1742.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp2,0,32) > 0)) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1743.         var  %i = $findfile(" $+ $csshot $+ ",*.tga,0,if ($wildtok($1-,%temp,0,32) > 0) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1744.         var  %i = $findfile(" $+ $csshot $+ ",*.tga,0,if ($wildtok($1-,%temp2,0,32) > 0) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1745.         did -z QTFav 21
  1746.       }
  1747.       else { 
  1748.         %temp = * $+ %temp $+ *.dm*
  1749.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.dm*,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1750.         var  %i = $findfile(" $+ $cudemo $+ ",*.dm*,0,3,if ($wildtok($1-,%temp,0,32) > 0) dlines D $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1751.         %temp = $deltok(%temp,-1,46) $+ .jpg
  1752.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.jpg,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1753.         var  %i = $findfile(" $+ $csshot $+ ",*.jpg,0,3,if ($wildtok($1-,%temp,0,32) > 0) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1754.         %temp = $deltok(%temp,-1,46) $+ .tga
  1755.         var  %i = $findfile(" $+ $nofile($q3exe) $+ ",*.tga,0,3,if (($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) && ($gettok($1-,-3,92) != $gettok($q3exe,-2,92)) && ($wildtok($1-,%temp,0,32) > 0)) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1756.         var  %i = $findfile(" $+ $csshot $+ ",*.tga,0,3,if ($wildtok($1-,%temp,0,32) > 0) dlines S $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1757.         did -z QTFav 21
  1758.       }
  1759.     }
  1760.   }
  1761.   elseif ($did == 52) {
  1762.     did -o QTfav 25 1 Demo:
  1763.     did -r QTFav 26
  1764.     did -r QTFav 27
  1765.   }
  1766.   elseif ($did == 53) {
  1767.     did -o QTFav 28 1 Screenshot:
  1768.     did -r QTFav 29
  1769.     did -r QTFav 30
  1770.   }
  1771.   elseif ($did == 54) {
  1772.     did -o QTFav 31 1 Logfile:
  1773.     did -r QTFav 32
  1774.     did -r QTFav 33
  1775.   }
  1776.   elseif ($did == 48) {
  1777.     var %file = $sfile($iif($cudemo != $null,$cudemo,c:\),Select demo,OK)
  1778.     if (%file) { 
  1779.       did -o QTFav 25 1 Demo: $asctime($file(%file).ctime,yy-mm-dd-HH:nn)
  1780.       did -o QTFav 26 1 $nofile(%file)
  1781.       did -o QTFav 27 1 $nopath(%file)
  1782.     }
  1783.   }
  1784.   elseif ($did == 49) {
  1785.     var %file = $sfile($iif($csshot != $null,$csshot,c:\),Select screenshot,OK)
  1786.     if (%file) { 
  1787.       did -o QTFav 28 1 Screenshot: $asctime($file(%file).ctime,yy-mm-dd-HH:nn)
  1788.       did -o QTFav 29 1 $nofile(%file)
  1789.       did -o QTFav 30 1 $nopath(%file)
  1790.     }
  1791.   }
  1792.   elseif ($did == 50) {
  1793.     var %file = $sfile($iif($q3exe != $null,$nofile($q3exe),c:\),Select logfile,OK)
  1794.     if (%file) { 
  1795.       did -o QTFav 31 1 Logfile: $asctime($file(%file).ctime,yy-mm-dd-HH:nn)
  1796.       did -o QTFav 32 1 $nofile(%file)
  1797.       did -o QTFav 33 1 $nopath(%file)
  1798.     }
  1799.   }
  1800.   elseif ($did == 14) {
  1801.     if ($did(QTFav,27) != $null) {
  1802.       run explorer /e,/select," $+ $did(QTFav,26) $+ $did(QTFav,27) $+ "
  1803.     }
  1804.   }
  1805.   elseif ($did == 45) {
  1806.     if ($did(QTFav,30) != $null) {
  1807.       run explorer /e,/select," $+ $did(QTFav,29) $+ $did(QTFav,30) $+ "
  1808.     }
  1809.   }
  1810.   elseif ($did == 47) {
  1811.     if ($did(QTFav,33) != $null) {
  1812.       run explorer /e,/select," $+ $did(QTFav,32) $+ $did(QTFav,33) $+ "
  1813.     }
  1814.   }
  1815.   elseif ($did == 15) {
  1816.     if ($did(QTFav,27) != $null) {
  1817.       if (($deltok($did(QTFav,26),-2-,92) $+ \ == $nofile($q3exe)) && ($gettok($did(QTFav,26),-1,92) == demos)) {
  1818.         run " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " +set fs_game $gettok($did(QTFav,26),-2,92) $iif($dparams != $null,  [ $dparams ]) +demo $did(QTFav,27)
  1819.       }
  1820.       else {
  1821.         dialog -ma QTDemoMod2 QTDemoMod2
  1822.         var %i = $finddir($nofile($q3exe),demos,0,2,if ($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) did -a QTDemoMod2 3 $gettok($1-,-2,92))
  1823.         did -c QTDemoMod2 3 $DemoMod
  1824.       }
  1825.     }
  1826.     else {
  1827.       dialog -ma QTDemoMod2 QTDemoMod2
  1828.       var %i = $finddir($nofile($q3exe),demos,0,2,if ($gettok($1-,-2,92) != $gettok($q3exe,-2,92)) did -a QTDemoMod2 3 $gettok($1-,-2,92))
  1829.       did -c QTDemoMod2 3 $DemoMod
  1830.     }
  1831.   }
  1832.   elseif ($did == 44) {
  1833.     if (($did(QTFav,29) != $null) && ($did(QTFav,30) != $null)) {
  1834.       run " $+ $did(QTFav,29) $+ $did(QTFav,30) $+ "
  1835.     }
  1836.   }
  1837.   elseif ($did == 46) {
  1838.     if (($did(QTFav,32) != $null) && ($did(QTFav,33) != $null)) {
  1839.       run " $+ $did(QTFav,32) $+ $did(QTFav,33) $+ "
  1840.     }
  1841.   }
  1842.   elseif ($did == 40) {
  1843.     var %path = $sdir($iif($q3exe != $null,$nofile($q3exe),c:\),Select folder)
  1844.     if (%path) {
  1845.       did -o QTFav 38 1 %path
  1846.     }
  1847.   }
  1848.   elseif ($did == 21) {
  1849.     if ($gettok($did(QTFav,21).seltext,1,32) == D) {
  1850.       did -o QTFav 25 1 Demo: $gettok($did(QTFav,21).seltext,2,32)
  1851.       did -o QTFav 26 1 $right($gettok($did(QTFav,21).seltext,3,47),-1)
  1852.       did -o QTFav 27 1 $right($gettok($did(QTFav,21).seltext,2,47),-1)
  1853.     }
  1854.     if ($gettok($did(QTFav,21).seltext,1,32) == L) {
  1855.       did -o QTFav 31 1 Logfile: $gettok($did(QTFav,21).seltext,2,32)
  1856.       did -o QTFav 32 1 $right($gettok($did(QTFav,21).seltext,3,47),-1)
  1857.       did -o QTFav 33 1 $right($gettok($did(QTFav,21).seltext,2,47),-1)
  1858.     }
  1859.     if ($gettok($did(QTFav,21).seltext,1,32) == S) {
  1860.       did -o QTFav 28 1 Screenshot: $gettok($did(QTFav,21).seltext,2,32)
  1861.       did -o QTFav 29 1 $right($gettok($did(QTFav,21).seltext,3,47),-1)
  1862.       did -o QTFav 30 1 $right($gettok($did(QTFav,21).seltext,2,47),-1)
  1863.     }
  1864.   }
  1865.   elseif ($did == 63) { 
  1866.     did -r QTFav 61
  1867.     if ($gettok($did(QTFav,63).seltext,-1,32) == *) { var %tpath = " $+ $clog $+ " }
  1868.     else { var %tpath = " $+ $nofile($q3exe) $+ $did(QTFav,63).seltext $+ \" }
  1869.     var %i = $findfile(%tpath,*.txt,0,did -a QTFav 61 $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1870.     var %i = $findfile(%tpath,*.log,0,did -a QTFav 61 $asctime($file($1-).ctime,yy-mm-dd-HH:nn) / $gettok($1-,-1,92) / $deltok($1-,-1,92) $+ \)
  1871.   }
  1872.   elseif ($did == 57) {
  1873.     if ($did(QTFav,61).sel != $Null) {
  1874.       run " $+ $right($gettok($did(QTFav,61).seltext,3,47),-1) $+ $mid($gettok($did(QTFav,61).seltext,2,47),2,-1) $+ "
  1875.     }
  1876.   }
  1877.   elseif ($did == 58) {
  1878.     if ($did(QTFav,61).sel != $Null) {
  1879.       run explorer /e,/select," $+ $right($gettok($did(QTFav,61).seltext,3,47),-1) $+ $mid($gettok($did(QTFav,61).seltext,2,47),2,-1) $+ "
  1880.     }
  1881.   }
  1882.   elseif ($did == 59) {
  1883.     if ($did(QTFav,61).sel != $Null) {
  1884.       did -o QTFav 31 1 Logfile: $gettok($did(QTFav,61).seltext,1,47)
  1885.       did -o QTFav 32 1 $right($gettok($did(QTFav,61).seltext,3,47),-1)
  1886.       did -o QTFav 33 1 $mid($gettok($did(QTFav,61).seltext,2,47),2,-1)
  1887.       did -f QTFav 16
  1888.     }
  1889.   }
  1890.   elseif ($did == 36) {
  1891.     if ($did(QTFav,35) != $Null) {
  1892.       did -r QTFav 21
  1893.       if ($did(QTFav,27) != $Null) {
  1894.         rename " $+ $did(QTFav,26) $+ $did(QTFav,27) $+ " " $+ $did(QTFav,26) $+ $did(QTFav,35) $+ . $+ $gettok($did(QTFav,27),-1,46) $+ "
  1895.         did -o QTFav 27 1 $did(QTFav,35) $+ . $+ $gettok($did(QTFav,27),-1,46)
  1896.       }
  1897.       if ($did(QTFav,30) != $Null) {
  1898.         rename " $+ $did(QTFav,29) $+ $did(QTFav,30) $+ " " $+ $did(QTFav,29) $+ $did(QTFav,35) $+ . $+ $gettok($did(QTFav,30),-1,46) $+ "
  1899.         did -o QTFav 30 1 $did(QTFav,35) $+ . $+ $gettok($did(QTFav,30),-1,46)
  1900.       }
  1901.       if ($did(QTFav,33) != $Null) {
  1902.         rename " $+ $did(QTFav,32) $+ $did(QTFav,33) $+ " " $+ $did(QTFav,32) $+ $did(QTFav,35) $+ . $+ $gettok($did(QTFav,33),-1,46) $+ "
  1903.         did -o QTFav 33 1 $did(QTFav,35) $+ . $+ $gettok($did(QTFav,33),-1,46)
  1904.       }
  1905.     }
  1906.   }
  1907.   elseif ($did == 41) {
  1908.     if ($did(QTFav,38) != $null) {
  1909.       did -r QTFav 21
  1910.       if ($did(QTFav,42).state == 1) { 
  1911.         if ($did(QTFav,27) != $Null) {
  1912.           .copy " $+ $did(QTFav,26) $+ $did(QTFav,27) $+ " " $+ $did(QTFav,38) $+ $did(QTFav,27) $+ "
  1913.           did -o QTFav 26 1 $did(QTFav,38)
  1914.         }
  1915.         if ($did(QTFav,30) != $Null) {
  1916.           .copy " $+ $did(QTFav,29) $+ $did(QTFav,30) $+ " " $+ $did(QTFav,38) $+ $did(QTFav,30) $+ "
  1917.           did -o QTFav 29 1 $did(QTFav,38)
  1918.         }
  1919.         if ($did(QTFav,33) != $Null) {
  1920.           .copy " $+ $did(QTFav,32) $+ $did(QTFav,33) $+ " " $+ $did(QTFav,38) $+ $did(QTFav,33) $+ "
  1921.           did -o QTFav 32 1 $did(QTFav,38)
  1922.         }
  1923.       }
  1924.       if ($did(QTFav,43).state == 1) { 
  1925.         if ($did(QTFav,27) != $Null) {
  1926.           rename " $+ $did(QTFav,26) $+ $did(QTFav,27) $+ " " $+ $did(QTFav,38) $+ $did(QTFav,27) $+ "
  1927.           did -o QTFav 26 1 $did(QTFav,38)
  1928.         }
  1929.         if ($did(QTFav,30) != $Null) {
  1930.           rename " $+ $did(QTFav,29) $+ $did(QTFav,30) $+ " " $+ $did(QTFav,38) $+ $did(QTFav,30) $+ "
  1931.           did -o QTFav 29 1 $did(QTFav,38)
  1932.         }
  1933.         if ($did(QTFav,33) != $Null) {
  1934.           rename " $+ $did(QTFav,32) $+ $did(QTFav,33) $+ " " $+ $did(QTFav,38) $+ $did(QTFav,33) $+ "
  1935.           did -o QTFav 32 1 $did(QTFav,38)
  1936.         }
  1937.       }
  1938.     }
  1939.   }
  1940.   elseif ($did == 71) { 
  1941.     if ($did(QTFav,71) == Start) { 
  1942.       QTScanner 
  1943.       did -o QTFav 71 1 Stop
  1944.     }
  1945.     else {
  1946.       .timerqtscannertimeout off
  1947.       sockclose QTScanner
  1948.       did -o QTFav 71 1 Start
  1949.     }
  1950.   }
  1951.   elseif ($did == 72) {
  1952.     if ($window(@Lagometer) != $null) {
  1953.       window -c @Lagometer
  1954.       unset %lag.*
  1955.       sockclose lag
  1956.     }
  1957.     sockclose QTool
  1958.     did -o QTool 13 0 $gettok($did(QTFav, 72, $did(QTFav, 72).sel).text,1,32)
  1959.     qquery $gettok($did(QTFav, 72, $did(QTFav, 72).sel).text,1,32)
  1960.     did -d QTool 35 0
  1961.     dialog -v QTFav
  1962.   }
  1963. }
  1964.  
  1965. on *:dialog:QTFav:dclick:*: {
  1966.   if (($did == 86) || ($did == 117) || ($did == 72)) { 
  1967.     writeini " $+ $scriptdir $+ qtool.ini" QTool favxpos $dialog(QTFav).x
  1968.     writeini " $+ $scriptdir $+ qtool.ini" QTool favypos $dialog(QTFav).y
  1969.     .timerqtfavref off
  1970.     .timerqtmsfromqtool off
  1971.     sockclose QTms
  1972.     sockclose QTFav
  1973.     sockclose QTgs
  1974.     sockclose QTmslist1
  1975.     sockclose QTmslist2
  1976.     unset %qtfav.* 
  1977.     unset %svlist
  1978.     unset %ms.*
  1979.     .timerqtmslisttimeout off
  1980.     .timerqtmslisttimeout2 off
  1981.     qtfavclose
  1982.     dialog -x QTFav 
  1983.   }
  1984. }
  1985.  
  1986. on *:dialog:QTFav:close:*: {
  1987.   qtfavclose
  1988. }
  1989.  
  1990. alias -l QTScanner {
  1991.   if (($longip($did(QTFav,64)) isnum) && ($did(QTFav,68) isnum) && (($longip($did(QTFav,66)) isnum) || ($did(QTFav,66) == $Null)) && (($did(QTFav,70) isnum) || ($did(QTFav,70) == $Null))) {
  1992.     did -r QTFav 72
  1993.     %qt.scan.startip = $longip($did(QTFav,64))
  1994.     %qt.scan.stopip = $iif($did(QTFav,66) != $Null,$longip($did(QTFav,66)),$longip($did(QTFav,64)))
  1995.     %qt.scan.startport = $did(QTFav,68)
  1996.     %qt.scan.stopport = $iif($did(QTFav,70) != $Null,$did(QTFav,70),$did(QTFav,68))
  1997.     if (%qt.scan.stopip < %qt.scan.startip) { %qt.scan.stopip = %qt.scan.startip }
  1998.     if (%qt.scan.stopport < %qt.scan.startport) { %qt.scan.stopport = %qt.scan.startport }
  1999.     var %i = %qt.scan.startport
  2000.     %qt.scan.ip = %qt.scan.startip
  2001.     %qt.scan.port = %qt.scan.startport
  2002.     sockudp -k QTScanner $longip(%qt.scan.ip) %qt.scan.port $str($chr(255),4) $+ getinfo
  2003.     did -o QTFav 74 1 $longip(%qt.scan.ip) $+ : $+ %qt.scan.port
  2004.     if ($did(QTFAV,75) !isnum) { did -o QTFav 75 1 150 }
  2005.     .timerqtscannertimeout -m 1 $did(QTFav,75) qtscannertimeout
  2006.   }
  2007. }
  2008.  
  2009. alias -l qtscannertimeout {
  2010.   sockclose QTScanner
  2011.   if (%qt.scan.port < %qt.scan.stopport) { inc %qt.scan.port }
  2012.   else {
  2013.     %qt.scan.port = %qt.scan.startport 
  2014.     if (%qt.scan.ip < %qt.scan.stopip) { inc %qt.scan.ip }
  2015.     else { 
  2016.       unset %qt.scan.*
  2017.       did -o QTFav 71 1 Start
  2018.       return
  2019.     }
  2020.   }
  2021.   sockudp -k QTScanner $longip(%qt.scan.ip) %qt.scan.port $str($chr(255),4) $+ getinfo
  2022.   did -o QTFav 74 1 $longip(%qt.scan.ip) $+ : $+ %qt.scan.port
  2023.   if ($did(QTFAV,75) !isnum) { did -o QTFav 75 1 150 }
  2024.   .timerqtscannertimeout -m 1 $did(QTFav,75) qtscannertimeout
  2025. }
  2026.  
  2027. on *:udpread:QTScanner: {
  2028.   var %temp
  2029.   sockread %temp
  2030.   if ($left(%temp,4) == $str($chr(255),4)) {
  2031.     .timerqtscannertimeout off
  2032.     sockread -f %temp
  2033.     %temp = $remove(%temp,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,,|)
  2034.     if $istok(%temp,hostname,92) { %temp = $gettok(%temp, $calc($findtok(%temp, hostname, 1, 92) + 1), 92) }
  2035.     did -a QTFav 72 $sock($sockname).saddr $+ : $+ $sock($sockname).sport %temp
  2036.     sockclose QTScanner
  2037.     if (%qt.scan.port < %qt.scan.stopport) { inc %qt.scan.port }
  2038.     else {
  2039.       %qt.scan.port = %qt.scan.startport 
  2040.       if (%qt.scan.ip < %qt.scan.stopip) { inc %qt.scan.ip }
  2041.       else { 
  2042.         unset %qt.scan.*
  2043.         did -o QTFav 71 1 Start
  2044.         return
  2045.       }
  2046.     }
  2047.     sockudp -k QTScanner $longip(%qt.scan.ip) %qt.scan.port $str($chr(255),4) $+ getinfo
  2048.     did -o QTFav 74 1 $longip(%qt.scan.ip) $+ : $+ %qt.scan.port
  2049.     if ($did(QTFAV,75) !isnum) { did -o QTFav 75 1 150 }
  2050.     .timerqtscannertimeout -m 1 $did(QTFav,75) qtscannertimeout
  2051.   }
  2052. }
  2053.  
  2054. alias -l qtfavclose {
  2055.   writeini " $+ $scriptdir $+ qtool.ini" QTool favxpos $dialog(QTFav).x
  2056.   writeini " $+ $scriptdir $+ qtool.ini" QTool favypos $dialog(QTFav).y
  2057.   .timerqtfavref off
  2058.   .timerqtmsfromqtool off
  2059.   .timerqtscannertimeout off
  2060.   sockclose QTms
  2061.   sockclose QTFav
  2062.   sockclose QTgs
  2063.   sockclose QTmslist1
  2064.   sockclose QTmslist2
  2065.   sockclose QTScanner
  2066.   unset %qtfav.* 
  2067.   unset %svlist
  2068.   unset %ms.*
  2069.   .timerqtmslisttimeout off
  2070.   .timerqtmslisttimeout2 off
  2071.   if ($exists(%qt.delfile)) { .remove %qt.delfile }
  2072.   unset %qt.delfile
  2073.   if $did(QTFav,171).state { writeini " $+ $scriptdir $+ qtool.ini" QTool rtcwlist $did(QTFav,171).state }
  2074.   else { remini " $+ $scriptdir $+ qtool.ini" QTool rtcwlist }
  2075. }
  2076.  
  2077. alias -l dlines {
  2078.   var %j = 1
  2079.   var %temp = 0
  2080.   while (%j <= $did(QTFav,21).lines) {
  2081.     if ($did(QTFav,21,%j) == $1-) { inc %temp }
  2082.     inc %j
  2083.   }
  2084.   if (%temp = 0) { did -a QTFav 21 $1- }
  2085. }
  2086.  
  2087. dialog -l QTDemoMod {
  2088.   title "Choose Mod for demo"
  2089.   size -1 -1 173 48
  2090.   option pixels
  2091.   button "OK", 1, 6 26 75 20, default
  2092.   button "Cancel", 2, 90 26 75 20, ok
  2093.   combo 3, 2 1 169 110, size drop
  2094. }
  2095.  
  2096. on *:dialog:QTDemoMod:sclick:*: {
  2097.   if ($did == 1) {
  2098.     if $did(QTDemoMod,3) {
  2099.       if ((%qt.delfile != $null) && ($exists(%qt.delfile))) { .remove %qt.delfile }
  2100.       .copy -o " $+ $cudemo $+ $gettok($did(QTFav,9).seltext,3-,32) $+ " " $+ $nofile($q3exe) $+ $did(QTDemoMod,3).seltext $+ \demos\qtool_tmp. $+ $gettok($did(QTFav,9).seltext,-1,46) $+ "
  2101.       %qt.delfile = " $+ $nofile($q3exe) $+ $did(QTDemoMod,3).seltext $+ \demos\qtool_tmp. $+ $gettok($did(QTFav,9).seltext,-1,46) $+ "
  2102.       writeini " $+ $scriptdir $+ qtool.ini" QTool cDemoMod $did(QTDemoMod,3).sel
  2103.       run " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " +set fs_game $did(QTDemoMod,3).seltext $iif($dparams != $null,  [ $dparams ]) +demo qtool_tmp. $+ $gettok($did(QTFav,9).seltext,-1,46)
  2104.     }
  2105.     dialog -x QTDemoMod
  2106.   }
  2107. }
  2108.  
  2109. dialog -l QTDemoMod2 {
  2110.   title "Choose Mod for demo"
  2111.   size -1 -1 173 48
  2112.   option pixels
  2113.   button "OK", 1, 6 26 75 20, default
  2114.   button "Cancel", 2, 90 26 75 20, ok
  2115.   combo 3, 2 1 169 110, size drop
  2116. }
  2117.  
  2118. on *:dialog:QTDemoMod2:sclick:*: {
  2119.   if ($did == 1) {
  2120.     if $did(QTDemoMod2,3) {
  2121.       if ((%qt.delfile != $null) && ($exists(%qt.delfile))) { .remove %qt.delfile }
  2122.       .copy -o " $+ $did(QTFav,26) $+ $did(QTFav,27) $+ " " $+ $nofile($q3exe) $+ $did(QTDemoMod2,3).seltext $+ \demos\qtool_tmp. $+ $gettok($did(QTFav,27),-1,46) $+ "
  2123.       %qt.delfile = " $+ $nofile($q3exe) $+ $did(QTDemoMod2,3).seltext $+ \demos\qtool_tmp. $+ $gettok($did(QTFav,27),-1,46) $+ "
  2124.       writeini " $+ $scriptdir $+ qtool.ini" QTool cDemoMod $did(QTDemoMod2,3).sel
  2125.       run " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " +set fs_game $did(QTDemoMod2,3).seltext $iif($dparams != $null,  [ $dparams ]) +demo qtool_tmp. $+ $gettok($did(QTFav,27),-1,46)
  2126.     }
  2127.     dialog -x QTDemoMod2
  2128.   }
  2129. }
  2130.  
  2131. alias -l msFilter {
  2132.   var %z = 1
  2133.   var %temp = " $+ $scriptdir $+ qtool\ $+ $iif($did(QTfav,171).state == 1, w) $+ masterlist.txt"
  2134.   var %temp2
  2135.   if ($dialog(QTfav) == $null) { return }
  2136.   did -r QTFav 117
  2137.   if ($did(QTFav,132,$did(QTFav,132).sel) == all) {
  2138.     while (%z <= $lines(%temp)) {
  2139.       %temp2 = $read(%temp,%z)
  2140.       if ($wildtok(%temp2,* $+ $did(QTfav,134) $+ *,0,32) != 0) {
  2141.         did -a QTFav 117 %temp2
  2142.       }
  2143.       inc %z
  2144.     }
  2145.   }
  2146.   else {
  2147.     while (%z <= $lines(%temp)) {
  2148.       %temp2 = $read(%temp,%z)
  2149.       if (($gettok(%temp2,1,32) == $gettok($did(QTFav,132,$did(QTFav,132).sel),1,32)) && ($gettok(%temp2,2,32) == $remove($gettok($did(QTFav,132,$did(QTFav,132).sel),3,32),$chr(40),$chr(41))) && ($wildtok(%temp2,* $+ $did(QTfav,134) $+ *,0,32) != 0)) {
  2150.         did -a QTFav 117 %temp2
  2151.       }
  2152.       inc %z
  2153.     }
  2154.   }
  2155.   did -e QTFav 120
  2156.   did -e QTFav 128
  2157.   did -e QTFav 171
  2158.   if ($did(QTFav,117,1) != $null) { did -e QTFav 127 }
  2159.   did -o QTfav 119 1 Ready!
  2160. }
  2161.  
  2162. alias -l favrefone {
  2163.   if (($dialog(QTfav) == $null) || ($dialog(QTool) == $null)) { 
  2164.     .timerqtmsfromqtool off
  2165.     return 
  2166.   }
  2167.   if ($did(QTool,27) == $null) { return }
  2168.   else { .timerqtfavfromqtool off }
  2169.   if (($gettok($did(QTfav,86,$1),1,32) == $did(Qtool,13)) || ($gettok($did(QTfav,86,$1),3,32) == $did(Qtool,13))) {
  2170.     did -o QTfav 86 $1 $did(QTool,27) $+ / $+ $calc($did(QTool,23) - $did(QTool,25)) - $did(QTool,13) ( $did(QTool,15) ) $iif($did(QTool,35),$did(QTool,35))
  2171.     did -c QTfav 86 $1
  2172.     write -l $+ $1 " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt" $did(QTool,13) ( $did(QTool,15) ) $iif($did(QTool,35),$did(QTool,35))
  2173.   }
  2174. }
  2175.  
  2176. alias -l msrefone {
  2177.   var %temp
  2178.   var %temp2
  2179.   var %temp3 = " $+ $scriptdir $+ qtool\ $+ $iif($did(QTfav,171).state == 1, w) $+ masterlist.txt"
  2180.   if ($dialog(QTfav) == $null) || ($dialog(QTool) == $null) { 
  2181.     .timerqtmsfromqtool off
  2182.     return 
  2183.   }
  2184.   if ($did(QTool,15) == $null) { return }
  2185.   else { .timerqtmsfromqtool off }
  2186.   if (($gettok($did(QTfav,117,$1),4,32) == $did(Qtool,13))) {
  2187.     %temp = $iif($did(QTool,21).text != $Null,$did(QTool,21).text,x) %qt.gametype
  2188.     %temp2 = * $+ $gettok($did(QTfav,117,$1),4,32) $+ *
  2189.     if ($did(Qtool,29) < 100) {
  2190.       did -o QTfav 117 $1 %temp 0 $+ $did(Qtool,29) $did(Qtool,13) ( $remove($did(Qtool,15),|,) )
  2191.     }
  2192.     else {
  2193.       did -o QTfav 117 $1 %temp $did(Qtool,29) $did(Qtool,13) ( $remove($did(Qtool,15),|,) )
  2194.     }
  2195.     did -c QTfav 117 $1
  2196.     if ( $read(%temp3, w,%temp2) != $null) {
  2197.       write -l $+ $readn %temp3 $did(QTfav,117,$1)
  2198.     }
  2199.     else {
  2200.       write -a %temp3 $did(QTfav,117,$1)
  2201.     }
  2202.   }
  2203. }
  2204.  
  2205. on *:udpread:QTmslist?: {
  2206.   var %temp
  2207.   var %temp2
  2208.   var %temp3 = " $+ $scriptdir $+ qtool\ $+ $iif($did(QTfav,171).state == 1, w) $+ masterlist.txt"
  2209.   var %socknm
  2210.   sockread %temp
  2211.   set %socknm $sockname
  2212.   if ($left(%temp,4) == $str($chr(255),4)) {
  2213.     if (%socknm == QTmslist1) {
  2214.       .timerqtmslisttimeout off
  2215.       set %ms.ping $round($calc($ticks - %ms.startping),0)
  2216.       if (%ms.ping < 100) set %ms.ping 0 $+ %ms.ping
  2217.     }
  2218.     else {
  2219.       .timerqtmslisttimeout2 off
  2220.       set %ms.ping2 $round($calc($ticks - %ms.startping2),0)
  2221.       if (%ms.ping2 < 100) set %ms.ping2 0 $+ %ms.ping2
  2222.     }
  2223.   }
  2224.   if $left(%temp, 1) == \ {
  2225.     if ($findtok(%temp,gamename, 0, 92) > 0) {
  2226.       %ms.type = $remove($gettok(%temp, $calc($findtok(%temp,gamename, 1, 92) + 1), 92),|,$chr(1),$chr(24),$chr(26),^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,)
  2227.     }
  2228.     else { %ms.type = x }
  2229.     if ($findtok(%temp,g_gametype, 0, 92) > 0) {
  2230.       %ms.type = %ms.type $remove($gettok(%temp, $calc($findtok(%temp,g_gametype, 1, 92) + 1), 92),|,$chr(1),$chr(24),$chr(26),^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,)
  2231.     }
  2232.     else { %ms.type = %ms.type x }
  2233.     if ($findtok(%temp,sv_hostname, 0, 92) > 0) {
  2234.       %ms.name = $remove($gettok(%temp, $calc($findtok(%temp,sv_hostname, 1, 92) + 1), 92),|,$chr(1),$chr(24),$chr(26),^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,)
  2235.     }
  2236.     else { %ms.name = x }
  2237.     if (%socknm == QTmslist1) {
  2238.       set %temp2 $gettok($did(QTfav,117,$calc(%ms.count + %ms.refcount)),4,32)
  2239.       if ($dialog(QTfav) == $null) { return }
  2240.       did -d QTfav 117 $calc(%ms.count + %ms.refcount)
  2241.       did -a QTfav 117 %ms.type %ms.ping %temp2 ( %ms.name )
  2242.       if (%ms.save == 1) {
  2243.         write -a %temp3 %ms.type %ms.ping %temp2 ( %ms.name )
  2244.       }
  2245.       did -o QTfav 119 1 %ms.count / $did(QTfav,117).lines
  2246.       inc %ms.refcount
  2247.       if (%ms.refcount == 2) mslistrefresh
  2248.     }
  2249.     else {
  2250.       set %temp2 $gettok($did(QTfav,117,$calc(%ms.count + 1)),4,32)
  2251.       if ($dialog(QTfav) == $null) { return }
  2252.       did -d QTfav 117 $calc(%ms.count + 1)
  2253.       did -a QTfav 117 %ms.type %ms.ping2 %temp2 ( %ms.name )
  2254.       if (%ms.save == 1) {
  2255.         write -a %temp3 %ms.type %ms.ping2 %temp2 ( %ms.name )
  2256.       }
  2257.       inc %ms.refcount
  2258.       if (%ms.refcount == 2) mslistrefresh
  2259.     }
  2260.   }
  2261. }
  2262.  
  2263. alias -l mslistrefresh {
  2264.   %ms.count = $calc(%ms.count + 2)
  2265.   %ms.refcount = 0
  2266.   if ($dialog(QTfav) == $null) { return }
  2267.   if ($calc(%ms.count + 1) <= $did(QTfav,117).lines) {
  2268.     mslistquery $gettok($did(QTfav,117,%ms.count),4,32) $gettok($did(QTfav,117,$calc(%ms.count + 1)),4,32)
  2269.   }
  2270.   elseif (%ms.count <= $did(QTfav,117).lines) {
  2271.     mslistquery $gettok($did(QTfav,117,%ms.count),4,32) 0
  2272.   }
  2273.   else {
  2274.     did -e QTFav 118
  2275.     did -e QTFav 120
  2276.     did -e QTFav 171
  2277.     did -o QTfav 119 1 Ready!
  2278.     sockclose QTmslis*
  2279.     unset %ms.save
  2280.     unset %ms.type
  2281.     unset %ms.name
  2282.   }
  2283. }
  2284.  
  2285. alias -l mslistquery {
  2286.   set %ms.listport 27960
  2287.   if ($dialog(QTfav) == $null) { return }
  2288.   if (: isin $1) { %ms.listport = $gettok($1,2,58) }
  2289.   sockudp -k QTmslist1 $gettok($1,1,58) %ms.listport $str($chr(255),4) $+ getstatus
  2290.   set %ms.startping $ticks
  2291.   .timerqtmslisttimeout -m 1 250 mslisttimeout 1
  2292.   if ($2 != 0) {
  2293.     set %ms.listport 27960
  2294.     if (: isin $2) { %ms.listport = $gettok($2,2,58) }
  2295.     sockudp -k QTmslist2 $gettok($2,1,58) %ms.listport $str($chr(255),4) $+ getstatus
  2296.     set %ms.startping2 $ticks
  2297.     .timerqtmslisttimeout2 -m 1 250 mslisttimeout 2
  2298.   }
  2299.   else .timerqtmslisttimeout2 -m 1 250 mslistrefresh
  2300. }
  2301.  
  2302. alias -l mslisttimeout {
  2303.   var %temp
  2304.   var %temp2 = " $+ $scriptdir $+ qtool\ $+ $iif($did(QTfav,171).state == 1, w) $+ masterlist.txt"
  2305.   if ($dialog(QTfav) == $null) { return }
  2306.   if ($1 == 1) {
  2307.     sockclose QTmslist1
  2308.     set %temp $gettok($did(QTfav,117,$calc(%ms.count + %ms.refcount)),4,32)
  2309.     did -d QTfav 117 $calc(%ms.count + %ms.refcount)
  2310.     did -a QTfav 117 x x 999 %temp
  2311.     if (%ms.save == 1) {
  2312.       write -a %temp2 x x 999 %temp
  2313.     }
  2314.   }
  2315.   else {
  2316.     sockclose QTmslist2
  2317.     set %temp $gettok($did(QTfav,117,$calc(%ms.count + 1)),4,32)
  2318.     did -d QTfav 117 $calc(%ms.count + 1)
  2319.     did -a QTfav 117 x x 999 %temp
  2320.     did -o QTfav 119 1 $calc(%ms.count + 1) / $did(QTfav,117).lines
  2321.     if (%ms.save == 1) {
  2322.       write -a %temp2 x x 999 %temp
  2323.     }
  2324.   }
  2325.   inc %ms.refcount
  2326.   if (%ms.refcount == 2) mslistrefresh
  2327. }
  2328.  
  2329. alias -l msrefresh {
  2330.   :nextserver
  2331.   var %temp = " $+ $scriptdir $+ qtool\ $+ $iif($did(QTfav,171).state == 1, w) $+ masterserver.txt"
  2332.   if ($dialog(QTfav) == $null) { return }
  2333.   if ($left($read(%temp,%svlist),1) == $chr(59)) { 
  2334.     inc %svlist 
  2335.     goto nextserver
  2336.   }
  2337.   if (%svlist > $lines(%temp)) {
  2338.     var %i = 2
  2339.     var %temp
  2340.     %temp = $did(QTfav,117,1).text
  2341.     while ($calc(%i + 1) < $did(QTfav,117).lines) {
  2342.       if (%temp == $did(QTfav,117,%i)) {
  2343.         did -d QTfav 117 %i
  2344.         dec %i
  2345.       }
  2346.       %temp = $did(QTfav,117,%i).text
  2347.       inc %i
  2348.     }
  2349.     did -e QTFav 171
  2350.     did -e QTFav 118
  2351.     if ($did(QTFav,117,1) != $null) { did -e QTFav 127 }
  2352.     did -o QTfav 119 1 Ready!
  2353.     sockclose QTms
  2354.     %ms.save = 1
  2355.     write -c " $+ $scriptdir $+ qtool\ $+ $iif($did(QTFav,171).state == 1, w) $+ masterlist.txt"
  2356.     %ms.count = -1
  2357.     mslistrefresh
  2358.     return 
  2359.   }
  2360.   if ($left($read(%temp,%svlist),1) == $null) { 
  2361.     inc %svlist
  2362.     goto nextserver
  2363.   }
  2364.   if ($left($read(%temp,%svlist),1) isalpha) {
  2365.     %ms.adress = $gettok($read(%temp,%svlist),1,58)
  2366.     %ms.port = $gettok($read(%temp,%svlist),2,58)
  2367.     %ms.file = $gettok($read(%temp,%svlist),3,58)
  2368.     gsrefresh
  2369.   }
  2370.   elseif ($left($read(%temp,%svlist),1) isnum) {
  2371.     %ms.adress = $gettok($read(%temp,%svlist),1,58)
  2372.     %ms.port = $gettok($read(%temp,%svlist),2,58)
  2373.     %ms.protocol = $gettok($read(%temp,%svlist),3,58)
  2374.     msquery
  2375.   }
  2376. }
  2377.  
  2378. alias -l gsrefresh {
  2379.   sockopen QTgs %ms.adress %ms.port
  2380. }
  2381.  
  2382. on *:sockopen:QTgs: {
  2383.   if ($sockerr) return
  2384.   else sockwrite -n QTgs GET http:// $+ %ms.adress $+ %ms.file
  2385. }
  2386.  
  2387. on *:sockread:QTgs:{
  2388.   var %temp
  2389.   if ($sockerr > 0) return
  2390.   :nextread
  2391.   sockread -f %temp
  2392.   if ($sockbr == 0) {
  2393.     return
  2394.   }
  2395.   if (($numtok(%temp,46) == 4) && ($numtok(%temp,58) == 2)) {
  2396.     if ($dialog(QTfav) == $null) { return }
  2397.     did -a QTfav 117  x x x %temp
  2398.   }
  2399.   goto nextread
  2400. }
  2401.  
  2402. on *:sockclose:QTgs:{
  2403.   if ($sockerr) { echo -a 4QTool: Socket Error! }
  2404.   inc %svlist
  2405.   .timerqtmswait -m 1 100 msrefresh
  2406. }
  2407.  
  2408. on *:udpread:QTms: {
  2409.   var %temp
  2410.   var %temp2
  2411.   var %i = 1
  2412.   sockread %temp
  2413.   if ($dialog(QTfav) == $null) { return }
  2414.   set %temp $remove(%temp,$str($chr(255),4) $+ getserversresponse)
  2415.   while (%i < $numtok(%temp,92)) {
  2416.     set %temp2 $gettok(%temp,%i,92)
  2417.     if ($mid(%temp2,6,1) != $null) {
  2418.       did -a QTfav 117 x x x $asc($mid(%temp2,1,1)) $+ . $+ $asc($mid(%temp2,2,1)) $+ . $+ $asc($mid(%temp2,3,1)) $+ . $+ $asc($mid(%temp2,4,1)) $+ : $+ $calc($asc($mid(%temp2,5,1)) * 256 + $asc($mid(%temp2,6,1)))
  2419.     }
  2420.     inc %i
  2421.   }
  2422.   .timerqtmstimeout off
  2423.   .timerqtmstimeout 1 1 mstimeout
  2424. }
  2425.  
  2426. alias -l msquery {
  2427.   sockudp -k QTms %ms.adress %ms.port $str($chr(255),4) $+ getservers %ms.protocol
  2428.   .timerqtmstimeout 1 10 mstimeout
  2429. }
  2430.  
  2431. alias -l mstimeout {
  2432.   sockclose QTms
  2433.   inc %svlist
  2434.   .timerqtmswait -m 1 100 msrefresh
  2435. }
  2436.  
  2437. alias -l QTfavup {
  2438.   var %temp
  2439.   var %sel
  2440.   if (($did(QTfav,86).sel == $null) || ($did(QTfav,86).sel == 1)) { return }
  2441.   %temp = $did(QTfav,86,$did(QTfav,86).sel)
  2442.   %sel = $did(QTfav,86).sel
  2443.   did -o QTfav 86 %sel $did(QTfav,86,$calc(%sel - 1))
  2444.   did -o QTfav 86 $calc(%sel - 1) %temp
  2445.   did -c QTfav 86 $calc(%sel - 1)
  2446.   %temp = $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",%sel)
  2447.   write -l $+ %sel " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt" $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",$calc(%sel - 1))
  2448.   write -l $+ $calc(%sel - 1) " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt" %temp
  2449. }
  2450.  
  2451. alias -l QTfavdown {
  2452.   var %temp
  2453.   var %sel
  2454.   if (($did(QTfav,86).sel == $null) || ($did(QTfav,86).sel == $did(QTfav,86).lines)) { return }
  2455.   %temp = $did(QTfav,86,$did(QTfav,86).sel)
  2456.   %sel = $did(QTfav,86).sel
  2457.   did -o QTfav 86 %sel $did(QTfav,86,$calc(%sel + 1))
  2458.   did -o QTfav 86 $calc(%sel + 1) %temp
  2459.   did -c QTfav 86 $calc(%sel + 1)
  2460.   %temp = $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",%sel)
  2461.   write -l $+ %sel " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt" $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",$calc(%sel + 1))
  2462.   write -l $+ $calc(%sel + 1) " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt" %temp
  2463. }
  2464.  
  2465. on *:udpread:QTFav: {
  2466.   var %temp
  2467.   sockread %temp
  2468.   if ($left(%temp,4) == $str($chr(255),4)) {
  2469.     .timerqtfavtimeout off
  2470.     %qtfav.clients = 0
  2471.     %qtfav.maxclients = 0
  2472.   }
  2473.   sockread -f %temp
  2474.   if $left(%temp, 1) == \ {
  2475.     if $istok(%temp,sv_maxclients,92) { set %qtfav.maxclients $gettok(%temp, $calc($findtok(%temp, sv_maxclients, 1, 92) + 1), 92) }
  2476.     if $istok(%temp,clients,92) { set %qtfav.clients $gettok(%temp, $calc($findtok(%temp, clients, 1, 92) + 1), 92) }
  2477.     addfav
  2478.   }
  2479. }
  2480.  
  2481. alias -l addtofav {
  2482.   did -a QTFav 86 $did(QTool,13) ( $iif($did(QTool,15),$remove($did(QTool,15),|,)) ) $iif($did(QTool,35),$did(QTool,35))
  2483.   write " $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt" $did(QTool,13) $+ $chr(32) $+ ( $iif($did(QTool,15),$+ $remove($did(QTool,15),|,)) $+ $chr(32) $+ ) $+ $chr(32) $iif($did(QTool,35),$+ $did(QTool,35))
  2484.   did -c QTfav 86 $lines(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt")
  2485. }
  2486.  
  2487. alias -l addfav {
  2488.   if (($dialog(QTFav) != $null) && (%qtfav.count != 0)) { 
  2489.     did -o QTFav 86 $calc(%qtfav.count - 1) %qtfav.clients $+ / $+ %qtfav.maxclients - %qtfav.server
  2490.     did -c QTfav 86 $calc(%qtfav.count)
  2491.   }
  2492.   favrefresh
  2493. }
  2494.  
  2495. alias -l loadfav {
  2496.   did -r QTFav 86
  2497.   var %z = 1
  2498.   while (%z <= $lines(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt")) {
  2499.     did -o QTFav 86 %z $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",%z)
  2500.     inc %z
  2501.   }
  2502. }
  2503.  
  2504. alias -l favrefresh {
  2505.   if ((%qtfav.count <= $lines(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt")) && ($dialog(QTFav) != $null) && (%qtfav.count != 0)) {
  2506.     favquery $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",%qtfav.count)
  2507.     set %qtfav.server $read(" $+ $scriptdir $+ qtool\qtserver $+ %qtfav.mod $+ .txt",%qtfav.count) 
  2508.     did -o QTFav 86 %qtfav.count * %qtfav.server
  2509.     inc %qtfav.count
  2510.   }
  2511.   else { sockclose QTFav }
  2512. }
  2513.  
  2514. alias -l favquery {
  2515.   set %QTFav.port 27960
  2516.   if (: isin $1) { %QTFav.port = $gettok($1,2,58) }
  2517.   sockudp -k QTFav $gettok($1,1,58) %QTFav.port $str($chr(255),4) $+ getinfo
  2518.   .timerqtfavtimeout -m 1 500 favtimeout
  2519. }
  2520.  
  2521. alias -l favtimeout {
  2522.   sockclose QTFav
  2523.   %qtfav.clients = -
  2524.   %qtfav.maxclients = -
  2525.   addfav
  2526. }
  2527.  
  2528. alias -l lagquery {
  2529.   if ($window(@Lagometer) == $null) {
  2530.     unset %lag.*
  2531.     sockclose lag
  2532.     return
  2533.   }
  2534.   elseif ($dialog(QTool) == $null) {
  2535.     window -c @Lagometer
  2536.     unset %lag.*
  2537.     sockclose lag
  2538.     return
  2539.   }
  2540.   inc %lag.count
  2541.   set %lag.sping $ticks
  2542.   sockudp -k lag %lag.ip %lag.port ping
  2543.   .timerqtlagtimeout -m 1 190 lagtimeout
  2544.   window -a @Lagometer $calc($dialog(QTool).x + 295) $calc($dialog(QTool).y + 202)
  2545. }
  2546.  
  2547. alias -l lagtimeout {
  2548.   sockclose lag
  2549.   inc %lag.tout
  2550.   if (%lag.tout2 < 10) inc %lag.tout2
  2551.   did -r QTool 29
  2552.   drawlag
  2553.   .timerqtlagnext -m 1 500 lagquery
  2554. }
  2555.  
  2556. alias drawlag {
  2557.   if ($window(@Lagometer) == $null) { return }
  2558.   drawrect -fr @Lagometer 16777215 2 101 0 10 122
  2559.   drawscroll @Lagometer -2 0 0 0 101 121
  2560.   drawline -r @Lagometer 16777215 2 100 120 100 0
  2561.   if ($calc(118 - %lag.ping) > 1) drawline @Lagometer 3 2 100 120 100 $calc(118 - %lag.ping)
  2562.   else drawline @Lagometer 3 2 100 120 100 1
  2563.   drawline @Lagometer 4 2 100 120 100 $calc(118 - %lag.tout2 * 10)
  2564.   if ($calc(118 - (%lag.avping / (%lag.count - %lag.tout))) > 0) drawline @Lagometer 3 2 102 $calc(118 - (%lag.avping / (%lag.count - %lag.tout))) 110 $calc(118 - (%lag.avping / (%lag.count - %lag.tout)))
  2565.   else drawline @Lagometer 3 2 102 1 110 1
  2566.   drawline @Lagometer 4 2 102 $calc(118 - (100 * %lag.tout / %lag.count)) 110 $calc(118 - (100 * %lag.tout / %lag.count))
  2567.   drawrect -fr @Lagometer 16777215 1 160 50 70 16
  2568.   drawtext @Lagometer 1 160 50 p: $round(%lag.ping,0)
  2569.   drawrect -fr @Lagometer 16777215 1 158 70 70 16
  2570.   drawtext  @Lagometer 1 158 70 ╪: $round($calc(%lag.avping / (%lag.count - %lag.tout)),0)
  2571.   drawrect -fr @Lagometer 16777215 1 156 95 70 16
  2572.   drawtext  @Lagometer 1 156 95 pl: $round($calc(100 * %lag.tout / %lag.count),1) %
  2573.   if (%lag.ping > 0) did -o QTool 29 1 %lag.ping
  2574.   if (%lag.ping = 0) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale24.bmp" }
  2575.   elseif (%lag.ping < 15) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale1.bmp" }
  2576.   elseif (%lag.ping < 21) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale2.bmp" }
  2577.   elseif (%lag.ping < 26) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale3.bmp" }
  2578.   elseif (%lag.ping < 31) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale4.bmp" }
  2579.   elseif (%lag.ping < 36) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale5.bmp" }
  2580.   elseif (%lag.ping < 41) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale6.bmp" }
  2581.   elseif (%lag.ping < 46) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale7.bmp" }
  2582.   elseif (%lag.ping < 51) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale8.bmp" }
  2583.   elseif (%lag.ping < 56) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale9.bmp" }
  2584.   elseif (%lag.ping < 61) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale10.bmp" }
  2585.   elseif (%lag.ping < 66) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale11.bmp" }
  2586.   elseif (%lag.ping < 71) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale12.bmp" }
  2587.   elseif (%lag.ping < 76) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale13.bmp" }
  2588.   elseif (%lag.ping < 81) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale14.bmp" }
  2589.   elseif (%lag.ping < 86) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale15.bmp" }
  2590.   elseif (%lag.ping < 91) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale16.bmp" }
  2591.   elseif (%lag.ping < 96) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale17.bmp" }
  2592.   elseif (%lag.ping < 101) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale18.bmp" }
  2593.   elseif (%lag.ping < 106) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale19.bmp" }
  2594.   elseif (%lag.ping < 200) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale20.bmp" }
  2595.   else { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale24.bmp" }
  2596. }
  2597.  
  2598. on *:udpread:lag: {
  2599.   .timerqtlagtimeout off
  2600.   set %lag.ping $calc($calc($ticks - %lag.sping + 6))
  2601.   set %lag.avping $calc(%lag.avping + %lag.ping)
  2602.   if (%lag.tout2 > 0 ) { dec %lag.tout2 }
  2603.   drawlag
  2604.   sockclose lag
  2605.   .timerqtlagnext -m 1 500 lagquery
  2606. }
  2607.  
  2608. alias -l lagometer {
  2609.   if (( $gettok($1,1,46) isnum 0-255) && ($gettok($1,2,46) isnum 0-255) && ($gettok($1,3,46) isnum 0-255) && ($gettok($gettok($1,4,46),1,58) isnum 0-255)) {
  2610.     if ($window(@Lagometer) == $null) {
  2611.       window -odp +Ld @Lagometer $calc($dialog(QTool).x + 295) $calc($dialog(QTool).y + 202) 249 127
  2612.       window -r @Lagometer
  2613.       dialog -v QTool
  2614.     }
  2615.     drawpic @Lagometer 0 0 " $+ $scriptdir $+ qtool\lagometer.bmp"
  2616.     set %lag.port 27960
  2617.     if (: isin $1) { %lag.port = $left($gettok($1,2,58),5) }
  2618.     set %lag.ip $gettok($1,1,58)
  2619.     set %lag.avping 0
  2620.     set %lag.count 0
  2621.     set %lag.tout 0
  2622.     set %lag.tout2 0
  2623.     set %lag.ping 0
  2624.     lagquery $1
  2625.   }
  2626.   else { did -o QTool 30 1 No valid IP! }
  2627. }
  2628.  
  2629. dialog -l QTool {
  2630.   title "qtool v3.41"
  2631.   size %qtool.xpos %qtool.ypos 555 381
  2632.   option pixels
  2633.   icon 10, 8 1 368 40,  " $+ $scriptdir $+ qtool\qtool.bmp", 0, noborder
  2634.   icon 100, 376 1 170 40,  " $+ $scriptdir $+ qtool\entropy.bmp", 0, noborder
  2635.   box "Server", 11, 5 45 270 223
  2636.   text "IP:", 12, 10 60 20 15
  2637.   combo 13, 65 57 186 100, edit drop
  2638.   text "Name:", 14, 10 80 40 15
  2639.   edit "", 15, 65 78 205 20, read
  2640.   text "Version:", 16, 10 140 42 15
  2641.   icon 172, 65 143 10 10,  " $+ $scriptdir $+ qtool\none.bmp", 0
  2642.   edit "", 17, 80 138 190 20, read
  2643.   text "Game:", 18, 10 100 40 15
  2644.   edit "", 19, 65 98 205 20, read
  2645.   text "Type:", 20, 10 120 40 15
  2646.   edit "", 21, 65 118 82 20, read
  2647.   text "Max:", 22, 115 160 23 15
  2648.   edit "", 23, 140 158 32 20, read
  2649.   text "Priv:", 24, 175 160 23 14
  2650.   edit "", 25, 199 158 32 20, read
  2651.   text "Vers:", 91, 150 120 23 15
  2652.   edit "", 92, 175 118 95 20, read
  2653.   text "Players:", 26, 10 160 42 15
  2654.   edit "", 27, 80 158 32 20, read
  2655.   icon 123, 65 162 10 10,  " $+ $scriptdir $+ qtool\none.bmp", 0
  2656.   text "Ping:", 28, 10 201 30 15
  2657.   icon 165, 65 203 51 12,  " $+ $scriptdir $+ qtool\scale\scale0.bmp", 0
  2658.   edit "", 29, 125 199 47 20, read
  2659.   text "Password:", 111, 10 180 50 15
  2660.   edit "", 112, 80 178 32 20, read
  2661.   icon 122, 65 182 10 10,  " $+ $scriptdir $+ qtool\none.bmp", 0
  2662.   icon 124, 186 180 80 60,  " $+ $scriptdir $+ qtool\maps\unknownmap.jpg", 0
  2663.   box "Connect", 31, 4 269 270 80
  2664.   text "AwayNick:", 32, 10 284 50 15
  2665.   edit $awnick, 33, 70 281 200 20
  2666.   text "Password:", 34, 10 305 50 15
  2667.   combo 35, 70 302 200 100, edit drop
  2668.   text "Parameters:", 36, 10 326 58 15
  2669.   edit $q3params, 37, 70 323 200 20
  2670.   button "Browser", 85, 214 390 80 22
  2671.   button "RCon", 139, 297 390 80 22
  2672.   button "Server Details", 113, 380 390 80 22
  2673.   button "LagoMeter", 175, 463 390 80 22
  2674.   edit "Ready", 30, 271 355 165 21, read
  2675.   icon 38, 6 354 140 22,  " $+ $scriptdir $+ qtool\connect.bmp", 0
  2676.   check "Connect as coach", 174, 10 393 108 16
  2677.   button "Refresh", 39, 154 353 110 24, default
  2678.   button "Exit", 40, 442 353 57 24, ok
  2679.   button "<", 183, 505 353 20 24
  2680.   box "Stats", 41, 280 44 270 305
  2681.   text "Map:", 42, 10 224 30 15
  2682.   edit "", 43, 65 221 107 20, read
  2683.   text "Fraglimit:", 44, 10 246 40 15
  2684.   edit "", 45, 65 243 65 20, read
  2685.   text "ScoreTime:", 81, 286 327 53 15
  2686.   edit "", 82, 341 324 203 20, read
  2687.   text "Timelimit:", 55, 138 246 40 15
  2688.   edit "", 56, 183 243 87 20, read
  2689.   text "Name", 57, 293 59 30 15
  2690.   text "Frags", 58, 445 59 30 15
  2691.   text "Status", 59, 479 59 30 15
  2692.   text "Ping", 60, 517 59 25 15
  2693.   list 61, 290 74 149 235
  2694.   list 62, 440 74 36 235
  2695.   list 63, 476 74 37 235
  2696.   list 64, 513 74 29 235
  2697.   text "Red >", 65, 365 306 30 15
  2698.   edit "", 68, 397 303 50 20, read right
  2699.   text "< Blue", 67, 509 306 35 15
  2700.   edit "", 66, 456 303 50 20, read
  2701.   text ":", 150, 450 306 5 15
  2702.   list 184, 291 68 250 293, hide
  2703.   box "Lifestats", 69, 4 419 547 63
  2704.   text "Channel:", 70, 10 435 50 15
  2705.   edit $postchannel, 71, 65 432 200 20
  2706.   text "Team Red:", 72, 282 435 55 15
  2707.   edit "Red", 73, 342 432 100 20
  2708.   text "Team Blue:", 74, 282 458 55 15
  2709.   edit "Blue", 75, 342 454 100 20
  2710.   text "Type:", 95, 10 458 30 15
  2711.   edit "Clanwar", 96, 65 454 100 20
  2712.   text "Update:", 76, 169 458 41 15
  2713.   edit "20", 77, 212 454 30 20
  2714.   text "sec.", 78, 246 458 20 15
  2715.   button "Start", 79, 458 431 40 21
  2716.   button "Stop", 80, 503 431 40 21
  2717.   button "Post Info", 97, 458 455 85 21
  2718.   text "PB:", 3, 122 180 20 16
  2719.   edit "", 4, 140 178 32 20, read
  2720.   icon 6, 237 161 29 15,  " $+ $scriptdir $+ qtool\flags\unknown.bmp", 0
  2721.   button "update PB", 2, 125 390 80 22
  2722.   button ">", 5, 528 353 20 24
  2723.   box "", 8, 4 379 546 38
  2724.   button ">", 1, 252 56 18 21
  2725.   list 7, 276 55 272 299, hide hsbar
  2726. }
  2727.  
  2728. dialog -l QToolC {
  2729.   title "qtool v3.41"
  2730.   size %qtool.xpos %qtool.ypos 370 141
  2731.   option pixels
  2732.   combo 13, 5 2 140 80, drop edit
  2733.   text "", 15, 5 29 360 15, center
  2734.   icon 172, 5 52 10 10, " $+ $scriptdir $+ qtool\none.bmp"
  2735.   text "", 17, 20 50 100 15
  2736.   text "", 19, 145 50 50 15, center
  2737.   text "", 21, 235 50 130 15, center
  2738.   text "/", 22, 165 72 5 15
  2739.   text "", 23, 173 72 20 15, center
  2740.   text "-", 24, 196 72 5 15
  2741.   text "", 25, 205 72 20 15
  2742.   edit "", 92, 322 48 100 20, hide
  2743.   text "", 27, 143 72 20 15, center
  2744.   icon 123, 130 74 10 10, " $+ $scriptdir $+ qtool\none.bmp"
  2745.   icon 165, 5 73 51 12, " $+ $scriptdir $+ qtool\scale\scale0.bmp"
  2746.   text "", 29, 60 72 37 15
  2747.   icon 124, 185 160 80 60, " $+ $scriptdir $+ qtool\maps\unknownmap.jpg", hide
  2748.  
  2749.   edit $awnick, 33, 70 347 200 20, hide
  2750.   edit "", 112, 52 114 32 20, hide
  2751.   icon 122, 150 7 10 10, " $+ $scriptdir $+ qtool\none.bmp"
  2752.   combo 35, 165 2 200 120, drop edit
  2753.   edit $q3params, 37, 70 387 200 20, hide
  2754.  
  2755.   button "RCon", 139, 385 372 70 20, hide
  2756.   button "Server Details", 113, 460 372 90 20, hide
  2757.   button "LagoMeter", 175, 280 397 100 19, hide
  2758.   edit "Ready",  30, 385 395 165 21, hide
  2759.  
  2760.   icon 38, 6 116 140 22, " $+ $scriptdir $+ qtool\connect.bmp"
  2761.   check "Connect as Coach", 174, 160 421 110 22, hide
  2762.   button "Refresh", 39, 160 116 80 22, default
  2763.   button "Exit", 40, 270 116 70 22, ok
  2764.   button ">", 183, 345 116 20 22
  2765.  
  2766.   text "" 43, 5 94 140 15, center
  2767.   text "Fl:" 44, 319 72 15 15
  2768.   text "" 45, 335 72 30 15
  2769.   text "" 81, 212 94 15 15
  2770.   text "" 82, 230 94 135 15
  2771.   text "Tl:" 55, 260 72 15 15
  2772.   text "" 56, 276 72 30 15
  2773.   list 61, 290 115 149 235, hide
  2774.   list 62, 440 115 36 235, hide
  2775.   list 63, 476 115 37 235, hide
  2776.   list 64, 513 115 29 235, hide
  2777.   text "Red >", 65, 370 347 30 15, hide
  2778.   edit "", 68, 400 344 50 20, hide
  2779.   text "< Blue", 67, 509 347 35 15, hide
  2780.   edit "" ,66, 458 344 50 20, hide
  2781.   text ":", 150, 452 346 5 15, hide
  2782.  
  2783.   list 184, 290 100 250 280, hide
  2784.  
  2785.   button "Start", 79, 125 305 40 22, hide
  2786.   button "Stop", 80, 170 305 40 22, hide
  2787.   button "Post Info", 97, 215 305 55 22, hide
  2788.  
  2789.   icon 190, 1 26 368 1, " $+ $scriptdir $+ qtool\hr.bmp", noborder
  2790.   icon 191, 1 46 368 1, " $+ $scriptdir $+ qtool\hr.bmp", noborder
  2791.   icon 192, 1 90 368 1, " $+ $scriptdir $+ qtool\hr.bmp", noborder
  2792.   icon 193, 1 110 369 1, " $+ $scriptdir $+ qtool\hr.bmp", noborder
  2793.  
  2794.   text "as Coach", 1, 165 443 50 16, hide
  2795.   edit "", 4, 140 178 32 20, read hide
  2796.   icon 6, 236 161 29 14,  " $+ $scriptdir $+ qtool\flags\unknown.bmp", 0 hide
  2797.   button "update PB", 2, 217 432 60 22
  2798. }
  2799.  
  2800. on *:dialog:QTool:sclick:*: {
  2801.   if ($did == 10) run http://qtool.quetz.net/
  2802.   elseif ($did == 100) run http://www.planetentropy.de/
  2803.   elseif ($did == 85) {
  2804.     if ($window(@Lagometer) != $null) {
  2805.       window -c @Lagometer
  2806.       unset %lag.*
  2807.       sockclose lag
  2808.     }
  2809.     if ($dialog(QTFav) == $null) { favopen }
  2810.     else {
  2811.       writeini " $+ $scriptdir $+ qtool.ini" QTool favxpos $dialog(QTFav).x
  2812.       writeini " $+ $scriptdir $+ qtool.ini" QTool favypos $dialog(QTFav).y
  2813.       .timerqtfavref off
  2814.       .timerqtmsfromqtool off
  2815.       sockclose QTms
  2816.       sockclose QTFav
  2817.       sockclose QTgs
  2818.       sockclose QTmslist1
  2819.       sockclose QTmslist2
  2820.       unset %qtfav.* 
  2821.       unset %svlist
  2822.       unset %ms.*
  2823.       .timerqtmslisttimeout off
  2824.       .timerqtmslisttimeout2 off
  2825.       if ($exists(%qt.delfile)) { .remove " $+ %qt.delfile $+ " }
  2826.       unset %qt.delfile
  2827.       qtfavclose
  2828.       dialog -x QTFav
  2829.     }
  2830.   }
  2831.   elseif ($did == 113) {
  2832.     if ($window(@Lagometer) != $null) {
  2833.       window -c @Lagometer
  2834.       unset %lag.*
  2835.       sockclose lag
  2836.     }
  2837.     if ($did(QTool,7).visible) {
  2838.       did -h QTool 7
  2839.       did -v QTool 41
  2840.       did -o QTool 1 1 >
  2841.     }
  2842.     if ($did(QTool,184).visible) {
  2843.       did -o QTool 113 1 Server Details
  2844.       did -o QTool 41 1 Stats
  2845.       did -h QTool 184
  2846.       did -v QTool 57,58,59,60,61,62,63,64,65,66,67,68,150,81,82
  2847.     }
  2848.     else {
  2849.       did -o QTool 113 1 Players
  2850.       did -o QTool 41 1 Server Details
  2851.       did -v QTool 184
  2852.       did -h QTool 57,58,59,60,61,62,63,64,65,66,67,68,150,81,82
  2853.     }
  2854.   }
  2855.   elseif ($did == 35) {
  2856.     if (($did(Qtool,35,0) != $null) && ($right($did(QTool,172),6) == ok.bmp) && ($right($did(QTool,123),6) == ok.bmp) && ($right($did(QTool,173),10) == conred.bmp)) {
  2857.       did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  2858.     }
  2859.   }
  2860.   elseif (($did == 13) || ($did == 39)) { qtrefresh }
  2861.   elseif ($did == 38) {
  2862.     did -h QTool 38
  2863.     did -v QTool 38
  2864.     if ($window(@Lagometer) != $null) {
  2865.       window -c @Lagometer
  2866.       unset %lag.*
  2867.       sockclose lag
  2868.     }
  2869.     if ($did(QTool,13).text) {
  2870.       loadfilter
  2871.       launchq
  2872.     } 
  2873.     else did -o QTool 30 1 No Server IP!
  2874.   }
  2875.   elseif ($did == 79) {
  2876.     if ($left($did(QTool,71).text,1) == $chr(35)) {
  2877.       if ($did(QTool,77).text isnum) {
  2878.         if ($did(QTool,13).text != $null) {
  2879.           %qtool.lscount = 0
  2880.           %qtool.lifeserver = $did(QTool,13).text
  2881.           qtlifestats
  2882.           .timerqtqtlifestats 0 $did(QTool,77).text qtlifestats
  2883.           did -b QTool 79,175
  2884.           did -e QTool 80
  2885.           if ($window(@Lagometer) != $null) {
  2886.             window -c @Lagometer
  2887.             unset %lag.*
  2888.             sockclose lag
  2889.           }
  2890.         }
  2891.         else did -o QTool 30 1 No Server IP!
  2892.       }
  2893.       else did -o QTool 30 1 No UpdateTime!
  2894.     }
  2895.     else did -o QTool 30 1 No Channel!
  2896.   }
  2897.   elseif ($did == 80) {
  2898.     did -o QTool 30 1 Stopped!
  2899.     .timerqtqtlifestats off
  2900.     unset %qtool.lscount
  2901.     unset %qtool.lifeblue
  2902.     unset %qtool.lifered
  2903.     unset %qtool.lifeserver
  2904.     did -e QTool 79,175
  2905.     did -b QTool 80
  2906.   }
  2907.   elseif ($did == 97) {
  2908.     postlsinfo
  2909.   }
  2910.   elseif ($did == 139) {
  2911.     if ($window(@Lagometer) != $null) {
  2912.       window -c @Lagometer
  2913.       unset %lag.*
  2914.       sockclose lag
  2915.     }
  2916.     if ($dialog(QTrcon) == $null) { rconopen }
  2917.     else { rconscrollc }
  2918.   }
  2919.   elseif ($did == 175) {
  2920.     if ($did(QTool,184).visible) {
  2921.       did -h QTool 184
  2922.       did -v QTool 57,58,59,60,61,62,63,64,65,66,67,68,150
  2923.     }
  2924.     if ($did(QTool,7).visible) {
  2925.       did -h QTool 7
  2926.       did -o QTool 1 1 >
  2927.       did -v QTool 41,57,58,59,60,61,62,63,64,65,68,150,66,67,81,82
  2928.     }
  2929.     if ($window(@Lagometer) != $null) {
  2930.       window -c @Lagometer 
  2931.       unset %lag.*
  2932.       sockclose lag
  2933.     }
  2934.     else lagometer $did(QTool,13).text
  2935.   }
  2936.   elseif ($did == 183) {
  2937.     writeini " $+ $scriptdir $+ qtool.ini" QTool qtxpos $dialog(QTool).x
  2938.     writeini " $+ $scriptdir $+ qtool.ini" QTool qtypos $dialog(QTool).y
  2939.     if ((%qtool.play == "playing") && $awnick && ($status == connected)) {
  2940.       if (%qtool.oldnick != $null) { nick %qtool.oldnick }
  2941.       away
  2942.     }
  2943.     if (%qtool.play == "playing") { .signal -n q3stop }
  2944.     if ($seticq == 1) { dll " $+ $scriptdir $+ qtool.dll" SETUSER %qtool.icq }
  2945.     if ($window(@Lagometer) != $null) {
  2946.       window -c @Lagometer
  2947.       unset %lag.*
  2948.       sockclose lag
  2949.     }
  2950.     .timerqt* off
  2951.     sockclose QTool*
  2952.     sockclose lag
  2953.     unset %qtool.*
  2954.     sockclose QTFav
  2955.     sockclose QTms
  2956.     sockclose QTgs
  2957.     sockclose QTmslist1
  2958.     sockclose QTmslist2
  2959.     sockclose QTrcon
  2960.     sockclose QTlistenPW
  2961.     sockclose qtcheck
  2962.     unset %qtfav.* 
  2963.     unset %svlist
  2964.     unset %ms.*
  2965.     unset %qtactive
  2966.     unset %qt.*
  2967.     if ($compact == 1) {
  2968.       var %temp = $did(QTool,13)
  2969.       var %temp2 = $did(QTool,35)
  2970.       remini " $+ $scriptdir $+ qtool.ini" QTool small
  2971.       dialog -x QTool
  2972.       qtopen %temp
  2973.       did -o QTool 35 0 %temp2
  2974.     }
  2975.     else {
  2976.       var %temp = $did(QTool,13)
  2977.       var %temp2 = $did(QTool,35)
  2978.       writeini " $+ $scriptdir $+ qtool.ini" QTool small 1
  2979.       dialog -x QTool
  2980.       qtopen %temp
  2981.       did -o QTool 35 0 %temp2
  2982.     }
  2983.   }
  2984.   elseif ($did == 2) {
  2985.     if ($left($did(QTool,17),4) == Wolf) {
  2986.       run -p " $+ $nofile($wexe) $+ pb\pbweb.exe"
  2987.     }
  2988.     elseif ($left($did(QTool,17),2) == ET) {
  2989.       run -p " $+ $nofile($eexe) $+ pb\pbweb.exe"
  2990.     }
  2991.     else {
  2992.       run -p " $+ $nofile($q3exe) $+ pb\pbweb.exe"
  2993.     }
  2994.   }
  2995.   elseif ($did == 5) {
  2996.     if ($did(QTool,5) == >) {
  2997.       dialog -s QTool $dialog(QTool).x $dialog(QTool).y 555 485
  2998.       did -o QTool 5 1 <
  2999.     }
  3000.     else {
  3001.       dialog -s QTool $dialog(QTool).x $dialog(QTool).y 555 381
  3002.       did -o QTool 5 1 >
  3003.     }
  3004.   }
  3005.   elseif ($did == 1) {
  3006.     if ($window(@Lagometer) != $null) {
  3007.       window -c @Lagometer
  3008.       unset %lag.*
  3009.       sockclose lag
  3010.     }
  3011.     if ($did(QTool,7).visible == $false) {
  3012.       did -v QTool 7
  3013.       did -o QTool 1 1 <
  3014.       did -h QTool 184,41,57,58,59,60,61,62,63,64,65,68,150,66,67,81,82
  3015.       did -o QTool 113 1 Server Details
  3016.       did -r QTool 7
  3017.       var %temp = $read(" $+ $scriptdir $+ qtool\favmods.txt", s, $readini " $+ $scriptdir $+ qtool.ini" QTool qtfavmod)
  3018.       if ($readn != $null) { set %qtfav.mod $readini " $+ $scriptdir $+ qtool.ini" QTool qtfavmod }
  3019.       elseif ($read(" $+ $scriptdir $+ qtool\favmods.txt",1) != $null) { set %qtfav.mod $read(" $+ $scriptdir $+ qtool\favmods.txt",1) }
  3020.       else { set %qtfav.mod Misc }
  3021.       var %i = 1
  3022.       while (%i <= $lines(" $+ $scriptdir $+ qtool\favmods.txt")) {
  3023.         var %temp = $read(" $+ $scriptdir $+ qtool\favmods.txt",%i)
  3024.         did -a QTool 7 %temp
  3025.         var %z = 1
  3026.         while (%z <= $lines(" $+ $scriptdir $+ qtool\qtserver $+ %temp $+ .txt")) {
  3027.           did -a QTool 7 $read(" $+ $scriptdir $+ qtool\qtserver $+ %temp $+ .txt",%z)
  3028.           inc %z
  3029.         }
  3030.         inc %i
  3031.       }
  3032.       did -z QTool 7
  3033.       did -f QTool 7
  3034.     }
  3035.     else {
  3036.       did -h QTool 7
  3037.       did -o QTool 1 1 >
  3038.       did -v QTool 41,57,58,59,60,61,62,63,64,65,68,150,66,67,81,82
  3039.     }
  3040.   }
  3041.   elseif ($did == 7) {
  3042.     if (($right($gettok($did(QTool,7).seltext,1,46),2) isnum) && ($gettok($did(QTool,7).seltext,2,46) isnum 0-255) && ($gettok($did(QTool,7).seltext,3,46) isnum 0-255)) {
  3043.       qquery $gettok($did(QTool,7).seltext,1,32)
  3044.       did -d QTool 35 0
  3045.       if ($gettok($did(QTool,7).seltext,-1,32) != $chr(41)) { did -o QTool 35 0 $gettok($did(QTool,7).seltext,-1,32) }
  3046.       did -h QTool 7
  3047.       did -o QTool 1 1 >
  3048.       did -v QTool 41,57,58,59,60,61,62,63,64,65,68,150,66,67,81,82
  3049.     }
  3050.   }
  3051. }
  3052.  
  3053. on *:dialog:QTool:edit:*: {
  3054.   if ($did == 35) {
  3055.     if (($did(Qtool,35,0) != $null) && ($right($did(QTool,172),6) == ok.bmp) && ($right($did(QTool,123),6) == ok.bmp)) {
  3056.       did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3057.     }
  3058.     elseif (($did(Qtool,35,0) == $null) && ($right($did(QTool,122),10) == locked.bmp)) {
  3059.       did -g QTool 38 " $+ $scriptdir $+ qtool\connect.bmp"
  3060.     }
  3061.   }
  3062.   elseif ($did == 13) {
  3063.     if ($window(@Lagometer) != $null) {
  3064.       window -c @Lagometer
  3065.       unset %lag.*
  3066.       sockclose lag
  3067.     }
  3068.   }
  3069. }
  3070.  
  3071. on *:dialog:QTool:close:*: {
  3072.   writeini " $+ $scriptdir $+ qtool.ini" QTool qtxpos $dialog(QTool).x
  3073.   writeini " $+ $scriptdir $+ qtool.ini" QTool qtypos $dialog(QTool).y
  3074.   if ($exists(%qt.delfile)) { .remove " $+ %qt.delfile $+ " }
  3075.   if ((%qtool.play == "playing") && $awnick && ($status == connected)) {
  3076.     if (%qtool.oldnick != $null) { nick %qtool.oldnick }
  3077.     away
  3078.   }
  3079.   if (%qtool.play == "playing") { .signal -n q3stop }
  3080.   if ($seticq == 1) { dll " $+ $scriptdir $+ qtool.dll" SETUSER %qtool.icq }
  3081.   if ($window(@Lagometer) != $null) {
  3082.     window -c @Lagometer
  3083.     unset %lag.*
  3084.     sockclose lag
  3085.   }
  3086.   .timerqt* off
  3087.   .timerq3scan off
  3088.   sockclose QTool*
  3089.   sockclose lag
  3090.   sockclose qtcheck
  3091.   unset %qtool.*
  3092.   sockclose QT*
  3093.   unset %qtfav.* 
  3094.   unset %svlist
  3095.   unset %ms.*
  3096.   unset %qtactive
  3097.   unset %qt.*
  3098. }
  3099.  
  3100. on *:exit: {
  3101.   if ((%qtool.play == "playing") && $awnick && ($status == connected)) {
  3102.     if (%qtool.oldnick != $null) { nick %qtool.oldnick }
  3103.     away
  3104.   }
  3105.   if (%qtool.play == "playing") { .signal -n q3stop }
  3106.   .timerqt* off
  3107.   sockclose QTool*
  3108.   unset %qtool.*
  3109.   sockclose QTFav
  3110.   sockclose QTms
  3111.   sockclose QTgs
  3112.   sockclose QTmslist1
  3113.   sockclose QTmslist2
  3114.   sockclose QTrcon
  3115.   sockclose QTlistenPW
  3116.   sockclose qtcheck
  3117.   unset %qtfav.* 
  3118.   unset %svlist
  3119.   unset %ms.*
  3120.   unset %qtactive
  3121.   unset %qt.*
  3122. }
  3123.  
  3124. ;;sgt
  3125. #mpp.qtool off
  3126. on ^*:hotlink:pw:*: {
  3127.   if ($hotline) return
  3128.   else halt
  3129. }
  3130.  
  3131. on *:hotlink:pw:*: {
  3132.   var %temp = $gettok($hotline,$calc($findtok($hotline,pw,1,32) + 1),32)
  3133.   if ((%temp == ist) || (%temp == is)) { %temp = $gettok($hotline,$calc($findtok($hotline,pw,1,32) + 2),32) }
  3134.   if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3135.   if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3136.   if (%temp != $null) { 
  3137.     if ($dialog(QTool) != $null) {
  3138.       if ($did(QTool,13) != $null) {
  3139.         did -o QTool 35 0 %temp
  3140.         dialog -v QTool
  3141.         if (($did(Qtool,35,0) != $null) && ($right($did(QTool,172),6) == ok.bmp) && ($right($did(QTool,123),6) == ok.bmp) && ($right($did(QTool,38),10) == connnect.bmp)) {
  3142.           did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3143.         }
  3144.       }
  3145.       else { echo -a 4QTool: Specfiy IP first! }
  3146.     }
  3147.     else { echo -a 4QTool is not open! }
  3148.   }
  3149.   if ($window(@Lagometer) != $null) {
  3150.     window -c @Lagometer
  3151.     unset %lag.*
  3152.     sockclose lag
  3153.   }
  3154. }
  3155.  
  3156. on ^*:hotlink:pw?:*: {
  3157.   if ($hotline) return
  3158.   else halt
  3159. }
  3160.  
  3161. on *:hotlink:pw?:*: {
  3162.   var %temp = $gettok($hotline,$calc($findtok($hotline,$wildtok($hotline,pw?,1,32),32)+1),32)
  3163.   if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3164.   if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3165.   if ($dialog(QTool) != $null) {
  3166.     if ($did(QTool,13) != $null) {
  3167.       did -o QTool 35 0 %temp
  3168.       dialog -v QTool
  3169.       if (($did(Qtool,35,0) != $null) && ($right($did(QTool,172),6) == ok.bmp) && ($right($did(QTool,123),6) == ok.bmp) && ($right($did(QTool,38),10) == connect.bmp)) {
  3170.         did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3171.       }
  3172.     }
  3173.     else { echo -a 4QTool: Specfiy IP first! }
  3174.   }
  3175.   else { echo -a 4QTool is not open! }
  3176.   if ($window(@Lagometer) != $null) {
  3177.     window -c @Lagometer
  3178.     unset %lag.*
  3179.     sockclose lag
  3180.   }
  3181. }
  3182.  
  3183. on ^*:hotlink:pwd?:*: {
  3184.   if ($hotline) return
  3185.   else halt
  3186. }
  3187.  
  3188. on *:hotlink:pwd?:*: {
  3189.   var %temp = $gettok($hotline,$calc($findtok($hotline,$wildtok($hotline,pwd?,1,32),32)+1),32)
  3190.   if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3191.   if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3192.   if ($dialog(QTool) != $null) {
  3193.     if ($did(QTool,13) != $null) {
  3194.       did -o QTool 35 0 %temp
  3195.       dialog -v QTool
  3196.       if (($did(Qtool,35,0) != $null) && ($right($did(QTool,172),6) == ok.bmp) && ($right($did(QTool,123),6) == ok.bmp) && ($right($did(QTool,38),10) == connect.bmp)) {
  3197.         did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3198.       }
  3199.     }
  3200.     else { echo -a 4QTool: Specfiy IP first! }
  3201.   }
  3202.   else { echo -a 4QTool is not open! }
  3203.   if ($window(@Lagometer) != $null) {
  3204.     window -c @Lagometer
  3205.     unset %lag.*
  3206.     sockclose lag
  3207.   }
  3208. }
  3209.  
  3210. on ^*:hotlink:pas*:*: {
  3211.   if ($hotline) return
  3212.   else halt
  3213. }
  3214.  
  3215. on *:hotlink:pas*:*: {
  3216.   var %temp = $wildtok($hotline,pas*,1,32) $gettok($hotline,$calc($findtok($hotline,$wildtok($hotline,pas*,1,32),32)+1),32) $gettok($hotline,$calc($findtok($hotline,$wildtok($hotline,pas*,1,32),32)+2),32)
  3217.   if (($gettok(%temp,2,32) == is) || ($gettok(%temp,2,32) == ist)) { %temp = $deltok(%temp,2,32) }
  3218.   else { %temp = $deltok(%temp,3,32) }
  3219.   if ( $gettok(%temp,2,32) != $null ) { %temp = password: $+ $gettok(%temp,2,32) }
  3220.   %temp = $gettok(%temp,2,58)
  3221.   if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3222.   if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3223.   if ($dialog(QTool) != $null) {
  3224.     if ($did(QTool,13) != $null) {
  3225.       did -o QTool 35 0 %temp
  3226.       dialog -v QTool
  3227.       if (($did(Qtool,35,0) != $null) && ($right($did(QTool,172),6) == ok.bmp) && ($right($did(QTool,123),6) == ok.bmp) && ($right($did(QTool,38),10) == connect.bmp)) {
  3228.         did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3229.       }
  3230.     }
  3231.     else { echo -a 4QTool: Specfiy IP first! }
  3232.   }
  3233.   else { echo -a 4QTool is not open! }
  3234.   if ($window(@Lagometer) != $null) {
  3235.     window -c @Lagometer
  3236.     unset %lag.*
  3237.     sockclose lag
  3238.   }
  3239. }
  3240.  
  3241. on ^*:hotlink:*.*.*.*:*: {
  3242.   if ((// !isin $gettok($1,1,46)) && ($right($gettok($1,1,46),2) isnum) && ($gettok($1,2,46) isnum 0-255) && ($gettok($1,3,46) isnum 0-255)) return
  3243.   else halt 
  3244. }
  3245.  
  3246. on *:hotlink:*.*.*.*:*: {
  3247.   if ($gettok($hotline,$calc($findtok($hotline,$1,1,32) + 1),32) isnum 10000-50000) {
  3248.  
  3249.     if ($right($gettok($1,1,46),3) isnum 0-255) {
  3250.       qquery $right($gettok($1,1,46),3) $+ . $+ $gettok($1,2,46) $+ . $+ $gettok($1,3,46) $+ . $+ $gettok($1,-1,46) : $+ $gettok($hotline,$calc($findtok($hotline,$1,1,32) + 1),32)
  3251.     }
  3252.     else {
  3253.       qquery $right($gettok($1,1,46),2) $+ . $+ $gettok($1,2,46) $+ . $+ $gettok($1,3,46) $+ . $+ $gettok($1,-1,46) : $+ $gettok($hotline,$calc($findtok($hotline,$1,1,32) + 1),32)
  3254.     }
  3255.   }
  3256.   else {
  3257.     if ($right($gettok($1,1,46),3) isnum 0-255) {
  3258.       qquery $right($gettok($1,1,46),3) $+ . $+ $gettok($1,2,46) $+ . $+ $gettok($1,3,46) $+ . $+ $gettok($1,-1,46)
  3259.     }
  3260.     else {
  3261.       qquery $right($gettok($1,1,46),2) $+ . $+ $gettok($1,2,46) $+ . $+ $gettok($1,3,46) $+ . $+ $gettok($1,-1,46)
  3262.     }
  3263.   }
  3264.   did -o QTool 35 0
  3265.   var %temp = $remove($hotline,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9,)
  3266.   if ($findtok(%temp,pw:,1,32) != $null) { 
  3267.     %temp = $gettok(%temp,$calc($findtok(%temp,pw:,1,32) + 1),32)
  3268.     if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3269.     if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3270.     did -o QTool 35 0 %temp
  3271.   }
  3272.   if ($findtok(%temp,pw,1,32) != $null) { 
  3273.     %temp = $gettok(%temp,$calc($findtok(%temp,pw,1,32) + 1),32)
  3274.     if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3275.     if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3276.     did -o QTool 35 0 %temp
  3277.   }
  3278.   elseif ($wildtok(%temp,pw:*,1,32) != $null) { 
  3279.     %temp = $right($wildtok(%temp,pw:*,1,32),-3)
  3280.     if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3281.     if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3282.     did -o QTool 35 0 %temp
  3283.   }
  3284.   elseif ($wildtok(%temp,pass*,1,32) != $null) { 
  3285.     %temp = $gettok(%temp,$calc($findtok(%temp,$wildtok(%temp,pass*,1,32),1,32)+1),32)
  3286.     if (($left(%temp,1) == ") || ($left(%temp,1) == ')) { %temp = $right(%temp,-1) }
  3287.     if (($right(%temp,1) == ") || ($right(%temp,1) == ')) { %temp = $left(%temp,-1) }
  3288.     did -o QTool 35 0 %temp
  3289.   }
  3290.   dialog -v QTool
  3291.   if ($window(@Lagometer) != $null) {
  3292.     window -c @Lagometer
  3293.     unset %lag.*
  3294.     sockclose lag
  3295.   }
  3296.   did -f QTool 13
  3297. }
  3298.  
  3299. on *:text:*:#: {
  3300.   if (($1- == !qc) || ($1- == ?q3post) || ($1- == !q3post) || ($1- == !qt) || ($1- == ?as)) {
  3301.     if ((%qtool.play == "playing") && ($replyonask != 1)) {
  3302.       describe $chan $postplay %qtool.p.ip %QTool.p.hostname $posttime %qtool.time
  3303.     }
  3304.     elseif ((%qtool.play == "playing") && ($replyonask == 1) && ($istok($postchannelop,$chan,59))) {
  3305.       describe $chan $postplay %qtool.p.ip %QTool.p.hostname $posttime %qtool.time
  3306.     }
  3307.     elseif (($replynotplay == 1) && ($replyonask != 1)) describe $chan $postnotplay
  3308.     elseif (($replynotplay == 1) && ($replyonask == 1) && ($istok($postchannelop,$chan,59))) describe $chan $postnotplay
  3309.   }
  3310.   elseif ((($1 == !qc) || ($1 == ?q3post) || ($1 == !q3post) || ($1 == !qt) || ($1 == ?as)) && ($wildtok($me, $2-, 0, 32) > 0)) {
  3311.     if ((%qtool.play == "playing") && ($replyonask != 1)) {
  3312.       describe $chan $postplay %qtool.p.ip %QTool.p.hostname $posttime %qtool.time
  3313.     }
  3314.     elseif ((%qtool.play == "playing") && ($replyonask == 1) && ($istok($postchannelop,$chan,59))) {
  3315.       describe $chan $postplay %qtool.p.ip %QTool.p.hostname $posttime %qtool.time
  3316.     }
  3317.     elseif (($replynotplay == 1) && ($replyonask != 1)) describe $chan $postnotplay
  3318.     elseif (($replynotplay == 1) && ($replyonask == 1) && ($istok($postchannelop,$chan,59))) describe $chan $postnotplay
  3319.   }
  3320.   elseif ($1 == !pw) {
  3321.     if (($pwchanon == 1) && (%qtool.play == "playing") && ($chan == $pwchan) && (k isin $gettok($chan($chan).mode,1,32)) {
  3322.       msg $chan %qtool.p.ip %QTool.p.hostname pw: %qtool.p.pw
  3323.     }
  3324.   }
  3325.   elseif ($1- == !qtls stop) {
  3326.     if ( ($dialog(QTool) != $null) && ($chan == $did(QTool,71).text) && (%qtool.lifeserver != $null)) {
  3327.       did -o QTool 30 1 Stats external stopped!
  3328.       .timerqtqtlifestats off
  3329.       unset %qtool.lscount
  3330.       unset %qtool.lifeblue
  3331.       unset %qtool.lifered
  3332.       unset %qtool.lifeserver
  3333.       if (c isin $gettok($chan(#).mode,1,32)) { msg $chan Lifestats stopped }
  3334.       else { msg $chan 14Lifestats stopped }
  3335.     }
  3336.   }
  3337.   elseif ($1- == !qtls info) {
  3338.     if ( ($dialog(QTool) != $null) && ($chan == $did(QTool,71).text) && (%qtool.lifeserver != $null)) postlsinfo 
  3339.   }
  3340.   if (($fmess == 1) && (%qtool.play == "playing") && (%qt.mess != $null)) {
  3341.     var %temp
  3342.     var %i = 1
  3343.     while (%i <= %qt.mess) {
  3344.       if (($wildtok($nick $+ ! $+ $address,$gettok(%qt.mess [ $+ [ %i ] ],5,32),0,32) == 1) && ($left(%qt.mess [ $+ [ %i ] ],1) == c)) {
  3345.         if (($wildtok($chan,$gettok(%qt.mess [ $+ [ %i ] ],6,32),0,32) == 1) && ($wildtok($1-,$gettok(%qt.mess [ $+ [ %i ] ],7,32),0,32) >= 1)) {
  3346.           if ($left(%qt.mess [ $+ [ %i ] ],2) != co) {
  3347.             dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^2 $+ $chan < $+ $remove($nick,^) $+ >^7 $remove($1-,^)
  3348.             beep 1
  3349.             return
  3350.           }
  3351.           elseif ($nick($chan,$nick,o) != $null) {
  3352.             dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^2 $+ $chan < $+ $remove($nick,^) $+ >^7 $remove($1-,^)
  3353.             beep 1
  3354.             return
  3355.           }
  3356.         }
  3357.       }
  3358.       inc %i
  3359.     }
  3360.   }
  3361. }
  3362.  
  3363. on *:text:*:?: {
  3364.   if (($fmess == 1) && (%qtool.play == "playing") && (%qt.mess != $null)) { 
  3365.     var %temp
  3366.     var %i = 1
  3367.     while (%i <= %qt.mess) {
  3368.       if (($wildtok($nick $+ ! $+ $address,$gettok(%qt.mess [ $+ [ %i ] ],5,32),0,32) == 1) && ($gettok(%qt.mess [ $+ [ %i ] ],2,32) == p)) {
  3369.         if ($wildtok($1-,$gettok(%qt.mess [ $+ [ %i ] ],7,32),0,32) == 1) {
  3370.           dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo * $+ $remove($nick,^) $+ *^7 $remove($1-,^)
  3371.           beep 1
  3372.           return
  3373.         }
  3374.       }
  3375.       inc %i
  3376.     }
  3377.   }
  3378. }
  3379.  
  3380. on *:join:#: {
  3381.   if (($fmess == 1) && (%qtool.play == "playing") && (%qt.mess != $null)) { 
  3382.     var %temp
  3383.     var %i = 1
  3384.     while (%i <= %qt.mess) {
  3385.       if (($wildtok($nick $+ ! $+ $address,$gettok(%qt.mess [ $+ [ %i ] ],5,32),0,32) == 1) && ($gettok(%qt.mess [ $+ [ %i ] ],4,32) == +j)) {
  3386.         if ($wildtok($chan,$gettok(%qt.mess [ $+ [ %i ] ],6,32),0,32) == 1) {
  3387.           dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^2* $remove($nick,^) has joined $remove($chan,^)
  3388.           beep 1
  3389.           return
  3390.         }
  3391.       }
  3392.       inc %i
  3393.     }
  3394.   }
  3395. }
  3396.  
  3397. on *:op:#: {
  3398.   if (($fmess == 1) && (%qtool.play == "playing") && (%qt.mess != $null)) {
  3399.     var %temp
  3400.     var %i = 1
  3401.     while (%i <= %qt.mess) {
  3402.       if (($wildtok($opnick $+ ! $+ $address,$gettok(%qt.mess [ $+ [ %i ] ],5,32),0,32) == 1) && ($gettok(%qt.mess [ $+ [ %i ] ],3,32) == +o)) {
  3403.         if ($wildtok($chan,$gettok(%qt.mess [ $+ [ %i ] ],6,32),0,32) == 1) {
  3404.           dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^2* $remove($opnick,^) has become op on $remove($chan,^)
  3405.           beep 1
  3406.           return
  3407.         }
  3408.       }
  3409.       inc %i
  3410.     }
  3411.   }
  3412. }
  3413. ;;sgt
  3414. #mpp.qtool end
  3415.  
  3416. alias -l loadfilter {
  3417.   var %i = 1
  3418.   set %qt.mess $lines(" $+ $scriptdir $+ qtool\messenger.txt")
  3419.   while (%i <= %qt.mess) {
  3420.     set %qt.mess [ $+ [ %i ] ] $read(" $+ $scriptdir $+ qtool\messenger.txt",%i)
  3421.     inc %i
  3422.   }
  3423. }
  3424.  
  3425. on *:udpread:QTool: {
  3426.   var %i = 1
  3427.   var %temp
  3428.   var %ping = $round($calc($ticks - %QTool.startping),0)
  3429.   sockread %temp
  3430.   if ($left(%temp,4) == $str($chr(255),4)) {
  3431.     .timerqttimeout off
  3432.     if ($read(" $+ $scriptdir $+ qtool\qtlast.txt", w, $did(QTool,13) $+ *) != $null) { write -dl $+ $readn " $+ $scriptdir $+ qtool\qtlast.txt" }
  3433.     write -il1 " $+ $scriptdir $+ qtool\qtlast.txt" $did(QTool,13) $did(QTool,35)
  3434.     if ($lines(" $+ $scriptdir $+ qtool\qtlast.txt") > 5) { write -d " $+ $scriptdir $+ qtool\qtlast.txt" }
  3435.     did -c QTool 13
  3436.     did -o QTool 13 0 $gettok($read(" $+ $scriptdir $+ qtool\qtlast.txt",1), 1, 32)
  3437.     while (%i <= $lines(" $+ $scriptdir $+ qtool\qtlast.txt")) {
  3438.       did -o QTool 13 $calc(%i) $gettok($read(" $+ $scriptdir $+ qtool\qtlast.txt",%i), 1, 32)
  3439.       inc %i
  3440.     }
  3441.     unset %QTool.clients
  3442.     unset %QTool.players
  3443.     unset %qtool.activep
  3444.     did -o QTool 29 1 %ping
  3445.     if (%ping < 15) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale1.bmp" }
  3446.     elseif (%ping < 21) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale2.bmp" }
  3447.     elseif (%ping < 26) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale3.bmp" }
  3448.     elseif (%ping < 31) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale4.bmp" }
  3449.     elseif (%ping < 36) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale5.bmp" }
  3450.     elseif (%ping < 41) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale6.bmp" }
  3451.     elseif (%ping < 46) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale7.bmp" }
  3452.     elseif (%ping < 51) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale8.bmp" }
  3453.     elseif (%ping < 56) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale9.bmp" }
  3454.     elseif (%ping < 61) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale10.bmp" }
  3455.     elseif (%ping < 66) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale11.bmp" }
  3456.     elseif (%ping < 71) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale12.bmp" }
  3457.     elseif (%ping < 76) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale13.bmp" }
  3458.     elseif (%ping < 81) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale14.bmp" }
  3459.     elseif (%ping < 86) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale15.bmp" }
  3460.     elseif (%ping < 91) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale16.bmp" }
  3461.     elseif (%ping < 96) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale17.bmp" }
  3462.     elseif (%ping < 101) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale18.bmp" }
  3463.     elseif (%ping < 106) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale19.bmp" }
  3464.     elseif (%ping < 200) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale20.bmp" }
  3465.     elseif (%ping < 400) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale21.bmp" }
  3466.     elseif (%ping < 600) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale22.bmp" }
  3467.     elseif (%ping < 800) { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale23.bmp" }
  3468.     else { did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale24.bmp" }
  3469.     did -r QTool 61,62,63,64
  3470.   }
  3471.   elseif $left(%temp, 1) == \ {
  3472.     %QTool.svvars = $left(%temp,917)
  3473.     showvar
  3474.     set %temp $right(%temp,917)
  3475.     wolfvars %temp
  3476.     updateField 43 mapname %temp
  3477.     if ($exists(" $+ $scriptdir $+ qtool\maps\ $+ $did(Qtool,43) $+ .jpg")) did -g QTool 124 " $+ $scriptdir $+ qtool\maps\ $+ $did(Qtool,43) $+ .jpg"
  3478.     updateField 17 version %temp
  3479.     updateField 45 fraglimit %temp
  3480.     if ($gettok(%temp, $calc($findtok(%temp,timelimit,1,92) + 1), 92) isnum) { updateField 56 timelimit %temp }
  3481.     updateField 15 sv_hostname %temp
  3482.     set %QTool.hostname $did(QTool, 15).text
  3483.     updateField 4 sv_punkbuster %temp
  3484.     updateField 19 g_gametype %temp
  3485.     updateField 23 sv_maxclients %temp
  3486.     updateField 25 sv_privateclients %temp
  3487.     updateField 21 gamename %temp
  3488.     if $istok(%temp,gameversion,92) { updateField 92 gameversion %temp }
  3489.     elseif $istok(%temp,gameversion,92) { updateField 92 g_modversion %temp }
  3490.     elseif $istok(%temp,g_version,92) { updateField 92 g_version %temp }
  3491.     elseif $istok(%temp,g_q3fVersion,92) { updateField 92 g_q3fVersion %temp }
  3492.     elseif $istok(%temp,wfversion,92) { updateField 92 wfversion %temp }
  3493.     elseif $istok(%temp,g_RQ3_version,92) { updateField 92 g_RQ3_version %temp }
  3494.     elseif $istok(%temp,modversion,92) { updateField 92 modversion %temp }
  3495.     elseif $istok(%temp,g_banimodVersion,92) { updateField 92 g_banimodVersion %temp }
  3496.     elseif $istok(%temp,g_wwversion,92) { updateField 92 g_wwversion %temp }
  3497.     updateField 68 Score_Red %temp
  3498.     updateField 66 Score_Blue %temp
  3499.     updateField 112 g_needpass %temp
  3500.     if ($compact == 1) {
  3501.       var %mod = $readini " $+ $scriptdir $+ qtool\q3games.txt" $gettok($did(QTool,21).text,1,47) $did(QTool,19).text
  3502.       if (%mod != $null) {
  3503.         did -o QTool 19 1 $gettok(%mod,2,44)
  3504.       }
  3505.     }
  3506.     else {
  3507.       var %mod = $readini " $+ $scriptdir $+ qtool\q3games.txt" $did(QTool,21).text $did(QTool,19).text
  3508.       if (%mod != $null) {
  3509.         did -o QTool 19 1 $gettok(%mod,1,44)
  3510.       }
  3511.     }
  3512.     if ($addmodtonick == 1) {
  3513.       if (%mod != $null) {
  3514.         did -o QTool 33 1 $awnick $+ $gettok(%mod,2,44)
  3515.       }
  3516.       else {
  3517.         did -o QTool 33 1 $wnick
  3518.       }
  3519.     }
  3520.     if ($did(QTool,112).text == 0) {
  3521.       did -o QTool 112 1 No 
  3522.       did -g QTool 122 " $+ $scriptdir $+ qtool\ok.bmp"
  3523.     }
  3524.     elseif ($did(QTool,112).text == 1) {
  3525.       did -o QTool 112 1 Yes
  3526.       did -g QTool 122 " $+ $scriptdir $+ qtool\locked.bmp"
  3527.     }
  3528.     if ($did(QTool,4).text == 1) did -o QTool 4 1 Yes
  3529.     else did -o QTool 4 1 No
  3530.     var %version = $read(" $+ $scriptdir $+ qtool\q3vers.txt", s, $file($q3exe).size)
  3531.     var %versok = $false
  3532.     %i = 1
  3533.     while (%i <= $numtok(%version, 32)) {
  3534.       if ($wildtok($did(QTool,17).text, * $+ $gettok(%version, %i, 32) $+ *, 0,32) > 0) { %versok = $true }
  3535.       inc %i
  3536.     }
  3537.     if (%versok) { did -g QTool 172 " $+ $scriptdir $+ qtool\ok.bmp" }
  3538.     else { did -g QTool 172 " $+ $scriptdir $+ qtool\locked.bmp" }
  3539.     if ($compact == 1) {
  3540.       if ($wildtok($did(QTool,17).text, *Q3*, 0,32) > 0) {
  3541.         did -o QTool 17 1 Q3 $wildtok($did(QTool,17).text, *1.*, 1,32)
  3542.       }
  3543.       did -o QTool 21 1 $did(QTool,21) $IIF($did(QTool,92) != $null,/ $did(QTool,92))
  3544.     }
  3545.     if $istok(%temp,Score_Time,92) { did -o QTool 82 1 $gettok(%temp, $calc($findtok(%temp,Score_Time,1,92) + 1), 92) }
  3546.     if $istok(%temp,Players_Red,92) { set %qtool.redplayers $gettok(%temp, $calc($findtok(%temp,Players_Red,1,92) + 1), 92) }
  3547.     else { unset %qtool.redplayers | unset %qtool.blueplayers }
  3548.     if $istok(%temp,Players_Blue,92) { set %qtool.blueplayers $gettok(%temp, $calc($findtok(%temp,Players_Blue,1,92) + 1), 92) }
  3549.     if $istok(%temp,Players_Active,92) { set %qtool.activep $gettok(%temp, $calc($findtok(%temp,Players_Active,1,92) + 1), 92) }
  3550.     .timerqtaddp -m 1 50 addplayers
  3551.   }
  3552.   elseif $gettok(%temp,1,32) isnum { 
  3553.     inc %qtool.clients
  3554.     set %qtool.players $addtok(%qtool.players,%temp,13)
  3555.     did -r QTool 61,62,63,64
  3556.   }
  3557. }
  3558.  
  3559. alias -l showvar {
  3560.   var %z = 1
  3561.   while (%z <= $numtok(%QTool.svvars,92)) {
  3562.     did -a QTool 184 $gettok(%QTool.svvars, %z, 92) : $gettok(%QTool.svvars, $calc(%z + 1), 92)
  3563.     %z = %z + 2
  3564.   }
  3565.   unset %QTool.svvars
  3566. }
  3567.  
  3568. alias -l updateField {
  3569.   var %temp = $remove($3-,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,,|)
  3570.   if $istok(%temp,$2,92) {
  3571.     did -o QTool $1 1 $gettok(%temp, $calc($findtok(%temp, $2, 1, 92) + 1), 92)
  3572.     if ($2 = g_gametype) { %qt.gametype = $gettok(%temp, $calc($findtok(%temp, $2, 1, 92) + 1), 92) }
  3573.   }
  3574. }
  3575.  
  3576. alias -l sortplayers {
  3577.   var %y = %qtool.clients
  3578.   var %i = 1
  3579.   set %qtool.players $replace(%qtool.players,^",")
  3580.   while (%i < $mid(%qtool.players,1,0)) {
  3581.     if ($mid(%qtool.players,%i,1) == $chr(94)) {
  3582.       if (($mid(%qtool.players,$calc(%i + 1),1) == $chr(120)) || ($mid(%qtool.players,$calc(%i + 1),1) == $chr(88))) {
  3583.         %qtool.players = $left(%qtool.players,$calc(%i - 1)) $+ $right(%qtool.players,$mid(%qtool.players,$calc(%i + 8),0))
  3584.         dec %i
  3585.       }
  3586.       else {
  3587.         %qtool.players = $left(%qtool.players,$calc(%i - 1)) $+ $right(%qtool.players,$mid(%qtool.players,$calc(%i + 2),0))
  3588.         dec %i
  3589.       }
  3590.     }
  3591.     inc %i
  3592.   }
  3593.   %i = 1
  3594.   set %qtool.players $replace(%qtool.players,"","^")
  3595.   while ( %y > 0 ) {
  3596.     if $istok(%qtool.blueplayers,%y,32) { set %qtool.players $puttok(%qtool.players,$addtok($gettok(%qtool.players,%y,13),blue,32) ,%y,13) }
  3597.     elseif $istok(%qtool.redplayers,%y,32) { set %qtool.players $puttok(%qtool.players,$addtok($gettok(%qtool.players,%y,13),red,32) ,%y,13) }
  3598.     elseif $istok(%qtool.activep,%y,32) { 
  3599.       set %qtool.temp play $+ %i
  3600.       set %qtool.players $puttok(%qtool.players,$addtok($gettok(%qtool.players,%y,13),%qtool.temp,32) ,%y,13) 
  3601.       inc %i
  3602.     }
  3603.     else { set %qtool.players $puttok(%qtool.players,$addtok($gettok(%qtool.players,%y,13),none,32) ,%y,13) }
  3604.     set %qtool.players $puttok(%qtool.players,$replace($gettok($gettok(%qtool.players,%y,13),2,34),$chr(32),^),$calc(%y * 2),34)
  3605.     dec %y
  3606.   }
  3607.   set %qtool.players $sorttok(%qtool.players,13,n)
  3608. }
  3609.  
  3610. alias -l addplayers {
  3611.   var %count = 1
  3612.   var %x = %qtool.clients
  3613.   did -o QTool 27 1 %qtool.clients
  3614.   if ($did(QTool,27) == $null) { did -o QTool 27 1 0 }
  3615.   if ($did(QTool,27) == 0) did -g QTool 123 " $+ $scriptdir $+ qtool\ok.bmp"
  3616.   elseif ($calc($did(QTool,23) - $did(QTool,27) - $did(QTool,25)) > 0) did -g QTool 123 " $+ $scriptdir $+ qtool\populated.bmp"
  3617.   if ($calc($did(QTool,23) - $did(QTool,27) - $did(QTool,25)) <= 0) did -g QTool 123 " $+ $scriptdir $+ qtool\locked.bmp"
  3618.   if ((($right($did(QTool,122),10) != locked.bmp) || ($did(Qtool,35,0) != $null)) && ($right($did(QTool,123),10) != locked.bmp) && ($right($did(QTool,172),10) != locked.bmp)) did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3619.   sortplayers
  3620.   if (($did(QTool,66).text > $did(QTool,68).text) && (%count < 18)) {
  3621.     while ( %x > 0 ) {
  3622.       if $istok($gettok($gettok(%qtool.players,%x,13),4,32),blue,32) { 
  3623.         did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32))
  3624.         did -a QTool 62 $gettok($gettok(%qtool.players,%x,13),1,32)
  3625.         did -a QTool 64 $gettok($gettok(%qtool.players,%x,13),2,32)
  3626.         did -a QTool 63 Blue 
  3627.         inc %count
  3628.       }
  3629.       dec %x
  3630.     }
  3631.     %x = %qtool.clients
  3632.     while ( %x > 0 ) {
  3633.       if ($istok($gettok($gettok(%qtool.players,%x,13),4,32),red,32) && (%count < 18)) {
  3634.         did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32))
  3635.         did -a QTool 62 $gettok($gettok(%qtool.players,%x,13),1,32)
  3636.         did -a QTool 64 $gettok($gettok(%qtool.players,%x,13),2,32)
  3637.         did -a QTool 63 Red 
  3638.         inc %count
  3639.       }
  3640.       dec %x
  3641.     }
  3642.   }
  3643.   else {
  3644.     while ( %x > 0 ) {
  3645.       if ($istok($gettok($gettok(%qtool.players,%x,13),4,32),red,32) && (%count < 18)) {
  3646.         did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32))
  3647.         did -a QTool 62 $gettok($gettok(%qtool.players,%x,13),1,32)
  3648.         did -a QTool 64 $gettok($gettok(%qtool.players,%x,13),2,32)
  3649.         did -a QTool 63 Red 
  3650.         inc %count
  3651.       }
  3652.       dec %x
  3653.     }
  3654.     %x = %qtool.clients
  3655.     while ( %x > 0 ) {
  3656.       if ($istok($gettok($gettok(%qtool.players,%x,13),4,32),blue,32) && (%count < 18)) { 
  3657.         did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32))
  3658.         did -a QTool 62 $gettok($gettok(%qtool.players,%x,13),1,32)
  3659.         did -a QTool 64 $gettok($gettok(%qtool.players,%x,13),2,32)
  3660.         did -a QTool 63 Blue 
  3661.         inc %count
  3662.       }
  3663.       dec %x
  3664.     }
  3665.   }
  3666.   %x = %qtool.clients
  3667.   while ( %x > 0 ) {
  3668.     if (($left($gettok($gettok(%qtool.players,%x,13),4,32),4) == play) && (%count < 18)) {
  3669.       if ($gettok($gettok(%qtool.players,%x,13),4,32) == play1)  { did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32)) $+ $chr(32) $+ (Red) }
  3670.       elseif ($gettok($gettok(%qtool.players,%x,13),4,32) == play2)  { did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32)) $+ $chr(32) $+ (Blue) }
  3671.       else { did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32)) }
  3672.       did -a QTool 62 $gettok($gettok(%qtool.players,%x,13),1,32)
  3673.       did -a QTool 64 $gettok($gettok(%qtool.players,%x,13),2,32)
  3674.       did -a QTool 63 Play
  3675.       inc %count
  3676.     }
  3677.     dec %x
  3678.   }
  3679.   %x = %qtool.clients
  3680.   while ( %x > 0 ) {
  3681.     if ($istok($gettok($gettok(%qtool.players,%x,13),4,32),none,32) && (%count < 18)) {
  3682.       did -a QTool 61 $replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32))
  3683.       did -a QTool 62 $gettok($gettok(%qtool.players,%x,13),1,32)
  3684.       did -a QTool 64 $gettok($gettok(%qtool.players,%x,13),2,32)
  3685.       did -a QTool 63 $iif(($gettok(%qtool.activep,1,32) != $null),Spec)
  3686.       inc %count
  3687.     }
  3688.     dec %x
  3689.   }
  3690.   if (($did(QTool,68) == $null) && ($gettok(%qtool.activep,3,32) == $null)) {
  3691.     %x = %qtool.clients
  3692.     while ( %x > 0 ) {
  3693.       if ($gettok($gettok(%qtool.players,%x,13),4,32) == play1)  { did -a QTool 68 $gettok($gettok(%qtool.players,%x,13),1,32) }
  3694.       if ($gettok($gettok(%qtool.players,%x,13),4,32) == play2)  { did -a QTool 66 $gettok($gettok(%qtool.players,%x,13),1,32) }
  3695.       dec %x
  3696.     }
  3697.   }
  3698.   unset qtactive
  3699.   did -o QTool 30 1 Ready
  3700.   pbwebcheck
  3701.   wolfcheck
  3702. }
  3703.  
  3704. alias -l pbwebcheck {
  3705.   if ($left($did(QTool,17),4) == Wolf) {
  3706.     if ($exists(" $+ $nofile($wexe) $+ pb\pbweb.exe")) { did -e QTool 2 }
  3707.     else { did -b QTool 2 }
  3708.   }
  3709.   elseif ($left($did(QTool,17),2) == ET) {
  3710.     if ($exists(" $+ $nofile($eexe) $+ pb\pbweb.exe")) { did -e QTool 2 }
  3711.     else { did -b QTool 2 }
  3712.   }
  3713.   else {
  3714.     if ($exists(" $+ $nofile($q3exe) $+ pb\pbweb.exe")) { did -e QTool 2 }
  3715.     else { did -b QTool 2 }
  3716.   }
  3717. }
  3718.  
  3719. alias -l wolfvars {
  3720.   var %temp = $remove($1-,^1,^2,^3,^4,^5,^6,^7,^8,^9,^0,^b,^n,^,)
  3721.   if $istok(%temp,g_gametype,92) { set %qt.wgametype $gettok(%temp, $calc($findtok(%temp,g_gametype, 1, 92) + 1), 92) }
  3722.   if $istok(%temp,g_friendlyFire,92) { set %qt.wfriendlyFire $gettok(%temp, $calc($findtok(%temp,g_friendlyFire, 1, 92) + 1), 92) }
  3723. }
  3724.  
  3725. alias -l wolfcheck {
  3726.   if ($left($did(QTool,17),4) == Wolf) {
  3727.     did -ub QTool 174
  3728.     if ($compact == 1) {
  3729.       did -o QTool 44 1 FF:
  3730.     }
  3731.     else {
  3732.       did -o QTool 44 1 F.Fire:
  3733.     }
  3734.     did -g QTool 172 " $+ $scriptdir $+ qtool\none.bmp"
  3735.     did -g QTool 38 " $+ $scriptdir $+ qtool\connect.bmp"
  3736.     if ($did(QTool,112).text == $null) {
  3737.       did -o QTool 112 1 No 
  3738.       did -g QTool 122 " $+ $scriptdir $+ qtool\ok.bmp"
  3739.     }
  3740.     did -g QTool 124 " $+ $scriptdir $+ qtool\wolfmaps\unknownmap.jpg"
  3741.     if ($exists(" $+ $scriptdir $+ qtool\wolfmaps\ $+ $did(Qtool,43) $+ .jpg")) did -g QTool 124 " $+ $scriptdir $+ qtool\wolfmaps\ $+ $did(Qtool,43) $+ .jpg"
  3742.     var %mod = $readini " $+ $scriptdir $+ qtool\wgames.txt" $gettok($did(QTool,21).text,1,47) %qt.wgametype
  3743.     if ($compact == 1) {
  3744.       if (%mod != $null) {
  3745.         did -o QTool 19 1 $gettok(%mod,2,44)
  3746.       }
  3747.       else { did -o QTool 19 1 %qt.wgametype }
  3748.     }
  3749.     else {
  3750.       if (%mod != $null) {
  3751.         did -o QTool 19 1 $gettok(%mod,1,44)
  3752.       }
  3753.       else { did -o QTool 19 1 %qt.wgametype }
  3754.     }
  3755.     if ($addmodtownick == 1) {
  3756.       if (%mod != $null) {
  3757.         did -o QTool 33 1 $wolfawnick $+ $gettok(%mod,2,44)
  3758.       }
  3759.       else {
  3760.         did -o QTool 33 1 $wolfawnick
  3761.       }
  3762.     }
  3763.     else { did -o QTool 33 1 $wolfawnick }
  3764.     if (%qt.wfriendlyFire == 1) { did -o QTool 45 1 On }
  3765.     elseif (%qt.wfriendlyFire == 0) { did -o QTool 45 1 Off }
  3766.     var %version = $read(" $+ $scriptdir $+ qtool\wvers.txt", s, $file($wexe).size)
  3767.     var %versok = $false
  3768.     var %i = 1
  3769.     while (%i <= $numtok(%version, 32)) {
  3770.       if ($wildtok($did(QTool,17).text, * $+ $gettok(%version, %i, 32) $+ *, 0,32) > 0) { %versok = $true }
  3771.       inc %i
  3772.     }
  3773.     if (%versok) { did -g QTool 172 " $+ $scriptdir $+ qtool\ok.bmp" }
  3774.     else { did -g QTool 172 " $+ $scriptdir $+ qtool\locked.bmp" }
  3775.     if ($compact == 1) {
  3776.       if ($wildtok($did(QTool,17).text, *WOLF*, 0,32) > 0) {
  3777.         did -o QTool 17 1 RtCW $wildtok($did(QTool,17).text, *1.*, 1,32)
  3778.       }
  3779.     }
  3780.     if ((($right($did(QTool,122),10) != locked.bmp) || ($did(Qtool,35,0) != $null)) && ($right($did(QTool,123),10) != locked.bmp) && ($right($did(QTool,172),10) != locked.bmp)) did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3781.     unset %qt.w*
  3782.   }
  3783.   elseif ($left($did(QTool,17),2) == ET) {
  3784.     did -ub QTool 174
  3785.     if ($compact == 1) {
  3786.       did -o QTool 44 1 FF:
  3787.     }
  3788.     else {
  3789.       did -o QTool 44 1 F.Fire:
  3790.     }
  3791.     did -g QTool 172 " $+ $scriptdir $+ qtool\none.bmp"
  3792.     did -g QTool 38 " $+ $scriptdir $+ qtool\connect.bmp"
  3793.     if ($did(QTool,112).text == $null) {
  3794.       did -o QTool 112 1 No 
  3795.       did -g QTool 122 " $+ $scriptdir $+ qtool\ok.bmp"
  3796.     }
  3797.     did -g QTool 124 " $+ $scriptdir $+ qtool\etmaps\unknownmap.jpg"
  3798.     if ($exists(" $+ $scriptdir $+ qtool\etmaps\ $+ $did(Qtool,43) $+ .jpg")) did -g QTool 124 " $+ $scriptdir $+ qtool\etmaps\ $+ $did(Qtool,43) $+ .jpg"
  3799.     var %mod = $readini " $+ $scriptdir $+ qtool\wgames.txt" $gettok($did(QTool,21).text,1,47) %qt.wgametype
  3800.     if ($compact == 1) {
  3801.       if (%mod != $null) {
  3802.         did -o QTool 19 1 $gettok(%mod,2,44)
  3803.       }
  3804.       else { did -o QTool 19 1 %qt.wgametype }
  3805.     }
  3806.     else {
  3807.       if (%mod != $null) {
  3808.         did -o QTool 19 1 $gettok(%mod,1,44)
  3809.       }
  3810.       else { did -o QTool 19 1 %qt.wgametype }
  3811.     }
  3812.     if ($addmodtownick == 1) {
  3813.       if (%mod != $null) {
  3814.         did -o QTool 33 1 $etawnick $+ $gettok(%mod,2,44)
  3815.       }
  3816.       else {
  3817.         did -o QTool 33 1 $etawnick
  3818.       }
  3819.     }
  3820.     else { did -o QTool 33 1 $etawnick }
  3821.     if (%qt.wfriendlyFire == 1) { did -o QTool 45 1 On }
  3822.     elseif (%qt.wfriendlyFire == 0) { did -o QTool 45 1 Off }
  3823.     var %version = $read(" $+ $scriptdir $+ qtool\evers.txt", s, $file($eexe).size)
  3824.     var %versok = $false
  3825.     var %i = 1
  3826.     while (%i <= $numtok(%version, 32)) {
  3827.       if ($wildtok($did(QTool,17).text, * $+ $gettok(%version, %i, 32) $+ *, 0,32) > 0) { %versok = $true }
  3828.       inc %i
  3829.     }
  3830.     if (%versok) { did -g QTool 172 " $+ $scriptdir $+ qtool\ok.bmp" }
  3831.     else { did -g QTool 172 " $+ $scriptdir $+ qtool\locked.bmp" }
  3832.     if ($compact == 1) {
  3833.       if ($wildtok($did(QTool,17).text, *WOLF*, 0,32) > 0) {
  3834.         did -o QTool 17 1 RtCW $wildtok($did(QTool,17).text, *1.*, 1,32)
  3835.       }
  3836.     }
  3837.     if ((($right($did(QTool,122),10) != locked.bmp) || ($did(Qtool,35,0) != $null)) && ($right($did(QTool,123),10) != locked.bmp) && ($right($did(QTool,172),10) != locked.bmp)) did -g QTool 38 " $+ $scriptdir $+ qtool\connect2.bmp"
  3838.     unset %qt.w*
  3839.   }
  3840.   sockclose QTool
  3841. }
  3842.  
  3843. alias -l postlsinfo {
  3844.   if ($did(QTool,15) != $null) {
  3845.     if (c isin $gettok($chan($did(QTool,71).text).mode,1,32)) { var %qtool.pplayer }
  3846.     else { var %qtool.pplayer = 4 }
  3847.     var %x = %qtool.clients
  3848.     if ($status == connected) {
  3849.       if (c isin $gettok($chan($did(QTool,71).text).mode,1,32)) { 
  3850.         msg $did(QTool,71).text Lifestats: < $did(QTool,19).text $did(QTool,96).text >
  3851.         msg $did(QTool,71).text Lifestats: Server: $iif($did(QTool,15) != $null, $did(QTool,15).text, N/A) $iif($did(QTool,13) != $null,IP: $did(QTool,13).text)
  3852.         msg $did(QTool,71).text Lifestats: Map: $iif($did(QTool,43) != $null, $did(QTool,43).text, N/A) $iif($did(QTool,56) != $null,Timelimit: $did(QTool,56).text) $iif(($did(QTool,45) != 0) && ($did(QTool,45) isnum),Fraglimit: $did(QTool,45))
  3853.       }
  3854.       else {
  3855.         msg $did(QTool,71).text 14Lifestats: 14<6 $did(QTool,19).text $did(QTool,96).text 14>
  3856.         msg $did(QTool,71).text 14Lifestats: Server:6 $iif($did(QTool,15) != $null, $did(QTool,15).text, N/A) $iif($did(QTool,13) != $null,IP:6 $did(QTool,13).text)
  3857.         msg $did(QTool,71).text 14Lifestats: Map:6 $iif($did(QTool,43) != $null, $did(QTool,43).text, N/A) $iif($did(QTool,56) != $null,Timelimit:6 $did(QTool,56).text) $iif(($did(QTool,45) != 0) && ($did(QTool,45) isnum),1Fraglimit:6 $did(QTool,45))
  3858.       }
  3859.     }
  3860.     while ( %x > 0 ) {
  3861.       if $istok($gettok($gettok(%qtool.players,%x,13),4,32),red,32) {
  3862.         %qtool.pplayer = $addtok(%qtool.pplayer,$replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32)),44)
  3863.         %qtool.pplayer = %qtool.pplayer $iif(c !isin $gettok($chan($did(QTool,71).text).mode,1,32),$+ ) $+ ( $+ $gettok($gettok(%qtool.players,%x,13),1,32) $+ )
  3864.       }
  3865.       dec %x
  3866.     }
  3867.     if (c !isin $gettok($chan($did(QTool,71).text).mode,1,32)) { 
  3868.       %qtool.komma = $chr(44) $+ 4
  3869.       %qtool.pplayer = $replace(%qtool.pplayer,$chr(44),%qtool.komma) $+ 12
  3870.     } 
  3871.     %x = %qtool.clients
  3872.     while ( %x > 0 ) {
  3873.       if $istok($gettok($gettok(%qtool.players,%x,13),4,32),blue,32) { 
  3874.         %qtool.pplayer = $addtok(%qtool.pplayer,$replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32)),44)
  3875.         %qtool.pplayer = %qtool.pplayer $iif(c !isin $gettok($chan($did(QTool,71).text).mode,1,32),$+ ) $+ ( $+ $gettok($gettok(%qtool.players,%x,13),1,32) $+ )
  3876.       }
  3877.       dec %x
  3878.     }
  3879.     if (c !isin $gettok($chan($did(QTool,71).text).mode,1,32)) { 
  3880.       %qtool.komma = $chr(44) $+ 12
  3881.       %qtool.pplayer = $replace(%qtool.pplayer,$chr(44),%qtool.komma) $+ 
  3882.     }
  3883.     %x = %qtool.clients
  3884.     while ( %x > 0 ) {
  3885.       if ($left($gettok($gettok(%qtool.players,%x,13),4,32),4) == play) {
  3886.         %qtool.pplayer = $addtok(%qtool.pplayer,$replace($gettok($gettok(%qtool.players,%x,13),2,34),^,$chr(32)),44)
  3887.         %qtool.pplayer = %qtool.pplayer $iif(c !isin $gettok($chan($did(QTool,71).text).mode,1,32),$+ ) $+ ( $+ $gettok($gettok(%qtool.players,%x,13),1,32) $+ )
  3888.       }
  3889.       dec %x
  3890.     }
  3891.     %qtool.pplayer = $deltok(%qtool.pplayer,1,44)
  3892.     if ((%qtool.pplayer != $null) && ($status == connected)) {
  3893.       if (c isin $gettok($chan($did(QTool,71).text).mode,1,32)) { msg $did(QTool,71).text Lifestats: Players: %qtool.pplayer }
  3894.       else { msg $did(QTool,71).text 14Lifestats: Players: %qtool.pplayer }
  3895.     }
  3896.     did -o QTool 30 1 Server Info posted!
  3897.   }
  3898. }
  3899.  
  3900. alias -l lsresult {
  3901.   qquery %qtool.lifeserver
  3902.   .timerqtpostlsresult 1 1 postlsresult
  3903. }
  3904.  
  3905. alias -l postlsresult {
  3906.   if (($dialog(QTool) != $null) && ($did(QTool,82).text == Timelimit) && ($status == connected)) {
  3907.     if (c isin $gettok($chan($did(QTool,71).text).mode,1,32)) { 
  3908.       msg $did(QTool,71).text Lifestats: $did(QTool,96).text $did(QTool,73).text vs. $did(QTool,75).text reached timelimit
  3909.       msg $did(QTool,71).text Lifestats: Result < $did(QTool,73).text $did(QTool,68).text $+ : $+ $did(QTool,66).text $did(QTool,75).text > $iif($did(QTool,43) != $null, on $did(QTool,43).text)
  3910.     }
  3911.     else {
  3912.       msg $did(QTool,71).text 14Lifestats: $did(QTool,96).text 4 $did(QTool,73).text vs.12 $did(QTool,75).text reached 6timelimit
  3913.       msg $did(QTool,71).text 14Lifestats: Result 14<4 $did(QTool,73).text  $+  $did(QTool,68).text $+ : $+ $did(QTool,66).text  $+ 12 $did(QTool,75).text 14> $iif($did(QTool,43) != $null, on 6 $+ $did(QTool,43).text)
  3914.     }
  3915.   }
  3916.   elseif ($left($did(QTool,82).text),7) == Timeout) {
  3917.     .timerqtlsresult off
  3918.     .timerqtlsresult 1 5 lsresult
  3919.   }
  3920.   elseif ($gettok($did(QTool,82),1,58) isnum) {
  3921.     .timerqtlsresult off
  3922.     .timerqtlsresult 1 $calc($gettok($did(QTool,82),1,58) * 60 + $gettok($did(QTool,82),2,58) + 1) lsresult
  3923.   }
  3924. }
  3925.  
  3926. alias -l qtlifestats {
  3927.   if ($dialog(QTool) != $null) {
  3928.     qquery %qtool.lifeserver
  3929.     .timerqtpoststats 1 1 poststats
  3930.   }
  3931.   else .timerqtqtlifestats off
  3932. }
  3933.  
  3934. alias -l poststats {
  3935.   if (($dialog(QTool) != $null) && ($status == connected)) {
  3936.     if (($did(QTool,30).text == Ready) && ($did(QTool,66) != $null) && ($did(QTool,68) != $null)) {
  3937.       if (%qtool.lifeblue != $did(QTool,66).text || %qtool.lifered != $did(QTool,68).text || %qtool.lscount == 0) {
  3938.         if  ($right($did(QTool,71).text,1) != $chr(35)) {
  3939.           if (c isin $gettok($chan($did(QTool,71).text).mode,1,32)) { msg $did(QTool,71).text Lifestats: $did(QTool,96).text < $did(QTool,73).text $did(QTool,68).text $+ : $+ $did(QTool,66).text $did(QTool,75).text > < ScoreTime: $did(QTool,82).text > }
  3940.           else { msg $did(QTool,71).text 14Lifestats: $did(QTool,96).text 14<4 $did(QTool,73).text  $+  $did(QTool,68).text $+ : $+ $did(QTool,66).text  $+ 12 $did(QTool,75).text 14> < ScoreTime:6 $did(QTool,82).text 14> }
  3941.         }
  3942.         %qtool.lifeblue = $did(QTool,66).text
  3943.         %qtool.lifered = $did(QTool,68).text
  3944.         %qtool.lscount = 0
  3945.         did -o QTool 30 1 Lifestats!
  3946.       }
  3947.       else did -o QTool 30 1 No Change!
  3948.       if (%qtool.lscount == 5) %qtool.lscount = 0
  3949.       else inc %qtool.lscount
  3950.       if ($gettok($did(QTool,82),1,58) isnum) {
  3951.         .timerqtlsresult off
  3952.         .timerqtlsresult 1 $calc($gettok($did(QTool,82),1,58) * 60 + $gettok($did(QTool,82),2,58) + 1) lsresult
  3953.       }
  3954.     }
  3955.     else { did -o QTool 30 1 Not Posted! }
  3956.   }
  3957. }
  3958.  
  3959. alias -l launchq {
  3960.  
  3961.   ;sgt
  3962.   killemall
  3963.   ;sgt
  3964.  
  3965.   if ((($left($did(QTool,17),2) == Q3) && ($q3exe != $null)) || (($left($did(QTool,17),2) == ET) && ($eexe != $null)) || (($left($did(QTool,17),4) == Wolf) && ($wexe != $null))) {
  3966.     if (( $gettok($did(QTool,13).text,1,46) isnum 0-255) && ($gettok($did(QTool,13).text,2,46) isnum 0-255) && ($gettok($did(QTool,13).text,3,46) isnum 0-255)) {
  3967.       if (($dll(" $+ $scriptdir $+ qtool.dll",Q3ACTIVE,$null) == TRUE) && ($left($did(QTool,17),2) == Q3)) {
  3968.         if (%qtool.play == "playing") { qtrefreshp }
  3969.         else { setplay }
  3970.         if ($did(QTool,35)) { dll " $+ $scriptdir $+ qtool.dll" Q3SEND set password [ $did(QTool,35) ] }
  3971.         dll " $+ $scriptdir $+ qtool.dll" Q3SEND connect $did(QTool,13).text
  3972.       }
  3973.       else {
  3974.         if (($namesonconnect == 1) && ($lines(" $+ $scriptdir $+ qtool\q3names.txt") != 0)) { setq3name }
  3975.         else {
  3976.           if ($left($did(QTool,17),2) == Q3) {
  3977.             write -c " $+ $nofile($q3exe) $+ baseq3\qtool.cfg" set irc ""
  3978.             write " $+ $nofile($q3exe) $+ baseq3\qtool.cfg" set qtool ""
  3979.             if (($did(QTool,174).state == 1) && ($coachprog == 1)) { run " $+ $cexe $+ " }
  3980.             if ($istok($did(QTool,92),osp,32)) {
  3981.               qtconnect " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " +set fs_game osp $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] ) $iif($did(QTool,174).state == 1, [ $cparams ]) $iif($did(QTool,37), [ $did(QTool,37) ])
  3982.             }
  3983.             else {
  3984.               qtconnect " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " $iif($did(QTool,21), +set fs_game [ $did(QTool,21) ] ) $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] ) $iif($did(QTool,174).state == 1, [ $cparams ]) $iif($did(QTool,37), [ $did(QTool,37) ])
  3985.             }
  3986.           }
  3987.           elseif ($left($did(QTool,17),4) == Wolf) {
  3988.             write -c " $+ $nofile($wexe) $+ main\qtool.cfg" set irc ""
  3989.             write " $+ $nofile($wexe) $+ main\qtool.cfg" set qtool ""
  3990.             qtconnect " $+ [ $wexe ] $+ " +set fs_basepath " $+ $nofile($wexe) $+ " $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] )  $iif($did(QTool,37), [ $did(QTool,37) ])
  3991.           }
  3992.           elseif ($left($did(QTool,17),2) == ET) {
  3993.             write -c " $+ $nofile($eexe) $+ etmain\qtool.cfg" set irc ""
  3994.             write " $+ $nofile($eexe) $+ etmain\qtool.cfg" set qtool ""
  3995.             qtconnect " $+ [ $eexe ] $+ " +set fs_basepath " $+ $nofile($eexe) $+ " $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] )  $iif($did(QTool,37), [ $did(QTool,37) ])
  3996.           }
  3997.         }
  3998.       }
  3999.     }
  4000.     else { did -o QTool 30 1 No valid IP! }
  4001.   }
  4002.   else { did -o QTool 30 1 no gamefile! }
  4003. }
  4004.  
  4005. alias -l qtrefreshp {
  4006.   if ($nick != $did(QTool,33)) { tnick $did(QTool,33) }
  4007.   set %qtool.p.ip %qtool.ip
  4008.   set %qtool.p.hostname %qtool.hostname
  4009.   set %qtool.p.pw $did(QTool,35)
  4010.   set %qtool.time $asctime(HH:nn)
  4011.   away 12playing on %qtool.ip %qtool.hostname
  4012.   if ($replyonplay == 1) ame $postplay %qtool.ip %qtool.hostname
  4013.   elseif ($replyonplay == 3) {
  4014.     var %i = 1
  4015.     while (%i <= $numtok($postchannelop,59)) {
  4016.       if ($gettok($postchannelop,%i,59) ischan) { describe $gettok($postchannelop,%i,59) $postplay %qtool.ip %qtool.hostname }
  4017.       inc %i
  4018.     }
  4019.   }
  4020. }
  4021.  
  4022. alias -l setplay {
  4023.   var %i = 1
  4024.   if (($did(QTool,33).text) && ($status == connected)) {
  4025.     if (%qtool.play != "playing") { set %qtool.oldnick $me }
  4026.     tnick $did(QTool,33)
  4027.     away 12playing on %qtool.ip %qtool.hostname
  4028.   }
  4029.   set %qtool.play "playing"
  4030.   set %qtool.p.ip %qtool.ip
  4031.   set %qtool.p.hostname %qtool.hostname
  4032.   set %qtool.p.pw $did(QTool,35)
  4033.   set %qtool.time $asctime(HH:nn)
  4034.   .signal -n q3start
  4035.   if ($seticq == 1) {
  4036.     set %qtool.icq $dll(" $+ $scriptdir $+ qtool.dll",GETUSER,$null)
  4037.     dll " $+ $scriptdir $+ qtool.dll" SETUSER $seticqstat
  4038.   }
  4039.   if ($replyonplay == 1) ame $postplay %qtool.ip %qtool.hostname
  4040.   elseif ($replyonplay == 3) {
  4041.     while (%i <= $numtok($postchannelop,59)) {
  4042.       if ($gettok($postchannelop,%i,59) ischan) { describe $gettok($postchannelop,%i,59) $postplay %qtool.ip %qtool.hostname }
  4043.       inc %i
  4044.     }
  4045.   }
  4046.   if ($scanenable == 1) {
  4047.     .timerq3scan 0 $scansec qtconsolescan
  4048.   }
  4049.   did -o QTool 30 1 Playing
  4050. }
  4051.  
  4052. alias -l qtconsolescan {
  4053.   if ($dll(" $+ $scriptdir $+ qtool.dll",Q3ACTIVE,$null) == TRUE) {
  4054.     var %temp = $dll(" $+ $scriptdir $+ qtool.dll",Q3CONSCAN,\qtool)
  4055.     if (%temp != $Null) {
  4056.       var %num = $gettok(%temp,0,255)
  4057.       var %i = 1
  4058.       while (%i <= %num) {
  4059.         if ($gettok(%temp,%i,255) == off) {
  4060.           .timerq3scan off 
  4061.           dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool: Q3 console scan stopped
  4062.         }
  4063.         elseif ($gettok(%temp,%i,255) == refresh) {
  4064.           dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool ^3scan: cl_currentServerAddress
  4065.           qquery $gettok($wildtok($dll(" $+ $scriptdir $+ qtool.dll",Q3COMMAND,cl_currentServerAddress),*"cl_currentServerAddress"*,1,255),3,34)
  4066.           .timerqtrefreshp 1 1 qtrefreshp
  4067.           dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool: refreshed
  4068.         }
  4069.         inc %i
  4070.       }
  4071.     }
  4072.     unset %temp
  4073.     if ($status == connected) {
  4074.       var %temp = $dll(" $+ $scriptdir $+ qtool.dll",Q3CONSCAN,\irc)
  4075.       if (%temp != $Null) {
  4076.         var %num = $gettok(%temp,0,255)
  4077.         var %i = 1
  4078.         while (%i <= %num) {
  4079.           if ($left($gettok(%temp,%i,255),1) == $chr(35)) {
  4080.             if ($gettok($gettok(%temp,%i,255),1,32) ischan) {
  4081.               msg $gettok(%temp,%i,255)
  4082.               dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool: message send to $gettok($gettok(%temp,%i,255),1,32)
  4083.             }
  4084.             else {
  4085.               dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool: you are not on Channel ^1 $+ $gettok($gettok(%temp,%i,255),1,32)
  4086.             }
  4087.           }
  4088.           else {
  4089.             msg $gettok(%temp,%i,255)
  4090.             dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool: message send to $gettok($gettok(%temp,%i,255),1,32)
  4091.             %qt.q3scan.query = true
  4092.             .timerq3scanquery 1 1 unset %qt.q3scan.query
  4093.           }
  4094.           inc %i
  4095.         }
  4096.       }
  4097.     }
  4098.     dll " $+ $scriptdir $+ qtool.dll" Q3CLEAR
  4099.   }
  4100. }
  4101.  
  4102. raw 401:*: {
  4103.   if ((%qt.q3scan.query == true) && ($dll(" $+ $scriptdir $+ qtool.dll",Q3ACTIVE,$null) == TRUE)) {
  4104.     dll " $+ $scriptdir $+ qtool.dll" Q3SEND echo ^3qtool: no such nick: ^1 $+ $2
  4105.     unset %qt.q3scan.query
  4106.   }
  4107. }
  4108.  
  4109. alias -l qtrefresh {
  4110.   if (( $gettok($did(QTool,13),1,46) isnum 0-255) && ($gettok($did(QTool,13),2,46) isnum 0-255) && ($gettok($did(QTool,13),3,46) isnum 0-255) && ($gettok($gettok($did(QTool,13),4,46),1,58) isnum 0-255)) {
  4111.     if (($did == 13) && ($read(" $+ $scriptdir $+ qtool\qtlast.txt", w, $did(QTool,13) $+ *) != $null)) {
  4112.       did -o QTool 35 0 $gettok($read(" $+ $scriptdir $+ qtool\qtlast.txt",$readn), 2, 32)
  4113.     }
  4114.     if ($window(@Lagometer) != $null) {
  4115.       window -c @Lagometer
  4116.       unset %lag.*
  4117.       sockclose lag
  4118.     }
  4119.     if ((%qtool.play == "playing") && $awnick  && ($status == connected) && ($dll(" $+ $scriptdir $+ qtool.dll",Q3ACTIVE,$null) == FALSE)) {
  4120.       if (%qtool.oldnick != $null) { nick %qtool.oldnick }
  4121.       away
  4122.     }
  4123.     if ((%qtool.play == "playing") && ($dll(" $+ $scriptdir $+ qtool.dll",Q3ACTIVE,$null) == FALSE)) {
  4124.       unset %qtool.play
  4125.       .timerq3scan off
  4126.       .signal -n q3stop
  4127.     }
  4128.     if (($seticq == 1) && ($dll(" $+ $scriptdir $+ qtool.dll",Q3ACTIVE,$null) == FALSE)) {
  4129.       dll " $+ $scriptdir $+ qtool.dll" SETUSER %qtool.icq
  4130.       unset %qtool.icq
  4131.     }
  4132.     did -eu QTool 174
  4133.     if ($did(QTool,13).text != $null) { qquery $did(QTool,13).text }
  4134.     else {
  4135.       did -o QTool 30 1 No Server IP!
  4136.       did -g QTool 122 " $+ $scriptdir $+ qtool\none.bmp"
  4137.       did -g QTool 123 " $+ $scriptdir $+ qtool\none.bmp"
  4138.       did -g QTool 124 " $+ $scriptdir $+ qtool\maps\unknownmap.jpg"
  4139.       did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale0.bmp"
  4140.       did -g QTool 38 " $+ $scriptdir $+ qtool\connect.bmp"
  4141.       did -g QTool 172 " $+ $scriptdir $+ qtool\none.bmp"
  4142.       did -g QTool 6 " $+ $scriptdir $+ qtool\flags\unknown.bmp"
  4143.       did -r QTool 4,15,17,19,21,23,25,27,29,43,45,82,56,61,62,63,64,66,68,92,112,184
  4144.     }
  4145.     unset %qt.mess*
  4146.   }
  4147.   elseif ( $numtok($gettok($did(QTool,13),1,58),46) > 1) {
  4148.     %refdns = true
  4149.     %qt.revport = $gettok($did(QTool,13),2,58)
  4150.     dns -c $gettok($did(QTool,13),1,58)
  4151.     .timerqtrefdns 1 5 unset %refdns
  4152.   }
  4153.   else { did -o QTool 30 1 No valid adress! }
  4154. }
  4155.  
  4156. alias -l qquery {
  4157.   if ($dialog(QTool) == $null) { qtopen  }
  4158.   %qtactive = $dialog(QTool).active
  4159.   else { dialog -iev QTool }
  4160.   if ($compact == 1) {
  4161.     did -o QTool 44 1 Fl:
  4162.   }
  4163.   else {
  4164.     did -o QTool 44 1 Fraglimit:
  4165.   }
  4166.   did -eu QTool 174
  4167.   did -r QTool 4,15,17,19,21,23,25,27,29,43,45,82,56,61,62,63,64,66,68,92,112,184
  4168.   did -g QTool 122 " $+ $scriptdir $+ qtool\none.bmp"
  4169.   did -g QTool 123 " $+ $scriptdir $+ qtool\none.bmp"
  4170.   did -g QTool 124 " $+ $scriptdir $+ qtool\maps\unknownmap.jpg"
  4171.   did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale0.bmp"
  4172.   did -g QTool 38 " $+ $scriptdir $+ qtool\connect.bmp"
  4173.   did -g QTool 172 " $+ $scriptdir $+ qtool\none.bmp"
  4174.   did -o QTool 33 1 $awnick
  4175.   if (( $gettok($1,1,46) isnum 0-255) && ($gettok($1,2,46) isnum 0-255) && ($gettok($1,3,46) isnum 0-255) && ($gettok($gettok($1,4,46),1,58) isnum 0-255)) {
  4176.     set %QTool.port 27960
  4177.     if (: isin $1) { %QTool.port = $left($gettok($1,2,58),5) }
  4178.     sockudp -k QTool $gettok($1,1,58) %QTool.port $str($chr(255),4) $+ getstatus
  4179.     set %QTool.startping $ticks
  4180.     if ($compact != 1) {
  4181.       if ($gettok($1,1,58) != %qt.whoisip) { 
  4182.         did -g QTool 6 " $+ $scriptdir $+ qtool\flags\unknown.bmp"
  4183.         qtwhois $gettok($1,1,58)
  4184.       }
  4185.       elseif (($right($did(QTool,6),11) != unknown.bmp) && ($read(" $+ $scriptdir $+ qtool\whois.txt", s, $gettok($1,1,58)) == $null)) {
  4186.         did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $left($right($did(QTool,6),6),2))
  4187.         write -a " $+ $scriptdir $+ qtool\whois.txt" $gettok($1,1,58) $left($right($did(QTool,6),6),2)
  4188.         if ($lines(" $+ $scriptdir $+ qtool\whois.txt") > 50) write -dl1 " $+ $scriptdir $+ qtool\whois.txt"
  4189.       }
  4190.       else did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $left($right($did(QTool,6),6),2))
  4191.     }
  4192.     set %QTool.ip $gettok($1,1,58) $+ $chr(58) $+ %qtool.port
  4193.     did -o QTool 13 0 %QTool.ip
  4194.     .timerqttimeout 1 1 timeout
  4195.     did -o QTool 30 1 Querying
  4196.   }
  4197.   else { did -o QTool 30 1 No valid IP! }
  4198. }
  4199.  
  4200. alias -l timeout {
  4201.   sockclose QTool
  4202.   if ($dialog(QTool) != $null) {
  4203.     did -o QTool 30 1 Timeout!
  4204.     did -g QTool 124 " $+ $scriptdir $+ qtool\net.jpg"
  4205.     did -g QTool 165 " $+ $scriptdir $+ qtool\scale\scale25.bmp"
  4206. pbwebcheck
  4207.   }
  4208. }
  4209.  
  4210. alias -l setq3name {
  4211.   if ($dialog(QTQ3Name) == $null) {
  4212.     var %i = 1
  4213.     var %j = 1
  4214.     var %temp
  4215.     dialog -ma QTQ3Name QTQ3Name
  4216.     while (%i <= $lines(" $+ $scriptdir $+ qtool\q3names.txt")) {
  4217.       %temp = $read(" $+ $scriptdir $+ qtool\q3names.txt",%i)
  4218.       while (%j < $mid(%temp,1,0)) {
  4219.         if ($mid(%temp,%j,1) == $chr(94)) {
  4220.           if (($mid(%temp,$calc(%j + 1),1) == $chr(120)) || ($mid(%temp,$calc(%j + 1),1) == $chr(88))) {
  4221.             %temp = $left(%temp,$calc(%j - 1)) $+ $right(%temp,$mid(%temp,$calc(%j + 8),0))
  4222.             dec %j
  4223.           }
  4224.           else {
  4225.             %temp = $left(%temp,$calc(%j - 1)) $+ $right(%temp,$mid(%temp,$calc(%j + 2),0))
  4226.             dec %j
  4227.           }
  4228.         }
  4229.         inc %j
  4230.       }
  4231.       did -a QTQ3Name 140 %temp
  4232.       %j = 1
  4233.       inc %i
  4234.     }
  4235.     did -c QTQ3Name 140 1
  4236.     did -o QTQ3Name 1 1 $read(" $+ $scriptdir $+ qtool\q3names.txt",1)
  4237.   }
  4238. }
  4239.  
  4240. dialog -l QTQ3Name {
  4241.   title "QTool name select"
  4242.   size -1 -1 200 140
  4243.   option pixels
  4244.   list 140, 5 5 190 91
  4245.   button "Cancel", 141, 120 115 70 22, cancel
  4246.   button "Connect", 142, 5 115 100 22, ok
  4247.   edit "", 1, 5 90 190 21
  4248. }
  4249.  
  4250. on *:dialog:QTQ3Name:sclick:*: {
  4251.   if ($did == 140) {
  4252.     did -o QTQ3Name 1 1 $read(" $+ $scriptdir $+ qtool\q3names.txt",$did(QTQ3Name,140).sel)
  4253.   }
  4254.   elseif ($did == 142) {
  4255.     if ($did(QTQ3Name,140).sel != $null) {
  4256.       if ($left($did(QTool,17),2) == Q3) {
  4257.         write -c " $+ $nofile($q3exe) $+ baseq3\qtool.cfg" seta name $chr(34) $+ $did(QTQ3Name,1) $+ $chr(34)
  4258.         write " $+ $nofile($q3exe) $+ baseq3\qtool.cfg" set irc ""
  4259.         write " $+ $nofile($q3exe) $+ baseq3\qtool.cfg" set qtool ""
  4260.         if (($did(QTool,174).state == 1) && ($coachprog == 1)) { run " $+ $cexe $+ " }
  4261.         if ($istok($did(QTool,92),osp,32)) {
  4262.           qtconnect " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " +set fs_game osp $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] ) $iif($did(QTool,174).state == 1,  [ $cparams ])  $iif($did(QTool,37), [ $did(QTool,37) ])
  4263.         }
  4264.         else {
  4265.           qtconnect " $+ [ $q3exe ] $+ " +set fs_basepath " $+ $nofile($q3exe) $+ " $iif($did(QTool,21), +set fs_game [ $did(QTool,21) ] ) $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] ) $iif($did(QTool,174).state == 1, [ $cparams ]) $iif($did(QTool,37), [ $did(QTool,37) ])
  4266.         }
  4267.       }
  4268.       elseif ($left($did(QTool,17),4) == Wolf) {
  4269.         write -c " $+ $nofile($wexe) $+ main\qtool.cfg" seta name $chr(34) $+ $did(QTQ3Name,1) $+ $chr(34)
  4270.         write " $+ $nofile($wexe) $+ main\qtool.cfg" set irc ""
  4271.         write " $+ $nofile($wexe) $+ main\qtool.cfg" set qtool ""
  4272.         qtconnect " $+ [ $wexe ] $+ " +set fs_basepath " $+ $nofile($wexe) $+ " $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] )  $iif($did(QTool,37), [ $did(QTool,37) ])
  4273.       }
  4274.       elseif ($left($did(QTool,17),2) == ET) {
  4275.         write -c " $+ $nofile($eexe) $+ etmain\qtool.cfg" seta name $chr(34) $+ $did(QTQ3Name,1) $+ $chr(34)
  4276.         write " $+ $nofile($eexe) $+ etmain\qtool.cfg" set irc ""
  4277.         write " $+ $nofile($eexe) $+ etmain\qtool.cfg" set qtool ""
  4278.         qtconnect " $+ [ $eexe ] $+ " +set fs_basepath " $+ $nofile($eexe) $+ " $iif($autopb == 1,$iif($did(QTool,4).text == Yes,+set cl_punkbuster 1,+set cl_punkbuster 0)) +connect $did(QTool,13).text +exec qtool.cfg $iif($did(QTool,35), +set password [ $did(QTool,35) ] )  $iif($did(QTool,37), [ $did(QTool,37) ])
  4279.       }
  4280.     }
  4281.     dialog -x QTQ3Name
  4282.   }
  4283. }
  4284.  
  4285. alias -l qtconnect {
  4286.   if ($cq3con == 1) {
  4287.     %qt.connect = $1-
  4288.     %qt.connectip = $did(QTool,13).text
  4289.     .timercheckdialog -m 1 200 qtcheck
  4290.   }
  4291.   else {
  4292.     .timerqtsetplay -m 1 200 setplay
  4293.     run $1-
  4294.   }
  4295. }
  4296.  
  4297. alias qtconnect2 {
  4298.   .timerqtch* off
  4299.   .timerqtsetplay -m 1 200 setplay
  4300.   run %qt.connect
  4301.   unset %qt.connec*
  4302.   unset qt.chec*
  4303. }
  4304.  
  4305. alias -l qtcheck {
  4306.   if ($dialog(qtcheck) == $null) { dialog -ma qtcheck qtcheck }
  4307.   did -o qtcheck 1 1 Checking...
  4308.   %qt.checkplayers = 0
  4309.   sockudp -k qtcheck $gettok(%qt.connectip,1,58) $gettok(%qt.connectip,2,58) $str($chr(255),4) $+ getstatus
  4310.   .timerqtchecktimeout 1 3 qtchecktimeout
  4311. }
  4312.  
  4313. alias -l qtchecktimeout {
  4314.   sockclose qtcheck
  4315.   if ($dialog(qtcheck) != $null) {
  4316.     did -o qtcheck 1 1 Timeout...waiting...
  4317.     .timerqtchecktimeout 1 2 qtcheck
  4318.   }
  4319. }
  4320.  
  4321. on *:udpread:qtcheck: {
  4322.   var %temp
  4323.   sockread %temp
  4324.   if ($left(%temp,4) == $str($chr(255),4)) {
  4325.     .timerqtchecktimeout off
  4326.   }
  4327.   elseif $left(%temp, 1) == \ {
  4328.     if $istok(%temp,sv_maxclients,92) { %qt.checkmaxcl = $gettok(%temp, $calc($findtok(%temp,sv_maxclients, 1, 92) + 1), 92) }
  4329.     if $istok(%temp,sv_privateclients,92) { %qt.checkmprivcl = $gettok(%temp, $calc($findtok(%temp,sv_privateclients, 1, 92) + 1), 92) }
  4330.     .timerqtcheck -m 1 50 qtcheckplayer
  4331.   }
  4332.   elseif $gettok(%temp,1,32) isnum { 
  4333.     inc %qt.checkplayers
  4334.   }
  4335. }
  4336.  
  4337. alias -l qtcheckplayer {
  4338.   if ($dialog(qtcheck) != $null) {
  4339.     if (%qt.checkplayers < $calc(%qt.checkmaxcl - %qt.checkmprivcl)) {
  4340.       dialog -x qtcheck
  4341.       qtconnect2
  4342.     }
  4343.     else {
  4344.       did -o qtcheck 1 1 Server full...waiting...
  4345.       .timerqtchecktimeout 1 3 qtcheck
  4346.     }
  4347.   }
  4348.   unset %qt.checkplayers
  4349.   unset %qt.checkmprivcl
  4350.   unset %qt.checkmaxcl
  4351. }
  4352.  
  4353. dialog -l qtcheck {
  4354.   title "Server check"
  4355.   size -1 -1 192 58
  4356.   option pixels
  4357.   edit "", 1, 5 4 182 21, read
  4358.   button "Skip check", 2, 5 29 93 25, ok
  4359.   button "Cancel", 3, 111 29 75 25, cancel
  4360. }
  4361.  
  4362. on *:dialog:qtcheck:sclick:*: {
  4363.   if ($did == 2) {
  4364.     .timerqtch* off
  4365.     sockclose qtcheck
  4366.     qtconnect2
  4367.   }
  4368.   if ($did == 3) {
  4369.     .timerqtch* off
  4370.     sockclose qtcheck
  4371.   }
  4372. }
  4373.  
  4374. on *:dialog:qtcheck:close: {
  4375.   .timerqtch* off
  4376.   sockclose qtcheck
  4377. }
  4378.  
  4379. alias -l qtwhois {
  4380.   %qt.whoisip = $1
  4381.   unset %qt.country
  4382.   unset %qt.assigned
  4383.   .timerqtwhois off
  4384.   if ($read(" $+ $scriptdir $+ qtool\whois.txt", s, %qt.whoisip) != $null) {
  4385.     var %country = $read(" $+ $scriptdir $+ qtool\whois.txt", s, %qt.whoisip)
  4386.     did -g QTool 6 " $+ $scriptdir $+ qtool\flags\ $+ %country $+ .bmp"
  4387.     write -dl $+ $readn " $+ $scriptdir $+ qtool\whois.txt"
  4388.     write -a " $+ $scriptdir $+ qtool\whois.txt" %qt.whoisip %country
  4389.     did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, %country)
  4390.     return
  4391.   }
  4392.   if ($sock(whois).status != $null) sockclose whois
  4393.   if ($sock(whois2).status != $null) sockclose whois2
  4394.   if ($sock(whois3).status != $null) sockclose whois3
  4395.   if ($sock(whois4).status != $null) sockclose whois4
  4396.   sockopen whois whois.ripe.net 43
  4397.   .timerqtwhois 1 1 sockopen whois2 rwhois.arin.net 4321
  4398.   sockopen whois3 whois.apnic.net 43
  4399.   sockopen whois4 whois.lacnic.net 43
  4400. }
  4401.  
  4402. on *:sockopen:whois: {
  4403.   if ($sockerr) {
  4404.     unset %qt.country
  4405.     unset %qt.assigned
  4406.     return
  4407.   }
  4408.   else sockwrite -n whois %qt.whoisip
  4409. }
  4410.  
  4411. on *:sockread:whois:{
  4412.   var %temp
  4413.   if ($sockerr > 0) return
  4414.   :nextread
  4415.   sockread -f %temp
  4416.   if ($sockbr == 0) return
  4417.   else {
  4418.     if (country: isin %temp) %qt.country = %temp
  4419.     if ((status: isin %temp) && (UNSPECIFIED isin %temp)) %qt.assigned = false
  4420.     elseif (status: isin %temp)  %qt.assigned = true
  4421.   }
  4422.   goto nextread
  4423. }
  4424.  
  4425. on *:sockclose:whois:{
  4426.   if ((%qt.assigned == true) && ($exists(" $+ $scriptdir $+ qtool\flags\ $+ $gettok(%qt.country,2,32) $+ .bmp")) && ($dialog(QTool) != $null)) {
  4427.     did -g QTool 6 " $+ $scriptdir $+ qtool\flags\ $+ $gettok(%qt.country,2,32) $+ .bmp"
  4428.     if ($gettok($did(QTool,184,$did(QTool,184).lines),1,32) == Location:) {
  4429.       did -o QTool 184 $did(QTool,184).lines Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%qt.country,2,32))
  4430.     }
  4431.     else {
  4432.       did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%qt.country,2,32))
  4433.     }
  4434.   }
  4435.   unset %qt.country
  4436.   unset %qt.assigned
  4437. }
  4438.  
  4439. on *:sockopen:whois2: {
  4440.   if ($sockerr) return
  4441.   else sockwrite -n whois2 %qt.whoisip 
  4442. }
  4443.  
  4444. on *:sockread:whois2:{
  4445.   var %temp
  4446.   if ($sockerr > 0) return
  4447.   :nextread
  4448.   sockread -f %temp
  4449.   if ($sockbr == 0) return
  4450.   else {
  4451.     if ((Country-Code isin %temp) && ($right($did(QTool,6),11) == unknown.bmp) && ($exists(" $+ $scriptdir $+ qtool\flags\ $+ $gettok(%temp,3,58) $+ .bmp")) && ($dialog(QTool) != $null)) { 
  4452.       did -g QTool 6 " $+ $scriptdir $+ qtool\flags\ $+ $gettok(%temp,3,58) $+ .bmp"
  4453.       did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%temp,3,58))
  4454.     }
  4455.   }
  4456.   goto nextread
  4457. }
  4458.  
  4459. on *:sockopen:whois3: {
  4460.   if ($sockerr) return
  4461.   else sockwrite -n whois3 %qt.whoisip
  4462. }
  4463.  
  4464. on *:sockread:whois3:{
  4465.   var %temp
  4466.   if ($sockerr > 0) return
  4467.   :nextread
  4468.   sockread -f %temp
  4469.   if ($sockbr == 0) return
  4470.   else {
  4471.     if (country: isin %temp) %qt.country3 = %temp
  4472.     if ((status: isin %temp) && (UNSPECIFIED isin %temp)) %qt.assigned3 = false
  4473.     elseif (status: isin %temp)  %qt.assigned3 = true
  4474.   }
  4475.   goto nextread
  4476. }
  4477.  
  4478. on *:sockclose:whois3:{
  4479.   if ((%qt.assigned3 == true) && ($exists(" $+ $scriptdir $+ qtool\flags\ $+ $gettok(%qt.country3,2,32) $+ .bmp")) && ($dialog(QTool) != $null)) {
  4480.     did -g QTool 6 " $+ $scriptdir $+ qtool\flags\ $+ $gettok(%qt.country3,2,32) $+ .bmp"
  4481.     if ($gettok($did(QTool,184,$did(QTool,184).lines),1,32) == Location:) {
  4482.       did -o QTool 184 $did(QTool,184).lines Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%qt.country3,2,32))
  4483.     }
  4484.     else {
  4485.       did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%qt.country3,2,32))
  4486.     }
  4487.   }
  4488.   unset %qt.country3
  4489.   unset %qt.assigned3
  4490. }
  4491.  
  4492. on *:sockopen:whois4: {
  4493.   if ($sockerr) return
  4494.   else sockwrite -n whois4 %qt.whoisip
  4495. }
  4496.  
  4497. on *:sockread:whois4:{
  4498.   var %temp
  4499.   if ($sockerr > 0) return
  4500.   :nextread
  4501.   sockread -f %temp
  4502.   if ($sockbr == 0) return
  4503.   else {
  4504.     if (country: isin %temp) %qt.country4 = %temp
  4505.     if ((status: isin %temp) && (UNSPECIFIED isin %temp)) %qt.assigned4 = false
  4506.     elseif (status: isin %temp)  %qt.assigned4 = true
  4507.   }
  4508.   goto nextread
  4509. }
  4510.  
  4511. on *:sockclose:whois4:{
  4512.   if ((%qt.assigned4 == true) && ($exists(" $+ $scriptdir $+ qtool\flags\ $+ $gettok(%qt.country4,2,32) $+ .bmp")) && ($dialog(QTool) != $null)) {
  4513.     did -g QTool 6 " $+ $scriptdir $+ qtool\flags\ $+ $gettok(%qt.country4,2,32) $+ .bmp"
  4514.     if ($gettok($did(QTool,184,$did(QTool,184).lines),1,32) == Location:) {
  4515.       did -o QTool 184 $did(QTool,184).lines Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%qt.country4,2,32))
  4516.     }
  4517.     else {
  4518.       did -a QTool 184 Location: $read(" $+ $scriptdir $+ qtool\flags\flags.txt", s, $gettok(%qt.country4,2,32))
  4519.     }
  4520.   }
  4521.   unset %qt.country4
  4522.   unset %qt.assigned4
  4523. }
  4524.