Yet the new 1.7
Posted by cr4z3d
Monday, June 28, 2004
Description: best update..
Whats new?
Added howmany
Added customizable trigger
Added whatis feature
Added whois feature
Added/Fixed access
Added status feature
Fixed gamble feature
Fixed addresslist
Fixed where when you were logged out you could use commands
Fixed where when you typed clvl it did nothing
Fully settled, I mean this is the greatest update for Login/Logout.
on *:load: {
set $+(%,$address,access) 500
set $+(%,$address,color) [^K]0,1
set %trig.a -
}
menu channel {
None desided name
.Access/register: { dialog -m NST NST }
-
}
dialog NST {
title "None desided name"
size -1 -1 300 120
option dbu
menu "&file", 21
item "&quit", 22, cancel
tab "Pe&on", 5, 5 5 290 110
tab "Re&gister", 6, 5 5 290 110
tab "O&p", 30, 5 5 100 70
tab "Ma&ster", 71, 5 5 100 70
tab "Co-Owner", 72, 5 5 100 70
tab "Owner", 75, 5 5 100 70
button "Add",76,93 70 30 10, tab 75
edit "Address", 77, 8 40 200 10, tab 75
button "Add",73,93 70 30 10, tab 72
edit "Address", 74, 8 40 200 10, tab 72
button "Add",31,93 70 30 10, tab 5
edit "Address", 8, 8 40 200 10, tab 5
button "Add",66,93 70 30 10, tab 30
edit "Address", 67, 8 40 200 10, tab 30
button "Add",600,93 70 30 10, tab 71
button "Register",68,93 70 30 10, tab 6
edit "Address", 69, 8 40 200 10, tab 71
edit "Handle", 9, 8 40 80 10, tab 6
text "(eg: asdf)", 26, 100 41 85 10, tab 6
edit "Address", 10, 8 50 200 10, tab 6
text "(eg: ~asdf@ool-4350b88b.dyn.optonline.net)", 27, 100 51 120 10, tab 6
button "Cancel",79,93 80 30 10, cancel
}
On *:DIALOG:NST:sclick:31:{
set %peon.handle.unknown $did(NST,8).text
echo Added %peon.handle.unknown to peons list.
asdffffff
}
alias asdffffff {
set % [ $+ [ %peon.handle.unknown ] $+ access ] 100
set $+(%,%addresssss,access) 100
set $+(%,%usrrrrname,access) 100
}
On *:DIALOG:NST:sclick:66:{
set %op.handle.unknown $did(NST,67).text
echo Added %op.handle.unknown to ops list.
asdfffffff
}
alias asdfffffff {
set % [ $+ [ %op.handle.unknown ] $+ access ] 200
set $+(%,%addresssss,access) 200
set $+(%,%usrrrrname,access) 200
}
On *:DIALOG:NST:sclick:600:{
set %master.handle.unknown $did(NST,69).text
echo Added %master.handle.unknown to masters list.
asdffffffff
}
alias asdffffffff {
set % [ $+ [ %master.handle.unknown ] $+ access ] 300
set $+(%,%addresssss,access) 300
set $+(%,%usrrrrname,access) 300
}
On *:DIALOG:NST:sclick:73:{
set %coown.handle.unknown $did(NST,74).text
echo Added %coown.handle.unknown to Co-owners list.
asdffffffffff
}
alias asdffffffffff {
set % [ $+ [ %coown.handle.unknown ] $+ access ] 400
set $+(%,%addresssss,access) 400
set $+(%,%usrrrrname,access) 400
}
On *:DIALOG:NST:sclick:76:{
set %own.handle.unknown $did(NST,77).text
echo Added %own.handle.unknown to owners list.
asdfffffffffff
}
alias asdfffffffffff {
set % [ $+ [ %own.handle.unknown ] $+ access ] 500
set $+(%,%addresssss,access) 500
set $+(%,%usrrrrname,access) 500
}
On *:DIALOG:NST:sclick:68:{
set %usrrrrname $did(NST,9).text
set %addresssss $did(NST,10).text
registerrrr
}
alias registerrrr {
set $+(%,%addresssss,color) [^K]0,1
set %last2reg %usrrrrname
write registered.txt %usrrrrname
write something3.txt %addresssss / %usrrrrname
set %usrname %usrrrrname
set %pww $rand(A,Z) $+ $rand(a,z) $+ $rand(1,10) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(1,10)
echo Username: %usrrrrname Password: %pww
echo Please /msg $me ~login %usrrrrname %pww
writeini registered.ini %usrrrrname %pww 1
write something.txt %addresssss %usrrrrname
write something2.txt %addresssss
set $+(%,%addresssss,access) 100
echo Secret information: $read(something.txt,$lines(something.txt))
set $+(%,%usrrrrname,access) 100
}
on *:text:$(%trig.a $+ register *):?: {
if ($read(registered.txt,w, $+ $2)) {
msg $nick Pick a new name.
}
elseif ($read(something3.txt,w, $+ $address)) {
msg $nick you already registered.
}
else {
set $+(%,$address,color) [^K]0,1
set %last2reg $2
write registered.txt $2
write something3.txt $address / $2
set %usrname $2
set %pww $rand(A,Z) $+ $rand(a,z) $+ $rand(1,10) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(1,10)
msg $nick Username: $2 Password: %pww
msg $nick Please /msg $me %trig.a $+ login $2 %pww
writeini registered.ini %usrname %pww 1
write something.txt $address $2
write something2.txt $address
set $+(%,$address,access) 100
msg $nick Secret information: $read(something.txt,$lines(something.txt))
set $+(%,$2,access) 100
}
}
on *:text:$(%trig.a $+ login *):?: {
if ($readini(loggedin.ini,$2,$3) != $null) {
msg $nick % [ $+ [ $address ] $+ color ] Your already logged in!
}
elseif (% [ $+ [ $address $+ [ ban ] ] ] == 1) {
msg $nick You are banned.
}
elseif ($readini(registered.ini,$2,$3) != $null) && ($read(something.txt,w,$+(*,$address($2,#),*))) {
msg $nick % [ $+ [ $address ] $+ color ] You are now logged in.
writeini loggedin.ini $2 $3 1
msg $nick % [ $+ [ $address ] $+ color ] You may now use %trig.a $+ help for more commands.
write lastlogin.txt $2
write something.txt $address $2
write something2.txt $address
set $+(%,$address) $date $time
msg $nick % [ $+ [ $address ] $+ color ] Secret information: $read(something.txt,$lines(something.txt))
write loggedinnow.txt $nick
set $+(%,$2,whois) $nick
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ logout *):?: {
if ($readini(loggedin.ini,$2,$3) != $null) {
msg $nick You are now logged out.
remini loggedin.ini $2 $3 1
write -dw " $+ $address $+ " something2.txt
write -dw " $+ $nick $+ " loggedinnow.txt
}
else {
msg $nick Login first.
}
}
on *:text:$(%trig.a $+ whois*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
msg $nick % [ $+ [ $address ] $+ color ] $2 $+ 's nick is: % [ $+ [ $2 $+ [ whois ] ] ]
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ changepw *):?: {
if ($2- == $2 $3 $4 $5) {
if ($readini(loggedin.ini,$2,$3) != $null) {
if ($4 == $5) {
set %changepw $4
msg $nick Change your password, $3 to $4
remini loggedin.ini $2 $3 1
writeini registered.ini $2 %changepw 1
writeini loggedin.ini $2 %changepw 1
remini registered.ini $2 $3 1
}
else { msg $nick Hum... You did not confirm the passwords correctly.
}
}
else {
msg $nick You must login.
}
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ help):?: {
if ($read(something2.txt,w,$+($address))) {
msg $nick % [ $+ [ $address ] $+ color ] help: %trig.a $+ addresslist - shows all address and handles / %trig.a $+ logout <nick> <password> - obvious. / %trig.a $+ stats - how many lines words and letters you said in $me channels.
msg $nick % [ $+ [ $address ] $+ color ] help2: %trig.a $+ changepw <nick> <password> <newpassword> <newpassword> - changes your password / %trig.a $+ lastlogin - shows the person who last logged in and your last login date.
msg $nick % [ $+ [ $address ] $+ color ] help3: %trig.a $+ access - shows your access / %trig.a $+ myinfo - shows your info / %trig.a $+ last2register - lists the last to register / %trig.a $+ blist - shows a list of bans / %trig.a $+ gamb <number> - gambling game.
msg $nick % [ $+ [ $address ] $+ color ] help4: %trig.a $+ howmany <chan> - shows how many idles there are in a channel / %trig.a $+ whatis <nick> - shows the address of that nick (not handle!) / %trig.a $+ commands - shows a list of your access commands.
msg $nick % [ $+ [ $address ] $+ color ] help5: %trig.a $+ whois <handle> - shows the nick of then handle you enter / %trig.a $+ access <handle> - shows the handle's access.
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ lastlogin):?: {
if ($read(something2.txt,w,$+($address))) {
msg $nick % [ $+ [ $address ] $+ color ] Your last login date was: % [ $+ [ $address ] ]
msg $nick % [ $+ [ $address ] $+ color ] The last person to login was: $read(lastlogin.txt,$lines(lastlogin.txt))
else {
msg $nick Seems to me like somethings wrong -_-
}
}
}
on *:text:$(%trig.a $+ howmany*):?: {
if ($read(something2.txt,w,$+($address))) {
msg $nick % [ $+ [ $address ] $+ color ] There are $nick($2,0) people in $2 $+ .
else {
msg $nick Seems to me like somethings wrong -_-
}
}
}
on *:text:$(%trig.a $+ whatis*):?: {
if ($read(something2.txt,w,$+($address))) {
msg $nick % [ $+ [ $address ] $+ color ] $2 $+ 's address is $address($2,2)
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ stats):?: {
if ($read(something2.txt,w,$+($address))) {
msg $Nick % [ $+ [ $address ] $+ color ] Words: % [ $+ [ $address ] $+ words ] Lines: % [ $+ [ $address ] $+ lines ] Letters: % [ $+ [ $address ] $+ chars ]
else {
msg $nick Seems to me like somethings wrong -_-
}
}
}
on *:text:$(%trig.a $+ access*):?: {
if ($read(something2.txt,w,$+($address))) && (!$2) {
msg $nick % [ $+ [ $address ] $+ color ] Your access is: % [ $+ [ $address $+ [ access ] ] ]
}
elseif ($read(something2.txt,w,$+($address))) && ($2) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] $2 $+ 's access is: % [ $+ [ $2 ] $+ access ]
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ areacode*):?: {
if ($read(something2.txt,w,$+($address))) {
set $+(%,$address,areacode) $2
msg $nick % [ $+ [ $address ] $+ color ] % [ $+ [ $address $+ [ areacode ] ] ]
else {
msg $nick Seems to me like somethings wrong -_-
}
}
}
on *:text:$(%trig.a $+ myinfo):?: {
if ($read(something2.txt,w,$+($address))) {
msg $nick % [ $+ [ $address ] $+ color ] Your nick is: $nick You last logged in: % [ $+ [ $address ] ] You have access: % [ $+ [ $address $+ [ access ] ] ]
else {
msg $nick Seems to me like somethings wrong -_-
}
}
}
on *:text:$(%trig.a $+ last2register):?: {
if ($read(something2.txt,w,$+($address))) {
msg $nick % [ $+ [ $address ] $+ color ] %last2reg
else {
msg $nick Seems to me like somethings wrong -_-
}
}
}
on *:text:$(%trig.a $+ commands):?: {
if (% [ $+ [ $address $+ [ access ] ] ] == 100) {
msg $nick % [ $+ [ $address ] $+ color ] Peon commands:
msg $nick % [ $+ [ $address ] $+ color ] Set Info; ~setinfo <info>
msg $nick % [ $+ [ $address ] $+ color ] Set Color; ~colorscheme <ctrl + k firstcolor,secondcolor>
msg $nick % [ $+ [ $address ] $+ color ] Set Areacode; ~areacode <your areacode>
}
elseif (% [ $+ [ $address $+ [ access ] ] ] == 200) {
msg $nick % [ $+ [ $address ] $+ color ] Op commands:
msg $nick % [ $+ [ $address ] $+ color ] Time Ban; %trig.a $+ tb <address> <time>
msg $nick % [ $+ [ $address ] $+ color ] Un Ban; %trig.a $+ unban <address>
msg $nick % [ $+ [ $address ] $+ color ] Address List; %trig.a $+ alist
msg $nick % [ $+ [ $address ] $+ color ] Set Info; %trig.a $+ setinfo <info>
msg $nick % [ $+ [ $address ] $+ color ] Set Color; %trig.a $+ colorscheme <ctrl + k firstcolor,secondcolor>
msg $nick % [ $+ [ $address ] $+ color ] Set Areacode; %trig.a $+ areacode <your areacode>
}
elseif (% [ $+ [ $address $+ [ access ] ] ] == 300) {
msg $nick % [ $+ [ $address ] $+ color ] Master commands:
msg $nick % [ $+ [ $address ] $+ color ] Time Ban; %trig.a $+ tb <address> <time>
msg $nick % [ $+ [ $address ] $+ color ] Un Ban; %trig.a $+ unban <address>
msg $nick % [ $+ [ $address ] $+ color ] Add Ban; %trig.a $+ addban <address> <reason>
msg $nick % [ $+ [ $address ] $+ color ] Del Ban; %trig.a $+ delban <address>
msg $nick % [ $+ [ $address ] $+ color ] Address List; %trig.a $+ alist
msg $nick % [ $+ [ $address ] $+ color ] Set Info; %trig.a $+ setinfo <info>
msg $nick % [ $+ [ $address ] $+ color ] Set Color; %trig.a $+ colorscheme <ctrl + k firstcolor,secondcolor>
msg $nick % [ $+ [ $address ] $+ color ] Set Areacode; %trig.a $+ areacode <your areacode>
}
elseif (% [ $+ [ $address $+ [ access ] ] ] == 400) {
msg $nick % [ $+ [ $address ] $+ color ] Co-owner commands:
msg $nick % [ $+ [ $address ] $+ color ] Time Ban; %trig.a $+ tb <address> <time>
msg $nick % [ $+ [ $address ] $+ color ] Un Ban; %trig.a $+ unban <address>
msg $nick % [ $+ [ $address ] $+ color ] Add Ban; %trig.a $+ addban <address> <reason>
msg $nick % [ $+ [ $address ] $+ color ] Del Ban; %trig.a $+ delban <address>
msg $nick % [ $+ [ $address ] $+ color ] Address List; %trig.a $+ alist
msg $nick % [ $+ [ $address ] $+ color ] Set Info; %trig.a $+ setinfo <info>
msg $nick % [ $+ [ $address ] $+ color ] Set Color; %trig.a $+ colorscheme <ctrl + k firstcolor,secondcolor>
msg $nick % [ $+ [ $address ] $+ color ] Set Areacode; %trig.a $+ areacode <your areacode>
}
elseif (% [ $+ [ $address $+ [ access ] ] ] == 500) {
msg $nick % [ $+ [ $address ] $+ color ] Owner commands:
msg $nick % [ $+ [ $address ] $+ color ] Time Ban; %trig.a $+ tb <address> <time>
msg $nick % [ $+ [ $address ] $+ color ] Un Ban; %trig.a $+ unban <address>
msg $nick % [ $+ [ $address ] $+ color ] Add Ban; %trig.a $+ addban <address> <reason>
msg $nick % [ $+ [ $address ] $+ color ] Del Ban; %trig.a $+ delban <address>
msg $nick % [ $+ [ $address ] $+ color ] Msg; %trig.a $+ msg <chan> <message>
msg $nick % [ $+ [ $address ] $+ color ] Nick; %trig.a $+ nick <nick>
msg $nick % [ $+ [ $address ] $+ color ] Join; %trig.a $+ join <chan>
msg $nick % [ $+ [ $address ] $+ color ] Part; %trig.a $+ part <chan>
msg $nick % [ $+ [ $address ] $+ color ] Kill; %trig.a $+ kill <reason>
msg $nick % [ $+ [ $address ] $+ color ] Change Level; %trig.a $+ clvl <handle> <address> <access>
msg $nick % [ $+ [ $address ] $+ color ] Address List; %trig.a $+ alist
msg $nick % [ $+ [ $address ] $+ color ] Set Info; %trig.a $+ setinfo <info>
msg $nick % [ $+ [ $address ] $+ color ] Set Color; %trig.a $+ colorscheme <ctrl + k firstcolor,secondcolor>
msg $nick % [ $+ [ $address ] $+ color ] Set Areacode; %trig.a $+ areacode <your areacode>
msg $nick % [ $+ [ $address ] $+ color ] Trigger; %trig.a $+ trigger <trigger>
}
}
on *:text:$(%trig.a $+ tb*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 200) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 for $3 $+ .
set $+(%,$2,ban) 1
timer* 0 $3 set $+(%,$2,ban) 0 | write ban.txt -d $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 300) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 for $3 $+ .
set $+(%,$2,ban) 1
timer* 0 $3 set $+(%,$2,ban) 0 | write ban.txt -d $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 400) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 for $3 $+ .
set $+(%,$2,ban) 1
timer* 0 $3 set $+(%,$2,ban) 0 | write ban.txt -d $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 for $3 $+ .
set $+(%,$2,ban) 1
timer* 0 $3 set $+(%,$2,ban) 0 | write ban.txt -d $2
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ unban*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 200) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Unbanned $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 300) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Unbanned $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 400) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Unbanned $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Unbanned $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ addban*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 300) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 $+ .
set $+(%,$2,ban) 1
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 400) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 $+ .
set $+(%,$2,ban) 1
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Banned $2 $+ .
set $+(%,$2,ban) 1
write ban.txt $2
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ delban*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 300) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Delban $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 400) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Delban $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
elseif ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) && ($read(registered.txt,w, $+ $2)) {
msg $nick % [ $+ [ $address ] $+ color ] Delban $2 $+ .
set $+(%,$2,ban) 0
write ban.txt $2
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ msg*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
msg $2-
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ trigger*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
set %trig.a $2
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ join*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
join $2-
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ part*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
part $2-
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ kill*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
quit $2-
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ nick*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
nick $2
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ clvl*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) && (% [ $+ [ $address $+ [ access ] ] ] == 500) {
set $+(%,$2,access) $4
set $+(%,$3,access) $4
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ addresslist):?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
dcc chat $nick
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ alist):?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
dcc chat $nick
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:open:=:{
var %x = 1
while (%x <= $lines(something3.txt)) {
msg =$nick $read(something3.txt,%x)
inc %x
}
}
on *:text:$(%trig.a $+ setinfo*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
msg $nick Your info has been set to $2- $+ .
set $+(%,$address,info) % [ $+ [ $address ] $+ color ] $2-
write asdfasdf.txt $address
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ colorscheme*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
msg $nick Colors: $2- $+ Sample
set $+(%,$address,color) $2-
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:join:#: {
if ($read(asdfasdf.txt,w, $+ $address)) {
msg $chan - $+ $nick $+ - % [ $+ [ $address ] $+ info ]
}
else {
halt
}
}
$read(lastlogin.txt,$lines(lastlogin.txt))
on *:text:~last2register:?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
msg $nick % [ $+ [ $address ] $+ color ] $read(registered.txt,$lines(registered.txt))
}
}
ALIAS weather {
set %weather % [ $+ [ $address $+ [ areacode ] ] ]
sockopen weather w3.weather.com 80
}
ALIAS nohtml var %tmp , %i = $regsub($1-,/(<[^>]+>)/g,$chr(32),%tmp) | return %tmp
on *:SOCKOPEN:weather: {
sockwrite -n $sockname GET /weather/local/ $+ %weather HTTP/1.1
sockwrite -n $sockname Host: www.w3.weather.com
sockwrite -n $sockname User-agent: mIRC/ $+ $version
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:weather: {
if ($sockerr > 0) { return }
var %tmp | sockread %tmp
while ($sockbr) {
if ( <A HREF="/" CLASS="breadCrumb">Home</A> > <B>Local Forecast for *</B> iswm %tmp ) set %weatherscript $remove($nohtml(%tmp),home,>,Local) $+ :
if ( <TR><TD VALIGN=TOP ALIGN=CENTER CLASS=obsInfo2><B CLASS=obsTextA>*</B></TD> iswm %tmp ) set %weatherscript %weatherscript [Current Conditions $+ : $nohtml(%tmp) ]
if ( <TD VALIGN=MIDDLE ALIGN=CENTER CLASS=obsInfo2 WIDTH=50%><B CLASS=obsTempTextA>*°F</B></TD></TR> iswm %tmp ) set %weatherscript %weatherscript [ Temp $+ : $remove($nohtml(%tmp),home,°,F) $+ $chr(176) $+ F ]
if ( <TD ALIGN=LEFT VALIGN=TOP CLASS=obsInfo2>*mph</TD></TR> iswm %tmp ) set %weatherscript %weatherscript [ Wind Speed $+ : $remove($nohtml(%tmp),home,°, ) ]
if ( <TD ALIGN=LEFT VALIGN=TOP CLASS=obsInfo2>* </TD></TR> iswm %tmp ) || ( <TD ALIGN=LEFT VALIGN=TOP CLASS=obsInfo2>* mil*</TD></TR> iswm %tmp ) set %weatherscript %weatherscript [ Visibility $+ : $nohtml(%tmp) ]
if ( <TD ALIGN=LEFT VALIGN=TOP CLASS=obsInfo2>*%</TD></TR> iswm %tmp ) set %weatherscript %weatherscript [ Humitidy $+ : $nohtml(%tmp) ]
sockread %tmp
}
}
on *:text:~weather:?:{
if ($read(loggedinnow.txt,w,$+($nick))) {
set %nick $nick
weather
msg $nick Fetching Data For % [ $+ [ $address $+ [ areacode ] ] ]
timer 1 1 weathers
unset %weatherscript
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
ALIAS weathers {
if (%weatherscript = $null) {
msg %nick Sorry, Weather For %weather Was Not Found.
}
elseif (%weatherscript != $null) {
msg %nick $nohtml(%weatherscript)
}
}
on *:text:$(%trig.a $+ gamb*):?: {
if ($read(loggedinnow.txt,w,$+($nick))) {
set %rolly $rand(1,12)
if (%rolly == $2) {
msg $nick % [ $+ [ $address ] $+ color ] You guessed $2 $+ ! The roll is a %rolly $+ !
msg $nick % [ $+ [ $address ] $+ color ] you WON!
}
else {
msg $nick % [ $+ [ $address ] $+ color ] You guessed $2 $+ ! The roll is a %rolly $+ !
}
}
else {
msg $nick Seems to me like somethings wrong -_-
}
}
on *:text:$(%trig.a $+ blist):?: {
if ($lines(ban.txt) = 0) {
msg $nick % [ $+ [ $address ] $+ color ] None
}
else {
var %x = 1
while (%x <= $lines(ban.txt)) {
msg $nick % [ $+ [ $address ] $+ color ] $read(ban.txt,%x)
inc %x
}
}
}
on *:text:*:#:{
inc $+(%,$address,lines) 1
inc $+(%,$address,chars) $len($1-)
inc $+(%,$address,words) $0
}
on *:nick: {
if ($read(loggedinnow.txt,w,$+($nick))) {
write loggedinnow.txt $nick
}
}Whats new?
Added howmany
Added customizable trigger
Added whatis feature
Added whois feature
Added/Fixed access
Added status feature
Fixed gamble feature
Fixed addresslist
Fixed where when you were logged out you could use commands
Fixed where when you typed clvl it did nothing
Fully settled, I mean this is the greatest update for Login/Logout.