Recent Posts

Pages: 1 ... 4 5 [6] 7 8 ... 10
51
mIRC Code Snippets / Re: Auto level on join.
« Last post by morbid on February 27, 2011, 06:57:43 am »
Sure I will. Im planning to make my own channel bot(like Whale)^^.

Channel bots are PHP :>

Eh not necessarily..Service BOTS are PHP.
My bot CRIm (mIRC backwards)
Was a chatspace/Irc-d bot. And it was all Irc coding
52
mIRC Code Snippets / Re: Auto level on join.
« Last post by King_Hual on February 26, 2011, 07:37:23 pm »
Sure I will. Im planning to make my own channel bot(like Whale)^^.

Channel bots are PHP :>
53
mIRC Code Snippets / Re: Auto level on join.
« Last post by Glow on February 26, 2011, 03:15:25 pm »
Sure I will. Im planning to make my own channel bot(like Whale)^^.
54
mIRC Code Snippets / Re: Auto level on join.
« Last post by Jane on February 26, 2011, 02:47:41 pm »
Nice & good useful script, Keep it up!
55
mIRC Code Snippets / Auto level on join.
« Last post by Glow on February 26, 2011, 01:50:25 pm »
This script gives people(when you assign them) the levels you assigned them!

Fill at yournick your IRC nick in(duh).

Commands to promote:
Code: [Select]
-!addvoice
-!addhalfop
-!addop
-!addprotect
-!addowner

Commands to demote:
Code: [Select]
-!delvoice
-!delhalfop
-!delop
-!delprotect
-!delowner

Code: [Select]
on *:TEXT:*:#: {
  if ($1 == !addvoice) && ($nick == Yournick) {
    msg $chan Added $2 to the auto voice list!
    set % [ $+ [ $2 ] ] voice
  }
  elseif ($1 == !delvoice) && ($nick == Yournick) {
    msg $chan Deleted $2 from the auto voice list!
    unset % [ $+ [ $2] ]
  }
  if ($1 == !addhalfop) && ($nick == Yournick) {
    msg $chan Added $2 to the auto halfop list!
    set % [ $+ [ $2 ] ] halfop
  }
  if ($1 == !delhalfop) && ($nick == Yournick) {
    msg $chan Deleted $2 from the auto halfop list!
    unset % [ $+ [ $2] ]
  }
  if ($1 == !addop) && ($nick == Yournick) {
    msg $chan Added $2 to the auto op list!
    set % [ $+ [ $2 ] ] op
  }
  if ($1 == !delop) && ($nick == Yournick) {
    msg $chan Deleted $2 from the auto op list!
    unset % [ $+ [ $2] ]
  }
  if ($1 == !addprotect) && ($nick == Yournick) {
    msg $chan Added $2 to the auto protect list!
    set % [ $+ [ $2 ] ] protect
  }
  if ($1 == !delprotect) && ($nick == Yournick) {
    msg $chan Deleted $2 from the auto protect list!
    unset % [ $+ [ $2] ]
  }
  if ($1 == !addowner) && ($nick == Yournick) {
    msg $chan Added $2 to the auto owner list!
    set % [ $+ [ $2 ] ] owner
  }
  if ($1 == !delowner) && ($nick == Yournick) {
    msg $chan Deleted $2 from the auto owner list!
    unset % [ $+ [ $2] ]
  }
}
on *:JOIN:#: {
  if (% [ $+ [ $nick ] ] == voice) {
    mode $chan +v $nick
  }
  if (% [ $+ [ $nick ] ] == halfop) {
    mode $chan +h $nick
  }
  if (% [ $+ [ $nick ] ] == op) {
    mode $chan +o $nick
  }
  if (% [ $+ [ $nick ] ] == protect) {
    mode $chan +a $nick
  }
  if (% [ $+ [ $nick ] ] == owner) {
    mode $chan +q $nick
  }
}

Usage:
Code: [Select]
<~[Ask]Goblo> !addprotect Fabian
<~Amy> Added Fabian to the auto protect list!
* Fabian (Nishe@Fabian.Noezz.users) has left #Gobz
* Fabian (Nishe@Fabian.Noezz.users) has joined #Gobz
* Amy sets mode: +a Fabian
or
Code: [Select]
<~[Ask]Goblo> !delprotect Fabian
<~Amy> Deleted Fabian from the auto protect list!
* Fabian (Nishe@Fabian.Noezz.users) has left #Gobz
* Fabian (Nishe@Fabian.Noezz.users) has joined #Gobz

