Its A Script Help System That Connect You To My Servers #MircHelp Chan To Assist N00bs With Your Script, Code And Basic IRC Commands (You May Use It In Your Scripts If You Like. You May Also Join And Be Opered To Assist People With MIRC Retaled Questions). Please Dont Rip My Code, Its Not Nice. DONT BE A FREAKIN LAMER ABOUT IT EITHER!
;General Idea By JeSTeR
;Please Dont Rip My Code, Its Not Nice.
; DONT BE A FREAKIN LAMER ABOUT IT EITHER!
;Code Can Be Found On H4CK3D Script V10.2 By JeSTeR
menu Menubar,Channel,Nicklist,Query,Status {
-
x( Script Help )x:/Help1
-
}
alias Help1 {
%socknick = $strip($1)
if (!%socknick) { %socknick = $$?="You Will Now Get Help Please Enter NickName:" }
.sockclose clientchat
echo -a Connecting to server......
set %Hoper @MIRCHelpNetwork
.sockopen clientchat IRC.H4CK3D.NL 6667
}
on *:sockopen:clientchat: {
window -ek[N] %Hoper
echo %Hoper >>> Connection Established. Receiving MOTD.....
sockwrite -nt $sockname NICK %socknick
sockwrite -nt $sockname USER Help Help Help :Help
}
on *:SOCKOPEN:clientchat: {
echo %Hoper >>> Connection Established. Receiving MOTD.....
}
on *:SOCKCLOSE:clientchat: { echo %Hoper >>> Connection has been closed at $time }
on *:INPUT:@*: {
if ($left($strip($1),1) == /) {
var %command = $mid($strip($1-),2)
if ($gettok(%command,1,32) == quit) {
sockwrite -nt clientchat QUIT : $+ gettok(%command,2-,32)
sockclose clientchat
}
else {
sockwrite -nt clientchat %command
}
halt
}
else {
sockwrite -n clientchat PRIVMSG $remove($target,@) : $+ $strip($1-)
echo $target $timestamp < $+ %socknick $+ > $strip($1-)
halt
}
}
on *:SOCKREAD:clientchat:{
if ($sockerr > 0) return
var %temp
sockread %temp
if ($sockbr == 0) { return }
echo %HOper %temp
tokenize 32 %temp
var %nick = $gettok($mid($1,2),1,33)
if ($1 == PING) { sockwrite -nt $sockname PONG $2 }
if ($2 == 001) {
;Welcome to the internet relay chat
sockwrite -nt $sockname join #EXChat
}
if ($2 == JOIN && %nick == %socknick) {
;Open a new channel window
window -ek[N] @ $+ $remove($3,:)
}
if ($2 == PRIVMSG) {
;Process on TEXT here
var %target = $window(@ $+ $3)
if (%target) {
;Window found
echo %target < $+ %nick $+ > $mid($4-,2)
}
}
thanks