PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: Skynet on 28 February, 2005, 20:56:35

Title: Ascii Bot in lua5
Post by: Skynet on 28 February, 2005, 20:56:35
hi all is there a ascii lua5 bot avilable been converting a few lua scripts to lua5  but having trouble with some  mostly the ascii ones
thanks :> Skynet
The Land of Karaoke    
Title:
Post by: Psycho_Chihuahua on 01 March, 2005, 13:12:11
i got the same Problem, used Plop Convertion Script and also tried NL's WxGui but it doesn't seem to work



Example of converted script:

BotName = "HubBot"       --BotName f?r Werbe script

function DataArrival(user, data)
if( string.sub(data, 1, 1) == "<" ) then
data=string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find( data, "%b<>%s+(%S+)" )

if (cmd=="#gassi") then
SendToAll(BotName, " ")
SendToAll(BotName, " ")
SendToAll(BotName, " ")
SendToAll(BotName, "                                                                                        ")
SendToAll(BotName, "                                        (\\ __ /)                                      ")
SendToAll(BotName, "                                         \\0/)0/                                        ")
SendToAll(BotName, "                             (\\        =(_T_)=                                      ")
SendToAll(BotName, "                              \\\\_ _/(\ /_/    \\\                                         ")
SendToAll(BotName, "                               0 0 _\)_( /      \\                                       ")
SendToAll(BotName, "                            =(_T_)=   )-\\      \\                                    ")
SendToAll(BotName, "                                /'/   (  /    \\   (  )*                                  ")
SendToAll(BotName, "                               (_(_/-(___(_(__/                                     ")
SendToAll(BotName, " ")
SendToAll(BotName, " ")
SendToAll(BotName, "        "..user.sName..", nennt man das Gassi gehen ???????  ;-}    ")
SendToAll(BotName, " ")
SendToAll(BotName, " ")
SendToAll(BotName, " ")      
SendToAll(BotName, " ")
end

any Idea's whats wrong?
Title:
Post by: PPK on 01 March, 2005, 14:50:15
QuoteOriginally posted by Psycho_Chihuahua
any Idea's whats wrong?
Yes, replace this
Quotefunction DataArrival(user, data)
   if( string.sub(data, 1, 1) == "<" ) then
with
Quotefunction ChatArrival(user, data)
:]
Title:
Post by: Psycho_Chihuahua on 01 March, 2005, 15:18:28
Thnk M8

that, and 1 "end" to many, did it ^^