home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / q3msger.mrc < prev    next >
Text File  |  2003-10-23  |  6KB  |  152 lines
  1.  
  2. ; ╖╖ Q3MESSAGER by Killemall
  3. ; ╖╖ You are free to modify the script to your hearts content
  4. ; ╖╖ Just note, I take no responsibility for any damages incurred thru its use
  5.  
  6. on 300:TEXT:*:?: {
  7.   ;  /echo 9 UGH!!!
  8.   //set %qmp.message ^3 $+ $nick $+ $chr(160) $+ :- $+ $chr(160) $+ ^7 $+ $1- $+ ^2
  9.   /send_to_q3
  10. }
  11.  
  12. alias -l send_to_q3 {
  13.  
  14.   ;  /echo 9 UCK!!!
  15.  
  16.   //set %qmpline1     print $+ $chr(10) $+ ^2 $+ $chr(18) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  17.     $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  18.     $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  19.     $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  20.     $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  21.     $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  22.     $+ $chr(19) $+ $chr(19) $+ $chr(20) $+ $chr(10)
  23.  
  24.   //set %qmpline3 $chr(24) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  25.     $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  26.     $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  27.     $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  28.     $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  29.     $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  30.     $+ $chr(26) $+ $chr(10)
  31.   //set %qmpline2_start $chr(21)
  32.   //set %qmpline2_end 
  33.  
  34.   //set %qmp.name $nick
  35.  
  36.   var %i 1
  37.  
  38.   %length_message = 64
  39.   %length_message = %length_message - $len(%qmp.message)
  40.   %length_message = %length_message / 2
  41.  
  42.   while (%i <= %length_message) {
  43.     //set %qmpline2_start %qmpline2_start $+ $chr(160)
  44.     //set %qmpline2_end %qmpline2_end $+ $chr(160)
  45.     inc %i
  46.   }
  47.  
  48.   %calc_evenodd = $calc($len(%qmpline2_start) + $len(%qmp.message) + $len(%qmpline2_end))
  49.  
  50.   if (%calc_evenodd <= 64) { //set %qmpline2_start %qmpline2_start $+ $chr(160) }
  51.  
  52.   //set %qmpline2_end %qmpline2_end $+ $chr(23) $+ $chr(10)
  53.  
  54.   //sockudp QMP 127.0.0.1 27960 %qmpline1 $+ %qmpline2_start $+ %qmp.message $+ %qmpline2_end $+ %qmpline3
  55.  
  56.   unset %qmp3.dns
  57.   unset %qmp_ip
  58.   unset %qmp.name
  59.   unset %qmp.chan
  60.   unset %qmp.message
  61.   unset %qmpline1
  62.   unset %qmpline2_start
  63.   unset %qmpline2_end
  64.   unset %qmpline3
  65.   unset %length_message
  66.   unset %calc_evenodd
  67.  
  68. }
  69.  
  70. ; ╖╖ Q3IRCMU by Killemall
  71. ; ╖╖ You are free to modify the script to your hearts content
  72. ; ╖╖ Just note, I take no responsibility for any damages incurred thru its use
  73.  
  74. menu nicklist,query {
  75.   Game Tools
  76.   .-
  77.   .Q3 IRC Messenger :  runqms2 $$1 $$?="Q3IRCMU by [BBC]Killemall $crlf $+ Enter Your Message, Max 58 chars" 
  78. }
  79.  
  80. alias -l runqms2 {
  81.   set %qmp.name $$1
  82.   set %qmp.chan $chan
  83.   set %qmp3.dns 1 $+ $$1
  84.   //set %qmp.message ^3 $+ $me $+ $chr(160) $+ :- $+ $chr(160) $+ ^7 $+ $2- $+ ^2 
  85.  
  86.   //echo %qmp.chan 11 The message 4" $2- " 13is being sent to :  %qmp.chan 4 %qmp.name 10@4 %qmp_ip 
  87.   if ($len($2) > 58) { 
  88.     //echo %qmp.chan 10 Quake3 Message Too Large
  89.     halt 
  90.   }
  91.   .dns $$1
  92. }
  93.  
  94. on *:dns: {
  95.   if (%qmp3.dns != $null) {
  96.     set %qmp_ip $iaddress
  97.  
  98.     //set %qmpline1     print $+ $chr(10) $+ ^2 $+ $chr(18) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  99.       $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  100.       $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  101.       $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  102.       $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  103.       $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $+ $chr(19) $&
  104.       $+ $chr(19) $+ $chr(19) $+ $chr(20) $+ $chr(10)
  105.  
  106.     //set %qmpline3 $chr(24) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  107.       $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  108.       $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  109.       $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  110.       $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  111.       $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $+ $chr(25) $&
  112.       $+ $chr(26) $+ $chr(10)
  113.     //set %qmpline2_start $chr(21)
  114.     //set %qmpline2_end 
  115.  
  116.     var %i 1
  117.  
  118.     %length_message = 64
  119.     %length_message = %length_message - $len(%qmp.message)
  120.     %length_message = %length_message / 2
  121.  
  122.     while (%i <= %length_message) {
  123.       //set %qmpline2_start %qmpline2_start $+ $chr(160)
  124.       //set %qmpline2_end %qmpline2_end $+ $chr(160)
  125.       inc %i
  126.     }
  127.  
  128.     %calc_evenodd = $calc($len(%qmpline2_start) + $len(%qmp.message) + $len(%qmpline2_end))
  129.  
  130.     if (%calc_evenodd <= 64) { //set %qmpline2_start %qmpline2_start $+ $chr(160) }
  131.  
  132.     //set %qmpline2_end %qmpline2_end $+ $chr(23) $+ $chr(10)
  133.  
  134.     //sockudp QMP %qmp_ip 27960 %qmpline1 $+ %qmpline2_start $+ %qmp.message $+ %qmpline2_end $+ %qmpline3
  135.  
  136.     ;    //echo %qmp.chan 4 %qmp.name 10of ip address4 %qmp_ip 
  137.  
  138.     unset %qmp3.dns
  139.     unset %qmp_ip
  140.     unset %qmp.name
  141.     unset %qmp.chan
  142.     unset %qmp.message
  143.     unset %qmpline1
  144.     unset %qmpline2_start
  145.     unset %qmpline2_end
  146.     unset %qmpline3
  147.     unset %length_message
  148.     unset %calc_evenodd
  149.  
  150.   }
  151. }
  152.