All pastes #289059 Raw Edit

Miscellany

public text v1 · immutable
#289059 ·published 2006-12-22 20:47 UTC
rendered paste body
dialog infoline {
  title "InfoLine"
  size -1 -1 440 200
  text "View:", 1, 7 12.5 30 20
  combo 2, 53 10 150 198 ,drop
  text "Host:", 3, 7 52.5 30 20
  edit "" , 4, 53 50 150 20, autohs
  text "Info:", 5, 7 82.5 30 20
  edit "" , 6, 53 80 350 20, autohs
  button "שנה" ,21, 125 110 55 25
  button "הוסף" ,22, 185 110 55 25
  button "מחק" ,23, 245 110 55 25
  check "InfoLine: Start", 7, 7 170 100 20
  button "Close" ,101 ,185 140 55 25 , OK
}

on *:dialog:infoline:init:0: {
  if ($group(#infoline) == on) { did -c infoline 7 }
  set %infoline.i 1
  :start
  inc %infoline.i 1
  set %infoline.line $read -l $+ %infoline.i infoline.ini
  if ( %infoline.line == $null ) { goto end }
  set %infoline.nick $replace($gettok($gettok(%infoline.line,1,32),1,61),~,[)
  did -a infoline 2 %infoline.nick
  goto start
  :end
  did -c infoline 2 1
  set %infoline.nick $did(2)
  set %infoline.info $readini infoline.ini info %infoline.nick
  did -o infoline 4 1 %infoline.nick
  did -o infoline 6 1 %infoline.info
  unset %infoline.*
}
on *:dialog:infoline:sclick:2: {
  set %infoline.nick $did(2)
  set %infoline.info $readini infoline.ini info %infoline.nick
  did -o infoline 4 1 %infoline.nick
  did -o infoline 6 1 %infoline.info
}
on *:dialog:infoline:sclick:7: {
  if ( $did(7).state == 1 ) { .enable #infoline }
  else { .disable #infoline }
}
on *:dialog:infoline:sclick:21: {
  if ($did(infoline,4) == $null) { halt }
  if ($did(infoline,6) == $null) { halt }
  if ( $readini infoline.ini info $did(infoline,4).text == $null ) { boxmsg  Didn't found, Press: Add. $did(infoline,4).text | halt }
  writeini infoline.ini info $did(infoline,4).text $did(infoline,6).text
}
on *:dialog:infoline:sclick:101: {
  msg $active 7*Infoline 14-> Done 7 22(7© 2E7vi2L7o2L 2S7cript2)
}
.
}
on *:dialog:infoline:sclick:22: {
if ($did(infoline,4) == $null) { halt }
if ($did(infoline,6) == $null) { halt }
if ( $readini infoline.ini info $did(infoline,4).text != $null ) { boxmsg  Info Found, Press Change. $did(infoline,4).text | halt }
writeini infoline.ini info $did(infoline,4).text $did(infoline,6).text
did -a infoline 2 $did(infoline,4).text
did -c infoline 2 $did(infoline,2).lines
}
on *:dialog:infoline:sclick:23: {
if ($did(infoline,2) == $null) { halt }
remini infoline.ini info $did(infoline,2)
var %save = $did(infoline,2).sel
did -d infoline 2 %save
if ( $did(infoline,2,%save) == $null ) {
  dec %save 1
  did -c infoline 2 %save
}
did -c infoline 2 %save
%infoline.line = $readini infoline.ini info $did(infoline,2,%save).text
did -o infoline 4 1 $did(infoline,2,%save).text
did -o infoline 6 1 %infoline.line
}
alias infoline {
if ($dialog(infoline) == $null) { dialog -m infoline infoline }
else { dialog -v infoline infoline }
}
#infoline on
on *:join:#: {
set %infoline.temp $iif($readini(infoline.ini,info,$address($nick,2)) != $null,$v1,$readini(infoline.ini,info,$nick))
if (%infoline.temp) {
  msg $chan 2H7i , $nick ! 2Y147ou 2A147re 2I147n 2M147y 2F147riends 2L147ist! 2: : %infoline.temp (7© 2E7v7i2L7o2L 2S7cript)
}
: %infoline.temp
}
unset %infoline.temp
}
#InfoLine end

menu nicklist {
Address:echo -t $address($$1,2)
InfoLine:/InfoLine
} 

on *:open:?:{ msg $nick אני לא אענה לפרסומי ערוצים, פרסומי לינקים והודעות ספאם, תשאיר את הודעתך ואשמח לחזור אלייך. ,7שלום }

alias -l isheb { return $regex($1-,(א|ב|ג|ד|ה|ו|ז|ח|ט|י|כ|ל|מ|נ|ס|ע|פ|צ|ק|ר|ש|ת)) } 
alias cor { 
  if ($isheb(%corr) == 1) { 
    say 7C14orrection: $replace( $+ %corr,/,q,ר,r,א,t,ט,y,ו,u,ן,i,ם,o,פ,p,ש,a,ד,s,ג,d,כ,f,ע,g,י,h,ח,j,ל,k,ז,z,ס,x,ב,c,ה,v,נ,b,מ,n,צ,m,ף,;,.,ץ,ת,$chr(44),ק,e,ך,l,',w) 
  } 
  else { 
    say 7C14orrection: $replace( $+ %corr,q,/,r,ר,t,א,y,ט,u,ו,i,ן,o,ם,p,פ,a,ש,s,ד,d,ג,f,כ,g,ע,h,י,j,ח,k,ל,z,ז,x,ס,c,ב,v,ה,b,נ,n,מ,m,צ,;,ף,.,ץ,$chr(44),ת,e,ק,l,ך,w,') 
  } 
} 
on *:input:*:{ if ($left($1,1) != /) { set %corr $1- } } 

; ––––––––––––––––––––––––––––––––––––––––
; End of file
; ––––––––––––––––––––––––––––––––––––––––
dialog infoline {
  title "InfoLine"
  size -1 -1 440 200
  text "View:", 1, 7 12.5 30 20
  combo 2, 53 10 150 198 ,drop
  text "Host:", 3, 7 52.5 30 20
  edit "" , 4, 53 50 150 20, autohs
  text "Info:", 5, 7 82.5 30 20
  edit "" , 6, 53 80 350 20, autohs
  button "שנה" ,21, 125 110 55 25
  button "הוסף" ,22, 185 110 55 25
  button "מחק" ,23, 245 110 55 25
  check "InfoLine: Start", 7, 7 170 100 20
  button "Close" ,101 ,185 140 55 25 , OK
}

on *:dialog:infoline:init:0: {
  if ($group(#infoline) == on) { did -c infoline 7 }
  set %infoline.i 1
  :start
  inc %infoline.i 1
  set %infoline.line $read -l $+ %infoline.i infoline.ini
  if ( %infoline.line == $null ) { goto end }
  set %infoline.nick $replace($gettok($gettok(%infoline.line,1,32),1,61),~,[)
  did -a infoline 2 %infoline.nick
  goto start
  :end
  did -c infoline 2 1
  set %infoline.nick $did(2)
  set %infoline.info $readini infoline.ini info %infoline.nick
  did -o infoline 4 1 %infoline.nick
  did -o infoline 6 1 %infoline.info
  unset %infoline.*
}
on *:dialog:infoline:sclick:2: {
  set %infoline.nick $did(2)
  set %infoline.info $readini infoline.ini info %infoline.nick
  did -o infoline 4 1 %infoline.nick
  did -o infoline 6 1 %infoline.info
}
on *:dialog:infoline:sclick:7: {
  if ( $did(7).state == 1 ) { .enable #infoline }
  else { .disable #infoline }
}
on *:dialog:infoline:sclick:21: {
  if ($did(infoline,4) == $null) { halt }
  if ($did(infoline,6) == $null) { halt }
  if ( $readini infoline.ini info $did(infoline,4).text == $null ) { boxmsg  Didn't found, Press: Add. $did(infoline,4).text | halt }
  writeini infoline.ini info $did(infoline,4).text $did(infoline,6).text
}
on *:dialog:infoline:sclick:101: {
  msg $active 7*Infoline 14-> Done 7 [EviLoL ScripT].
}
on *:dialog:infoline:sclick:22: {
  if ($did(infoline,4) == $null) { halt }
  if ($did(infoline,6) == $null) { halt }
  if ( $readini infoline.ini info $did(infoline,4).text != $null ) { boxmsg  Info Found, Press Change. $did(infoline,4).text | halt }
  writeini infoline.ini info $did(infoline,4).text $did(infoline,6).text
  did -a infoline 2 $did(infoline,4).text
  did -c infoline 2 $did(infoline,2).lines
}
on *:dialog:infoline:sclick:23: {
  if ($did(infoline,2) == $null) { halt }
  remini infoline.ini info $did(infoline,2)
  var %save = $did(infoline,2).sel
  did -d infoline 2 %save
  if ( $did(infoline,2,%save) == $null ) {
    dec %save 1
    did -c infoline 2 %save
  }
  did -c infoline 2 %save
  %infoline.line = $readini infoline.ini info $did(infoline,2,%save).text
  did -o infoline 4 1 $did(infoline,2,%save).text
  did -o infoline 6 1 %infoline.line
}
alias infoline {
  if ($dialog(infoline) == $null) { dialog -m infoline infoline }
  else { dialog -v infoline infoline }
}
#infoline on
on *:join:#: {
  set %infoline.temp $iif($readini(infoline.ini,info,$address($nick,2)) != $null,$v1,$readini(infoline.ini,info,$nick))
  if (%infoline.temp) {
    msg $chan  2H7i , $nick ! 2Y147ou 2A147re 2I147n 2M147y 2F147riends 2L147ist! 2: %infoline.temp (7© 2E7vi2L7o2L 2S7cript2)
  }
  unset %infoline.temp
}
#InfoLine end

menu nicklist {
  Address:echo -t $address($$1,2)
  InfoLine:/InfoLine
}