BMT IRC Network
Would you like to react to this message? Create an account in a few clicks or log in to continue.
BMT IRC Network

Welcome to BMT-Help Bots Scripts Eggdrop IRCD

Search
 
 

Display results as :
 

Rechercher Advanced Search

Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPS
Services
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC Srervices
IRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka Charybdis
TCL SCRIPT
TCL SCRIPT FOR EGGDROP Allprotection4.7 Antiproxy
Bots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm SupyBot PyLink Hopm
Keywords

ircu  bahamut  proxy  inspircd  ircd  install  postgreSQL  spamfilter  srvx  nefarious  freebsd  SupyBot  UnrealIRCd  mircx  conf  snircd  socket  mirc  qwebirc  Pylink  nefarious2  iauth  borknet  2011  bopm  gnuworld  

Latest topics
» מדריך גירסה INSPIRCD V4
borknet_bot_control EmptySat Aug 05, 2023 2:09 am by Chief

» mIRCx IRC Network Config
borknet_bot_control EmptySat Jul 15, 2023 9:51 pm by Chief

» ircu2.10.12-pk with dnsbl
borknet_bot_control EmptyFri Mar 10, 2023 2:22 pm by Admin

» Guide install PyLink on New version FreeBSD
borknet_bot_control EmptyThu Dec 15, 2022 9:39 pm by Chief

» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
borknet_bot_control EmptyMon Dec 05, 2022 5:44 am by Chief

» install Nefarious2 && X3 IRC Services in FreeBsd
borknet_bot_control EmptySat Nov 12, 2022 3:12 pm by Chief

» help problem with adduser in Freebsd 12
borknet_bot_control EmptyFri Nov 11, 2022 9:06 pm by Chief

» מדריך פקודות והתקנה בסרביס X3
borknet_bot_control EmptyFri Oct 28, 2022 1:43 pm by Chief

» מדריך הגדרות WebIRC in Nefarious2
borknet_bot_control EmptyThu Apr 07, 2022 4:45 am by Chief

September 2024
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
30      

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


borknet_bot_control

BMT IRC Network :: BMT :: BMT

Go down

borknet_bot_control Empty borknet_bot_control

Post  Admin Thu Apr 12, 2012 1:41 pm

this code work on also quakenet and this dialog commands for Q Enjoy
Borknet_Bot_control Build Bu Ozafy
Code:

