Ban System with Much Reasons:)

By ProIcons on Mar 31, 2009

well you must first edit the reasons. Open menu "Ban System by GaMeMaster -> Reasons"
and edit all you reasons of bans after
You Find i a nicklist menu if you are op of this Chan in "Ban System by GaMeMaster -> Ban"
else "Ban System by GaMeMaster -> Not Op"
p.s Gamemaster is me:D

menu nicklist {
  .Ban SyStem by GaMeMaStEr
  ..$iif($me isop $chan,Ban,$style(2) Not Op) { set %channel_b $chan | set %user_b $$1 | /dialog -m Reasons Reasons }
  ..Reasons:{ if ($exists($mircdirReasons.txt)) { run reasons.txt } | else { write reasons.txt $me | run reasons.txt } }
  ..Info:{ set %asd $input(Ban System By GaMeMaStEr $crlf Version 1,460) }
}
dialog Reasons {
  title "BanSystem"
  size -1 -1 204 62
  option dbu
  list 1, 0 0 204 44, size
  button "Random", 2, 55 46 37 12
  button "Select", 3, 105 46 37 12
}
on *:dialog:Reasons:init:0:{
  if (!$exists($mircdirreasons.txt)) {
    write reasons.txt $me
    if ($input(A new File Reasons.txt Has Been Created,460) != 233) { halt }
    else { write_reasons }
  }
  else {
    write_reasons
  }
}
alias write_reasons {
  var %i = 1
  while ( %i <= $lines($mircdirreasons.txt) ) {
    did -a reasons 1 $read($mircdirreasons.txt,%i)
    inc %i
  }
}
on *:dialog:Reasons:Sclick:3:{
  if ($did($dname,1).seltext != $null) {
    ban -k %channel_b %user_b $did($dname,1).seltext
  }
  else { set %asd $input(Please Select A Reason,460) }
}
on *:dialog:Reasons:sclick:2:{
  ban -k %channel_b %user_b $did(reasons,1,$rand(1,$did(reasons,1).lines)))
}

Comments

Sign in to comment.
PATX   -  Mar 31, 2009

Cheiron: The point of the script is mediocre.


^Neptune: The code is pretty neat...

 Respond  
^Neptune   -  Mar 31, 2009

HAWKEE BAN SYSTEM HAVE MUCH REASONS.

It works though. =D I give it a 6 for neat.

 Respond  
Cheiron   -  Mar 31, 2009

it is one thing saying Mediocre.. it does help the scripter though if you explain why .. whats wrong, whats right etc for improvements, bug fixes etc :)

 Respond  
PATX   -  Mar 31, 2009

Mediocre.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.