on *:LOAD:dialog -m TVSettings TVSettings -4
on *:UNLOAD:.unset %TV_*
menu Menubar,Channel,Query {
-
TV Rage
.Settings:dialog -m TVSettings TVSettings -4
.Self Search:dialog -m SelfSearch SelfSearch -4
.Status < $+ $iif(%TV_Rage = 1,Enabled,Disabled) $+ >:$iif(%TV_Rage = 0,%TV_Rage = 1,%TV_Rage = 0) | echo -a TV Rage Has Been $iif(%TV_Rage = 1,Enabled.,Disabled.)
-
}
On *:input:#: {
if ($1 != !ep) { return }
if (%TV_Rage = 0) { Halt }
var %Num = $trnum
if ($2 = Schedule) { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where2 = 1,$Me,$Target) }
elseif ($Target !ischan) { set %TVRage_Target. [ $+ [ %num ] ] $Me | set %TVRage_Query. [ $+ [ %num ] ] 1 }
else { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where = 1,$Target,$Me) }
set %TVRage_Chan. [ $+ [ %num ] ] $Chan
set %TVRage_Nick. [ $+ [ %num ] ] $Me
TVRage.Load %num $1-
}
On *:Text:!ep*:*: {
if (%TV_Rage = 0) { Halt }
var %Num = $trnum
if ($2 = Schedule) { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where2 = 1,$Nick,$Chan) }
elseif ($Target !ischan) { set %TVRage_Target. [ $+ [ %num ] ] $Nick | set %TVRage_Query. [ $+ [ %num ] ] 1 }
else { set %TVRage_Target. [ $+ [ %num ] ] $iif(%TV_Where = 1,$Chan,$Nick) }
set %TVRage_Nick. [ $+ [ %num ] ] $Nick
set %TVRage_Chan. [ $+ [ %num ] ] $Chan
TVRage.Load %num $1-
}
alias -l TVRage.Load {
var %num = $1
if ($Mid($2,4,10) = triggers) {
msg %TVRage_Target. [ $+ [ %num ] ] 14TVRage Commands8:
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep 8<15Show8> (15Season and Episode8) 4EX8:15 !ep House 2x05
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep Schedule 8<15Day Of Week8> 4EX8:15 !ep Schedule Fri
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep Schedule 8<15Day Of Week8> (15Time8) 4EX8:15 !ep Schedule Fri 10
msg %TVRage_Target. [ $+ [ %num ] ] 8- 15!ep Schedule 8<15Day Of Week8> (15Time8) (15Country8: 4US8,4GB8,4UK8,4AU8) (15US By Default8) 4EX8:15 !ep Schedule Fri 10 GB
msg %TVRage_Target. [ $+ [ %num ] ] 8- 14Options in 8( ) 14are Optional8. 14Options in 8< > 14are Required8.
.unset %TVRage*
halt
}
tokenize 32 $2-
if ($2 = Schedule) {
var %temp $GetTok($2-,$numtok($2-,32),32)
set %TVRage_Type. [ $+ [ %num ] ] Schedule
if ((%Temp = GB) || (%Temp = UK) || (%Temp = US) || (%Temp = AU)) { set %TVRage_Type. [ $+ [ %num ] ] Country | set %TVRage_Country. [ $+ [ %num ] ] %Temp }
set %TVRage_Time_Schedule. [ $+ [ %num ] ] $iif($4 !isnum,$null,$Int($4))
set %TVRage_Date. [ $+ [ %num ] ] $FullDate($3)
if (%TVRage_Date. [ $+ [ %num ] ] = $null) {
msg %TVRage_Target. [ $+ [ %num ] ] 14You need to pick a 4Day of the Week $+ $iif(!%TVRage_Country. [ $+ [ %num ] ],$chr(32) $+ 14or 4Country) $+ 8.
.unset %TVRage_*. [ $+ [ %num ] ]
.unset %Check_*. [ $+ [ %num ] ]
halt
}
TVRage %Num Schedule
}
else {
$iif($CheckEP(%num,$2-) = 1,set %TVRage_Type. [ $+ [ %num ] ] EpSpec, set %TVRage_Type. [ $+ [ %num ] ] Ep)
TVRage %num $2-
}
}
alias -l TVRage {
if ((%TVRage_Type. [ $+ [ $1 ] ] != Schedule) && (!$2)) {
msg %TVRage_Target. [ $+ [ $1 ] ] 14You actually need to search for a 4TV8-4show 14you know8! 14 Type 4!eptriggers14 for help8.
.unset %TVRage_*. [ $+ [ $1 ] ]
return
}
if (%TVRage_Type. [ $+ [ $1 ] ] = EpSpec) { %tvshow. [ $+ [ $1 ] ] = $replace($GetTok($2-,1- [ $Calc($numtok($2-,32)-1) ] ,32),$chr(32),% $+ 20) $+ &ep= $+ %Check_Season. [ $+ [ $1 ] ] $+ x $+ %Check_ep. [ $+ [ $1 ] ] }
else { %TVShow. [ $+ [ $1 ] ] = $replace($2-,$chr(32),% $+ 20) }
sockopen TVRage. [ $+ [ $1 ] ] www.TVRage.com 80
}
on *:sockopen:TVRage.*: {
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
Check.Settings Sch %Num
if ($sockerr > 0) return
if (%TVRage_Type. [ $+ [ %num ] ] = Schedule) {
msg %TVRage_Target. [ $+ [ %num ] ] 15-- 14Gathering Information 15--
sockwrite -n $SockName GET /quickschedule.php HTTP/1.1
}
elseif (%TVRage_Type. [ $+ [ %num ] ] = Country) {
msg %TVRage_Target. [ $+ [ %num ] ] 15-- 14Gathering Information 15--
sockwrite -n $SockName GET /quickschedule.php?country= $+ %TVRage_Country. [ $+ [ %num ] ] HTTP/1.1
}
elseif ((%TVRage_Type. [ $+ [ %num ] ] = Ep) || (%TVRage_Type. [ $+ [ %num ] ] = EpSpec)) { sockwrite -n $sockname GET http://services.tvrage.com/tools/quickinfo.php?show= $+ %tvshow. [ $+ [ %num ] ] HTTP/1.0 }
sockwrite -n $SockName host: $+(www.TVRage.com,$crlf,$crlf)
set %TVRage_Day. [ $+ [ %num ] ] 0
sockwrite -n $sockname Host: tvrage.com
sockwrite -n $sockname Connection: keep-alive
sockwrite $sockname $crlf
}
on *:sockread:TVRage.*:{
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
if ($sockerr) { return }
var %tvdata
sockread %tvdata
if ($mid(%Tvdata,1,5) = [DAY]) {
if ($Fopen(%TVRage_Day. [ $+ [ %num ] ])) {
.fclose %TVRage_Day. [ $+ [ %num ] ]
}
set %TVRage_Day. [ $+ [ %num ] ] $GetTok($Mid(%Tvdata,6,$Calc($pos(%Tvdata,[/,1) - 6)),1,44)
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
.fopen -no %TVRage_Day. [ $+ [ %num ] ] [ %TVRage_Day. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
.fwrite -n %TVRage_Day. [ $+ [ %num ] ] $Mid(%Tvdata,6,$Calc($pos(%Tvdata,[/,1) - 6))
}
}
if ($mid(%TvData,1,6) = [TIME]) {
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
set %TVRage_Time. [ $+ [ %num ] ] $Mid(%Tvdata,7,$Calc($pos(%tvdata,[/,1) - 7))
}
}
if ($Mid(%TVData,1,6) = [SHOW]) {
if (%TVRage_Day. [ $+ [ %num ] ] = %TVRage_Date. [ $+ [ %num ] ]) {
set %TVRage_Show_Temp. [ $+ [ %num ] ] $Mid(%TvData,7,$Calc($pos(%Tvdata,^,3) - 7))
.fwrite -n %TVRage_Day. [ $+ [ %num ] ] %TVRage_Time. [ $+ [ %num ] ] $+ ^ $+ %TVRage_Show_Temp. [ $+ [ %num ] ]
}
}
if (!$sockbr) return
if (show name isin %tvdata) { set %show_name. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (country isin %tvdata) { set %show_country. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (Latest Episode isin %tvdata) {
set %show_latest_temp. [ $+ [ %num ] ] $gettok(%tvdata,2,64)
set %show_latest_Ep. [ $+ [ %num ] ] $gettok(%show_latest_Temp. [ $+ [ %num ] ],1,94)
set %show_latest_Title. [ $+ [ %num ] ] $gettok(%show_latest_temp. [ $+ [ %num ] ],2,94)
set %show_latest_airdate. [ $+ [ %num ] ] $gettok(%Show_latest_Temp. [ $+ [ %num ] ],3,94)
}
if (Next Episode isin %tvdata) {
set %show_next_temp. [ $+ [ %num ] ] $gettok(%tvdata,2,64)
set %show_next_Ep. [ $+ [ %num ] ] $gettok(%show_next_Temp. [ $+ [ %num ] ],1,94)
set %show_next_Title. [ $+ [ %num ] ] $gettok(%show_next_temp. [ $+ [ %num ] ],2,94)
set %show_next_airdate. [ $+ [ %num ] ] $gettok(%Show_Next_Temp. [ $+ [ %num ] ],3,94)
}
if (Episode URL isin %tvdata) { set %Show_URL. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (Episode Info isin %tvdata) {
set %Show_Spec_Temp. [ $+ [ %num ] ] $Gettok(%tvdata,2,64)
set %show_Spec_Ep. [ $+ [ %num ] ] $gettok(%show_spec_Temp. [ $+ [ %num ] ],1,94)
set %show_Spec_Title. [ $+ [ %num ] ] $gettok(%show_spec_temp. [ $+ [ %num ] ],2,94)
set %show_Spec_airdate. [ $+ [ %num ] ] $gettok(%Show_spec_Temp. [ $+ [ %num ] ],3,94)
if (%show_Spec_airdate. [ $+ [ %num ] ] = 00//00) { set %show_Spec_airdate. [ $+ [ %num ] ] }
}
if (Status isin %Tvdata) { set %Show_Status. [ $+ [ %num ] ] $Gettok(%Tvdata,2,64) }
if (airtime isin %Tvdata) { Set %Show_Airtime. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (network isin %Tvdata) { set %Show_network. [ $+ [ %num ] ] $gettok(%tvdata,2,64) }
if (%show_Next_airdate. [ $+ [ %num ] ]) {
set %Next_Temp. [ $+ [ %num ] ] $puttok(%Show_Next_Airdate. [ $+ [ %num ] ],$GetTok(%Show_Next_airdate. [ $+ [ %num ] ],2,47),1,47)
set %Next_Temp. [ $+ [ %num ] ] $puttok(%Next_Temp. [ $+ [ %num ] ],$SetMonth($GetTok(%Show_Next_Airdate. [ $+ [ %num ] ] ,1,47)),2,47)
set %Next_Time. [ $+ [ %num ] ] $CTime(%Next_Temp. [ $+ [ %num ] ] $GetTok(%Show_Airtime. [ $+ [ %num ] ] ,3-4,32))
}
if (%Show_Spec_airdate. [ $+ [ %num ] ]) {
set %Next_Spec_Temp. [ $+ [ %num ] ] $puttok(%Show_Spec_Airdate. [ $+ [ %num ] ],$SetMonth($GetTok(%Show_Spec_Airdate. [ $+ [ %num ] ],2,47)),2,47)
set %Next_Spec_Time. [ $+ [ %num ] ] $CTime(%Next_Spec_Temp. [ $+ [ %num ] ] $GetTok(%Show_Airtime. [ $+ [ %num ] ] ,3-4,32))
}
}
on *:sockclose:TVRage.*:{
var %num = $Mid($sockname,$calc($Pos($sockName,.,1) + 1))
if ((%TVRage_Type. [ $+ [ %num ] ] = Ep) || (%TVRage_Type. [ $+ [ %num ] ] = EpSpec)) {
Check.Settings Ep %Num
set %Show_Ep. [ $+ [ %num ] ] s $+ $replace(%Show_ep. [ $+ [ %num ] ],x,e)
if (%show_name. [ $+ [ %num ] ] = $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14No Such Show8, 14Check your spelling and try again8. }
else {
msg %TVRage_Target. [ $+ [ %num ] ] 14 $+ %show_name. [ $+ [ %num ] ] 15--14 $Replace(%Show_Airtime. [ $+ [ %num ] ],$Chr(44),8 $+ $chr(44) $+ 14,:,8:14) 15 $+ %Show_network. [ $+ [ %num ] ] 8(14 $+ %Show_Status. [ $+ [ %num ] ] $+ 8) (14 $+ %show_country. [ $+ [ %num ] ] $+ 8)
if (%Show_Url. [ $+ [ %num ] ] != $Null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Episode URL8:15 %Show_URL. [ $+ [ %num ] ] }
if (%show_Spec_temp. [ $+ [ %num ] ] != $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Episode15 %Show_spec_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_spec_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %Show_spec_Title. [ $+ [ %num ] ] $iif(%Next_Spec_Time. [ $+ [ %num ] ] > $Ctime,14Airing in8:15 $LongTime($Calc(%Next_Spec_Time. [ $+ [ %num ] ] - $Ctime))) }
msg %TVRage_Target. [ $+ [ %num ] ] 14Latest Episode15 %Show_Latest_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_Latest_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %show_latest_Title. [ $+ [ %num ] ]
if (%show_next_temp. [ $+ [ %num ] ] != $null) { msg %TVRage_Target. [ $+ [ %num ] ] 14Next Episode15 %Show_next_airdate. [ $+ [ %num ] ] 14 $+ $Replace(%Show_Next_Ep. [ $+ [ %num ] ],x,8x14) 15 $+ %Show_Next_Title. [ $+ [ %num ] ] $iif(%Next_Time. [ $+ [ %num ] ] > $Ctime,14Airing in8:15 $LongTime($Calc(%Next_Time. [ $+ [ %num ] ] - $Ctime))) }
}
}
elseif ((%TVRage_Type. [ $+ [ %num ] ] = Schedule) || (%TVRage_Type. [ $+ [ %num ] ] = Country)) {
Check.Settings Sch %Num
if (%TVRage_Date. [ $+ [ %num ] ] != $Null) {
.fopen %TVRage_Date. [ $+ [ %num ] ] [ %TVRage_Date. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
msg %TVRage_Target. [ $+ [ %num ] ] 14Schedule for15 $replace($fread(%TVRage_Date. [ $+ [ %num ] ]),$chr(44),8 $+ $chr(44) $+ 15) $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] != $null, 14at15 %TVRage_Time_Schedule. [ $+ [ %num ] ] $+ 8:1500 $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] < 12,14pm,14am))
set %TVRage_Time_Count. [ $+ [ %num ] ] 0
while ($Feof != 1) {
set %TVRage_Tmp. [ $+ [ %num ] ] $Fread(%TVRage_Date. [ $+ [ %num ] ])
set %TVRage_Time_Temp. [ $+ [ %num ] ] $GetTok(%TVRage_Tmp. [ $+ [ %num ] ],1,94)
set %TVRage_Show_NetWork. [ $+ [ %num ] ] $GetTok(%TVRage_Tmp. [ $+ [ %num ] ],2,94)
set %TVRage_Show_Show. [ $+ [ %num ] ] $gettok(%TVRage_Tmp. [ $+ [ %num ] ],3,94)
set %TVRage_Show_Ep. [ $+ [ %num ] ] s $+ $replace($getTok(%TVRage_Tmp. [ $+ [ %num ] ],4,94),x,e)
if (%TVRage_Time_Schedule. [ $+ [ %num ] ] != $Null) {
if ($int($mid(%TVRage_Time_Temp. [ $+ [ %num ] ],1,2)) = $int($mid(%TVRage_Time_Schedule. [ $+ [ %num ] ],1,2))) {
inc %TVRage_Time_Count. [ $+ [ %num ] ] 1
if (%TVRage_Time_Temp2. [ $+ [ %num ] ] = %TVRage_Time_Temp. [ $+ [ %num ] ]) { goto Next_Time }
msg %TVRage_Target. [ $+ [ %num ] ] 14Time8:15 8(15 $+ $Replace(%TVRage_Time_Temp. [ $+ [ %num ] ],:,8:15) $+ 8)
:Next_Time
msg %TVRage_Target. [ $+ [ %num ] ] 14--- 8(15 $+ %TVRage_show_Network. [ $+ [ %num ] ] $+ 8)15 %TVRage_Show_Show. [ $+ [ %num ] ] 8-15 $Replace(%TVRage_Show_Ep. [ $+ [ %num ] ],s,14s15,e,14e15)
Set %TVRage_Time_Temp2. [ $+ [ %num ] ] %TVRage_Time_Temp. [ $+ [ %num ] ]
}
}
if (%TVRage_Time_Schedule. [ $+ [ %num ] ] != $Null) && (%TVRage_Time_Count. [ $+ [ %num ] ] = 0)) { msg %TVRage_Target. [ $+ [ %num ] ] 14There are no new TV Shows Scheduled for15 %TVRage_Time_Schedule. [ $+ [ %num ] ] $+ 8:1500 $iif(%TVRage_Time_Schedule. [ $+ [ %num ] ] < 12,14pm,14am) }
elseif (%TVRage_Time_Schedule. [ $+ [ %num ] ] = $Null) {
if (%TVRage_Time_Temp2. [ $+ [ %num ] ] = %TVRage_Time_Temp. [ $+ [ %num ] ]) { goto Next_Time2 }
msg %TVRage_Target. [ $+ [ %num ] ] 14Time8:15 8(15 $+ $Replace(%TVRage_Time_Temp. [ $+ [ %num ] ],:,8:15) $+ 8)
:Next_Time2
msg %TVRage_Target. [ $+ [ %num ] ] 14--- 8(15 $+ %TVRage_show_Network. [ $+ [ %num ] ] $+ 8)15 %TVRage_Show_Show. [ $+ [ %num ] ] 8-15 $replace(%TVRage_Show_Ep. [ $+ [ %num ] ],e,14e15,s,14s15)
Set %TVRage_Time_Temp2. [ $+ [ %num ] ] %TVRage_Time_Temp. [ $+ [ %num ] ]
}
}
}
.fclose %TVRage_Date. [ $+ [ %num ] ]
.remove [ %TVRage_Date. [ $+ [ %num ] ] ] [ $+ [ %num ] ] $+ .txt
}
.unset %tvshow. [ $+ [ %num ] ]
.unset %show_*. [ $+ [ %num ] ]
.unset %TVRage_*. [ $+ [ %num ] ]
.unset %Check_*. [ $+ [ %num ] ]
.unset %next_*. [ $+ [ %num ] ]
}
Alias -l FullDate {
if ($Mid($1,1,3) = Sat) { Return Saturday }
elseif ($Mid($1,1,3) = Sun) { return Sunday }
elseif ($Mid($1,1,3) = Mon) { Return Monday }
elseif ($Mid($1,1,3) = Tue) { Return Tuesday }
elseif ($Mid($1,1,3) = Wed) { Return Wednesday }
elseif ($Mid($1,1,3) = Thu) { Return Thursday }
elseif ($Mid($1,1,3) = Fri) { Return Friday }
else { Return $null }
}
alias -l CheckEP {
var %temp $GetTok($2-,$numtok($2-,32),32)
$iif(e isin %Temp,%Temp = $replace(%Temp,e,x))
set %Check_Season. [ $+ [ $1 ] ] $Mid(%Temp,1,$Calc($pos(%Temp,x)-1))
set %Check_Ep. [ $+ [ $1 ] ] $Mid(%Temp,$Calc($pos(%Temp,x)+1))
if ($mid(%Check_Season. [ $+ [ $1 ] ],1,1) = s) { Set %Check_Season. [ $+ [ $1 ] ] $Mid(%Check_Season. [ $+ [ $1 ] ],2) }
if ((%Check_season. [ $+ [ $1 ] ] isnum) && (%Check_Ep. [ $+ [ $1 ] ] isnum)) { Return 1 }
else { Return 0 }
}
dialog -l TVSettings {
title "TVRage Settings"
size -1 -1 264 217
option pixels
box "", 1, 8 8 249 60
box "", 2, 8 67 249 60
box "", 3, 8 126 249 43
box "", 12, 8 168 249 43
text "Select where you want the Schedule Displayed", 4, 16 21 225 17
radio "Channel", 5, 32 45 65 13, group
radio "Private Message", 6, 128 45 105 13,
text "Select where you want the Replys Displayed", 7, 16 80 225 17
radio "Channel", 8, 32 104 65 13, group
radio "Private Message", 9, 128 104 105 13,
check "Enable TVRage", 10, 32 188 113 13
button "&Save Settings", 11, 144 182 89 25, ok
check "Enable Colors", 13, 32 145 113 13
}
on *:dialog:TVSettings:*:*:{
if ($Devent == init) {
if (%TV_Where = 1) { did -c $dname 8 }
else { did -c $dname 9 }
if (%TV_Where2 = 1) { did -c $dname 5 }
else { did -c $dname 6 }
if (%TV_Rage = 1) { did -c $dname 10 }
else { did -u $dname 10 }
if (%TV_Color = 1) { did -c $dname 13 }
else { did -u $dname 13 }
}
elseif ($devent == Close) {
set %TV_Where $iif($Did($Dname,8).state = 1,1,0)
set %TV_Where2 $iif($Did($Dname,5).state = 1,1,0)
set %TV_Rage $iif($Did($Dname,10).state = 1,1,0)
set %TV_Color $iif($Did($Dname,13).state = 1,1,0)
echo -a 4TV Rage 15Settings have been saved8.
}
}
dialog -l SelfSearch {
title "TVRage Search"
size -1 -1 500 202
option pixels
box "", 1, 8 8 486 145
box "", 2, 8 152 486 43
text "Search Options:", 3, 16 16 462 17
text "<Show> (Season and Episode) EX: House 2x05", 4, 30 33 462 17
text "Schedule <Day Of Week> EX: Schedule Fri", 5, 30 50 462 17
text "Schedule <Day Of Week> (Time) EX: Schedule Wed 10", 6, 30 67 462 17
text "Schedule <Day Of Week> (Time) (Country:US,GB,UK,AU) EX: Schedule Saturday 10 GB", 7, 30 84 462 17
text "Option in ( ) are Optional. Options in < > are Required.", 8, 30 101 462 17
edit "", 9, 16 125 462 17, autohs
button "Search", 10, 335 165 65 25
button "Cancel", 11, 414 165 65 25, cancel
}
on *:dialog:SelfSearch:sclick:*:{
if ($Did = 10) {
if ($Did(9) = $null) {
if ($dialog(error,error,-4)) { did -f $Dname 9 }
}
else {
var %Num = $trnum
set %TVRage_Target. [ $+ [ %num ] ] $me
set %TVRage_Nick. [ $+ [ %num ] ] $me
set %TVRage_Chan. [ $+ [ %num ] ] $me
TVRage.Load %num !ep $did(9).text
echo -a 14Check you Private Message for the infomation that you requested8.
dialog -x $dname
}
}
}
dialog -l error {
title "Error"
size -1 -1 228 90
option pixels
box "", 2, 8 8 214 33
box "", 3, 8 40 214 43
button "&Ok", 4, 160 52 50 25, ok
text "You must type something to search for!", 5, 20 20 190 17
}
alias -l Check.Settings {
if ($1 = Ep) {
if (%TV_Where = $Null) { Set %TV_Where 0 }
if (%TV_Where = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Chan. [ $+ [ $2 ] ] }
elseif (%TV_Where = 0) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
if (%TVRage_Query. [ $+ [ $2 ] ] = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
}
elseif ($1 = Sch) {
if (%TV_Where2 = $Null) { Set %TV_Where2 0 }
if (%TV_Where2 = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Chan. [ $+ [ $2 ] ] }
elseif (%TV_Where2 = 0) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
if (%TVRage_Query. [ $+ [ $2 ] ] = 1) { set %TVRage_Target. [ $+ [ $2 ] ] %TVRage_Nick. [ $+ [ $2 ] ] }
}
}
alias -l trnum {
set %trnum $base($calc($base(%trnum,36,10) +1),10,36)
return %trnum
}
Alias -l LongTime {
Return 15 $+ $replace($Duration($$1),sec,sc,day,dy,wks,14weeks15,wk,14week15,dys,14days15,dy,14day15,hrs,14hours15,hr,14hour15,min,14minute15,mins,14minutes15,scs,14seconds15,sc,14second15)
}
alias -l SetMonth {
if ($1 = Jan) { return 1 }
elseif ($1 = Feb) { Return 2 }
elseif ($1 = Mar) { Return 3 }
elseif ($1 = Apr) { Return 4 }
elseif ($1 = May) { Return 5 }
elseif ($1 = Jun) { Return 6 }
elseif ($1 = Jul) { Return 7 }
elseif ($1 = Aug) { Return 8 }
elseif ($1 = Sep) { Return 9 }
elseif ($1 = Oct) { Return 10 }
elseif ($1 = Nov) { Return 11 }
elseif ($1 = Dec) { Return 12 }
}
alias -l msg {
if (%TV_Color = 0) { var %Temp = $strip($1-) | tokenize 32 %Temp }
if ($Show) {
if ($1 !ischan) { !.msg $1 $2- }
else { !msg $1 $iif(c isincs $chan($1).mode,$Strip($2-),$2-) }
}
else { !.msg $1 $iif(c isincs $chan($1).mode,$Strip($2-),$2-) }
}
use this it works
on *:text:!fml:*: {
if ($nick == noob) { msg $chan www.fmylife.com - it really is that hard isnt it? | halt }
else {
set %fmltarg $chan
sockopen fml www.fmylife.com 80
}
}
on *:sockopen:fml: {
sockwrite -n $sockname GET /random HTTP/2.0
sockwrite -n $sockname Host: www.fmylife.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}
on *:sockread:fml: {
sockread %fmltemp
if (class="fmllink"> isin %fmltemp) {
inc %t 1
set %fml $+ %t $remove($nohtml(%fmltemp),$(Net Avenir : gestion publicitaireClose the advertisement))
}
}
on *:sockclose:fml: {
var %fmml $rand(1,$var(%fml*,0))
var %fmlcolour = $rand(1,12)
if (%fmlcolour = 1) msg %fmltarg 03,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 2) msg %fmltarg 04,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 3) msg %fmltarg 05,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 4) msg %fmltarg 06,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 5) msg %fmltarg 07,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 6) msg %fmltarg 08,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 7) msg %fmltarg 09,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 8) msg %fmltarg 10,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 9) msg %fmltarg 11,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 11) msg %fmltarg 13,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
if (%fmlcolour = 12) msg %fmltarg 14,1 $+ $remove($gettok($var(%fml*,%fmml).value,1,35),$(FML))
}
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:text:!cleanfml:*: {
msg $chan 14Cleaning up !fml variables and sockets... done!
unset %fmltarg
unset %fml* %t
unset %fmltemp
sockclose fml
}
Jan.17[4:21:15 pm] [&Lightguy84] !horoscope leo
Jan.17[4:21:22 pm] [@Boss_hog] Sign: Leo Date: Saturday, January 17
Jan.17[4:21:22 pm] [@Boss_hog] Horoscope: The day supports hobbies, leisure and love life. Tap your artistic potentials on this day when your imagination is soaring. Don't be forgetful because what you are hearing doesn't quite add up.
works great m8 keep up the good work
[9:58:55 pm] [%Lightguy84] !gas 1
[9:58:55 pm] [@Boss_hog] Please Type !gas <1-10> ex: !gas 3 90210
[9:58:59 pm] [%Lightguy84] !gas 1 32640
[9:59:51 pm] [%Lightguy84] !gas 1 32640
[10:00:41 pm] [%Lightguy84] !gas 5 32640
thats what i get no reply from the bot
it used to work then it suddenly started showing 10 replys no matter what number you told it to
and now it don't do anything