EpicLulz P2P System

By Aurora801 on Oct 06, 2009

P2P System with dialog

dialog EpicLulzP2P {

  title "r-iRC P2P System by Aurora |"

  size -1 -1 312 200

  option dbu

  box "System", 1, 0 0 42 34

  radio "Turn On", 2, 4 8 34 10

  radio "Turn Off", 3, 4 20 34 10

  box "Message Options", 4, 44 0 266 34

  edit "", 5, 80 8 226 10

  edit "Blocked:", 6, 44 8 34 10, read

  edit "Waiting:", 7, 44 16 34 10, read

  edit "", 8, 80 16 226 10

  edit "Approved:", 9, 44 24 34 10, read

  edit "", 10, 80 24 226 10

  box "Message", 11, 52 36 214 74

  edit "", 12, 56 44 206 62, read

  box "Nickname", 13, 0 36 50 74

  list 14, 4 44 42 62, size vsbar

  box "Info", 15, 0 112 86 38

  button "Safe List", 16, 164 140 37 8, flat

  button "Block List", 17, 200 140 37 8, flat

  button "Accept", 18, 268 44 37 12

  button "Deny", 19, 268 56 37 12

  button "Add Block", 20, 268 68 37 12

  button "Add Safe", 21, 268 80 37 12

  button "Save", 22, 268 92 37 12

  edit "Time:", 23, 4 120 26 10, read

  edit "", 24, 32 120 50 10, read

  edit "Server:", 25, 4 128 26 10, read

  edit "", 26, 32 128 50 10, read

  edit "Times:", 27, 4 136 26 10, read

  edit "", 28, 32 136 50 10, read

  box "Safe List", 29, 88 112 70 86

  list 30, 92 120 62 74, sort size hsbar vsbar

  box "Control", 31, 160 112 138 38

  button "Add Safe:", 32, 164 120 37 8

  edit "", 33, 200 120 90 10

  button "Remove Selected", 34, 240 140 45 8

  box "Stats", 35, 160 152 86 34

  edit "Blocked:", 36, 160 160 30 10, read

  edit "", 37, 192 160 50 10, read

  edit "All:", 38, 160 168 30 10, read

  edit "Allowed:", 39, 160 176 30 10, read

  edit "", 40, 192 168 50 10, read

  edit "", 41, 192 176 50 10, read

  edit "r-iRC P2P System by Aurora |   Built for -[-|EpicLulz-iRC|-]- v2.0 and Scripted fully by Aurora   Dialog made using Dialog Studio  Script Combiled used Gedit     Script Designed used MDX/hOS", 42, 0 152 86 46, read multi return

  edit "Prepare to loose everything you've ever known to the Dark.", 43, 160 188 150 10, read

  edit "If you don't like this script, guess what! Don't use it! This script is usefull! So there. :]", 44, 248 152 62 34, read multi return

}