;
; BorkNet Bot Control
;
;
;
; Copyright (C) 2004 Ozafy - ozafy@borknet.org - http://www.borknet.org
;
; This program is free software; you can redistribute it and/or
; modify it under the terms of the GNU General Public License
; as published by the Free Software Foundation; either version 2
; of the License, or (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
;
dialog borknet_bot_control {
  title "BorkNet Bot-Control"
  size -1 -1 200 200
  option dbu
  tab "Q ChanControl", 1, 5 5 189 189
  edit "#Channel", 2, 10 22 85 10, tab 1
  button "Get Channel Info", 3, 105 22 85 10, tab 1
  box "ChanFlags", 4, 10 32 180 160, tab 1
  edit "Current Flags on #Channel are: ", 5, 15 40 170 10, tab 1 read center
  box "(Auto) Limit", 6, 15 63 170 20, tab 1
  edit "Current Limit", 7, 20 71 45 10, tab 1
  box "Channel Key", 8, 15 84 170 20, tab 1
  edit "New Key", 9, 20 92 45 10, tab 1
  button "Set Limit", 10, 75 71 30 10, tab 1
  button "Set Key", 11, 75 92 50 10, tab 1
  button "Set Channel Welcome", 12, 20 177 80 10, tab 1
  edit "New Welcome", 13, 20 166 160 10, tab 1 autohs
  button "Set Channel Topic", 14, 20 145 80 10, tab 1
  edit "New Topic", 15, 20 134 160 10, tab 1 autohs
  edit "Current Modes", 16, 20 113 45 10, tab 1
  button "Set Modes", 17, 75 113 50 10, tab 1
  box "Channel Modes", 18, 15 105 170 20, tab 1
  box "Channel Topic", 19, 15 126 170 31, tab 1
  box "Channel Welcome", 20, 15 158 170 31, tab 1
  check "Bitch Mode", 21, 16 52 50 10, tab 1
  check "Protect Users", 22, 78 52 50 10, tab 1
  check "Auto-Voice", 23, 147 52 38 10, tab 1
  check "Auto Limit", 24, 110 71 35 10, tab 1
  check "Force Limit", 25, 147 71 37 10, tab 1
  check "Force Key", 26, 130 92 50 10, tab 1
  check "Force Modes", 27, 130 113 50 10, tab 1
  check "Force Topic", 28, 105 145 50 10, tab 1
  check "Enable Welcome Message", 29, 105 177 76 10, tab 1
  tab "Q ChanLev", 30
  edit "Username's Flags on #Channel: ", 40, 10 35 180 10, tab 30 read center
  edit "Username", 41, 10 22 50 10, tab 30 read
  edit "#Channel", 42, 75 22 50 10, tab 30
  button "Get Info", 43, 140 22 50 10, tab 30
  check "Voice (+v)", 44, 10 48 40 10, tab 30
  check "Auto Voice (+g)", 45, 70 48 50 10, tab 30
  check "Cannot Get Voice (+q)", 46, 125 48 65 10, tab 30
  check "Op (+o)", 47, 10 58 40 10, tab 30
  check "Auto Op (+a)", 48, 70 58 50 10, tab 30
  check "Cannot get Op (+d)", 49, 125 58 60 10, tab 30
  check "Topic Changer (+t)", 50, 10 68 60 10, tab 30
  check "No Welcome (+w)", 51, 70 68 55 10, tab 30
  check "Banned (+b)", 52, 125 68 45 10, tab 30
  check "Master (+m)", 53, 10 78 45 10, tab 30
  check "Owner (+n)", 54, 70 78 45 10, tab 30
  button "Apply", 55, 10 93 180 10, tab 30
  list 56, 10 107 90 70, tab 30 size
  list 57, 100 107 90 70, disable tab 30 size
  edit "Total:", 58, 10 180 180 10, tab 30 read center
  tab "L Control", 32
  edit "Username", 59, 10 22 50 10, tab 32 read
  edit "#Channel", 60, 75 22 50 10, tab 32
  button "Get Info", 61, 140 22 50 10, tab 32
  edit "Username's Flags on #Channel: ", 62, 10 35 180 10, tab 32 read center
  check "Auto Voice (+g)", 63, 70 49 50 10, tab 32
  check "Auto Op (+a)", 64, 70 59 50 10, tab 32
  check "Owner (+n)", 65, 130 59 45 10, tab 32
  check "Master (+m)", 66, 130 49 45 10, tab 32
  check "Op (+o)", 67, 10 59 40 10, tab 32
  check "Voice (+v)", 68, 10 49 40 10, tab 32
  button "Apply", 69, 10 72 180 10, tab 32
  list 70, 10 84 90 55, tab 32 size
  list 71, 100 84 90 55, disable tab 32 size
  edit "Total:", 72, 10 142 180 10, tab 32 read center
  box "Channel Control", 73, 10 154 180 35, tab 32
  edit "New Welcome", 74, 15 163 50 10, tab 32 autohs
  button "Set Welcome", 75, 75 163 50 10, tab 32
  button "Clear Welcome", 76, 135 163 50 10, tab 32
  button "Enable Invite", 77, 15 175 80 10, tab 32
  button "Disable Invite", 78, 105 175 80 10, tab 32
  link "http://www.borknet.org", 79, 131 10 62 8
}
on *:DIALOG:borknet_bot_control:*:*:{
  if ($devent == sclick) {
    if ($did == 3) {
      .msg Q chanflags $did(2)
      .msg Q limit $did(2)
      .msg Q chanmodes $did(2)
    }
    if ($did == 21) {
      if ($did(21).state) {
        .msg Q chanflags $did(2) +b
      }
      else {
        .msg Q chanflags $did(2) -b
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 22) {
      if ($did(22).state) {
        .msg Q chanflags $did(2) +p
      }
      else {
        .msg Q chanflags $did(2) -p
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 23) {
      if ($did(23).state) {
        .msg Q chanflags $did(2) +v
      }
      else {
        .msg Q chanflags $did(2) -v
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 24) {
      if ($did(24).state) {
        if ($did(25).state) {
          .msg Q chanflags $did(2) -l
        }
        .msg Q chanflags $did(2) +c
      }
      else {
        .msg Q chanflags $did(2) -c
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 25) {
      if ($did(25).state) {
        if ($did(24).state) {
          .msg Q chanflags $did(2) -c
        }
        .msg Q chanflags $did(2) +l
      }
      else {
        .msg Q chanflags $did(2) -l
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 26) {
      if ($did(26).state) {
        .msg Q chanflags $did(2) +k
      }
      else {
        .msg Q chanflags $did(2) -k
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 27) {
      if ($did(27).state) {
        .msg Q chanflags $did(2) +m
      }
      else {
        .msg Q chanflags $did(2) -m
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 28) {
      if ($did(28).state) {
        .msg Q chanflags $did(2) +f
      }
      else {
        .msg Q chanflags $did(2) -f
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 29) {
      if ($did(29).state) {
        .msg Q chanflags $did(2) +w
      }
      else {
        .msg Q chanflags $did(2) -w
      }
      .msg Q chanflags $did(2)
    }
    if ($did == 10) {
      .msg Q limit $did(2) $did(7)
    }
    if ($did == 11) {
      .msg Q key $did(2) $did(9)
    }
    if ($did == 17) {
      .msg Q chanmodes $did(2) $did(16)
    }
    if ($did == 12) {
      .msg Q welcome $did(2) $did(13)
    }
    if ($did == 14) {
      .msg Q settopic $did(2) $did(15)
    }
    if ($did == 43) {
      set %borknet_q_chanlev 1
      .msg Q chanlev $did(42)
    }
    if ($did == 55) {
      set %borknet_q_chanlev 1
      set %borknet_q_userlev 1
      unset %borknet_q_changeuser
      if ($did(44).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +v
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -v
      }
      if ($did(45).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +g
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -g
      }
      if ($did(46).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +q
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -q
      }
      if ($did(47).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +o
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -o
      }
      if ($did(48).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +a
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -a
      }
      if ($did(49).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +d
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -d
      }
      if ($did(50).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +t
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -t
      }
      if ($did(51).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +w
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -w
      }
      if ($did(52).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +b
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -b
      }
      if ($did(53).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +m
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -m
      }
      if ($did(54).state) {
        set %borknet_q_changeuser %borknet_q_changeuser $+ +n
      }
      else {
        set %borknet_q_changeuser %borknet_q_changeuser $+ -n
      }
      .msg Q chanlev $did(42) $chr(35) $+ $did(41) %borknet_q_changeuser
      .msg Q chanlev $did(42)
      .msg Q chanlev $did(42) $chr(35) $+ $did(41)
    }
    if ($did == 61) {
      set %borknet_l_chanlev 1
      .msg L welcome $did(60)
      .msg L chanlev $did(60)
    }
    if ($did == 69) {
      set %borknet_l_chanlev 1
      set %borknet_l_userlev 1
      unset %borknet_l_changeuser
      if ($did(63).state) {
        set %borknet_l_changeuser %borknet_l_changeuser $+ +g
      }
      else {
        set %borknet_l_changeuser %borknet_l_changeuser $+ -g
      }
      if ($did(64).state) {
        set %borknet_l_changeuser %borknet_l_changeuser $+ +a
      }
      else {
        set %borknet_l_changeuser %borknet_l_changeuser $+ -a
      }
      if ($did(65).state) {
        set %borknet_l_changeuser %borknet_l_changeuser $+ +n
      }
      else {
        set %borknet_l_changeuser %borknet_l_changeuser $+ -n
      }
      if ($did(66).state) {
        set %borknet_l_changeuser %borknet_l_changeuser $+ +m
      }
      else {
        set %borknet_l_changeuser %borknet_l_changeuser $+ -m
      }
      if ($did(67).state) {
        set %borknet_l_changeuser %borknet_l_changeuser $+ +o
      }
      else {
        set %borknet_l_changeuser %borknet_l_changeuser $+ -o
      }
      if ($did(68).state) {
        set %borknet_l_changeuser %borknet_l_changeuser $+ +v
      }
      else {
        set %borknet_l_changeuser %borknet_l_changeuser $+ -v
      }
      .msg L chanlev $did(60) $chr(35) $+ $did(59) %borknet_l_changeuser
      .msg L whois $did(59)
    }
    if ($did == 75) {
    .msg L welcome $did(60) $did(74)
    }
    if ($did == 76) {
    .msg L welcome $did(60) remove
    did -o borknet_bot_control 74 1 New Welcome
    }
    if ($did == 77) {
    .msg l setinvite $did(60)
    }
    if ($did == 78) {
    .msg l clearinvite $did(60)
    }
  }
  if ($devent == dclick) {
    if ($did == 56) {
      set %borknet_q_userlev 1
      .msg Q chanlev $did(42) $chr(35) $+ $did(56,$did(56).sel)
    }
    if ($did == 70) {
      set %borknet_l_userlev 1
      .msg L whois $did(70,$did(70).sel)
    }
    if ($did == 79) {
      url -a http://www.borknet.org
    }
  }
  if ($devent == close) {
    set %borknet_bot_control 0
    unset %q.not.hide. $+ $cid
  }
}
on ^*:notice:*:?:{
  if (%borknet_bot_control == 1 && $nick == Q) {
    haltdef
    if ($regex($1-,Current channel flags are:.+)) {
      did -o borknet_bot_control 5 1 Current Flags on $did(borknet_bot_control,2) are: $5
      did -u borknet_bot_control 21,22,23,24,25,26,27,28,29
      if ($regex($5,.*b.*)) {
        did -c borknet_bot_control 21
      }
      if ($regex($5,.*c.*)) {
        did -c borknet_bot_control 24
      }
      else {
        did -u borknet_bot_control 24
      }
      if ($regex($5,.*f.*)) {
        did -c borknet_bot_control 28
      }
      if ($regex($5,.*k.*)) {
        did -c borknet_bot_control 26
      }
      if ($regex($5,.*l.*)) {
        did -c borknet_bot_control 25
      }
      else {
        did -u borknet_bot_control 25
      }
      if ($regex($5,.*m.*)) {
        did -c borknet_bot_control 27
      }
      if ($regex($5,.*p.*)) {
        did -c borknet_bot_control 22
      }
      if ($regex($5,.*v.*)) {
        did -c borknet_bot_control 23
      }
      if ($regex($5,.*w.*)) {
        did -c borknet_bot_control 29
      }
    }
    if ($regex($1-,Current limit is:.+)) {
      did -o borknet_bot_control 7 1 $4
    }
    if ($regex($1-,Current enforced modes on .+)) {
      did -o borknet_bot_control 16 1 $7
    }
    if (%borknet_q_chanlev == 1) {
      if ($regex($1-,Known users on.+are:)) {
        did -r borknet_bot_control 56
        did -r borknet_bot_control 57
      }
      if ($regex($1-,.+Modes:.+)) {
        did -a borknet_bot_control 56 $1
        did -a borknet_bot_control 57 $3
      }
      if ($regex($1-,End of list.)) {
        set %borknet_q_chanlev 0
      }
    }
    if (%borknet_q_userlev == 1) {
      if ($regex($1-,.+modes on channel.+)) {
        did -o borknet_bot_control 41 1 $remove($1,$chr(35))
        did -o borknet_bot_control 40 1 $remove($1,$chr(35)) $+ 's Flags on $5 $6
        did -u borknet_bot_control 44,45,46,47,48,49,50,51,52,53,54
        if ($regex($6,.*a.*)) {
          did -c borknet_bot_control 48
        }
        if ($regex($6,.*b.*)) {
          did -c borknet_bot_control 52
        }
        if ($regex($6,.*d.*)) {
          did -c borknet_bot_control 49
        }
        if ($regex($6,.*g.*)) {
          did -c borknet_bot_control 45
        }
        if ($regex($6,.*m.*)) {
          did -c borknet_bot_control 53
        }
        if ($regex($6,.*n.*)) {
          did -c borknet_bot_control 54
        }
        if ($regex($6,.*o.*)) {
          did -c borknet_bot_control 47
        }
        if ($regex($6,.*q.*)) {
          did -c borknet_bot_control 46
        }
        if ($regex($6,.*t.*)) {
          did -c borknet_bot_control 50
        }
        if ($regex($6,.*w.*)) {
          did -c borknet_bot_control 51
        }
        if ($regex($6,.*v.*)) {
          did -c borknet_bot_control 44
        }
        set %borknet_q_userlev 0
      }
    }
    if ($regex($1-,Total:.+)) {
      did -o borknet_bot_control 58 1 $1-
    }
  }
  if (%borknet_bot_control == 1 && $nick == L) {
    haltdef
    if (%borknet_l_chanlev == 1) {
      if ($regex($1-,Welcome message for channel .+)) {
        did -o borknet_bot_control 74 1 $7-
      }
      if ($regex($1-,Total:.+)) {
        did -o borknet_bot_control 72 1 $1-
      }
      if ($regex($1-,End of chanlev for.+)) {
        set %borknet_l_chanlev 0
        set %borknet_l_searching 0
      }
      if (%borknet_l_searching) {
        if (!$regex($1-,-+) && !$regex($1-,Authname Access flags) && !$regex($1-,Total:.+)) {
        did -a borknet_bot_control 70 $1
        did -a borknet_bot_control 71 $2
        }
      }
      if ($regex($1-,Users for channel :.+)) {
        did -r borknet_bot_control 70
        did -r borknet_bot_control 71
        set %borknet_l_searching 1
      }
    }
    if (%borknet_l_userlev == 1) {
      if ($regex($1-,.+is authed as.+)) {
        did -o borknet_bot_control 59 1 $remove($1,$chr(35))
        did -u borknet_bot_control 63,64,65,66,67,68
      }
      if ($1 == $did(borknet_bot_control,60)) {
        did -o borknet_bot_control 62 1 $did(borknet_bot_control,59) $+ 's Flags on $1 $+ : $2
        if ($regex($2,.*a.*)) {
          did -c borknet_bot_control 64
        }
        if ($regex($2,.*g.*)) {
          did -c borknet_bot_control 63
        }
        if ($regex($2,.*m.*)) {
          did -c borknet_bot_control 66
        }
        if ($regex($2,.*n.*)) {
          did -c borknet_bot_control 65
        }
        if ($regex($2,.*o.*)) {
          did -c borknet_bot_control 67
        }
        if ($regex($2,.*v.*)) {
          did -c borknet_bot_control 68
        }
        set %borknet_l_userlev 0
      }
    }
  }
}
alias botcontrol {
  set %borknet_bot_control 1
  dialog -m borknet_bot_control borknet_bot_control
}
for open Dialog you need write in mirc /botcontrol
http://pastebin.com/UCmEgNgZ
Admin
Admin
Admin

מספר הודעות : 269
Join date : 2009-09-12
Age : 44
מיקום : mIRCX IRC Network

https://mircx.forumotion.net

Back to top Go down

Back to top

BMT IRC Network :: BMT :: BMT

 
Permissions in this forum:
You cannot reply to topics in this forum