rendered paste bodyon $*:TEXT:/^[@!.]calc.*$/Si:#:{
if (!$2) { notice $nick Please specify an equation and try again!
}
else {
/var %target $iif($left($1,1) = @,msg $chan,notice $nick)
%target The answer to $+(",$2-,") is: $comma($calc($replace($2-,k,*1000,m,*1000000,b,*1000000000,t,*1000000000000)))
}
}
alias -l comma {
var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
return %a
}
---------------
on *:TEXT:!cmb *:#: {
inc %iddddd 1 | set %combat.user [ $+ [ %iddddd ] ] $2 | set %combat.display. [ $+ [ %iddddd ] ] notice $nick | sockopen $+(combat.,%iddddd) slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:combat.*:{
sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ %combat.user [ $+ [ %iddddd ] ] HTTP/1.1
sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:combat.*:{
var %combat.read | sockread %combat.read
if (*0<br>* iswm %combat.read) { %combat.display. [ $+ [ %iddddd ] ] $replace(%combat.user [ $+ [ %iddddd ] ],_,$chr(32))) $+ , was not found in the hiscores for any combat skills. | /unset %combat.* | halt }
if (<b> isin %combat.read) { /set %combat.stats [ $+ [ %iddddd ] ] ASDHRPM: $+(,$gettok($htmlfree(%combat.read),4,32),) $+(,$gettok($htmlfree(%combat.read),8,32),) $+(,$gettok($htmlfree(%combat.read),6,32),) $+(,$gettok($htmlfree(%combat.read),10,32),) $+(,$gettok($htmlfree(%combat.read),12,32),) $+(,$gettok($htmlfree(%combat.read),14,32),) $+(,$gettok($htmlfree(%combat.read),16,32),) }
if (<i> isin %combat.read) { /set %combat.2 [ $+ [ %iddddd ] ] $+ *** [ $replace(%combat.user [ $+ [ %iddddd ] ] ]:,_,$chr(32)) $+(,Cmb-lvl) $+(,$htmlfree(%combat.read),:) }
if (<br> isin %combat.read) { /set %combat.3 [ $+ [ %iddddd ] ] $+(,$htmlfree(%combat.read)) $+
%combat.topline [ $+ [ %iddddd ] ] = %combat.2 [ $+ [ %iddddd ] ] %combat.3 [ $+ [ %iddddd ] ]
%combat.display. [ $+ [ %iddddd ] ] %combat.topline [ $+ [ %iddddd ] ]
%combat.display. [ $+ [ %iddddd ] ] %combat.stats [ $+ [ %iddddd ] ]
/unset %combat.*
}
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x }
------------------------
ON *:TEXT:!dm*:#:{
if ($readini(pdm.ini,$chan,Player1) == $nick || $readini(pdm.ini,$chan,Player2) == $nick) {
notice $nick 12Your already in the game.
halt
}
if ($readini(dm.ini,$chan,Status) == ON2) {
notice $nick 12There is already a DM.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
writeini pdm.ini $chan Player2 $nick
writeini dm.ini $chan Status ON2
writeini hp.ini $chan Player2 99
writeini turn.ini $chan Turn 1
writeini shark.ini $chan Player2 20
writeini spec.ini $chan Player2 100
writeini spec.ini $chan Player1 100
msg $chan 12The Fight is.4 $readini(pdm.ini,$chan,Player1) 12Vs.4 $readini(pdm.ini,$chan,Player2)
msg $chan 12`dmcommands For DM4 Commands12.
notice $readini(pdm.ini,$chan,Player2) 12You have4 99 12Hit Points and4 20 12Shark that heal4 20 12Health each.
halt
}
if ($readini(dm.ini,$chan,Status) == $null) {
writeini pdm.ini $chan Player1 $nick
writeini dm.ini $chan Status ON
writeini hp.ini $chan Player1 99
writeini shark.ini $chan Player1 20
msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) has initiated the DM Command. Type 4!dm12 to fight $readini(pdm.ini,$chan,Player1) $+ .
notice $readini(pdm.ini,$chan,Player1) 12You have4 99 12Hit Points and4 20 12Shark that heal4 20 12Health each.
halt
}
}
ON *:TEXT:!whip*:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick 12There is no DM on. Type4 !DM 12To start one.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick 12You need someone to attack....
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
writeini hit.ini $chan Hit $rand(0,35)
writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
if ($readini(hp.ini,$chan,Player2) <= 0 ) {
msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 0 12Hitpoints.
timer 1 3 msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) has won!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
halt
}
else {
msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 $readini(hp.ini,$chan,Player2) 12Hitpoints.
writeini turn.ini $chan Turn 2
halt
}
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
writeini hit.ini $chan Hit $rand(0,35)
writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
if ($readini(hp.ini,$chan,Player1) <= 0 ) {
msg $chan 12 $+ $readini(pdm.ini,$chan,Player2) 12swings at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 0 12Hitpoints.
timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
halt
}
else {
msg $chan 12 $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 $readini(hp.ini,$chan,Player1) 12Hitpoints.
writeini turn.ini $chan Turn 1
halt
}
}
else {
notice $nick 12Its not your turn or your not in this round.
}
}
ON *:TEXT:!dh*:#:{
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(hp.ini,$chan,Player2) <= 30 ) {
notice $nick 12You cant use the4 !dh12 attack when your Opponent has less than4 30 12Hit Points.
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(hp.ini,$chan,Player1) <= 30 ) {
notice $nick 12You cant use the4 !dh12 attack when your Opponent has less than4 30 12Hit Points.
halt
}
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick 12There is no DM on. Type4 !DM 12To start one.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick 12You need someone to attack....
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
writeini hit.ini $chan Hit $rand(0,75)
writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
if ($readini(hp.ini,$chan,Player2) <= 0 ) {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12hacks at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 0 12Hitpoints.
timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1)12 has won!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini dds.ini $chan Total
remini pdm.ini $chan Player2
halt
}
else {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12hacks at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 $readini(hp.ini,$chan,Player2) 12Hitpoints.
writeini turn.ini $chan Turn 2
halt
}
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
writeini hit.ini $chan Hit $rand(0,75)
writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
if ($readini(hp.ini,$chan,Player1) <= 0 ) {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12hacks at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 0 12Hitpoints.
timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
halt
}
else {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12hacks at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 $readini(hp.ini,$chan,Player1) 12Hitpoints.
writeini turn.ini $chan Turn 1
halt
}
}
else {
notice $nick 12Its not your turn or your not in this round.
}
}
ON *:TEXT:!eat*:#:{
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(shark.ini,$chan,Player2) <= 0 ) {
Notice $nick 12You dont have any shark left....
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(shark.ini,$chan,Player1) <= 0 ) {
Notice $nick 12You dont have any shark left....
halt
}
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick 12There is no 4DM12 on. Type4 !DM 12To start one.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick 12You can't eat yet.....
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) + 20 )
writeini shark.ini $chan Player1 $calc( $readini(shark.ini,$chan,Player1) - 1)
notice $readini(pdm.ini,$chan,Player1) 12You now have4 $readini(shark.ini,$chan,Player1) 12Shark left.
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12eats a shark giving him4 $readini(hp.ini,$chan,Player1) 12Hit Points.
writeini turn.ini $chan Turn 2
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) + 20 )
writeini shark.ini $chan Player2 $calc( $readini(shark.ini,$chan,Player2) - 1)
notice $readini(pdm.ini,$chan,Player2) 12You now have4 $readini(shark.ini,$chan,Player2) 12Shark left.
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12eats a shark giving him4 $readini(hp.ini,$chan,Player2) 12Hit Points.
writeini turn.ini $chan Turn 1
halt
}
else {
notice $nick 12Its not your turn or your not in this round.
}
}
ON *:TEXT:!dds*:#:{
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
notice $nick 12You dont have any special Left.
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
notice $nick 12You dont have any special Left.
halt
}
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick 12There is no DM on. Type4 !DM 12To start one.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick 12You need someone to attack....
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
writeini hit.ini $chan Hit $rand(0,25)
writeini hit.ini $chan Hit2 $rand(0,25)
writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
if ($readini(hp.ini,$chan,Player2) <= 0 ) {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12Specials at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2) $+ . 12Leaving him with4 0 12Hitpoints.
timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has won!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
halt
}
else {
notice $nick 12You have4 $readini(spec.ini,$chan,Player1) $+ 12% of your Special Bar left.
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12specials at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2)$+ . 12Leaving him with4 $readini(hp.ini,$chan,Player2) 12Hitpoints.
writeini turn.ini $chan Turn 2
halt
}
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
writeini hit.ini $chan Hit $rand(0,25)
writeini hit.ini $chan Hit2 $rand(0,25)
writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
if ($readini(hp.ini,$chan,Player1) <= 0 ) {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12Specials at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2) $+ . 12Leaving him with4 0 12Hitpoints.
timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
halt
}
else {
notice $nick 12You have4 $readini(spec.ini,$chan,Player2) $+ 12% of your Special Bar left.
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12specials at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2)$+ . 12Leaving him with4 $readini(hp.ini,$chan,Player1) 12Hitpoints.
writeini turn.ini $chan Turn 1
halt
}
}
else {
notice $nick 12Its not your turn or your not in this round.
}
}
ON *:TEXT:!stopDM*:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick 13There is no DM for this channel
halt
}
if ($nick isop $chan || $nick ishop $chan) {
msg $chan 12DM Halted by $nick $+ .
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
}
else {
notice $nick 12You need halfop+
}
}
ON *:TEXT:`dmcommands*:#:{
msg $nick 4---Tony Script---
msg $nick 12!StopDM
msg $nick 12!DM
msg $nick 12!Whip
msg $nick 12!DDS
msg $nick 12!DH
msg $nick 12!Eat
msg $nick 12!tele
msg $nick 4---Tony Script---
}
ON *:TEXT:!tele*:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
notice $nick 12There is no DM on. Type4 !DM 12To start one.
halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
notice $nick 12You cant Tele yet rofl.
halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has just teled.
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12wins!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has just teled.
msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12wins!
remini dm.ini $chan Status
remini shark.ini $chan Player1
remini shark.ini $chan Player2
remini Hit.ini $chan Hit
remini Hit.ini $chan Hit2
remini hp.ini $chan Player1
remini hp.ini $chan Player2
remini pdm.ini $chan Player1
remini pdm.ini $chan Player2
remini dds.ini $chan Total
}
}
----------------------
on *:text:!event*:#chan:{
if (%date) {
msg # $duration($calc($ctime(%date) - $ctime))
}
}
on *:text:!countdown & & &:#yourchan:{
; !countdown dd mm yyyy
; eg. !countdown 16 03 2007
var %date = $+($2/,$3/,$4)
if ($ctime < $ctime(%date)) {
msg # now counting down till %date
set %date %date
}
else {
msg # invalid date format, or date has passed, or is out of range
}
}
on *:text:*:#yourchan:{
if (%date == $date) {
msg # countdown stopped! it's now %date !
unset %date
}
}
------------------------
on $*:text:/^[!@.]google$/Si:#:{
VAR %l = 1
WHILE ($Sock($+(google.,%l))) INC %s
SET $+(%,google.,%l,.output) $iif($left($1,1) == @,msg $chan,.notice $nick)
sockopen $+(google.,%l) www.google.com 80
SockMark $+(google.,%l) $replace($2-,$chr(32),+)
}
on *:sockopen:google.*:{
if ($sockerr > 0) { $($+(%,$sockname,.output),2) Socket Error | sockclose $sockname | halt }
sockwrite -nt $sockname GET /search?hl=en&q= $+ $sock($sockname).mark $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
sockwrite -nt $sockname Host: www.google.com $+ $crlf $+ $crlf
}
on *:sockread:google.*:{
var %sockread
sockread %sockread
IF (Location: isin %sockread) {
var %results = $remove(%sockread,Location:)
$($+(%,$sockname,.output),2) Im Feeling Lucky results: %results
SockClose $SockName
UNSET $+(%,$sockname,.*)
}
}
-------------------
on $*:TEXT:/^[!@.]item/Si:#:{
if (!$2) {
notice $nick 12[4 Item 12]: You must supply a item keywork to lookup
}
else {
inc %n
set $+(%,tip.item.,%n) $replace($2-,$chr(32),+)
set $+(%,tip.style.,%n) $iif($left($1,1) == @,msg $chan,notice $nick) 12[4 Item 12]:
set $+(%,tip.nick.,%n) $nick
sockopen $+(tip.,%n) tip.it 80
}
}
on *:SOCKOPEN:tip.*:{
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /runescape/index.php?rs2item=&orderby=0&keywords= $+ $($+(%,tip.item.,%id),2) $+ &Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1 HTTP/1.1
sockwrite -n $sockname Host: tip.it
sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:tip.*:{
var %id = $gettok($sockname,2,46)
var %nick = $($+(%,tip.nick.,%id),2)
var %item = $replace($($+(%,tip.item.,%id),2),+,$chr(32))
var %style = $($+(%,tip.style.,%id),2)
if ($sockerr) {
%style An error occured while connecting
unset $+(%,tip.*)
sockclose $+(tip.,%id)
}
else {
var %read
sockread %read
if (*No items matched your search* iswm %read) {
%style No results were found for " $+ %item $+ "
unset $+(%,tip.*)
sockclose $+(tip.,%id)
}
if ($regex(%read,/<td><a href="(.*)">(.*)</a></td>/Si)) {
set $+(%,tip.name.,%id) $regml(2)
set $+(%,tip.link.,%id) $regml(1)
sockopen $+(item.,%id) tip.it 80
sockclose $+(tip.,%id)
}
}
}
on *:SOCKOPEN:item.*:{
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /runescape/ $+ $($+(%,tip.link.,%id),2)
sockwrite -n $sockname Host: tip.it
sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:item.*:{
var %id = $gettok($sockname,2,46)
var %nick = $($+(%,tip.nick.,%id),2)
var %item = $replace($($+(%,tip.item.,%id),2),+,$chr(32))
var %style = $($+(%,tip.style.,%id),2)
if ($sockerr) {
%style An error occured while connecting
unset $+(%,tip.*)
sockclose $+(item.,%id)
}
else {
var %read
sockread %read
if (*<b>Members?</b>*</td>* iswm %read) {
tokenize 32 $nohtml(%read)
set $+(%,tip.members.,%id) $remove($1-,Members?,$chr(6),$chr(32))
}
if (*<b>Quest?</b>*</td>* iswm %read) {
tokenize 32 $nohtml(%read)
set $+(%,tip.quest.,%id) $remove($1-,Quest?,$chr(6),$chr(32))
}
if (*<b>Tradeable?</b>*</td>* iswm %read) {
tokenize 32 $nohtml(%read)
set $+(%,tip.trade.,%id) $remove($1-,Tradeable?,$chr(6),$chr(32))
}
if ($($+(%,tip.found.note.,%id),2)) {
inc $+(%,tip.time7.,%id)
if ($($+(%,tip.time7.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.note.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.note.,%id)
}
}
if ($($+(%,tip.found.use.,%id),2)) {
inc $+(%,tip.time6.,%id)
if ($($+(%,tip.time6.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.use.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.use.,%id)
}
}
if ($($+(%,tip.found.loc.,%id),2)) {
inc $+(%,tip.time5.,%id)
if ($($+(%,tip.time5.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.loc.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.loc.,%id)
}
}
if ($($+(%,tip.found.lalch.,%id),2)) {
inc $+(%,tip.time4.,%id)
if ($($+(%,tip.time4.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.lalch.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.lalch.,%id)
}
}
if ($($+(%,tip.found.gen.,%id),2)) {
inc $+(%,tip.time3.,%id)
if ($($+(%,tip.time3.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.gen.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.gen.,%id)
}
}
if ($($+(%,tip.found.halch.,%id),2)) {
inc $+(%,tip.time1.,%id)
if ($($+(%,tip.time1.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.halch.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.halch.,%id)
}
}
if ($($+(%,tip.found.cat.,%id),2)) {
inc $+(%,tip.time.,%id)
if ($($+(%,tip.time.,%id),2) == 3) {
tokenize 32 $nohtml(%read)
set $+(%,tip.cat.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.cat.,%id)
}
}
if ($($+(%,tip.found.ex.,%id),2) && !$($+(%,tip.examine.,%id),2)) {
tokenize 32 $nohtml(%read)
set $+(%,tip.examine.,%id) $remove($1-,$chr(6))
unset $+(%,tip.found.ex.,%id)
}
if ($($+(%,tip.found.spec.,%id),2)) {
inc $+(%,tip.times2.,%id)
if ($($+(%,tip.times2.,%id),2) == 2) {
tokenize 32 $nohtml(%read)
set $+(%,tip.spec.,%id) $remove($1-,$chr(6))
}
}
if (*<td colspan="3"> <b>Examine:</b>* iswm %read) {
set $+(%,tip.found.ex.,%id) true
}
if (*Category* iswm %read) {
set $+(%,tip.found.cat.,%id) true
}
if (*<td class="header" width="25%">High Alchemy</td>* iswm %read) {
set $+(%,tip.found.halch.,%id) true
}
if (*<td class="header" width="25%">Specialty shop sells for</td>* iswm %read) {
set $+(%,tip.found.spec.,%id) true
}
if (*<td class="header" width="25%"> General sells</td>* iswm %read) {
set $+(%,tip.found.gen.,%id) true
}
if (*<td class="header" width="25%"> General buys/low alch</td>* iswm %read) {
set $+(%,tip.found.lalch.,%id) true
}
if (*<td class="header" width="139"> Location</td>* iswm %read) {
set $+(%,tip.found.loc.,%id) true
}
if (*<td class="header"> Uses</td>* iswm %read) {
set $+(%,tip.found.use.,%id) true
}
if (*<td class="header"> Notes</td>* iswm %read) {
set $+(%,tip.found.note.,%id) true
}
if (*<!-- Page Content End -->* iswm %read) {
%style Item: $($+(%,tip.name.,%id),2) URL: http://tip.it/runescape/ $+ $($+(%,tip.link.,%id),2)
%style Members? $rem.bt($($+(%,tip.members.,%id),2)) Tradable? $rem.bt($($+(%,tip.trade.,%id),2)) Quest? $rem.bt($($+(%,tip.quest.,%id),2))
%style High Alch: $rem.ft($($+(%,tip.halch.,%id),2)) Low Alch: $rem.ft($($+(%,tip.lalch.,%id),2)) Location: $rem.bt($($+(%,tip.loc.,%id),2)) Uses: $rem.bt($($+(%,tip.use.,%id),2)) General Sells: $rem.ft($($+(%,tip.gen.,%id),2))
%style Examine: $rem.b4($($+(%,tip.examine.,%id),2)) Category: $rem.bt($($+(%,tip.cat.,%id),2)) Specialty Shop Sells: $rem.ft($($+(%,tip.spec.,%id),2)) Notes: $rem.bt($($+(%,tip.note.,%id),2))
unset $+(%,tip.*)
sockclose $+(item.,%id)
}
}
}
alias -l rem.b4 {
var %x = $remove($1-,$right($1-,3),$left($1-,4))
var %x = $remove(%x,$left(%x,1))
return %x
}
alias -l rem.bt {
var %x = $remove($1-,$right($1-,3),$left($1-,3))
return %x
}
alias -l rem.ft {
var %x = $remove($1-,$left($1-,3))
return %x
}
alias nohtml {
var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
%x = $replace(%x, ,$null)
return %x
}
-------------------------
ON *:TEXT:!part*:#:{
if ($2 == $me && $nick isop $chan || $nick ishop $chan) {
part $chan 12Requested by:4 $nick
halt
}
if ($2 == $null) {
notice $nick 12!Part4 $me
halt
}
else {
notice $nick 12Halfop4 +
}
}
-------------------------
on *:TEXT:!setpits*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
set %pits [ $+ [ $chan ] ] $2
set %leader [ $+ [ $chan ] ] $3
msg $chan 12The Fight pits World has been Updated! 4Type 12!pits4 or 12!fightpits4 to see the new world! }
}
on $*:TEXT:/[!]pits|fightpits?/Si:#:{
if ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) {
set %homer notice $nick
inc %pits | %homer 12The Current 4Fight Pits World12 is: %pits [ $+ [ $chan ] ] $+ .4Current Team leader is12: %leader [ $+ [ $chan ] ] $+ .The Fight pits world has been viewed %pits Times. }
}
--------------------
alias c1 { return $+( $1-,) }
alias c2 { return $+( $1-,) }
on *:text:*:#: {
tokenize 32 $strip($1-)
if ($left($1,1) !isin @!.) halt
if ($right($1,-1) == stats) var %style = astats
elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
elseif ($right($1,-1) == defname) && ($2) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
.notice $nick 12You're default RSN for the host 4 $mask($fulladdress,3) 12has been set to $2-
halt
}
else halt
inc %ID
if ($len($2-) > 12) {
4 $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long)
cleanup %ID
halt
}
elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-)
elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch
elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch
else set $+(%,stats.rsn.,%ID) $nick
set $+(%,stats.style.,%ID) %style
set $+(%,stats.skill.,%ID) %skill
set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen $+(stats.,%ID) hiscore.runescape.com 80
}
on *:sockopen:stats.*: {
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1
sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:stats.*: {
sockread &Incoming
bwrite $sockname -1 -1 &Incoming
if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
$($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(Does not appear in the hiscores)
cleanup $gettok($sockname,2,46)
}
}
alias -l makehash {
var %file = $1
bread %file 1 $file(%file).size &stats
var %currentstat, %x = 1
while (%x) {
var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
var %currentstat = $striptags($bvar(&stats,%x,200).text)
tokenize 10 %currentstat
hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
}
process %file
}
alias process {
var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
%display = $($+(%,stats.display.,%ID),2), $&
%rsn = $($+(%,stats.rsn.,%ID),2), $&
%skill = $($+(%,stats.skill.,%ID),2), $&
%style = $($+(%,stats.style.,%ID),2)
;shoot;
if (%style == astats) {
while (%x <= 23) {
tokenize 32 $hget(%table,$setskill(%x))
if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
inc %x
}
%display $c1(Stats for) $c2(%rsn) $+ $c1(:)
%display %statline
}
elseif (%style == istat) {
if (!$hget(%table,%skill)) 12 %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill)
else {
tokenize 32 $hget(%table,%skill)
%display $c2(%skill) $c1(stats for) $c2(%rsn) $+ $c1(:)
%display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $&
$iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
}
}
elseif (%style == combat) {
var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $&
%s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $&
%d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $&
%h = $iif($gettok($hget(%table,hitpoints),2,32),$v1,-), $&
%r = $iif($gettok($hget(%table,ranged),2,32),$v1,-), $&
%m = $iif($gettok($hget(%table,magic),2,32),$v1,-), $&
%p = $iif($gettok($hget(%table,prayer),2,32),$v1,-)
var %meleecombat = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $&
%RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $&
%MagicCombat = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult)
if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) {
%display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills)
cleanup %id
halt
}
elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
else var %cmbstyle = melee, %combat = %MeleeCombat
var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
%a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
%d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
%r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))
if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl)
elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl)
else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl)
var %combat = $round(%combat,2), %next = $ceil(%combat)
%display $c2(%rsn) $c1(is) $c2(%combat) $c1(%cmbstyle style combat)
%display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $&
$c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p)
%display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $&
$c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl)
}
cleanup %id
}
alias -l cleanup {
unset $+(%,stats.*.,$1)
sockclose $+(Stats.,$1)
.remove $+(Stats.,$1)
}
alias -l xp {
var %x = 1, %level = $calc($1 - 1), %xp = 0
while (%x <= %level) {
var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
inc %xp %TempXp
inc %x
}
return $int(%xp)
}
alias -l xp2Next {
var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
return $calc(%nextxp - %xp)
}
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias -l setskill {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
elseif ($1 == 23) || ($regex($1,/^(hunt|hun)(er|ing)?$/si)) return Hunter
}
----------------------
on *:text:!time*:#:{
msg $chan The time is $time(hh:nn TT) and the date is $date(ddd) $date(mmmm) $date(dd)
}
}
----------------------
ON *:TEXT:!avoiceon*:#:{ if ($nick ishop $chan || $nick isop $chan) {
set %av $+ $chan ON
msg $chan Auto Voice is now on!
}
}
ON *:JOIN:#:{ if (%av [ $+ [ $chan ] ] == ON) { /mode $chan +v $nick }
}
ON *:TEXT:!avoiceoff*:#:{ if ($nick ishop $chan || $nick isop $chan) {
unset %av $+ $chan
msg $chan Auto Voice is now off =(
}
}
on *:JOIN:#:{
if (%scriptstop == on) && (%avswitch == on) {
if ($readini(av.ini,$chan,$nick)) /mode $chan +v $nick }
}
---------------
on *:TEXT:!Cigarette:#:{
msg $chan Hands $nick a Nice 1,8() ¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 4}))15~`~`~`~`~
msg $chan $nick Smokes the nice 1,8() ¯¯¯¯)¯ 4}))15~`~`~`~`~
}
---------------
on $*:TEXT:/^[@!]set ?co?m?b((a)?(t))? ?(.+)$/Si:#: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan cmb $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The required combat level for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]set ?(at[kt]|str) ?(.+)$/Si:#: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan attstr $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The required combined attack and strength level for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]ban ?(time)? ?(.+)$/Si:#: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan ban $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The amount of minutes a user will be banned when not meeting the requirements for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]color1 ?(.+)$/Si:#: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan color1 $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The first color for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]color2 ?(.+)$/Si:#: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan color2 $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The second color for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]enable$/:#: {
if ($nick isop $chan) {
if ($istok($readini(pccheck.ini,achan,achan),$chan,44)) { msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has already been enabled $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan }
else {
writeini -n pccheck.ini achan achan $addtok($readini(pccheck.ini,achan,achan),$chan,44)
set %pccheck.chans $readini(pccheck.ini,achan,achan)
if (!$readini(pccheck.ini,$chan,cmb)) { writeini -n pccheck.ini $chan cmb 100 }
if (!$readini(pccheck.ini,$chan,attstr)) { writeini -n pccheck.ini $chan attstr 180 }
if (!$readini(pccheck.ini,$chan,color1)) { writeini -n pccheck.ini $chan color1 14 }
if (!$readini(pccheck.ini,$chan,color2)) { writeini -n pccheck.ini $chan color2 04 }
if (!$readini(pccheck.ini,$chan,ban)) { writeini -n pccheck.ini $chan ban 600 }
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has been enabled for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+ $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ $iif($me isop $chan,$chr(46),$iif($me ishop $chan,$chr(46),$chr(44) but I do not have the power to kick users if they do not meet the requirements.))
}
}
}
on $*:TEXT:/^[@!]disable$/:#: {
if ($nick isop $chan) {
if (!$istok($readini(pccheck.ini,achan,achan),$chan,44)) { msg $chan $+($chr(3),$iif($readini(pccheck.ini,$chan,color1),$v1,14)) $+ The combat checking function has already been disabled $+($chr(3),$iif($readini(pccheck.ini,$chan,color2),$v1,14)) $+ $chan }
else {
writeini -n pccheck.ini achan achan $iif($deltok($readini(pccheck.ini,achan,achan),$findtok($readini(pccheck.ini,achan,achan),$chan,1,44),44),$v1,#&null)
set %pccheck.chans $readini(pccheck.ini,achan,achan)
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has been disabled for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan
}
}
}
on *:JOIN:%pccheck.chans: {
pccheck $chan $nick
}
alias pccheck {
if ($2) {
var %i 1
while ($sock(pccheck. $+ %i)) {
inc %i
}
set %pccheck. $+ %i $+ .chan $1
set %pccheck. $+ %i $+ .user $2
sockopen pccheck. $+ %i www.o-ss.net 80
}
}
on *:SOCKOPEN:pccheck.*:{
/sockwrite -t $sockname GET /parsers/stats.php?user= $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) HTTP/1.1 $+ $crlf
/sockwrite -t $sockname Host: www.o-ss.net $+ $crlf
/sockwrite -t $sockname $crlf
}
on *:SOCKREAD:pccheck.*:{
if ($sockerr) {
$($+(%,pccheck.,$gettok($sockname,2,46),.self),2) Socket error while looking up $(% $+ $sockname $+ .user,2) $+ : $sockerr
unset %pccheck. $+
}
else {
sockread %read
while ($sockbr > 0) {
sockread %read
tokenize 32 %read
if ($1 == <b>Warning</b>:) { msg $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color1)) $+ Unable to connect to highscores for user $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color2)) $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) | sockclose $sockname }
else {
if ($1 == Attack) { var %att = $replace($3,Ranked,1) }
if ($1 == Defence) { var %def = $replace($3,Ranked,1) }
if ($1 == Strength) { var %str = $replace($3,Ranked,1) }
if ($1 == Hitpoints) { var %hp = $replace($3,Ranked,10) }
if ($1 == Ranged) { var %range = $replace($3,Ranked,1) }
if ($1 == Prayer) { var %pray = $replace($3,Ranked,1) }
if ($1 == Magic) { var %mage = $replace($3,Ranked,1) }
if ($1 == END) {
var %cmb = $meleecmb(%att,%str,%def,%hp,%range,%mage,%pray) Melee
if ($rangecmb(%att,%str,%def,%hp,%range,%mage,%pray) > $gettok(%cmb,1,32)) { var %cmb = $v1 Ranged }
if ($magecmb(%att,%str,%def,%hp,%range,%mage,%pray) > $gettok(%cmb,1,32)) { var %cmb = $v1 Magic }
msg $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) 14[12RSN: 04 $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) 14× 12Cmb: 04 $+ $gettok(%cmb,1,32) 14× 12Class: 04 $+ $gettok(%cmb,2,32) $+ 14] × [12Att: 04 $+ %att 14× 12Str: 04 $+ %str 14× 12Def: 04 $+ %def 14× 12HP: 04 $+ %hp 14× 12Mage: 04 $+ %mage 14× 12Range: 04 $+ %range 14× 12Prayer: 04 $+ %pray $+ 14]
if ($gettok(%cmb,1,32) < $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),cmb)) {
if ($calc(%att + %str) >= $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),attstr)) {
mode $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) +v $($+(%,pccheck.,$gettok($sockname,2,46),.user),2)
}
else {
ban -u $+ $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),ban) $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) 2
kick $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color1)) $+ You do not meet the minimum requirements (Combat Level $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),cmb) or att+str lvl $v2 $+ ) for this channel.
}
}
else { mode $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) +v $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) }
}
}
}
}
}
alias meleecmb {
if ($0 == 7) { return $calc((($1 + $2) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
elseif ($0 == 5) { return $calc((($1 + $2) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($5 * 0.125)) }
}
alias rangecmb {
if ($0 == 7) { return $calc((($5 * 1.5) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
elseif ($0 == 4) { return $calc((($1 * 1.5) * 0.325) + ($2 * 0.25) + ($3 * 0.25) + ($4 * 0.125)) }
}
alias magecmb {
if ($0 == 7) { return $calc((($6 * 1.5) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
elseif ($0 == 4) { return $calc((($1 * 1.5) * 0.325) + ($2 * 0.25) + ($3 * 0.25) + ($4 * 0.125)) }
}
----------------------
ON *:TEXT:?DefName*:#:{
if ($ isin $2-) { halt }
if ($2) {
writeini Name.ini $address($nick,2) Name $replace($2-,$chr(32),_)
notice $nick 12Name for4 $address($nick,2) 12saved.)
}
}
on $*:text:/^[!@.](Compare|Com)/Si:#: {
set %lalalalaalalal. $iif($left($1,1) == @, msg $chan, notice $nick)
if (!$3) {
notice $nick 12Please use the Format below.
notice $nick 12 $+ $1 <Skill> <Nick1> <Nick2>
halt
}
if ($3 != $null && $4 == $null) {
if ($readini(Name.ini,$address($nick,2),name) != $null) {
set %user1 $3
set %user2 $readini(Name.ini,$address($nick,2),name)
set %skill $Skillo($remove($2,@,!,.))
sockopen ComOSS. parsers.o-ss.net 80
halt
}
else {
set %user1 $3
set %user2 $nick
set %skill $Skillo($remove($2,@,!,.))
sockopen ComOSS. parsers.o-ss.net 80
halt
}
}
if ($ != $null) {
set %user1 $3
set %user2 $4
set %skill $Skillo($remove($2,@,!,.))
sockopen ComOSS. parsers.o-ss.net 80
halt
}
else {
notice $nick 12Please use the Format below.
notice $nick 12 $+ $1 <Skill> <Nick1> <Nick2>
halt
}
}
on *:SOCKOPEN:ComOSS.*: {
sockwrite -nt $sockname GET /compare.php?user1= $+ %user1 $+ &user2= $+ %user2 $+ &skill= $+ %skill HTTP/1.1
sockwrite -nt $sockname Host: parsers.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:ComOSS.*: {
if (%fdhfdasdfafsfasd == ON) {
unset %fdhfdasdfafsfasd
sockclose $sockname
halt
}
if (%skill == $null) {
set %skill Overall
}
if ($sockerr) { halt }
else {
var %sgagafdgf
sockread %sgagafdgf
tokenize 32 %sgagafdgf
if (is not in the hi-scores for isin %sgagafdgf) {
%lalalalaalalal. 12 $+ $1 is not in HiScores for4 %skill )
sockclose $sockname
halt
}
if (are not in the hi-scores for isin %sgagafdgf) {
%lalalalaalalal. 12 $+ $1 and $3 are not in HiScores for4 %skill)
sockclose $sockname
halt
}
if (END isin $1-) {
%lalalalaalalal. 2[12Compare2]4:12 %user1 $+ :4 $1 12 $+ %User2 $+ :4 $2)
if ($2 == $1) {
%lalalalaalalal. 12 $+ %user1 and %user2 have the same4 %skill 12level.
sockclose $sockname
halt
}
if ($1 < $2) {
%lalalalaalalal. 12 $+ %user2 has4 $calc($remove($2,$chr(44),) - $remove($1,$chr(44),)) 12more %skill levels than %user1 $+ .
sockclose $sockname
halt
}
if ($1 > $2) {
%lalalalaalalal. 12 $+ %user1 has4 $calc($remove($1,$chr(44),) - $remove($2,$chr(44),)) 12more %skill levels than %user2 $+ .
sockclose $sockname
halt
}
}
}
}
alias -l Skillo {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
elseif ($1 == 22) sockclose ComOss. | %lalalalaalalal. 12 $+ $1 is not a skill) | set %fdhfdasdfafsfasd OFF
}
----------------------------
on $*:TEXT:/^[!@](grats|level|lvl)/Si:#:{
if (!$3) notice $nick Syntax: $1 level skill
elseif ($2 > 99 || $2 < 1) && ($skill($3) != Overall) notice $nick Error: The level must be between 1-99. Syntax: $1 level skill
elseif (!$skill($3)) notice $nick Error: $+(",$3,") is not a valid skill. Syntax: $1 level skill
elseif ($skill($3) == Overall && $2 !isnum 32-2277) notice $nick Overall levels must be 32-2277
elseif ($skill($3) == Combat && $2 !isnum 3-126) notice $nick Combat levels must be 3-126
set %clvl $rand(1,3)
if (%clvl == 1) msg # 0,12æ¸2,12`æ12,2æ¸1,2`æ2,1æ¸0,1-=-Congrats on level $- $2 $skill($3) $+ , $nick !-=- 2,1`æ1,2æ¸12,2`æ2,12æ¸0,12`æ12
if (%clvl == 2) msg # 4,1X1,4x4,1X1,4x4,1- Congrats on level $- $2 $skill($3) $+ , $nick !-1,4x4,1X1,4x4,1X
if (%clvl == 3) msg # 8|0,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1|4,1 4,1-Congrats on level $- $2 $skill($3) $+ , $nick !- 5,1|1,5|4,5|5,4|7,4|4,7|8,7|0,8|8,0|
}
alias -l skill {
if ($regex($1,/^c(o)?mb(at)?$/Si)) return Combat
elseif ($regex($1,/^((skill)?total|overall)$/Si)) return Overall
elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($regex($1,/^def(en[cs]e)?$/Si)) return Defence
elseif ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($regex($1,/^(hp|hit(s|points)?)$/Si)) return Hitpoints
elseif ($regex($1,/^rang(e|er|ed|ing)$/Si)) return Ranged
elseif ($regex($1,/^Pray(er)?$/Si)) return Prayer
elseif ($regex($1,/^mag(e|ic)$/Si)) return Magic
elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($regex($1,/^(wc(ing)?|woodcut(ting)?)$/Si)) return Woodcutting
elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($regex($1,/^min(e|e?ing)$/Si)) return Mining
elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
}
--------------------------
on *:TEXT:Xuck, Getout:#:{if ($nick == Tony) {
Part $chan Owner Told Me To Leave
}
on *:TEXT:Xuck, hop:#: { if ($nick == Tony) { hop $chan } }
on *:TEXT:Xuck, Quit:#: { if ($nick == Tony) { /quit }
----------------------------
on *:TEXT:!setpcw*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
writeini PestControl.ini WORLD $chan $2. Set by: $nick At: $date $time (+2 GMT)
msg $chan 4Pc world 12has been updated in4 $chan $- 12, Type 4!world12.
}
}
on *:TEXT:!world:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
if ($readini PestControl.ini WORLD $chan == $null) /notice $nick World for $chan not set. type !setpcw to set world.
else {
/notice $nick 4[12PC World4]12 The current 4Pest Control12 world is4 $readini PestControl.ini WORLD $chan
}
}
}
on *:TEXT:!pcw*:#:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
if ($readini PestControl.ini WORLD $chan == $null) /notice $nick World for $chan not set. type !setpcw to set world.
else {
/notice $nick 4[12PC World4]12 The current 4Pest Control12 world is4 $readini PestControl.ini WORLD $chan
}
}
}
on *:TEXT:!setpcw*:?:{
if ($2 == $null || $3 == $null) {
/msg $nick 12To set 4PC World12 type 4!setpcw12 #channel 4world
halt }
else {
if ($nick isop $2 || $nick ishop $2) {
.writeini PestControl.ini WORLD $2 $3 Set by: $nick At: $date $time (+2 GMT)
msg $2 12world has been updated in4 $chan $- 12, Type 4!world12.
}
}
}
on *:TEXT:!suggest**:#:{
/set %suggestedworld $nick suggested world $2
.msg $chan 4$nick 12suggested new world.. type 4!sw12 to see it
}
on *:TEXT:!sw*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
/notice $nick %suggestedworld
}
}
on *:TEXT:!aov**:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
/writeini avoice.ini ADRESSES $address($2,2) $2
/msg $chan 12added4 $2 12to 4auto voice12 list
/mode $chan +v $2
}
}
on *:join:#:{
if ($readini(avoice.ini,ADRESSES,$address($nick,2))) {
/mode $chan +v $nick
} }
--------------------------------
ON *:TEXT:!SetPoll*:#:{
if (!$2) {
notice $nick Error: !SetPoll Poll Here
halt
}
if ($readini(Poll.ini,$chan,Status) == ON) {
notice $nick 12Please wait,4 there is a poll still active.
halt
}
if ($readini(Poll.ini,$chan,Status) == $null) {
writeini Poll.ini $chan Status ON
writeini Poll.ini $chan Starter $address($nick,2)
writeini Poll.ini $chan Poll $2-
writeini Poll.ini $chan Yes 0
writeini Poll.ini $chan No 0
msg $chan 4 $- $nick 12has just set a poll. The poll is:4 " $+ $2- $+ "
msg $chan 12Type 4!Yes12 to vote Yes - Type 4!No12 to vote No.
halt
}
}
ON *:TEXT:!Poll*:#:{
if ($readini(Poll.ini,$chan,Status) == ON) {
notice $nick 12The poll is:4 $readini(Poll.ini,$chan,Poll)
halt
}
else {
notice $nick 12There is 4NO12 poll set for4 $chan
}
}
ON *:TEXT:!Yes*:#:{
if ($readini(Poll.ini,$chan,Status) == ON && $readini(Poll.ini,$chan,$address($nick,2)) == Voted) {
notice $nick 4BITCH!12 you can only vote 4ONCE!
halt
}
if ($readini(Poll.ini,$chan,Status) == ON) {
writeini Poll.ini $chan Yes $calc( $readini(Poll.ini,$chan,Yes) + 1)
writeini Poll.ini $chan $address($nick,2) Voted
notice $nick 12Thanks for Voting. There is now4 $readini(Poll.ini,$chan,Yes) 12votes.
halt
}
else {
notice $nick 12There is 4NO12 poll in4 $chan $- .
}
}
ON *:TEXT:!No*:#:{
if ($readini(Poll.ini,$chan,Status) == ON && $readini(Poll.ini,$chan,$address($nick,2)) == Voted) {
notice $nick 4BITCH!12 you can only vote 4ONCE!
halt
}
if ($readini(Poll.ini,$chan,Status) == ON) {
writeini Poll.ini $chan No $calc( $readini(Poll.ini,$chan,No) + 1)
writeini Poll.ini $chan $address($nick,2) Voted
notice $nick 12Thanks for Voting. There is now4 $readini(Poll.ini,$chan,No) 12votes.
halt
}
else {
notice $nick 12There is 4NO12 poll.
}
}
ON *:TEXT:!EndPoll*:#:{
if (($readini(Poll.ini,$chan,Status) == ON) && ($readini(Poll.ini,$chan,Starter) == $address($nick,2) || $nick isop $chan || $nick ishop $chan)) {
msg $chan 12The poll for4 $chan $+ 12, started by4 $nick 12is now over.
msg $chan 12The results are:4 $readini(Poll.ini,$chan,No) 12No votes -4 $readini(Poll.ini,$chan,Yes) 12Yes votes
remini Poll.ini $chan
halt
}
if ($readini(Poll.ini,$chan,Status) == $null) {
notice $nick 12There is 4NO12 poll set for4 $chan
halt
}
else {
notice $nick 12You must have 4STARTED12 the poll to 4END12 the poll.
}
}
ON *:TEXT:!Votes*:#:{
if ($readini(Poll.ini,$chan,Status) == ON) {
notice $nick 12The results are:4 $readini(Poll.ini,$chan,No) 4No12 votes -4 $readini(Poll.ini,$chan,Yes) 4Yes12 votes
halt
}
else {
notice $nick 12There is 4NO12 poll for4 $chan
}
}
----------------------
on $*:TEXT:/^[!@](cash|price(check)?|gold)/Si:#:{
if (!$2) { notice $nick 12[4>>>12Price Guide4<<<12]4:12 You must supply a item - 4!price 12<4item12> }
else {
inc %id
set $+(%,price.item.,%id) $replace($2-,$chr(32),$chr(37) $+ 20)
set $+(%,price.style.,%id) $iif($left($1,1) == @,msg $chan,notice $nick) 12[4>>>12Price Guide4<<<12]4:12
sockopen $+(price.,%id) zybez.net 80
}
}
on *:SOCKOPEN:price.*:{
var %id = $gettok($sockname,2,46)
sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $($+(%,price.item.,%id),2) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
sockwrite -nt $sockname Host: www.zybez.net
sockwrite -nt $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:price.*:{
var %id = $gettok($sockname,2,46)
var %style = $($+(%,price.style.,%id),2), $&
%item = $replace($($+(%,price.item.,%id),2),$chr(37) $+ 20,$chr(32))
if ($sockerr) {
%style An error occured while connecting
unset $+(%,price.*)
sockclose $+(price.,%id)
}
else {
var %read
sockread %read
if (*<td class="tablebottom" colspan="5">12Your search did 4not12 return any results. 4Please12 make sure your spelling is correct and that you are typing full words.</td>* iswm %read) {
%style No results were found for " $+ %item $+ "
unset $+(%,price.*.,%id)
sockclose $+(price.,%id)
}
if (*<!--name--><td class='tablebottom'>*</td>* iswm %read) {
tokenize 32 $nohtml(%read)
set $+(%,price.name.,%id) $1-
}
if (*<!--price--><td class="tablebottom">*</td>* iswm %read) {
tokenize 32 $nohtml(%read)
set $+(%,price.price.,%id) $1-
}
if (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %read) {
tokenize 32 $nohtml(%read)
inc $+(%,price.times.,%id)
if ($($+(%,price.times.,%id),2) > 5 && !$($+(%,price.stop.,%id),2)) {
%style 12Max results of4 512 allowed. Try making your search for "4 $+ %item $+ 12" more specific.
unset $+(%,price.*.,%id)
set $+(%,price.stop.,%id) true
sockclose $+(price.,%id)
}
elseif ($($+(%,price.times.,%id),2) <= 5) {
%style 12-4Item12 -4 $($+(%,price.name.,%id),2) $&
12-4Price12 -4 $($+(%,price.price.,%id),2) $&
12-4Category12 -4 $1-
unset $+(%,price.name.,%id)
unset $+(%,price.price.,%id)
}
}
if (*</html>* iswm %read) {
unset $+(%,price.*.,%id)
sockclose $+(price.,%id)
}
}
}
alias -l nohtml {
var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
%x = $replace(%x, ,$null)
return %x
}
----------------------------
alias c1 { return $+($chr(3),6,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias c3 { return $+($chr(3),12,$1-) }
alias -l repmist {
if ($regex($1-,/bbc( )?(1|one)/Si)) return bbc1
elseif ($regex($1-,/bbc( )?(2|two)/Si)) return bbc2
elseif ($regex($1-,/bbc( )?(3|three)/Si)) return bbc3
elseif ($regex($1-,/bbc( )?(4|four)/Si)) return bbc4
elseif ($regex($1-,/chan(nel)?( )?(4|four)/Si)) return channel 4
elseif ($regex($1-,/chan(nel)?( )?(5|five)/Si)) return five
else return $1-
}
on $*:text:/^[!@](tv|whatson)/Si:#:{
if (!$2) {
notice $nick Syntax: $1 CHANNEL [TIME]. Time is optional. If left blank will display what is playing at the moment. For a list of channels, type !tv chans
halt
}
var %sckid = $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9))
set %way. [ $+ [ %sckid ] ] $iif($left($1,1) == !,notice $nick,msg $chan)
if ($2 == chans) {
%way. [ $+ [ %sckid ] ] $c1(For a list of accepted channels, see) $c3($chr(31) $+ http://www.guardian.co.uk/TV/ $+ $chr(31))
halt
}
set %tvwntdtime. [ $+ [ %sckid ] ] $regsubex($1-,/ ([0-9]+)(?: )?(p(?:m)?|a(?:m)?)/Si,$chr(32) $+ \1 $+ :00 $+ \2)
set %tvwntdtime. [ $+ [ %sckid ] ] $iif($regex(%tvwntdtime. [ $+ [ %sckid ] ],/([0-9]+)([:\.])([0-9]+)(a(?:m)?|p(?:m)?)?/),$regml(1) $+ $regml(2) $+ $regml(3) $+ $regml(4) $+ $regml(5),$asctime(h:nntt))
set %tvchan. [ $+ [ %sckid ] ] $repmist($remove($2-,%tvwntdtime. [ $+ [ %sckid ] ]))
set %tvwntdtime. [ $+ [ %sckid ] ] $replace(%tvwntdtime. [ $+ [ %sckid ] ],.,:)
sockopen tvlist. [ $+ [ %sckid ] ] www.guardian.co.uk 80
}
on *:SOCKOPEN:tvlist.*: {
sockwrite -nt $sockname GET /TV/bbc1_carlton.html HTTP/1.1
sockwrite -nt $sockname Host: www.guardian.co.uk
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tvlist.*: {
if ($sockerr) {
%way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if ($regex(%sockreader,/<A HREF="(.*?)">((?:.*?) $+ %tvchan. [ $+ [ $right($sockname,5) ] ] $+ (?:.*?))</A><BR>$/Si)) {
set %tvchanpage. [ $+ [ $right($sockname,5) ] ] $regml(1)
set %tvchanname. [ $+ [ $right($sockname,5) ] ] $regml(2)
%way. [ $+ [ $right($sockname,5) ] ])
sockopen tvchan. [ $+ [ $right($sockname,5) ] ] www.guardian.co.uk 80
sockclose $sockname
}
if (*<!-- END SIDEBAR -->* iswm %sockreader) {
%way. [ $+ [ $right($sockname,5) ] ] $c3(No such channel as:) $c2(%tvchan. [ $+ [ $right($sockname,5) ] ]) $+ $c3(. Type $chr(3) $+ !tv chans $+ $chr(3) $to see a list of accepted channels.)
%way. [ $+ [ $right($sockname,5) ] ])
}
}
}
on *:SOCKOPEN:tvchan.*: {
sockwrite -nt $sockname GET $+(/TV/,%tvchanpage. [ $+ [ $right($sockname,5) ] ]) HTTP/1.1
sockwrite -nt $sockname Host: www.guardian.co.uk
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tvchan.*: {
if ($sockerr) {
%way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader0
sockread %sockreader0
if (*<FONT FACE="Geneva,Arial,sans-serif" SIZE="2">* iswm %sockreader1 && *<!-- start of TV* style -->* iswm %sockreader9 && $regex(%sockreader5,/<B>(.*?)<\/B>/)) {
set %tvlasttime. [ $+ [ $right($sockname,5) ] ] %tvtime. [ $+ [ $right($sockname,5) ] ]
set %tvtime. [ $+ [ $right($sockname,5) ] ] $replace($regml(1),.,:)
if ($calc($ctime($date %tvwntdtime. [ $+ [ $right($sockname,5) ] ]) - $ctime($date %tvlasttime. [ $+ [ $right($sockname,5) ] ])) >= 0) && ($calc($ctime($date %tvtime. [ $+ [ $right($sockname,5) ] ]) - $ctime($date %tvwntdtime. [ $+ [ $right($sockname,5) ] ])) > 0) {
%way. [ $+ [ $right($sockname,5) ] ] $c3(At) $c2(%tvwntdtime. [ $+ [ $right($sockname,5) ] ]) $+ $c3(, on channel:) $c2(%tvchanname. [ $+ [ $right($sockname,5) ] ])
%way. [ $+ [ $right($sockname,5) ] ] $c3(Title:) $c2(%tvtitle. [ $+ [ $right($sockname,5) ] ]) $c3($chr(40) $+ %tvlasttime. [ $+ [ $right($sockname,5) ] ] - %tvtime. [ $+ [ $right($sockname,5) ] ] $+ $chr(41))
%way. [ $+ [ $right($sockname,5) ] ] $c3(Description:) $c2($iif(!%tvdesc. [ $+ [ $right($sockname,5) ] ],~ None ~,$replace(%tvdesc. [ $+ [ $right($sockname,5) ] ],$chr(32) $+ <I>,$chr(2),</I>,$chr(2))))
unset %*. [ $+ [ $right($sockname,5) ] ]
unset %sockreader*
sockclose $sockname
halt
}
noop $regex(%sockreader0,/<B>(.*?)<\/B>(.*?)$/)
set %tvtitle. [ $+ [ $right($sockname,5) ] ] $regml(1)
set %tvdesc. [ $+ [ $right($sockname,5) ] ] $regml(2)
}
if (*</HTML> iswm %sockreader0) {
%way. [ $+ [ $right($sockname,5) ] ] $c3(There are no shows on) $c2(%tvchanname. [ $+ [ $right($sockname,5) ] ]) $c3(at) $c2(%tvwntdtime. [ $+ [ $right($sockname,5) ] ]) $+ $c1(.)
}
if (%sockreader0) {
var %x = 9
while (%x > -1) {
if ($len(%sockreader [ $+ [ %x ] ]) <= 850) set %sockreader [ $+ [ $calc(%x + 1) ] ] %sockreader [ $+ [ %x ] ]
dec %x
}
}
}
}
---------------------
on $*:TEXT:/^[!@.]shop/Si:#:{
if (!$2) {
notice $nick *** [ Shop ]: You must supply a shop item
}
else {
inc %n
set $+(%,shop.style.,%n) $iif($left($1,1) == @,msg $chan,notice $nick) *** [ Shop ]:
set $+(%,shop.word.,%n) $replace($2-,$chr(32),+)
set $+(%,shop.nick.,%n) $nick
sockopen $+(shop.,%n) www.zybez.net 80
}
}
on *:SOCKOPEN:shop.*:{
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /shops.php?search_area=itemsearch&search_term= $+ $($+(%,shop.word.,%id),2) HTTP/1.1
sockwrite -n $sockname Host: www.zybez.net
sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:shop.*:{
var %id = $gettok($sockname,2,46)
var %style = $($+(%,shop.style.,%id),2), $&
%word = $($+(%,shop.word.,%id),2), $&
%nick = $($+(%,shop.nick.,%id),2)
if ($sockerr) {
%style An error occured while connecting
unset $+(%,shop.*)
sockclose $+(shop.,%id)
}
else {
var %read
sockread %read
if (*Sorry, no entries match your search criteria* iswm %read) {
%style No results found for " $+ %word $+ "
unset $+(%,shop.*)
sockclose $+(shop.,%id)
}
if (*<td class="tablebottom">*</td>* iswm %read) {
tokenize 32 $nohtml(%read)
if (!$($+(%,shop.item.,%id),2)) {
set $+(%,shop.item.,%id) $1-
halt
}
elseif (!$($+(%,shop.price.,%id),2)) {
set $+(%,shop.price.,%id) $1-
halt
}
elseif (!$($+(%,shop.stock.,%id),2)) {
set $+(%,shop.stock.,%id) $1-
halt
}
elseif (!$($+(%,shop.shop.,%id),2)) {
set $+(%,shop.shop.,%id) $1-
%style Item: $($+(%,shop.item.,%id),2) Price: $($+(%,shop.price.,%id),2) Stock: $($+(%,shop.stock.,%id),2) Shop: $($+(%,shop.shop.,%id),2)
unset $+(%,shop.*)
sockclose $+(shop.,%id)
}
}
if (</html> isin %read) {
unset $+(%,shop.*)
sockclose $+(shop.,%id)
}
}
}
---------------------
on $*:TEXT:/^[!.]check (on|off)/Si:#:{
if ($address($nick,2) == $address($me,2)) {
if ($2 == on) { set %check on | notice $nick I will message you the channels now. }
elseif ($2 == off) { unset %check | notice $nick I will no longer message you the channels now. }
}
}
alias -l c1 { return $+(,$1-,) }
alias -l c2 { return $+(,$1-,) }
on *:JOIN:#:{
if (%check == on) {
enable #GroupRaw
whois $nick
set %whois.nick $nick
set %whois.dest $chan
}
else { halt }
}
#GroupRaw off
raw 319:*:{
if (!%whois.dest) { halt }
var %chans $3-
msg %whois.dest $+($c1(**[),$c2(Channels),$c1(]:)) $c2(%whois.nick) $c1(is on:) $c2(%chans)
unset %whois.*
disable #GroupRaw
}
#GroupRaw END
-------------------
ON *:INVITE:#:{
if ($me == [TH]Xuck) {
set %bot.choice $rand(1,4)
if (%bot.choice == 1) {
Join $chan
halt
}
if (%bot.choice == 2) {
msg [RS]Xuck Join $chan
halt
}
if (%bot.choice == 3) {
msg [PK]Xuck Join $chan
halt
}
}
if (%bot.choice == 4) {
msg [ER]Xuck Join $chan
halt
}
}
else {
notice $nick Please invite [TH]Xuck First
}
ON *:TEXT:join*:?:{
if ($nick == [TH]Xuck && $chR(35) isin $2) {
join $2
close -m $nick
halt
}
}
--------------------------
On *:JOIN:#: {
if ($nick isop $chan) {
inc %opusers [ $+ [ $chan ] ]
/notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %opusers $+ -12 Operator that joined4 $chan $+ .
halt
}
if ($nick ishop $chan) {
inc %hopusers [ $+ [ $chan ] ]
/notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %hopusers $+ - 12Halfop that joined4 $chan $+ .
halt
}
if ($nick isvoice $chan) {
inc %vousers [ $+ [ $chan ] ]
/notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %vousers $+ - 12Voice that joined4 $chan $+ .
halt
}
if ($nick isreg $chan) {
inc %regusers [ $+ [ $chan ] ]
/notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %regusers $+ - 12User that joined4 $chan $+ .
halt
}
}
-------------------------------
ON *:INVITE:#:{
if ($me == [TH]Xuck) {
set %bot.choice $rand(1,7)
if (%bot.choice == 1) {
Join $chan
halt
}
if (%bot.choice == 2) {
msg [RS]Xuck Join $chan
halt
}
if (%bot.choice == 3) {
msg [PK]Xuck Join $chan
halt
}
}
if (%bot.choice == 4) {
msg [ER]Xuck Join $chan
halt
}
}
if (%bot.choice == 5) {
msg [IP]Xuck Join $chan
halt
}
if (%bot.choice == 6) {
msg [FI]Xuck Join $chan
halt
}
if (%bot.choice == 7) {
msg [DP]Xuck Join $chan
halt
}
else {
notice $nick Please invite [TH]Xuck First
}
ON *:TEXT:join*:?:{
if ($nick == [TH]Xuck && $chR(35) isin $2) {
join $2
close -m $nick
halt
}
}
----------------------
on *:TEXT:!count:#: {
msg $chan 12There are4 $nick($chan,0) 12nicks in4 $chan
}
---------------------