Got a little help from some friends but I scripted over 90% by myself^^
56
mIRC Code Snippets / Re: Alias ASCII's
« Last post by Glow on February 26, 2011, 07:53:56 am »
Im just suggesting something keep that in your mind.
57
mIRC Code Snippets / Re: Alias ASCII's
« Last post by Jane on February 26, 2011, 07:26:14 am »
Jesus people, your going to kill him, Just if he can add a Screen shot it's okay and would be better and if he couldn't it's alright too.
58
mIRC Code Snippets / Re: Ircop Scanner
« Last post by Jane on February 26, 2011, 07:24:09 am »
Nice work, it uses /whois. Am i right ?
59
mIRC Code Snippets / Re: Trial Reset
« Last post by Jane on February 26, 2011, 07:22:21 am »
Thanks, the regedit works!
60
mIRC Code Snippets / Ircop Scanner
« Last post by morbid on February 25, 2011, 05:22:25 pm »

type /ircop-scan

then scan ;/



Code: [Select]
;;; Groups
#ircop.netscan off
raw 352:*:{ haltdef | did -a $ircop.scanner 11 $6 }
raw 315:*:{ haltdef | .disable #ircop.netscan }
#ircop.netscan end
#ircop.chanscan off
raw 352:*:{ haltdef | if (* isin $7) did -a $ircop.scanner 12 $6 }
raw 315:*:{ haltdef | .disable #ircop.chanscan }
#ircop.netscan end


;;; Dialogs
on *:dialog:ircop-scan:*:*:{
  if ($devent == init) {
    $mdxin
    dll $mdx SetMircVersion $version
    dll $mdx MarkDialog $dname
    dll $mdx SetDialog $dname BGColor $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 background $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 textbg $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 text $color(14)
  }
}
Dialog IrcOp.scanner.dialog {
  Title "IrcOp Scanner v1.4 - Scanner"
  icon icon\morbid.ico
  Size -1 -1 200 103
  Option DBU

  Button "Ok", 1, 3 89 30 12, Ok Default
  Button "Cancel", 2, 36 89 30 12, Cancel

  Box "Network", 5, 3 2 73 84,
  Box "Channel", 6, 79 2 73 84,
  Box "Options", 7, 155 2 40 84,

  Button "Scan", 8, 25 73 30 10,
  Button "Scan", 9, 83 73 30 10,
  Button "Refresh", 19, 118 73 30 10,

  Combo 10, 83 60 66 100, Sort Drop

  list 11, 7 10 65 67, sort autovs autohs
  list 12, 83 10 65 54, sort autovs autohs

  Button "Query", 13, 160 11 30 10,
  Button "Notice", 14, 160 23 30 10,
  Button "CTCP", 15, 160 35 30 10,
  Button "Whois", 16, 160 47 30 10,
  Button "Ignore", 17, 160 59 30 10,
  Button "Notify", 18, 160 71 30 10,
}
Dialog IrcOp.ctcp.dialog {
  Title "IrcOp Scanner - CTCP"
  Size -1 -1 102 74
  Option DBU

  Button "Send", 1, 3 60 30 12, Ok Default
  Button "Cancel", 2, 36 60 30 12, Cancel

  Box "CTCPs", 4, 3 2 96 55,

  Radio "Ping", 5, 7 11 30 10,
  Radio "Time", 6, 7 22 30 10,
  Radio "Version", 7, 7 33 30 10,
  Radio "Other:", 8, 7 44 30 10,
  Edit "", 9, 39 44 56 10,
}

;;; Aliases
alias ircop-scan { dialog -m $ircop.scanner $ircop.scanner }
alias -l ircop.scanner { return ircop.scanner.dialog }
alias -l ircop.ctcp { return ircop.ctcp.dialog }
alias -l ircop.rechan {
  did -r $ircop.scanner 10 1 | ircop.addchan | did -c $ircop.scanner 10 1
  if ($did($ircop.scanner,10) ischan) { did -e $ircop.scanner 9 }
  else { did -b $ircop.scanner 9 }
}
alias -l ircop.scan {
  if ($1 == net) { .enable #ircop.netscan | who 0 o }
  elseif ($1 == chan) { .enable #ircop.chanscan | who $did($ircop.scanner,10,$did($ircop.scanner,10).sel).text }
}
alias -l ircop.addchan {
  var %~ircop.channum = 0
  while (%~ircop.channum >= 0) {
    inc %~ircop.channum
    var %~ircop.chan = $chan(%~ircop.channum)
    if (%~ircop.chan == $null) { goto Break }
    did -a $ircop.scanner 10 %~ircop.chan
  }
  :Break
}


;;; Remote Events
on *:DIALOG:ircop.scanner.dialog:init:0:{
  did -b $ircop.scanner 13,14,15,16,17,18
  if ($server) { ircop.addchan | did -c $ircop.scanner 10 1 }
  else { did -b $ircop.scanner 8,9,10,19 }
  if ($did(10,$did(10).sel) == $null) { did -b $ircop.scanner 9 }
}
on *:DIALOG:ircop.ctcp.dialog:Init:0:{ did -c $ircop.ctcp 5 | did -b $ircop.ctcp 9 }
on *:DIALOG:ircop.scanner.dialog:Sclick:*:{
  if ($did == 1) { $iif($dialog($ircop.ctcp),dialog -x $ircop.ctcp) | unset %~ircop.* }
  if ($did == 2) { $iif($dialog($ircop.ctcp),dialog -x $ircop.ctcp) | unset %~ircop.* }
  if ($did == 8) { did -r $ircop.scanner 11 | $ircop.scan(net) }
  if ($did == 9) { did -r $ircop.scanner 12 | $ircop.scan(chan) }
  if ($did == 11) {
    did -e $ircop.scanner 13,14,15,16,17,18
    if ($address($did(11,$did(11).sel),0) isignore) { did -o $ircop.scanner 17 1 UnIgnore }
    else { did -o $ircop.scanner 17 1 Ignore }
    if ($address($did(11,$did(11).sel),0) isnotify) { did -o $ircop.scanner 18 1 UnNotify }
    else { did -o $ircop.scanner 18 1 Notify }
  }
  if ($did == 13) { query $did(11,$did(11).sel) }
  if ($did == 14) { notice $did(11,$did(11).sel) $$?="Notice to send to user:" }
  if ($did == 15) {
    if ($dialog($ircop.ctcp)) { dialog -v $ircop.ctcp $ircop.ctcp }
    else { %~ircop.ctcpnick = $did(11,$did(11).sel) | dialog -m $ircop.ctcp $ircop.ctcp }
  }
  if ($did == 16) { whois $did(11,$did(11).sel) }
  if ($did == 17) {
    if ($address($did(11,$did(11).sel),0) isignore) { ignore -r $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 17 1 Ignore }
    else { ignore -cktinp $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 17 1 UnIgnore }
  }
  if ($did == 18) {
    if ($address($did(11,$did(11).sel),0) isnotify) { notify -r $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 18 1 Notify }
    else { notify $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 18 1 UnNotify }
  }
  if ($did == 19) { ircop.rechan }
}
on *:DIALOG:ircop.scanner.dialog:DClick:*:{
  if ($did == 11) { if ($server) whois $did(11,$did(11).sel) }
  if ($did == 12) { if ($server) whois $did(12,$did(12).sel) }
}
on *:DIALOG:ircop.ctcp.dialog:Sclick:*:{
  if ($did == 1) {
    if ($did(5).state) { ctcp %~ircop.ctcpnick Ping }
    if ($did(6).state) { ctcp %~ircop.ctcpnick Time }
    if ($did(7).state) { ctcp %~ircop.ctcpnick Version }
    if ($did(8).state) {
      if ($did(9)) { ctcp %~ircop.ctcpnick $strip($did(9)) }
      else { echo $colour(Info) -s * /ctcp: insufficient parameters }
    }
    unset %~ircop.ctcpnick
  }
  if (($did == 5) || ($did == 6) || ($did == 7)) { did -b $ircop.ctcp 9 }
  if ($did == 8) { did -e $ircop.ctcp 9 }
}
on *:CONNECT:{
  if ($dialog($ircop.scanner)) {
    did -e $ircop.scanner 8,10,19
    if ($did($ircop.scanner,10)) { did -e $ircop.scanner 9 }
  }
}
on *:DISCONNECT:{
  if ($dialog($ircop.scanner)) { did -b $ircop.scanner 8,9,10,19 }
}
on me:JOIN:#:{ ircop.rechan }
on me:PART:#:{ ircop.rechan }
Pages: 1 ... 4 5 [6] 7 8 ... 10