#CLASS {make_list} {disable} #CLASS {quest} #CLASS {System|Pueblo} #CLASS {append} {disable} #CLASS {check_left} {disable} #CLASS {team} #CLASS {var} {enable} #CLASS {short} {enable} #CLASS 0 #ALIAS q {#var temp_array %array( );quest} "short" #ALIAS store {#t+ append;i} "short" #VAR temp_id {} {_nodef} "var" #VAR weapoin {} {} "var" #VAR quest_name {蓝薿韢 {0} "var" #VAR item_id {|skirt|cloth|hide|orange belt|monk clothes|go piece|cloth|sword|cloth|cloth|pumpkin|cloth|sword|hat|sword|cloth|cloth|cloth|monk clothes|monk clothes|cloth|cloth|hat|cloth|cloth|cloth|sword|hat|monk clothes|monk clothes|cloth|sword|} {} "var" #VAR special {0} {0} "var" #VAR item_name {|黑色的丝质长裙|烟雨潇潇环金袍|豹皮|橙丝带|黑布少林僧衣|四百九十一粒围棋子|一尘不染的白衣|青木剑|一尘不染的白衣|破旧不堪的僧衣|南瓜|灰袍|青木剑|竹笠|青木剑|一尘不染的白衣|破旧不堪的僧衣|一尘不染的白衣|黑布少林僧衣|黑布少林僧衣|青龙宝甲|破旧不堪的僧衣|红丝帽|一尘不染的白衣|破旧不堪的僧衣|一尘不染的白衣|青木剑|红丝帽|黑布少林僧衣|黑布少林僧衣|灰袍|青木剑|} {} "var" #VAR temp {33} {_nodef} "var" #VAR num {0} {_nodef} "var" #VAR i {-1} {0} "var" #VAR temp_name {} {} "var" #VAR id {hat} {} "var" #VAR get_name {六角锤} {_nodef} "var" #VAR end_index {32} {_nodef} "var" #VAR blank {} {_nodef} "var" #VAR report {|橙?|豹皮|一尘不染的白衣|黑布少林僧衣|青木剑|竹笠|橙?|黑色的薞食と|烟雨潇潇环金袍|破旧不0的僧衣|南瓜|四百九十二粒围棋子|灰袍|青龙宝甲|红薈|红薈|灰布少林僧衣} {0} "var" #VAR report_num {|1|1|6|6|5|2|1|1|1|4|1|1|2|1|1|1|1} {0} "var" #VAR temp_array {} {_nodef} "var" #VAR convert {|竹笠} {_nodef} "var" #VAR found {0} {0} "var" #VAR j {0} {0} "var" #VAR temp_string {} {} "var" #VAR n {17} {0} "var" #VAR str {} {} "var" #VAR m {5} {0} "var" #VAR new_name {青木剑} {} "var" #VAR done {0} {0} "var" #VAR weapon {月牙小枪} #TRIGGER {^%s(%x)~((%*)~)} {special=0;#if (%1!=开膛破肚的残缺尸体) {#NOOP %arrset( item_name, %arrhigh( item_name)+1, %1);temp_id = %lower( %2);#if (%1=彩裙) {special=1};#if (%1=酒衫) {special=1};#if (%1=草衫) {special=1};#if (@special != 1) {#if (%ends( @temp_id, cloth)) {temp_id = cloth};#if (%ends( @temp_id, hat)) {temp_id = hat};#if (%ends( @temp_id, shoes)) {temp_id = shoes};#if (%ends( @temp_id, skirt)) {temp_id = skirt}};#NOOP %arrset( item_id, %arrhigh( item_id)+1, %lower( @temp_id))}} "make_list" #TRIGGER {你「嘿嘿嘿....」地讥笑了几声} {#bu 2} "make_list" #TRIGGER {^天机老人说道：请找回『(%x)』给天机老人} {#NOOP %arrset( convert, 0, %1);quest_name=%arrget( convert, 0);temp=0;temp_name="";temp_string="";num=0;i=0;found=0;#while (@temp <= %arrhigh( item_name) & @found=0) {temp_name=%arrget( item_name, @temp);#if (@temp_name = @quest_name) {found = 1};#if (%ends( @temp_name, @quest_name)) {temp_string=%leftback( @temp_name, %len( @quest_name));#while (%left( @temp_string, 2) = "一" | %left( @temp_string, 2) = "二" | %left( @temp_string, 2) = "三" | %left( @temp_string, 2) = "四" | %left( @temp_string, 2) = "五" | %left( @temp_string, 2) = "六" | %left( @temp_string, 2) = "七" | %left( @temp_string, 2) = "八" | %left( @temp_string, 2) = "九" | %left( @temp_string, 2) = "十" | %left( @temp_string, 2) = "百") {temp_string = %right( @temp_string, 2)};#if (@temp_string != %leftback( @temp_name, %len( @quest_name))) {#if (%len( @temp_string)<=2) {found=1}}};#add temp 1};#if (@found=0) { tt 狼多肉少, %1短缺!} {#add temp -1;id=%arrget( item_id, @temp);#while (@i <= @temp) {#if (%arrget( item_id, @i)==@id) {#add num 1};#add i 1};#if (%len( @temp_name) > %len( @quest_name)) {get @id from slayed corpse;give 1 @id to tianji;#T+ check_left;put @id in slayed corpse} {get @id @num from slayed corpse;give @id to tianji;i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1}}}} "quest" #TRIGGER {：give (%*)} {get %1 from slayed corpse;give %1 to tianji;#bu 1} "quest" #TRIGGER {：quest (%x)} {#NOOP %arrset( convert, 0, %1);quest_name=%arrget( convert, 0);temp=0;temp_name="";temp_string="";num=0;i=0;found=0;#while (@temp <= %arrhigh( item_name) & @found=0) {temp_name=%arrget( item_name, @temp);#if (@temp_name = @quest_name) {found = 1};#if (%ends( @temp_name, @quest_name)) {temp_string=%leftback( @temp_name, %len( @quest_name));#while (%left( @temp_string, 2) = "一" | %left( @temp_string, 2) = "二" | %left( @temp_string, 2) = "三" | %left( @temp_string, 2) = "四" | %left( @temp_string, 2) = "五" | %left( @temp_string, 2) = "六" | %left( @temp_string, 2) = "七" | %left( @temp_string, 2) = "八" | %left( @temp_string, 2) = "九" | %left( @temp_string, 2) = "十") {temp_string = %right( @temp_string, 2)};#if (@temp_string != %leftback( @temp_name, %len( @quest_name))) {#if (%len( @temp_string)<=2) {found=1}}};#add temp 1};#if (@found=0) { tt 狼多肉少, %1短缺!} {#add temp -1;id=%arrget( item_id, @temp);#while (@i <= @temp) {#if (%arrget( item_id, @i)==@id) {#add num 1};#add i 1};#if (%len( @temp_name) > %len( @quest_name)) {get @id from slayed corpse;give 1 @id to tianji;#T+ check_left;put @id in slayed corpse} {get @id @num from slayed corpse;give @id to tianji;i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1}}}} "quest" #TRIGGER {^> 天机老人说道：请找回『(%x)』给天机老人。} {#NOOP %arrset( convert, 0, %1);quest_name=%arrget( convert, 0);temp=0;temp_name="";temp_string="";num=0;i=0;found=0;#while (@temp <= %arrhigh( item_name) & @found=0) {temp_name=%arrget( item_name, @temp);#if (@temp_name = @quest_name) {found = 1};#if (%ends( @temp_name, @quest_name)) {temp_string=%leftback( @temp_name, %len( @quest_name));#while (%left( @temp_string, 2) = "一" | %left( @temp_string, 2) = "二" | %left( @temp_string, 2) = "三" | %left( @temp_string, 2) = "四" | %left( @temp_string, 2) = "五" | %left( @temp_string, 2) = "六" | %left( @temp_string, 2) = "七" | %left( @temp_string, 2) = "八" | %left( @temp_string, 2) = "九" | %left( @temp_string, 2) = "十" | %left( @temp_string, 2) = "百") {temp_string = %right( @temp_string, 2)};#if (@temp_string != %leftback( @temp_name, %len( @quest_name))) {#if (%len( @temp_string)<=2) {found=1}}};#add temp 1};#if (@found=0) { tt 狼多肉少, %1短缺!} {#add temp -1;id=%arrget( item_id, @temp);#while (@i <= @temp) {#if (%arrget( item_id, @i)==@id) {#add num 1};#add i 1};#if (%len( @temp_name) > %len( @quest_name)) {get @id from slayed corpse;give 1 @id to tianji;#T+ check_left;put @id in slayed corpse} {get @id @num from slayed corpse;give @id to tianji;i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1}}}} "quest" #TRIGGER {你被奖励了} {quest} "quest" #TRIGGER {^队伍成员*现在的任务是: 找回『(%x)』给天机老人} {#NOOP %arrset( convert, 0, %1);quest_name=%arrget( convert, 0);temp=0;temp_name="";temp_string="";num=0;i=0;found=0;#while (@temp <= %arrhigh( item_name) & @found=0) {temp_name=%arrget( item_name, @temp);#if (@temp_name = @quest_name) {found = 1};#if (%ends( @temp_name, @quest_name)) {temp_string=%leftback( @temp_name, %len( @quest_name));#while (%left( @temp_string, 2) = "一" | %left( @temp_string, 2) = "二" | %left( @temp_string, 2) = "三" | %left( @temp_string, 2) = "四" | %left( @temp_string, 2) = "五" | %left( @temp_string, 2) = "六" | %left( @temp_string, 2) = "七" | %left( @temp_string, 2) = "八" | %left( @temp_string, 2) = "九" | %left( @temp_string, 2) = "十" | %left( @temp_string, 2) = "百") {temp_string = %right( @temp_string, 2)};#if (@temp_string != %leftback( @temp_name, %len( @quest_name))) {#if (%len( @temp_string)<=2) {found=1}}};#add temp 1};#if (@found=0) { tt 狼多肉少, %1短缺!} {#add temp -1;id=%arrget( item_id, @temp);#while (@i <= @temp) {#if (%arrget( item_id, @i)==@id) {#add num 1};#add i 1};#if (%len( @temp_name) > %len( @quest_name)) {get @id from slayed corpse;give 1 @id to tianji;#T+ check_left;put @id in slayed corpse} {get @id @num from slayed corpse;give @id to tianji;i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1}}}} "quest" #TRIGGER {^队伍成员*现在的任务是: 寻『(%x)』} {#NOOP %arrset( temp_array, %arrhigh( temp_array)+1, %1)} "quest" #TRIGGER {^你现在的任务是寻『(%x)』。} {#NOOP %arrset( temp_array, %arrhigh( temp_array)+1, %1);j=0;#while (@j<=%arrhigh( temp_array)) {quest_name=%arrget( temp_array, @j);temp=0;temp_name="";temp_string="";num=0;i=0;found=0;#while (@temp <= %arrhigh( item_name) & @found=0) {temp_name=%arrget( item_name, @temp);#if (@temp_name = @quest_name) {found = 1};#if (%ends( @temp_name, @quest_name)) {temp_string=%leftback( @temp_name, %len( @quest_name));#while (%left( @temp_string, 2) = "一" | %left( @temp_string, 2) = "二" | %left( @temp_string, 2) = "三" | %left( @temp_string, 2) = "四" | %left( @temp_string, 2) = "五" | %left( @temp_string, 2) = "六" | %left( @temp_string, 2) = "七" | %left( @temp_string, 2) = "八" | %left( @temp_string, 2) = "九" | %left( @temp_string, 2) = "十" | %left( @temp_string, 2) = "百") {temp_string = %right( @temp_string, 2)};#if (@temp_string != %leftback( @temp_name, %len( @quest_name))) {#if (%len( @temp_string)<=2) {found=1}}};#add temp 1};#if (@found=0) { #sh 缺le} {#add temp -1;id=%arrget( item_id, @temp);#while (@i <= @temp) {#if (%arrget( item_id, @i)==@id) {#add num 1};#add i 1};#if (%len( @temp_name) > %len( @quest_name)) {get @id from slayed corpse;give 1 @id to tianji;#T+ check_left;put @id in slayed corpse} {get @id @num from slayed corpse;give @id to tianji;i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1}}};#add j 1};#var temp_array %array( )} "quest" #TRIGGER {^你现在的任务是杀*} {j=0;#while (@j<=%arrhigh( temp_array)) {quest_name=%arrget( temp_array, @j);temp=0;temp_name="";temp_string="";num=0;i=0;found=0;#while (@temp <= %arrhigh( item_name) & @found=0) {temp_name=%arrget( item_name, @temp);#if (@temp_name = @quest_name) {found = 1};#if (%ends( @temp_name, @quest_name)) {temp_string=%leftback( @temp_name, %len( @quest_name));#while (%left( @temp_string, 2) = "一" | %left( @temp_string, 2) = "二" | %left( @temp_string, 2) = "三" | %left( @temp_string, 2) = "四" | %left( @temp_string, 2) = "五" | %left( @temp_string, 2) = "六" | %left( @temp_string, 2) = "七" | %left( @temp_string, 2) = "八" | %left( @temp_string, 2) = "九" | %left( @temp_string, 2) = "十" | %left( @temp_string, 2) = "百") {temp_string = %right( @temp_string, 2)};#if (@temp_string != %leftback( @temp_name, %len( @quest_name))) {#if (%len( @temp_string)<=2) {found=1}}};#add temp 1};#if (@found=0) { #sh 缺le} {#add temp -1;id=%arrget( item_id, @temp);#while (@i <= @temp) {#if (%arrget( item_id, @i)==@id) {#add num 1};#add i 1};#if (%len( @temp_name) > %len( @quest_name)) {get @id from slayed corpse;give 1 @id to tianji;#T+ check_left;put @id in slayed corpse} {get @id @num from slayed corpse;give @id to tianji;i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1}}};#add j 1}} "quest" #TRIGGER {^你身上没有这样东西。} {i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i+1));#add i 1};i=@temp;#while (@i<=%arrhigh( item_name)) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i+1));#add i 1};#t- check_left} "check_left" #TRIGGER {你将*放进开膛破肚的残缺尸体里面} {t_id=%arrget( item_id, @temp);t_name=%arrget( item_name, @temp);#t- check_left;i=@temp;#while (@i>=0) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i-1));#add i -1};i=@temp;#while (@i>=0) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i-1));#add i -1};#NOOP %arrset( item_id, 0, @t_id);#NOOP %arrset( item_name, 0, @t_name)} "check_left" #TRIGGER {return reset} {put all in slayed corpse;#bu 1} "team" #TRIGGER {：sharp cc} {quest cancel;quest} "team" #TRIGGER {^开膛破肚的残缺尸体里面已经有太多东西了} {tt 容器满了,快点处理;tt} "team" #TRIGGER {：report} {#var report %array( 0);#var report_num %array( 0);n=0;m=0;j=0;done=0;#while (@n <= %arrhigh( item_name)) {new_name=%arrget( item_name, @n);m=0;#while (@m <= %arrhigh( report) & @done == 0) {#if (@new_name==%arrget( report, @m)) {j=%arrget( report_num, @m);#add j 1;#NOOP %arrset( report_num, @m, @j);done=1};#add m 1};#if (@done==0) { #if (%arrget( report, 0)==0) {#NOOP %arrset( report, 0, @new_name);#NOOP %arrset( report_num, 0, 1)} {#NOOP %arrset( report, %arrhigh( report)+1, @new_name);#NOOP %arrset( report_num, %arrhigh( report_num)+1, 1)}};#add n 1;done=0};n=0;str="";#while (@n<=%arrhigh( report)) {tt %arrget( report, @n) -----------> %arrget( report_num, @n);#wa 100;#add n 1}} "team" #TRIGGER {^%s(%x)~((%*)~)} {special=0;temp_id="";end_index=0;#while (@end_index<=%arrhigh( item_name) & %arrget( item_name, @end_index)<>"") {#add end_index 1};#if (%1!=开膛破肚的残缺尸体 & %1!= @weapon) {i=@end_index;#while (@i>=0) {#NOOP %arrset( item_name, @i, %arrget( item_name, @i-1));#add i -1};i=@end_index;#while (@i>=0) {#NOOP %arrset( item_id, @i, %arrget( item_id, @i-1));#add i -1};#NOOP %arrset( item_name, 0, %1);temp_id = %lower( %2);#if (%1=彩裙) { special=1};#if (%1=酒衫) {special=1};#if (%1=草衫) {special=1};#if (@special != 1) {#if (%ends( @temp_id, cloth)) {temp_id = cloth};#if (%ends( @temp_id, hat)) {temp_id = hat};#if (%ends( @temp_id, shoes)) {temp_id = shoes};#if (%ends( @temp_id, skirt)) {temp_id = skirt}};#NOOP %arrset( item_id, 0, %lower( @temp_id))};#if (@temp_id!="") {put @temp_id in slayed corpse}} "append" #TRIGGER {^%s开膛破肚的残缺尸体~(Slayed corpse~)} {#t- append} "append" #ALARM "store" {*15} {store} #TRIGGER {^天机老人并不要你的*} {#bu 1} "quest" "System|Pueblo" #BUTTON 1 {初始化} {#t- append;special=0;put all in slayed corpse;#Var item_name %array( );#Var item_id %array( );#T+ make_list;look slayed corpse;heihei} {关闭List} {#t- make_list;#var item_name;#var item_id} {} {} {} {} {} {} {} {} {} {31} {15} {} {} "" {} {} {} #BUTTON 2 {关闭} {#t- make_list;#t- append;#t- check_left} {} {} {} {} {} {} {} {} {} {} {} {31} {} {} {} "" {} {} {}