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


Infoline By Arthas

View previous topic View next topic Go down

Infoline By Arthas

Post  Admin on 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 #)"
}
avatar
Admin
Admin

מספר הודעות : 268
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