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
Latest topics
» mIRCx IRC Network Config
Sun Dec 10, 2017 2:22 am by Chief

» מדריך התקנה Pylink על unrealircd4 && inspircd
Sat Nov 18, 2017 6:35 am by Chief

» מדריך כיצד משתמשים עם SSH
Sat Nov 11, 2017 7:22 pm by Chief

» מדריך התקנה hybrid open proxy monitor
Thu Oct 12, 2017 1:39 am by Chief

» install Eggdrop in FreeBsd 11
Sun Oct 01, 2017 4:22 am by Chief

» install Nefarious2 && X3 IRC Services in FreeBsd
Sat Sep 23, 2017 8:42 pm by Chief

» מדריך התקנה גירסאות DESKTOP על FREEBSD11
Sat Sep 09, 2017 1:47 pm by Chief

» working with ubuntu 14.04 and fix a problem
Wed Aug 23, 2017 1:26 am by Chief

» מדריך התקנה WORDPRESS על FREEBSD11
Mon Jul 17, 2017 2:50 am by Chief

December 2017
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


Mix Bot v0.2 By Sw1ft

View previous topic View next topic Go down

Mix Bot v0.2 By Sw1ft

Post  Chief on Thu Sep 13, 2012 4:55 am

mIRCx

Mix Bot v0.2 By Sw1ft
credit and thanks to Sw1ft
take code and put in you mirc remote
Code:

; Mix Bot v0.2 By Sw1ft
; Date: 24/05/05
; Copright(c) @ #UK.Mix

;;Commands
;;$start
;;$stop
;;$access owner/remove/give

;; owner = owner
;;give = mix admin
;;remove == remove there admin/owner

;; HF !



on 1:LOAD:{
  set %mix.channel $$?="Enter you Mix Channel"
  set %mix.Server $$?="Enter Mix Server IP"
  set %owner $$?="Enter Owners Nick"
  writeini owner.ini %mix.channel $address(%owner,1) owner
  unset %team
  unset %mix.count
  set %mix.map None
  set %mix.server None
  set %mix.players 5
}

on 1:TEXT:$($!access*):%mix.channel:{
  if ($readini(owner.ini,%mix.channel,$address($nick,1) == owner)) {
    if ($2 == Give) {
      writeini mix-admins.ini $chan $address($3,1) admin
      msg # Done.
      mode $chan +v $3
      notice $3 You Are now A Mix Admin
      halt
    }
    if ($2 == remove) {
      remini mix-admins.ini %mix.channel $address($3,1)
      msg # done.
      mode $chan -v $3
      notice $3 You Are no Longer A Mix Admin.
      halt
    }
    if ($2 == owner) {
      writeini owner.ini %mix.channel $address($nick,1) owner
      mode $chan +o $3
      msg # done.
      notice $3 you Are Now A Mix Admin !
      halt
    }
  }
}




on 1:JOIN:%mix.channel:{
  if ($readini(mix-admins.ini,$chan,$address($nick,1) == admin)) {
  mode $chan +v $nick
    msg # [- $nick Is A Mix Admin. -]
  }
}

on 1:TEXT:$($!Start):%mix.channel:{
  if ($readini(mix-admins.ini,$chan,$address($nick,1) == admin)) {
    if (%mix == on) { notice $nick Mix Allready Active $nick $+ .
    }
    else {
      amsg [- Mix Has Started @ $chan , Type !add To Play! -]
      inc %mix.total
      set %mix on
      set %mix.admin $nick
      topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
      notice $nick [- Setup commands: $chr(36) $+ map < Map> ][ $chr(36) $+ game <Game Type> ][ $chr(36) $+ Stop To Stop The Mix! -]
      notice $nick /msg $me password <password>
      notice $nick [- Commands To Be done In Channel! -]
      halt
    }
  }
}
on 1:TEXT:$($!map*):%mix.channel:{
  if ($nick == %mix.admin) {
    set %mix.map $2
    topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    notice $nick Map Is Set To $2
    halt
  }
}

