Change script

[H?LL?L?L??nG?L]

Hi im looking for someone who can change a script for me from vb to lua. Its a little script i had from my dc hub. Very popular with the users. The shakesperian insults. Would be much appreciated thanks xxxxxxxxx

[tezlo]

sure.. can you post it?

[H?LL?L?L??nG?L]

OK Here it is


  Shakespearian Insults
'  !INSULT trigger
'  By Tafoid 04-17-2003

dim c1,c2,c3,w1,w2,w3

const columnone="artless|bawdy|beslubbering|bootless|churlish|cockered|clouted|craven|currish|dankish|dissembling|droning|errant|fawning|fobbing|froward|frothy|fleeking|goatish|gorbellied|impertinent|infectious|jarring|loggerheaded|lumpish|mammering|mangle|mewling|paunchy|pribbling|puking|puny|quailing|rank|reeky|roguish|ruttish|saucy|spleeny|spongy|surly|tottering|unmuzzled|vain|venomed|villainous|warped|wayward|weedy|yeasty"
const columntwo="base-court|bat-fowling|beef-witted|beetle-headed|boil-brained|clapper-clawed|clay-brained|common-kissing|crook-pated|dismal-dreaming|dizzy-eyed|doghearted|dread-bolted|earth-vexing|elf-skinned|fat-kidneyed|fen-sucked|flap-mouthed|flybitten|folly-fallen|fool-born|full-gorged|guts-gripping|half-faced|hasty-witted|hedge-born|hell-hated|idle-headed|ill-breeding|ill-nurtured|knotty-pated|milk-livered|motley-minded|onion-eyed|plume-plucked|pottle-deep|pox-marked|reeling-ripe|rough-hewn|rude-growing|rump-fed|shard-borne|sheep-biting|spur-galled|swag-bellied|tardy-gaited|tickle-brained|toad-spotted|urchin-snouted|weather-bitten"
const columnthree="apple-john|baggage|barnicle|bladder|boar-pig|bugbear|bum-bailey|canker-blossom|clack-dish|clotpole|coxcomb|codpiece|death-token|dewberry|flap-dragon|flax-wench|flirt-gill|foot-licker|fustilarian|giglet|gudgeon|haggard|harpy|hedge-pig|horn-beast|hugger-mugger|jolthead|lewdster|lout|maggot-pie|malt-worm|mammeet|measle|minnow|miscreant|moldwarp|mumble-news|nut-hook|pigeon-egg|pignut|puttock|pumpion|ratsbane|scut|skainsmate|strumpet|varlet|vassal|whey-face|wagtail"

c1=Split(columnone, "|")
c2=Split(columntwo, "|")
c3=Split(columnthree, "|")

Sub main()
Randomize
End Sub

Sub DataArival(curUser,sCurData)
If Left(sCurData,1)="<" Then
  length=len(curUser.sname)+10
  If InStr(LCase(sCurData),"+insult") and len(sCurData)=length Then
  w1=ubound(c1)
  w2=ubound(c2)
  w3=ubound(c3)
  a=int((w1) * Rnd)
  b=int((w2) * Rnd)
  c=int((w3) * Rnd)
  colusers.sendchattoall cStr("Insult"),"Thou art a " & c1(a) & ", " & c2(b) & " " & c3(c) & "!"
  end if
end if
end sub


thank you i appreciate this :)))))))))

[Skrollster]

ok, here you go:

--' !INSULT trigger 
--' By Tafoid 04-17-2003 

