Verfügbare Informationen zu "Snowball War"
Qualität des Beitrags: Beteiligte Poster: darkevil Forum: Destination Script Center Forenbeschreibung: Ptokax Scripts and many more aus dem Unterforum: Lua 5.1.1 Scripts Antworten: 1 Forum gestartet am: Freitag 13.04.2007 Sprache: deutsch Link zum Originaltopic: Snowball War Letzte Antwort: vor 17 Jahren, 21 Tagen, 19 Stunden, 45 Minuten
Alle Beiträge und Antworten zu "Snowball War"
Re: Snowball War
darkevil - 13.04.2007, 00:37Snowball War
--Snowball War 1.0 LUA 5.1.1 converted by baba.runner
--
--by Mutor 10/08/05
--
--Requested by H€LL§L톆L€ÅnG€L
--
--Übersetzt von Hammerfest
--
-- Not unlike stab bot and similiar, show your love for other hubbers
-- with this nonsensical winter time sport of kings.
--
--User Settings----------------------------------------------------------------------------------------------------------------
--
--//-- Botname pulled from the hub
SnowBot = "«•¤•»Dauer Krieg«•¤•»"
--//-- Command Prefix
Prefix = "!"
--//-- Throw a snowball
SnowCmd = "sb"
--//-- Get scores
ScoresCmd = "ss"
--//-- Menu name pulled form hub, uses hub name for menu
SnowMenu = frmHub:GetHubName()
--//-- Custom submenu
SnowSubMenu ="Schneeballschlacht"
--//-- Filename for user data
SnowFile="SnowTable.dat"
--//--Set your profiles permissions here.
--profile_idx, Commands/Menus enabled [0=no 1=yes], "Profile Name"
SnowProfiles = {
[-1] = {1,"Unregistered User"},
[0] = {1,"Master"},
[1] = {1,"Operator"},
[2] = {1,"Vip"},
[3] = {1,"Registered User"},
[4] = {1,"Moderator"},
[5] = {1,"NetFounder"},
[6] = {1,"Owner"},
}
--//-- Set your hit/miss responses here
Hit = {
"Ohhh, user1 wirft user2 einen Ball direkt in den Mund.",
"user1 zielt.... Auuu, user2 schreit vor Schmerzen!",
"HEY, user1 Keine Eisbälle! Du willst doch keine Augen auswerfen.",
"user1 wirft einen Ball auf user2 , user2 liegt mit einer Fleischwunde auf dem Boden.",
"user1 wirft einen harten Ball direkt auf user2's Kopf. OHH das sieht Böse aus.",
"user1 probiert eine neue Wurftechnik er läuft nach rechts und wirft. user2's küsst den Schneeball",
"user1 läuft hinter user2 und platziert einen Ball direkt in seinen Nacken",
"user1 AKA:'The Rifleman' bricht users2's mit6 seinem harten Wurf den Arm.",
"user1 schleicht sich hinter user2 und wirft einen Ball direkt auf seinen Hintern auuu das muss weh tun.",
"user1 wirft user2 einen Ball aufs Auge so das dieser erblindet!",
"user1 formt sich einen schönen Schneeball und wirft user2 direkt auf den Kopf.",
}
Miss = {
"user2 frägt, du wirfst auf mich user1?, Ich sagte du wirfst auch mich??'",
"user1 wirft und verfehlt user2, user2 lacht user1 aus HAHA nicht getroffen ",
"user1 wirft milenweit an user2 vorbei",
"user2 wirft doch user1 flüchtet und hechtet grad noch so in ein Igloo das war aber knapp.",
"user2 rennt wie der wind vor dem 'gelben Schneeball weg den user1 geworfen hat.",
"Alle lachen über den Wurf von user1, weil er user2 nicht getroffen hat, user2 schreit zu user1 da musst du wohl noch üben :-P.",
"user2 weicht vor dem wurf von user1 aus. Da musst du wohl noch üben user1.",
"Geblendet von der nackten Frau wirft user1 weit weit an user2 vorbei.",
"user1 hält ausschau nach einem Opfer er sieht user2's' Kopf hinter einer Mauer user1 wirft aber leider voll gegen die Mauer.",
"user2 lacht user1 aus weil er wie ein Mädchen wirft",
"user2 baut sich eine Schneemauer auf so das user1 ihn nicht treffen kann",
"user2 weicht dem wurf von user1 aus indem er sich in ein 'Schnee-Engel' verwandelt und davon fliegt :-).",
}
--
--End User Settings-------------------------------------------------------------------------------------------------------------
Throw = {1,1,0,1,1,0,1,0,0,1,1,1}
function Main()
if SnowBot ~= frmHub:GetHubBotName() then
frmHub:RegBot(SnowBot, 1, "Winter Fun", "")
end
if loadfile(SnowFile) ~= nil then
dofile(SnowFile)
else
local startdate,starttime =os.date("%B %d %Y"),os.date("%X")
SnowTable ={}
SnowTable["start"]={startdate,starttime}
Save_File(SnowFile,SnowTable,"SnowTable")
end
end
function OnExit()
Save_File(SnowFile,SnowTable,"SnowTable")
if SnowBot ~= frmHub:GetHubBotName() then
frmHub:UnregBot(SnowBot)
end
end
function NewUserConnected(user, data)
if SnowProfiles[user.iProfile][1] == 1 then
Commands(user)
user:SendData(SnowBot, SnowProfiles[user.iProfile][2].."'s Schneeballschlacht Kommandos aktiviert. Zu finden im Rechtsklickmenü.")
end
end
OpConnected = NewUserConnected
ChatArrival = function(user, data)
local s,e,pre,cmd = string.find(data, "^%b<>%s+(%p)(%w+)")
local s,e,nick = string.find(data, "^%b<>%s+%p%w+%s(%S+)|$")
if pre and pre==Prefix then
if cmd and cmd==ScoresCmd then
local Scores = "\r\n\r\n\tSchneeballschlacht Punkteliste:\r\n\t"..string.rep("o",50).."\r\n"
for i,v in pairs(SnowTable) do
if i ~= "start" then
local diff1 = (20 - string.len(i))
local diff2 = (5 - string.len(v[1]))
local diff3 = (20 - string.len(v[2]))
local spacer1 = string.rep(" ", diff1)
local spacer2 = string.rep(" ", diff2)
local spacer3 = string.rep(" ", diff3)
Scores = Scores.."\to\t"..i..spacer1.."\tTreffer: "..v[1]..spacer2.." \tVerfehlt: "..v[2]..spacer3.."o\r\n"
end
end
user:SendData(SnowBot, Scores.."\t"..string.rep("o",50).."\r\n\tEnde der Liste\r\n\r\n")
return 1
elseif cmd and cmd==SnowCmd then
if SnowProfiles[user.iProfile] and SnowProfiles[user.iProfile][1] == 1 then
if nick then
local usrnick = GetItemByName(nick)
if not usrnick then
local reply = "User "..nick.." konnte nicht gefunden werden. Werf auf jemand der Online ist."
user:SendData(reply)
return 1
end
if not SnowTable[user.sName] then
SnowTable[user.sName]={0,0}
end
local toss = Throw[math.random(1, table.maxn(Throw))]
if toss ~= 0 then
SnowTable[user.sName][1] = SnowTable[user.sName][1] + 1
local result = Miss[math.random(1, table.maxn(Miss))]
result = string.gsub(result,"user1", user.sName)
result = string.gsub(result,"user2", usrnick.sName)
SendToAll(SnowBot,result)
else
SnowTable[user.sName][2] = SnowTable[user.sName][2] + 1
local result = Hit[math.random(1, table.maxn(Hit))]
result = string.gsub(result,"user1", user.sName)
result = string.gsub(result,"user2", usrnick.sName)
SendToAll(SnowBot,result)
end
result = nil
Save_File(SnowFile,SnowTable,"SnowTable")
return 1
else
user:SendData("\r\n\r\n\tSyntax Error, Syntax = "..Prefix..SnowCmd.." <Nick>\r\n")
return 1
end
else
user:SendData("\r\n\r\n\tSorry "..user.sName.." the command ' "..Prefix..SnowCmd..
" ' is disabled for "..SnowProfiles[user.iProfile][2].."'s\r\n")
return 1
end
end
end
end
function Commands(user)
--user:SendData("$UserCommand 255 7") --clear the menu first
user:SendData("$UserCommand 1 2 «•¤•»Dauer Krieg«•¤•»\\ «•¤•»Schneeballschlacht«•¤•» \\Wirf einen Schneeball auf.. $<%[mynick]> "..Prefix..SnowCmd.." %[nick]||")
user:SendData("$UserCommand 1 3 «•¤•»Dauer Krieg«•¤•»\\ «•¤•»Schneeballschlacht«•¤•» \\Schneeballschlacht Punkteliste $<%[mynick]> "..Prefix..ScoresCmd.."||")
end
Save_Serialize = function(tTable, sTableName, hFile, sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n" );
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
Save_Serialize(value, sKey, hFile, sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write( sTab.."\t"..sKey.." = "..sValue);
end
hFile:write( ",\n");
end
hFile:write( sTab.."}");
end
Save_File = function(file,table , tablename )
local hFile = io.open (file , "w")
Save_Serialize(table, tablename, hFile);
hFile:close()
end
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Destination Script Center
Vip Chat - gepostet von darkevil am Freitag 13.04.2007
DESTiNATiON v. 4.40 - gepostet von darkevil am Montag 23.04.2007
Ähnliche Beiträge wie "Snowball War"
Die Weltmeisterschaft war Toll - Sascha (Sonntag 13.11.2005)
Gears of War soll Trillogie werden! *spoiler* - Cycron (Sonntag 26.11.2006)
ich war krank! - Timmey (Mittwoch 09.02.2005)
mir war langweilig @ testserver - Lesta (Dienstag 21.08.2007)
ey marcus, wie war deine 5.PK? - jO (Donnerstag 08.03.2007)
warum habt ihr mich geickt ich war doch immer ganz brav`???? - Darkknight (Sonntag 25.06.2006)
die Siegerehrung!!! - Anonymous (Dienstag 25.03.2008)
wo heute Gold zu holen war... - bocat (Montag 27.02.2006)
Was war das denn gerade? - Lesina (Mittwoch 07.03.2007)
Was war da los? Teil 4 - James (Sonntag 05.11.2006)