on *:dialog:EpicLulzP2P:init:*: {

  dll $mdx MarkDialog $dname

  dll $mdx SetColor $dname 44,43,42,41,40,39,38,37,35,33,36,31,30,29,28,27,26,25,24,23,15,14,13,12,11,10,9,8,7,6,5,4,1 background $color(1)

  dll $mdx SetColor $dname 44,43,42,41,40,39,38,37,35,33,36,31,30,29,28,27,26,25,24,23,15,14,13,12,11,10,9,8,7,6,5,4,1 textbg $color(1)

  dll $mdx SetColor $dname 44,43,42,41,40,39,38,37,35,33,36,31,30,29,28,27,26,25,24,23,15,14,13,12,11,10,9,8,7,6,5,4,1 text $color(9)

  dll $mdx SetDialog $dname BGColor $color(1)

  if ($group(#P2P.Block) = on) { did -c $dname 2 | did -u $dname 3 }

  elseif ($group(#P2P.Block) = off) { did -c $dname 3 | did -u $dname 2 }

  did -ra $dname 5 %P2P.Message.Block

  did -ra $dname 8 %P2P.Message.Wait

  did -ra $dname 10 %P2P.Message.Approve

  did -ra $dname 37 %P2P.Blocked

  did -ra $dname 40 %P2P.All

  did -ra $dname 41 %P2P.Accepted

}

on *:dialog:EpicLulzP2P:sclick:*: {

  if ($did == 16) { did -ra $dname 29 Safe List | did -ra $dname 32 Add Safe: | MakeSafe }

  if ($did == 17) { did -ra $dname 29 Block List | did -ra $dname 32 Add Block: | MakeBlock }

  if ($did == 14) { did -ra $dname 12 $ReadP2P($did($dname,14).seltext).message | did -ra $dname 24 $ReadP2P($did($dname,14).seltext).Time | did -ra $dname 26 $ReadP2P($did($dname,14).seltext).Server | did -ra $dname 28 $ReadP2P($did($dname,14).seltext).Times }

  if ($did == 3) { .disable #P2P.Block | if ($group(#P2P.Kill) = on) { .disable #P2P.Kill } | P2PEcho P2P Blocker/Manager Off }

  if ($did == 2) { .enable #P2P.Block | P2PEcho P2P Blocker/Manager On }

  if ($did == 18) { AcceptQuery $did($dname,14).seltext }

  if ($did == 19) { DenyQuery $did($dname,14).seltext }

  if ($did == 20) { AddBlock $did($dname,14).seltext }

  if ($did == 21) { AddSafe $did($dname,14).seltext }

  if ($did == 22) { SaveQuery $did($dname,14).seltext }

}

on *:dialog:EpicLulzP2P:edit:*: {

  if ($did == 5) { %P2P.Message.Block = $did($dname,5).text }

  if ($did == 8) { %P2P.Message.Wait = $did($dname,8).text }

  if ($did == 10) { %P2P.Message.Approve = $did($dname,10).text }

}

alias MakeBlock {

  .disable #P2P.Block.Safe

  .enable #P2P.Block.Block

  %P2P.Block = 1

  %P2P.Blocks = $lines(P2PBlock.txt)

  while (%P2P.Block <= %P2P.Blocks) {

    did -a EpicLulzP2P 30 $read(P2PBlock.txt,%P2P.Block)

    did -c EpicLulzP2P 30 $did(EpicLulz,30).lines

    inc %P2P.Block

  }

}

alias MakeSafe {

  .disable #P2P.Block.Block

  .enable #P2P.Block.Safe

  %P2P.Safe = 1

  %P2P.Safes = $lines(P2PSafe.txt)

  while (%P2P.Safe <= %P2P.Safes) {

    did -a EpicLulzP2P 30 $read(P2PSafe.txt,%P2P.Safe)

    did -c EpicLulzP2P 30 $did(EpicLulzP2P,30).lines

    inc %P2P.Safe

  }

}

alias AcceptQuery {

  notice $1 $Text.1(P2P System) $Text.2(%P2P.Message.Approve)

  query $1

  unset %P2P.*. [ $+ [ $1 ] ]

  inc %P2P.Accepted

  inc %P2P.All

}

alias DenyQuery {

  notice $1 $Text.1(P2P System) $Text.2(%P2P.Message.Block)

  if ($query($1)) { close -m $1 }

  unset %P2P.*. [ $+ [ $1 ] ]

  inc %P2P.Blocked

  inc %P2P.All

}

alias AddSafe {

  if ($1 isin $ReadBlock) { P2PEcho $ReadNick Is Already in the Block List }

  elseif ($1 isin $ReadSafe) { P2PEcho $ReadNick Is In The Safe List. }

  notice $1 $Text.2(P2P System) $Text.1(%P2P.Message.Approve And You have been Added to the Safe List)

  unset %P2P.*. [ $+ [ $1 ] ]

  inc %P2P.All

  inc %P2P.Accepted

}

alias AddBlock {

  if ($1 isin $ReadBlock) { P2PEcho $ReadNick Is Already in the Block List }

  elseif ($1 isin $ReadSafe) { P2PEcho $ReadNick Is In The Safe List. }

  else { writeini P2PSys.ini Block Block $addtok($ReadBlock,$1,32) | write P2PBlock.txt $1 }

  Notice $1 $Text.2(P2P System) $Text.1(%P2P.Message.Block And you have been Added to the Block List.)

  unset %P2P.*. [ $+ [ $1 ] ]

  if ($query($1)) { close -m $1 }

  inc %P2P.Blocked

  inc %P2P.All

}

alias SaveQuery {

  write SavedQueries.txt $1 $+ : %P2P.Message. [ $+ [ $1 ] ]

  P2PEcho Query for $1 Saved.

}

alias ReadSafe { return $readini(P2PSys.ini,Safe,Safe) }

alias ReadBlock { return $readini(P2PSys.ini,Block,Block) }

alias ReadNick { return $did(EpicLulzP2P,33).text }

alias ReadList { return $did(EpicLulzP2P,30).seltext }

alias P2PEcho { echo -a $Text.2(P2P System) $Text.1($1-) }

alias P2PSys { dialog $iif($dialog(EpicLulzP2P),-v,-m) EpicLulzP2P EpicLulzP2P }

alias ReadP2P {

  if ($prop = Message) { return %P2P.Message. [ $+ [ $1  ] ] }

  elseif ($prop = Time) { return %P2P.Time. [ $+ [ $1 ] ] }

  elseif ($prop = Times) { return %P2P.Times. [ $+ [ $1 ] ] }

  elseif ($prop = Server) { return %P2P.Server. [ $+ [ $1 ] ] }

}

#P2P.Block.Safe on

on *:dialog:EpicLulzP2P:sclick:*: {

  if ($did == 32) {

    if ($did($dname,33).text) {

      if ($ReadNick !isin $ReadSafe) && ($ReadNick !isin $ReadBlock) { writeini P2PSys.ini Safe Safe $addtok($readSafe,$ReadNick,32) | P2PEcho $ReadNick Added To The Safe List. }

      elseif ($ReadNick isin $ReadSafe) { P2PEcho $ReadNick Is Already in the Safe List }

      elseif ($ReadNick isin $ReadBlock) { P2PEcho $ReadNick Is In The Block List. }

      else { P2PEcho Error. :| }

    }

  }

  if ($did == 34) {

    if ($did($dname,30).seltext) {

      var %Safe = $lines(P2PSafe.text)

      write -d $did($dname,30).seltext

      writeini P2PSys.ini Safe Safe $remtok($ReadSafe,$ReadList,32) 

      P2PEcho $ReadNick Removed From the Safe List.

    }

    elseif (!$ReadList) { P2PEcho Please Select A Nick. }

    else { P2PEcho Error. :| }

  }

}

on *:dialog:EpicLulzP2P:init:*: {

  %P2P.Safe = 1

  %P2P.Safes = $lines(P2PSafe.txt)

  while (%P2P.Safe <= %P2P.Safes) {

    did -a EpicLulzP2P 30 $read(P2PSafe.txt,%P2P.Safe)

    did -c EpicLulzP2P 30 $did(EpicLulzP2P,30).lines

    inc %P2P.Safe

  }

}

#P2P.Block.Safe end

#P2P.Block.Block off

on *:dialog:EpicLulzP2P:sclick:*: {

  if ($did == 32) {

    if ($did($dname,33).text) {

      if ($ReadNick !isin $ReadSafe) && ($ReadNick !isin $ReadBlock) { writeini P2PSys.ini Block Block $addtok($ReadBlock,$ReadNick,32) | P2PEcho $ReadNick Added To The Block List. }

      elseif ($ReadNick isin $ReadBlock) { P2PEcho $ReadNick Is Already in the Block List }

      elseif ($ReadNick isin $ReadSafe) { P2PEcho $ReadNick Is In The Safe List. }

      else { P2PEcho Error. :| }

    }

  }

  if ($did == 34) {

    if ($did($dname,30).seltext) { writeini P2PSys.ini Block Block $remtok($ReadBlock,$ReadList,32) | P2PEcho $ReadNick Removed From the Block List. }

    elseif (!$ReadList) { P2PEcho Please Select A Nick. }

    else { P2PEcho Error. :| }

  }

}

on *:dialog:EpicLulzP2P:init:*: {

  %P2P.Block = 1

  %P2P.Blocks = $lines(P2PBlock.txt)

  while (%P2P.Block <= %P2P.Blocks) {

    did -a EpicLulzP2P 30 $read(P2PBlock.txt,%P2P.Block)

    did -c EpicLulzP2P 30 $did(EpicLulz,30).lines

    inc %P2P.Block

  }

}

#P2P.Block.Block end

Comments

Sign in to comment.
Aurora801   -  Oct 07, 2009

Pastebin wouldn't load, and my HD is 430GB

 Respond  
VinX   -  Oct 07, 2009

For the above lame reason for not saving the file in ur PC which HDD size is 100 MB ? u should have used pastebin or any other thing ...

 Respond  
Aurora801   -  Oct 07, 2009

Probably... To be honest, This is a piece of shit. But I posted it because I wanted to save it, but remove it from my computer until I needed it... ;x

 Respond  
sunslayer   -  Oct 06, 2009

your missing a few needed aliases

 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.