打印

[讨论] lua-买大小的脚本

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

阁楼大中小发表于 2017-3-18 16:38 只看该作者

lua-买大小的脚本

缺点有:
bbs.mocwww.com9 L* n2 f$ r4 }, _' Y  V
1这个开奖会公告发出来   q3 B5 M" q% g% W

2不会借用论坛骰子脚本做出骰子图像.

3不能定时开奖 (譬如2分钟一次)
妖城在线论坛1 G6 D4 a) L  x& A" \) A2 `8 A
4不会判断豹子) R" Q2 y  \( Y

—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 v5 i' [  v% F+ z
第一次动手做的lua,老手别见怪.魔力私服,最新魔力宝贝私服技术交流9 M: U9 C3 f! b) u9 B9 j! {- f+ N

function ng_TalkEvent(player,msg,color,range,size)       魔力私服,最新魔力宝贝私服技术交流' V2 X) M! u5 O! {& H8 R) x. U
& m. f7 l# V& U) h0 m/ z( i
                              local shenshang =Char.GetData(player, %对象_金币%)
                              ro1 = math.random(1,6);
                              ro2 = math.random(1,6);妖城在线论坛5 q. Y+ c' \( I5 }( _/ t
                              ro3 = math.random(1,6);
                              local roo = ro1+ro2+ro3
                              local QQ = 10000; --购买数量
                              local battlePrizeGold = QQ*1.90;--收小费
                              if msg== "[10000小]"  thenbbs.mocwww.com5 t. v: u( Q; }6 p% p
                              if (shenshang<QQ) then
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( t9 ^  e! `5 w) h8 E& `
                              end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! x5 P6 d+ N& I% ]* O5 j$ m
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);
                              if (roo>11) then
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")bbs.mocwww.com* v" r3 N' K3 R" _5 N
                                    return 0
                              end) P$ t/ @" D# }9 |' D. Y9 r' h( H
                              Char.AddGold(player,battlePrizeGold);& C9 [8 e7 h% F7 A! S$ C
            end
                                    if msg== "[10000大]"  then- s7 u" ~( [0 v( ]& Z; v( _5 Z
                              if (shenshang<QQ) thenbbs.mocwww.com7 z' u- @3 x& J; j( s: w
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 0bbs.mocwww.com( }$ ~8 S: t7 r( |, h
                              end" u( B5 ?# K5 I: ~- _& h% G
                              Char.AddGold(player,-QQ);
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";bbs.mocwww.com  C$ h! p" T3 e
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);
                              if (roo<10.5) then
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% I/ ~: A) |* e
                                    return 0/ s" f& u/ J5 Q, {7 @
                              end
                              Char.AddGold(player,battlePrizeGold);
            end                                     bbs.mocwww.com8 _  Y! t' X) h/ v

            end
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; z- p4 t' C* S% B4 V3 B; ^
[ 本帖最后由 vcamed 于 2017-3-18 17:05 编辑 ]

本帖最近评分记录

全熟牛排溅血妖力 +10 2017-11-22 00:07
全熟牛排溅血妖币 +10 2017-11-22 00:07

TOP

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

沙发大中小发表于 2017-3-18 16:44 只看该作者

整理了一下顺序
魔力私服,最新魔力宝贝私服技术交流. F' ?! l7 b2 j1 Q' Z) h
function ng_TalkEvent(player,msg,color,range,size)

local shenshang =Char.GetData(player, %对象_金币%) 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" N5 N# E4 l( o6 L+ N" K9 \" a% X
ro1 = math.random(1,6);
ro2 = math.random(1,6);
ro3 = math.random(1,6);
local roo = ro1+ro2+ro3
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- m# v! C) W2 u# a1 u9 V
. [; }  G% p5 }% r7 O  x
if (shenshang<QQ) then
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
return 0
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: x2 n# `2 J+ d3 t  f( h
Char.AddGold(player,-QQ);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; Q/ F7 k' q7 ^4 M" L! ~+ W

buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& g* w, a. u0 F, O, U: i! [
               NLG.TalkToCli(-1,_MeIndex,buf,4,0);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 y( ]: B9 w" S( {- Z) G- j

if msg== "[10000小]"  then
if (roo>11) then
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. T! n3 Y1 k* C
return 0妖城在线论坛" ^# @6 X$ c) L% _; {
end
end

if msg== "[10000大]"  then
if (roo<10.5) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. I5 w% W! V: T! j
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")
return 0
end
end
Char.AddGold(player,battlePrizeGold); bbs.mocwww.com5 n8 J* ]/ K2 W& O7 Z8 X0 r- W0 g
end

TOP

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

板凳大中小发表于 2017-3-18 17:37 只看该作者

这是GA的
魔力私服,最新魔力宝贝私服技术交流7 ^4 e2 K4 X/ G! N1 L
妖城在线论坛9 W- g& @% b+ P! k
function ng_TalkEvent(player,msg,color,range,size) 妖城在线论坛: a: _3 h& V6 I$ [8 ~

local shenshang =Char.GetData(player, %对象_金币%) —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! v: E1 c7 {  ^6 j8 b! X' l
ro1 = math.random(1,6);
ro2 = math.random(1,6);bbs.mocwww.com' p" ^: p  b7 o. E" B
ro3 = math.random(1,6);
local roo = ro1+ro2+ro3
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费bbs.mocwww.com6 Q1 x& h* `- K9 [) `% _! Q
local battlePrizeGoldb = QQ*4.90;--豹子
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 Z/ m4 N# H6 r2 V( m) ?
if (msg=="[10000小]" or msg=="[10000大]" or msg == "[10000豹子]") then
if (shenshang<QQ) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: ?0 y  q8 J, ^
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
return 0
end魔力私服,最新魔力宝贝私服技术交流1 R0 B, a( J9 o% y5 {
Char.AddGold(player,-QQ);
魔力私服,最新魔力宝贝私服技术交流4 t) ?( R% \$ n( x8 _1 V2 ?
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' d; o2 S; B. d4 Z4 i' ]
if (ro1 == ro2 and ro2 == ro3) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点豹子！！！欢迎下次购买")
if (msg== "[10000豹子]")  thenbbs.mocwww.com" _$ v* {, g  k" @: N
Char.AddGold(player,battlePrizeGoldb);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 K5 d8 i2 v+ Z$ X, t6 H% G
end
elseif (roo<10.5) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点小！！！欢迎下次购买")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 N0 l0 t0 y( m  K' B0 Q
if (msg== "[10000小]")  then 4 J: Q" F- E2 K" u7 ^
Char.AddGold(player,battlePrizeGold);
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. r! a5 V; h# h
else妖城在线论坛4 v8 k" c2 |# n! Q
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点大！！！欢迎下次购买")
if (msg== "[10000大]") then
Char.AddGold(player,battlePrizeGold);
end 魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* U% O9 s$ h7 [/ |% u  ?$ N/ ]
end
return 0
end魔力私服,最新魔力宝贝私服技术交流0 v+ Z, E; E) r# Z) m* i
end

TOP

vcamed

小妖

Rank: 1

UID: 29615
精华: 0
积分: 33
威望: 0 度

妖城妖精勋章

地板大中小发表于 2017-3-26 18:32 只看该作者

引用:

原帖由 cststttt 于 2017-3-26 11:26 发表
没有NPC吗没有NPC吗

现在还是不会怎么建立npc

TOP