mIRC Addonlari..

[MahmutEfendi]

S.a arkadaslar bir süredir mIRC addonlari hakkinda sorular geliyordu cok sık değil ama elimde olanlari eklemek istiyorum..
Umarim isinize yarar..

Addon eklemek isteyen arkadaslar konu altina ekleyebilirler..

Flood koruma..



on @1:join:#: {

inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]

if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 6 halt

unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]

ban $chan $wildsite | kick $chan $nick Join/Part tekrarı yasaktır. }

}



flood.txt seklinde mIRC klasörüne atarak mIRC’inizde aktif etmek icin.



/load -rs flood.txt yazın

Deaktif etmek icin ise;



/unload -rs flood.txt Yazacaksiniz..

[MahmutEfendi]

Away Koruma;




menu channel {

away scan:{ if ($group(#awayscan) = on) { wawayscan 04 > hata; ba?ka bir away taramas? yap?l?yor.. } | elseif ($group(#awayscan) = off) { wawayscan 04 > # kanal?nda away taramas? ba?lat?ld?.. | unset %awayscan | .enable #awayscan | who # } }

}

#awayscan off

raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }

raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | wawayscan 07 > $iif($numtok(%awayscan,32) > 0,$2 kanal?nda $ifmatch tane away nick bulundu $+ $chr(44) away mesajlar?na bak?l?yor.,$2 kanal?nda kimse away de?il..) } }

#awayscan end

raw 301:*:{ if $istok(%awayscan,$2,32) { wawayscan 05 ! away nick; $+(¬,$2,¬) mesaj; $3- | set %awayscan $remtok(%awayscan,$2,1,32) } }

alias wawayscan { if !$window(@AwayScan) { window -lk0z @AwayScan } | aline -p @AwayScan $time(HH:nn.sst) $1- }

menu @AwayScan {

Kopyala:clipboard $sline(@AwayScan,1)

-

$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),Kick):{

var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {

var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))

if $me isop %c { kick %c %ö Away } | dec %o }

}

$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),Kick $+($chr(40),?,$chr(41))):{

if $?="Kick mesaj?n? yaz?n?z:" {

var %ç = $!

var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {

var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))

if $me isop %c { kick %c %ö %ç } | dec %o }

}

}

-

$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),KBan):{

var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {

var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))

if $me isop %c { ban -k %c %ö 2 Away } | dec %o }

}

$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),KBan $+($chr(40),?,$chr(41))):{

if $?="KickBan mesaj?n? yaz?n?z:" {

var %ç = $!

var %o = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,0) | while %o {

var %c = $comchan($strip($gettok($sline(@AwayScan,1),5,32)) ,%o), %ö = $strip($gettok($sline(@AwayScan,1),5,32))

if $me isop %c { ban -k %c %ö 2 %ç } | dec %o }

}

}

-

$iif($line(@AwayScan,0) > 0,$style(0),$style(2)) Temizle:clear @AwayScan

Kapat:window -c @AwayScan

}



Kullanimi ilk verdigim addondaki gibi aktif ediliyor..

[MahmutEfendi]

İdent korumasi;




on @*:JOIN:#:{

if (*!*Badident*@* iswm $fulladdress) || (*!*badident*@* iswm $fulladdress) || (*!*badident*@* iswm $fulladdress) || (*!*badident*@* iswm $fulladdress) { .ban $chan $nick 0 | .kick # $nick $+ # Badident kullanmak yasaktır. }

}

[MahmutEfendi]

Bad nick;




on @*:JOIN:#:{

if (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) || (*nick!*@* iswm $fulladdress) || (*nick*!*@* iswm $fulladdress) {

.ban # $nick 1

/kick # $nick 1Badnick Kullanmak Yasaktır..Lütfen Nickinizi Değiştiriniz..

}

}

[MahmutEfendi]

Caps Lock Korumasi;



alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on

on @*:TEXT:*:#: {

if $me !isop $chan { halt } | if $nick isop $chan { halt }

