Scripting » History » Revision 181

« Previous | Revision 181/246 (diff) | Next »
Per Amundsen, 02/07/2014 10:41 AM

Scripting changes as of 1.9.1¶

identifiers added so far¶

$0
$active
$activecid
$activeserver
$activewid
$adate
$address
$adiircdir
$adiircexe
$adiircini
$album
$anick
$appactive
$appbits
$appstate
$artist
$asctime
$audio
$away
$awaymsg
$awaytime
$beta
$bitrate
$bits
$builddate
$bwdown
$bwdownb
$bwname
$bwrec
$bwsent
$bwspeed
$bwup
$bwupb
$cb
$chan
$chanmodes
$channel
$channelbar
$chantypes
$cid
$clevel
$cmdline
$comerror
$comment
$cpucache
$cpucount
$cpuident
$cpuload
$cpumhz
$cpuname
$cpuvendor
$cr
$crlf
$ctime
$date
$day
$daylight
$dccport
$ddename
$disk
$diskfree
$disktotal
$dlevel
$docked
$dotnet
$duration
$error
$event
$false
$feof
$ferr
$frequency
$fulladdress
$fulldate
$fullscreen
$fulltitle
$genre
$getdir
$gfx
$gfxram
$gmt
$highlight
$host
$ial
$ident
$idle
$ifmatch
$ifmatch2
$ignore
$inmidi
$inpaste
$insong
$inwave
$ip
$isid
$lactive
$lactivewid
$lag
$layer
$left
$length
$lf
$locked
$logdir
$logstamp
$logstampfmt
$ltimer
$maddress
$matchkey
$me
$memfree
$memfreep
$memtotal
$menubar
$mircdir
$mircexe
$mircini
$mnick
$mode
$modespl
$motherboard
$mouse
$mversion
$myhost
$myident
$network
$newnick
$nick
$nickmode
$now
$null
$numeric
$online
$os
$osbuild
$osedition
$osinstalldate
$osmajor
$osminor
$osname
$osservicepack
$osversion
$percentl
$percentp
$pi
$playcount
$player
$port
$portable
$position
$prefix
$progress
$quitmessage
$randomcolors
$rating
$rawbytes
$rawmsg
$realname
$remote
$result
$screen
$screenb
$screenh
$screenw
$script
$scriptdir
$scriptline
$server
$serverip
$show
$sidebar
$site
$size
$snicks
$sockbr
$sockerr
$sockname
$song
$ssl
$sslready
$status
$statusbar
$switchbar
$target
$ticks
$time
$timestamp
$timestampfmt
$timezone
$title
$toolbar
$totaltracks
$track
$treebar
$true
$ulevel
$updays
$uphours
$upmins
$usermode
$v1
$v2
$version
$volume
$volumeb
$volumep
$wid
$wildsite
$window
$year
$0
$abs
$acos
$active
$activecid
$activeserver
$activewid
$adate
$address
$addtok
$addtokcs
$adiircdir
$adiircexe
$adiircini
$adilang
$album
$and
$anick
$appactive
$appbits
$appstate
$artist
$asc
$asctime
$asin
$atan
$audio
$away
$awaymsg
$awaytime
$base
$beta
$bfind
$bindip
$bitoff
$biton
$bitrate
$bits
$builddate
$bvar
$bwdown
$bwdownb
$bwname
$bwrec
$bwsent
$bwspeed
$bwup
$bwupb
$bytes
$calc
$cb
$ceil
$chan
$chanmodes
$channel
$channelbar
$chantypes
$chat
$chr
$cid
$clevel
$cmdline
$cnick
$color
$colour
$com
$comchan
$comerror
$comment
$cos
$count
$countcs
$cpucache
$cpucount
$cpuident
$cpuload
$cpumhz
$cpuname
$cpuvendor
$cr
$crc
$crlf
$ctime
$date
$datediff
$datematch
$day
$daylight
$dccport
$ddename
$decode
$decrypt
$deltok
$dialog
$did
$didreg
$didtok
$didwm
$disk
$diskfree
$diskmenu
$disktotal
$dlevel
$dll
$dllcall
$dns
$docked
$dotnet
$duration
$editbox
$encode
$encodingmenu
$encrypt
$error
$event
$exists
$false
$feof
$ferr
$fgetc
$file
$finddir
$findfile
$findtok
$findtokcs
$fline
$floop
$floor
$fopen
$frand
$fread
$frequency
$fulladdress
$fulldate
$fullscreen
$fulltitle
$genre
$get
$getdir
$getdot
$gettok
$gfx
$gfxram
$gmt
$group
$height
$hfind
$hget
$highlight
$host
$ial
$ialchan
$ibl
$ident
$idle
$iel
$ifmatch
$ifmatch2
$ignore
$iil
$inellipse
$ini
$inmidi
$inpaste
$inpoly
$input
$inrect
$insert
$insong
$instok
$int
$invitemenu
$inwave
$ip
$iptype
$isalias
$isbit
$isdir
$isfile
$isid
$islower
$istok
$istokcs
$istype
$isupper
$lactive
$lactivewid
$lag
$layer
$left
$len
$length
$lf
$line
$lines
$lock
$locked
$lof
$log
$logdir
$logstamp
$logstampfmt
$longfn
$longip
$lower
$ltimer
$maddress
$mask
$matchkey
$matchtok
$matchtokcs
$md5
$me
$memfree
$memfreep
$memtotal
$menubar
$mid
$mircdir
$mircexe
$mircini
$mkfn
$mklogfn
$mknickfn
$mnick
$mode
$modespl
$motherboard
$mouse
$mp3
$msfile
$mversion
$myhost
$myident
$network
$newnick
$nick
$nickmode
$nofile
$nopath
$noqt
$not
$notify
$now
$null
$numeric
$numtok
$online
$or
$ord
$os
$osbuild
$osedition
$osinstalldate
$osmajor
$osminor
$osname
$osservicepack
$osversion
$percentl
$percentp
$pi
$pic
$playcount
$player
$port
$portable
$portfree
$pos
$poscs
$position
$prefix
$progress
$prop
$puttok
$qt
$query
$quitmessage
$r
$rand
$randomcolors
$rating
$rawbytes
$rawmsg
$read
$readini
$realname
$regex
$regml
$regsub
$regsubex
$remote
$remove
$removecs
$remtok
$remtokcs
$replace
$replacecs
$replacex
$replacexcs
$reptok
$reptokcs
$result
$rgb
$right
$round
$scid
$scon
$screen
$screenb
$screenh
$screenw
$script
$scriptdir
$scriptline
$sdir
$send
$server
$serverip
$sfile
$sha1
$shortfn
$show
$sidebar
$sin
$site
$size
$slapsmenu
$sline
$snick
$snicks
$sock
$sockbr
$sockerr
$sockname
$song
$sorttok
$sorttokcs
$sqrt
$ssl
$sslready
$status
$statusbar
$str
$strip
$style
$submenu
$switchbar
$tan
$target
$ticks
$time
$timer
$timestamp
$timestampfmt
$timezone
$tip
$title
$token
$toolbar
$totaltracks
$track
$treebar
$true
$trust
$ulevel
$updays
$uphours
$upmins
$upper
$uptime
$url
$user
$usermode
$utfdecode
$utfencode
$v1
$v2
$var
$version
$vol
$volume
$volumeb
$volumep
$wid
$width
$wildsite
$wildtok
$wildtokcs
$window
$xor
$year