columnone = "artless|bawdy|beslubbering|bootless|churlish|cockered|clouted|craven|c urrish|dankish|dissembling|droning|errant|fawning|fobbing|froward|frothy|fl eeking|goatish|gorbellied|impertinent|infectious|jarring|loggerheaded|lumpi sh|mammering|mangle|mewling|paunchy|pribbling|puking|puny|quailing|rank|ree ky|roguish|ruttish|saucy|spleeny|spongy|surly|tottering|unmuzzled|vain|veno med|villainous|warped|wayward|weedy|yeasty|"
columntwo = "base-court|bat-fowling|beef-witted|beetle-headed|boil-brained|clapper-clawed|clay-brained|common-kissing|crook-pated|dismal-dreaming|dizzy-eyed|doghearted|dread-bolted|earth-vexing|elf-skinned|fat-kidneyed|fen-sucked|flap-mouthed|flybitten|folly-fallen|fool-born|full-gorged|guts-gripping|half-faced|hasty-witted|hedge-born|hell-hated|idle-headed|ill-breeding|ill-nurtured|knotty-pated|milk-livered|motley-minded|onion-eyed|plume-plucked|pottle-deep|pox-marked|reeling-ripe|rough-hewn|rude-growing|rump-fed|shard-borne|sheep-biting|spur-galled|swag-bellied|tardy-gaited|tickle-brained|toad-spotted|urchin-snouted|weather-bitten|"
columnthree = "apple-john|baggage|barnicle|bladder|boar-pig|bugbear|bum-bailey|canker-blossom|clack-dish|clotpole|coxcomb|codpiece|death-token|dewberry|flap-dragon|flax-wench|flirt-gill|foot-licker|fustilarian|giglet|gudgeon|haggard|harpy|hedge-pig|horn-beast|hugger-mugger|jolthead|lewdster|lout|maggot-pie|malt-worm|mammeet|measle|minnow|miscreant|moldwarp|mumble-news|nut-hook|pigeon- egg|pignut|puttock|pumpion|ratsbane|scut|skainsmate|strumpet|varlet|vassal| whey-face|wagtail|"

c1 = {}
gsub(columnone, "(.-)|", function(w) tinsert(c1,w) end)
c2 = {}
gsub(columntwo, "(.-)|", function(w) tinsert(c2,w) end)
c3 = {}
gsub(columnthree, "(.-)|", function(w) tinsert(c3,w) end)

