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
Latest topics
» מדריך התקנה conferenceroom-2-1 WINDOWS&& LINUX
Tue Jun 13, 2017 4:02 am by Chief

» Guide install Janus IRC
Sat Dec 03, 2016 3:46 am by Chief

» Guide install Anope in Centos 7
Sat Nov 19, 2016 7:24 am by Chief

» mIRCx IRC Network Config
Tue Oct 18, 2016 10:52 pm by Chief

» מדריך התקנה מירק על ubuntu 14.04
Mon Sep 19, 2016 2:40 am by Chief

» Guide install srvx 1.4.1-rc1  in ubuntu
Fri Aug 26, 2016 5:02 pm by Chief

» Guide install Inspircd
Fri Aug 19, 2016 8:21 am by Chief

» config Inspircd+atheme 7.2.4
Mon Aug 01, 2016 2:21 am by Chief

» מדריך התקנה SRVX Services על Centos 7
Sat Jul 16, 2016 9:58 pm by Chief

June 2017
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


borknet_bot_control

View previous topic View next topic Go down

borknet_bot_control

Post  Admin on 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
avatar
Admin
Admin

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

View user profile http://mircx.forumotion.net

Back to top Go down

View previous topic View next topic Back to top


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