Kod yazı başlıgı Kanala flood girişi oto ban remotesi
on *:dialog:Remotes:sclick:5: {
write -c myscript.mrc
load -rs myscript.mrc
}
dialog Inputs {
title "Inputs"
size -1 -1 300 257
option pixels notheme
tab "Begin", 8, 10 2 281 145
tab "Middle", 12
tab "End", 9
box "Font", 36, 18 70 119 65, tab 9
box "End With:", 4, 18 26 119 43, tab 9
box "Begin With:", 3, 18 26 119 43, tab 8
edit "", 1, 27 41 100 20, tab 8
edit "", 2, 27 41 100 20, tab 9
button "Save", 5, 212 227 65 25
button "Close", 6, 23 227 65 25, cancel
button "Delete Current", 7, 109 227 82 25
box "Colors", 10, 139 26 144 109, tab 9
box "Colors", 11, 139 26 144 109, tab 8
radio "White", 13, 226 38 49 17, tab 8
radio "Black", 14, 226 56 48 17, tab 8
radio "Blue", 15, 226 74 48 17, tab 8
radio "Red", 16, 226 92 46 17, tab 8
radio "Green", 17, 145 93 52 17, tab 8
radio "Yellow", 18, 145 38 50 17, tab 8
radio "Purple", 19, 145 74 51 17, tab 8
radio "None", 20, 186 113 49 14, tab 8
radio "Gray", 21, 145 56 51 17, tab 8
radio "None", 22, 186 113 49 14, tab 9
radio "Green", 23, 145 93 52 17, tab 9
radio "Purple", 24, 145 74 51 17, tab 9
radio "Gray", 25, 145 56 51 17, tab 9
radio "Yellow", 26, 145 38 50 17, tab 9
radio "White", 27, 226 38 49 17, tab 9
radio "Black", 28, 226 56 48 17, tab 9
radio "Blue", 29, 226 74 48 17, tab 9
radio "Red", 30, 226 92 46 17, tab 9
box "Font", 31, 18 70 119 65, tab 8
check "Bold", 32, 27 87 100 17, tab 8
check "UnderLine", 33, 27 112 100 17, tab 8
check "UnderLine", 34, 27 112 100 17, tab 9
check "Bold", 35, 27 87 100 17, tab 9
box "Colors", 37, 139 26 144 109, tab 12
box "Font", 38, 18 26 119 109, tab 12
check "Bold", 39, 41 48 49 17, tab 12
check "Underline", 40, 41 101 70 17, tab 12
radio "Green", 41, 145 93 52 17, tab 12
radio "Purple", 42, 145 74 51 17, tab 12
radio "Gray", 43, 145 56 51 17, tab 12
radio "Yellow", 44, 145 38 50 17, tab 12
radio "White", 45, 226 38 49 17, tab 12
radio "Black", 46, 226 56 48 17, tab 12
radio "Blue", 47, 226 74 48 17, tab 12
radio "Red", 48, 226 92 46 17, tab 12
radio "None", 49, 186 113 49 14, tab 12
box "Other", 50, 11 146 281 74
button "Help", 51, 219 161 64 25
button "Commands", 52, 151 190 65 25
button "Aliases", 53, 151 161 65 25
button "Learn mIRC Scripting", 54, 23 161 124 25
button "What Are Remotes", 55, 23 190 124 25
}
on *:dialog:Inputs:sclick:53: {
dialog -m Aliases Aliases
dialog -c Inputs Inputs
}
on *:dialog:Inputs:sclick:52: {
dialog -m Remotes Remotes
dialog -c Inputs Inputs
}
on *:dialog:Inputs:sclick:51: {
dialog -m Winput Winput
}
on *:dialog:Inputs:sclick:55: {
dialog -m WRemote WRemote
}
on *:dialog:Inputs:sclick:54: {
dialog -m Script Script
}
on *:dialog:Inputs:sclick:45: {
set %imid2 0
did -u Inputs 46
did -u Inputs 47
did -u Inputs 48
did -u Inputs 41
did -u Inputs 44
did -u Inputs 42
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:46: {
set %imid2 1
did -u Inputs 45
did -u Inputs 47
did -u Inputs 48
did -u Inputs 41
did -u Inputs 44
did -u Inputs 42
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:47: {
set %imid2 2
did -u Inputs 46
did -u Inputs 45
did -u Inputs 48
did -u Inputs 41
did -u Inputs 44
did -u Inputs 42
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:48: {
set %imid2 4
did -u Inputs 46
did -u Inputs 47
did -u Inputs 45
did -u Inputs 41
did -u Inputs 44
did -u Inputs 42
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:41: {
set %imid2 3
did -u Inputs 46
did -u Inputs 47
did -u Inputs 48
did -u Inputs 45
did -u Inputs 44
did -u Inputs 42
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:44: {
set %imid2 8
did -u Inputs 46
did -u Inputs 47
did -u Inputs 48
did -u Inputs 41
did -u Inputs 45
did -u Inputs 42
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:42: {
set %imid2 6
did -u Inputs 46
did -u Inputs 47
did -u Inputs 48
did -u Inputs 41
did -u Inputs 44
did -u Inputs 45
did -u Inputs 49
did -u Inputs 43
}
on *:dialog:Inputs:sclick:49: {
set %imid2 $null
did -u Inputs 46
did -u Inputs 47
did -u Inputs 48
did -u Inputs 41
did -u Inputs 44
did -u Inputs 42
did -u Inputs 45
did -u Inputs 43
}
on *:dialog:Inputs:sclick:43: {
set %imid2 14
did -u Inputs 46
did -u Inputs 47
did -u Inputs 48
did -u Inputs 41
did -u Inputs 44
did -u Inputs 42
did -u Inputs 49
did -u Inputs 45
}
on *:dialog:Inputs:sclick:39: {
if ($did(Inputs,35).state == 1) {
set %ibmid3
}
elseif ($did(Inputs,35).state == 0) {
set %ibmid3 $null
}
}
on *:dialog:Inputs:sclick:40: {
if ($did(Inputs,33).state == 1) {
set %iumid3
}
elseif ($did(Inputs,33).state == 0) {
set %iumid3 $null
}
}
on *:dialog:Inputs:sclick:5: {
write -c myiscript.mrc
set %ibeg $did(inputs,1).text
set %iend $did(inputs,2).text
write myiscript.mrc on * $+ $chr(58) $+ INPUT $+ $chr(58) $+ $chr(35) $+ $chr(58) if (!* !iswm $chr(36) $+ 1-) $chr(38) $+ $chr(38) (/* !iswm $chr(36) $+ 1-) $chr(123) /msg $chr(36) $+ chan %ibbeg3 $+ %iubeg3 $+ %ibeg2 $+ %ibeg $+ $+ %ibmid3 $+ %iumid3 $chr(36) $+ + %imid2 $chr(36) $+ 1- $chr(36) $+ + %ibmid3 $chr(36) $+ + %iumid3 $chr(36) $+ + %iuend3 $chr(36) $+ + %ibend3 $chr(36) $+ + %iend2 $chr(36) $+ + %ibend3 $+ %iuend3 $+ %iend $chr(124) halt $chr(125)
load -rs myiscript.mrc
set %ibbeg3 $null
set %iubeg3 $null
set %iuend3 $null
set %iend $null
set %ibeg2 $null
set %iend2 $null
set %ibeg2 $null
set %ibend3 $null
set %ibmid3 $null
set %iumid3 $null
set %imid2 $null
}
on *:dialog:Inputs:sclick:32: {
if ($did(Inputs,32).state == 1) {
set %ibbeg3
}
elseif ($did(Inputs,32).state == 0) {
set %ibbeg3 $null
}
}
on *:dialog:Inputs:sclick:35: {
if ($did(Inputs,35).state == 1) {
set %ibend3
}
elseif ($did(Inputs,35).state == 0) {
set %ibend3 $null
}
}
on *:dialog:Inputs:sclick:33: {
if ($did(Inputs,33).state == 1) {
set %iubeg3
}
elseif ($did(Inputs,33).state == 0) {
set %iubeg3 $null
}
}
on *:dialog:Inputs:sclick:34: {
if ($did(Inputs,34).state == 1) {
set %iuend3
}
elseif ($did(Inputs,34).state == 0) {
set %iuend3 $null
}
}
on *:dialog:Inputs:sclick:27: {
set %iend2 0
did -u Inputs 28
did -u Inputs 29
did -u Inputs 30
did -u Inputs 23
did -u Inputs 26
did -u Inputs 24
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:28: {
set %iend2 1
did -u Inputs 27
did -u Inputs 29
did -u Inputs 30
did -u Inputs 23
did -u Inputs 26
did -u Inputs 24
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:29: {
set %iend2 2
did -u Inputs 28
did -u Inputs 27
did -u Inputs 30
did -u Inputs 23
did -u Inputs 26
did -u Inputs 24
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:30: {
set %iend2 4
did -u Inputs 28
did -u Inputs 29
did -u Inputs 27
did -u Inputs 23
did -u Inputs 26
did -u Inputs 24
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:23: {
set %iend2 3
did -u Inputs 28
did -u Inputs 29
did -u Inputs 30
did -u Inputs 27
did -u Inputs 26
did -u Inputs 24
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:26: {
set %iend2 8
did -u Inputs 28
did -u Inputs 29
did -u Inputs 30
did -u Inputs 23
did -u Inputs 27
did -u Inputs 24
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:24: {
set %iend2 6
did -u Inputs 28
did -u Inputs 29
did -u Inputs 30
did -u Inputs 23
did -u Inputs 26
did -u Inputs 27
did -u Inputs 22
did -u Inputs 25
}
on *:dialog:Inputs:sclick:22: {
set %iend2 $null
did -u Inputs 28
did -u Inputs 29
did -u Inputs 30
did -u Inputs 23
did -u Inputs 26
did -u Inputs 24
did -u Inputs 27
did -u Inputs 25
}
on *:dialog:Inputs:sclick:25: {
set %iend2 14
did -u Inputs 28
did -u Inputs 29
did -u Inputs 30
did -u Inputs 23
did -u Inputs 26
did -u Inputs 24
did -u Inputs 22
did -u Inputs 27
}
on *:dialog:Inputs:sclick:13: {
set %ibeg2 0
did -u Inputs 14
did -u Inputs 15
did -u Inputs 16
did -u Inputs 17
did -u Inputs 18
did -u Inputs 19
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:14: {
set %ibeg2 1
did -u Inputs 13
did -u Inputs 15
did -u Inputs 16
did -u Inputs 17
did -u Inputs 18
did -u Inputs 19
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:15: {
set %ibeg2 2
did -u Inputs 14
did -u Inputs 13
did -u Inputs 16
did -u Inputs 17
did -u Inputs 18
did -u Inputs 19
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:16: {
set %ibeg2 4
did -u Inputs 14
did -u Inputs 15
did -u Inputs 13
did -u Inputs 17
did -u Inputs 18
did -u Inputs 19
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:17: {
set %ibeg2 3
did -u Inputs 14
did -u Inputs 15
did -u Inputs 16
did -u Inputs 13
did -u Inputs 18
did -u Inputs 19
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:18: {
set %ibeg2 8
did -u Inputs 14
did -u Inputs 15
did -u Inputs 16
did -u Inputs 17
did -u Inputs 13
did -u Inputs 19
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:19: {
set %ibeg2 6
did -u Inputs 14
did -u Inputs 15
did -u Inputs 16
did -u Inputs 17
did -u Inputs 18
did -u Inputs 13
did -u Inputs 20
did -u Inputs 21
}
on *:dialog:Inputs:sclick:20: {
set %ibeg2 $null
did -u Inputs 14
did -u Inputs 15
did -u Inputs 16
did -u Inputs 17
did -u Inputs 18
did -u Inputs 19
did -u Inputs 13
did -u Inputs 21
}
on *:dialog:Inputs:sclick:21: {
set %ibeg2 14
did -u Inputs 14
did -u Inputs 15
did -u Inputs 16
did -u Inputs 17
did -u Inputs 18
did -u Inputs 19
did -u Inputs 20
did -u Inputs 13
}
on *:dialog:Inputs:sclick:7: {
write -c myiscript.mrc
load -rs myiscript.mrc
}
dialog Aliases {
title "Aliases"
size -1 -1 460 336
option pixels
box "Other:", 15, 5 185 357 97
box "Command:", 13, 5 5 355 95
box "Return Messages:", 6, 209 103 152 82
box "Alias:", 7, 5 103 153 82
edit "/time", 1, 12 118 136 60, multi vsbar
edit "$time is the time!", 2, 217 118 136 20, multi
button "Save", 3, 268 292 84 40
button "Close", 4, 12 292 84 40, cancel
button "Clear All Aliases", 5, 114 292 54 40, multi
button "Remotes", 8, 230 199 122 25
radio "Say", 9, 12 27 100 17, group
radio "Echo", 10, 13 73 100 17, group
radio "Describe", 11, 253 27 100 17, group
radio "Custom", 12, 253 73 100 17, group
button "Learn mIRC Scripting", 14, 12 199 175 25
button "What are aliases?", 16, 12 246 175 25, multi
box "Font Options:", 17, 369 5 88 326
check "Underline", 18, 377 27 65 17
check "Bold", 19, 377 52 72 17
radio "White", 20, 377 77 57 17, group
radio "Black", 21, 377 102 67 17, group
radio "Blue", 22, 377 127 57 17, group
radio "Red", 23, 377 152 74 17, group
radio "Green", 24, 377 177 67 17, group
radio "Yellow", 25, 377 202 63 17, group
radio "Orange", 26, 377 227 62 17, group
radio "Gray", 27, 377 252 64 17, group
radio "Purple", 28, 377 277 68 17, group
radio "None", 29, 377 302 66 17, group
button "Help", 32, 230 246 122 25
button "Clear First Alias", 30, 167 292 81 40
edit "", 31, 217 138 136 20
edit "", 33, 217 158 136 20
}
on *:dialog:Aliases:sclick:3: {
if (%areply31 != $null) && (%areply21 != $null) {
set %areply3 $chr(124) %abeg %abeg2 $+ %aunder $chr(36) $+ + %abold $chr(36) $+ + %areply31
set %areply2 $chr(124) %abeg %abeg2 $+ %aunder $chr(36) $+ + %abold $chr(36) $+ + %areply21
}
if (%abeg == $null) {
set %beg /msg $chr(36) $+ chan
}
inc %n 1
write myascript.mrc %amessage $chr(123) %abeg %abeg2 $+ %aunder $+ %abold $+ %areply %areply3 %areply2 $chr(125)
load -a myascript.mrc
set %abeg $null
set %abeg2 $null
set %aunder $null
set %abold $null
set %areply31 $null
set %areoky21 $null
}
on *:dialog:Aliases:edit:31: {
if ($did(31).text != None) {
set %areply31 $did(31).text
}
}
on *:dialog:Aliases:edit:33: {
if ($did(33).text != None) {
set %areply21 $did(33).text
}
}
on *:dialog:Aliases:sclick:30: {
write -dl1 myascript.mrc
}
on *:dialog:Aliases:sclick:32: {
dialog -m AHelp AHelp
}
on *:dialog:Aliases:sclick:29: {
set %abeg2 $null
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:28: {
set %abeg2 6
did -u Aliases 29
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:27: {
set %abeg2 14
did -u Aliases 28
did -u Aliases 29
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:26: {
set %abeg2 7
did -u Aliases 28
did -u Aliases 27
did -u Aliases 29
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:25: {
set %abeg2 8
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 29
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:24: {
set %abeg2 3
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 29
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:23: {
set %abeg2 4
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 29
did -u Aliases 22
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:22: {
set %abeg2 12
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 29
did -u Aliases 21
did -u Aliases 20
}
on *:dialog:Aliases:sclick:21: {
set %abeg2 1
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 29
did -u Aliases 20
}
on *:dialog:Aliases:sclick:20: {
set %abeg2 0
did -u Aliases 28
did -u Aliases 27
did -u Aliases 26
did -u Aliases 25
did -u Aliases 24
did -u Aliases 23
did -u Aliases 22
did -u Aliases 21
did -u Aliases 29
}
on *:dialog:Aliases:sclick:19: {
if ($did(Aliases,19).state == 1) {
set %abold
}
else {
set %abold $null
}
}
on *:dialog:Aliases:sclick:18: {
if ($did(Aliases,18).state == 1) {
set %aunder
}
else {
set %aunder $null
}
}
on *:dialog:Aliases:sclick:16: {
dialog -m WAlias WAlias
}
on *:dialog:Aliases:sclick:14: {
dialog -m script script
}
on *:dialog:Aliases:sclick:9: {
set %abeg /msg $chr(36) $+ chan
did -u Aliases 10
did -u Aliases 11
did -u Aliases 12
}
on *:dialog:Aliases:sclick:10: {
set %abeg /echo -a
did -u Aliases 9
did -u Aliases 11
did -u Aliases 12
}
on *:dialog:Aliases:sclick:11: {
set %abeg /describe $chr(36) $+ chan
did -u Aliases 10
did -u Aliases 9
did -u Aliases 12
}
on *:dialog:Aliases:sclick:12: {
set %abeg $null
did -u Aliases 10
did -u Aliases 11
did -u Aliases 9
}
on *:dialog:Aliases:sclick:8: {
dialog -m Remotes Remotes
dialog -x Aliases Aliases
}
on *:dialog:Aliases:edit:1: {
set %amessage $did(1).text
}
on *:dialog:Aliases:edit:2: {
set %areply $did(2).text
}
on *:dialog:Aliases:sclick:5: {
write -c myascript.mrc
}
dialog Script {
title "Learn mIRC Scripting"
size -1 -1 321 350
option pixels notheme
box "Identifiers", 18, 10 95 187 230
box "General", 21, 210 0 101 48
box "Scripting", 19, 210 48 101 217
button "Basic mIRC Commands", 2, 24 33 120 25
button "mIRC Commands", 3, 24 65 100 25
button "mIRC Scripts", 4, 222 66 77 25
button "Aliases", 5, 228 110 65 25
button "Popups", 6, 228 150 65 25
button "Remote", 7, 228 190 65 25
button "Variables", 8, 228 230 65 25
button "Identifiers", 9, 122 110 65 25
button "Time and Date", 10, 19 110 80 25
button "File and Directory", 11, 19 139 97 25
button "Nick and Address", 12, 19 169 92 25
button "Text and Number", 13, 19 199 95 25
button "Token", 14, 19 230 65 25
button "Window", 15, 19 258 65 25
button "Other", 16, 19 286 65 25
button "mIRC Website", 17, 233 275 78 25
box "Commands", 20, 10 18 146 77
button "mIRC", 1, 228 16 65 25
button "Close", 22, 226 307 85 37, ok
}
on *:dialog:Script:sclick:2: {
help Basic IRC Commands
}
on *:dialog:Script:sclick:3: {
help mIRC Commands
}
on *:dialog:Script:sclick:4: {
help mIRC Scripts
}
on *:dialog:Script:sclick:5: {
help Aliases
}
on *:dialog:Script:sclick:6: {
help Popups
}
on *:dialog:Script:sclick:7: {
help Remote
}
on *:dialog:Script:sclick:8: {
help Variables
}
on *:dialog:Script:sclick:9: {
help Identifiers
}
on *:dialog:Script:sclick:10: {
help Time and Date Identifiers
}
on *:dialog:Script:sclick:11: {
help File and Directory Identifiers
}
on *:dialog:Script:sclick:12: {
help Nick and Address Identifiers
}
on *:dialog:Script:sclick:13: {
help Text and Number Identifiers
}
on *:dialog:Script:sclick:14: {
help Token Identifiers
}
on *:dialog:Script:sclick:15: {
help Window Identifiers
}
on *:dialog:Script:sclick:16: {
help Other Identifiers
}
on *:dialog:Script:sclick:17: {
run www.mirc.com/links.html
}
on *:dialog:Script:sclick:1: {
help
}
menu Channel {
mIRC Editor:/dialog -m SEditor SEditor
}
alias script {
dialog -m SEditor SEditor
}
}
}
Not: Yukardaki Kodu mirc inizde Remote bölümünü çarak Yapıştırınız.
Kod Hakkında: Yukardaki vermiş olduğum kodla artık sizde mirc scripting dediğimiz yazılım dilini öğrenmeye başlamış olacaksınız. ve dialoglarınızı artık daha rahat yazacaksınız.bu kodu başka biryerde bulamazsınız…
Bizi İzlemeye Devam edin..
