02.09.2003, 07:41 Uhr
Hi ,
ich habe das match script mir runtergeladen. Das funzt auch 100% ig einwandfrei. Nur kann man das da irgentwie so machen das es nur in einem Channel läuft oder in ausgewählten channels und nicht in allen wo der bot drinne ist. Und kann man es so machen das nur leute die OP haben im channel da auch wars adden können ?? kann mir da einer helfen ... ich fürge den code vom original match.asc mal unten an.
Danke im voraus.
ich habe das match script mir runtergeladen. Das funzt auch 100% ig einwandfrei. Nur kann man das da irgentwie so machen das es nur in einem Channel läuft oder in ausgewählten channels und nicht in allen wo der bot drinne ist. Und kann man es so machen das nur leute die OP haben im channel da auch wars adden können ?? kann mir da einer helfen ... ich fürge den code vom original match.asc mal unten an.
Danke im voraus.
Code:
'Match- and Trainmaker V1.1 by Stefan Grünauer
dim matcharray
sub init()
scriptname = "Match- and Trainmaker V1.1 by Stefan Grünauer"
script scriptname
hook "chan_msg"
SpreadFlagMessage 0, "+m", "14*** " & scriptname & " loaded."
end sub
Sub Chan_msg(Chan, Nick, RegUser, Line)
select case param(lcase(Line),1)
case "!matchmaker"
sendline "privMSG " & nick & " :Es gibt beim Matchmaker folgende Befehle !warhistory, !clanwars, !clanwarsall und !addme +ClankürzeldesGegners (z.b. !addme jux)", 3
case "!matchhelp"
sendline "privMSG " & nick & " :Es gibt beim Matchmaker folgende Befehle !warhistory, !clanwars, !clanwarsall, !addwar, !delwar, !setdate, !settime, !setmap, !setserver, !setkontakt, !addme", 3
case "!addwar"
If paramcount(line) < 3 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !addwar <Clankürzel> <Titel>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
sendline "PRIVMSG " & nick & " :Es gibt bereits ein Match mit " & param(lcase(line),2) & ".", 3
else
writeinistring "match_" & param(lcase(line),2), "art ", getrest(line,3), "matchmaker.ini"
writeinistring "match_" & param(lcase(line),2), "ersteller ", nick, "matchmaker.ini"
writeinistring "match_" & param(lcase(line),2), "setdatum ", date(), "matchmaker.ini"
writeinistring "match_" & param(lcase(line),2), "setzeit ", time(), "matchmaker.ini"
writeinistring "matchmaker", "match", matches & " " & param(lcase(line),2), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Das Match wurde gespeichert.", 3
end if
end if
case "!setdate"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !setdate <Clankürzel> <01.01.2003>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "match_" & param(lcase(line),2), "datum", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Das Matchdatum wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!settime"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !settime <Clankürzel> <21.00 Uhr>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "match_" & param(lcase(line),2), "zeit", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Die Matchuhrzeit wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!setmap"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !setmap <Clankürzel> <Beach(CTR)/Assault(Gegner)>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "match_" & param(lcase(line),2), "map", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Die Matchmap wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!setserver"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !setserver <Clankürzel> <192.168.0.1 pass: pass>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "match_" & param(lcase(line),2), "server", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Matchserver wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!setkontakt"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !setkontakt <Clankürzel> <Name/channel/url>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "match_" & param(lcase(line),2), "kontakt ", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Matchkontakt wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!addme"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !addme <Clankürzel>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
player1 = readinistring("match_" & param(lcase(line),2), "player1 ", "", "matchmaker.ini")
player2 = readinistring("match_" & param(lcase(line),2), "player2 ", "", "matchmaker.ini")
player3 = readinistring("match_" & param(lcase(line),2), "player3 ", "", "matchmaker.ini")
player4 = readinistring("match_" & param(lcase(line),2), "player4 ", "", "matchmaker.ini")
player5 = readinistring("match_" & param(lcase(line),2), "player5 ", "", "matchmaker.ini")
player6 = readinistring("match_" & param(lcase(line),2), "player6 ", "", "matchmaker.ini")
if nick = player1 or nick = player2 or nick = player3 or nick = player4 or nick = player5 or nick = player6 then
sendline "PRIVMSG " & nick & " :Mensch! Du bist doch eh schon eingetragen beim Match gegen " & param(lcase(line),2) & ".", 3
else
if player1 = "" then
writeinistring "match_" & param(lcase(line),2), "player1 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Match gegen " & param(lcase(line),2) & " dabei.", 3
else
if player2 = "" then
writeinistring "match_" & param(lcase(line),2), "player2 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Match gegen " & param(lcase(line),2) & " dabei.", 3
else
if player3 = "" then
writeinistring "match_" & param(lcase(line),2), "player3 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Match gegen " & param(lcase(line),2) & " dabei.", 3
else
if player4 = "" then
writeinistring "match_" & param(lcase(line),2), "player4 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Match gegen " & param(lcase(line),2) & " dabei.", 3
else
if player5 = "" then
writeinistring "match_" & param(lcase(line),2), "player5 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Match gegen " & param(lcase(line),2) & " dabei.", 3
else
if player6 = "" then
writeinistring "match_" & param(lcase(line),2), "player6 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Match gegen " & param(lcase(line),2) & " dabei.", 3
else
sendline "PRIVMSG " & nick & " :Sorry! Es sind schon alle Plätze gegen " & param(lcase(line),2) & " belegt.", 3
end if
end if
end if
end if
end if
end if
end if
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!delwar"
if paramcount(line) < 3 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !delwar <Clankürzel> <Ergebnis ctr:gegner>", 3
else
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
ersteller = readinistring("match_" & param(lcase(line),2), "ersteller", "", "matchmaker.ini")
art = readinistring("match_" & param(lcase(line),2), "art", "", "matchmaker.ini")
datum = readinistring("match_" & param(lcase(line),2), "datum", "", "matchmaker.ini")
zeit = readinistring("match_" & param(lcase(line),2), "zeit", "", "matchmaker.ini")
map = readinistring("match_" & param(lcase(line),2), "map", "", "matchmaker.ini")
kontakt = readinistring("match_" & param(lcase(line),2), "kontakt", "", "matchmaker.ini")
server = readinistring("match_" & param(lcase(line),2), "server", "", "matchmaker.ini")
player1 = readinistring("match_" & param(lcase(line),2), "player1", "", "matchmaker.ini")
player2 = readinistring("match_" & param(lcase(line),2), "player2", "", "matchmaker.ini")
player3 = readinistring("match_" & param(lcase(line),2), "player3", "", "matchmaker.ini")
player4 = readinistring("match_" & param(lcase(line),2), "player4", "", "matchmaker.ini")
player5 = readinistring("match_" & param(lcase(line),2), "player5", "", "matchmaker.ini")
player6 = readinistring("match_" & param(lcase(line),2), "player6", "", "matchmaker.ini")
setdatum = readinistring("match_" & param(lcase(line),2), "setdatum", "", "matchmaker.ini")
setzeit = readinistring("match_" & param(lcase(line),2), "setzeit", "", "matchmaker.ini")
ergebnis = getrest(line,3)
sendtext = ""
sendtext1 = "Spielergebnis: CTR:" & ucase(param(line,2)) & " " & param(line,3)
sendtext2 = ""
sendtext3 = ""
sendtext4 = "Eingetragen von " & ersteller & " am " & setdatum & " um " & setzeit & " Uhr"
if not art = "" then
sendtext = art & " gegen " & ucase(param(line,2))
end if
if not datum = "" then
sendtext = sendtext & " am " & datum
end if
if not zeit = "" then
sendtext = sendtext & " um " & zeit
end if
if not map = "" then
sendtext = sendtext & " auf " & map
end if
if not server = "" then
sendtext2 = sendtext2 & "Server: " & server & " / "
end if
if not kontakt = "" then
sendtext2 = sendtext2 & "Kontaktperson " & kontakt
end if
if not player1 = "" then
sendtext3 = sendtext3 & player1
end if
if not player2 = "" then
sendtext3 = sendtext3 & ", " & player2
end if
if not player3 = "" then
sendtext3 = sendtext3 & ", " & player3
end if
if not player4 = "" then
sendtext3 = sendtext3 & ", " & player4
end if
if not player5 = "" then
sendtext3 = sendtext3 & ", " & player5
end if
if not player6 = "" then
sendtext3 = sendtext3 & ", " & player6
end if
historyfile = "filearea\scripts\matchmaker.txt"
history = fileopen(historyfile, fa_append)
if not sendtext = "" then
FileWriteln history, sendtext
end if
if not sendtext1 = "" then
FileWriteln history, sendtext1
end if
if not sendtext2 = "" then
FileWriteln history, sendtext2
end if
if not sendtext3 = "" then
FileWriteln history, "Es spielten: " & sendtext3
end if
if not sendtext4 = "" then
FileWriteln history, sendtext4
end if
FileWriteln history, "-*- -*- -*- -*- -*-"
fileclose history
deleteinistring "match_" & param(lcase(line),2), "", "matchmaker.ini"
matcharray = Split(matches," ")
newmatches = ""
For match_x = 0 to UBound(matcharray)
if matcharray(match_x) <> param(lcase(line),2) then
if newmatches <> "" then
newmatches = newmatches & " " & matcharray(match_x)
else
newmatches = matcharray(match_x)
end if
end if
next
writeinistring "matchmaker", "match", newmatches, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Matcheintrag wurde gelöscht.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Match mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!clanwars"
datum_next = "31.12.2008"
clannext = ""
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if matches <> "" then
sendline "PRIVMSG " & chan & " :Folgender Clanwar ist demnächst geplant:", 3
matcharray = Split(matches," ")
For match_x = 0 to UBound(matcharray)
datum = readinistring("match_" & matcharray(match_x), "datum", "", "matchmaker.ini")
if cdate(datum) < cdate(datum_next) then
datum_next = datum
clannext = matcharray(match_x)
end if
next
if clannext <> "" then
ersteller = readinistring("match_" & clannext, "ersteller", "", "matchmaker.ini")
art = readinistring("match_" & clannext, "art", "", "matchmaker.ini")
zeit = readinistring("match_" & clannext, "zeit", "", "matchmaker.ini")
map = readinistring("match_" & clannext, "map", "", "matchmaker.ini")
kontakt = readinistring("match_" & clannext, "kontakt", "", "matchmaker.ini")
server = readinistring("match_" & clannext, "server", "", "matchmaker.ini")
player1 = readinistring("match_" & clannext, "player1", "", "matchmaker.ini")
player2 = readinistring("match_" & clannext, "player2", "", "matchmaker.ini")
player3 = readinistring("match_" & clannext, "player3", "", "matchmaker.ini")
player4 = readinistring("match_" & clannext, "player4", "", "matchmaker.ini")
player5 = readinistring("match_" & clannext, "player5", "", "matchmaker.ini")
player6 = readinistring("match_" & clannext, "player6", "", "matchmaker.ini")
setdatum = readinistring("match_" & clannext, "setdatum", "", "matchmaker.ini")
setzeit = readinistring("match_" & clannext, "setzeit", "", "matchmaker.ini")
sendtext = ""
sendtext2 = ""
sendtext3 = ""
sendtext4 = "Eingetragen von " & ersteller & " am " & setdatum & " um " & setzeit & " Uhr"
if not art = "" then
sendtext = art & " gegen " & ucase(clannext)
end if
if not datum_next = "" then
sendtext = sendtext & " am " & datum_next
end if
if not zeit = "" then
sendtext = sendtext & " um " & zeit
end if
if not map = "" then
sendtext = sendtext & " auf " & map
end if
if not server = "" then
sendtext2 = sendtext2 & "Server: " & server & " / "
end if
if not kontakt = "" then
sendtext2 = sendtext2 & "Kontaktperson " & kontakt
end if
if not player1 = "" then
sendtext3 = sendtext3 & player1
end if
if not player2 = "" then
sendtext3 = sendtext3 & ", " & player2
end if
if not player3 = "" then
sendtext3 = sendtext3 & ", " & player3
end if
if not player4 = "" then
sendtext3 = sendtext3 & ", " & player4
end if
if not player5 = "" then
sendtext3 = sendtext3 & ", " & player5
end if
if not player6 = "" then
sendtext3 = sendtext3 & ", " & player6
end if
if not sendtext = "" then
sendline "PRIVMSG " & chan & " :" & sendtext, 3
end if
if not sendtext2 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext2, 3
end if
if not sendtext3 = "" then
sendline "PRIVMSG " & chan & " :Es spielen: " & sendtext3, 3
end if
if not sendtext4 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext4, 3
end if
else
sendline "PRIVMSG " & chan & " :Es sind zur Zeit keine Clanwars geplant!", 3
end if
else
sendline "PRIVMSG " & chan & " :Es sind zur Zeit keine Clanwars geplant!", 3
end if
case "!clanwarsall"
matches = readinistring("matchmaker", "match", "", "matchmaker.ini")
if matches <> "" then
sendline "PRIVMSG " & chan & " :Folgende Clanwars sind geplant:", 3
matcharray = Split(matches," ")
trennung = 0
For match_x = 0 to UBound(matcharray)
if trennung <> 0 then
sendline "PRIVMSG " & chan & " :-*- Diese Trennlinie wurde Ihnen präsentiert von 14,06,0']['14,0Offline -*-", 3
end if
ersteller = readinistring("match_" & matcharray(match_x), "ersteller", "", "matchmaker.ini")
art = readinistring("match_" & matcharray(match_x), "art", "", "matchmaker.ini")
datum = readinistring("match_" & matcharray(match_x), "datum", "", "matchmaker.ini")
zeit = readinistring("match_" & matcharray(match_x), "zeit", "", "matchmaker.ini")
map = readinistring("match_" & matcharray(match_x), "map", "", "matchmaker.ini")
kontakt = readinistring("match_" & matcharray(match_x), "kontakt", "", "matchmaker.ini")
server = readinistring("match_" & matcharray(match_x), "server", "", "matchmaker.ini")
player1 = readinistring("match_" & matcharray(match_x), "player1", "", "matchmaker.ini")
player2 = readinistring("match_" & matcharray(match_x), "player2", "", "matchmaker.ini")
player3 = readinistring("match_" & matcharray(match_x), "player3", "", "matchmaker.ini")
player4 = readinistring("match_" & matcharray(match_x), "player4", "", "matchmaker.ini")
player5 = readinistring("match_" & matcharray(match_x), "player5", "", "matchmaker.ini")
player6 = readinistring("match_" & matcharray(match_x), "player6", "", "matchmaker.ini")
setdatum = readinistring("match_" & matcharray(match_x), "setdatum", "", "matchmaker.ini")
setzeit = readinistring("match_" & matcharray(match_x), "setzeit", "", "matchmaker.ini")
if ersteller = "" then
sendtext = "Sorry, nichts hinterlegt!"
sendtext2 = ""
sendtext3 = ""
sendtext4 = ""
else
sendtext = ""
sendtext2 = ""
sendtext3 = ""
sendtext4 = "Eingetragen von " & ersteller & " am " & setdatum & " um " & setzeit & " Uhr"
if not art = "" then
sendtext = art & " gegen " & ucase(matcharray(match_x))
end if
if not datum = "" then
sendtext = sendtext & " am " & datum
end if
if not zeit = "" then
sendtext = sendtext & " um " & zeit
end if
if not map = "" then
sendtext = sendtext & " auf " & map
end if
if not server = "" then
sendtext2 = sendtext2 & "Server: " & server & " / "
end if
if not kontakt = "" then
sendtext2 = sendtext2 & "Kontaktperson " & kontakt
end if
if not player1 = "" then
sendtext3 = sendtext3 & player1
end if
if not player2 = "" then
sendtext3 = sendtext3 & ", " & player2
end if
if not player3 = "" then
sendtext3 = sendtext3 & ", " & player3
end if
if not player4 = "" then
sendtext3 = sendtext3 & ", " & player4
end if
if not player5 = "" then
sendtext3 = sendtext3 & ", " & player5
end if
if not player6 = "" then
sendtext3 = sendtext3 & ", " & player6
end if
end if
if not sendtext = "" then
sendline "PRIVMSG " & chan & " :" & sendtext, 3
end if
if not sendtext2 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext2, 3
end if
if not sendtext3 = "" then
sendline "PRIVMSG " & chan & " :Es spielen: " & sendtext3, 3
end if
if not sendtext4 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext4, 3
end if
trennung = 1
next
else
sendline "PRIVMSG " & chan & " :Es sind zur Zeit keine Clanwars geplant!", 3
end if
case "!trainmaker"
sendline "privMSG " & nick & " :Es gibt beim Trainmaker folgende Befehle !warhistory, !trains, !trainsall und !trainme +ClankürzeldesGegners (z.b. !trainme jux)", 3
case "!trainhelp"
sendline "privMSG " & nick & " :Es gibt beim Trainmaker folgende Befehle !warhistory, !trains, !trainsall, !addtrain, !deltrain, !traindate, !traintime, !trainmap, !trainserver, !trainkontakt, !trainme", 3
case "!addtrain"
If paramcount(line) < 3 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !addtrain <Clankürzel> <Titel>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
sendline "PRIVMSG " & nick & " :Es gibt bereits ein Train mit " & param(lcase(line),2) & ".", 3
else
writeinistring "train_" & param(lcase(line),2), "art ", getrest(line,3), "matchmaker.ini"
writeinistring "train_" & param(lcase(line),2), "ersteller ", nick, "matchmaker.ini"
writeinistring "train_" & param(lcase(line),2), "setdatum ", date(), "matchmaker.ini"
writeinistring "train_" & param(lcase(line),2), "setzeit ", time(), "matchmaker.ini"
writeinistring "matchmaker", "train", matches & " " & param(lcase(line),2), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Train wurde gespeichert.", 3
end if
end if
case "!traindate"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !traindate <Clankürzel> <01.01.2003>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "train_" & param(lcase(line),2), "datum", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Das Traindatum wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!traintime"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !traintime <Clankürzel> <21.00 Uhr>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "train_" & param(lcase(line),2), "zeit", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Die Trainuhrzeit wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!trainmap"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !trainmap <Clankürzel> <Beach(CTR)/Assault(Gegner)>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "train_" & param(lcase(line),2), "map", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Die Trainmap wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!trainserver"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !trainserver <Clankürzel> <192.168.0.1 pass: pass>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "train_" & param(lcase(line),2), "server", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Trainserver wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!trainkontakt"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !trainkontakt <Clankürzel> <Name/channel/url>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
writeinistring "train_" & param(lcase(line),2), "kontakt ", getrest(line,3), "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Trainkontakt wurde gesetzt.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!trainme"
If paramcount(line) < 2 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !trainme <Clankürzel>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
player1 = readinistring("train_" & param(lcase(line),2), "player1 ", "", "matchmaker.ini")
player2 = readinistring("train_" & param(lcase(line),2), "player2 ", "", "matchmaker.ini")
player3 = readinistring("train_" & param(lcase(line),2), "player3 ", "", "matchmaker.ini")
player4 = readinistring("train_" & param(lcase(line),2), "player4 ", "", "matchmaker.ini")
player5 = readinistring("train_" & param(lcase(line),2), "player5 ", "", "matchmaker.ini")
player6 = readinistring("train_" & param(lcase(line),2), "player6 ", "", "matchmaker.ini")
if nick = player1 or nick = player2 or nick = player3 or nick = player4 or nick = player5 or nick = player6 then
sendline "PRIVMSG " & nick & " :Mensch! Du bist doch eh schon eingetragen beim Train gegen " & param(lcase(line),2) & ".", 3
else
if player1 = "" then
writeinistring "train_" & param(lcase(line),2), "player1 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Train gegen " & param(lcase(line),2) & " dabei.", 3
else
if player2 = "" then
writeinistring "train_" & param(lcase(line),2), "player2 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Train gegen " & param(lcase(line),2) & " dabei.", 3
else
if player3 = "" then
writeinistring "train_" & param(lcase(line),2), "player3 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Train gegen " & param(lcase(line),2) & " dabei.", 3
else
if player4 = "" then
writeinistring "train_" & param(lcase(line),2), "player4 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Train gegen " & param(lcase(line),2) & " dabei.", 3
else
if player5 = "" then
writeinistring "train_" & param(lcase(line),2), "player5 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Train gegen " & param(lcase(line),2) & " dabei.", 3
else
if player6 = "" then
writeinistring "train_" & param(lcase(line),2), "player6 ", nick, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Glückwunsch! Du bist beim Train gegen " & param(lcase(line),2) & " dabei.", 3
else
sendline "PRIVMSG " & nick & " :Sorry! Es sind schon alle Plätze gegen " & param(lcase(line),2) & " belegt.", 3
end if
end if
end if
end if
end if
end if
end if
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!deltrain"
if paramcount(line) < 3 then
sendline "PRIVMSG " & nick & " :Der Befehl geht so: !deltrain <Clankürzel> <Ergebnis ctr:gegner>", 3
else
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if instr(matches, param(lcase(line),2)) <> 0 then
ersteller = readinistring("train_" & param(lcase(line),2), "ersteller", "", "matchmaker.ini")
art = readinistring("train_" & param(lcase(line),2), "art", "", "matchmaker.ini")
zeit = readinistring("train_" & param(lcase(line),2), "zeit", "", "matchmaker.ini")
datum = readinistring("train_" & param(lcase(line),2), "datum", "", "matchmaker.ini")
map = readinistring("train_" & param(lcase(line),2), "map", "", "matchmaker.ini")
kontakt = readinistring("train_" & param(lcase(line),2), "kontakt", "", "matchmaker.ini")
server = readinistring("train_" & param(lcase(line),2), "server", "", "matchmaker.ini")
player1 = readinistring("train_" & param(lcase(line),2), "player1", "", "matchmaker.ini")
player2 = readinistring("train_" & param(lcase(line),2), "player2", "", "matchmaker.ini")
player3 = readinistring("train_" & param(lcase(line),2), "player3", "", "matchmaker.ini")
player4 = readinistring("train_" & param(lcase(line),2), "player4", "", "matchmaker.ini")
player5 = readinistring("train_" & param(lcase(line),2), "player5", "", "matchmaker.ini")
player6 = readinistring("train_" & param(lcase(line),2), "player6", "", "matchmaker.ini")
setdatum = readinistring("train_" & param(lcase(line),2), "setdatum", "", "matchmaker.ini")
setzeit = readinistring("train_" & param(lcase(line),2), "setzeit", "", "matchmaker.ini")
ergebnis = getrest(line,3)
sendtext = ""
sendtext1 = "Spielergebnis: CTR:" & ucase(param(line,2)) & " " & param(line,3)
sendtext2 = ""
sendtext3 = ""
sendtext4 = "Eingetragen von " & ersteller & " am " & setdatum & " um " & setzeit & " Uhr"
if not art = "" then
sendtext = art & " gegen " & ucase(param(line,2))
end if
if not datum = "" then
sendtext = sendtext & " am " & datum
end if
if not zeit = "" then
sendtext = sendtext & " um " & zeit
end if
if not map = "" then
sendtext = sendtext & " auf " & map
end if
if not server = "" then
sendtext2 = sendtext2 & "Server: " & server & " / "
end if
if not kontakt = "" then
sendtext2 = sendtext2 & "Kontaktperson " & kontakt
end if
if not player1 = "" then
sendtext3 = sendtext3 & player1
end if
if not player2 = "" then
sendtext3 = sendtext3 & ", " & player2
end if
if not player3 = "" then
sendtext3 = sendtext3 & ", " & player3
end if
if not player4 = "" then
sendtext3 = sendtext3 & ", " & player4
end if
if not player5 = "" then
sendtext3 = sendtext3 & ", " & player5
end if
if not player6 = "" then
sendtext3 = sendtext3 & ", " & player6
end if
historyfile = "filearea\scripts\matchmaker.txt"
history = fileopen(historyfile, fa_append)
if not sendtext = "" then
FileWriteln history, sendtext
end if
if not sendtext1 = "" then
FileWriteln history, sendtext1
end if
if not sendtext2 = "" then
FileWriteln history, sendtext2
end if
if not sendtext3 = "" then
FileWriteln history, "Es spielten: " & sendtext3
end if
if not sendtext4 = "" then
FileWriteln history, sendtext4
end if
FileWriteln history, "-*- -*- -*- -*- -*-"
fileclose history
deleteinistring "train_" & param(lcase(line),2), "", "matchmaker.ini"
matcharray = Split(matches," ")
newmatches = ""
For match_x = 0 to UBound(matcharray)
if matcharray(match_x) <> param(lcase(line),2) then
if newmatches <> "" then
newmatches = newmatches & " " & matcharray(match_x)
else
newmatches = matcharray(match_x)
end if
end if
next
writeinistring "matchmaker", "train", newmatches, "matchmaker.ini"
sendline "PRIVMSG " & nick & " :Der Traineintrag wurde gelöscht.", 3
else
sendline "PRIVMSG " & nick & " :Es gibt kein Train mit dem Clankürzel " & param(lcase(line),2) & ".", 3
end if
end if
case "!trains"
datum_next = "31.12.2008"
clannext = ""
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if matches <> "" then
sendline "PRIVMSG " & chan & " :Folgender Train ist demnächst geplant:", 3
matcharray = Split(matches," ")
For match_x = 0 to UBound(matcharray)
datum = readinistring("train_" & matcharray(match_x), "datum", "", "matchmaker.ini")
if cdate(datum) < cdate(datum_next) then
datum_next = datum
clannext = matcharray(match_x)
end if
next
if clannext <> "" then
ersteller = readinistring("train_" & clannext, "ersteller", "", "matchmaker.ini")
art = readinistring("train_" & clannext, "art", "", "matchmaker.ini")
zeit = readinistring("train_" & clannext, "zeit", "", "matchmaker.ini")
map = readinistring("train_" & clannext, "map", "", "matchmaker.ini")
kontakt = readinistring("train_" & clannext, "kontakt", "", "matchmaker.ini")
server = readinistring("train_" & clannext, "server", "", "matchmaker.ini")
player1 = readinistring("train_" & clannext, "player1", "", "matchmaker.ini")
player2 = readinistring("train_" & clannext, "player2", "", "matchmaker.ini")
player3 = readinistring("train_" & clannext, "player3", "", "matchmaker.ini")
player4 = readinistring("train_" & clannext, "player4", "", "matchmaker.ini")
player5 = readinistring("train_" & clannext, "player5", "", "matchmaker.ini")
player6 = readinistring("train_" & clannext, "player6", "", "matchmaker.ini")
setdatum = readinistring("train_" & clannext, "setdatum", "", "matchmaker.ini")
setzeit = readinistring("train_" & clannext, "setzeit", "", "matchmaker.ini")
sendtext = ""
sendtext2 = ""
sendtext3 = ""
sendtext4 = "Eingetragen von " & ersteller & " am " & setdatum & " um " & setzeit & " Uhr"
if not art = "" then
sendtext = art & " gegen " & ucase(clannext)
end if
if not datum_next = "" then
sendtext = sendtext & " am " & datum_next
end if
if not zeit = "" then
sendtext = sendtext & " um " & zeit
end if
if not map = "" then
sendtext = sendtext & " auf " & map
end if
if not server = "" then
sendtext2 = sendtext2 & "Server: " & server & " / "
end if
if not kontakt = "" then
sendtext2 = sendtext2 & "Kontaktperson " & kontakt
end if
if not player1 = "" then
sendtext3 = sendtext3 & player1
end if
if not player2 = "" then
sendtext3 = sendtext3 & ", " & player2
end if
if not player3 = "" then
sendtext3 = sendtext3 & ", " & player3
end if
if not player4 = "" then
sendtext3 = sendtext3 & ", " & player4
end if
if not player5 = "" then
sendtext3 = sendtext3 & ", " & player5
end if
if not player6 = "" then
sendtext3 = sendtext3 & ", " & player6
end if
if not sendtext = "" then
sendline "PRIVMSG " & chan & " :" & sendtext, 3
end if
if not sendtext2 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext2, 3
end if
if not sendtext3 = "" then
sendline "PRIVMSG " & chan & " :Es spielen: " & sendtext3, 3
end if
if not sendtext4 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext4, 3
end if
else
sendline "PRIVMSG " & chan & " :Es sind zur Zeit keine Trains geplant!", 3
end if
else
sendline "PRIVMSG " & chan & " :Es sind zur Zeit keine Trains geplant!", 3
end if
case "!trainsall"
matches = readinistring("matchmaker", "train", "", "matchmaker.ini")
if matches <> "" then
sendline "PRIVMSG " & chan & " :Folgende Trains sind geplant:", 3
matcharray = Split(matches," ")
trennung = 0
For match_x = 0 to UBound(matcharray)
if trennung <> 0 then
sendline "PRIVMSG " & chan & " :-*- Diese Trennlinie wurde Ihnen präsentiert von 14,06,0']['14,0Offline -*-", 3
end if
ersteller = readinistring("train_" & matcharray(match_x), "ersteller", "", "matchmaker.ini")
art = readinistring("train_" & matcharray(match_x), "art", "", "matchmaker.ini")
datum = readinistring("train_" & matcharray(match_x), "datum", "", "matchmaker.ini")
zeit = readinistring("train_" & matcharray(match_x), "zeit", "", "matchmaker.ini")
map = readinistring("train_" & matcharray(match_x), "map", "", "matchmaker.ini")
kontakt = readinistring("train_" & matcharray(match_x), "kontakt", "", "matchmaker.ini")
server = readinistring("train_" & matcharray(match_x), "server", "", "matchmaker.ini")
player1 = readinistring("train_" & matcharray(match_x), "player1", "", "matchmaker.ini")
player2 = readinistring("train_" & matcharray(match_x), "player2", "", "matchmaker.ini")
player3 = readinistring("train_" & matcharray(match_x), "player3", "", "matchmaker.ini")
player4 = readinistring("train_" & matcharray(match_x), "player4", "", "matchmaker.ini")
player5 = readinistring("train_" & matcharray(match_x), "player5", "", "matchmaker.ini")
player6 = readinistring("train_" & matcharray(match_x), "player6", "", "matchmaker.ini")
setdatum = readinistring("train_" & matcharray(match_x), "setdatum", "", "matchmaker.ini")
setzeit = readinistring("train_" & matcharray(match_x), "setzeit", "", "matchmaker.ini")
if ersteller = "" then
sendtext = "Sorry, nichts hinterlegt!"
sendtext2 = ""
sendtext3 = ""
sendtext4 = ""
else
sendtext = ""
sendtext2 = ""
sendtext3 = ""
sendtext4 = "Eingetragen von " & ersteller & " am " & setdatum & " um " & setzeit & " Uhr"
if not art = "" then
sendtext = art & " gegen " & ucase(matcharray(match_x))
end if
if not datum = "" then
sendtext = sendtext & " am " & datum
end if
if not zeit = "" then
sendtext = sendtext & " um " & zeit
end if
if not map = "" then
sendtext = sendtext & " auf " & map
end if
if not server = "" then
sendtext2 = sendtext2 & "Server: " & server & " / "
end if
if not kontakt = "" then
sendtext2 = sendtext2 & "Kontaktperson " & kontakt
end if
if not player1 = "" then
sendtext3 = sendtext3 & player1
end if
if not player2 = "" then
sendtext3 = sendtext3 & ", " & player2
end if
if not player3 = "" then
sendtext3 = sendtext3 & ", " & player3
end if
if not player4 = "" then
sendtext3 = sendtext3 & ", " & player4
end if
if not player5 = "" then
sendtext3 = sendtext3 & ", " & player5
end if
if not player6 = "" then
sendtext3 = sendtext3 & ", " & player6
end if
end if
if not sendtext = "" then
sendline "PRIVMSG " & chan & " :" & sendtext, 3
end if
if not sendtext2 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext2, 3
end if
if not sendtext3 = "" then
sendline "PRIVMSG " & chan & " :Es spielen: " & sendtext3, 3
end if
if not sendtext4 = "" then
sendline "PRIVMSG " & chan & " :" & sendtext4, 3
end if
trennung = 1
next
else
sendline "PRIVMSG " & chan & " :Es sind zur Zeit keine Trains geplant!", 3
end if
case "!warhistory"
historyfile = "filearea\scripts\matchmaker.txt"
warhistory = fileopen(historyfile, fa_read)
if warhistory <> 0 then
if not fileeof(warhistory) then
sendline "PRIVMSG " & chan & " :Warhistory des Clans Chromos Troopers:", 3
while not fileeof(warhistory)
sendline "PRIVMSG " & chan & " :" & filereadln(warhistory), 3
wend
else
sendline "PRIVMSG " & chan & " :Sorry, aber ist noch nichts gespeichert!", 3
end if
else
sendline "PRIVMSG " & chan & " :Sorry, aber ist noch nichts gespeichert!", 3
end if
fileclose warhistory
end select
End sub
)