万王之王 KOK King of Kings

 找回密码
 加入我们
查看: 3095|回复: 6

找人代码

[复制链接]
发表于 2006-10-10 09:53 | 显示全部楼层 |阅读模式
#只要你在线,
#做坏事的人小心了,呵呵!!!
#使用方法先挂上个大米,
#然后上去tell他要找的 id 第一个字母大写,然后就一直等.
%variable a
eastcap
kaies
skara
barlin
fog
milosia
ice_island
ice_island1
ice_island2
demon_pk1
demon_pk2
demon_pk3
demon_pk4
demon_pk5
demon_pk6
moon_palace
secret_room
diania_parish
diania_temple
diania_underground
floe
floe_1
floe_2
ice_island
ice_island1
ice_island2
fishing_boat
warship
tarjan_temple
tarjan_1
tarjan_2
tarjan_3
tarjan_4
tarjan_5
modora_1
modora_2
moyada_1
moyada_2
moyada_3
moyada_4
redcanyon1
redcanyon2
redcanyon3
crystal
crystal-b1
crystal-b2
crystal-b3
crystal-b4
crystal_pit1
crystal_pit2
crystal_pit3
crystal_m1
crystal_m2
crystal_m3
e_ship1
e_chen_house
e_port
e_area1
e_market1
e_forbiden_city
e_jail1
e_jail2
e_jail2-1
e_jail3
e_tain_tan
e_taiho
e_bachelor
e_palace_1
e_palace_2
e_swamp
druid
druid_altar
under_druid_1
under_druid_2
solo
solo1
solo2
solo3
solo4
solo5
solo6
solo7
solo8
solo9
solo10
solo11
solo12
solo13
solo14
solo15
solo16
solo17
solo18
solo19
solo20
fight
fight1
fight2
fight3
fight4
fight5
fight6
fight7
fight8
fight9
fight10
fight11
fight12
fight13
fight14
fight15
fight16
fight17
fight18
fight19
fight20
solo_lobby
house1
house2
house3
house4
house5
house6
house7
house8
house9
house10
house11
house12
house13
house14
house15
house16
house17
house18
house19
house20
house21
house22
house23
house24
house25
house26
house27
house28

%variable b
0
1
2
3
4
5
6
7
8
9
%scene begin
do
30:wait_bc:reply 等候中...
loop
1::tell %1 现在开始搜索,可能要用一小时(>_<...请耐心等候...
foreach a
3:check_bc:who -p %va
2:check_bc:@%%2
loop
foreach b
3:wait_bc:tell %1 未找到...
3:wait_bc:tell %1 未找到...
loop
restart
%scene show
foreach b
3:wait_bc:tell %1 ^[33m%2^[32m在^[33m%va ...
3:wait_bc:tell %1 ^[33m%2^[32m在^[33m%va ...
loop
restart
%scene nextone
3:check_bc:@%%3
return
%bc check_bc
jump:show:%*(%2)%*
call:nextone:%*位用户连接中,系统负担%*
next::%*对话框%*
%bc wait_bc
break::%*(%+)告诉你:%$%b
#%ZRobot.dll
%variable a
kaies
skara
newbie
pk
eastcap
moyada_1
moyada_2
moyada_3
crystal
fog
milosia
barlin
druid
diania_parish
diania_underground
e_ship1
e_port
e_market1
e_jail1
e_forbiden_city
e_jail2
e_chen_house
e_tain_tan
floe
floe_1
floe_2
crystal
milosia
fog
barlin
eastcap
demon_pk1
demon_pk2
demon_pk3
demon_pk4
demon_pk5
%variable b
<要找的ID>
%scene begin
foreach a
10:check_bc:who -p %va
3:check_bc:@%%2
loop
::reply 未找到
stop
%scene show
::reply %vb现在在%va ...
stop
%scene nextone
3:check_bc:@%%3
return
%bc check_bc
goto:show:%*(%vb)%*
call:nextone:%*位用户连接中,系统负担%*
next::%*对话框%*
发表于 2006-10-12 13:23 | 显示全部楼层
好代码。我收了。
发表于 2009-7-23 00:20 | 显示全部楼层
好东西,收藏了~
发表于 2009-9-5 13:14 | 显示全部楼层
那个发怒的表情是什么变来的?
发表于 2010-3-1 13:32 | 显示全部楼层
发表于 2010-3-1 13:32 | 显示全部楼层
是:   @
发表于 2017-8-14 10:24 | 显示全部楼层
这是要杀人么?
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

小黑屋|手机版|万王之王 king of kings

GMT+8, 2024-3-29 17:24

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表