IceChat Forums

IceChat 7 => IceChat 7 Scripts => Topic started by: Alcohal on February 02, 2009, 05:16:16 PM

Title: Can anyone Convert this for me?
Post by: Alcohal on February 02, 2009, 05:16:16 PM
I was wondering if anyone could convert this to icechat script. If possible. THX.

Code: [Select]
on *:INPUT:*: {
  if ($active == Status Window) {
    if (/* !iswm $1-) { echo -s This is not a channel! | halt }
  }
  if ($1 == -qo) {
    if ($2 && $2 ison $chan) { .mode $chan -qo $2 $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -qo $iif(!$2,$me $me,%t %t)
  }
  if ($1 == +qo) {
    if ($2 && $2 ison $chan) { .mode $chan +qo $2 $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +qo $iif(!$2,$me $me,%t %t)
  }
  if ($1 == +b) { .mode $chan +b $2 }
  if ($1 == +m) { .mode $chan +m }
  if ($1 == -m) { .mode $chan -m }
  if ($1 == -b) { .mode $chan -b $2 }
  if ($1 == +q ) {
    if ($2 && $2 ison $chan) { .mode $chan +q $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +q $iif(!$2,$me,%t)
  }
  if ($1 == -q ) {
    if ($2 && $2 ison $chan) { .mode $chan -q $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -q $iif(!$2,$me,%t)
  }
  if ($1 == +ao ) {
    if ($2 && $2 ison $chan) { .mode $chan +ao $2 $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +ao $iif(!$2,$me $me,%t %t)
  }
  if ($1 == +h ) {
    if ($2 && $2 ison $chan) { .mode $chan +h $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +h $iif(!$2,$me,%t)
  }
  if ($1 == -ao ) {
    if ($2 && $2 ison $chan) { .mode $chan -ao $2 $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -ao %t %t $me $me
  }
  if ($1 == +a) {
    if ($2 && $2 ison $chan) { .mode $chan +a $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +a $iif(!$2,$me,%t)
  }
  if ($1 == -a) {
    if ($2 && $2 ison $chan) { .mode $chan -a $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -a $iif(!$2,$me,%t)
  }
  if ($1 == +o) {
    if ($2 && $2 ison $chan) { .mode $chan +o $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +o $iif(!$2,$me,%t)
  }
  if ($1 == -o) {
    if ($2 && $2 ison $chan) { .mode $chan -o $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -o $iif(!$2,$me,%t)
  }
  if ($1 == -h ) {
    if ($2 && $2 ison $chan) { .mode $chan -h $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -h $iif(!$2,$me,%t)
  }
  if ($1 == +v ) {
    if ($2 && $2 ison $chan) { .mode $chan +v $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan +v $iif(!$2,$me,%t)
  }
  if ($1 == -v ) {
    if ($2 && $2 ison $chan) { .mode $chan -v $2 | goto send }
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .mode $chan -v $iif(!$2,$me,%t)
  }
  if ($1 == sajoin) { .sajoin $3 $chan }
  if ($1 == samode) {
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .samode $chan $3 $iif(!$2,$me $me $me $me,%t %t %t %t)
  }
  if ($1 == sapart) {
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .sapart %t $chan
  }
  if ($1 == sahop) {
    if ($2 && $fline($chan,$+(*,$2,*),2,1) && $2 !ison $chan) { echo -a More than 1 matched | goto send }
    %t = $iif($line($chan,$fline($chan,$+(*,$2,*),1,1),1),$ifmatch,$2)
    .sapart %t $chan
    sajoin %t $chan
  }
  :send
  if (/* !iswm $1) { .msg $target $1- }
}
Title: Re: Can anyone Convert this for me?
Post by: DarkStar on February 02, 2009, 09:22:53 PM
I can probably help. That is, if I could read that gibberish. :P

Reply telling me what the script actually does, and I'll see if I can help you out.
Title: Re: Can anyone Convert this for me?
Post by: Alcohal on February 03, 2009, 03:24:42 PM
well in mIRC It does easy commands for you like...

[17:20:50] <&Knight> +q Knight
[17:20:50] * Knight sets mode: +q Knight
[17:20:54] <~Knight> -q Knight
[17:20:54] * Knight sets mode: -q Knight
or
[17:21:34] <&Knight> +b Test
[17:21:34] * Knight sets mode: +b Test!*@*
[17:21:42] <&Knight> -b Test
[17:21:42] * Knight sets mode: -b Test!*@*

they go from +* nick (give mode) -* nick (Take away mode)
or -b nick or +ban nick

You understand? Or should i post more about it?
Title: Re: Can anyone Convert this for me?
Post by: Alcohal on February 04, 2009, 08:47:39 PM
I See alot of views, if you have just a little comment just post it so I can go off of it to make this script Icechat format. Its the modes, like... .ban nick...+oaqv..., .topic topic...get the picture?