on *:JOIN:#:writeini jlogs.ini $chan $nick  Time:  $fulldate  Address:  $address($nick,2)
on *:TEXT:!find*:#:{
  if !$3 {
    if $2 ison $chan { if $readini(jlogs.ini,$chan,$2) { msg $chan $2 is here but they joined at: $readini(jlogs.ini,$chan,$2) }
    else { msg $chan $2 is here, and i have no logs of them joining. } }
    else { if $readini(jlogs.ini,$chan,$2) { msg $chan $2 joined $chan at $readini(jlogs.ini,$chan,$2) }
    else { msg $chan sorry no logs of $2 joing $chan } }
  }
  else {
    if $2 ison $3 { if $readini(jlogs.ini,$3,$2) { msg $chan $2 is there but they joined at: $readini(jlogs.ini,$3,$2) }
    else { msg $chan $2 is here, and i have no logs of them joining. } }
    else { if $readini(jlogs.ini,$3,$2) { msg $chan $2 joined $3 at $readini(jlogs.ini,$3,$2) }
    else { msg $chan sorry no logs of $2 joing $3 } }
  }
}


alias log { dialog -ma joinlog joinlog }
Dialog Joinlog {
  title Joining Log checker
  option dbu
  size -1 -1 100 200
  combo 1,1 1 100 10, drop
  list 2,1 12 98 150
  edit Name,3,1 163 100 10,read,center
  edit Details,4,1 173 100 20,read,center,multi
}
on *:DIALOG:joinlog:init:*:{ var %a $calc($ini(jlogs.ini,0) + 1) | var %b 1 | while (%a != %b) { did -o $dname 1 %b $ini(jlogs.ini,%b) | inc %b } }
on *:DIALOG:joinlog:sclick:*:{
  if $did == 1 { did -r $dname 2 | var %a $calc($ini(jlogs.ini,$did(1,0).seltext,0) + 1) | var %b 1 | while (%a != %b) { did -o $dname 2 %b $ini(jlogs.ini,$did(1,0).seltext,%b) | inc %b }  }
if $did == 2 { did -r $dname 4 | did -o $dname 3 1 $did(2,0).seltext | did -o $dname 4 1 $readini(jlogs.ini,$did(1,0).seltext,$did(2,0).seltext) } }