[פרסום] רשימה שחורה - Black list

[incrade]

הכנתי בלאק ליסט פשוט למי שרוצה ..

הדיאלוג:



http://www.siz.co.il/my.php?i=znm3mymjmylg.jpg

דיאלוג העזרה:



http://www.siz.co.il/my.php?i=5nne1zynywgg.jpg


הסברים איך להוסיף מישהו יש בדיאלוג העזרה.. כדי להיכנס אליו צריך ללחוץ על כפתור ה "עזרה - Help" ..

מי שלא הבין איך למחוק אז פשוט לוחצים על מי שרוצים למחוק פעמיים וזה מוחק אותו..

יש אפשרות נוספת להוסיף\למחוק מישהו

לחפש אותו ברשימת המשתמשים בערץ בצד -> מקש ימיני > Add/Del Black ..

קוד: בחר הכל

on @Blacklist:join:#:{ if ($nick != $me) && ($me isop #) { var %c =  $+ $r(1,7) | mode # +b $maddress | kick # $nick  $+ %c $+ H14ello $+ %c $nick Y14our %c $+ H14ost %c $+ I14s %c $+ F14ound %c $+ I14n %c $+ M14y %c $+ B14lacklist. %c $+ B14ye %c $+ B14ye! [ $+ %c $+ $address($nick,2) $+ %c $+ 14] } }
dialog blisthelp {
  title "Black List Help Dialog By Matan -Incrade-"
  size -1 -1 178 174
  option dbu
  link "Help - English", 1, 67 5 40 8
  text "To add a black list user you need to write his nick/address in the white line and then press -Add Black- button.", 2, 16 19 147 17
  text "To delete someone from the black list you need to select someone and the double click.", 3, 15 43 149 19
  link "Help - עברית", 4, 67 69 59 8
  text " מה שעליך לעשות כדי להוסיף משתמש כלשהו לרשימה השחורה זה לרשום את כתובת האייפי שלו \ את השם משתמש עצמו בשורה הלבנה, ואז ללחוץ על", 5, 15 84 150 20,  right
  text "כדי למחוק משתמש כלשהו מהרשימה השחורה אתה פשוט צריך לסמן את מי שאתה רוצה למחוק וללחוץ עליו פעמיים", 6, 15 109 151 17, right
  text "מקווה שעזרתי, מתן", 7, 47 139 83 10, right
  link "Black List Dialog By Matan ''Incrade'' - www.mIRCs.co.il", 8, 24 164 137 8
  text "Hope i helped , Matan.", 9, 43 151 84 8 begin_of_the_skype_highlighting              43 151 84 8      end_of_the_skype_highlighting
  text "Add Black", 10, 30 97 25 8
}
dialog credits {
  title "Black List Credits Dialog By Matan -Incrade-"
  size -1 -1 175 140
  option dbu
  icon C:\miRC-all\Dialog Studio\mirc.ico, 0
  link "Credits ( English )", 1, 50 5 73 7
  text "This Black-List Script Made By Matan ''Incrade'' For - www.mIRCs.co.il - For Help click on Help - עזרה Button.", 2, 28 21 116 27
  link "Credits ( עברית )", 3, 50 66 61 8
  text "סקריפט זה (רשימה שחורה)  נוצר על-ידי מתן עבור", 4, 18 79 127 7, right
  text "www.mIRCs.co.il.", 6, 18 87 127 8
  text " עזרה - Help -  לעזרה לחצו על כפתור ה  ", 7, 17 96 129 8, right
  link "Black List Dialog By Matan ''Incrade'' - www.mIRCs.co.il", 9, 26 115 137 8
}
dialog blist {
  title "Black List By Matan -Incrade-"
  size -1 -1 177 151
  option dbu
  icon C:\miRC-all\Dialog Studio\mirc.ico, 1
  box "Black List", 1, 3 2 171 109
  button "Add Black", 2, 8 96 37 12
  text "To delete a blacklist address/nickname , you must to double click on the address/nickname.", 9, 60 95 115 15
  list 4, 8 12 161 57, size
  link "** Note: This Black List By", 5, 4 114 69 7
  link "Matan ''Incrade'' For", 6, 3 124 69 8
  link "www.mIRCs.co.il **", 7, 3 136 69 8
  edit "", 8, 9 78 161 10
  box "Add Black List", 10, 8 69 163 23
  button "OK", 11, 133 116 37 12, OK
  button "Cancel", 12, 133 134 37 12, cancel
  button "Credits", 13, 83 116 39 12
  button "Help - עזרה", 14, 82 134 39 12
}
menu channel,status {
  Black List:/dialog -m blist blist
}
menu nicklist {
  Blacklist
  .Add $1: .auser Blacklist $address($1,2) | inc %Blist.num | var %c =  $+ $r(1,7) | ban -k $1 %c $+ Y14ou %c $+ A14re %c $+ N14ow %c $+ I14n %c $+ M14y %c $+ B14lacklist, %c $+ B14ye %c $+ B14ye! $chr(91) $+ %c $+  $+ %Blist.num $+ 14 $+ $chr(93)
  .Delete $1: .ruser Blacklist $address($1,2)
  .Show Blacklist:/dialog -m blist blist
}
on *:dialog:blist:dclick:4:{ .ruser Blacklist $did(4).seltext | did -d blist 4 $did(4).sel }
on *:dialog:blist:sclick:2:{ if ($did(8) != $null) { did -a blist 4 $did(8) | .auser Blacklist $did(8) | did -fr blist 8 } }
on *:dialog:blist:sclick:5:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:6:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:7:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:13:{ /dialog -m credits credits | var %c =  $+ $r(1,7) | msg $active %c $+ T14his %c $+ B14lack %c $+ L14ist %c $+ M14ade %c $+ B14y %c $+ M14atan %c $+ "14Incrade $+ %c $+ " }
on *:dialog:blist:sclick:14:{ /dialog -m blisthelp blisthelp }
on *:dialog:credits:sclick:9:{ url www.mIRCs.co.il }
on *:dialog:blist:init:*:{
  if ($ulist(*,BlackList,0) != $null) {
    set %bl.Blist 0
    while (%bl.Blist < $ulist(*,BlackList,0)) {
      inc %bl.Blist 1
      did -a blist 4 $ulist(*,BlackList,%bl.Blist)
    }     
    unset %bl.Blist
  }
}


[ZxoR]

במקום כל האיוונטים יכולת לשלב לדוגמא:
במקום:

קוד: בחר הכל

on *:dialog:blist:sclick:5:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:6:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:7:{ url www.mIRCs.co.il }


תעשה:

קוד: בחר הכל

on *:dialog:blist:sclick:*: {
if ($did == 5) || ($did == 6) || ($did == 7) { url www.mIRCs.co.il }
}


[Billy]

ZxoR כתב:

במקום כל האיוונטים יכולת לשלב לדוגמא:
במקום:

קוד: בחר הכל

on *:dialog:blist:sclick:5:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:6:{ url www.mIRCs.co.il }
on *:dialog:blist:sclick:7:{ url www.mIRCs.co.il }


תעשה:

קוד: בחר הכל

on *:dialog:blist:sclick:*: {
if ($did == 5) || ($did == 6) || ($did == 7) { url www.mIRCs.co.il }
}


או

קוד: בחר הכל

on *:dialog:blist:sclick:5-7:url -n http://www.mIRCs.co.il

[ZxoR]

תודה רבה, אך אין לנו צורך בקוד כה פשוט אצלינו במירקס, ולכן יועבר בהמשך השבוע למחסן.