;OmegaScript v2.84
;Written by Adam-
on *:CONNECT: {
mode $me +TBpR
;.timercc $+ $network 0 120 chancheck
}
on *:DISCONNECT: {
timers off
unsetall
}
on *:JOIN:#: {
if ($readini(botinfo.ini,n,cmbonjoin,$chan) == true) {
if ($readini(botinfo.ini,n,defname,$address($nick,3)) != $null) {
var %name $v1
}
else var %name $nick
var %x 1
while ($sock(cmb. $+ %x)) inc %x
sockopen $+(cmb.,%x) hiscore.runescape.com 80
sockmark $+(cmb.,%x) -1 $+ ~ $+ msg $chan $+ ~ $+ $nick $+ ~ $+ %name
var %x 1
while ($sock(clan. $+ %x)) inc %x
sockopen $+(clan.,%x) runehead.com 80
sockmark $+(clan.,%x) msg $chan $+ ~ $+ %name $+ ~ $+ $nick
}
}
off *:INVITE:#: {
if ($chan(0) >= 30) {
notice $nick $c2($nick,I am currently full, please try again later.)
halt
}
if ($readini(botinfo.ini,n,kicks,$chan) < 5) || ($readini(botinfo.ini,n,kicks,$chan) == $null) {
;msg #OmegaScript $+($chr(3),07,$nick,$chr(3)) has invited me to $+($chr(3),07,$chan,$chr(3)) $+ .
join $chan
.timer 1 2 msg $chan Hello! I'm $me $+ . I was invited by $nick $+ . Go to $+($chr(3),07,http://freewebs.com/omegascript/,$chr(3)) to view my commands. If I am kicked 5 times this channel is blacklisted, kicks left: $+($chr(3),07,$iif($readini(botinfo.ini,n,kicks,$chan),$calc(5 - $v1),5),/5,$chr(3),.) To remove me type $+($chr(3),07,!part $me,$chr(3))
ignore -iu300 $iif($address($nick,2),$v1,$nick)
}
else {
notice $nick You can not invite me because your channel is blacklisted, join #OmegaScript to get this appealed.
ignore -iu300 $iif($address($nick,2),$v1,$nick)
}
}
off *:PART:#: {
if ($nick != $me) {
if ($nick($chan,0) < 4) {
part $chan You need at least two other people to keep me.
}
}
if ($nick == $me) {
;msg #omegascript I have just parted $+($chr(3),07,$chan,$chr(3),.)
}
}
on *:KICK:#: {
if ($knick == $me) {
ignore -iu300 $iif($address($nick,2),$v1,$nick)
if ($readini(botinfo.ini,n,kicks,$chan) == $null) {
writeini botinfo.ini kicks $chan 1
}
else {
var %x $readini(botinfo.ini,n,kicks,$chan)
inc %x
writeini botinfo.ini kicks $chan %x
}
;msg #omegascript I was just kicked from $+($chr(03),07,$chan,$chr(03)) by $+($chr(03),07,$nick,$chr(03),.)
}
}
on *:TEXT:*:?: close -m
on $*:TEXT:/^[!@]define/Si:#: halt
on *:TEXT:!set *:#: {
if ($nick isop $chan) {
if ($2 == cmbonjoin) {
var %status $iif($readini(botinfo.ini,n,cmbonjoin,$chan),true,false)
if ($3 == on) {
if (%status == false) {
writeini botinfo.ini cmbonjoin $chan true
msg $chan *** $+([,$c1($nick,SET),]:) $c2($nick,CMB on join is now) $c1($nick,on) $c2($nick,for) $c1($nick,$chan) $+ $C2($nick,.)
}
else {
msg $chan *** $+([,$c1($nick,SET),]:) $c2($nick,CMB on join was already on for) $c1($nick,$chan) $+ $c2($nick,.)
}
}
elseif ($3 == off) {
if (%status == true) {
remini botinfo.ini cmbonjoin $chan
msg $chan *** $+([,$c1($nick,SET),]:) $c2($nick,CMB on join is now) $c1($nick,off) $c2($nick,for) $c1($nick,$chan) $+ $c2($nick,.)
}
else {
msg $chan *** $+([,$c1($nick,SET),]:) $c2($nick,CMB on join was already off for) $c1($nick,$chan) $+ $c2($nick,.)
}
}
else {
notice $nick *** $+([,$c1($nick,SET),]:) $c2($nick,Either use on or off.)
}
}
else {
notice $nick *** $+([,$c1($nick,SET),]:) $c2($nick,Available options are) $+ : $c1($nick,cmbonjoin)
}
}
}
on $*:TEXT:/^[!@](npc|monster)/Si:#: {
if ($2 == $null) {
$iif($left($1,1) $+(=,=) @ && $istok($readini(botinfo.ini,n,IgnoreChannel,Channels),$chan,32) $+(=,=) $false,msg $chan,notice $nick) *** $+([,$c1($nick,NPC),]:) $c2($nick,You must specify a monster to lookup.)
halt
}
var %x 1
while ($sock(npc. $+ %x)) inc %x
sockopen $+(npc.,%x) tip.it 80
sockmark $+(npc.,%x) $iif($left($1,1) $+(=,=) @ && $istok($readini(botinfo.ini,n,IgnoreChannel,Channels),$chan,32) $+(=,=) $false,msg $chan,notice $nick) $+ ~ $+ $nick $+ ~ $+ $replace($2-,$chr(32),+,-,+,_,+)
}
on *:SOCKOPEN:npc.*: {
tokenize 126 $sock($sockname).mark
sockwrite -nt $sockname GET /runescape/index.php?rs2monster=&orderby=&keywords= $+ $3 $+ &levels=All&race=0
sockwrite -nt $sockname Host: tip.it
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:npc.*: {
var %read
sockread %read
if ($regex(%read,/| /i)) {
var %x 1
while ($sock(npc2. $+ %x)) inc %x
sockopen $+(npc2.,%x) tip.it 80
sockmark $+(npc2.,%x) $sock($sockname).mark $+ ~ $+ $regml(1)
sockclose $sockname
}
if (End of main table isin %read) {
tokenize 126 $sock($sockname).mark
$1 *** $+([,$c1($2,NPC),]:) $c2($2,NPC) $qt($c1($2,$3)) $c2($2,returned no results $+ $chr(44) if you can't figure out the name check Tip.It's Besitary for the corret name.)
sockclose $sockname
}
}
on *:SOCKOPEN:npc2.*: {
tokenize 126 $sock($sockname).mark
sockwrite -n $sockname GET /runescape/index.php?rs2monster_id= $+ $4
sockwrite -n $sockname Host: tip.it
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:npc2.*: {
tokenize 126 $sock($sockname).mark
var %read
sockread %read
if ($regex(%read,/ |