Ja' jeg har længe ledt efter et script der kunne finde en pcw for en men det er ikke lykkedes mig. Så jeg har lavet mit eget.
Scriptet skriver automatisk på de channels du vælger på en liste, den kan søge efter 1on1,2on2,3on3,4on4,5on5 og 6on6. Du kan vælge mellem Low,midlow,mid,midhigh og -highskilled. ud over det skriver scriptet også selv til personen der svarer dig hurtigst og giver ham/hun ip og pw hvis du har angivet en server, og for at mindske chancen for at den ikke skriver det til en random bot har jeg gjort sådan man skal skrive nogle bestemte "nøgle ord" før den tricker. Den skriver selvfølgelig kun server-infoen til én person, sådan man ikke ender med doublebooking. Udover det, har jeg lavet en lille 'feature' så hvis der i mirc er en ip og en port i formatet xxx.xxx.xxx.xxx:xxxxx bliver det til et hotlink som du kan dobbelt klikke på og automatisk blive sendt ind i cs 1.6 og ind på serveren. Det kan måske være irreterende i nogens tilfælde, men så må i selv lige slette det. Søg på "HOTLINK" i scriptet.
Du kan også vælge map hvis det er nødvendigt. Men for lige at opsumere skal du bare vælge de der ting og så trykke på knappen "Search!" og så kan du frit gå ind og varme op mens scriptet finder din pcw. Jeg synes selv scriptet er rimlig intelligent, og laver sjældent fejl. Men vil egntlig bare vide om det er noget i synes kan bruges til noget?
for at få dialogboxen op skriv: /CWSearch
Derefter burde resten være rimlig indlysende. HF
on *:connect: {
if ($readini(R-NGVar.ini, VAR, UoC) != 1) { opdater }
}
alias CWSearch {
dialog -md CWSearch CWSearch
writeini R-NGVar.ini VAR SrvCheck 0
.var %k $rand(1,2)
unset %opdater
if (%k == 1) { writeini R-NGVar.ini VAR ServerStatus ServerON }
elseif (%k == 2) { writeini R-NGVar.ini VAR ServerStatus ON }
if ($readini(R-NGVar.ini, VAR, CWRdy) != 1) { remini R-NGVar.ini VAR CWRdy }
if ($read(CWSearchChannels.mrc, 1) == $null) { write -l1 CWSearchChannels.mrc #Seekcw }
if ($read(CWSearchChannels.mrc, 2) == $null) { write -l2 CWSearchChannels.mrc #PCW }
}
dialog CWSearch {
title "R-NG ClanWar Seach"
size -1 -1 347 69
option pixels notheme
button "Skill", 1, 0 0 65 25
button "Server Info", 2, 70 0 65 25
button "Players", 3, 140 0 65 25
button "Search!", 4, 0 43 65 25
check "Check Here if you do not own a server", 5, 1 26 230 17
link "R-NG Support", 6, 276 25 69 17
button "Channels", 7, 210 0 65 25
button "Connect To your Server", 8, 70 43 125 25, ok
button "Map", 9, 280 0 65 25
button "STOP!", 10, 280 43 65 25
button "Options", 11, 202 43 70 25
}
on *:dialog:CWSearch:sclick:11: {
dialog -md Options Options
if ($readini(R-NGVar.ini, VAR, AIPHL) == 1) { did -c Options 1 }
if ($readini(R-NGVar.ini, VAR, UoC) == 1) { did -c Options 5 }
if ($readini(R-NGVar.ini, Var, NFWJAS) == 1) { did -c Options 2 }
}
on *:dialog:CWSearch:sclick:5: {
writeini R-NGVar.ini VAR SrvCheck $did(5).state
.var %f $rand(1,2)
if (%f == 1) {
writeini R-NGVar.ini VAR ServerStatus $iif($did(5).state == 1,ServerOFF,ServerON)
}
elseif (%f == 2) {
writeini R-NGVar.ini VAR ServerStatus $iif($did(5).state == 1,OFF,ON)
}
}
on *:dialog:CWSearch:sclick:10: {
if ($readini(R-NGVar.ini, VAR, CWRdy) == 1) {
.var %i = 1 | while (%i <= 20) {
timer [ $+ [ %i ] ] off
.inc %i
}
timer50 off
part # [ $+ [ $readini(R-NGVar.ini, VAR, Players) ] ]
echo -ag Your Clanwar Search has been cancelled!
}
remini R-NGVar.ini VAR CWRdy
}
on *:dialog:CWSearch:sclick:9: {
dialog -md Map Map
did -ra Map 2 $readini(R-NGVar.ini, VAR, Map)
}
dialog Map {
title "R-NG ClanWar Search - Map"
size -1 -1 176 74
option pixels notheme
box "Type in what map to be played", 1, 0 0 176 71
edit "", 2, 1 18 149 20
link "R-NG Support", 3, 93 42 80 17
button "OK", 4, 3 38 65 25, ok
}
on *:dialog:Map:sclick:3: {
url www.r-ng.dk
join #R-NG
}
on *:dialog:Map:edit:2: {
if ($did(2) != $null) {
writeini R-NGVar.ini VAR Map $did(2)
}
else { remini R-NGVar.ini VAR Map }
}
on *:dialog:CWSearch:sclick:8: {
if ($validip($readini(R-NGVar.ini, Var, ServerIP)) == $true) {
run $remove($regread(HKCR\Applications\steam.exe\shell\open\command\),"%1") -applaunch 10 +password $readini(R-NGVar.ini, Var, ServerPassword) +connect $readini(R-NGVar.ini, Var, ServerIP)
.var %i = 1 | while (%i <= $lines(R-NGFriendsList.mrc)) {
if ($readini(R-NGVar.ini, Var, NFWJAS) == 1) { notice $read(R-NGFriendsList.mrc, %i) I just joined a counter-strike server: connect $readini(R-NGVar.ini, Var, ServerPassword) ;password $readini(R-NGVar.ini, Var, ServerIP)
}
.inc %i
}
}
else { dialog -md Error Error }
}
on *:dialog:CWSearch:sclick:7: {
dialog -md Channels Channels
did -f Channels 4
if ($read(CWSearchChannels.mrc, 1) == $null) { write -l1 CWSearchChannels.mrc #Seekcw }
if ($read(CWSearchChannels.mrc, 2) == $null) { write -l2 CWSearchChannels.mrc #PCW }
.var %i = 1 | while (%i <= $lines(CWSearchChannels.mrc)) {
did -a Channels 1 $read(CWSearchChannels.mrc, %i)
.inc %i
}
}
on *:dialog:CWSearch:sclick:1: {
dialog -md SkillMenu SkillMenu
if ($readini(R-NGVar.ini, VAR, Skill) != $null) {
did -ra SkillMenu 7 Your Skill is set to $readini(R-NGVar.ini, VAR, Skill)
}
else { did -ra SkillMenu 7 You need to set your Skill Level }
}
on *:dialog:CWSearch:sclick:2: {
dialog -md ServerInfo ServerInfo
did -ra ServerInfo 2 $readini(R-NGVar.ini, Var, ServerIP)
did -ra ServerInfo 3 $readini(R-NGVar.ini, Var, ServerPassword)
}
on *:dialog:CWSearch:sclick:3: {
dialog -md Players Players
if ($readini(R-NGVar.ini, VAR, Players) != $null) {
did -ra Players 9 You are currently searching for $readini(R-NGVar.ini, VAR, Players)
}
else { did -ra Players 9 Choose how many Players you want }
}
on *:dialog:CWSearch:sclick:6: {
url www.r-ng.dk
join #R-NG
}
on *:dialog:CWSearch:sclick:4: {
if ($readini(R-NGVar.ini, VAR, Skill) == $null) {
echo -ag You need to choose your skill level
dialog -md SkillMenu SkillMenu
}
if ($readini(R-NGVar.ini, VAR, Players) == $null) {
echo -ag You need to choose How many players are on your team
dialog -md Players Players
}
else {
if ($validip($readini(R-NGVar.ini, Var, ServerIP)) == $False) && ($readini(R-NGVar.ini, VAR, SrvCheck) == 0) { dialog -md Error Error }
else {
if ($readini(R-NGVar.ini, VAR, Map) == $null) { remini R-NGVar.ini Var Map }
writeini R-NGVar.ini VAR CWRdy 1
Notice $me You are now searching for: $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
j $readini(R-NGVar.ini, VAR, Players)
.var %k $rand(1,2)
if (%k == 1) { msg # [ $+ [ $readini(R-NGVar.ini, VAR, Players) ] ] $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map) }
elseif (%k == 2) { msg # [ $+ [ $readini(R-NGVar.ini, VAR, Players) ] ] $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Map) }
timer50 0 60 msg # [ $+ [ $readini(R-NGVar.ini, VAR, Players) ] ] $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
var %i = 1
while (%i <= $lines(CWSearchChannels.mrc)) {
if ($read(CWSearchChannels.mrc, %i) != $null) {
j $read(CWSearchChannels.mrc, %i)
if ($chr(35) !isin $read(CWSearchChannels.mrc, %i)) {
.var %r $rand(1,3)
if (%r == 1) {
msg # $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
timer [ $+ [ %i ] ] 0 60 msg # $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
}
elseif (%r == 2) {
msg # $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Map)
timer [ $+ [ %i ] ] 0 60 msg # $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Map)
}
elseif (%r == 3) {
msg # $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Map)
timer [ $+ [ %i ] ] 0 60 msg # $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
}
}
else {
.var %r $rand(1,3)
if (%r == 1) {
msg $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
timer [ $+ [ %i ] ] 0 60 msg $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
}
elseif (%r == 2) {
msg $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Map)
timer [ $+ [ %i ] ] 0 60 msg $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Map)
}
elseif (%r == 3) {
msg $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Map)
timer [ $+ [ %i ] ] 0 60 msg $read(CWSearchChannels.mrc, %i) $readini(R-NGVar.ini, VAR, ServerStatus) $readini(R-NGVar.ini, VAR, Players) $readini(R-NGVar.ini, VAR, Skill) $readini(R-NGVar.ini, VAR, Map)
}
}
}
.inc %i
}
}
}
}
on *:TEXT:*:?: {
if ($readini(R-NGVar.ini, VAR, CWRdy) == 1) {
if ($readini(R-NGVar.ini, VAR, SrvCheck) == 0) {
if (ip isin $1-) || (war isin $1-) || (play isin $1-) || (go isin $1-) || (klar isin $1-) || (rdy isin $1-) || (ready isin $1-) || (ippw isin $1-) {
writeini R-NGVar.ini VAR CWRdy 0
timer* 1 5 remini R-NGVar.ini VAR CWRdy
set %Opponent $nick
.var %i = 1 | while (%i <= 9) {
timer [ $+ [ %i ] ] off
.inc %i
}
timer1? off
timer2? off
timer5? off
part # [ $+ [ $readini(R-NGVar.ini, VAR, Players) ] ]
msg $nick connect $readini(R-NGVar.ini, Var, ServerIP) ;password $readini(R-NGVar.ini, Var, ServerPassword) $iif($readini(R-NGVar.ini, VAR, Players) == 1on1,I'm,We're) waiting for you!
echo -ag Your ClanWar Search was Successful Please visit www.R-NG.dk and our forums for further questions. Or you can message R-NG|Santa.
}
else { msg $nick Write rdy to get Server info. }
}
elseif ($readini(R-NGVar.ini, VAR, SrvCheck) == 1) {
if ($validip($1) == $true) || ($validip($2) == $true) || ($validip($3) == $true) {
dec %Check1Find | writeini R-NGVar.ini VAR CWRdy 0
timer100 1 2 remini R-NGVar.ini VAR CWRdy
}
}
}
elseif ($readini(R-NGVar.ini, VAR, CWRdy) == 0) {
if ($nick != %Opponent) {
if (ip isin $1-) || (war isin $1-) || (play isin $1-) || (go isin $1-) || (klar isin $1-) || (rdy isin $1-) || (ready isin $1-) || (ippw isin $1-) {
msg $nick sorry, I've already found another clanwar.
}
timer* 1 2 remini R-NGVar.ini VAR CWRdy
}
}
}
on *:TEXT:*:#: {
if ($readini(R-NGVar.ini, VAR, CWRdy) == 1) {
if ($readini(R-NGVar.ini, VAR, SrvCheck) == 0) {
if (serverOFF isin $1-) || (off isin $1-) && ($readini(R-NGVar.ini, VAR, Players) isin $1-) && ($readini(R-NGVar.ini, VAR, Skill) isin $1-) {
if ($readini(R-NGVar.ini, VAR, Map) == $null) {
msg $nick Are you ready? $readini(R-NGVar.ini, VAR, Players) $iif($readini(R-NGVar.ini, VAR, Players) == 1on1,My,Our) Server $readini(R-NGVar.ini, VAR, Skill) $+ ! If yes say: rdy
}
elseif ($readini(R-NGVar.ini, VAR, Map) != $null) {
msg $nick Are you ready? $readini(R-NGVar.ini, VAR, Players) $iif($readini(R-NGVar.ini, VAR, Players) == 1on1,My,Our) Server $readini(R-NGVar.ini, VAR, Skill) $+ ! map is: $readini(R-NGVar.ini, VAR, Map)
}
}
}
elseif ($readini(R-NGVar.ini, VAR, SrvCheck) == 1) {
if (serverON isin $1-) || ($istok($1-,on,32) == $true) && ($readini(R-NGVar.ini, VAR, Players) isin $1-) && ($readini(R-NGVar.ini, VAR, Skill) isin $1-) {
msg $nick $iif($readini(R-NGVar.ini, VAR, Players) == 1on1,I'm,We're) ready $readini(R-NGVar.ini, VAR, Skill) $+ ! ip pw plz
}
}
}
}
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
dialog SkillMenu {
title "R-NG ClanWar Search - Skill"
size -1 -1 429 77
option pixels notheme
box "Skill", 3, 2 -1 425 77
button "Low", 2, 5 45 65 25
button "Low-Mid", 4, 75 45 65 25
button "Medium", 5, 144 45 65 25
button "Mid-High", 6, 215 45 65 25
button "High", 1, 285 45 65 25
text "", 7, 7 17 314 17, disable
link "R-NG Support", 8, 338 18 80 17
button "OK", 9, 355 45 65 25, ok
}
on *:dialog:SkillMenu:sclick:8: {
url www.r-ng.dk
join #R-NG
}
on *:dialog:SkillMenu:sclick:2: {
writeini R-NGVar.ini VAR Skill Low
did -ra SkillMenu 7 Your Skill is set to Low
}
on *:dialog:SkillMenu:sclick:4: {
writeini R-NGVar.ini VAR Skill Low-Mid
did -ra SkillMenu 7 Your Skill is set to Low-Mid
}
on *:dialog:SkillMenu:sclick:5: {
writeini R-NGVar.ini VAR Skill Mid
did -ra SkillMenu 7 Your Skill is set to Mid
}
on *:dialog:SkillMenu:sclick:6: {
writeini R-NGVar.ini VAR Skill Mid-High
did -ra SkillMenu 7 Your Skill is set to Mid-High
}
on *:dialog:SkillMenu:sclick:1: {
writeini R-NGVar.ini VAR Skill High
did -ra SkillMenu 7 Your Skill is set to High
}
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
dialog ServerInfo {
title "R-NG ClanWar Search - ServerInfo"
size -1 -1 194 119
option pixels notheme
box "Server Info", 1, 0 0 193 118
edit "", 2, 7 30 180 19
edit "", 3, 6 68 180 20
link "R-NG Support", 4, 5 96 80 17
box "Server IP and Port Here", 5, 4 16 185 35
box "Server Password Here", 6, 4 54 185 36
button "OK", 7, 123 90 65 25, ok
}
on *:dialog:ServerInfo:Edit:2: {
if ($validip($did(2)) == $true) {
writeini R-NGVar.ini VAR ServerIP $did(2)
}
else { remini R-NGVar.ini VAR ServerIP }
}
on *:dialog:ServerInfo:Edit:3: {
writeini R-NGVar.ini Var ServerPassword $did(3)
}
on *:dialog:ServerInfo:slick:4: {
url www.r-ng.dk
join #R-NG
}
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
dialog Players {
title "R-NG ClanWar Search - Players"
size -1 -1 292 84
option pixels notheme
button "1on1", 1, 0 0 65 25
button "2on2", 2, 75 0 65 25
button "3on3", 3, 150 0 65 25
button "4on4", 4, 225 0 65 25
button "5on5", 5, 0 30 65 25
button "6on6", 6, 75 30 65 25
button "Custom", 7, 150 30 65 25
button "OK", 8, 225 30 65 25, ok
text "", 9, 0 63 212 17, disable
link "R-NG Support", 10, 219 62 69 17
}
on *:dialog:Players:sclick:10: {
url www.r-ng.dk
join #R-NG
}
on *:dialog:Players:sclick:1: {
writeini R-NGVar.ini VAR Players 1on1
did -ra Players 9 You are currently searching for 1on1
}
on *:dialog:Players:sclick:2: {
writeini R-NGVar.ini VAR Players 2on2
did -ra Players 9 You are currently searching for 2on2
}
on *:dialog:Players:sclick:3: {
writeini R-NGVar.ini VAR Players 3on3
did -ra Players 9 You are currently searching for 3on3
}
on *:dialog:Players:sclick:4: {
writeini R-NGVar.ini VAR Players 4on4
did -ra Players 9 You are currently searching for 4on4
}
on *:dialog:Players:sclick:5: {
writeini R-NGVar.ini VAR Players 5on5
did -ra Players 9 You are currently searching for 5on5
}
on *:dialog:Players:sclick:6: {
writeini R-NGVar.ini VAR Players 6on6
did -ra Players 9 You are currently searching for 6on6
}
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
dialog Channels {
title "R-NG ClanWar Search - Channels"
size -1 -1 272 252
option pixels notheme
box "Channels", 21, 1 1 271 251
button "OK", 22, 202 107 65 25, ok
link "R-NG Support", 23, 2 223 80 17
list 1, 6 45 193 171, vsbar
button "Add", 2, 202 36 65 25
button "Remove", 3, 202 72 65 25
edit "", 4, 6 24 193 20
}
on *:dialog:Channels:sclick:2: {
if ($did(4) != $null) {
.var %i = $lines(CWSearchChannels.mrc)
.inc %i
did -a Channels 1 $did(4)
write -l $+ %i CWSearchChannels.mrc $did(4)
}
}
on *:dialog:Channels:sclick:3: {
.var %i = $did(1).sel
did -d Channels 1 $did(1).sel
write -dl $+ %i CWSearchChannels.mrc
}
on *:dialog:Channels:sclick:23: {
join #R-NG
url www.r-ng.dk
}
alias validip {
if ($regex($1,/^(?:(?:[01]?\d?\d|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d?\d|2[0-4]\d|25[0-5]):\d+$/)) return $true | return $false
}
dialog ERROR {
title "R-NG ClanWar Search - ERROR!"
size -1 -1 166 93
option pixels notheme
box "ERROR!", 1, 0 0 166 91
text "ERROR! Your Server Seems to be", 2, 2 19 163 17
text "INVALID! Please check it again!", 3, 6 33 155 17
button "OK", 4, 99 61 65 25, ok
link "R-NG Support", 5, 4 72 80 17
}
on *:dialog:ERROR:sclick:5: {
url www.r-ng.dk
join #R-NG
}
on *:dialog:ERROR:sclick:4: {
dialog -md ServerInfo ServerInfo
did -ra ServerInfo 3 $readini(R-NGVar.ini, Var, ServerPassword)
}
alias RegRead {
if ($1 != $null) {
var %a = regread
.comopen %a Wscript.Shell
if !$comerr {
var %b = $com(%a,RegRead,3,bstr,$1-)
var %c = $com(%a).result
.comclose %a
if (%c != $null) return %c
else {
return error! when reading or key does not exist
}
}
}
else { return error! complete data }
}
on ^$*:HOTLINK:/^(\d+\.\d+\.\d+\.\d+)\x3A\d+$/:*: {
if ($longip($regml(1)) !isnum) {
haltdef
}
}
on $*:HOTLINK:/^(\d+\.\d+\.\d+\.\d+)\x3A\d+$/:*: {
if ($readini(R-NGVar.ini, VAR, AIPHL) == 1) { run steam://connect/ $+ $1 }
.var %i = 1 | while (%i <= $lines(R-NGFriendsList.mrc)) {
if ($readini(R-NGVar.ini, Var, NFWJAS) == 1) { notice $read(R-NGFriendsList.mrc, %i) I just joined the counter-strike server $1 via a Hotlink
}
.inc %i
}
}
alias opdater {
SockClose opdater
sockopen opdater dl.getdropbox.com 80
write -c Scripts\CWSearch.mrc
}
on *:sockopen:opdater:sockwrite -n $sockname GET /u/91554/CWSearch.mrc
on *:sockread:opdater: {
.sockread %opdater
if (%opdater) { write Scripts\CWSearch.mrc %opdater }
}
on *:sockclose:opdater:load -rs Scripts\CWSearch.mrc
-----------------------------------------------------------------------
dialog Options {
title "Options"
size -1 -1 291 91
option pixels notheme
check "Activate IP Hotlinks", 1, 3 13 116 17
box "Options", 3, 1 0 289 90
check "Disable Update on connect", 5, 3 59 180 17
button "OK", 6, 220 62 65 25, ok
check "Notefy Friends when joining a server", 2, 3 35 198 17
button "Friends list", 4, 204 9 81 25
button "Update", 7, 213 35 72 25
}
on *:dialog:Options:sclick:7:Opdater
on *:dialog:Options:sclick:2:writeini R-NGVar.ini VAR NFWJAS $did(2).state
on *:dialog:Options:sclick:1:writeini R-NGVar.ini VAR AIPHL $did(1).state
on *:dialog:Options:sclick:5:writeini R-NGVar.ini VAR UoC $did(5).state
on *:dialog:Options:sclick:4: {
dialog -md Friendslist Friendslist
did -f FriendsList 2
.var %i = 1 | while (%i <= $lines(R-NGFriendsList.mrc)) {
did -a FriendsList 1 $read(R-NGFriendsList.mrc, %i)
.inc %i
}
}
------------------------------------------------------------------------
------------------------------------------------------------------------
------------------------------------------------------------------------
dialog FriendsList {
title "R-NG CWSearch - FriendsList"
size -1 -1 287 223
option pixels notheme
list 1, 4 48 202 170, vsbar
edit "", 2, 6 20 198 20
button "Add", 3, 214 20 65 25
button "OK", 4, 214 82 65 25, ok
button "Remove", 5, 214 50 65 25
box "Friendslist", 6, 1 1 285 221
}
on *:dialog:FriendsList:sclick:3: {
if ($did(2) != $null) {
.var %z = $lines(R-NGFriendsList.mrc)
.inc %z
did -a FriendsList 1 $did(2)
write -l $+ %z R-NGFriendsList.mrc $did(2)
}
}
on *:dialog:FriendsList:sclick:5: {
.var %i = $did(1).sel
did -d FriendsList 1 %i
write -dl $+ %i R-NGFriendsList.mrc
}
Der kan nemt opstå nogle bugs, isåfald sig endelig til jeg fixer dem hurtigst muligt.
Edit: Jeg har glemt at sige at scriptet opdaterer sig selv til den nyeste version hver gang du connecter i mirc. Hvis du synes det er irriterende så gå ind i "options" og slå det fra. her kan du samt slå hotlinksne fra. udover det har jeg fjernet de mange variabler, og lagt dem ind i en .ini fil for at undgå fejl.