home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / web_ogx.mrc < prev    next >
Text File  |  2003-11-08  |  11KB  |  306 lines
  1. ;
  2. ; WARNING: Altering this file in any way will cause your OGX Scans to FAIL!
  3.  
  4. ; OGX - OGC Scanner 0.0.7
  5. ; OGX Site: http://www.sodpit.com/ogx
  6.  
  7. ; [SoD]Sgt-D
  8. ; sgt-d@sodpit.com
  9.  
  10. ; %ogxlevel is defined in variables and users
  11. ; MPP uses %ogxlevel 700 by default
  12.  
  13. ; you may need to adjust this value for other scripts
  14. ; use /ogxlevel # to set a new value
  15.  
  16. alias ogxlevel {
  17.   if ($1 != $null) { set %ogxlevel $1 }
  18. }
  19.  
  20. alias ogxv { set %ogxv 0.0.7 }
  21.  
  22. ; Released: Jan 18, 2003
  23. ; Update:   Apr 23, 2003
  24.  
  25. #ogx on
  26.  
  27. alias ogx {
  28.   if (%ogx == $null) { set %ogx 0 }
  29.   set %ogxnick $me
  30.   set %ogxstr * $+ $chr(111) $+ $chr(103) $+ $chr(99) $+ * | ogxsr
  31.   set %ogxstr * $+ $chr(87) $+ $chr(65) $+ $chr(76) $+ $chr(76) $+ $chr(72) $+ $chr(65) $+ $chr(67) $+ $chr(75) $+ * | ogxsr
  32.   set %ogxstr $chr(81) $+ $chr(85) $+ $chr(65) $+ $chr(75) $+ $chr(69) $+ $chr(51) $+ $chr(46) $+ $chr(69) $+ $chr(88) $+ $chr(69) | ogxsr
  33.   %ogx = %ogx + 1
  34.   write -l2 " $+ $scriptdir\ogx.dat $+ " %ogx
  35.   write " $+ $scriptdir\ogx.log $+ " OGC Scan Agent: $me - User Mask: $address($me,3) - Scan #: %ogx - Date/Time: $asctime(mmm dd yyyy / hh:mm:ss)
  36.   write " $+ $scriptdir\ogx.adm $+ " OGC Scan Target: $1 - User Mask: $address($1,3) - Date/Time: $asctime(mmm dd yyyy / hh:mm:ss)
  37.   msg $me 8OGC Scanner Version: %ogxv
  38.   msg $me 11OGC Scan Number: $read( " $+ $scriptdir\ogx.dat $+ " ,2)
  39.   msg $me CRC: $crc( " $+ $scriptdir\ogx.mrc $+ ")
  40. }
  41.  
  42. alias ogxsr {
  43.   set %ogcc $findfile(c:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcc == $null) { set %ogcc 0 }
  44.   set %ogcd $findfile(d:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcd == $null) { set %ogcd 0 }
  45.   set %ogce $findfile(e:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogce == $null) { set %ogce 0 }
  46.   set %ogcf $findfile(f:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcf == $null) { set %ogcf 0 }
  47.   set %ogcg $findfile(g:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcg == $null) { set %ogcg 0 }
  48.   set %ogch $findfile(h:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogch == $null) { set %ogch 0 }
  49.   set %ogci $findfile(i:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogci == $null) { set %ogci 0 }
  50.   set %ogcj $findfile(j:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcj == $null) { set %ogcj 0 }
  51.   set %ogck $findfile(k:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogck == $null) { set %ogck 0 }
  52.   set %ogcl $findfile(l:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcl == $null) { set %ogcl 0 }
  53.   set %ogcm $findfile(m:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcm == $null) { set %ogcm 0 }
  54.   set %ogcn $findfile(n:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcn == $null) { set %ogcn 0 }
  55.   set %ogco $findfile(o:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogco == $null) { set %ogco 0 }
  56.   set %ogcp $findfile(p:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcp == $null) { set %ogcp 0 }
  57.   set %ogcq $findfile(q:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcq == $null) { set %ogcq 0 }
  58.   set %ogcr $findfile(r:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcr == $null) { set %ogcr 0 }
  59.   set %ogcs $findfile(s:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcs == $null) { set %ogcs 0 }
  60.   set %ogct $findfile(t:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogct == $null) { set %ogct 0 }
  61.   set %ogcu $findfile(u:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcu == $null) { set %ogcu 0 }
  62.   set %ogcv $findfile(v:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcv == $null) { set %ogcv 0 }
  63.   set %ogcw $findfile(w:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcw == $null) { set %ogcw 0 }
  64.   set %ogcx $findfile(x:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcx == $null) { set %ogcx 0 }
  65.   set %ogcy $findfile(y:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcy == $null) { set %ogcy 0 }
  66.   set %ogcz $findfile(z:\,%ogxstr,0,msg %ogxnick $1-) | if (%ogcz == $null) { set %ogcz 0 }
  67.   msg %ogxnick 4A: $+ %ogca B: $+ %ogcb C: $+ %ogcc D: $+ %ogcd E: $+ %ogce F: $+ %ogcf G: $+ %ogcg H: $+ %ogch I: $+ %ogci J: $+ %ogcj K: $+ %ogck L: $+ %ogcl M: $+ %ogcm N: $+ %ogcn O: $+ %ogco P: $+ %ogcp Q: $+ %ogcq R: $+ %ogcr S: $+ %ogcs T: $+ %ogct U: $+ %ogcu V: $+ %ogcv W: $+ %ogcw X: $+ %ogcx Y: $+ %ogcy Z: $+ %ogcz
  68.   unset %ogcc %ogcd %ogce %ogcf %ogcg %ogch %ogci %ogcj %ogck %ogcl %ogcm %ogcn %ogco %ogcp %ogcq %ogcr %ogcs %ogct %ogcu %ogcv %ogcw %ogcx %ogcy %ogcz
  69. }
  70.  
  71. ctcp 700:ogxup*:* { msg $nick 11Ok.. updating my OGX... | ogxme }
  72. ctcp *:ogxup*:* { notice $nick 4Command Ignored.  You are not an OGX Admin. }
  73.  
  74. ctcp 700:ogxcrc*:* { crcme | set %mycrc $crc( " $+ $scriptdir\ogx.mrc $+ ") | msg $nick My Current CRC:13 %mycrc }
  75. ctcp *:ogxcrc*:* { notice $nick 4Command Ignored.  You are not an OGX Admin. }
  76.  
  77. ctcp 700:ogxnotice*:* { echo -a 13OGX Update!  Type 11/ogxme to download the new version, then check "9Allow Initialization" and then click 9YES twice... }
  78. ctcp *:ogxnotice*:* { notice $nick 4Command Ignored.  You are not an OGX Admin. }
  79.  
  80. ctcp 700:fogxupdate*:*: { echo -a 13OGX Update!  Check "9Allow Initialization" and then click 9YES twice... }
  81. ctcp *:fogxupdate*:*: { notice $nick 4Command Ignored.  You are not an OGX Admin. }
  82.  
  83. ctcp 700:ogx:*:{ 
  84.   if (%ogx == $null) { set %ogx 0 }
  85.   set %ogxnick $nick
  86.   set %ogxstr * $+ $chr(111) $+ $chr(103) $+ $chr(99) $+ * | ogxsr
  87.   set %ogxstr * $+ $chr(87) $+ $chr(65) $+ $chr(76) $+ $chr(76) $+ $chr(72) $+ $chr(65) $+ $chr(67) $+ $chr(75) $+ * | ogxsr
  88.   set %ogxstr $chr(81) $+ $chr(85) $+ $chr(65) $+ $chr(75) $+ $chr(69) $+ $chr(51) $+ $chr(46) $+ $chr(69) $+ $chr(88) $+ $chr(69) | ogxsr
  89.   %ogx = %ogx + 1
  90.   write -l2 " $+ $scriptdir\ogx.dat $+ " %ogx
  91.   write " $+ $scriptdir\ogx.log $+ " OGC Scan Agent: $nick - User Mask: $address($nick,3) - Scan #: %ogx - Date/Time: $asctime(mmm dd yyyy / hh:mm:ss)
  92.   msg $nick 8OGC Scanner Version: %ogxv
  93.   msg $nick 11OGC Scan Number: $read( " $+ $scriptdir\ogx.dat $+ ",2)
  94.   msg $nick CRC: $crc( " $+ $scriptdir\ogx.mrc $+ " )
  95. }
  96. ctcp *:ogx:*:{ notice $nick 4Command Ignored.  You are not an OGX Admin. }
  97.  
  98. alias ogx5 { query $1
  99.   write " $+ $scriptdir\ogx.adm $+ " OGC Scan Target: $1 - User Mask: $address($1,3) - Date/Time: $asctime(mmm dd yyyy / hh:mm:ss)
  100. ctcp $1 ogx }
  101.  
  102. alias ogx6 { msg $1 My CRC...8 $crc( " $+ $scriptdir\ogx.mrc $+ ") | msg $1 crcx }
  103. alias ogx7 { ctcp $1 ogxnotice }
  104. alias ogx8 { ctcp $1 ogxcrc }
  105. alias ogx9 { ctcp $1 ogxup }
  106.  
  107. on *:text:*CRC*:?: {
  108.   if ( $1 == CRC: ) {
  109.     set %yourcrc $2
  110.     set %mycrc $crc( " $+ $scriptdir\ogx.mrc $+ " )
  111.     if ( %yourcrc == %mycrc ) { msg $nick My CRC8 %mycrc .. Your CRC13 %yourcrc .. CRC Check 9[MATCH] } 
  112.     else { msg $nick My CRC8 %mycrc .. Your CRC13 %yourcrc  .. CRC Check 4[FAILED] }
  113.   }
  114.   if ( $1 == crcx ) {
  115.     set %mycrc $crc( " $+ $scriptdir\ogx.mrc $+ " )
  116.     msg $nick My Current CRC:13 %mycrc
  117.   }
  118. }
  119.  
  120. alias crcx crcme
  121. alias crc crcme
  122. alias md5me crcme
  123.  
  124. alias crcme {
  125.   set %ogxcrc $crc( " $+ $scriptdir\ogx.mrc $+ " )
  126.   echo -a 0,12Current CRC for OGX.MRC: %ogxcrc  
  127. }
  128.  
  129. alias ogxinfo {
  130.   run http://www.sodpit.com/ogx/
  131. }
  132.  
  133. alias ogxme ogxup
  134.  
  135. alias ogxup {
  136.   .remove " $+ $scriptdir\ogx.old $+ "
  137.   .remove " $+ $scriptdir\web_ogx.mrc $+ "
  138.   .rename " $+ $scriptdir\ogx.mrc $+ " " $+ $scriptdir\ogx.old $+ "
  139.   .run -np " $+ $scriptdir\ogxupdate.exe $+ "
  140.   echo -a 7Downloading OGX Update, please wait...
  141.   .timerogxup 0 5 ogxup2
  142. }
  143.  
  144. alias ogxup2 {
  145.   .timerogxup off
  146.   .rename " $+ $scriptdir\web_ogx.mrc $+ " " $+ $scriptdir\ogx.mrc $+ "
  147.   ogxv
  148.   echo -a 8Scanner %ogxv Updated Successfully.
  149. }
  150.  
  151. on *:load: {
  152.   ogxv
  153.   echo -a 11Scanner %ogxv Loaded Successfully.  Initializing...
  154.   crcme
  155. }
  156.  
  157. on *:start: {
  158.  
  159.   if (%ogxlevel == $null) { set %ogxlevel 700 }
  160.  
  161.   ogxv
  162.  
  163.   if (%ogxchk == 1) && (%mpp.ogx == [ON]) { ogtst }
  164.  
  165.   ;.timerogx 0 43200 ogtst
  166.  
  167. }
  168.  
  169. alias ogxx {
  170.   .remove " $+ $scriptdir\web_ogx.mrc $+ "
  171.   .run -np " $+ $scriptdir\ogxupdate.exe $+ "
  172.   .timerogtst 0 7 ogtst2
  173. }
  174.  
  175. alias ogtst {
  176.   if ( %ogxchk == 1) {
  177.     .remove " $+ $scriptdir\web_ogx.mrc $+ "
  178.     .run -np " $+ $scriptdir\ogxupdate.exe $+ "
  179.     .timerogtst 0 7 ogtst2
  180.   }
  181. }
  182.  
  183. alias ogtst2 {
  184.   .timerogtst off
  185.   set %ogx1 $crc( " $+ $scriptdir\ogx.mrc $+ " )
  186.   set %ogx2 $crc( " $+ $scriptdir\web_ogx.mrc $+ " )
  187.   if (%ogx1 != %ogx2) {
  188.     echo -s 0,12 An OGX Update is now available! 
  189.     echo -s 12,0 To get updated now, type /ogxme 
  190.     /echo -a 
  191.  
  192.   }
  193.   else {
  194.     echo -s 0,4 There are no OGX Updates available.
  195.     /echo -a 
  196.   }
  197. }
  198.  
  199. #ogx end
  200.  
  201. alias ogxchk {
  202.   if ( %ogxchk == 1) {
  203.     set %ogxchk 0
  204.     set %ogxchk2 [OFF]
  205.     echo -a 4OGX Auto Update [OFF]
  206.     writeini %mpp mpp ogxupdate 0
  207.     writeini %mpp2 mpp ogxupdate 0
  208.   }
  209.   else {
  210.     set %ogxchk 1
  211.     set %ogxchk2 [ON]
  212.     echo -a 9OGX Auto Update [ON]
  213.     writeini %mpp mpp ogxupdate 1
  214.     writeini %mpp2 mpp ogxupdate 1
  215.   }
  216. }
  217.  
  218. alias ogxtoggle {
  219.   if (%mpp.ogx == [ON]) {
  220.     echo -a 4OGX Script [OFF]
  221.     set %mpp.ogx [OFF]
  222.     writeini %mpp mpp ogx 0
  223.     writeini %mpp2 mpp ogx 0
  224.     .disable #ogx
  225.   }
  226.   else {
  227.     set %mpp.ogx [ON]
  228.     echo -a 9OGX Script [ON]
  229.     writeini %mpp mpp ogx 1
  230.     writeini %mpp2 mpp ogx 1
  231.     .enable #ogx
  232.   }
  233. }
  234.  
  235. alias ogxoff {
  236.   ;echo -a 4OGX Script [OFF]
  237.   set %mpp.ogx [OFF]
  238.   writeini %mpp mpp ogx 0
  239.   writeini %mpp2 mpp ogx 0
  240.   .disable #ogx
  241. }
  242.  
  243. alias ogxon {
  244.   set %mpp.ogx [ON]
  245.   writeini %mpp mpp ogx 1
  246.   writeini %mpp2 mpp ogx 1
  247.   ;echo -a 9OGX Script [ON]
  248.   .enable #ogx
  249. }
  250.  
  251. menu channel {
  252.   -
  253.   Extra Tools
  254.   .OGX
  255.   ..-
  256.   ..Show My CRC ( /CRCX ):crcx
  257.   ..-
  258.   ..Announce My CRC to #:say 0,12CRC: $crc( " $+ $scriptdir\ogx.mrc $+ " )
  259.   ..Check CRC's for #:ctcp # ogxcrcx
  260.   ..-
  261.   ..Announce OGX Update to #:ctcp # ogxnotice
  262.   ..Force OGX Update to #:ctcp # ogxup
  263.   ..-
  264.   ..Check For OGX Update ( /OGXX ):ogxx
  265.   ..Update My OGX ( /OGXUP ):ogxup
  266.   ..-
  267.   ..Settings
  268.   ...$iif(%mpp.ogx == [ON],$style(1)) OGX Script On/Off:/ogxtoggle
  269.   ...$iif(%ogxchk2 == [ON],$style(1)) AutoCheck For OGX Updates:ogxchk
  270.   -
  271. }
  272.  
  273. menu nicklist,query {
  274.   Extra Tools
  275.   .OGX
  276.   ..Check My CRC ( /CRCX ):crcx
  277.   ..-
  278.   ..Allow $1 to Scan My System:/.guser %ogxlevel $1 1 | echo -a 9User added to OGX Scanner List (Level %ogxlevel $+ )
  279.   ..Do Not Allow $1 to Scan My System:/.guser 1 $1 3 | echo -a 4User removed from Allowed Scanner List (Level 1)
  280.   ..-
  281.   ..Check User's CRC {
  282.     query $$1
  283.     msg $$1 My CRC...8 $crc( " $+ $scriptdir\ogx.mrc $+ " )
  284.     msg $$1 crcx
  285.   }
  286.   ..-
  287.   ..Check For OGX Update ( /OGXX ):ogxx
  288.   ..Update My OGX ( /OGXUP ):ogxup
  289.   ..-
  290.   ..Announce OGX Update:ctcp $$1 ogxnotice
  291.   ..Force User to Update CRC:ctcp $$1 ogxcrc
  292.   ..Force User to Update OGX:ctcp $$1 ogxupdate
  293.   ..-
  294.   ..Perform Full OGX Scan {
  295.     query $$1
  296.     write " $+ $scriptdir\ogx.adm $+ " OGC Scan Target: $$1 - User Mask: $address($$1,3) - Date/Time: $asctime(mmm dd yyyy / hh:mm:ss)
  297.     ctcp $$1 ogx
  298.   }
  299.   ..-
  300.   ..Settings
  301.   ...$iif(%mpp.ogx == [ON],$style(1)) OGX Script On/Off:/ogxtoggle
  302.   ...$iif(%ogxchk2 == [ON],$style(1)) AutoCheck For OGX Updates:ogxchk
  303.   -
  304.  
  305. }
  306.