Slap Manager

By fluppy on Mar 06, 2006

Ok, when you right click in a channel, go to Slap Manager. It'll open up the dialog.

If no slaps come up, add one, and then you'll get the .txt file. Then you can have fun slapping people. :D

To slap: On the top right, it'll have a drop down menu. Select a channel from there, then a nick. Click "Random Slap" or "Selected Slap" to slap the user. (Selected slap slaps with the slap you selected on the big list in the middle)

Adding/Removing Slaps: Adding a slap is simple. Click "Add Slap" and type the slap in the popup that comes up. "Delete Slap" will delete the currently selected one in the big list.

dialog slaps {
  title "flupScript Slap Manager"
  size -1 -1 290 158
  option dbu
  list 1, 0 16 217 129, size
  button "Random Slap", 2, 1 145 37 12
  button "Selected Slap", 3, 59 145 37 12
  button "Delete Slap", 4, 180 145 37 12
  button "Add Slap", 5, 120 145 37 12
  combo 8, 223 16 60 140, size vsbar drop
  list 7, 223 27 60 117, size
  text "flupScript Slap Manager", 6, 7 3 60 8
  edit "", 9, 222 3 61 10, read
}
on *:Dialog:slaps:init:0: { 
  did -r slaps 1 
  loadbuf -o slaps 1 slaps.txt 
  did -r slaps 9 
  did -a slaps 9 Total Slaps: $lines(slaps.txt) 
  set %schan $chan(0)
  while (%schan > 0) { 
    did -a slaps 8 $chan( $+ %schan $+ ) 
    dec %schan 
  }
}
on *:Dialog:slaps:sclick:8:{ 
  var %schans $did(8) 
  did -r slaps 7 
  var %snicks $nick($did(8),0)
  while (%snicks > 0) {
    did -a slaps 7 $nick($did(8), %snicks)
    dec %snicks
  }
}
on *:Dialog:slaps:sclick:5: { 
  write slaps.txt $?="Slap to add" 
  did -r slaps 1 
  loadbuf -o slaps 1 slaps.txt 
  did -r slaps 9
  did -a slaps 9 Total Quotes: $lines(slaps.txt) 
}
on *:Dialog:slaps:sclick:4: { 
  write -dl $+ $did(1).sel slaps.txt 
  did -r slaps 1 
  loadbuf -o slaps 1 slaps.txt
  did -r slaps 9 
  did -a slaps 9 Total Quotes: $lines(slaps.txt) 
}
on *:dialog:slaps:sclick:3:{ 
  describe $did(8).text slaps $did(7).seltext around a bit with $read(slaps.txt, $did(1).sel) 
}
on *:dialog:slaps:sclick:2:{ 
  describe $did(8).text slaps $did(7).seltext around a bit with $read(slaps.txt) 
}
menu channel {
  .Slap Manager:dialog -m slaps slaps
}

Comments

Sign in to comment.
xDaeMoN   -  Jan 29, 2007

Paste it on your remotes section. ALT-R -> File -> New.

 Respond  
Ratach   -  Jan 29, 2007

where do I put the code for this? I am so lost...

 Respond  
err2   -  May 15, 2006

Wee fluppy! I wub this
<--- Ultrix btw :D

 Respond  
Dark_paladin_master   -  Mar 08, 2006

Grabs the other slap managers by the throat, beats them to a pulp, stops, takes a drink of beer, and starts again. its great!

 Respond  
LiquidJesus   -  Mar 06, 2006

lol this is good

 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.