Input dialog

By rhasttaff on Sep 23, 2008

Image
no much to say... its a input dialog you can create your shortwords and commands in the dialog.
i call it Mynput!
to use this snippet is necessary a basic knowledge about mIRC identifiers and aliases.

load into the remotes and rightclick mouse on status,channel to open.

Jah Bless´´ 

;##------ MynPut  by  rhasttaff  ----------##
;## create your inputs in a Dialog         ##
;## to use this snippet is necessary a     ##
;## basic knowledge about mIRC identifiers ##
;## This NOT interpret mult commands-> |   ##
;## Any conflict with your commands is by  ##
;## yourself account in risk!!!!           ##
;## Do not say that I did not warn you >.<!##
;##------ MynPut  by  rhasttaff  ----------## 
dialog mynput {
  title "MynPut"
  size -1 -1 241 73
  option dbu
  list 1, 2 3 55 69, size
  edit "", 2, 60 35 54 10, disable autohs
  edit "", 3, 60 57 177 12, disable autohs
  box "Shortcut", 4, 58 27 58 20
  box "Command", 5, 58 49 182 22
  radio "Channel Window", 6, 119 35 49 7, group
  radio "Query Window", 7, 119 44 45 7
  combo 8, 173 36 65 44, size drop
  box "Examples", 9, 171 27 69 26
  button "ADD", 10, 60 8 37 12, disable hide
  button "EDIT", 11, 105 8 37 12, disable
  button "REM", 12, 150 8 37 12, disable
  box "Window", 13, 115 27 57 26
  box "Management", 14, 58 0 132 26
  box "Language", 15, 196 0 43 17
  radio "EN", 16, 199 8 17 6, group
  radio "PT", 17, 218 8 18 6
  link "bugs??", 18, 212 19 23 8
  button "SAVE", 19, 60 8 37 12, disable hide
  button "NEW", 20, 60 8 37 12
}
on *:dialog:mynput:*:*: {
  if ($devent = init) { 
    var %a = $ini(mynput.ini,chan,0)
    var %b = 1
    while (%a >= %b) {
      did -a $dname 1 $ini(mynput.ini,chan,%b)
      inc %b
    }
    var %c = op-yourself ban dcc kick notice query-msg invite info-on nick identify
    var %d = $numtok(%c,32)
    while (%d >= 1) { 
      did -a $dname 8 $gettok(%c,%d,32)
      dec %d
    }
    if ($readini(mynput.ini,config,lang) != 1) {
      did -ra $dname 4 Atalho | did -ra $dname 5 Comando | did -ra $dname 6 Canal | did -ra $dname 7 Privado | did -ra $dname 9 Exemplos | did -ra  $dname 13 Janela | did -ra $dname 14 Gerenciamento | did -ra  $dname 15 Idiomas | did -ra $dname 18 Erros?? | did -ra $dname 19 Salvar  | did -ra $dname 20 Novo   
    }
    did -c $dname 6 
    did -c $dname $iif($readini(mynput.ini,config,lang) = 1,16,17)
  }
  if ($devent = sclick) {
    if ($did = 1) && ($len($did($dname,1).seltext) >= 1) { did -rab $dname 2 $did($dname,1).seltext | did -rab $dname 3 $readini(mynput.ini,$iif($did($dname,6).state = 1,chan,query),$did($dname,1).seltext) | did -h $dname 10 |  did -e $dname 11-12 | did -ev $dname 20  }
    if ($did = 6) { mynput.reload chan | did -r $dname 2-3 | did -b $dname 11-12 }
    if ($did = 7) { mynput.reload query | did -r $dname 2-3 | did -b $dname 11-12 }
    if ($did = 8) { mynput.examp $did($dname,8).seltext }
    if ($did = 10) && ($len($did($dname,2).text) >= 1) && ($len($did($dname,3).text) >= 2) {
      did -ve $dname 20 | did -bh $dname 10  | did -e $dname 1 | did -e $dname 8
      if ($did($dname,6).state = 1) { writeini mynput.ini chan $did($dname,2).text $ $+ eval( $+ $mynput.repcol($did($dname,3).text)  $+ ,0) | did -a $dname 1 $did($dname,2).text | did -rb $dname 2-3 | mynput.reload chan }
      if ($did($dname,7).state = 1) { writeini mynput.ini query $did($dname,2).text $ $+ eval( $+ $mynput.repcol($did($dname,3).text)  $+ ,0) | did -a $dname 1 $did($dname,2).text | did -rb $dname 2-3 | mynput.reload query }  
    }
    if ($did = 11) { did -ve $dname 19 | did -h $dname 10 |  did -b $dname 1-2 | did -b $dname 6-18 | did -e $dname 3 | did -h $dname 20 }
    if ($did = 12) && ($did($dname,1).seltext) {
      if ($readini(mynput.ini,chan,$did($dname,1).seltext)) { remini mynput.ini chan $did($dname,1).seltext | mynput.reload chan | did -r $dname 2-3 | did -b $dname 11-12 | did -ve $dname 20 }
      else { remini mynput.ini query $did($dname,1).seltext | mynput.reload query | did -r $dname 2-3 | did -b $dname 11-12 | did -ve $dname 20 }
    }
    if ($did = 16) { writeini mynput.ini config lang 1 | dialog -x $dname | .timer 1 1 mynput }
    if ($did = 17) { writeini mynput.ini config lang 2 | dialog -x $dname | .timer 1 1 mynput }
    if ($did = 18) { run iexplore.exe http://www.hawkee.com/snippet/5151/ }
    if ($did = 19) && ($len($did($dname,2).text) >= 1) && ($len($did($dname,3).text) >= 2) {  
      did -ve $dname 20 | did -h $dname 19  | did -e $dname 1 | did -e $dname 6-8 | did -e $dname 16-17 | did -f $dname 20 | did -b $dname 2-3  
      if ($did($dname,6).state = 1) { writeini mynput.ini chan $did($dname,2).text $ $+ eval( $+ $mynput.repcol($did($dname,3).text) $+ ,0)  | did -r $dname 2-3 | mynput.reload chan }
      if ($did($dname,7).state = 1) { writeini mynput.ini query $did($dname,2).text $ $+ eval( $+  $mynput.repcol($did($dname,3).text) $+ ,0) | did -u $dname 7 | did -c $dname 6 | did -r $dname 2-3 | mynput.reload query }
    }
    if ($did = 20) { did -h $dname 20 | did -re $dname 2-3 | did -vb $dname 8-12 | did -b $dname 1  }
  }
  if ($devent = edit) { 
    if ($did = 2) && ($len($did($dname,2).text) >= 1) { did -e $dname 3 |  did -b $dname 10-12 }
    if ($did = 3) && ($len($did($dname,2).text) >= 1) { did -e $dname 10 }
  }
}
on *:input:#: { if ($readini(mynput.ini,chan,$1)) {  $mynput.repcol2($eval($v1,2))  } }
on *:input:?: { if ($readini(mynput.ini,query,$1)) {  $mynput.repcol2($eval($v1,2))  } }
on *:load: { writeini mynput.ini config lang 1 }
alias mynput { /dialog $iif(!$dialog(mynput),-m mynput mynput,-x mynput) }
alias mynput.repcol { return $replace($$1-,,¢¬,,¢b¬,,¢u¬,,¢r¬) }
alias mynput.repcol2 { return $replace($$1-,¢¬,,¢b¬,,¢u¬,,¢r¬,) }
alias mynput.reload {
  did -r mynput 1
  var %a = $ini(mynput.ini,$$1,0)
  var %b = 1
  while (%a >= %b) {
    did -a $dname 1 $ini(mynput.ini,$$1,%b)
    inc %b
  }
}
alias mynput.examp {
  if ($1 = op-yourself) { did -ra mynput 2 +o | did -ra mynput 3 $eval(/mode $chan +o $me,0) }
  if ($1 = notice) { did -ra mynput 2 .nq | did -ra mynput 3 $eval(/notice $2 come'on talk in private message,0) }
  if ($1 = invite) { did -ra mynput 2 .inv | did -ra mynput 3 $eval(/invite $2 $chan,0) }
  if ($1 = info-on) { did -ra mynput 2 .inf | did -ra mynput 3 $eval(/msg nickserv info $2,0) }
  if ($1 = nick) { did -ra mynput 2 rha | did -ra mynput 3 /nick rhasttaff }
  if ($1 = identify) { did -ra mynput 2 .id | did -ra mynput 3 /msg nickserv identify password }
  if ($1 = ban) { did -ra mynput 2 +b | did -ra mynput 3 $eval(/mode $chan +b $address($2,2),0) }
  if ($1 = query-msg) { did -ra mynput 2 .qm | did -ra mynput 3 $eval(/msg $active still are u there?? :x ,0) }
  if ($1 = dcc) { did -ra mynput 2 .dcc | did -ra mynput 3 $eval(/dccsend $2,0) }
  if ($1 = kick) { did -ra mynput 2 .bye | did -ra mynput 3 $eval(/kick $chan $2  Thanks for fly in $me $+ 's AirLines! ByesZz!!!,0) }
}
menu status,menubar,channel {
  MynPut:/mynput
}
;#### The End ;)~ ####

rhasttaff

Like Page Follow Author

Comments

Sign in to comment.
rhasttaff   -  Oct 18, 2008

Wow dontg et caugt by ircops.. 3/10

it has dcc as an example.. and it shows you it..

i don't see the point...

wtf ircops are with this ??

Jah Bless´´´

 Respond  
Skitles   -  Oct 18, 2008

Wow dontg et caugt by ircops.. 3/10

it has dcc as an example.. and it shows you it..

 Respond  
Zmodem   -  Sep 24, 2008

I must say this: The name is very, very creative and catchy! Good job :-)

 Respond  
Blitzjager   -  Sep 24, 2008

Very helpful ^^
I hate looking at a bunch of lines of text trying to find which one I want.

 Respond  
IuClik   -  Sep 24, 2008

OOO Super phx

 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.