A TG007 community discussion started by Eaglenest25311.
I would like help finding an add on that will auto creat a room if I'm disconected or as MSN has done twice today to all chat, Closed the rooms, Would like it to recreat if room is no longer there, when I'm not there. I know there are add on's What is the best one out there that I should use? Thanks
Signed Clueless
Not sure if this is what you looking for but im not sure if it still works but you can try it. This is from Hybrid.
********************************************************************
;Original create room dialog and portions of code taken from Vincula by eXonyte.
;Disconnect code taken from Loon's submitions on XT forum.
on *:DISCONNECT: {
.timer.recon 1 4 recon
.timer.rejoin 1 10 rejoin
}
alias recon { msn.relookcon }
alias rejoin { $msn.recent(1,2) }
dialog room.recreate {
title "....:: Hybrid Room Re-Creator ::...."
size -1 -1 160 124
option dbu
icon Pictures\Msn.ico, 0
check "Join as a Guest", 31, 15 4 47 7
check "Create on the Groups servers", 32, 68 4 87 7
text "Name:", 11, 2 16 30 7, right
edit "", 21, 35 14 90 11, autohs
check "Hex", 2, 128 16 20 7
text "Password:", 12, 2 28 30 7, right
edit "", 22, 35 26 100 11, autohs limit 31
button "Random", 96, 135 26 25 11, flat
text "Category:", 13, 2 40 30 7, right
combo 23, 35 38 100 100, drop
text "Language:", 14, 2 52 30 7, right
combo 24, 35 50 100 100, drop
text "Locale:", 17, 2 64 30 7, right
combo 27, 35 62 100 100, drop
text "Topic:", 15, 2 76 30 7, right
edit "", 25, 35 74 100 11, autohs
text "User Limit:", 16, 2 88 30 7, right
edit "50", 26, 35 86 100 11
check "Enable Profanity Filter", 1, 35 99 100 7
button "OK", 99, 49 109 40 12, flat ok
button "Cancel", 98, 93 109 40 12, flat cancel
button "Current Room", 97, 3 105 27 16, flat multi disable
}
on *:DIALOG:room.recreate:init:*: {
if ($me ison $msn.get($cid,room)) { did -e $dname 97 }
didtok $dname 23 44 UL - Unlisted,GE - City Chats,CP - Computing,EA - Entertainment,EV - Events,GN - General,HE - Health,II - Interests,LF - Lifestyles,MU - Music,NW - News,PR - Peers,RL - Religion,RM - Romance,SP - Sports & Recreation,TN - Teens
didtok $dname 24 44 English,French,German,Japanese,Swedish,Dutch,Korean,Chinese (Simplified),Portuguese,Finnish,Danish,Russian,Italian,Norwegian,Chinese (Traditional),Spanish,Czech,Greek,Hungarian,Polish,Slovene,Turkish,Slovak,Portuguese (Brazilian)
didtok $dname 27 44 Australia - EN-AU,Austria - DE-AT,Belgium (Dutch) - NL-BE,Belgium (French) - FR-BE,Brazil - PT-BR,Canada (English) - EN-CA,Canada (French) - FR-CA,Denmark - DA-DK,Finland - FI-FI,France - FR-FR,Germany - DE-DE,Hong Kong S.A.R. - ZH-HK,India - EN-IN,Italy - IT-IT,Japan - JA-JP,Korea - KO-KR,Latin America - ES-LA,Malaysia - ML-MY,Mexico - ES-MX,Netherlands - NL-NL,New Zealand - EN-NZ,Norway - NO-NO,Spain - ES-ES,Singapore - ZH-SG,South Africa - ZH-TW,Sweden - SV-SE,Switzerland (French) - FR-CH,Switzerland (German) - DE-CH,Taiwan - ZH-TW,United Kingdom - EN-GB,United States (English) - EN-US,United States (Spanish) - ES-LA
roomrfsh
}
alias roomrfsh {
if ($msn.roompass($msn.get($cid,room))) { did -ra room.recreate 22 $msn.roompass($msn.get($cid,room)) }
else { did -ra room.recreate 22 $readini(recreate.ini, n, RECREATE, pass) }
did -ra room.recreate 21 $readini(recreate.ini, n, RECREATE, room)
did -ra room.recreate 25 $readini(recreate.ini, n, RECREATE, topic)
did -ra room.recreate 26 $gettok($readini(recreate.ini, n, RECREATE, mode),2,32)
if (f isin $readini(recreate.ini, RECREATE, mode)) { did -c room.recreate 1 }
if (%hybrid.msnopt == -c) || (%hybrid.msnopt == -cg) { did -c room.recreate 32 }
if (%hybrid.msnopt == -g) || (%hybrid.msnopt == -cg) { did -c room.recreate 31 }
if (!%hybrid.catstate) { did -c room.recreate 23 1 }
else { did -c room.recreate 23 %hybrid.catstate }
if (!%hybrid.langstate) { did -c room.recreate 24 1 }
else { did -c room.recreate 24 %hybrid.langstate }
if (!%hybrid.locstate) { did -c room.recreate 27 1 }
else { did -c room.recreate 27 %hybrid.locstate }
did -f room.recreate 11
}
on *:DIALOG:room.recreate:sclick:2: {
var %r
if ($did(2).state) {
if ($chr(37) $+ $chr(35) $+ * iswm $did(21)) %r = $did(21)
else %r = $chr(37) $+ $chr(35) $+ $msn.encode($replace($did(21),$chr(32),\b,$chr(44),\c))
did -ra $dname 21 $msn.tohex(%r)
}
else did -ra $dname 21 $msn.unhex($did(21))
}
on *:DIALOG:room.recreate:sclick:96: {
did -ra $dname 22
did -a $dname 22 $msn.pass
}
on *:DIALOG:room.recreate:sclick:97: {
set -u5 %getdata $true
if ($msn.roompass($msn.get($cid,room))) { did -ra room.recreate 22 $msn.roompass($msn.get($cid,room)) }
if (f isin $chan($msn.get($cid,room)).mode) { writeini recreate.ini RECREATE mode fl 100 }
else { writeini recreate.ini RECREATE mode l 100 }
prop $msn.get($cid,room) *
}
on *:DIALOG:room.recreate:sclick:99: {
if ($did(26) == $null) {
var %x $input(You must include a user limit for the room.,516,Need a User Limit)
did -f room.recreate 26
return
}
elseif ($did(22) == $null) {
var %x $input(You must include a password for the room.,516,Need a Password)
did -f room.recreate 22
return
}
elseif ($did(21) == $null) {
var %x $input(You must include a name for the room.,516,Need a Room Name)
did -f room.recreate 21
return
}
if ($chr(37) $+ $chr(35) $+ * iswm $did(21)) writeini recreate.ini RECREATE room $replace($right($did(21),-2),\b,$chr(32))
elseif ($did(2).state) writeini recreate.ini RECREATE room $replace($right($msn.unhex($did(21)),-2),\b,$chr(32))
else writeini recreate.ini RECREATE room $replace($did(21),\b,$chr(32))
if ($did(25) != $null) writeini recreate.ini RECREATE topic $did(25)
else writeini recreate.ini RECREATE topic -
if ($did(1).state == 1) writeini recreate.ini RECREATE mode fl $did(26)
else writeini recreate.ini RECREATE mode l $did(26)
writeini recreate.ini RECREATE pass $replace($left($did(22),31),$chr(44),.,:,.,$chr(32),$chr($r(33,255)))
writeini recreate.ini RECREATE guest $did(31).state
writeini recreate.ini RECREATE ser $did(32).state
writeini recreate.ini RECREATE cat $gettok($did(23),1,32)
writeini recreate.ini RECREATE loc $gettok($did(27),-1,32)
writeini recreate.ini RECREATE lang $did(24).sel
%hybrid.catstate = $did(23).sel
%hybrid.langstate = $did(24).sel
%hybrid.locstate = $did(27).sel
}
alias msnremake {
var %t, %m, %p, %r
%r = $chr(37) $+ $chr(35) $+ $msn.encode($replace($readini(recreate.ini, n, RECREATE, room),$chr(32),\b,$chr(44),\c))
if ($readini(recreate.ini, n, RECREATE, topic) != - ) %t = $chr(37) $+ $replace($readini(recreate.ini, n, RECREATE, topic),$chr(32),\b,$chr(44),\c)
else %t = -
%m = $readini(recreate.ini, RECREATE, mode)
%p = $readini(recreate.ini, n, RECREATE, pass)
%msnp.qkey. [ $+ [ $right($right(%r,-2),88) ] ] = %p
if ($readini(recreate.ini, RECREATE, ser) == 0) .sockwrite -tn msn.look.main CREATE $readini(recreate.ini, RECREATE, cat) %r %t %m $readini(recreate.ini, RECREATE, loc) $readini(recreate.ini, RECREATE, lang) %p 0
else sockwrite -tn msn.look.comm CREATE $readini(recreate.ini, RECREATE, cat) %r %t %m $readini(recreate.ini, RECREATE, loc) $readini(recreate.ini, RECREATE, lang) %p 0
if ($readini(recreate.ini, RECREATE, guest) == 1) && ($readini(recreate.ini, RECREATE, ser) == 0) %msnc.msnopt = -g
elseif ($readini(recreate.ini, RECREATE, guest) == 0) && ($readini(recreate.ini, RECREATE, ser) == 1) %msnc.msnopt = -c
elseif ($readini(recreate.ini, RECREATE, guest) == 1) && ($readini(recreate.ini, RECREATE, ser) == 1) %msnc.msnopt = -cg
%msnc.making = %r
}
raw 818:*: {
if (%getdata) && ($3 == Name) { writeini recreate.ini RECREATE room $replace($right($4,-2),\b,$chr(32)) }
if (%getdata) && ($3 == Language) {
writeini recreate.ini RECREATE lang $4
%hybrid.langstate = $4
}
if (%getdata) && ($3 == Topic) && ($4 == -) { writeini recreate.ini RECREATE topic $4- }
if (%getdata) && ($3 == Topic) && ($chr(37) isin $4) { writeini recreate.ini RECREATE topic $replace($right($4-,-1),\b,$chr(32),\c,$chr(44)) }
if (%getdata) && ($3 == Topic) && ($chr(37) !isin $4) { writeini recreate.ini RECREATE topic $replace($4-,\b,$chr(32),\c,$chr(44)) }
if (%getdata) && ($3 == Subject) {
writeini recreate.ini RECREATE loc $gettok($4,2,33)
if ($gettok($4,2,33) == $gettok($read(Location.txt, w,* $+ $gettok($4,2,33) $+ *),1,32)) { %hybrid.locstate = $readn }
}
if (%getdata) && ($3 == Subject) {
writeini recreate.ini RECREATE cat $gettok($4,3,33)
if ($gettok($4,3,33) == $gettok($read(Catagory.txt, w,* $+ $gettok($4,3,33) $+ *),1,32)) { %hybrid.catstate = $readn }
}
}
raw 819:*: {
if (%getdata) { roomrfsh }
}
;Do not edit this alias or it will mess up the auto updater
alias hybrid.rctver return 1.0
;By Rümßäär http://www.rumbaar.vze.com
Ok Kewl, I'll give it a try Thanks
XþloziOn
You Welcome Eagle. let me know if that thing works as i have never tried it.
Sorry it didn't work But I did find one in the arcives works but don't close the old status windows, and don't recreat the room if room is closed by Msn.
;Auto rejoin when disconnected - Vincula
;What makes this different to all other auto rejoin when disconnected?
;Answer: this rejoins all the rooms that you've been disconnected from.
;
;Pros:
; - It gets back into all the rooms you've been disconnected from.
;Cons:
; - Leaves twice as many status windows open [when you d/c, it doesn't replace status windows]
; - May not rejoin the first room you joined [glitches in the variable]
;
;Created by The Gate Keeper for Vincula Purposes Only
;Modifications are allowed to suite your needs and your connections
;Please leave credit somewhere though :D
;
;Note: This requires you to be disconnected from all chatrooms
;before it kicks in and starts rejoining again.
menu * {
-
Rejoin when Disconnect
.$iif(%msn.rjwd == on,$style(2)) Turn On : %msn.rjwd = on
.$iif(%msn.rjwd != on,$style(2)) Turn Off : unset %msn.rjwd
}
alias msn.arecon {
if (!$sock(msn.look.main)) || (!$sock(msn.look.comm)) msn.lookcon
elseif (!$gettok(%msn.gochans,1,32)) .timerrecon1 off
else msn $gettok(%msn.gochans,1,32)
}
on me:*:JOIN:#: {
if (%msn.rjwd == on) && (%msn.gochans) {
%msn.gochans = $remove(%msn.gochans,$right($chan,-2))
if ($remove(%msn.gochans,$chr(32)) == $null) unset %msn.gochans
else msn $iif(G_* iswm $gettok(%msn.gochans,1,32),-c $gettok(%msn.gochans,1,32),$gettok(%msn.gochans,1,32))
}
}
on *:START: unset %msn.gochans
on *:DISCONNECT: {
if (%msn.rjwd == on) {
var %l = 1
while ($scon(%l)) {
scid $ifmatch
if ($scid($ifmatch).status == connected) { break | return }
else var %x = %x $right($chan(1),-2)
scid -r | inc %l
}
%msn.gochans = %x | msn.arecon | .timerrecon1 20 10 msn.arecon
}
}
Found in MSN ADD ON Arcives
Can Ya Help?
If i'm not mistaken i think that addon might be on the MSHS site. Check their and if not go to their MSHS helproom.
;Created by The Gate Keeper for Vincula Purposes Only
i'm glade that you guys don't read the whole bit above all the coding.
I created it, it is not designed to recreate the room, just to rejoin it, it did work for me when i put it together, but others have reported that it hasn't worked for them, and i'm not sure why.
RE:EDITTED: I just tested my code using Vincula TG, it works fine but leaves the first status window for some reason or another, which is not the codes problem, only vincula's problem. Just make sure you check the box "Don't ask for my nickname..."
Otherwise it will sit there waiting for you to put in a nickname.
Yeah, I read it, I was just wondering if a code could be added to it to recreat a room also, and have it close status window if can't conect, Other wise it works great A good job at it too, Gate
Yeah I wonder if it can like make it open new room like if you do manualy and close and rejoin, like a command run myroom.htm , close it rejoin, a simple comand instead of bringing up a box to recreat the room ? any idea's
I can set the room url to something like this
http://chat.msn.com/chatroom.msnw?rm=!...en-us&newroom=1
Like that and have it open then close it and Join the room
I had something like that in my msn script .....i guess it would take some digging into my archives....we shall see
Sign in to reply or start a new topic where your account has permission.