על ידי - מערכת אינפו ליין מצוינת בעברית
- המערכת יכולה לעבוד גם לפי ניק וגם לפי host
- יש אפשרות לערוך אינפו ליין
תמונה:
קוד:
- קוד: בחר הכל
|\/|/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/|
|\/|------------------------------------------------------|\/|
|\/| \\\\ INFO-LINE System //// |\/|
|\/| \\\\ מערכת אינפו ליין //// |\/|
|\/| \\\\ By XeRap` //// |\/|
|\/| \\\\ For WwW.MiRc-Il.com //// |\/|
|\/|------------------------------------------------------|\/|
|\/|///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\|\/|
dialog infod {
title "מערכת אינפו ליין XeRap`"
size -1 -1 213 218
option pixels
list 2, 6 38 201 143, size
button "הוסף", 1, 11 10 38 25
button "מחק", 4, 56 10 38 25
button "אפס אינפו ליין", 3, 100 10 104 25
button "לצאת", 5, 7 183 56 29
text "תלחץ פעמיים על שם כדי לראות את הסיבה", 6, 67 183 140 30
}
dialog Infod2 {
title "אינפו ליין"
size -1 -1 178 44
option dbu
text "", 1, 5 11 166 18
text "אינפו:", 2, 4 1 25 8
button "לצאת", 3, 4 30 37 12
button "ערוך אינפו", 4, 132 30 37 12
}
on *:dialog:infod2:sclick:*: {
if ($did == 3) { dialog -x $dname $dname }
if ($did == 4) { writeini -n Info.ini %info.Man Info $$?="הכנס אינפו ליין חדש" | did -ra $dname 1 $readini(info.ini,%info.Man,info) }
}
on *:dialog:infod:dclick:*: {
if ($did == 2) {
if ($len($did($dname,2).seltext) > 0) {
set %info.Man $did($dname,2).seltext
dialog -m infod2 infod2
did -ra infod2 1 $readini(info.ini,$did($dname,2).seltext,info)
}
}
}
on *:dialog:infod:init:*: {
var %i = 1
while ($ini(info.ini,%i)) {
did -a $dname 2 $ifmatch
inc %i
}
}
on *:dialog:infod:sclick:*: {
if ($did == 1) {
var %Info.Added $$?="הכנס שם"
if ($len(%info.Added) == 0) { halt }
if ($ini(Info.ini,%info.Added)) { halt }
writeini -n info.ini %Info.Added Info $$?="הכנס אינפו ליין"
did -a $dname 2 %Info.Added
}
if ($did == 4) {
if ($len($did($dname,2).seltext) == 0) { halt }
if ($input(האם אתה רוצה למחוק את $did($dname,2).seltext ?,y,מחיקת אינפו) == $true) {
remini -n info.ini $did($dname,2).seltext
did -d $dname 2 $did($dname,2).sel
}
}
if ($did == 3) {
if ($input(האם אתה רוצה לאפס את האינפו ליין?,y,איפוס אינפו ליין) == $true) {
remove info.ini
writeini -n info.ini 1 1 1
remini -n info.ini 1
did -r $dname 2
}
}
if ($did == 5) { dialog -x $dname $dname }
}
on *:Join:#: {
if ($ini(info.ini,$nick)) {
var %c1 $+ $r(1,15) | $iif($len(%c1) == 2, set -u1 %c1 0 $+ $right(%c1,1))
msg # %c1 $+ I 14nfo %c1 $+ l 14ine %c1 $+ f 14or $+ %c1 $+ $nick $+ 14 : %c1 $+ $+ $readini(info.ini,$nick,info) $+ $+ 14 ( $+ %c1 $+ B 14y %c1 $+ » 14 %c1 $+ X 14eRap`)
}
if (!$ini(info.ini,$nick)) && ($ini(info.ini,$address($nick,2))) {
var %c1 $+ $r(1,15) | $iif($len(%c1) == 2, set -u1 %c1 0 $+ $right(%c1,1))
msg # %c1 $+ I 14nfo %c1 $+ l 14ine %c1 $+ f 14or $+ %c1 $+ $nick $+ 14 : %c1 $+ $+ $readini(info.ini,$address($nick,2),info) $+ $+ 14 ( $+ %c1 $+ B 14y %c1 $+ » 14 %c1 $+ X 14eRap`)
}
}
menu * {
אינפו ליין
.אינפו ליין דיאלוג: dialog -m infod infod
}
menu nicklist {
אינפו ליין
.הוסף אינפו: var %Info.Added $1 | writeini -n info.ini %Info.Added Info $$?="הכנס אינפו ליין"
.מחק אינפו: var %info.rem $1 | remini -n info.ini %info.rem
}
|\/|/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/|
|\/|------------------------------------------------------|\/|
|\/| \\\\ כל הזכויות שמורות //// |\/|
|\/| \\\\ מערכת אינפו ליין //// |\/|
|\/| \\\\ By XeRap` //// |\/|
|\/| \\\\ For WwW.MiRc-Il.com //// |\/|
|\/|------------------------------------------------------|\/|
|\/|///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\|\/|
תגובות!!!
RSS Feed