打印

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

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

lua-买大小的脚本

缺点有:

1这个开奖会公告发出来

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

3不能定时开奖 (譬如2分钟一次)
bbs.mocwww.com" j7 S. J4 @8 E0 [
4不会判断豹子—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 j* [; N1 H& _/ n1 e7 E
妖城在线论坛1 ?" W3 S) _+ Z5 c2 D+ c* F# c
bbs.mocwww.com: l% G5 v+ L, o
第一次动手做的lua,老手别见怪.

function ng_TalkEvent(player,msg,color,range,size)

                              local shenshang =Char.GetData(player, %对象_金币%)
                              ro1 = math.random(1,6);
                              ro2 = math.random(1,6);妖城在线论坛6 c9 G+ b" D5 F+ k
                              ro3 = math.random(1,6);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 r4 Z' W& t- i( h  T- I0 ~7 S
                              local roo = ro1+ro2+ro3
                              local QQ = 10000; --购买数量( {1 {* r- \) t5 o2 _
                              local battlePrizeGold = QQ*1.90;--收小费—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 p' b4 o$ o5 O4 p& m- F) O
                              if msg== "[10000小]"  then妖城在线论坛0 q6 F2 U  f  V; t* X6 o4 J
                              if (shenshang<QQ) then% p3 t* P( y8 z1 d
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 0
                              end
                              Char.AddGold(player,-QQ);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ f  ?1 w( `  M9 Y9 E: u8 V( i
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";妖城在线论坛' Y" s; {  Z4 f6 _2 Y
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);bbs.mocwww.com8 u# D. D! J; R% F% ~# E& I0 u6 U
                              if (roo>11) thenbbs.mocwww.com+ K, o4 A/ ?$ u- q+ [
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
                                    return 0bbs.mocwww.com1 ~, X; t* E# P* J" d
                              end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& z- x  @$ Y5 T$ Y1 }7 N
                              Char.AddGold(player,battlePrizeGold);bbs.mocwww.com: W3 X3 C( k% K2 S3 S$ m8 {
            endbbs.mocwww.com/ j$ x2 g. _8 Z8 o. N
                                    if msg== "[10000大]"  then
                              if (shenshang<QQ) then
                                    NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")
                                    return 0妖城在线论坛; y: Y% ]- |0 e) y8 D
                              end
                              Char.AddGold(player,-QQ);                               $ {8 K6 J' ^) C1 y9 F5 Z
                              buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";
            NLG.TalkToCli(-1,_MeIndex,buf,4,0);魔力私服,最新魔力宝贝私服技术交流/ f' l  c& n  [- M
                              if (roo<10.5) then
                                    NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 d( V4 s4 [* A* d5 w3 ?! X( r
                                    return 0
                              end魔力私服,最新魔力宝贝私服技术交流2 u5 v2 V* j8 K$ T4 y* V2 {
                              Char.AddGold(player,battlePrizeGold);                               bbs.mocwww.com+ f4 ]$ o- ]# T+ u% T: |
            end

            end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( h! X- J* W+ L2 x6 }! [7 A$ s5 c

[ 本帖最后由 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 只看该作者

整理了一下顺序
魔力私服,最新魔力宝贝私服技术交流0 h1 ^. v' V# E5 z' m  A1 ?$ J
function ng_TalkEvent(player,msg,color,range,size)
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& |, l6 V! X# z9 x0 k
local shenshang =Char.GetData(player, %对象_金币%)
ro1 = math.random(1,6);魔力私服,最新魔力宝贝私服技术交流( b' e/ N& K  c# h# P& p
ro2 = math.random(1,6);
ro3 = math.random(1,6);
local roo = ro1+ro2+ro3
local QQ = 10000; --购买数量
local battlePrizeGold = QQ*1.90;--收小费bbs.mocwww.com3 _# D/ `5 ]8 h+ P
0 G# d$ Q0 \3 d! i8 M
if (shenshang<QQ) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) G' y( s4 s$ D4 F$ g9 M8 o
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")魔力私服,最新魔力宝贝私服技术交流* Y, \& x- E8 k- |
return 0魔力私服,最新魔力宝贝私服技术交流) |$ c+ ?( E. `2 k" K& R. a8 Q
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 O2 X$ R( w- ~9 f! m( h9 n5 P
Char.AddGold(player,-QQ);妖城在线论坛/ ~. E8 k$ z  ~

buf = "本次趣味骰子的结果是［"..ro1.."］［"..ro2.."］［"..ro3.."］，共［"..roo.."］点";
               NLG.TalkToCli(-1,_MeIndex,buf,4,0);bbs.mocwww.com9 l4 D' w5 X' B0 J7 B

if msg== "[10000小]"  then
if (roo>11) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  g, a) W2 o# o# d6 Q' y% g
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，大！！！欢迎下次购买！")
return 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 c9 I* s/ c3 `0 d0 n
end魔力私服,最新魔力宝贝私服技术交流6 b) i5 I. h1 S5 e7 l9 o
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( J( a6 U" n9 \$ I

if msg== "[10000大]"  then 妖城在线论坛% a4 d0 p. ]& R7 \' N7 \
if (roo<10.5) then
NLG.SystemMessage(player, "[系统]    今次开["..roo.."]点，小！！！欢迎下次购买！")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 i, V1 ?; D' N! s3 o
return 0妖城在线论坛5 B- q3 P3 M8 z( @# b8 }
end 魔力私服,最新魔力宝贝私服技术交流4 _1 N! Y! o3 J6 K6 K" z
end 妖城在线论坛( @* z: v# ?8 J( X( Q+ _4 D+ J
Char.AddGold(player,battlePrizeGold);
end

TOP

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

这是GA的—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 R6 L: J+ x! N2 M
( r" x/ s5 y1 |+ B

function ng_TalkEvent(player,msg,color,range,size)
bbs.mocwww.com. O3 a  E: R5 j9 f, q& E+ j% O
local shenshang =Char.GetData(player, %对象_金币%) bbs.mocwww.com" V9 z8 G5 d1 |+ ~" M  U
ro1 = math.random(1,6);
ro2 = math.random(1,6);bbs.mocwww.com4 P' f( X; E6 U* k
ro3 = math.random(1,6);$ Z4 |8 @  \* O  Z( n
local roo = ro1+ro2+ro3
local QQ = 10000; --购买数量妖城在线论坛+ P& C/ D- B" R( c! K- s
local battlePrizeGold = QQ*1.90;--收小费bbs.mocwww.com$ D' _7 O: K, N  ]9 w+ q2 }' A/ ]+ I- Q( }
local battlePrizeGoldb = QQ*4.90;--豹子
bbs.mocwww.com- v: f; o" ^+ s9 K3 w) P2 e+ P
if (msg=="[10000小]" or msg=="[10000大]" or msg == "[10000豹子]") then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* x: ^; ~6 R. ]& @
if (shenshang<QQ) then
NLG.SystemMessage(player, "[系统] 魔币不足["..QQ.."]，无法使用！")bbs.mocwww.com& [" S" f5 z( B/ e6 Z0 B
return 0+ [$ k) d" ~) F- C
end
Char.AddGold(player,-QQ);bbs.mocwww.com% g6 z  E1 n& ?, l  `

if (ro1 == ro2 and ro2 == ro3) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点豹子！！！欢迎下次购买")妖城在线论坛0 S* _5 S' l6 n) V- h
if (msg== "[10000豹子]")  then
Char.AddGold(player,battlePrizeGoldb);妖城在线论坛( d1 C1 d) A9 m& i( @  j
end" M1 O- C7 R+ z: `2 _. {
elseif (roo<10.5) then
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点小！！！欢迎下次购买")
if (msg== "[10000小]")  then bbs.mocwww.com2 g- ~) d% r/ R8 z, l- t
Char.AddGold(player,battlePrizeGold);' r# b+ h2 g( x& [& ^8 R+ C
end妖城在线论坛+ ?' a0 K3 ]6 c) p" h
else妖城在线论坛. m; U6 h1 F+ F; v) z
NLG.SystemMessage(player, "[系统] ["..ro1.."]["..ro2.."]["..ro3.."] ，共［"..roo.."］点大！！！欢迎下次购买")
if (msg== "[10000大]") then
Char.AddGold(player,battlePrizeGold);
end —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! X# j( L8 [" W, ]) g
end
return 0
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( H& L+ A- q, U! k3 d
end

TOP

vcamed

小妖

Rank: 1

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

妖城妖精勋章

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

引用:

原帖由 cststttt 于 2017-3-26 11:26 发表
. z$ m$ O, t7 F5 j妖城在线论坛没有NPC吗没有NPC吗

—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( R. X- u% }% r( A7 ?' \
现在还是不会怎么建立npc

TOP