rendered paste bodyMenu channel {
Useful dialog:dialog -md ut ut
}
alias useful { dialog -md ut ut }
dialog ut {
title "[SLZ] Useful thing"
size -1 -1 128 260
option dbu
box ":רשימת חברים", 3, 1 1 126 58
edit "", 7, 3 9 80 10
list 8, 3 20 80 37, size
button "הוסף", 9, 88 9 35 10
button "מחק", 10, 88 19 35 10
box ":רשימת אויבים", 11, 1 60 126 79
edit "", 12, 3 68 80 10
list 13, 3 79 80 37, size
button "הוסף", 14, 88 68 35 10
button "מחק", 15, 88 78 35 10
box ":בעת התחברות", 16, 3 117 122 20
radio "בעיטה", 17, 94 124 28 10
radio "באן", 18, 71 124 21 10
radio "בעיטה + באן", 19, 23 124 45 10
check "", 20, 10 124 8 10
box ":(שורות מידע (אינפו ליין", 21, 1 139 126 75
list 22, 3 158 80 37, size
edit "", 23, 3 147 80 10
button "הוסף", 24, 88 147 35 10
button "מחק", 25, 88 157 35 10
box "", 26, 3 194 122 18
button "הוסף שורת מידע", 27, 75 199 48 10
button "מחק שורת מידע", 28, 26 199 48 10
button "הסבר", 29, 5 199 20 10
button "סגור", 30, 92 249 35 10
button "שנה ססמא", 2, 4 236 33 10
box "נעילת חלון פרטי", 1, 1 214 126 34
box "", 4, 3 218 122 17
text ":סטטוס", 5, 101 224 22 8
edit "", 6, 72 224 27 9, disable
button "", 31, 4 223 33 10
text ".חלונות נסגרו", 32, 70 237 37 8
edit "", 33, 106 236 19 10, disable
}
alias c1check { if (%utc1s == 1) did -ra $dname 6 נעול
else did -ra $dname 6 פתוח
}
alias c3check {
if (%utc3s == 1) { did -c $dname 20 }
elseif (%utc3s == 0) { did -b $dname 17,18,19 }
}
on *:dialog:ut:sclick:31: { if (%utc1s == 1) { set %utc1s 2 | did -ra $dname 6 פתוח }
else { set %utc1s 1 | did -ra $dname 6 נעול }
}
on *:dialog:ut:sclick:32: { set %utc1s 2 }
on *:dialog:ut:sclick:20: { if ($did($dname,20).state == 1) { set %utc3s 1 | did -e $dname 17,18,19 | rstate }
else { set %utc3s 0 | did -b $dname 17,18,19 | did -u $dname 17,18,19 }
}
on *:dialog:ut:sclick:17: { set %rstate17 1 | set %rstate18 0 | set %rstate19 0 }
on *:dialog:ut:sclick:18: { set %rstate17 0 | set %rstate18 1 | set %rstate19 0 }
on *:dialog:ut:sclick:19: { set %rstate17 0 | set %rstate18 0 | set %rstate19 1 }
on *:dialog:ut:sclick:30: { dialog -x ut ut }
on *:dialog:ut:init:0: { refresh.utfl | refresh.utbl | c3check | refresh.closed | rstate | c1check | refresh.util }
on *:dialog:ut:sclick:2: { //var %utpass1 $$?=":ססמא חדשה"
set %utpass %utpass1 | fnotice | echo -a 5הססמא שונתה בהצלחה
}
alias fnotice {
if ($lines(Useful/friends.txt) > 0) {
var %x 1
while (%x <= $lines(Useful/friends.txt)) {
msg $read(Useful/friends.txt,%x) %utpass :ססמאת החלון הפרטי שלי שונתה. הססמא החדשה היא
inc %x
}
}
}
alias infoactive {
var %lines $lines(Useful/ $+ $nick $+ -info.txt)
var %info $rand(1, $+ [ %lines ] $+ )
msg # 14Random (1/ $+ [ %lines ] $+ ) infoline for :12 $nick :1 $read(Useful/ $+ $nick $+ -info.txt,%info)
}
on *:join:#: { friendslist | infosearch | blacksearch }
alias infosearch {
if (Useful/ $+ $nick $+ -info.txt) && ($read(Useful/infonix.txt,w,$nick)) { infoactive }
}
alias friendslist {
if ($read(Useful/friends.txt,w,$nick)) { msg # Friendslist : $nick [ $chr(91) $+ [ $address ] $+ [ $chr(93) ] ] }
}
alias blacksearch {
if ($read(Useful/blacklisted.txt,w,$nick)) { blacklisted }
}
alias blacklisted {
if (%utc3s == 1) && (%rstate17 == 1) { kick # $nick BlackListed }
elseif (%utc3s == 1) && (%rstate18 == 1) { mode # +b $nick BlackListed }
elseif (%utc3s == 1) && (%rstate19 == 1) { ban -ku900 # $nick 2 BlackListed }
}
alias rstate {
if (%rstate17 == 1) && (%utc3s == 1) { did -c $dname 17 }
elseif (%rstate18 == 1) && (%utc3s == 1) { did -c $dname 18 }
elseif (%rstate19 == 1) && (%utc3s == 1) { did -c $dname 19 }
}
alias refresh.closed {
did -ra ut 33 %windowsclosed
}
on *:open:?: { if (%utc1s == 1) && ($1 != %utpass) { close -m $nick | inc %windowsclosed | refresh.closed | notice $nick מצטער, אך לא אוכל לקבל את הודעתך. החלון הפרטי שלי נעול כרגע, והססמא שגויה. }
elseif (%utc1s == 1) && ($1 == %utpass) { notice $Nick .הססמא התקבלה }
elseif (%utc1s == 0) && ($1 == %utpass) { halt }
elseif (%utc1s == 0) && ($1 != %utpass) { halt }
}
alias refresh.utfl {
var %x 1
did -r $dname 8
while (%x <= $lines(Useful/friends.txt)) {
did -a $dname 8 $read(Useful/friends.txt,%x)
inc %x
}
}
alias refresh.util {
var %x 1
did -r $dname 22
while (%x <= $lines(Useful/infonix.txt)) {
did -a $dname 22 $read(Useful/infonix.txt,%x)
inc %x
}
}
alias refresh.utbl {
var %x 1
did -r $dname 13
while (%x <= $lines(Useful/blacklisted.txt)) {
did -a $dname 13 $read(Useful/blacklisted.txt,%x)
inc %x
}
}
on *:dialog:ut:sclick:9: { write Useful/friends.txt $did($dname,7) | refresh.utfl | did -r $dname 7 }
on *:dialog:ut:sclick:10: { write -dl $+ $did($dname,8).sel Useful/friends.txt | refresh.utfl }
on *:dialog:ut:sclick:24: { write Useful/infonix.txt $did($dname,23) | refresh.util | did -r $dname 23 }
on *:dialog:ut:sclick:25: { infodeleting }
on *:dialog:ut:sclick:14: { write Useful/blacklisted.txt $did($dname,12) | refresh.utbl | did -r $dname 12 }
on *:dialog:ut:sclick:15: { write -dl $+ $did($dname,13).sel Useful/blacklisted.txt | refresh.utbl }
on *:dialog:ut:sclick:27: { write Useful/ $+ $did($dname,22).seltext $+ -info $+ .txt $$?=":שורת מידע" }
on *:dialog:ut:sclick:28: { echo -a 5יש להכניס את מס' השורה שברצונכם למחוק. כדי להציג את מספור הרשימות לחצו על הסבר | write -dl $+ $$?=":מס השורה" Useful/ $+ $did($dname,22).seltext $+ -info $+ .txt }
on *:dialog:ut:sclick:29: { echo -a $did($dname,22).seltext :שורות המידע שהוגדרו לכינוי | linesview }
alias linesview {
var %x 1
var %p 1
echo -a נמצאו $lines(Useful/ $+ $did($dname,22).seltext $+ -info $+ .txt) שורות
while (%x <= $lines(Useful/ $+ $did($dname,22).seltext $+ -info $+ .txt)) {
echo -a %p $+ . $read(Useful/ $+ $did($dname,22).seltext $+ -info $+ .txt,%x)
inc %p
inc %x
}
}
alias infodeleting {
if (Useful/ $+ $did($dname,22).seltext $+ -info.txt) { write -dl $+ $did($dname,22).sel Useful/infonix.txt | refresh.util | write -c Useful/ $+ $did($dname,22).seltext $+ -info.txt }
else { write -dl $+ $did($dname,22).sel Useful/infonix.txt | refresh.util }