if ($len($1-) < 50) || ($nick isop #) return

var %text = $strip($remove($1-,$chr(32)))

var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))

var %full.line = $len($strip($remove(%text,$chr(32))))

var %percent = $calc(1 - (%non.caps / %full.line))

if (%percent >= 0.8) {

/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13CAPS LOCK/OFF2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )

unset %CAPS. $+ $nick

}

}

#caps end

[MahmutEfendi]

İnvite korumasi;



on *:INVITE:*: {

if $me !isop $comchan($nick,1) { halt }

if $nick isop $comchan($nick,1) { halt }

ban $comchan($nick,1) $nick 2 | kick $comchan($nick,1) $nick İnvite kullanımı yasaktır.

}

[MahmutEfendi]

mIRC üzerinden ip adresi ile yer tespiti.



on *:LOAD:{

if (!$exists(" $+ $scriptdirdns.cache.ini $+ " )) {

write -c " $+ $scriptdirdns.cache.ini $+ "

}

}

alias ClassC {

;This alias will return Class C of the given ip

;Example: $ClassC(127.0.0.9) will return 127.0.0.*

if ($isid) {

if ($1) {

;checking if ip’s structure is valid.

if (*.*.*.* iswm $1) {

if ($GetNum($1,1) isnum && $GetNum($1,2) isnum && $GetNum($1,3) isnum && $GetNum($1,4) isnum) {

return $+($GetNum($1,1),.,$GetNum($1,2),.,$GetNum($1,3),. ,*)

}

else {

return invalid

halt

}

}

else {

return $1

}

}

else {

echo $color(info) -at * /ClassC: insufficient parameters

halt

}

}

}

alias -l GetNum {

return $gettok($1,$2,46)

}

on *NS:{

if ($raddress) {

if ($raddress isnum) {

write " $+ $scriptdirdns.tmp $+ " $raddress

traceip

}

else {

var %tot = $dns(0)

var %i = 1

while (%i <= %tot) {

write " $+ $scriptdirdns.tmp $+ " $dns(%i).ip

inc %i

}

traceip

}

}

else {

write " $+ $scriptdirdns.tmp $+ " $dns(0).ip

traceip

}

}

alias traceip {

if ($1) {

if ($1 == -r && $2) {

if ($ini(" $+ $scriptdirdns.cache.ini $+ ",$ClassC($2)) != 0) {

remini -n " $+ $scriptdirdns.cache.ini $+ " $ClassC($2)

if ($show) {

echo $color(info) -at * /traceip: removed $ClassC($2) from the cache.

}

}

else {

if ($show) {

echo $color(info) -at * /traceip: couldn’t find $ClassC($2) $+ .

halt

}

}

}

elseif ($1 == -u) {

if (!$sock(update.traceip)) {

sockopen update.traceip scripts.THM.org.ua 80

if ($show) {

echo $color(info) -at * /traceip: Update is in progress...

}

}

else {

if ($show) {

echo $color(info) -at * /traceip: Update is alredy in progress.

halt

}

}

}

else {

set %ip $1

:check1

if ($exists(" $+ $scriptdirdns.cache.ini $+ ")) {

if ($ini(" $+ $scriptdirdns.cache.ini $+ ",$ClassC($1),0) != 0) {

if ($readini(" $+ $scriptdirdns.cache.ini $+ ",$ClassC($1),location) != unresolved) {

if ($show) {

echo $color(other) -at [CACHED] $1 is $readini(" $+ $scriptdirdns.cache.ini $+ ",$ClassC($1),location)

halt

}

}

else {

goto w00t

}

}

else {

writeini -n " $+ $scriptdirdns.cache.ini $+ " $ClassC($1) location unresolved

:w00t

if (!$sock(traceip $+ %ip)) {

sockopen traceip $+ %ip www.dnsstuff.com 80

}

}

}

else {

write -c " $+ $scriptdirdns.cache.ini $+ "

goto check1

}

}

}

else {

if ($exists(" $+ $scriptdirdns.tmp $+ ")) {

var %i = 1

if ($lines(" $+ $scriptdirdns.tmp $+ ") > 0) {

if ($show) {

.timerechoips -m 1 1 echo $color(other) -at * /traceip: Going to trace $lines(" $+ $scriptdirdns.tmp $+ ") $iif($lines(" $+ $scriptdirdns.tmp $+ ") > 1,IP’s,IP) $+ ...

}

while (%i <= $lines(" $+ $scriptdirdns.tmp $+ ")) {

.timertraceip $+ $read(" $+ $scriptdirdns.tmp $+ ",%i) 1 %i traceip $read(" $+ $scriptdirdns.tmp $+ ",%i)

inc %i

}

}

.remove " $+ $scriptdirdns.tmp $+ "

}

else {

echo $color(info) -at * /traceip: insufficient parameters

}

}

}

