cooldude13233 commented on mIRC Snippet: r_cycle.mrc Regain Ops Channel Cycle Script - Dec 05, 2011

Thanks Raccon, :P

cooldude13233 commented on mIRC Snippet: r_cycle.mrc Regain Ops Channel Cycle Script - Dec 05, 2011

how could i edit this script for only 1 chat on EFnet IRC?

cooldude13233 commented on mIRC Snippet: Relay Script 1.0 - Jul 19, 2011

@FordLawnmower i have made a fix to the script that i will post bellow BUT thing is that if someone changes there nick or quits and if the script is loaded in lots of chats on the 2 servers it will message it in all the chats. nonetheless i want the script to see if the person quits or changed nicks on a specific chat and NOT all chats

		Code 			
<br />
###############################################<br />
# Relay script 1.0 by ChiefDean<br />
# irc.HeatWaveIRC.net #Heatwave<br />
###############################################<br />
<br />
Menu * {<br />
  -<br />
  Relay Setup: {<br />
    set %serv1 $input(Enter Server One here.,e,Relay Script 1.0 by ChiefDean)<br />
    set %chan1 $input(Enter Channel One here.,e,Relay Script 1.0 by ChiefDean)<br />
    set %serv2 $input(Enter Server Two here.,e,Relay Script 1.0 by ChiefDean)<br />
    set %chan2 $input(Enter Channel Two here,e,Relay Script 1.0 by ChiefDean)<br />
    if ($numtok(%serv1 %chan1 %serv2 %chan2,32) == 4) { $input(Setup Complete.Remember to turn the power on!,,Script 1.0 by ChiefDean) }<br />
    else { $input(Critical Setup Error! Please return to Relay Setup and Start over!,,Script 1.0 by ChiefDean) }<br />
  }<br />
  $iif($group(#Relay) == On,$style(1)) Relay Power Switch<br />
  .$iif($group(#Relay) == On,$style(2)) On: .enable #Relay<br />
  .$iif($group(#Relay) == Off,$style(2)) Off: .disable #Relay<br />
<br />
  -<br />
}<br />
alias -l net {<br />
  var %netcount $scon(0)<br />
  while %netcount {<br />
    if ($scon(%netcount).network == $1) { var %netid %netcount }<br />
    dec %netcount<br />
  }<br />
  scon %netid return $!cid<br />
}<br />
alias -l relay { <br />
  scid $net($1)<br />
  if ($me ison $3) { $2- }<br />
}<br />
alias -l RCheck { <br />
  if ($1 == $2) && ($3 == $4) { return 1 }<br />
  else return 0<br />
}<br />
#Relay off<br />
on *:TEXT:*:#:{<br />
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,04,14,$nick,04@,14,$network,04,>) $1- }<br />
  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,04,14,$nick,04@,14,$network,04,>) $1- }<br />
}<br />
on *:MODE:#:{<br />
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,04,14,Mode,04@,14,$network,04,>) $nick sets mode $1- }<br />
  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,04,14,Mode,04@,14,$network,04,>) $nick sets mode $1- }<br />
}<br />
on *:NICK: {   <br />
  if ($rcheck($network,%serv1)) { relay %serv2 msg %chan2 $+(04<,14,Nick Change,04@,14,$network,04,>) $nick is now known as $newnick }<br />
  elseif ($rcheck($network,%serv2)) { relay %serv1 msg %chan1 $+(04<,14,Nick Change,04@,14,$network,04,>) $nick is now known as $newnick }<br />
}<br />
on *:join:#: {  <br />
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,14,Join,04@,14,$network,04,>) $Nick has joined $chan }<br />
  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,Join,04@,14,$network,04,>) $Nick has joined $chan }<br />
}  <br />
on *:kick:#: {  <br />
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,14,Kick,04@,14,$network,04,>) $knick gets kicked from $chan by $+($nick,.) }<br />
  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,Kick,04@,14,$network,04,>) $knick gets kicked from $chan by $+($nick,.) }   <br />
} <br />
on *:part:#: {  <br />
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,14,Part,04@,14,$network,04,>) $Nick has left $chan }<br />
  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,Part,04@,14,$network,04,>) $Nick has left $chan }   <br />
} <br />
on *:ACTION:*:#: {  <br />
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,04,14,$nick,04@,14,$network,04,>) 6* $nick $1- }<br />
  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,$nick,04@,14,$network,04,>) 6* $nick $1- }<br />
}<br />
on 1:QUIT: {  <br />
  if ($rcheck($network,%serv1)) { relay %serv2 msg %chan2 14 $+ $nick Quit $+($network,.) }<br />
  elseif ($rcheck($network,%serv2)) { relay %serv1 msg %chan1 14 $+ $nick Quit $+($network,.) }   <br />
}<br />
#Relay End<br />
	

cooldude13233 commented on mIRC Snippet: Relay Script 1.0 - Jul 17, 2011

@FordLawnmower -nods-

cooldude13233 commented on mIRC Snippet: Relay Script 1.0 - Jul 16, 2011

something is wrong with the on *:quit: { part of the script

cooldude13233 commented on mIRC Snippet: Last.fm Now Playing - Jun 10, 2011

the script is awesome but it sometimes spits out HTML code into the chat :/

cooldude13233 commented on mIRC Snippet: Channel Management Access List Bot - May 02, 2011

d3oneGeneral,

what is wrong with the script? by the way, this script mostly works best on the IRC server of chat1.ustream.tv

cooldude13233 commented on mIRC Snippet: Channel Management Access List Bot - Nov 28, 2009

nice script Mr Powansky (Polansky), also thank me for being the concept artist and that person that came with the idea! :D

Comments

Code

cooldude13233