function DataArrival(user, data)	
	local s,e,cmd = strfind(strlower(data), "%b<> (%S+).*|")
	if ( (strsub(data,1,1)=="<")  then
		if ( cmd==strlower("+insult") ) then
			s1 = c1[random(getn(c1))]
			s2 = c2[random(getn(c2))]
			s3 = c3[random(getn(c3))]
			SendToAll("Insult","Thou art a " .. s1 .. ", " .. s2 .. " " .. s3 .. "!")
		else
		end
	end
end

*edit* thanx tezlo

[tezlo]

hehe Skrollster.. you did it literally
but youll get an error on that one (Bot)

heres my go.. you can +insult other people too

insult = {
	{ "artless", "bawdy", "beslubbering", "bootless", "churlish", "cockered", "clouted", "craven", "c urrish", "dankish", "dissembling", "droning", "errant", "fawning", "fobbing", "froward", "frothy", "fl eeking", "goatish", "gorbellied", "impertinent", "infectious", "jarring", "loggerheaded", "lumpi sh", "mammering", "mangle", "mewling", "paunchy", "pribbling", "puking", "puny", "quailing", "rank", "ree ky", "roguish", "ruttish", "saucy", "spleeny", "spongy", "surly", "tottering", "unmuzzled", "vain", "veno med", "villainous", "warped", "wayward", "weedy", "yeasty" },
	{ "base-court", "bat-fowling", "beef-witted", "beetle-headed", "boil-brained", "clapper-clawed", "clay-brained", "common-kissing", "crook-pated", "dismal-dreaming", "dizzy-eyed", "doghearted", "dread-bolted", "earth-vexing", "elf-skinned", "fat-kidneyed", "fen-sucked", "flap-mouthed", "flybitten", "folly-fallen", "fool-born", "full-gorged", "guts-gripping", "half-faced", "hasty-witted", "hedge-born", "hell-hated", "idle-headed", "ill-breeding", "ill-nurtured", "knotty-pated", "milk-livered", "motley-minded", "onion-eyed", "plume-plucked", "pottle-deep", "pox-marked", "reeling-ripe", "rough-hewn", "rude-growing", "rump-fed", "shard-borne", "sheep-biting", "spur-galled", "swag-bellied", "tardy-gaited", "tickle-brained", "toad-spotted", "urchin-snouted", "weather-bitten" },
	{ "apple-john", "baggage", "barnicle", "bladder", "boar-pig", "bugbear", "bum-bailey", "canker-blossom", "clack-dish", "clotpole", "coxcomb", "codpiece", "death-token", "dewberry", "flap-dragon", "flax-wench", "flirt-gill", "foot-licker", "fustilarian", "giglet", "gudgeon", "haggard", "harpy", "hedge-pig", "horn-beast", "hugger-mugger", "jolthead", "lewdster", "lout", "maggot-pie", "malt-worm", "mammeet", "measle", "minnow", "miscreant", "moldwarp", "mumble-news", "nut-hook", "pigeon- egg", "pignut", "puttock", "pumpion", "ratsbane", "scut", "skainsmate", "strumpet", "varlet", "vassal", " whey-face", "wagtail" }
}

for id, table in insult do
	table.n = getn(table)
end

function rand(table)
	return table[random(table.n)]
end

function DataArrival(user, data)
	if strsub(data, 1, 1) == "<" then
		local s, e, who = strfind(data, "^%b<> %+insult%s?(%S*)%|$")
		if s then
			if who == "" then who = "Thou art" else who = who.." is" end
			SendToAll("Insult", format("%s a %s, %s %s!", who, rand(insult[1]), rand(insult[2]), rand(insult[3])))
			return 1
		end
	end
end

[lynyrd]

Originally posted by Skrollster
ok, here you go:

--' !INSULT trigger 
--' By Tafoid 04-17-2003 

columnone = "artless|bawdy|beslubbering|bootless|churlish|cockered|clouted|craven|c urrish|dankish|dissembling|droning|errant|fawning|fobbing|froward|frothy|fl eeking|goatish|gorbellied|impertinent|infectious|jarring|loggerheaded|lumpi sh|mammering|mangle|mewling|paunchy|pribbling|puking|puny|quailing|rank|ree ky|roguish|ruttish|saucy|spleeny|spongy|surly|tottering|unmuzzled|vain|veno med|villainous|warped|wayward|weedy|yeasty|"
columntwo = "base-court|bat-fowling|beef-witted|beetle-headed|boil-brained|clapper-clawed|clay-brained|common-kissing|crook-pated|dismal-dreaming|dizzy-eyed|doghearted|dread-bolted|earth-vexing|elf-skinned|fat-kidneyed|fen-sucked|flap-mouthed|flybitten|folly-fallen|fool-born|full-gorged|guts-gripping|half-faced|hasty-witted|hedge-born|hell-hated|idle-headed|ill-breeding|ill-nurtured|knotty-pated|milk-livered|motley-minded|onion-eyed|plume-plucked|pottle-deep|pox-marked|reeling-ripe|rough-hewn|rude-growing|rump-fed|shard-borne|sheep-biting|spur-galled|swag-bellied|tardy-gaited|tickle-brained|toad-spotted|urchin-snouted|weather-bitten|"
columnthree = "apple-john|baggage|barnicle|bladder|boar-pig|bugbear|bum-bailey|canker-blossom|clack-dish|clotpole|coxcomb|codpiece|death-token|dewberry|flap-dragon|flax-wench|flirt-gill|foot-licker|fustilarian|giglet|gudgeon|haggard|harpy|hedge-pig|horn-beast|hugger-mugger|jolthead|lewdster|lout|maggot-pie|malt-worm|mammeet|measle|minnow|miscreant|moldwarp|mumble-news|nut-hook|pigeon- egg|pignut|puttock|pumpion|ratsbane|scut|skainsmate|strumpet|varlet|vassal| whey-face|wagtail|"

c1 = {}
gsub(columnone, "(.-)|", function(w) tinsert(c1,w) end)
c2 = {}
gsub(columntwo, "(.-)|", function(w) tinsert(c2,w) end)
c3 = {}
gsub(columnthree, "(.-)|", function(w) tinsert(c3,w) end)

function DataArrival(user, data)	
	local s,e,cmd = strfind(strlower(data), "%b<> (%S+).*|")
	if ( (strsub(data,1,1)=="<")  then
		if ( cmd==strlower("+insult") ) then
			s1 = c1[random(getn(c1))]
			s2 = c2[random(getn(c2))]
			s3 = c3[random(getn(c3))]
			SendToAll("Insult","Thou art a " .. s1 .. ", " .. s2 .. " " .. s3 .. "!")
		else
		end
	end
end

*edit* thanx tezlo

im getting this with 0.326
Syntax Error: expected;
  last token read: `&' at line 4 in file `...ert

[Skrollster]

Strange

it should start like this:' columnone = "artless

[lynyrd]

np! i just change it and remove "& quot;" then.
this script really rocks.. i love it =))

[H?LL?L?L??nG?L]

:] At Last i sussed it . THANKS  for ur help on that guys yeah the script rox now and works perfectly :)))