/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1
/q /query $$1
/hop /part # | /join #$$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
ircversion /return 11,1NetLand §¢®Ipt V2.0 ßÿ GoodNews get it from http://www.NetLand.net or http://www.netland.cjb.net
irc /return 11,1NetLand §¢®Ipt V2.0 
setpas {
  .set %mnickpass $$?="Enter your nick Password for Nickserv"
  if (%mnickpass == $null) { goto end }
  if ($readini config.ini nickpass $me !== $null) { writeini config.ini nickpass $me %mnickpass | echo 11,1»¤« 11,1 Nick Auto Services 11,1»¤«11,1 Changing your password for 14,1 [ $me ] 11,1in your Script file) | goto end }
  if ($readini config.ini nickpass Nicks == $null) { writeini config.ini nickpass Nicks $me | echo 11,1»¤« 11,1 Nick Auto Services 11,1»¤«11,1 Adding this new nick: 14,1 [ $me ] 11,1 and password:14,1 [ %mnickpass ] 11,1in your Script file) }
  else { writeini config.ini nickpass Nicks $readini config.ini nickpass Nicks $+ , $+ $me }
  writeini config.ini nickpass $me %mnickpass
  :end
  unset %mnickpass
}
identifyme { 
  if ($readini config.ini nickpass $me == $null) { echo (11,1»¤« 11,1  Auto Services 11,1»¤«11,1 Sorry, i cannot auto ident you with nickserv for  14,1 [ $me ] 11,1because you didn't set a password for it 11,1»¤« 11,1 Nick Auto Services 11,1»¤«11,1 | goto end }
  .msg nickserv identify $readini config.ini nickpass $me
  echo 11,1»¤« 11,1  Auto Services 11,1»¤«11,1 Identifying for 14,1 [ $me ] 11,1with nickserv)
  :end
}
seenicks { 
  if ($readini config.ini nickpass Nicks == $null) { echo  11,1»¤« 11,1 Auto Services 11,1»¤«11,1 No Nicks entered ) | goto end }
  else { 
    echo $active 11,1»¤« 11,1  Auto Services 11,1»¤«11,1 Nick-Names:14,1  $readini config.ini nickpass nicks  
  }
  :end
}
seepass {
  if ($readini config.ini nickpass $me == $null) { echo 11,1»¤« 11,1  Auto Services 11,1»¤«11,1 Password,14,1 [ $me ]  11,1:No Password set for this nick ! ) | goto end }
  echo $active 11,1»¤« 11,1 Auto Services 11,1»¤«11,1 Password,14,1 [ $me ]  11,1:  $readini config.ini nickpass  $me   
  :end
}
remnick { 
  if ($readini config.ini nickpass Nicks == $null) { echo 11,1»¤« 11,1 Nick Auto Services 11,1»¤«11,1 No Nicks Presently entered ) | goto end }
  else { .set %ntoremove $readini config.ini nickpass Nicks }
  .set %remnick $$?="Enter the nick you want to remove"
  if (%remnick == $null) { echo 11,1»¤« 11,1 Auto Services 11,1»¤«11,1 You need to enter a nick when prompted ) | goto end }
  if (%remnick !isin $readini config.ini nickpass Nicks) { echo 11,1»¤« 11,1 Auto Services 11,1»¤«11,1 Sorry ,this Nick is not in your list ! ) | goto end }
  .set %newnicks $remok(%ntoremove,%remnick,4,14,1)
  if %newnicks == $null { echo 11,1»¤« 11,1 Auto Services 11,1»¤«11,1 Removing the only nick on the list ) | remini config.ini nickpass Nicks | goto proceed }
  writeini config.ini nickpass Nicks %newnicks
  :proceed
  remini config.ini nickpass %remnick
  echo 11,1»¤« 11,1 Auto Services 11,1»¤«11,1 [ %remnick ] 14,1has been removed from your nicklist )
  :end
  unset %remnick %ntoremove %newnicks
}
else {
  echo (11,1Auto Service11,111,1 registering11,1 [ $me ] 11,1with nickserv)
  .msg nickserv register $readini config.ini nickpass $me
}
/ops onotice 11,1Ops( $+ $opnick(#,0) $+ ) in # $+ ( $+ $nick(#,0) $+ ):11,1 $1-
/ovnotice {
  if ( $me isop # ) || ( $me isvo # ) {
    %ov.num = 0
    %ov.total = $vnick(#,0)
    echo -> 11,1Ops( $+ $opnick(#,0) $+ ) & Voice( $+ $vnick(#,0) $+ ) In # $+ ( $+ $nick(#,0) $+ ):11,1 $1-
    .notice @ $+ # 11,1Ops( $+ $opnick(#,0) $+ ) & Voice( $+ $vnick(#,0) $+ ) In # $+ ( $+ $nick(#,0) $+ ): $1-
    :loop
    inc %ov.num 1
    if ( %ov.num > %ov.total ) { goto done }
    elseif ( $vnick(#,%ov.num) == $me ) { goto loop } 
    else {
      .notice $vnick(#,%ov.num) 11,1Ops( $+ $opnick(#,0) $+ ) & Voice( $+ $vnick(#,0) $+ ) in # $+ ( $+ $nick(#,0) $+ ): $1-
      goto loop
    }
    else { goto loop }
  }
  else { echo -a 11,1»»» 11,1Error:11,1 You must be an op or voice in # | halt }
  :done
  unset %ov.*
}