Bsic Party Line
Platform: mIRC
Published May 01, 2009
Updated May 01, 2009
Basic partyline for learning purposes
;Basic Partyline
alias dccCmsg {
if ($chat($1) == $null) { halt }
else {
msg = $+ [ $1 ] $2-
}
}
on *:OPEN:=: { pmotd $nick | glchat $nick $+ ( $+ $address($nick,2) $+ )) Has Joined The Partyline }
on *:CLOSE:=: { glchat $nick $+ ( $+ $address($nick,2) $+ )) $skz(Has Left The Partyline) }
alias pmotd {
/dccCmsg $chat($1) 01,01
/dccCmsg $chat($1) 01,0104_______________________________________________________________________________________________01
/dccCmsg $chat($1) 04,01|0100Welcome To vIPRPG Partyline0104|
/dccCmsg $chat($1) 01,0104¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯01
/dccCmsg $chat($1) 01,0104_______________________________________________________________________________________________01
/dccCmsg $chat($1) 04,01|0100Flooding Will Not Be Tolerated!0104|
/dccCmsg $chat($1) 04,01|0100Flooding Will Result In A Warning, 3 Warnings = Permanent Ban + Account Suspension0104|
/dccCmsg $chat($1) 01,0104¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯01
/dccCmsg $chat($1) 01,0104_______________________________________________________________________________________________01
/dccCmsg $chat($1) 04,01|0100Commands: `commands0104|
/dccCmsg $chat($1) 04,01|0100Help: `help0104|
/dccCmsg $chat($1) 04,01|0100Rules: `rules0104|
/dccCmsg $chat($1) 04,01|0100Ban appeals: `appeal0104|
/dccCmsg $chat($1) 04,01|0100Password Retrieval: `getpass0104|
/dccCmsg $chat($1) 01,0104¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯01
}
alias plchat {
var %dcT = $chat(0)
var %dcC = 1
var %n = $1
while (%dcC < %dcT) {
if ($chat(%dcC) == %n) { inc %dcC }
/dccCmsg $chat(%dcC) %n $2-
inc %dcC
}
}
alias glchat {
var %dcT = $chat(0)
var %dcC = 0
while (%dcC < %dcT) {
inc %dcC
/dccCmsg $chat(%dcC) $1-
}
}
on 1:CHAT:*:{
if ($left($1,1) == `) {
if ($1 = `help) { /notice $nick Help! }
if ($1 = `whois) {
;if ($2 isin %partyline) { blajh
/dccCmsg $chat($nick) $skz($2 is $address($2,2))
halt
}
if ($1 = `commands) {
if ($access($nick) = 0) { /dccCmsg $chat($nick) Your access Level Is: $uaccess($nick) | /dccCmsg $chat($nick) `whois `stats `about | halt }
if ($access($nick) >= 1) { /dccCmsg $chat($nick) Your access Level Is: $uaccess($nick) | /dccCmsg $chat($nick) `whois `stats `about | halt }
halt
}
}
else {
/plchat $nick $1- | halt
}
}
