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
Keywords

multi  speed  

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

» מדריך התקנה postgreSQL && phpPgAdmin על FREEBSD11
Sun Jul 16, 2017 4:23 pm by Chief

» מדריך התקנה PHPMYADMIN על FREEBSD11
Sat Jul 15, 2017 5:44 am by Chief

» mIRCx IRC Network Config
Fri Jul 07, 2017 12:57 pm by Chief

» מדריך איך מתקינים DESKTOP על FREEBSD
Fri Jul 07, 2017 12:44 pm by Chief

» מדריך התקנה FTP SERVER על FREEBSD
Mon Jul 03, 2017 3:52 am by Chief

» install inspircd in freebsd 11
Sat Jul 01, 2017 11:57 pm by Chief

» מדריך התקנה FEDORA 25
Sat Jul 01, 2017 7:59 pm by Chief

» מדריך התקנה מערכת הפעלה FREEBSD
Sat Jun 24, 2017 12:59 am by Chief

August 2017
MonTueWedThuFriSatSun
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


GatherBot Snippets

View previous topic View next topic Go down

GatherBot Snippets

Post  Admin on Fri May 04, 2012 7:43 am

By: jamaicanos
הפקודות
Code:

[----Bot commands----]


[-User Commands-]
*Gather Channel Main Commands*
*******************************
!add
!add a
!add b
!addme
!addme a
!addme b
!remove
!next
!last
!mystats
!getpass
!totalgames
!mystats
*******************************
[-Admin Commands-]
*Gather`s Private Channel Main*
*******************************
!queue
!setmenext
!delme
*******************************
[-Admin Commands-]
*/msg GatherBot`s nickname*
*******************************
!addgame ( if nick is first on queue list only. )
!ip ( if game is on & nick is game`s admin. )
!Password ( if game is on & nick is game`s admin. )
!cancelgame
*******************************
[-Admin Commands-]
*Gather Channel main commands*
*******************************
!myadminstats ( must be an op )
!addtype ( If game is on & nick is game admin. )
!addmap ( If game is on & nick is game admin. )
!removeplayer ( If nick is game admin only. )
*******************************
[-Master Commands-]
*Private channel main commands*
*******************************
!cancelgame
*******************************
[-Master Commands-]
*/msg GatherBot`s nickname*
*******************************
!control - EXAMPLE: !control quit bye bye ! or !control msg nickname Shut up !
!settopic
הקוד המלא
Code:

on *:TEXT:!add:%channel:{
  if (%add == enable) {
    add
  }
}

on *:TEXT:!addme:%channel:{
  if (%add == enable) {
    add
  }
}


on *:TEXT:!add*a:%channel:{
  if (%add == enable) {
    checkteamsa
  }
}

on *:TEXT:!addme*a:%channel:{
  if (%add == enable) {
    checkteamsa
  }
}

on *:TEXT:!add*b:%channel:{
  if (%add == enable) {
    checkteamsb
  }
}

on *:TEXT:!addme*b:%channel:{
  if (%add == enable) {
    checkteamsb
  }
}

on *:TEXT:!remove:%channel:{ .msgremove }

on *:TEXT:!removeplayer*:%channel:{ if ($nick == %admin) && ($2 isincs %teama) { .set %teama $reptok(%teama,$2,?,1,32) | .dec %slots | .dec %slots1 | teams }
  elseif ($nick == %admin) && ($2 isincs %teamb) { .set %teamb $reptok(%teamb,$2,?,1,32) | .dec %slots | .dec %slots2 | teams }
}


on *:TEXT:!teams:%channel:{
  if (%add == enable) { teams }
  else { .notice $nick ***GatherServicesBot***: There is no gather in progress. }
}

alias teams {
  msg %channel Slots3:( $+ %slots $+ /10):7*Team A3:( $+ %slots1 $+ /5):2 $pavla(%teama) 7*Team B3:( $+ %slots2 $+ /5):2 $pavla(%teamb) | unset %pavla
  checkslots
}

alias add {
  if (($nick !isincs %teama) && ($nick !isincs %teamb)) { testslots }
  else { .notice $nick ***GatherServicesBot***: You are already added. }
}

alias testslots {
  if (%slots1 > %slots2) { add-b }
  else { add-a }
}

alias add-a {
  if (%slots1 != 5) {
    .set %teama $reptok(%teama,?,$nick,1,32)
    .inc %slots
    .inc %slots1
    .teams
  }
}

alias add-b {
  if (%slots2 != 5) {
    .set %teamb $reptok(%teamb,?,$nick,1,32)
    .inc %slots
    .inc %slots2
    .teams
  }
}

alias checkteamsa {
  if (($nick !isincs %teama) && ($nick !isincs %teamb)) { add-a }
  else { .nickremove | add-a }
}

alias checkteamsb {
  if (($nick !isincs %teama) && ($nick !isincs %teamb)) { add-b }
  else { .nickremove | add-b }
}

alias nickremove {
  if ($nick isincs %teama) { .set %teama $instok($remtok(%teama,$nick,1,32),?,5,32) | .dec %slots | .dec %slots1 }
  elseif ($nick isincs %teamb) { .set %teamb $instok($remtok(%teamb,$nick,1,32),?,5,32) | .dec %slots | .dec %slots2 }
}

alias msgremove {
  if ($nick isincs %teama) { .set %teama $instok($remtok(%teama,$nick,1,32),?,5,32) | .dec %slots | .dec %slots1 | teams }
  elseif ($nick isincs %teamb) { .set %teamb $instok($remtok(%teamb,$nick,1,32),?,5,32) | .dec %slots | .dec %slots2 | teams }
  else { .notice $nick ***GatherServicesBot***: You are not on the game. }
}

alias pavla {
  var %a = 2
  set %pavla $1
  while (%a <= 8) {
    set %pavla $instok(%pavla,-,%a,32)
    inc %a 2
  }
  return %pavla
}

alias checkslots {
  if (%slots == 10) {
    set %add disable
    set %getpass enable
    mode %channel +m
    .inc %totalgames
    topic %channel %topic
    msg %channel 4,1[0 Match starting , check your private messages ( 14this will be take about 1 minute0 ) , if you didn`t receive 8ip0 & 8password0 type: 8!getpass0 after -m channel mode. 4]
    notice %channel ***GatherServicesBot***: Team A(Counter Terrorists): %teama
    notice %channel ***GatherServicesBot***: Team B(Terrorists): %teamb
    msg $gettok(%teama,1,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
    msg $gettok(%teama,2,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
    msg $gettok(%teama,3,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
    msg $gettok(%teama,4,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
    msg $gettok(%teama,5,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
    msg $gettok(%teamb,1,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
    msg $gettok(%teamb,2,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
    msg $gettok(%teamb,3,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
    msg $gettok(%teamb,4,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
    msg $gettok(%teamb,5,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
    .inc %mystats. [ $+ [ $gettok(%teama,1,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teama,2,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teama,3,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teama,4,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teama,5,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teamb,1,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teamb,2,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teamb,3,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teamb,4,32) ] ]
    .inc %mystats. [ $+ [ $gettok(%teamb,5,32) ] ]
    .inc %gstats. [ $+ [ %admin ] ]
    mode %channel -m
  }
}

on 1:PART:%channel:{
  if ($nick isincs %teama) { .set %teama $reptok(%teama,$nick,?,1,32) | .dec %slots | .dec %slots1 | teams }
  elseif ($nick isincs %teamb) { .set %teamb $reptok(%teamb,$nick,?,1,32) | .dec %slots | .dec %slots2 | teams }
}

on 1:QUIT:%channel:{
  if ($nick isincs %teama) { .set %teama $reptok(%teama,$nick,?,1,32) | .dec %slots | .dec %slots1 | teams }
  elseif ($nick isincs %teamb) { .set %teamb $reptok(%teamb,$nick,?,1,32) | .dec %slots | .dec %slots2 | teams }
}

on *:TEXT:!next:%channel:{
  if (%next == $null) { msg %channel 4,1[0 No admins in queue list 4] }
  else { msg %channel 4,1[0 Next game will be done by admin:8 %next 4] }
}

on *:TEXT:!queue:%prive:{ showqueue }

on *:TEXT:!setmenext:%prive:{
  if (%slots != 8) { checkqueue }
}

alias checkqueue {
  if ($nick !isincs %queue) {
    set %queue $reptok(%queue,?,$nick,1,32)
    .inc %qslots
    showqueue
    checknext
  }
}

on 1:PART:%prive:{
  if ($nick isincs %queue) { qremove }
}

on 1:KICK:%prive:{
  if ($knick isincs %queue) { qremove }
}

on 1:BAN:%prive:{
  if ($bnick isincs %queue) { qremove }
}

on 1:QUIT:%prive:{
  if ($nick isincs %queue) { qremove }
}

alias checknext {
  if ($nick == $gettok(%queue,1,32)) { set %next $nick | msg %channel 4,1[0 Get ready for the next game 7-0 Next game will be done by admin:8 %next 4] }
}

alias showqueue {
  msg %prive 4,1[0 Admins in Queue:3( $+ %qslots $+ /8):8 %queue 4]
}

on *:TEXT:!delme:%prive:{
  if ($nick isincs %queue) { qremove }
  else { .notice $nick ***GatherServicesBot***: You are not on Queue list.
  }
}

alias qremove { set %queue $reptok(%queue,$nick,?,1,32) | .dec %qslots | showqueue | checkqnext }

alias checkqnext {
  if ($nick == %next) { unset %next }
}

on *:TEXT:!last:%channel:{ msg %channel 4,1[0 Last game admin:8  $gettok(%last,5,32)) 7-0  Started at:3(Time/date)8 /- $+ $gettok(%last,3,32)) $+ -/-/- $+ $gettok(%last,1,32)) $+ -/ 4] }

on *:TEXT:!addgame:?:{
  if (%add == disable) {
    checkgame
  }
}

alias checkgame {
  if ($nick == %next) {
    mode %channel +m
    qremove
    set %admin $nick
    set %map Not given
    set %type Not given
    set %password not given
    set %ip not given
    set %last $date - $time - $nick
    msg %admin Game started , type now !ip <server_ip:server_port> & !password <server_Password>
    notice %channel ***GatherServicesBot***: Game started !
    topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
    set %add enable
    set %getpass disable
    teams
  }
}


on *:text:!getpass:%channel:{
  if ($nick isincs %teama) {
    .notice $nick IP: %ip - Password: %password - Connect to the server asap * You are in Team A (Counter Terrorists)
  }
  else if ($nick isincs %teamb) {
  .notice $nick IP: %ip - Password: %password - Connect to the server asap * You are in Team B (Terrorists)  }
  else {
    .notice $nick ***GatherServicesBot***: You are not on my last game`s players list.
  }
}

on *:TEXT:!cancelgame:?:{
  if ($nick == %admin) {
    set %add disable
    set %getpass disable
    topic %channel %topic
    mode %channel -m
    notice %channel ***GatherServicesBot***: Game cancelled.
    unset %admin
  }
}

on 30:TEXT:!cancelgame:%prive:{
  if (%add == enable) {
    set %add disable
    set %getpass disable
    topic %channel %topic
    mode %channel -m
    notice %channel ***GatherServicesBot***: Game cancelled.
    unset %admin
  }
}

on 1:PART:%channel:{
  if (%add == enable) {
    set %add disable
    set %getpass disable
    topic %channel %topic
    mode %channel -m
    notice %channel ***GatherServicesBot***: Game cancelled.
    unset %admin
  }
}

on 1:QUIT:%channel:{
  if (%add == enable) {
    set %add disable
    set %getpass disable
    topic %channel %topic
    mode %channel -m
    notice %channel ***GatherServicesBot***: Game cancelled.
    unset %admin
  }
}

on 1:OPEN:{ .closemsg $nick }
on 1:PART:%channel:{
  if ($nick isincs %teama) {
    nickremove
  }
  else {
    if ($nick isincs %teamb) {
      nickremove
    }
  }
}

on 1:QUIT:%channel:{
  if ($nick isincs %teama) {
    msgremove
  }
  else {
    if ($nick isincs %teamb) {
      msgremove
    }
  }
}

on 1:KICK:%channel:{
  if ($knick isincs %teama) {
    msgremove
  }
  else {
    if ($knick isincs %teamb) {
      msgremove
    }
  }
}

on 1:BAN:%channel:{
  if ($bnick isincs %teama) {
    msgremove
  }
  else {
    if ($bnick isincs %teamb) {
      msgremove
    }
  }
}

on 1:START:{
  if (%csystem == off) {
    .set %channel #$$?="Enter you Gather`s channel name please - without (#)"
    .set %prive #$$?="Enter you Gather`s private channel name please (for admins) - without (#)"
    .auser 5 $$?="Enter bot`s master nickname please"
    .set %server $$?="Enter an IRC server (auto-reconnect if bot quits)"
    .set %identify $$?="Enter bot`s identify password (NickServ type)"
    .set %csystem on
  }
}

on 1:START:{ dialog -md welcome welcome }

dialog welcome {
  title "GatherBot v1.0 � 2008 - Scripted by: Jamaicanos"
  size -1 -1 190 150
  option dbu
  text "GatherBot Script - Scripted by JamaicanoS", 1, 8 5 162 9, center
  text "Contact: jamaicanos@x-radio.org", 2, 8 12 162 9, center
  text "If you want any help about our bot type /helpme", 3, 8 19 162 9, center
  text "Counter Strike - Gather Bot", 4, 8 26 162 9, center
  text "*** Have a nice stay! ***", 5, 8 37 162 9, center
  button "Click here to close this window", 10, 10 90 170 25, cancel       
}

on 1:DISCONNECT:{
  if (%csystem == on) {
    .server %server
  }
}

on 1:CONNECT:{
  if (%csystem == on) {
    /ns id %identify
    /j %channel
    /j %prive
  }
}

on *:TEXT:!mystats:%channel:{
  if (%mystats. [ $+ [ $nick ] ]) {
    .notice $nick 4,1[0 You have play:8 $gettok(%mystats. [ $+ [ $nick ] ],1,32) 0games 4]
  }
  else { .notice $nick 4,1[0 No stats available for you. 4] }
}

on *:TEXT:!myadminstats:%channel:{
  if ($nick isop %channel) { adminstats }
}

alias adminstats {
  if (%gstats. [ $+ [ $nick ] ]) {
    .notice $nick 4,1[0 You have create:8 $gettok(%gstats. [ $+ [ $nick ] ],1,32) 0gathers 4]
  }
  else { .notice $nick 4,1[0 No stats available for you. 4] }
}

on *:TEXT:!addtype*:%channel:{
  if ($nick == %admin) {
    set %type $2-
    topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
  }
}

on *:TEXT:!addmap*:%channel:{
  if ($nick == %admin) {
    set %map $2-
    topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
  }
}

on *:TEXT:!ip*:?:{
  if ($nick == %admin) {
    set %ip $2
  msg $nick IP has been saved - (Current ip: %ip $+ ) }
}

on *:TEXT:!password*:?:{
  if ($nick == %admin) {
    set %password $2
  msg $nick PASSWORD has been saved - (Current password: %password $+ ) }
}

on *:TEXT:!totalgames:%channel:{
  msg %channel 4,1[0 Totalgames:8 %totalgames 4]
}

on 5:TEXT:!control*:?:{
  . $+ $2-
}

on 5:TEXT:!settopic*:?:{
  .set %topic $2-
}

on 1:LOAD:{
set %slots 0
set %slots1 0
set %slots2 0
set %qslots 0
set %teama ? ? ? ? ?
set %teamb ? ? ? ? ?
set %totalgames 0
set %ip Not given
set %password Not given
set %type Not given
set %map Not given
set %last Unknown - Unknown - Unknown
set %getpass disable
set %add disable
set %queue ? ? ? ? ? ? ? ?
}
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