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

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

July 2017
MonTueWedThuFriSatSun
     12
3456789
10111213141516
17181920212223
24252627282930
31      

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

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