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

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

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

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

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

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

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

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

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

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

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

November 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
252627282930 

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


Infoline By Arthas

BMT IRC Network :: BMT :: BMT

Go down

Infoline By Arthas Empty Infoline By Arthas

Post  Admin Tue Mar 27, 2012 6:04 pm

Code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Infoline,
;;  By Artv1has
;;  For www.Scripting.co.il
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dialog Infoline {
  title "Infoline list"
  size -1 -1 104 188
  option dbu notheme
  box "Infoline users list", 1, 3 3 96 94
  list 2, 8 12 86 80, size
  button "Add user", 6, 52 152 47 10
  button "Delete user", 7, 52 163 47 10
  button "Clear users", 8, 52 174 47 10
  box "Infolines", 9, 3 100 96 46
  list 10, 8 109 86 32, size
  button "Add Infoline", 3, 3 152 47 10
  button "Delete Infoline", 4, 3 163 47 10
  button "Clear Infolines", 5, 3 174 47 10
}
dialog Infolineadd {
  title "Add Infoline user"
  size -1 -1 102 34
  option dbu notheme
  edit "", 1, 3 3 96 11, autohs
  button "Add", 2, 52 17 46 13, ok
  button "Close", 3, 3 17 46 13, ok
}
dialog Infoline2add {
  title "Add Infoline"
  size -1 -1 101 45
  option dbu notheme
  edit "", 1, 28 3 70 11, autohs
  button "Add", 2, 52 29 46 13, ok
  button "Close", 3, 3 29 46 13, ok
  text "User:", 4, 4 4 18 8
  edit "", 5, 28 15 70 11, autohs
  text "Infoline:", 6, 4 16 21 8
}

on *:dialog:*:*:*:{
  if ($dname == Infoline) {
    if ($devent == sclick) {
      if ($did == 5 && $did($dname,2).seltext) { remini Infoline.ini Infoline
 $did($dname,2).seltext | did -r $dname 10 }
      if ($did == 4 && $did($dname,2).seltext && $did($dname,10).seltext) {
        var %u = $did($dname,10).seltext
        did -d $dname 10 $did($dname,10).sel
        if ($numtok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),92)
 == 1) { remini Infoline.ini Infoline $did($dname,2).seltext }
        else { writeini Infoline.ini Infoline $did($dname,2).seltext
 $remtok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),%u,1,92) }
      }
      if ($did == 3) && ($did($dname,2).seltext) { dialog -m Infoline2add
 Infoline2add | did -a Infoline2add 1 $did($dname,2).seltext }
      if ($did == 2) { did -r $dname 10 | var %x = 1 | while (%x <=
 $numtok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),92)) { did -a
 $dname 10 $gettok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),%x,92)
 | inc %x }
      }
      If ($did == 6) { dialog -m Infolineadd Infolineadd }
      If ($did == 7) && ($did($dname,2).seltext) { var %u =
 $did($dname,2).seltext
        if ($?!=\"Are you sure?") {
          if ($numtok($readini(Infoline.ini,Infoline,Infoline),32) == 1) {
 remini Infoline.ini Infoline Infoline }
          else { writeini Infoline.ini Infoline Infoline
 $remtok($readini(Infoline.ini,Infoline,Infoline),%u,1,32) }
          did -d $dname 2 $did($dname,2).sel
        }
      }
      If ($did == 8) { .remove Infoline.ini | did -r $dname 2 | did -r $dname 10
 }
    }
    if ($devent == init) { var %x = 1 | while (%x <=
 $numtok($readini(Infoline.ini,Infoline,Infoline),32)) { did -a $dname 2
 $gettok($readini(Infoline.ini,Infoline,Infoline),%x,32) | inc %x } }
  }
  if ($dname == Infolineadd) && ($devent == sclick) && ($did == 2 && $did(1))
 {
    if ($iif($gettok($gettok($did(1),1,46),2,64) !==
 $null,$gettok($gettok($did(1),1,46),2,64),$did(1)) !isin
 $readini(Infoline.ini,Infoline,Infoline) || $did(1) !isin
 $readini(Infoline.ini,Infoline,Infoline)) { did -a Infoline 2 $did(1) |
 writeini Infoline.ini Infoline Infoline

$addtok($readini(Infoline.ini,Infoline,Infoline),$iif($gettok($gettok($did(1),1,46),2,64)
 !== $null,$gettok($gettok($did(1),1,46),2,64),$did(1)),32)
      dialog -x $dname $dname
    }
  }
  if ($dname == Infoline2add) && ($devent == sclick) && ($did == 2) && ($did(1))
 && ($did(5)) { writeini Infoline.ini Infoline $did(1)
 $addtok($readini(Infoline.ini,Infoline,$did(1)),$did(5),92) | did -a Infoline
 10 $did(5) | dialog -x $dname $dname }
}
on *:join:#:{
  if ($gettok($gettok($wildsite,1,46),2,64) isin
 $readini(Infoline.ini,Infoline,Infoline)) || ($nick isin isin
 $readini(Infoline.ini,Infoline,Infoline)) {
    var %nick = $iif($gettok($gettok($wildsite,1,46),2,64) isin

$readini(Infoline.ini,Infoline,Infoline),$gettok($gettok($wildsite,1,46),2,64),$nick)),92)

    var %sw = $iif($numtok($readini(Infoline.ini,Infoline,%nick),92) ==
 0,0,$r(1,$numtok($readini(Infoline.ini,Infoline,%nick),92)))
    var %r =  $+ $r(2,15) | msg # %r $+ Hi %r $+  $+ $left($nick,1) $+
  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+ 
 $+ $chr(44) $+  %r $+ You %r $+ Are %r $+ In %r $+ My %r
 $+ Friends %r $+ List ( $+ %r $+ ArthasScript)
    msg # %r $+ Info %r $+ Line %r $+ For %r $+  $+
 $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+
 $right($nick,1) $+  $+ $chr(44) $iif(%sw !== 0, $+ %sw $+ / $+
 $numtok($readini(Infoline.ini,Infoline,%nick),92) $+ : $+ )

