TextView Amsg system

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	1.0
Scores Submitted	1
Date Added	Jan 20, 2008
Last Updated	Jan 20, 2008
Tags	textview

Introduction

Nice amsg system, i made it for my theme, which will soon be released COMMENTS ADVISED!

Grab the Code

alias amsg { set %ams $1- | dialog -m amsgch amsgch | amin }
alias amsg2 {
  if ($1-) {
    Var %x = 1
    While ($chan(%x)) {
      If ($Chan(%x) !isin %z) {
        Msg $Chan(%x) 14 $+(�,$enick2(Amsg),� $enick1($1-) �,$enick2(Amsg),�)
      }
      Inc %x
    }
    unset %ams
  }
}
alias amin {
  did -r amsgch 8
  unset %z
  var %x = 1, %y = 1
  while ($did(amsgch,11,%y)) {
    set %z $addtok(%z,$did(amsgch,11,%y),32)
    inc %y
  }
  while ($chan(%x)) {
    $iif($chan(%x) !isin %z,did -az amsgch 8 $chan(%x))
    inc %x
  }
}
alias amin1 {
  var %x 1
  while ($gettok(%amsgch,%x,32)) {
    did -az amsgch 11 $gettok(%amsgch,%x,32)
    inc %x
  }
  amin
}
alias amin2 {
  did -r amsgch 11
  unset %z
  var %x = 1, %y = 1
  while ($did(amsgch,8,%y)) {
    set %z $addtok(%z,$did(amsgch,8,%y),32)
    inc %y
  }
  while ($chan(%x)) {
    $iif($chan(%x) !isin %z,did -az amsgch 11 $chan(%x))
    inc %x
  }
}
dialog Amsgch {
  title Manage Amsg Chans
  size -1 -1 300 300
  option pixels
  text Messege:, 3, 10 225 280 15 
  edit $($strip(%ams)), 4, 10 240 283 20
  button ok, 5, 10 270 88 20, default
  button cancel, 6, 202 270 88 20, ok
  box Not Msged, 7, 215 1 80 230
  button Reset, 10, 110 130 88 20
  list 11, 215 15 80 225
  list 8, 15 15 80 215
  box Msged, 12, 15 1 80 225
}
on *:DIALOG:amsgch:sclick:10: { $iif($?!"are you sure?",did -r amsgch 11) | amin }
on *:DIALOG:amsgch:sclick:8: { did -az amsgch 11 $did($did).seltext | amin }
on *:DIALOG:amsgch:sclick:11: { did -az amsgch 8 $did($did).seltext | amin2 }
on *:DIALOG:amsgch:sclick:5: { 
  var %y = 1
  while ($did(amsgch,11,%y)) {
    set %amsgch $addtok(%z,$did(amsgch,11,%y),32)
    inc %y
  }
  amsg2 $$did(amsgch,4)
  dialog -x amsgch 
}
on *:DIALOG:amsgch:sclick:6: { unset %ams }
on *:DIALOG:amsgch:init:*: { amin1 }
alias enick1 { return $regsubex($1-, /(?<=^| )(.)/g, $chr(3) $+ 04\t $+ $chr(3) $+ 14) }
alias enick2 { 
  return $+($chr(3),14,$iif($1 isop $2,$+($chr(3),4,@,$chr(3),4),$&
    $iif($1 ishop $2,$+($chr(3),7,%,$chr(3),4),$iif($1 isvoice $2,$&
    $+($chr(3),12,+,$chr(3),4)))),$+($chr(3),4),$replace($regsubex($&
    $1,/^(.)/,$+($chr(3),4,$chr(31),\t,$chr(3),$iif($3 == -a,6,14),$&
    $chr(31))),[,$+($chr(3),4,[,$chr(3),4),],$+($chr(3),4,],$chr(3),14))) 
}

Comments

(5) RSS

Go to Bottom

jub369

Comments: 52

mIRC Snippet: TextView Amsg system
Posted on Jan 20, 2008 10:59 pm

whats the theme

Korvin

Comments: 238

mIRC Snippet: TextView Amsg system
Posted on Jan 21, 2008 2:02 am

its a .zip file so its waiting to be accepted, u can get at http://www.Gewgel.co.nr/TextView.zip

Korvin

Comments: 238

mIRC Snippet: TextView Amsg system
Posted on Jan 21, 2008 2:03 am

how did u like the amsg?

Korvin

Comments: 238

mIRC Snippet: TextView Amsg system
Posted on Jan 21, 2008 12:50 pm

meh?

Korvin

Comments: 238

mIRC Snippet: TextView Amsg system
Posted on Jan 22, 2008 1:11 am

whotf rated this 1.0??

Korvin

		None Oregon [503]
Last seen: Jun 14, 2008 Profile \| Website Friends (3) Scripts (1) Snippets (29) Images (15) Comments Received (237) Comments Submitted (238) Forum Posts (16)

My Snippet Tags

Contact

Add to Friends

Send Private Message

ICQ Number:

MSN: Korvin-Says-Hi@hotmail.com

Friends (3)

F*U*R*B*Y*

DarthReven

View All

TextView Amsg system

Introduction

Grab the Code

Comments

Korvin

My Snippet Tags

Contact

Friends (3)

Sponsors