general

once i downloaded a script for scn chat which had option to save roomlist in a .ini or .txt file and then another option jo join all rooms which are saved in file by clicking "JOIN ALL" button. but i lost that script and codes as well..........latters i edit another codes as following menu channel { -=[ AutoJoin ]=- .$iif($readini(rooms.ini,Rooms,#),Remove,Add) Room: $iif($readini(rooms.ini,Rooms,#),remini,writeini -n) rooms.ini Rooms # $iif(!$readini(rooms.ini,Rooms,#),$true) View Rooms ..$iif($ini(rooms.ini,Rooms,1),1. $ini(rooms.ini,Rooms,1)):join $ini(rooms.ini,Rooms,1) ..$iif($ini(rooms.ini,Rooms,2),2. $ini(rooms.ini,Rooms,2)):join $ini(rooms.ini,Rooms,2) ..$iif($ini(rooms.ini,Rooms,3),3. $ini(rooms.ini,Rooms,3)):join $ini(rooms.ini,Rooms,3) ..$iif($ini(rooms.ini,Rooms,4),4. $ini(rooms.ini,Rooms,4)):join $ini(rooms.ini,Rooms,4) ..$iif($ini(rooms.ini,Rooms,5),5. $ini(rooms.ini,Rooms,5)):join $ini(rooms.ini,Rooms,5) ..$iif($ini(rooms.ini,Rooms,6),6. $ini(rooms.ini,Rooms,6)):join $ini(rooms.ini,Rooms,6) ..$iif($ini(rooms.ini,Rooms,7),7. $ini(rooms.ini,Rooms,7)):join $ini(rooms.ini,Rooms,7) ..$iif($ini(rooms.ini,Rooms,8),8. $ini(rooms.ini,Rooms,8)):join $ini(rooms.ini,Rooms,8) } though limit can be increased ....but this is manual procedure and i have to do it manually.... i want to do now.... on type /list room names should also be saved in .ini or .txt file...and on admin type !join all.... all the rooms must be joined which are saved in .inf or .txt file... if it is possible do tell me how...? thanx

Hard to get these things ...... to retrive the room access by command im using following codes... On Level5:TEXT:!chk*:#:{ msg # ( Finding Access Entries For $msn.get($cid,fullroom) ) enable #acms access $chan } #acms off raw 804:*:{ set %acn $calc(%acn + 1) | amsg # ( .: $+ %acn $+ :. $3 for $+ $4 $+ ) } raw 805:*:{ amsg # ( End Of Access Entries ) | unset %acn | disable #acms } raw 804:*:{ set %acn $calc(%acn + 1) | amsg # ( .: $+ %acn $+ :. $3 for $+ $4 $+ ) } raw 805:*:{ amsg # ( End Of Access Entries ) | unset %acn | disable #acms } #acms end Now tell me how it wud save in .ini file by typing command and then reload to script if it is lost? Can u please make these two commands ?

;Export - $2 $3 : $+ $5- on *:DIALOG:msn.access*:sclick:16: { var %a, %x $dname, %l $calc($hget(%x,num) - 1), %f access- $+ $mkfn($active) $+ .txt if ($isfile($scriptdir $+ %f)) .remove " $+ $scriptdir $+ %f $+ " while (%l >= 1) { %a = $hget(%x,%l) write " $+ $scriptdir $+ %f $+ " $gettok(%a,1-3,32) : $+ $gettok(%a,5-,32) dec %l } %f = $input(Access list was saved successfully to: $+ $crlf $+ %f ,68,Access saved) } ;Import on *:DIALOG:msn.access*:sclick:17: { var %f " $+ $$sfile($scriptdir $+ *.txt,Choose a saved access list to import,Import) $+ " if ($hget(msn.accimp)) { echo $color(info2) -at * Please wait, already importing a access list return } hmake msn.accimp 3 hload -n msn.accimp %f %msnt.accimp = 1 did -rab $dname 1 Importing Access list, please wait... did -r $dname 4 .timer. $+ msn.accimp -m 0 500 msn.accimport msn.accimp } alias msn.accimport { if ($hget($1,%msnt.accimp) == $null) { if ($dialog(msn.access)) { did -ra msn.access 1 Retrieving Access list... access $active } .timer. $+ $1 off unset %msnt.accimp hfree $1 } else { access $active ADD $remove($hget($1,%msnt.accimp),ï»؟) inc %msnt.accimp } } i paste these codes from accesslist......and it finctions as on *:DIALOG:msn.access*:sclick:17: though it works cool but i want to do same by just typing command if im added admin level in sceipt... i tried to make it work ..but i culdnt ...if you can help with this please?

Lol .. yea codes i posted not allow there.....but i did not know this :$

Well can you tell me who can help me with this problem? as SCN-CHAT official forum is not working ..so i need someone who can realy solve this issue ...thanks

Well Mode +b is working at SCN chat server ...and im using this code in my revenge and de-own protection...though very few pple know about it at SCN but atleast it works cool.

My pleasure.... although it works ...but by mistake i added an extra line in it which has no function ....i thought u need code for banning such user who do not talk in room lolz... Lemme remove kick code you only need to add deny access for user who left room without typing any word..... on *:JOIN:#: { if ($nick($chan,$me,ohaq)) { .auser joinchan $nick set %j. $+ $chan $chan .timer 1 3 .ruser $nick set %join. $+ $nick $calc(%join. [ $+ [ $nick ] ]) .timer 1 60 unset %join. [ $+ [ $nick ] ] } } on joinchan:PART:#: { if ($nick($chan,$me,ohaq)) { if (%j. [ $+ [ $chan ] ]) { access $chan add deny $nick 15 | /access $chan add deny $address($nick,1) 15 .ruser $nick unset %chantime msg $chan auto-bannned $nick for Join/Part in under three seconds

mode $chan +bb $address($nick,2) $nick This code will ban user from channel...and user cannot join the room unless u clear access. 2nd ban wont show in access dialog although u have cleared it. im using same code in revenge protection ..n i have to clear access to remove ban for kicked person. but if u want set any time limit here goes your required ban... /access $chan add deny $nick 15 | /access $chan add deny $address($nick,1) 15 | /kick # $nick | /msg $chan auto-bannned $nick for Join/Part in under three seconds This will ban user for 15 minuts ...u can just increas ban time limit, As u say... If you still dont understand how to use and where to post these code ,Just replace these code with the codes you already have ... on *:JOIN:#: { if ($nick($chan,$me,ohaq)) { .auser joinchan $nick set %j. $+ $chan $chan .timer 1 3 .ruser $nick set %join. $+ $nick $calc(%join. [ $+ [ $nick ] ]) .timer 1 60 unset %join. [ $+ [ $nick ] ] } } on joinchan:PART:#: { if ($nick($chan,$me,ohaq)) { if (%j. [ $+ [ $chan ] ]) { access $chan add deny $nick 15 | /access $chan add deny $address($nick,1) 15 | /kick # $nick .ruser $nick unset %chantime msg $chan auto-bannned $nick for Join/Part in under three seconds

removed as it included tracking info

Wiley .........i want to open multy page within mirc ....because i mostly use net from office....in office if i will open chat pages by using regular IE ...than other people and admins might get to know ....that im using my time in chating and so ..... If i will open pages within mirc ...on MINIMIZE ....everypage will hide ..and none will be known what chat site im being opned ... now u understand :$?

Thanx Travis ..this is even best and working good... but for now ...im gona ask you about another problem and i hope u will have its solution ..;P problem is ... on ctrl+F1 it opens page within the mirc ...and works for me...but if try to open a new page within mirc ..it does not help ...it refresh already opened page ....but i want to open multy page within mirc.....:$ if u have codes about it

wowwwwwwwwwwww Thanx Buddy .....its works for now ... i was trying another codes which work for BUZZEN server ....but is not working for my desired server :$ but its all ok now with your codes...Thanx Again

#aoq on on *:JOIN:#: { if ($nick != $me) { .echo -a $dc($nick) address is *!* $+ $$ial($nick $+ *,1).addr } else { /mode $me +h myownerpass } } #aoq end I own a room and above mentioned code i use for onjoin owner my script if access ic cleared but room pass is same ...so script ONJOIN will apply ownerpass and make itself owner.... The following codes im using for adding auto access by script when it become OWNER but these codes do not works ...it does not add itself owner or voice ... I want help if these codes are not correct then tell me correct codes ... #auto on on *:owner:*:{ if ($opnick == $me) { access $chan delete host $address($me,1) 0 : Remix Gold access $chan add owner $address($me,1) 0 : Remix Gold access $chan add owner $address($me,6) 0 : Remix Gold access $chan add voice $address($me,6) 0 : Remix Gold access $chan add GRANT $address($me,6) 0 : Remix Gold } } #auto end

Hummmmmmmmm Im using Windows XP....not vista ... i try to use this code but aint work.... *-) isnt there anyother code ...which is working for windows Xp?

Thanx Travis & Orus ...for denoting mistakes in my codes.... Well im not a professional scripter...and there are not my codes.... these codes were sent to me by someone els... I dont know y did he send me such codes which are not correct ... But its ok now ...i make it working ...in the light of your instructions ... Thanx Again for help (F)

Well dear i know there is many mistakes in this codes thats y ..it aint wort ... this is why ...i post it there tat someone help me ..and make it correct for me ...i dont know wat are the mistakes ....so if u can point out them i wud may able to fix it......

Following is the code im trying to use in my script ..but it does not wrokd properly ...i try to make it usefull but cudnt... in the following code DIALOG boxes are opening proprly ..but Owner,Deowner,host,dehost,kick and Ban options do not works....everything works except above mentioned options... if someone can make it work ....? on ^*:JOIN:#:{ timer 1 4 modez } on ^*:MODE:#:{ .timer 1 4 modez } on ^*:part:#:{ .timer 1 4 modez } alias mdx { return dlls\mdx.dll } alias -l timer.now { if ($dialog(bar)) { did -ra bar 17 $time(h:nn:ss ) } else .timerNOW OFF } alias bar { //dialog -m bar bar } alias modez { did -ra bar 2 $chan($active).mode } dialog bar { title "" size -1 -1 514 35 option dbu button "Away Box", 1, 4 5 30 10 button "Access", 3, 4 19 30 10 button "Ban", 6, 72 19 30 10 button "Owner", 7, 106 5 30 10 button "C.Map", 8, 72 5 30 10 button "Host", 11, 106 19 30 10 button "De-Owner", 12, 139 5 30 10 button "De-Host", 14, 139 19 30 10 button "Seen", 19, 38 5 30 10 button "Kick", 20, 38 19 30 10 button "Close", 9, 173 6 26 23 edit "", 10, 406 5 95 10, autohs list 15, 406 20 95 12, vsbar button "Join", 16, 373 20 26 10 button "g", 22, 207 17 12 12 button "Add", 4, 373 6 26 10 button "Delete", 5, 343 6 26 10 edit "", 2, 228 20 50 10, disable center text "Modes", 13, 229 10 25 8, center edit "", 17, 288 20 50 10, disable center edit "", 18, 254 6 84 10, disable center text "Music", 21, 203 7 22 8, center button "Stop", 23, 343 20 26 10 } on *:dialog:bar:sclick:1: { dialog -m away away } on *:dialog:bar:sclick:3: { dialog -m msn.access msn.access } on *:dialog:bar:sclick:4:{ $iif($did(10),write mychats.txt $did(10)) | loadbuf -ro $dname 15 mychats.txt } on *:dialog:bar:sclick:5: { $iif($did(10),write -ds $+ $did(10) mychats.txt) | loadbuf -ro $dname 15 mychats.txt } on *:dialog:bar:sclick:6: { .access $comchan($did(14).text,1) add DENY *! $+ $$ial($did(14).text $+ *,1).addr 1440 | .kick $active $did(14).text Banned ( 24 Hour Ban ) } on *:dialog:bar:sclick:7: { .mode $active +q $did(14).text } on *:dialog:bar:sclick:8: { dialog -m ascii ascii } on *:dialog:bar:sclick:9: { exit } on *:dialog:bar:sclick:11: { .mode $active +o $did(14).text } on *:dialog:bar:sclick:12: { .mode $active -q $did(14).text } on *:dialog:bar:sclick:14: { .mode $active -o $did(14).text } on *:dialog:bar:sclick:15: { did -ra $dname 10 $did(15).seltext } on *:dialog:bar:sclick:16: { $iif($did(10),join $did(10)) | /set %test $did(10) | did -ra $dname 10 | loadbuf -ro $dname 15 mychats.txt } on *:dialog:bar:sclick:19: { dialog -m seen seen } on *:dialog:bar:sclick:20: { .kick $active $did(14).text Disrupting the chat room. } on *:dialog:bar:sclick:22: { splay -p stop } on *:dialog:bar:sclick:23: { url -an [url="http://www.xyz.com"]http://www.xyz.com[/url] } on *:dialog:bar:init:*:{ dll $mdx SetMircVersion $version dll $mdx MarkDialog $dname dll $mdx SetControlMDX $dname 1 toolbar list arrows flat wrap nodivider > $dlls(bars) dll $mdx SetDialog $dname bgcolor $rgb(0,0,0) dll $mdx SetColor $dname 2,13,17,18,21 textbg $rgb(0,0,0) dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,11,12,13,14,16,17,18,19,20,21,22,23 background $rgb(0,0,0) dll $mdx SetColor $dname 2,13,17,18,21 text $rgb(128,128,128) dll $mdx SetControlMDX $dname 1,2 ListView report single noheader showsel > dllx\views.mdx dll $mdx SetColor $dname 1 text $rgb(0,0,128) dll dlls\rebar.dll Dock $dialog(bar).hwnd > bottom dll $mdx SetFont 22 15 0 Webdings loadbuf -ro bar 15 mychats.txt .timerNOW 0 1 timer.now did -ra bar 18 $time(dddd mmmm dd yyyy) } on *:start: /bar }

I need a WEB BROWSER ....for my SCRIPT which im being used on SCN chat netwrok... if someone know about iRC Web Addon or can help me with it?

hummmmm........ i cant gett wat im missing ...please if u can tell me wat im missing ...? and u can post here?

i already have asked them for help ......... but they said they do not help with script............ i have made 2 scripts for SCN....and font dialog work with them... but now i have made new version and now same dilag does not works...which driving me crazy and i realy dont know how to make it work...i have done aloost everything but all in vain...nothing work with it :S

Thanx warrior so much.these are MIRC fonts and color code..while i need a Font dialog so i can change my chat fonts and colors ... as i already have some code like dialog font { title "SCN Font Dialog" size -1 -1 102 63 option dbu combo 1, 2 14 60 50, sort size drop text "Font Type", 2, 18 5 26 8 combo 3, 2 39 60 50, sort size drop text "Font Color", 4, 18 27 26 8 check "Bold", 5, 74 14 27 10 check "Italic", 6, 74 25 27 10 check "Random Color", 7, 2 50 43 10 check "Use Font", 8, 67 1 33 10 } alias pini { if ($2 == $null) return $readini(SCNFont.ini,n,settings,$$1) if ($1 == r) remini SCNFont.ini settings $$2 else writeini SCNFont.ini settings $$1 $2- } On *:Dialog:font:init:*: { if ($pini(do.font)) did -c font 8 if ($pini(font.) did -c font 5 if ($pini(font.i)) did -c font 6 if ($pini(font.r)) did -c font 7 didtok font 3 44 Black,White,DarkBlue,DarkGreen,Red,DarkRed,Purple,DarkYellow,Yellow,Green,Teal,Cyan,Blue,Pink,DarkGray,Gray didtok font 1 44 Arial,Tahoma,Arial Black,Arial Narrow,Century,Comic Sans MS } on *:dialog:font:sclick:*:{ if ($did == 8) { if ($pini(do.font)) { pini r do.font | did -u font 8 } else { pini do.font $true | did -c font 8 } } if ($did == 5) { if ($pini(font.) { pini r font.b | did -u font 5 } else { pini font.b $true | did -c font 5 } setfontcode } if ($did == 6) { if ($pini(font.i)) { pini r font.i | did -u font 6 } else { pini font.i $true | did -c font 6 } setfontcode } if ($did == 7) { if ($pini(font.r)) { pini r font.r | did -u font 7 } else { pini font.r $true | did -c font 7 } } if ($did == 1) { pini font.font $did(font,$did).seltext | setfontcode } if ($did == 3) { pini font.color $did(font,$did).seltext | setfontcode } } but hell it does not works dont know wats wrong with it :S

Can anyone tell me how to load font dialoge in my script and from where i can have it. script which im being used at SCN dosent support fonts and it use default and colorless font... so anyone can guid about it?