on 1:TEXT:$($!game*):%mix.channel:{
  if ($nick == %mix.admin) {
    set %mix.game $2
    topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    notice $nick Game Type Is Set To $2
    halt
  }
}

on 1:TEXT:$($!stop):%mix.channel:{
  if ($readini(owner.ini,%mix.channel,$address($nick,1) == owner)) {
    if ($nick == %mix.admin) {
      dec %mix.total
      topic $chan 7[- Welcome To #UK.Mix 7][ Supported By #United-Kingdom 7][ Total Mixes: %mix.total 7][ News: %news -7]
      set %mix.map None
    unset %mix.count
    unset %team
    unset %mix.admin
    set %mix off
      set %team
      set %mix.game 0
      set %mix.map 0 
      set %password 0
      notice $nick Mix Has Been Stopped.
      halt
    }
  }
}
on *:text:!add*:%mix.channel:{
  if (%mix != on) { halt
  }
  else {
    inc %mix.count
    if ($istok(%team, $nick, 32)) { notice $nick You're already In The Mix.
      return
    }
    else {   
      if (%mix.count == %mix.players) {
        mode %mix.channel +m
        topic %mix.channel 7[- Welcome To #UK.Mix 7][ Supported By #United-Kingdom 7][ Total Mixes: %mix.total 7][ News: %news -7]
        getip
        msg %mix.channel [- Supported By: #United-Kingdom ][ Sponsored By: you? and You? -]
        msg %mix.channel [- If you didnt get pass contact the admin: %mix.admin -]
        set %mix off
        set %team
        set %mix.game 0
        set %mix.map 0 
        set %password 0
        unset %mix.admin
        mode %mix.channel -m
      }
      else {
        set %team $addtok(%team, $nick, 32)
        topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
        halt
      }
    }
  }
}
on 1:TEXT:!remove:%mix.channel:{
  if ($istok(%team, $nick, 32)) {
    dec %mix.count
    set %team $remtok(%team, $nick, 32)
    topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    notice $nick Done.
    halt
  }
  else { notice $nick You Are Not In The Team.
  }
}

on 1:TEXT:!mixes:%mix.channel:{
  msg # Total Mixes: %mix.total
}

on 1:TEXT:!team:%mix.channel:{
  if (%mix) {
    msg $chan Current Mix Team: %team
    halt
  }
  else { halt
  }
}

alias getip {
  var %d = 1
  while (%d <= $numtok(%team,32)) {
    msg $gettok(%team, %d, 32) [- Mix Has Now Started ][Server: %mix.server ][IP: %password ][ If There Is No Details Here, Please Conatct: %mix.admin ][ Please Join Server Now, Thx ]
    inc %d
  }
}
on 1:TEXT:password*:?:{
  if ($readini(owner.ini,%mix.channel,$address($nick,1) == OWNER)) {
    if ($readini(mix-admins.ini,$chan,$address($nick,1) == admin)) {
      if ($nick isop %mix.channel) {
        set %password $2
        notice $nick Password Has Been Set.
      }
    }
  }
}

on 1:TEXT:$($!news*):#uk.mix:{
  if ($readini(owner.ini,%mix.channel,$address($nick,1) == OWNER)) {
    if (%mix == on) {
      /set %news $2-
      /topic %mix.channel 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
      halt
    }
    elseif (%mix == off) {
      /set %news $2-
      /topic %mix.channel 7[- Welcome To #UK.Mix 7][ Supported By #United-Kingdom 7][ Total Mixes: %mix.total 7][ News: %news -7]
    }
  }
}


on 1:PART:%mix.channel:{
  if ($istok(%team, $nick, 32)) {
    /set %team $remtok(%team, $nick, 32)
    /topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    halt
  }
}

on 1:KICK:%mix.channel:{
  if ($istok(%team, $nick, 32)) {
    /set %team $remtok(%team, $nick, 32)
  / topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    halt
  }
}


on 1:BAN:%mix.channel:{
  if ($istok(%team, $nick, 32)) {
    /set %team $remtok(%team, $nick, 32)
    /topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    halt
  }
}

on 1:QUIT:{
  if ($istok(%team, $nick, 32)) {
    /set %team $remtok(%team, $nick, 32)
    /topic $chan 7[- Mix Sarted 7][ !add 7/ !remove 7][ Map: %mix.map 7][ Game Type: %mix.game 7][ Team: %team 7][ Total Mixes: %mix.total -7]
    halt
  }
}

we have more code to mix bot but you need fix this this two codes
Code:

alias themix {
  while ($numtok(%tmp1,32) < $calc(%pplsnum / 2) {
  var %g = $gettok(%mixreg,$r(1,$numtok(%mixreg,32)),32) | var %tmp1 = $addtok(%tmp1,%g,32) | var %mixreg = $remtok(%mixreg,%g,1,32) } | msg # %tmp1 vs %mixreg
}
on *:text:*!gomix*:#: {
  if ( $nick isin %gomix ) {
    msg # already started mix
  }
  elseif ( $nick isop # ) {
    /enable #gomix
    /set %gomix $nick
    timer 1 1 mode # +m
    timer 1 3 msg # you may write 2 sec's more !inmix
timer 1 5 mode # -m
  }
}
on *:text:*!offmix*:#: {
  if ( $nick isin %offmix ) {
    msg # mix is already off
  }
  elseif ( $nick isop # ) {
    notice # mix is off
    set %offmix $nick
    mode # +b-b * *
    unset %mixreg , %mixalready , %gomix , %offmix
    /disable #gomix
  }
}
#gomix off
on *:text:*!inmix*:#:{
  if ($nick isin %mixalready || $nick isin %mixreg ) {
    halt
  }
  elseif ($1 == !inmix) && ($nick !isin %mixreg) && ( $nick !isin %mixalready ) && ($numtok(%mixreg,32) < %pplsnum) {
    /set %mixalready %mixalready $nick
    /set %mixreg %mixreg $nick
    msg # øùåîéí : $+($numtok(%mixreg,32),/,%pplsnum)
  }
  elseif ($numtok(%mixreg,32) == %pplsnum) {
    /disable #gomix
    timer 1 2 mode # +m
    timer 1 5 msg # wait for mix :........
    timer 1 9 mix msg # teams : $themix
    timer 1 12 mode # -m
  }
}
#gomix end
on *:text:*!teamix*:#: {
  if ( $nick isin %mixnc ) {
    halt
  }
  elseif (%mixreg == $null) {
    msg # mix is off
  }
  else {
    set %mixnc %mixnc $nick
    //msg # teams : $replace(%mixreg,$chr(32),$+($chr(44)))
  }
 
}
menu channel {
  äâãøåú
  .äâãø îñôø ùç÷ðéí://set %pplsnum $?=\"?\"
  .äâãø òøåõ:/set %channel $chan
}
Code:

