Forums Scripts & Popups Dialog boxes

ok heres the code it self

menu channel,query,status {
PFTP
.Enable : { set %pftp on } { .echo 3PFTP-AUTO ON }
.Disable : { set %pftp off } { .echo 3PFTP-AUTO OFF }
.config : { /open_config }
}
dialog CONFIG {
title "CONFIG"
size -1 -1 116 35
option dbu
text "STRIPCODE", 1, 1 24 133 8
text "PREBOT", 2, 1 4 133 7
text "SITECHAN", 3, 1 14 133 8
edit "", 4, 30 22 80 10
edit "", 5, 30 12 80 10
edit "", 6, 30 2 80 10
}
on *:dialog:config:edit:*:{
if ( $did == 4 ) {
if ( $did($dname,$did) == $null ) { unset %stripcode | halt }
if ( $did($dname,$did) != $null ) { set %stripcode $did($dname,$did) | halt }
}
if ( $did == 5 ) {
if ( $did($dname,$did) == $null ) { unset %prebot | halt }
if ( $did($dname,$did) != $null ) { set %prebot $did($dname,$did) | halt }
}
if ( $did == 6 ) {
if ( $did($dname,$did) == $null ) { unset %sitechan | halt }
if ( $did($dname,$did) != $null ) { set %sitechan $did($dname,$did) | halt }
}
}
alias open_config {
dialog -mdo config config
if ( %prebot != $null ) { did -a config 5 %prebot }
if ( %sitechan != $null ) { did -a config 6 %sitechan }
if ( %stripcode != $null ) { did -a config 4 %stripcode }
}
on *:text:*OK*:%sitechan: {
if (($nick == %prebot)) {
var %section = $strip($remove($3,[,]))
if (*/* iswm $1-) { goto end }
if ($istok(%section,APPS,32) == $true) { goto APPS }
if ($istok(%section,DVDR,32) == $true) { goto DVDR }
if ($istok(%section,XVID,32) == $true) { goto XVID }
if ($istok(%section,XXX:,32) == $true) { goto XXX }
if ($istok(%section,XBOX360,32) == $true) { goto XBOX360 }
if ($istok(%section,Wii,32) == $true) { goto Wii }
if ($istok(%section,PS2,32) == $true) { goto PS2 }
if ($istok(%section,PS3,32) == $true) { goto PS3 }
if ($istok(%section,GAMES,32) == $true) { goto GAMES }
if ($istok(%section,PSP,32) == $true) { goto PSP }
if ($istok(%section,TV-XVID,32) == $true) { goto TV-XVID }
if ($istok(%section,VCD,32) == $true) { goto VCD }
else { goto end }


:XXX
if (-Pr0nStarS isin $1-) { goto Pr0nStarS }
else { goto end }

:Pr0nStarS
sockudp -t pftp ip port password WHORE xxx site1,site2 %stripcode
.window -z @Pr0nStarS
.aline @Pr0nStarS $timestamp 4(0Pr0nStarS4) - 8 %stripcode
:end
}
}