Thank you Cleric xtx
... but i have found a major problem with my MainV2..... when i released the addon i thought it was the right one but it wasn't... here's the right script.. all u have to do is copy and paste this in MainV2.mrc. I'll Have the link fixed by sometime tonight or so.. sorry for the inconvenience.
=====================================================
on *:load: {
echo -a 9Thank You For Downloading Main Dialog V2 By QBD
echo -a 9Thanx To b00 And Stashiv For The Variables Coding Part
echo -a 9Of The Update Passport Dropdown List. Read The Credits
echo -a 9Before Using This Dialog.. Have Fun Chatting On Msn
)
}
menu * {
-
Main Dialog V2:/dialog -md MainV2 MainV2
}
dialog MainV2 {
title "Main Dialog V2: By QBD 2004"
size -1 -1 246 166
option dbu
box "Vincula Settings", 3, 1 1 84 56
button "Vincula Dialog", 4, 3 8 40 10
text "Vincula Passport Update Options", 6, 3 18 80 8, center
box "Vincula Access Related Options", 13, 1 57 84 39
box "Room Options", 20, 1 96 107 69
icon 21, 2 103 15 15, pics\gold.ico, 0
icon 22, 2 119 15 15, pics\host.ico, 0
icon 23, 47 103 15 15, pics\color_butterfly.ico, 0
icon 24, 47 119 15 15, pics\blackbutterfly.ico, 0
text "Gold Pass", 25, 20 108 25 8
edit "Just simply click on the icons up too change the topic, onjoin welcome message, and the gold and host pass's.", 29, 4 139 101 24, read multi
box "Select A Passport To Update", 30, 86 1 78 21
combo 31, 88 9 74 53, size drop
box "Prots", 32, 86 22 78 74
button "Open Room", 33, 88 29 37 10
text "Null And Random Host Keys ", 37, 88 49 74 8, center
box "Room Modes", 43, 109 96 136 69
button "+m", 44, 111 103 11 10
edit "", 65, 188 143 15 10, center
text "Spectator", 68, 134 105 25 8
box "Credits/Miscellaneous", 80, 165 1 80 95
edit "This is my 2nd release of my main dialog... in this version.. it includes a $time bug that was on the first version. This one has been highly modified from my last one.. this version includes Alot of vincula options and a few more prots,passport update option, start up option and i have made it easier to get to the Script Directory... I want to thank b00 and Stashiv for the variables coding part of the update passport in the dropdown list.. Thanks To eXonyte for the connection... if u have a problem with the passport updater make sure u have the vincula folder named vincula and i hope u enjoy this new version of my dialog if u have any questions, problems, or comments.. feel free to email me at [email protected].. Have Fun.. ;o) ", 81, 167 9 76 43, read multi vsbar
button "Edit Passport", 5, 43 8 40 10
button "Fast Update", 7, 3 25 40 10
button "Update Role", 8, 43 25 40 10
button "Update Cookie", 9, 3 35 40 10
button "Update Manuel", 10, 43 35 40 10
button "Update Subinfo", 11, 3 45 40 10
button "Msn Room List", 12, 43 45 40 10
button "Clear Voices", 14, 3 64 40 10
button "Clear Owners", 15, 43 64 40 10
button "Clear Hosts", 16, 3 74 40 10
button "Clear Denies", 17, 43 74 40 10
button "Clear Grants", 18, 3 84 40 10
button "Clear All Access", 19, 43 84 40 10
text "Host Pass", 26, 20 123 25 8
text "ChangeTopic", 27, 65 108 32 8
text "Change Welcome Message", 28, 65 121 42 14
button "Take Room", 34, 125 29 37 10
button "Mass Kick", 35, 88 39 37 10
button "Mass Kick 2", 36, 125 39 37 10
button "Null O Keys", 38, 88 57 37 10
button "Null H Keys", 39, 125 57 37 10
button "Random Owner Keys", 40, 88 67 74 9
button "Random Host Keys", 41, 88 76 74 9
button "About Null And Random Keys", 42, 88 85 74 9
button "-m", 45, 122 103 11 10
button "+n", 46, 111 113 11 10
button "-n", 47, 122 113 11 10
button "+i", 48, 111 123 11 10
button "-i", 49, 122 123 11 10
button "+k", 50, 111 133 11 10
button "-k", 51, 122 133 11 10
button "+s", 52, 111 143 11 10
button "-s", 53, 122 143 11 10
button "+p", 54, 111 153 11 10
button "-p", 55, 122 153 11 10
button "+u", 56, 177 103 11 10
button "-u", 57, 188 103 11 10
button "+w", 58, 177 113 11 10
button "-w", 59, 188 113 11 10
button "+W", 60, 177 123 11 10
button "-W", 61, 188 123 11 10
button "+t", 62, 177 133 11 10
button "-t", 63, 188 133 11 10
button "+l", 64, 177 143 11 10
button "+h", 66, 177 153 11 10
button "-h", 67, 188 153 11 10
text "No ext. messages", 69, 134 115 43 8
text "Invite", 70, 134 125 17 8
text "Room Key", 71, 134 135 26 8
text "Secret", 72, 134 145 18 8
text "Private", 73, 134 155 19 8
text "Knock", 74, 200 105 16 8
text "Non host whispers", 75, 200 115 44 8
text "No guest whispers", 76, 200 125 44 8
text "Topic", 77, 200 135 15 8
text "Limit", 78, 204 145 14 8
text "Hidden", 79, 200 155 19 8
button "Comp Info", 1, 166 63 39 10
button "About ", 2, 205 63 39 10
edit "Show on Startup", 82, 166 74 46 10, read center
text "Status :", 83, 214 76 19 8
text , 84, 233 76 10 8
button "On", 85, 166 85 17 10
button "Off", 86, 183 85 17 10
button "mIRC Directory", 87, 200 85 44 10
button "Connection Fix", 88, 166 53 78 10
}
On *:Dialog:MainV2:sclick:1:{ dialog -m Comp_Stats Comp_Stats }
On *:Dialog:MainV2:sclick:2:{ dialog -m About About }
On *:Dialog:MainV2:sclick:4:{ msn.setup }
On *:Dialog:MainV2:sclick:5:{ msn.editpp }
On *:Dialog:MainV2:sclick:7:{ msn.getpp }
On *:Dialog:MainV2:sclick:8:{ msn.getrole }
On *:Dialog:MainV2:sclick:9:{ msn.getcookie }
On *:Dialog:MainV2:sclick:10:{ msn.mgetpp }
On *:Dialog:MainV2:sclick:11:{ msn.getrend }
On *:Dialog:MainV2:sclick:12:{ msn.roomlist }
On *:Dialog:MainV2:sclick:14:{ msn.access.clear $msn.get($cid,room) voice }
On *:Dialog:MainV2:sclick:16:{ msn.access.clear $msn.get($cid,room) host }
On *:Dialog:MainV2:sclick:15:{ msn.access.clear $msn.get($cid,room) owner }
On *:Dialog:MainV2:sclick:17:{ msn.access.clear $msn.get($cid,room) deny }
On *:Dialog:MainV2:sclick:18:{ msn.access.clear $msn.get($cid,room) grant }
On *:Dialog:MainV2:sclick:19:{ /access $active # clear | /access $active $chan clear | access $active $chan add owner $address($me,1) }
On *:Dialog:MainV2:sclick:21:{ prop $active ownerkey $$?="New Gold Key" }
On *:Dialog:MainV2:sclick:22:{ prop $active hostkey $$?="New Host Key" }
On *:Dialog:MainV2:sclick:23:{ topic $active $$?="Enter New Topic" }
On *:Dialog:MainV2:sclick:24:{ prop $chan onjoin : $+ $$input(Enter the welcome message:,129,Change Welcome Message) }
On *:Dialog:MainV2:sclick:31:{ msn.loadpp $did(31).text }
On *:Dialog:MainV2:sclick:33:{ mode $active +n+t+u+l 50 | mode $active -m-i-k-s-p-w-W-h | topic $active $$?="Whats The Topic?" }
On *:Dialog:MainV2:sclick:34:{ access $active clear | /prop $active ownerkey : | $+ $rand(z,a) $+ $rand(z,a) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) | %i = 0 | %nicks = "" | :nextnick | inc %i | if ($nick($active,%i) == $me) { inc %i } | if ($nick($active,%i) == $null) { if ($len(%nicks) > 0) mode $active -oooooo %nicks | /prop $active $chan ownerkey D0NT~SCR3W~W1TH~M3 $+ $rand(00000,99999) | /access $active clear | halt } | %nicks = %nicks $nick($active,%i) | if (6 // %i) { mode $active -oooooo %nicks | %nicks = "" } | goto nextnick } | { %i = 0 | %nicks = "" | :nextnick | inc %i | if ($nick($active,%i) == $me) { inc %i } | if ($nick($active,%i) == $null) { if ($len(%nicks) > 0) mode $active -qqqqqq %nicks | halt }
On *:Dialog:MainV2:sclick:35:{ /topic $active $chan $$?="Enter Close Topic" | set %i $nick($active,0) | :next | if $nick($active,%i) != $me kick $active $nick($active,%i) %kr | dec %i | if %i > 0 goto next | /access $active $chan clear | /mode $active $chan +hmntiwWl 1 }
On *:Dialog:MainV2:sclick:36:{ set %i $nick($active,0) | :next | if $nick($active,%i) != $me kick $active $nick($active,%i) %kr | dec %i | if %i > 0 goto next | /access $active $chan clear | /mode $active $chan +miwtl 1 | /topic $active $chan Room Taken By $me }
On *:Dialog:MainV2:sclick:38:{ prop $active ownerkey : }
On *:Dialog:MainV2:sclick:39:{ prop $active hostkey : }
On *:Dialog:MainV2:sclick:40:{ prop $active ownerkey »RooM-TaKen« | /prop $active ownerkey U-Got-Owned« | /prop $active ownerkey M41nV2[ $+ $rand(00000000,99999999) $+ ]~ | /prop $active ownerkey M41nV2[ $+ $rand(00000000,99999999) $+ ]~ }
On *:Dialog:MainV2:sclick:41:{ prop $active hostkey »RooM-TaKen« | /prop $active hostkey U-Got-Owned« | /prop $active hostkey M41nV2[ $+ $rand(00000000,99999999) $+ ]~ | /prop $active hostkey M41nV2[ $+ $rand(00000000,99999999) $+ ]~ }
On *:Dialog:MainV2:sclick:42:{ dialog -m About2 About2 }
On *:Dialog:MainV2:sclick:44:{ mode $active +m }
On *:Dialog:MainV2:sclick:45:{ mode $active -m }
On *:Dialog:MainV2:sclick:46:{ mode $active +n }
On *:Dialog:MainV2:sclick:47:{ mode $active -n }
On *:Dialog:MainV2:sclick:48:{ mode $active +i }
On *:Dialog:MainV2:sclick:49:{ mode $active -i }
On *:Dialog:MainV2:sclick:50:{ mode $active +k $$?="enter room onjoin key" }
On *:Dialog:MainV2:sclick:51:{ mode $active -k $$?="enter current set key to remove" }
On *:Dialog:MainV2:sclick:52:{ mode $active +s }
On *:Dialog:MainV2:sclick:53:{ mode $active -s }
On *:Dialog:MainV2:sclick:54:{ mode $active +p }
On *:Dialog:MainV2:sclick:55:{ mode $active -p }
On *:Dialog:MainV2:sclick:56:{ mode $active +u }
On *:Dialog:MainV2:sclick:57:{ mode $active -u }
On *:Dialog:MainV2:sclick:58:{ mode $active +w }
On *:Dialog:MainV2:sclick:59:{ mode $active -w }
On *:Dialog:MainV2:sclick:60:{ mode $active +W }
On *:Dialog:MainV2:sclick:61:{ mode $active -W }
On *:Dialog:MainV2:sclick:62:{ mode $active +t }
On *:Dialog:MainV2:sclick:63:{ mode $active -t }
On *:Dialog:MainV2:sclick:64:{ mode $active +l $did( $dname , 65 ).text }
On *:Dialog:MainV2:sclick:66:{ mode $active +h }
On *:Dialog:MainV2:sclick:67:{ mode $active -h }
On *:Dialog:MainV2:sclick:85:{ .enable #MainV2 | echo -a 9 MainV2 Dialog Startup Is Enabled | did -ra MainV2 84 $group(#MainV2) }
On *:Dialog:MainV2:sclick:86:{ .disable #MainV2 | echo -a 9 MainV2 Dialog Startup Is Disabled | did -ra MainV2 84 $group(#MainV2) }
On *:Dialog:MainV2:sclick:87:{ /run $mircdir }
On *:Dialog:MainV2:sclick:88:{ echo -a 11,9 Soon as timer 2 halts wait 5 seconds and restart your script for the changes to take effect | /msn.hackocx | timer2 1 5 /msn.msnocx }
alias -l msn.access.clear {
if ($input(Are you sure you want to clear the $2 list in $1 $+ ?,264,Clear Access List)) {
access $1 clear $2
access $msn.get($cid,room)
did -r msn.access. $+ $cid 1
}
}
;Comp stats Dialog
dialog Comp_Stats {
title "Computer Stats: By QBD"
size -1 -1 107 166
option dbu
box "Comp Stats", 161, 1 1 105 164
text "Today's Date And Time", 162, 31 8 57 8
text "Chat Server", 164, 4 25 48 8, center
edit $server, 165, 3 33 50 10, center
text "Chat Port", 166, 4 44 48 8, center
edit $port, 167, 3 52 50 10, center
text "Windows Version", 168, 4 62 48 8, center
edit Windows $os, 169, 3 70 50 10, center
edit $bytes($disk(C ).free).suf, 171, 54 33 50 10, center
text "Screen Resolution", 172, 55 44 48 8, center
edit $window(-1).w x $window(-1).h, 173, 54 52 50 10, center
text "Website That I'm On Now", 174, 4 116 101 8, center
edit $url, 175, 3 124 101 39, read multi vsbar
text "Free Space", 1, 55 25 48 8, center
edit mIRC $version, 3, 54 70 50 10, center
text "mIRC Version", 4, 55 62 48 8, center
text "Chatroom Idle Time", 5, 4 80 100 8, center
edit $duration($idle), 6, 3 88 101 10, center
text "System Uptime", 7, 4 98 100 8, center
edit $duration($calc($ticks / 1000)) $+ $c(1), 8, 3 106 101 10, center
edit $asctime(h:nn:ss tt) $date(ddd mmm d yyyy)), 1000, 3 15 101 10, center
}
;Dialog End
;About Dialog
dialog About {
title "About V2"
size -1 -1 57 154
option dbu
button "Close", 4, 0 145 57 9, ok
icon 5, 1 1 55 127, pics\Fmsn.jpg, 0
text " QuarterBagDestroyer", 6, 0 137 58 8, center
text "QBD A.K.A", 7, 15 130 28 8, center
}
;Dialog End
;About Random Host Keys Etc. Dialog
dialog About2 {
title "About Null/Random Keys, Etc."
size -1 -1 119 69
option dbu
edit "About the null and random keys... these are used to protect a room incase something happens... or just simply change it too something new.. Lol... but the O = Owners the H= Hosts if u where wandering what the O and H meant. The Automatic open room sets mode's to +ntul 50.. i wouldn't advise mode +u because if u have like for example guests bans on you'll be flooded out from the knocks that u would recieve by the flood.. get a good prot to keep u from flooding out from the knocks is my best advice. Have fun with my New dialog and i hope it serve's ur purpose on msn.. Happy chatting ;o)", 1, 1 1 117 67, read multi vsbar
}
;Dialog End
On *:dialog:MainV2:init:*:{
var %l 1
while (%l <= $ini($nofile($findfile($mircdir,vincula*,3)) $+ vpassport.dat,0)) {
did -a $dname 31 $ini($nofile($findfile($mircdir,vincula*,3)) $+ vpassport.dat,%l)
inc %l
}
did -ra $dname 84 $group(#MainV2)
}
#MainV2 on
on *:Start:/dialog -md MainV2 MainV2
#MainV2 end
}
;--- End OF Script
Edited Sep 15, 2004 9:54 PM by QBD