- script SearchSystem -1,{ mes "[ Find Monster ]"; mes "Select"; next; set .@select,select("- Monster","- Item"); if (.@select == 1) { set .@id,callfunc("Mobidsearch"); if (.@id == 1) { mes "[ Find Monster ]"; mes "^FF0000Monster Not Found!^000000"; close; } } else if (.@select == 2) { set .@id,callfunc("Itemsearch"); if (.@id == 1) { mes "[ Find Monster ]"; mes "^FF0000Item Not Found!^000000"; close; } set .@id,callfunc("Mobitemsearch",.@id); if (.@id == 1) { mes "[ Find Monster ]"; mes "^FF0000Item not found! ID: "+.@id+"^000000"; close; } } set .@id,callfunc("Mobmapsearch",.@id); if (.@id == 1) { mes "[ Find Monster ]"; mes "^FF0000Monster not found in map!^000000"; close; } end; OnInit: waitingroom "Find Monster",0; end; } function script Mobidsearch { mes "[ Find Monster ]"; mes "Please enter ID or Monster Name"; next; input .@mobsearch$; if (mobidsearch[.@mobsearch$] == "null") return 1; set .@menu$,""; for(set .@i,0; .@i < getarraysize(@mobidsearch_id); set .@i,.@i+1) set .@menu$,.@menu$+(@mobidsearch_id[.@i]?"- "+getmonsterinfo(@mobidsearch_id[.@i],0)+" ("+@mobidsearch_id[.@i]+") Lv."+getmonsterinfo(@mobidsearch_id[.@i],1)+":":":"); set .@mobid,select(.@menu$) - 1; next; set .@mobid,@mobidsearch_id[.@mobid]; deletearray @mobidsearch_id[0],255; return .@mobid; } function script Itemsearch { mes "[ Find Monster ]"; mes "Please enter ID or Item Name"; next; input .@itemsearch$; if (itemsearchid[.@itemsearch$] == "null") return 1; set .@menu$,""; for(set .@i,0; .@i < getarraysize(@itemsearch_id); set .@i,.@i+1) set .@menu$,.@menu$+(@itemsearch_id[.@i]?"- "+getitemname(@itemsearch_id[.@i])+""+(getiteminfo(@itemsearch_id[.@i],2) == 4 || getiteminfo(@itemsearch_id[.@i],2) == 5?"["+getitemslots(@itemsearch_id[.@i])+"]":"")+" ("+@itemsearch_id[.@i]+"):":":"); set .@id,select(.@menu$) - 1; set .@id,@itemsearch_id[.@id]; deletearray @itemsearch_id[0],255; return .@id; } function script Mobitemsearch { set .@id,getarg(0); if (getitemname(.@id) == "null") return 1; if (mobitemsearch[.@id]) return 1; set .@menu$,""; if (@mobitemsearch_id[0] < 1) { mes "[ Find Monster ]^FF0000"; if (getiteminfo(.@id,2) == 4 || getiteminfo(.@id,2) == 5) mes ""+getitemname(.@id)+" ["+getitemslots(.@id)+"]"; else mes ""+getitemname(.@id)+""; mes "No drop from monster!^000000"; close; } for(set .@i,0; .@i < getarraysize(@mobitemsearch_id); set .@i,.@i+1) set .@menu$,.@menu$+"- "+getmonsterinfo(@mobitemsearch_id[.@i],0)+" ("+@mobitemsearch_id[.@i]+") ["+@mobitemsearch_per$[.@i]+"]:"; next; set .@id,select(.@menu$) - 1; set .@id,@mobitemsearch_id[.@id]; deletearray @mobitemsearch_id[0],255; deletearray @mobitemsearch_per$[0],255; return .@id; } function script Mobmapsearch { set .@id,getarg(0); if (getmonsterinfo(.@id,0) == "null") return 1; if (mobmapsearch[.@id]) return 1; if (@mobmapsearch$[0] == "") return 1; mes "[ Find Monster ]"; mes "Monster : "+getmonsterinfo(.@id,0)+" ["+.@id+"]"; mes "Level : "+getmonsterinfo(.@id,1)+""; mes "HP : "+getmonsterinfo(.@id,2)+""; mes "EXP : "+getmonsterinfo(.@id,3)+""; mes "Job EXP : "+getmonsterinfo(.@id,4)+""; mes "Attack : "+getmonsterinfo(.@id,5)+"-"+getmonsterinfo(.@id,6)+""; mes "Def : "+getmonsterinfo(.@id,7)+""; mes "Mdef : "+getmonsterinfo(.@id,8)+""; mes "^FF0000No size available^000000"; set .@menu$,""; for(set .@i,0; .@i < getarraysize(@mobmapsearch$); set .@i,.@i+1) set .@menu$,.@menu$+"- "+@mobmapsearch$[.@i]+" ["+@mobmapsearchcount[.@i]+"]:"; next; set .@id,select(.@menu$) - 1; set .@mobwarp$,@mobmapsearch$[.@id]; deletearray @mobmapsearch$[0],255; deletearray @mobmapsearchcount[0],255; dispbottom "Go to: "+.@mobwarp$+""; warp .@mobwarp$,0,0; return 0; } prontera,150,182,4 duplicate(SearchSystem) [ Find Monster]#1 756