;#######Mix Script V.01################
;###Made By Sw1ft @ 9:49PM##############
;###On Monday, Map 09 2005##############
;##Copyright(c) 2005 @ #United-Kingdom######
;###Have Fun With It, Commands Below.#######



;commands
;OPS ONLY
;$start to start it
;$stop to stop it
;!map <map>
;!server <ip>
;msg <bot> password <password>
;
;Normal Users
;!add
;!remove
;!team


on 1:LOAD:{
  set %mix.channel $$?="Enter you Mix Channel"
  set %mix.Default $$?="Enter Your Defualt Topic"
  set %mix.vent $$?="Enter Vent IP:PORT I.E: 234.56.32.34:2345"
  unset %team
  unset %mix.count
  set %mix.map None
  set %mix.server None
  set %mix.players 5
}
on 1:TEXT:$($!Start):%mix.channel:{
  if ($nick isop $chan) {
    if (%mix == on) { notice $nick Mix Allready Active $nick $+ .
    }
    else {
      set %mix on
      set %mix.admin $nick
      topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
      notice $nick You Now Need To Set Map And Server And Server PASSWORD
      notice $nick !map <Map Name> To Set Map.
      notice $nick !server <Server IP>  To Set The Server IP.
      notice $nick Use, /msg $me password <password> To set the password to the server.
      halt
    }
  }
}
on 1:TEXT:!map *:%mix.channel:{
  if ($nick == %mix.admin) {
    set %mix.map $2
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    notice $nick Map Is Set To $2
    halt
  }
}
on 1:TEXT:!Server *:%mix.channel:{
  if ($nick == %mix.admin) {
    set %mix.server $2
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    notice $nick Server Is Set To $2
    halt
  }
}
on 1:TEXT:$($!stop):%mix.channel:{
  if ($nick == %mix.admin) {
    topic $chan %mix.default
    set %mix.map None
    set %mix.server None
    unset %mix.count
    unset %team
    unset %mix.admin
    set %mix OFF
    notice $nick Mix Has Been Stopped.
    halt
  }
}
on *:text:!add*:%mix.channel:{
  if (%mix != on) { halt
  }
  else {
    inc %mix.count
    if ($istok(%team, $nick, 32)) { notice $nick You're already In Th Mix.
      return
    }
    else {   
      if (%mix.count == %mix.players) {
        timer 1 1 mode %mix.channel +m
        timer 1 2 topic %mix.channel %mix.default
        getip
        timer 1 3 msg %mix.channel If you didnt get pass contact the admin: %mix.admin
        set %mix off
        set %team 0
        set %mix.map 0 
        set %mix.server 0
        set %mix.password 0
        timer 1 5 mode %mix.channel -m
      }
      else {
        set %team $addtok(%team, $nick, 32)
        topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
        halt
      }
    }
  }
}
on 1:TEXT:!remove:%mix.channel:{
  if ($istok(%team, $nick, 32)) {
    dec %mix.count
    set %team $remtok(%team, $nick, 32)
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    notice $nick Done.
    halt
  }
  else { notice $nick You Are Not In The Team.
  }
}
on 1:TEXT:!team:%mix.channel:{
  if (%mix) {
    msg $chan Current Mix Team: %team
    halt
  }
  else { halt
  }
}
alias getip {
  var %d = 1
  while (%d <= $numtok(%team,32)) {
    msg $gettok(%team, %d, 32) [- Mix Has Now Started ][Server: %mix.server ][IP: password ][ If There Is No Details Here, Please Conatct: %mix.admin ][ Please Join Server Now, Thx ]
    inc %d
  }
}
on 1:TEXT:password*:?:{
  if (%mix.admin == $nick) {
    if ($nick isop %mix.channel) {
      set %password $2
      notice $nick Password Has Been Set.
    }
  }
}

on 1:PART:%mix.channel:{
  if ($nick isin $istok(%team, $nick, 32)) {
    set %team $remtok(%team, $nick, 32)
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    halt
  }
}

on 1:KICK:%mix.channel:{
  if ($nick isin $istok(%team, $nick, 32)) {
    set %team $remtok(%team, $nick, 32)
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    halt
  }
}


on 1:BAN:%mix.channel:{
  if ($nick isin $istok(%team, $nick, 32)) {
    set %team $remtok(%team, $nick, 32)
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    halt
  }
}

on 1:QUIT:{
  if ($nick isin $istok(%team, $nick, 32)) {
    set %team $remtok(%team, $nick, 32)
    topic $chan 1,0[Mix Started ][ Map: %mix.map ][ Server: %mix.server ][ Team: %team ][ Vent: %mix.vent ]
    halt
  }
}
Enjoy
www.mIRCx.co.il
the old Community mIRCx
Chief Or Dor
avatar
Chief
Admin

מספר הודעות : 215
Join date : 2011-12-09
מיקום : mIRCx IRC Network

View user profile

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