daily pastebin goal
25%
SHARE
TWEET

Untitled

a guest Jun 19th, 2017 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. On *:Connect:{.who }
  2. raw 352 :*:{
  3.   if ($gettok($6,1,91) == %friend1) { .msg $me %friend1 is on $2 }
  4.   if ($gettok($6,1,91) == %friend2) { .msg $me %friend2 is on $2 }
  5.   if ($gettok($6,1,91) == %friend3) { .msg $me %friend3 is on $2 }
  6.   if ($gettok($6,1,91) == %friend4) { .msg $me %friend4 is on $2 }
  7.   if ($gettok($6,1,91) == %friend5) { .msg $me %friend5 is on $2 }
  8.   if ($gettok($6,1,91) == %friend6) { .msg $me %friend6 is on $2 }
  9. }
  10. Menu Menubar,Nicklist,Channel {
  11.   Venom friendSystem
  12.   .VenomfriendSys: dialog $iif($dialog(friend.System),-v,-md friend.System) friend.System
  13. }
  14. Dialog friend.System {
  15.   Title "friendSystem"
  16.   Size -1 -1 80 70
  17.   Option dbu
  18.   edit "set pass", 1, 0 0 37 10, autohs
  19.   button "Set friend1 ", 3, 0 12 37 15, flat
  20.   button "Set friend2 ", 4, 42 12 37 15, flat
  21.   button "Set friend3 ", 5, 0 29 37 15, flat
  22.   button "Set friend4 ", 6, 42 29 37 15, flat
  23.   button "Set friend5 ", 7, 0 48 37 15, flat
  24.   button "Set friend6 ", 8, 42 48 37 15, flat
  25.  
  26. }
  27. on *:dialog:friend.system:sclick:3: {
  28.   if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  29.   else { set %friend1 $did(1).text }
  30. }
  31. on *:dialog:friend.system:sclick:4: {
  32.   if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  33.   else { set %friend2 $did(1).text }
  34. }
  35. on *:dialog:friend.system:sclick:5: {
  36.   if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  37.   else { set %friend3 $did(1).text }
  38. }
  39. on *:dialog:friend.system:sclick:6: {
  40.   if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  41.   else { set %friend4 $did(1).text }
  42. }
  43. on *:dialog:friend.system:sclick:7: {
  44.   if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  45.   else { set %friend5 $did(1).text }
  46. }
  47. on *:dialog:friend.system:sclick:8: {
  48.   if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  49.   else { set %friend6 $did(1).text }
  50. }
RAW Paste Data
Top