Invite dialog

By pwnisher3 on Dec 19, 2008

i made this script in about 45 mins. tested it all. works great and as far as i know it is bug free.

paste into remotes, right click then Invite or type /dialog -m ind ind

FEATURES

you can invite people faster.
a join greet.
optional invite reason.
optional channel rules.

if you have any ideas tell me.

dialog IND {
  title "Invite Dialog"
  size -1 -1 93 79
  option dbu
  button "Invite", 1, 2 2 37 10
  edit "", 2, 41 2 50 10
  edit "", 3, 41 16 49 10, read
  button "Set Room", 4, 2 16 37 10
  box "Reason For Invite", 5, 1 28 91 21
  edit "", 6, 3 36 87 10, autohs
  box "Channel Rules", 7, 1 49 91 29
  edit "", 8, 4 57 85 10, autohs
  text "Please Seperate By Commas", 9, 5 68 83 8, center
}
on *:dialog:ind:init:*:{
  did -ra ind 3 %iroom
  did -ra ind 8 %irules
}
on *:dialog:ind:sclick:1:{
  if (did == 1) {
    if (!$did(2).text || set %inick $did(2).text) 
  }
  else {
    set %inick $did(2).text
    did -ra ind 2 %inick
  }
  if (did == 1) {
    if (!$did(6).text || set %ireason $did(6).text) 
  }
  else {
    set %ireason $did(6).text
    notice %inick %ireason
    invite %inick %iroom
  }   
  if (did == 1) {
    if (!$did(8).text || set %irules $did(8).text) 
  }
  else {
    set %irules $did(8).text
    notice %inick The Rules Of $chan: %irules
  }   
}
on *:dialog:ind:sclick:4:{
  set %iroom $$?="Set the invite room to?"
  did -ra ind 3 %iroom
}
on *:join:%iroom:{
  msg %iroom Hello %inick . Thanks for joining %iroom
}
menu * {
  .Invite: dialog -m ind ind
}

Comments

Sign in to comment.
pwnisher3   -  Dec 22, 2008

as far as i kow all of mine work.

 Respond  
Aucun50   -  Dec 22, 2008

Yet another working script Good Job.

 Respond  
pwnisher3   -  Dec 19, 2008

don't ask me about scripting lol i just make and test till it works

 Respond  
guest598594   -  Dec 19, 2008

This doesn't make sense:

  if (did == 1) {
    if (!$did(2).text || set %inick $did(2).text) 
  }
 Respond  
pwnisher3   -  Dec 19, 2008

uh i found a bug. it wont send the damn invite if you don't have a reason or chan rules. i'm working on fixing it but so far no luck. if you can fix it please help.

 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.