Webmaster   Joined: 1970/1/1 From: Posts: 1 |
Re: Connecting a script ? Hi Kapster Each server will come with its own connection, in PHPBB WI & Paper8.1 there is a connection called Vincula-X all you have to do is load it into a bot like Hybrid and then configure the username and password, just make sure you set him as staff in the server. Here is the code that PK gave me from Chatzinc that I used to use for my own server before I wrote my own more secure system You will need to make several changes in this to work for your server and be aware this connection like your server are designed to be open systems and thus have very little security
; ######## ### ## ## ######## ###### ####### ## ## ## ##
; ## ## ## ## ### ## ## ## ## ## ## ## ### ## ### ##
; ## ## ## ## #### ## ## ## ## ## ## #### ## #### ##
; ######## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
; ## ## ######### ## #### ## ## ## ## ## ## #### ## ####
; ## ## ## ## ## ### ## ## ## ## ## ## ## ### ## ###
; ## ## ## ## ## ## ######## ###### ####### ## ## ## ## #
; RandConn - Ver 1.2 For Chattrz network
on *:START:{
if (%nick == $null) { set %nick $?="Enter your desired nickname:" }
else { $iif($?!="Your nickname is %nick Do you wish to keep this name?" == $false, set %nick $?="Enter your desired nickname:" ) }
if (%fontname == $null) && (%style == $null) && (%colcode == $null) { /font }
if (%guestkick == $null) { set %guestkick OFF }
if (%keychange == $null) { set %keychange OFF }
if (%profilmode == $null) { /gender }
echo -a Welcome to12 RandConn1 coded by12 edcase.1 Your nickname is12 %nick
echo -a -
echo -a To quickly join a channel type "/join" followed by the channel name (IRC Format).
echo -a Alternatively if you know the room's URL type "/linkjoin" followed by the link.
echo -a -
echo -a Right click in this window for more options
echo -a -
echo -a For help type /help
echo -a -
}
alias join {
window -ez @debug
if (%nick == $null) { set %nick $?="Enter your desired nickname:" }
if (!$1) || $+($chr(37),$chr(35),$chr(42)) !iswm $1) {
echo $active Use IRC format or type /fx2
halt
}
set %room $right($1,-2)
var %port 7776
while (!$portfree(%port)) { inc %port }
sockclose * $+ %room
socklisten local. $+ %room %port
if ($server) { server -m 127.0.0.1 %port }
if (!$server) { server 127.0.0.1 %port }
}
alias chattrz {
var %chat $iif($?!="Do you wish to use IRC format" == $true , $$?="Enter room name IRC Format" , $chr(37) $+ $chr(35) $+ $replace($$?="Enter room name Normal Format",$chr(32),\b))
/join %chat
}
alias backup {
sockwrite -tn $$1 IRCVERS IRC8 MSN-OCX!9.02.0310.2401
sockwrite -tn $$1 AUTH GateKeeper I :GKSSP\0
sockwrite -tn $$1 NICK %nick
if (%operac == on) {
sockwrite -tn $$1 PROP $ ROLE : $+ %poste %nick %passoper
}
if (%operac == off) {
sockwrite -tn $$1 PROP $ ROLE : $+ %profilmode
}
}
; edit your server name
on *:SOCKLISTEN:local*:{
sockaccept firstconn $+ $right($sockname,-5)
sockopen servconn $+ $right($sockname,-5) yourservername.com 6667
}
on *:SOCKCLOSE:firstconn*:{
sockclose * $+ $right($sockname,-10)
}
on *:SOCKREAD:firstconn*:{
var %r
sockread %r
tokenize 32 %r
echo @debug $sockname $+ : $1-
if (user == $1) {
halt
}
if (userhost == $1) {
halt
}
if (nick == $1) {
halt
}
if (part == $1) && (*,*,*,* iswm $2) {
halt
}
if (part == $1) && ($right($sockname,-10) == $right($2,-2)) {
sockclose * $+ $right($2,-2)
}
if ($sock(roomconn $+ $right($sockname,-9)) != $null) {
sockwrite -tn roomconn $+ $right($sockname,-9) $1-
}
}
on *:SOCKOPEN:servconn*:{
sockwrite -tn $sockname IRCVERS IRC8 MSN-OCX!9.02.0310.2401
sockwrite -tn $sockname AUTH GateKeeper I :GKSSP\0
sockwrite -tn $sockname NICK %nick
sockwrite -tn $sockname FINDS $+($chr(37),$chr(35),%room)
}
on *:SOCKREAD:servconn*:{
var %r
sockread %r
tokenize 32 %r
echo @debug $sockname $+ : $1-
if ($2 == 613) {
if ($sock(roomconn $+ $right($sockname,-8)) == $null) {
sockopen roomconn $+ $right($sockname,-8) $remove($4,:) $5
}
if ($sock(backup $+ $right($sockname,-8)) == $null) {
sockopen backup $+ $right($sockname,-8) $remove($4,:) $5
}
sockclose $sockname
}
}
on *:SOCKOPEN:roomconn*:{
sockwrite -tn $sockname IRCVERS IRC8 MSN-OCX!9.02.0310.2401
sockwrite -tn $sockname AUTH GateKeeper I :GKSSP\0
sockwrite -tn $sockname NICK %nick
if (%operac == on) {
sockwrite -tn $sockname PROP $ ROLE : $+ %poste %nick %passoper
}
if (%operac == off) {
sockwrite -tn $sockname PROP $ ROLE : $+ %profilmode
}
sockwrite -tn $sockname JOIN $+($chr(37),$chr(35),%room) %ownerkey. [ $+ [ %room ] ]
}
on *:SOCKOPEN:backup*:{
backup $sockname
}
; edit the PING to be your server name
on *:SOCKREAD:backup*:{
var %r
sockread %r
tokenize 32 %r
echo @debug $sockname $+ : $1-
if ($2 == 376) { sockwrite -tn firstconn $+ $right($sockname,-6) %servname PRIVMSG $+($chr(37),$chr(35),$right($sockname,-7)) $sockname socket opened. }
if ($1- == PING :chattrz) {
sockwrite -tn $sockname PONG :chattrz
}
}
on *:SOCKREAD:roomconn*:{
var %r
sockread %r
tokenize 32 %r
echo @debug $sockname $+ : $1-
if ($4-5 == -q $me) && ($remove($gettok($1,1,33),:) != $me) {
sockwrite -nt $sockname MODE $me +h %ownerkey. [ $+ [ $right($3,-2) ] ] $+ $lf $+ MODE $3 -q $remove($gettok($1,1,33),:) $+ $lf $+ ACCESS $3 clear OWNER $+ $lf $+ prop $3 OWNERKEY Randconn $+ $r(1000,9999)
}
if ($4-5 == +q $me) && ($me == $remove($gettok($1,1,33),:)) && (%pass) {
set %ownerkey. [ $+ [ $right($3,-2) ] ] %pass
unset %pass
}
if ($4-5 == +o $me) && ($me == $remove($gettok($1,1,33),:)) && (%pass) {
set %hostkey. [ $+ [ $right($3,-2) ] ] %pass
unset %pass
}
if ($4-5 == +q $me) && (%keychange == on) {
sockwrite -nt $sockname PROP $3 OWNERKEY Randconn $+ $r(1000,9999) $+ $lf $+ PROP $3 HOSTKEY Randconn $+ $r(1000,9999)
}
if ($1-3 == AUTH GateKeeperPassport *) {
set %mygate $4
}
if ($2 == PROP) {
/set % [ $+ [ $4 ] ] $+ . $+ $right($3,-2) $5 | sockwrite -tn firstconn $+ $right($sockname,-8) %servname PRIVMSG $3 $gettok($1,1,33) set the $4 property to12 $5
}
if (001 == $2) {
set %servname $1
}
if (321 == $2) {
channels
}
if (322 == $2) && ($5 isnum) && ($5 > 1) {
did -a channels 1 $+($chr(37),$chr(35),$replace($4, ,\b)) ( $+ $5 Users $+ )
}
if (004 == $2) {
return
}
if (889 == $2) {
echo $4 $3 $right($1,-1)
}
if (353 == $2) {
var %n = 1
var %h = $right($6-,-1)
var %list
while (%n <= $numtok(%h,32)) {
set %list %list $gettok($gettok(%h,%n,32),4,44)
inc %n
}
sockwrite -tn firstconn $+ $right($sockname,-8) %servname $2-5 $+(:,%list)
halt
}
if (JOIN == $2) {
sockwrite -tn firstconn $+ $right($sockname,-8) $1 $2 $4-
if ($gettok($3,4,44) != $null) {
sockwrite -tn firstconn $+ $right($sockname,-8) %servname MODE $right($4,-1) $+(+,$replace($gettok($3,4,44),.,q,@,o,+,v)) $right($gettok($1,1,33),-1)
}
}
if ($2 $4 == PRIVMSG :VERSION) {
NOTICE $remove($gettok($1,1,33),:) VERSION RandConn
halt
}
if ($2 == NOTICE) {
echo -a $remove($gettok($1,1,33),:) $replace($4-,$chr(1),$chr(32))
halt
}
if (PRIVMSG == $2) && (:S == $4) {
sockwrite -tn firstconn $+ $right($sockname,-8) $1 $2 $3 : $+ $left($6-,-1)
halt
}
if (KICK == $2) && ($4 == $me) {
var %sockend $right($sockname,-8)
sockclose $sockname
sockrename backup $+ %sockend roomconn $+ %sockend
sockwrite -nt roomconn $+ %sockend JOIN $3 %ownerkey. [ $+ [ $right($3,-2) ] ] $+ $lf $+ KICK $3 $remove($gettok($1,1,33),:) :RandConn Revenge $+ $lf $+ access $3 clear owner $+ $lf $+ prop $3 OWNERKEY Randconn $+ $r(1000,9999) | sockopen servconn $+ %sockend chattrz.ath.cx 6667
halt
}
if (821 == $2) {
echo -a $remove($gettok($1,1,33),:) has returned
}
if (822 == $2) {
echo -a $remove($gettok($1,1,33),:) is away
}
sockwrite -tn firstconn $+ $right($sockname,-8) $1-
}
alias hop {
var %end $right(#,-2)
var %ircend $replace(%end, ,\b)
sockclose roomconn. $+ %ircend
sockrename backup. $+ %ircend roomconn. $+ %ircend
sockwrite -nt roomconn. $+ %ircend JOIN $+($chr(37),$chr(35),%ircend) %ownerkey. [ $+ [ %end ] ] | sockopen servconn. $+ %ircend chattrz.ath.cx 6667
}
alias pass {
if ($1) { mode $me +h $1- | set -u5 %pass $1- }
else { set -u5 %pass $$input(Enter host or owner key:,130,Password Entry) | mode $me +h %pass }
}
alias qup {
mode $me +h %ownerkey. [ $+ [ $right(#,-2) ] ]
}
menu channel,status {
RandConn Options
.$iif($chan(0) != 0,$style(2)) $+ Change Nickname:set %nick $$?="new nick" |
.Join a room:/chattrz
.$iif($active == status window,$style(2)) $+ Get list of popular rooms:/list
.-
.$iif($active == status window,$style(2)) $+ Enter room pass:/pass
.-
.Guestkick is %guestkick
..Switch Guestkick on:/set %guestkick ON
..Switch Guestkick off:/set %guestkick OFF
.-
.Auto Pass Change %keychange
..Switch Pass change on:/set %keychange ON
..Switch pass change off:/set %keychange OFF
.$iif($me !isowner $chan,$style(2)) $+ Change keys
..Random Keys:/prop # ownerkey $r(10000,999999) | /prop # hostkey $r(10000,999999)
..Ownerkey:/prop # ownerkey $$?="new ownerkey"
..Hostkey:/prop # hostkey $$?="new hostkey"
.-
.$iif($active == status window,$style(2)) $+ Access
..$iif($me !isop $chan,$style(2)) $+ View Access List:/access # list
..$iif($me !isop $chan,$style(2)) $+ Clear Bans:/access # Clear Deny
..$iif($me !isop $chan,$style(2)) $+ Clear Host:/access # Clear Host
..$iif($me !isowner $chan,$style(2)) $+ Clear Owner:/access # Clear Owner
..$iif($me !isowner $chan,$style(2)) $+ Clear All Access:/access # Clear
.-
.$iif($me !isop $chan,$style(2)) $+ Change Modes:/mode # $$?="modes"
.$iif($me !isop $chan,$style(2)) $+ Change Limit:/mode # +l $$?="limit"
.$iif($me !isop $chan,$style(2)) $+ Change Topic:/prop # topic : $+ $$?="topic"
.$iif($me !isop $chan,$style(2)) $+ Change OnJoin:/prop # onjoin : $+ $$?="onjoin"
.-
.Get Socket Info:/fsock
.-
.Operators
..Connect as Oper:{
set %nick $?="Enter your oper nickname: (without the Admin, Sysop or Guide before it)"
if (%nick == $null ) halt
else {
set %poste $?="Enter what kind of oper you are: ( ex: Admin )"
set %passoper $?="Enter your oper password:"
}
if (%poste != $null) && (%passoper != $null) {
set %operac on
echo -s 4 Oper Connection is Active | halt
}
}
..Unset Oper Config { unset %poste | unset %passoper | set %operac off | echo -s - | echo -s 10Oper Connection Disabled | echo -s - }
}
menu nicklist {
. Decode Nick - $nickdecode($$1):echo -a $$1 - $nickdecode($$1)
-
.$iif($me !isowner $chan,$style(2)) $+ Owner :/mode $chan +q $$1
.$iif($me !isowner $chan,$style(2)) $+ De-Owner :/mode $chan -q $$1
.$iif($me !isop $chan,$style(2)) $+ Host :/mode $chan +o $$1
.$iif($me !isop $chan,$style(2)) $+ De-Host :/mode $chan -o $$1
.$iif($me !isop $chan,$style(2)) $+ Participant :/mode $chan +v $$1
.$iif($me !isop $chan,$style(2)) $+ Spectator :/mode $chan -v $$1
-
.$iif($me !isowner $chan,$style(2)) $+ Add to access as Owner: access $chan add owner *! $+ $$ial($1 $+ *,1).addr 0 : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT)
.$iif($me !isop $chan,$style(2)) $+ Add to access as Host: access $chan add host *! $+ $$ial($1 $+ *,1).addr 0 : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT)
.$iif($me !isop $chan,$style(2)) $+ Add to access as Participant: access $chan add voice *! $+ $$ial($1 $+ *,1).addr 0 : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT)
.$iif($me !isop $chan,$style(2)) $+ Add to access as Grant: access $chan add grant *! $+ $$ial($1 $+ *,1).addr 0 : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT)
-
.$iif($me !isop $chan,$style(2)) $+ kick $$1
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ kick Disruption:kick # $$1 Disruptive Behaviour.
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ kick Profanity:kick # $$1 Using Profanity in the Chatroom.
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ kick Scrolling:kick # $$1 Excessive Scrolling.
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ kick Custom:kick # $$1 $$?="enter reason"
-
.$iif($me !isop $chan,$style(2)) $+ Ban $$1
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ Ban 15:/access # add deny $puttok($ial($$1),$chr(42),1,33) 15 : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT) | kick # $$1 $$?="reason" (15 Minute Ban.)
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ Ban Custom:/set %bantime $$?="bantime minutes" | /set %reason $$?="reason" | /access # add deny $puttok($ial($$1),$chr(42),1,33) %bantime : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT) ( $+ %reason $+ ) | kick # $$1 %reason ( $+ %bantime Minute Ban.)
..$iif($me !isowner $chan && $$1 isowner $chan,$style(2)) $+ Ban Indefinate:/access # add deny $puttok($ial($$1),$chr(42),1,33) 0 : $+ $me added $1 - $asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT) | kick # $$1 $$?="reason" (Banned.)
-
.CTCP $$1
..Ping:/ctcp $$1 PING
..Time:/privmsg $$1 TIME
..Version:/privmsg $$1 VERSION
..Finger:/privmsg $$1 FINGER
}
alias gender {
$iif($?!="Are you male" == $true,set %profilmode PROFILMODE3,set %profilmode PROFILMODE4)
echo -a Gender set to $iif($right(%profilmode,1) == 3,Male,Female)
}
alias F5 {
/access # list
}
alias F12 {
/access # clear
}
alias fixmodes { /mode # -s | /mode # -u | /mode # -i | /mode # -k | mode # -p | /mode # -m | /mode # -w | /mode # +n | /mode # +t | mode # +l 50 }
on *:INPUT:#:{
if ($left($1-,1) != /) {
if (%fontname) && (%style) && (%colcode) { /privmsg # S %colcode $+ $chr(%style) $+ %fontname $1- $+ }
else { /privmsg # S \rComic\bSans\bMS;0 $1- $+ }
echo # $me : $1-
halt
}
}
on *:JOIN:* {
if (chattrz_gues* iswm $nick) && (%guestkick == on) && ($me isop #) { kick # $nick No guests allowed. Please register or sign in. }
}
raw 803:* {
window @access
echo @access 12Access List
echo @access 1 $+ $chr(160)
}
raw 804:* {
echo @access Access Type :12 $3
echo @access On User :12 $4
echo @access Duration :12 $iif($5 == 0,Indefinate,$5 Minutes)
echo @access Set By :12 $6
if ($7) { echo @access Using Tag :12 $7- }
echo @access 1 $+ $chr(160)
}
raw 805:* {
echo @access 12Access End
}
alias nickdecode {
var %r, %l 1
%r = $replace($1-,ï?,B,ï? ,-,ï?>,-,ï??,-,ï?,-,ï?,E,ï?,C,ï,A,ï?,R,ï?,K,ï¹,y,ïº?,i,ïº?,s,דּ,t,טּ,u,ï»?,e,ï«,k,ï?,F,ïµ,u,ï§,g,Χ,X,ï?¾,>,ï?¥,$chr(37),ï?¸,8,ï¤,d,ï,m,ï¨,h,ï»?,s,ï?,G,ï,M,ï¬,l,ï³,s,ï?,_,ï?,T,ï²,r,ï¡,a,ï®,n,ï£,c,ï¥,e,ï?,N,ï¡,a,ï´,t,ï©,i,ï¯,o,ï®,n,ï¦,f,ï·,w,ï?,\,ï¼,|,ï?,@,ï,P,ï?,D,ï?§,',ï? , ,ï?¨,$chr(40),ï?©,$chr(41),ï?ª,*,ï?º,:,ï?,[,ï,],ï°,p,ï?®,.,̼,_)
%r = $replace(%r,ή,n,Å?,n,Ω,n,»·,y,Ñ?,p,Ð ,P,Å?,r,Ñ?,x,Ä®,I,Ä»,L,Ф,o,Ä?,C,Å,o,Å©,u,Å?,n,Ä¢,G,Å?,r,Å?,s,Ä·,k,Å?,R,×?,i,ε,e,ק,r,Ñ?,h,м,m,Ø?,·,Ä«,i,â??,?,â??,?,Û±,',Ä?,e,¢,¢,ï?,S,â?¢,?,ï,O,ï?,I,Î?,A,Ñ?,b,?Ï,T,Φ,o,Ð?,b,Ñ,r,Ð,E,д,A,Ð?,K,Ä?,D,и,n,θ,o,Ð?,M,Ð?,I,Т,T,Ð?,e,Ǻ,A,ö,ö,ä,ä,â??,?,·,·,Ã?,Ö,Ã?,Ü,Ã?,Ë,Ñ?,s,Ä?,a,Ä,i,й,n,в,b,о,o,Ñ?,w,Ä?,G,Ä?,d,з,e,Ŧ,T,α,a,Ä?,g,ú,ú,Å?,R,Ä?,A,Ä?,c,Ä,Ð,Î?,K,Ñ?,y,µ,µ,Ã,Í,â?¹,?,¦,¦,Ã?,Õ,Ã?,Ù,Ã?,À,Î ,N,Ò?,f,ΰ,u,Ä¿,L,Å,o,Ï?,c,Ä?,c,ħ,h,į,i,ŧ,t,Î?,Z,Ã?,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,?,Ã?,Ç, $+ $chr(173),-,Ã,Á,â?¦,?,¨,¨,ý,ý,Ë?,¯,â?,?,Ã?,Û,ì,ì,Ï,p,Î,e,г,r,à ,à,Ã?,È,¼,¼,ĵ,j,ã,ã,Ä?,e,Å?,s,º,º,Ã?,Ñ,ã,ã,Ã?,Æ,Ë?,°,Я,R,Ë?,?,Ã?,Î,Ã?,Ê,Ã,Ý,Ã,Ï,Ã?,É,â?¡,?,Ã?,Ì,ª,ª,ó,ó,â?¢,?,Ã?,Ò,Ã,í,¿,¿,Ã?,Ä,¶,¶,ü,ü,Æ?,?,ð,ð,ò,ò,õ,õ,¡,¡,é,é,Ã?,ß,¤,¤,Ã?,×,ô,ô,Å ,?,ø,ø,â?º,?,â,â,î,î,â?¬,?,Å¡,?,ï,ï,ÿ,ÿ,Å?,N,©,©,®,®,û,û,â? ,?,°,°,§,§,±,±,²,²,è,è)
%r = $replace(%r,Ƥ,P,Ï?,X,Å?,N,Û°,·,Ä´,J,Ð?,I,Σ,E,ι,i,Å,O,δ,o,×¥,y,ν,v,×¢,y,×?,n,Ž,?,Å?,o,Ä?,C,Ä?,e,â?¤,L,Å?,O,ά,a,Ä ,G,â?¦,O,Ð,H,á»?,e,ẵ,a,Ð?,K,á»,e,ế,e,á»?,o,Å«,u,â?£,F,â??,a,Ắ,A,ủ,u,Ķ,K,Ť,T,Å?,S,Î?,O,Ш,W,Î?,B,Ð?,N,áº?,w,ﻨ,i,ﯼ,s,Ñ?,u,Ñ?,h,¹,¹,Ỳ,Y,λ,a,С,C,Ð $+ $chr(173),E,Å°,U,Ī,I,Ä,c,Ä?,E,Å?,S,á»?,I,Ä,g,Å?,l,Ñ?,i,Ù,*,Å?,n,Ħ,H,Ð?,A,Î?,M,Ñ?,e,Ц,U,Ñ,e,â??,?,Ñ?,o,Ñ?,y,Ñ,c,к,k,Ã?,Å,â??,R,ï ?,I,ɳ,n,Ê?,c,â?«,·,Ñ?,r,á»?,e,ắ,a,ẳ,a,ů,u,Ľ,L,Æ°,u,Î?,·,Ë?,',η,n,â??,l,Â,,Â,,Â,,×?,i,Ä¡,g,Å´,W,Î?,A,ï®?,J,μ,µ,Ÿ,?,Ä¥,h,β,ß,Ь,b,ų,u,Ñ?,e,Ï?,w,Ä?,C,Ñ?,i,Å?,l,Ç¿,o,â?«,l,ż,z,Å£,t,æ,æ,â??,=,Å,L,Å?,n,Ú¯,S,Ä,d,Ï?,w,Ï?,o,Ä£,g,Î?,H,Î,i,Ò?,r,κ,k,Å?,N,?,\,ï?¯,/,¬,¬,Ñ?,w,Û?,o,×,o,³,³,½,½,Ä°,I,ľ,l,Ä?,e,Å¢,T,Å,s,Å·,y,ľ,l,Ä©,i,Ã?,Ô,Å?,S,Ĺ,L,а,a,е,e,Ρ,P,Ð?,J,Î,N,Ç»,a,Ñ?,h,ί,l,Å?,?,¯,¯,Ä,a,ŵ,w,Ã?,Â,Ã?,Ã,н,H,Ë?,',¸,¸,Ì£,$chr(44),Ø·,b,Ã?,Ó,Ð?,N,«,«,ù,ù,Ã?,Ø,ê,ê)
%r = $replace(%r,ا,I,л,n,Ñ?,bl,б,6,ש,w,â??,-,Ϊ,I,ï ,`,Å,u,á»?,o,Ǿ,Ø,ẫ,a,ầ,a,ï±,q,áº?,W,Ĥ,H,á»,o,â??,-,ï?,^,ล,a,Ä?,G,ﺯ,j,Ù?,s,Ð?,r,ứ,u,â?,·,Ï,u,ï?°,0,ï?·,7,ï?¢,",Ó©,O,Ç,i,Ç?,O,Æ ,O,ï?²,2,Ò¯,y,ï¶,v,Ð,A,â?¤,<,â?¥,>,ẩ,a,ï?,H,Ù¤,e,ïº?,i,Ð?,K,Ū,U,ï?»,;,Ä?,a,ĸ,k,Ä?,C,Ĭ,I,Å?,n,Ĩ,I,Î?,I,Ϋ,Y,ï?,J,ï?,X,ï½,$chr(125),ï»,$chr(123),Î?,E,Ë?,^,ï?,V,ï?,L,γ,y,ïº?,i,Î,o,ỳ,y,Ä?,C,Ĭ,I,ĸ,k,Ŷ,y,à¹?,c,ỡ,o,à¹?,m,ïº?,i,ï?,G,Ŭ,U,Ä?,E,Ä?,A,÷,÷, , ,â??,?,â??,?,Ë?,?,â?°,?,Ä?,a,ï¸,x,ï?½,=,Ù?,J,ï?¿,?,,-,â??,o,Ñ?,T,Ä?,A,ï?,P,Ä?,E,Ä?,E,ο,o,Ï?,u,â?¼,!!,×?,u,ï®?,S,Ч,y,Ò,r,Ä?,e,Ä?,E,ĺ,I,Î?,a,ο,o,Ã?,Ú,Å?,R,Ư,U,Å?,?,ï?,-,â??,?,ห,n,ส,a,à¸,g,Ψ,Y,Ẫ,A,Ï?,n,Å?,N,Ø!,o,Ð?,h,ợ,o,Ä?,c,â?¦,·,ï®?,S,Ų,U,Ð?,E,Ð?,S,Ûµ,o,Ù?,S,ب,u,Ø©,o,ئ,s,ļ,l,ı,i,Å?,r,ж,x,Î?,",Ï?,w,â?ª,·,ζ,l,Щ,W,฿,B,ỹ,y,Ï?,i,Å¥,t,п,n,´,´,Ú©,s,ï±¢,*,ξ,E,Ñ?,k,â??,v,Ï?,t,Ã,Ð,£,£,ñ,ñ,Â¥,¥,ë,ë,Ã¥,å,ï?,Y,Ç?,a)
%r = $replace(%r,ằ,a,â??, ,Î?,O,â?ª,n,Ậ,A,ï?£,£,ï? ,à,ï?®,®,ï?¡,á,ï?©,©,ï?µ,õ,á»,o,â?, ,Ö±,¸,Ö¾,-,הּ,n,ź,z,â??, ,Ù,',à¹?,c,à¸?,m,Â,,ï?¼,<,â?¼,v,ï»?,S,â?®,e,ź,z,áº,a,à¹?,a,ï¬,fi,Ñ?,b,ïº?,.,ïº?,:,ศ,a,ภ,n,à¹,o,ะ,=,ï?,y,à¸?,i,â?¾,¯,â??,a,ï¼?,:,â? ,=,ï?«,+,Ù?,r,á»?,o,Ử,U,Ð?,N,Ó?,A,á»?,O,áº?,W,á»´,Y,ïº?,u,ﺬ,i,ïº,u,Å»,Z,ï®?,S,ﺳ,w,ﯽ,u,ﺱ,uw,ï»?,J,ïº?,a,ï?¡,!,á»?,e,Ù?,J,ر,j,Ù?,_,Ï?,o,â?«,d,â??,no,ữ,u,Ä?,E,Ï?,o,ï» ,I,Ñ?,u,ï??,Å,ï??,N,Ð?,H,Î?,E,ï¾,~,ï?,U,ạ,a,ï?±,1,ï?´,4,ï?³,3,á»?,i,Î?,E,Ð,U,Ù?,J,â??,*,ï¢,b,ï?£,$chr(35),ï?¤,$,â??,o,Ñ?,10,ỵ,y,áº,w,Ò?,k,Ù¿,u,â??,o,ï?,n,Ù¥,o,ï®,S,â¿,n,ï»?,9,ï¢,b,ï?£,$chr(35),ï?¤,$,â??,o,Ñ?,10,á»?,i,Î?,A,â??, ,ﻩ,o,ï»,E,Ù?,u,ẽ,e,Ø«,u,ã??,t,Ó?,e,Ó?,E,ï»?,o,Û·,v,שׁ,w,ụ,u,Å?,O,Â,,á»±,u,Ｊ,J,ï½?,e,ï½,a,ï¼®,N,ï¼?,$chr(40),ï¼ ,@,ï½?,`,ï¼?,.,â?²,',ï¼?,$chr(41),â?¬,-,â??,<,â?º,>,â??,E,Ö»,$chr(44),â?¬,|,â??,|,â?ª,|,â?«,|,á»?,O,Ð?,N,ï?,W,ïº,z)
%r = $replace(%r,ס,o,â?³,X,Ù ,·,Ò?,F,Ï?,u,â?,,Ö¼,·,Ç?,u,à¸?,w,Ằ,A,Ấ,A,»,»,ïº?,u,á»?,o,ï®?,S,á»?,o,ïº?,u,ï®?,S, Ò?,K,â?¦,·,â??,_,ï»?,b,ฬ,w,אּ,x,ï?,-,à¸?,u,à¸?,n,á»?,O,Ặ,A,á»,u,á»?,E,ਹ,J, Ù?,o,â? ,·,Æ¡,o,ï¿,,Ò£,h,Ò?,K,Ò²,X,Ò³,x,Ò?,K,ع,E,Ú?,c,Ñ?,y,Ð¥,X,Ù¦,7,Ö½,.,Ù?,',Ö¿,',×?,:,á»,o,Ò?,X,Û?,s,ฬ,w,â??,·,Τ,T,â??,c,â?,a,â??,p,â??,e,â?£,t,Ç,A,Ð¥,X,Ö³,.,Û?,s,á»?,I,Ì?,',ï?,Z,á»,o,ẹ,e,Ò,k,ïº?,u,á»?,o,ï®?,S,á»?,o,ïº?,u,Ò?,K,ï?,Z,Ì?,',â??,|,â?¤,|,Ø£,I,Â?,,×,x,ặ,a,Ç?,o,á»?,O,â?¼,¤,×,.,ï?,Z,ฤ,n,â?·,4,â?µ,2,â?ª,0,à¹?,i,â?»,?,â? ,|,â?¦,n,å,?,ấ,a,ï?¬,?,Ð?,3,Ẵ,A,Ð?,y,Ź,Z,Î?,',À¨,$chr(40),À©,$chr(41),×?,n,á»?,O,á»?,O,à¹?,',à¹,g,Ð?,B,ã?,[,ã??,],ï½?,s,ï½,m,ï½,o,ï½?,k,ï½?,w,ï½?,d,Ũ,U,ï?,Q,â?¨,|,Ẩ,A,Ẽ,E,Ö¸,¸,à¸?,s,Ù?,g,з,e,ظ,b,ﺸ,?,Ð?,b,ï-,m,ﻲ,?,Ù¾,u,غ,e,Ẩ,A,ẻ,e,Ò¹,y,à¸?,u,ฯ,-,×?, ,ï??,-,ï?,Ð,ï?«,ë,ת,n,Ù§,V,Ợ,O,Û,I,Û?,O,Û©,O,ű,u)
hadd -m decoder %r $1-
return %r
}
raw 306:* {
echo -a $me is away
}
raw 305:* {
echo -a $me has returned
}
alias linkjoin {
/join $+($chr(37),$chr(35),$replace($gettok($iif($1,$1,$$?="paste room link here"),2-,61),$chr(43),\b,$+($chr(37),2B),$chr(43),$+($chr(37),24),$chr(36),$+($chr(37),26),$chr(38),$+($chr(37),5E),$chr(94),$+($chr(37),28),$chr(40),$+($chr(37),29),$chr(41),$+($chr(37),5B),$chr(91),$+($chr(37),5D),$chr(93),$+($chr(37),3B),$chr(59),$+($chr(37),3A),$chr(58),$+($chr(37),AC),$chr(172),$+($chr(37),60),$chr(96),$+($chr(37),A6),$chr(166),$+($chr(37),3D),$chr(61),$+($chr(37),7E),$chr(126)))
}
dialog fsock {
title "Sock Box"
size -1 -1 114 107
option dbu
list 1, 3 8 64 95, sort size
button "&Get Info", 20, 69 9 37 12
button "&Close", 21, 69 90 37 12, default ok
button "Close &Sock", 23, 69 37 37 12
button "&Refresh", 22, 69 23 37 12
box "Socket Lists:", 90, 1 0 110 106
}
dialog fsockmin {
title "Socket Information"
size 20 200 112 145
option dbu
box "Socket Info:", 90, 3 4 106 122
text "Name:", 1, 6 17 16 8
text "Port:", 2, 6 51 11 8
text "IP:", 3, 6 39 7 8
text "Bytes Sent:", 4, 6 64 27 8
text "Bytes Rcvd:", 5, 6 76 29 8
text "Last Sent Data:", 6, 6 101 40 8
text "Type:", 7, 6 28 14 8
text "Connection Time:", 8, 6 113 42 8
text "", 11, 54 17 50 8, right
text "", 12, 79 29 25 8, right
text "", 13, 63 40 41 8, right
text "", 14, 64 65 40 8, right
text "", 15, 64 77 40 8, right
text "", 16, 56 89 48 8, right
text "", 17, 56 101 48 8, right
text "", 18, 60 113 44 8, right
button "Close", 20, 71 130 37 12, default ok
text "Last Rcvd Data:", 9, 6 89 39 8
text "", 10, 62 68 0 8
text "", 19, 66 52 38 8, right
button "Refresh", 21, 3 130 37 12
}
alias fsock if ($dialog(fsock) == $null) { dialog -m fsock fsock }
alias -l fsock.list { var %i = 1 | did -r fsock 1 | while (%i <= $sock(*,0)) { did -a fsock 1 $sock(*,%i) | inc %i } }
alias -l fsock.inf {
var %tmp = $1, %tmp2 = fsock.sock. $+ %tmp, %tmp3 = did -a %tmp2
if ($sock(%tmp)) {
$iif($dialog(%tmp2),goto x,dialog -m %tmp2 fsockmin) | :x | %tmp3 11 $sock(%tmp).name | %tmp3 12 $sock(%tmp).type | %tmp3 13 $sock(%tmp).ip | %tmp3 14 $sock(%tmp).sent | %tmp3 15 $sock(%tmp).rcvd
%tmp3 17 $duration($sock(%tmp).ls) | %tmp3 16 $duration($sock(%tmp).lr) | %tmp3 18 $duration($sock(%tmp).to) | %tmp3 19 $sock(%tmp).port
}
}
on *:DIALOG:fsock:init:*: { fsock.list }
on *:DIALOG:fsock:sclick:*: {
if ($did == 20) { fsock.inf $did(fsock,1).seltext }
if ($did == 22) { fsock.list }
if ($did == 23) { if ($did(fsock,1).seltext) { sockclose $did(fsock,1).seltext | fsock.list } }
}
on *:DIALOG:fsock.sock.*:sclick:*: {
if ($did == 21) { fsock.inf $gettok($dname,3,46) }
}
dialog channels {
title "List of Chatrooms"
size -1 -1 264 157
option dbu
list 1, 3 8 214 145, sort size
button "JOIN", 21, 219 140 37 12, default ok
box "Chans:", 90, 1 0 260 156
}
alias channels { dialog -m channels channels }
on *:DIALOG:channels:sclick:*: { if ($did == 21) { /join $gettok($did(channels,1).seltext,1,32) } }
dialog font {
title "Font Setup"
size -1 -1 181 107
option dbu
list 1, 3 8 64 95, sort size
list 2, 113 8 64 95, sort size
button "Save Font", 21, 72 90 37 12, default ok
check "Bold", 12 , 74 70 20 12
check "Itallic", 13 , 74 50 25 12
check "Underline", 14 , 74 30 32 12
box "Colours:", 90, 1 0 69 106
box "Fonts:", 91, 111 0 69 106
}
alias font { dialog -m font font }
alias getcol {
did -a font 1 White
did -a font 1 Black
did -a font 1 Dark Red
did -a font 1 Dark Green
did -a font 1 Dark Blue
did -a font 1 Dark Yellow
did -a font 1 Purple
did -a font 1 Teal
did -a font 1 Light Grey
did -a font 1 Dark Grey
did -a font 1 Red
did -a font 1 Green
did -a font 1 Blue
did -a font 1 Yellow
did -a font 1 Pink
did -a font 1 Cyan
}
on *:DIALOG:font:init:*: { getcol | getfont | set %style 1 | unset %fontclick* }
on *:DIALOG:font:sclick:*: {
if ($did == 21) {
set %colcode $replace($did(font,1).seltext,white,$chr(1),black,$chr(2),dark red,$chr(3),dark green,$chr(4),dark blue,$chr(5),dark yellow,$chr(6),purple,$chr(7),teal,$chr(8),light grey,$chr(9),dark grey,\n,red,$chr(10),green,$chr(11),blue,\r,yellow,$chr(14),pink,$chr(15),cyan,$chr(16))
set %fontname $replace($did(font,2).seltext,$chr(32),\b) $+ ;0
unset %fontclick*
}
if ($did == 12) {
if (%fontclickbold == 1) {
dec %style 1
unset %fontclickbold
halt
}
else {
inc %style 1
set %fontclickbold 1
}
}
if ($did == 13) {
if (%fontclickital == 1) {
dec %style 2
unset %fontclickital
halt
}
else {
inc %style 2
set %fontclickital 1
}
}
if ($did == 14) {
if (%fontclickul == 1) {
dec %style 4
unset %fontclickul
halt
}
else {
inc %style 4
set %fontclickul 1
}
}
}
alias getfont {
did -a font 2 MS Reference Sans Serif
did -a font 2 Verdana
did -a font 2 Vrinda
did -a font 2 Trebuchet MS
did -a font 2 Monotype Corsiva
did -a font 2 Gautami
did -a font 2 Book Antiqua
did -a font 2 Tunga
did -a font 2 MV Boli
did -a font 2 Georgia
did -a font 2 Arial
did -a font 2 Tahoma
did -a font 2 MS Outlook
did -a font 2 Franklin Gothic Medium
did -a font 2 Arial Narrow
did -a font 2 Times New Roman
did -a font 2 Palatino Linotype
did -a font 2 Garamond
did -a font 2 Arial Black
did -a font 2 Sylfaen
did -a font 2 Lucida Sans Unicode
did -a font 2 Kartika
did -a font 2 Bookman Old Style
did -a font 2 Symbol
did -a font 2 Mangal
did -a font 2 Latha
did -a font 2 Bookshelf Symbol
did -a font 2 MS Reference Specialty
did -a font 2 Marlett
did -a font 2 Century Gothic
did -a font 2 Comic Sans MS
did -a font 2 Shruti
did -a font 2 Microsoft Sans Serif
did -a font 2 Impact
did -a font 2 Courier New
did -a font 2 Webdings
did -a font 2 Estrangelo Edessa
did -a font 2 Wingdings
did -a font 2 Lucida Sans
did -a font 2 Lucida Console
did -a font 2 Raavi
}
alias help {
window @help
aline @help -
aline @help -
aline @help Welcome to 12RandConn 1by 12edcase 1('Sysop_Random)
aline @help -
aline @help -
aline @help Please note that this is a connection and not a full script.
aline @help Feel free to add anything you like to it, or send it to your friends.
aline @help But please dont try to pass it off as your own.
aline @help -
aline @help It is designed for use on the chattrz network.
aline @help -
aline @help -
aline @help 12/join 1must be followed by roomname in 12IRC format
aline @help To join a room called 12"A Chatroom" 1you could either type 12/join $chr(37) $+ #A\bChatroom
aline @help You 12add $chr(37) $+ $chr(35) to the start and replace spaces with \b 1(This is referred to as IRC Format)
aline @help -
aline @help An alternative way to 12join 1is to type 12/chattrz
aline @help If you type 12/chattrz 1you will be asked whether you wish to use IRC Format.
aline @help If you reply 12NO, 1you will be prompted to enter the roomname in12 Normal Format 1- 12"A Chatroom"
aline @help -
aline @help The final way to join a channel is to use 12/linkjoin 1followed by the room's 12URL.
aline @help If you type 12/linkjoin 1on its own you will be prompted for the link.
aline @help For example to 12join the Helpdesk 1the 3 ways to join would be:
aline @help /join $chr(37) $+ $chr(35) $+ Helpdesk
aline @help /chattrz -> click NO -> Helpdesk
aline @help /linkjoin http://www.chattrz.com/rdc/chat1/chatroom.php?channel=Helpdesk
aline @help -
aline @help -
aline @help To change your 12Font 1type 12/Font
aline @help -
aline @help -
aline @help 12/pass 1is used to enter the room 12hostkey 1or 12ownerkey
aline @help -
aline @help -
aline @help 12/qup 1is used to make the script owner itself 12if 1it knows the 12ownerkey.
aline @help It will know the ownerkey if it has seen a 12pass change, 1or if you entered it at some stage using the 12/pass 1command.
aline @help If the script "knows" the pass it will 12ALWAYS join as owner.
aline @help -
aline @help -
}
|
