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