1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
on $*:TEXT:/^[\!]/:#:{
var %1 = $1
tokenize 32 $mid($1,2) $2-
if ($1 == sms) {
if ($!hget(regsms,$gettok($fulladdress,2,64))) { .msg $chan Sorry $nick $+ , you need more priveleges to use that cmd... | return }
elseif (!$3 || $2 !isnum) { .msg $chan Syntax: %1 number msg | return }
/send_sms $2 $3- | msg $chan Message sent to $2 with text: $3- | msg #CSMS msg av $nick på $chan : $3-
}
if ($1 == regsms) {
if (im.bloodsome.com !== $ial($fulladdress).host || im.bloodsome.com !== $gettok($fulladdress,2,64)) { return }
elseif (!$2) { .notice $nick Syntax: %1 host (the portion after @) | return }
if (!$ial($2) && !$address($2,5)) { .notice $nick I couldn't find their hosts... I am not performing an auto update. Please try again in a minute. | ialupdate | return }
/hadd regsms $iif($ial($2),$ial($2).host,$gettok($address($2,5),2,64)) permissiong_is_granted
.notice $nick Added $iif($ial($2),$ial($2).host,$gettok($address($2,5),2,64)) to the registered...
}
}
on *:start:{ hmake regsms 100 | hload regsms regsms.TwN | /timer 0 600 hsave regsms regsms.TwN }
alias showial {
; here we create a new window
window @IAL
var %i = 1
; lets begin to loop through the entire IAL. $ial(*,0) returns the total number of items
while (%i <= $ial(*,0)) {
; we need to add every item of the IAL to the window @IAL
aline -p @IAL $chr(160) $+ %i $+ . $ial(*,%i)
; increase looping variable
inc %i
}
}
|