$iif($gettok($readini(Infoline.ini,Infoline,%nick),%sw,92),$gettok($readini(Infoline.ini,Infoline,%nick),%sw,92),NOTSET)
 ( $+ %r $+ ArthasScript)
  }
}
menu * {
  Infoline: dialog -m Infoline Infoline
}
menu nicklist {
  Infoline
  .Add Infoline user: if ($gettok($gettok($address($1,2),1,46),2,64) !isin
 $readini(Infoline.ini,Infoline,Infoline)) { if ($dialog(Infoline)) did -a
 Infoline 2 $gettok($gettok($address($1,2),1,46),2,64) | writeini Infoline.ini
 Infoline Infoline

$addtok($readini(Infoline.ini,Infoline,Infoline),$gettok($gettok($address($1,2),1,46),2,64),32)
 } | else { echo -a $address($1,2) is already on the Infoline list }
}
_______________________________________________________________________

dialog encoding {
  title "Chr encoding"
  size -1 -1 118 76
  option dbu notheme
  edit "", 2, 17 6 80 12, autohs
  text "Text:", 3, 4 8 13 8
  button "Enter", 4, 98 6 16 12
  list 5, 3 22 112 50, size
}
on *:dialog:encoding:sclick:4: if ($did(2)) { var %p =
 $regsubex($did(2),/(.)/g,$ $+ chr( $+ $asc(\1) $+ ) $+ $chr(44)) | did -a
 $dname 5 $ $+ +( $+ $left(%p,-1) $+ ) | editbox -a $ $+ +( $+ $left(%p,-1) $+ )
 | clipboard $ $+ +( $+ $left(%p,-1) $+ ) }
menu * {
  Encoding: dialog $iif(!$dialog(encoding),-m,-x) encoding encoding
}
________________________________________________________________________

on *:text:*how old are you*:#:{
  msg # I'm 20 years old.. you?
}

on *:text:*how are you*:#:{
  msg # I'm fine, Thanks.. How are you?
}

on *:text:!credits:#:{
 msg # Funbot Build By StareX. For mIRC-IL :)
}

on *:text:%nick:#:{
  timer 1 1 msg # Did you say %nick $+ ? | timer 1 2 msg # Oh yeah! its my owner
 :)
}