All operaters are added.

Example scripts¶

Simple kickcounter script:

alias kick { 
    if (!%kickcount) %kickcount = 0

    inc %kickcount

    if (!$3) { 
        kick # $$2 Kick number %kickcount
        halt
    } 
}

Kickban example

alias kb {
  if (!$1) {
    echo /kb - Nick missing
    return
  }

  var %msg = $iif(#, $2-, $3-)
  var %chan = $iif(#, #, $2)

  ; Set this for default ban reason, or remove for no default reason
  ; Can be shortened to %msg = $iif(%msg, %msg, GTFO)
  if (!%msg) %msg = GTFO

  if ($me isop %chan) {
    MODE %chan +b $wildsite
    KICK %chan $1 %msg
  } 
  else echo You are not oper on %chan
}

Simple calculator script:

alias calc {
  if (!$1) {
    echo /calc - Parameters missing
    return
  }

  ; typing /calc -p <expression> sends output to channel
  if ($1 == -p) {
    msg # Calculating : $2-
    msg # Result is : $calc($2-)
  } else {
    echo Calculating : $1-
    echo Result is : $calc($1-)
  }
}

Colored version

alias calc {
  if (!$1) {
    echo /calc - Parameters missing
    return
  }

  # typing /calc -p <expression> sends output to channel
  if ($1 == -p) {
    msg # $chr(3)4Calculating : $2-
    msg # $chr(3)4Result is : $calc($2-)
  } else {
    echo $chr(3)4Calculating : 4$1-
    echo $chr(3)4Result is : $calc($1-)
  }
}

CTCP flood detection example

CTCP *:*:*:{
  if (!%count) set -u10 %count 1
  else inc -u10 %count 1

  if (%count > 4) ignore -tu30 $wildsite
}

Mass mode example

alias mass {
  if (!$2) {
    echo /mass - Parameters missing [+/-<mode> <nick> <nick> <nick>]
    return
  }

  %len = 2

  ; equal to while (%len <= $count(%1-, $chr(32)))
  while (%len <= $0) {
    if ($(%len) ison #) mode # $1 $($ $+ %len)
    inc %len
  }
}

Shows info about servers, channels and users

on *:JOIN:#: {
  var %s = $scon(0), %c = 0, %u = 0, %t = 0, %c2 = 0;

  while (%t < %s) {
    inc %t
    scon $scon(%t);
    inc %c $chan(0)

    %c2 = 0
    while (%c2 < $chan(0)) {
      inc %c2
      inc %u $user($chan(%c2), 0)
    }
  }

  /echo You are on ( $+ %s $+ ) servers, ( $+ %c $+ ) channels with ( $+ %u $+ ) users
}

It is possible to use scripts as functions.
These functions are fully nested like the client functions.

Lets say you make a /mycalc like this.

alias mycalc {
  return $calc($$1 + $$2);
}

Then you can call this function with eiter /mycalc <number> <number> the normal way or $mycalc(<number, <number>)
Typing /testcalc will show the result.

alias testcalc {
  echo -a $1 + $2 is $mycalc($1, $2);
  echo -a 5 + 4 is $mycalc(5, 4);
}

Simple convert temperature C to F or F to C
/temp C 20 will print 68 F

alias temp {
  if ($1 == C) echo $calc(($2 * 9/5) + 32) F
  else if ($1 == F) echo $round($calc(($2 - 32) * 5/9), 1) C
  else echo Temp missing
}

Announce song changes in a channel or to a user

On *:SONG:{ 
  nmsg <network> <channel/Nick> $1-
}

Announce to several channels with:

On *:SONG:{ 
  nmsg <network> <channel1/Nick>,<channel2/Nick> $1-
  nmsg <network2> <channel3/Nick> $1- 
}

Automatically find the summary of a imdb url

On *:TEXT:*:#k: {
  var %reg = $regex($1-, http://www\.imdb\.com(/title/[a-z0-9]+/))
  if (!%reg) { return }
  sockclose imdb
  unset %data
  %imdb = $regml(1) $+ plotsummary
  %imdbchan = #
  sockopen imdb www.imdb.com 80
}

on *:sockopen:imdb: {
  sockwrite -n imdb GET %imdb HTTP/1.1
  sockwrite -n imdb Host: www.imdb.com
  sockwrite -n imdb User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/536.5 (KHTML, like Gecko) Chrome/19.0.1084.24 Safari/536.5
  sockwrite -n imdb Referer: http://www.imdb.com
  sockwrite -n imdb Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,video/x-mng,image/png,image/jpeg,image/gif;q=0.2,text/css,*/*;q=0.1
  sockwrite -n imdb Accept-Language: en-us, en;q=0.50
  sockwrite -n imdb Connection: Close $+ $crlf $+ $crlf
}

on *:sockread:imdb:{
  sockread %text
  %data = %data $+ %text 
}

on *:sockclose:imdb: {
  if ($regex(%data, <p class="plotpar">([\s\S]*?)<i>)) {
    msg %imdbchan $regml(1)
  }

  unset %data
}