on *:SOCKOPEN:update.traceip:{

if ($sockerr > 0) {

sockclose $sockname

echo $color(info) -at * /traceip (update): An error has occured.

if ($sockerr == 3) {

if (!$sock($sockname)) {

sockopen update.traceip scripts.THM.org.ua 80

}

}

}

else {

sockwrite -n $sockname GET /scripts/IPTracer/dns.cache.ini HTTP/1.0

sockwrite -n $sockname Host: www.THM.org.ua

sockwrite -n $sockname ACCEPT: *.*

sockwrite $sockname $crlf

%ip.line = 0

.remove " $+ $scriptdirtempdns.cache.ini $+ "

}

}

on *:SOCKREAD:update.traceip:{

if (%ip.line <= 9) {

sockread %update

tokenize 32 %update

if ($1 == Content-Length {

if ($calc($2 - $file(" $+ $scriptdirdns.cache.ini $+ ").size) > 0) {

set %allow.update $true

}

}

inc %ip.line

}

else {

if (%allow.update) {

sockread &update

bwrite " $+ $scriptdirtempdns.cache.ini $+ " -1 &update

unset %ip.line

}

else {

sockclose $sockname

echo $color(info) -at /traceip (update): Your cache is bigger than the internet cache. There are $ini(" $+ $scriptdirdns.cache.ini $+ ",0) zones in your cache. Aborted

}

}

unset %update

bunset &update

}

alias -l ask.for {

if ($?!="There are less/same IP’s in the updated file. Do you wish to replace your cache anyway?" == $true) {

return $true

}

else {

return $false

}

}

on *:SOCKCLOSE:update.traceip:{

.timerdo.update -m 1 1 do.update

unset %allow.update

}

alias -l do.update {

var %total = $calc($ini($scriptdirtempdns.cache.ini,0) - $ini($scriptdirdns.cache.ini,0))

.remove " $+ $scriptdirdns.cache.ini $+ "

.rename " $+ $scriptdirtempdns.cache.ini $+ " " $+ $scriptdirdns.cache.ini $+ "

echo $color(info) -at /traceip (update): Update succeeded! There are $ini(" $+ $scriptdirdns.cache.ini $+ ",0) zones in the cache now. Total %total zones added.

}

on *:SOCKOPEN:traceip*:{

if ($sockerr > 0) {

sockclose $sockname

echo $color(info) -at * /traceip: An error has occured.

if ($sockerr == 3) {

if (!$sock($sockname)) { sockopen traceip $+ %ip www.dnsstuff.com 80 }

}

}

else {

sockwrite -n $sockname GET /tools/whois.ch?ip= $+ %ip HTTP/1.1

sockwrite -n $sockname Host: www.dnsstuff.com

sockwrite -n $sockname Connection: keep-alive

sockwrite $sockname $crlf

}

}

on *:SOCKCLOSE:traceip*:{

if (!%ip) { echo $color(info) -at * /traceip: An error has occured. }

}

on *:SOCKREAD:traceip*:{

sockread %trace

tokenize 32 %trace

if (Country: isin %trace) {

echo $color(other) -at $remove($sockname,traceip) is $remove($2-,[,],(High))

writeini -n " $+ $scriptdirdns.cache.ini $+ " $ClassC($remove($sockname,traceip)) location $remove($2-,[,],(High))

sockclose $sockname

}

unset %trace

.timerruns 1 1 unset %ip

}

menu nicklist {

Trace IP:dns $$1

}

menu query {

Trace IP:dns $$1

}

[MahmutEfendi]

İrcop Scanner;



;IrcOp Scanner

;v1.4

;Written by fuzzbuster



;;; Groups

#ircop.netscan off

raw 352:*:{ haltdef | did -a $ircop.scanner 11 $6 }

raw 315:*:{ haltdef | .disable #ircop.netscan }

#ircop.netscan end

#ircop.chanscan off

raw 352:*:{ haltdef | if (* isin $7) did -a $ircop.scanner 12 $6 }

raw 315:*:{ haltdef | .disable #ircop.chanscan }

#ircop.netscan end



;;; Menu Addons

menu Status,Channel,Nicklist,Query {

Irc&Op Scanner...:Ircop-scan

}

menu Menubar {

Irc&Op Scanner

.&Scan...:Ircop-scan

.-

.&UnInstall: {

if ($?!="Are you sure you want to UnInstall IrcOp Scanner v1.4?" == $false) { halt }

else { unset %ircop.* | echo -s *** IrcOp Scanner v1.4 has been successfully Removed | .unload -rs " $+ $script $+ " }

}

}



;;; Dialogs

Dialog IrcOp.scanner.dialog {

Title "IrcOp Scanner v1.4 - Scanner"

Size -1 -1 200 103

Option DBU

Button "Ok", 1, 3 89 30 12, Ok Default

Button "Cancel", 2, 36 89 30 12, Cancel

Text "IrcOp Scanner v1.4", 4, 147 92 60 10,

Box "Network", 5, 3 2 73 84,

Box "Channel", 6, 79 2 73 84,

Box "Options", 7, 155 2 40 84,

Button "Scan", 8, 25 73 30 10,

Button "Scan", 9, 83 73 30 10,

Button "Refresh", 19, 118 73 30 10,

Combo 10, 83 60 66 100, Sort Drop

list 11, 7 10 65 67, sort autovs autohs

list 12, 83 10 65 54, sort autovs autohs

Button "Query", 13, 160 11 30 10,

Button "Notice", 14, 160 23 30 10,

Button "CTCP", 15, 160 35 30 10,

Button "Whois", 16, 160 47 30 10,

Button "Ignore", 17, 160 59 30 10,

Button "Notify", 18, 160 71 30 10,

}

Dialog IrcOp.ctcp.dialog {

Title "IrcOp Scanner - CTCP"

Size -1 -1 102 74

Option DBU

Button "Send", 1, 3 60 30 12, Ok Default

Button "Cancel", 2, 36 60 30 12, Cancel

Box "CTCPs", 4, 3 2 96 55,

Radio "Ping", 5, 7 11 30 10,

Radio "Time", 6, 7 22 30 10,

Radio "Version", 7, 7 33 30 10,

Radio "Other:", 8, 7 44 30 10,

Edit "", 9, 39 44 56 10,

}



;;; Aliases

alias ircop-scan { dialog -m $ircop.scanner $ircop.scanner }

alias -l ircop.scanner { return ircop.scanner.dialog }

alias -l ircop.ctcp { return ircop.ctcp.dialog }

alias -l ircop.rechan {

did -r $ircop.scanner 10 1 | ircop.addchan | did -c $ircop.scanner 10 1

if ($did($ircop.scanner,10) ischan) { did -e $ircop.scanner 9 }

else { did -b $ircop.scanner 9 }

}

alias -l ircop.scan {

if ($1 == net) { .enable #ircop.netscan | who 0 o }

elseif ($1 == chan) { .enable #ircop.chanscan | who $did($ircop.scanner,10,$did($ircop.scanner,10).sel ).text }

}

alias -l ircop.addchan {

var %~ircop.channum = 0

while (%~ircop.channum >= 0) {

inc %~ircop.channum

var %~ircop.chan = $chan(%~ircop.channum)

if (%~ircop.chan == $null) { goto Break }

did -a $ircop.scanner 10 %~ircop.chan

}

:Break

}



;;; Remote Events

on *IALOG:ircop.scanner.dialog:init:0:{

did -b $ircop.scanner 4,13,14,15,16,17,18

if ($server) { ircop.addchan | did -c $ircop.scanner 10 1 }

else { did -b $ircop.scanner 8,9,10,19 }

if ($did(10,$did(10).sel) == $null) { did -b $ircop.scanner 9 }

}

on *IALOG:ircop.ctcp.dialog:Init:0:{ did -c $ircop.ctcp 5 | did -b $ircop.ctcp 9 }

on *IALOG:ircop.scanner.dialog:Sclick:*:{

if ($did == 1) { $iif($dialog($ircop.ctcp),dialog -x $ircop.ctcp) | unset %~ircop.* }

if ($did == 2) { $iif($dialog($ircop.ctcp),dialog -x $ircop.ctcp) | unset %~ircop.* }

if ($did == 8) { did -r $ircop.scanner 11 | $ircop.scan(net) }

if ($did == 9) { did -r $ircop.scanner 12 | $ircop.scan(chan) }

if ($did == 11) {

did -e $ircop.scanner 13,14,15,16,17,18

if ($address($did(11,$did(11).sel),0) isignore) { did -o $ircop.scanner 17 1 UnIgnore }

else { did -o $ircop.scanner 17 1 Ignore }

if ($address($did(11,$did(11).sel),0) isnotify) { did -o $ircop.scanner 18 1 UnNotify }

else { did -o $ircop.scanner 18 1 Notify }

}

if ($did == 13) { query $did(11,$did(11).sel) }

if ($did == 14) { notice $did(11,$did(11).sel) $$?="Notice to send to user:" }

if ($did == 15) {

if ($dialog($ircop.ctcp)) { dialog -v $ircop.ctcp $ircop.ctcp }

else { %~ircop.ctcpnick = $did(11,$did(11).sel) | dialog -m $ircop.ctcp $ircop.ctcp }

}

if ($did == 16) { whois $did(11,$did(11).sel) }

if ($did == 17) {

if ($address($did(11,$did(11).sel),0) isignore) { ignore -r $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 17 1 Ignore }

else { ignore -cktinp $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 17 1 UnIgnore }

}

if ($did == 18) {

if ($address($did(11,$did(11).sel),0) isnotify) { notify -r $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 18 1 Notify }

else { notify $address($did(11,$did(11).sel),0) | did -o $ircop.scanner 18 1 UnNotify }

}

if ($did == 19) { ircop.rechan }

}

on *IALOG:ircop.scanner.dialogClick:*:{

if ($did == 11) { if ($server) whois $did(11,$did(11).sel) }

if ($did == 12) { if ($server) whois $did(12,$did(12).sel) }

}

on *IALOG:ircop.ctcp.dialog:Sclick:*:{

if ($did == 1) {

if ($did(5).state) { ctcp %~ircop.ctcpnick Ping }

if ($did(6).state) { ctcp %~ircop.ctcpnick Time }

if ($did(7).state) { ctcp %~ircop.ctcpnick Version }

if ($did(8).state) {

if ($did(9)) { ctcp %~ircop.ctcpnick $strip($did(9)) }

else { echo $colour(Info) -s * /ctcp: insufficient parameters }

}

unset %~ircop.ctcpnick

}

if (($did == 5) || ($did == 6) || ($did == 7)) { did -b $ircop.ctcp 9 }

if ($did == 8) { did -e $ircop.ctcp 9 }

}

on *:CONNECT:{

if ($dialog($ircop.scanner)) {

did -e $ircop.scanner 8,10,19

if ($did($ircop.scanner,10)) { did -e $ircop.scanner 9 }

}

}

on *ISCONNECT:{

if ($dialog($ircop.scanner)) { did -b $ircop.scanner 8,9,10,19 }

}

on me:JOIN:#:{ ircop.rechan }

on meART:#:{ ircop.rechan }

on *:LOAD:{

if ($bits < 32) { echo -s *** Error: This addon requires mIRC32 in order to run. You are using mirc $+ $bits $+ . | unload -rs " $+ $script $+ " }

if ($version < 5.72) { echo -s *** Error: This addon requires mIRC version 5.72 or later. You are using $version $+ . | unload -rs " $+ $script $+ " }

else { echo -s *** IrcOp v1.4 has been loaded successfully. Please refer to ReadMe.txt on how to use this addon. }

}

[MahmutEfendi]

Küfür korumasi;




on 1:action:*:#: {

if $me !isop $chan { halt }

if $nick isop $chan { halt }

if (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1-) || (kelime isin $1- ) {

.mode $chan +b $wildsite | .kick $chan $nick Action mesajınız küfür kullanmak yasaktır. }

}

[MahmutEfendi]

Notice korumasi;



on 1:NOTICE:* {

if (%SelfProt == OFF) || (%lagmode == ON)

if ($nick == ChanServ) || ($nick == NickServ) || ($nick == MemoServ)

inc %pnf [ $+ [ $site ] ] | .timer 1 5 unset %pnf [ $+ [ $site ] ]

if (%pnf [ $+ [ $site ] ] == 2) { ignore -u60 $wildsite | msg $nick Özelime notice flood yapmak yasaktır }

}

[MahmutEfendi]

Notice kufur;



on 1:notice:*:#: {

if $me !isop $chan { halt }

if $nick isop $chan { halt }

if (kufur isin $1-) || (kufur isin $1-) || (kufur isin $1-) || (kufur isin $1-) || (kufur isin $1-) || (kufur isin $1-) || (kufur isin $1-) {

.mode $chan +b $wildsite | .kick $chan $nick Notice mesajınızda küfür etmek yasaktır. }

}

[MahmutEfendi]

Memoserv;

dialog memoserv {
title " Memoserv Komutları "
size 240 228 280 142
button "Memo Gönder", 1, 13 18 105 23
box "Memo Oku:", 2, 134 3 140 99
button "Memo 1", 31, 140 21 53 20
button "Memo 4", 34, 211 21 53 20
button "Memo 2", 32, 140 46 53 20
button "Diğer", 6, 211 71 53 20
button "Memo 3", 33, 140 71 53 20
button "Son", 8, 211 46 53 20
button "Mesaj Sil", 9, 13 46 105 23
button "Tümünü Sil", 11, 13 75 105 23
button "Mesajları Listele", 12, 12 104 105 23
box "", 13, 5 2 122 133
button "Tamam", 14, 137 111 65 22,ok
button "İptal", 15, 208 111 65 22, cancel
}
on 1:dialog:memoserv:sclick:*:{
if $did == 1 { dialog -m memo1 memo1 }
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did - 30) }
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog memo1 {
title "Memo Gönder"
size 307 197 233 170
button "Gönder", 1, 36 146 75 20, ok
text "Nick:", 2, 15 7 26 13
edit "", 3, 47 5 175 19, autohs
text "Mesaj:", 4, 6 31 36 16, right
edit "", 5, 48 29 174 99, multi, return, vsbar
box "", 8, 6 129 221 11
button "Vazgeç", 9, 119 146 75 20,cancel
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Nick Yazmadınız! | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Memo girilmedi! | dialog -ma erro erro | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo = ""
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog memo2 {
title %memo.t
size 307 197 175 74
button %memo.b, 1, 13 48 68 20,ok
text "Mesaj No:", 2, 22 9 87 13
edit "", 3, 113 5 35 21, autohs
box "", 8, 4 29 165 11
button "Vazgeç", 9, 92 48 67 20,cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}