on *:text:*lol*:#:{
  msg # 4Laughing 7Out 14LOUD!
}

on *:text:omg:#:{
  msg # Oh My God!
}

on *:text:wtf:#:{
  msg # What The Fuck?!?!
}

on *:text:*www*:#:{
  msg # Wow.. i will visit that site ^^
}

on *:text:cya:#:{
msg # See Ya! }
]

on *:text:%botnick:#:{
  if ($nick == %nick) {
    msg # Yes, My Master?
  }
  else { msg # What do you want?!
  }
}

on *:text:Hi:#:{
  msg # Hello, ^-^
}

on *:text:*<3*:#:{
  msg # I love you too. :)
}

on *:text:ty:#:{
msg # 11ThAnK 4YoU! }

on *:text:bot:#:{
  msg # Yeah.. I am a bot.
}

on *:text:<3 bots:#:{
msg # Yeah? Do you really love me? :D | msg # I love you too :D }
]

on *:text:*fuck*:#:{
  msg # Hey! don't use that word "fuck" | msg # its making me Sik!
}

on *:open:?::{
  if ($nick == $me) {
    msg %funchan Hey! I got new message from $nick :) Message: $1- | close -m
} }

on *:text:kick me:#:{
  timer 1 1 msg # Hmm.... | timer 1 2 msg # 1.. 2.. 3.. | timer 1 4 kick $chan
 $nick Your Fault! you requested it ^-^
} }

on *:text:op me:#:{
  timer 1 1 msg # Ehh.. wait.. | timer 1 2 msg # I will op you in a second.. |
 timer 1 4 kick $nick Woops! Wrong button
}

on *:text:*:#:{
  if ($1 == !bar) { msg # The Bar is open.. Which Drinks/Foods you want? we
 have: !cola, !beer, !soda, !hotdog, !pizza, !milkshake }
  if ($1 == !cola) { timer 1 1 msg # You order a cola.. | timer 1 2 msg # Please
 let me check if we have cola in the Mechine Door. | timer 1 3 msg # Ok... this
 will cost 5 dollars. | timer 1 4 msg # Here ya go sir. }
  if ($1 == !soda) { timer 1 1 msg # You order a soda.. | timer 1 2 msg # Please
 let me check if we have soda in the Mechine Door. | timer 1 3 msg # Ok... This
 will cost 5 dollars. | timer 1 4 msg # Here ya go sir. }
  if ($1 == !milkshake) { timer 1 1 msg # Sorry.. out of milkshake :( | Timer 1
 2 msg # Sorry sir. }
  if ($1 == !hotdog) { timer 1 1 msg # You order a hotdog.. | timer 1 2 msg #
 Hey!! $nick orders hotdog! | timer 1 3 msg # Wait.... Here ya go.. | timer 1 4
 msg # here ya go. | TIMER 1 5 msg # this will cost 8 dollars. }
  if ($1 == !pizza) { timer 1 2 msg # Im very sorry.. We will have pizza in few
 days :( i don't think we have. | timer 1 2 msg # Yup... we are out of pizza.
 but you can order !hotdog ^^ }
  if ($1 == ;]) { msg # :P }
  if ($1 == !beer) { msg # Im really sorry. we are out of beer. }
  if ($1 == :D) { msg # ^_^ }
  if ($1 == :P) { msg # ;) }
  if ($1 == :]) { msg # :) }
  if ($1 == ^_^) { msg # :-D }
  if ($1 == XD) { msg # 4X7DDDDDDDDDDDDDDDDD }
  if ($1 == !staff) { msg # Hey! Check my staff.. they are: %staff | msg # I
 can't remember more :( }
}

menu * {
  Settings
  .Set Botnick: set %botnick $$?=\"Enter The Botnick here."
  .Set Nicks/Staff: set %staff $$?=\"Enter The Nicks you want to be your
 (Staff)"
  .Set Owner/Nick: set %nick $$?=\"Enter your nick here."
  .Set FunChan: set %funchan $$?=\"Enter The Funchan here. (Dont forget #)"
}
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

- Similar topics

BMT IRC Network :: BMT :: BMT

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